%window welcome
#5 'Welcome to the SAS system'
#7 "You are executing Release &sysver on &sysday, &sysdate.."
#12 'Press ENTER to continue';
%display welcome;
%macro plot(v1,v2);
   PROC PLOT;
     PLOT &v1*&v2;
   RUN;
%mend plot;

%window askplot
#10 @12 "Do you want to make a scatter plot?"
    @50 getdata 3 attr=underline
#12 @12 "Press ENTER to continue.";
%macro havefun;
%display askplot;
%if %upcase(&getdata)=YES %then %plot(hexaco,indep);
%mend havefun;

Title 'Paired samples T-test';

Data hanke348;
Input location hexaco indep;
Label
   indep='price charged by independent co.'
   hexaco='price charged by Hexaco oil co.';
pricegap = hexaco - indep;
Cards;
1  90.5  89.9
2  91.9  90.9
3  92.7  90.9
4  91.9  90.9
5  93.6  91.8
6  90.9  90.9
7  90.9  90.9
8  89.8  88.9
9  88.7  88.9
10 87.9  88.6
11 92.7  91.9
;
%havefun;
Proc Means Stderr T Prt;
     Var pricegap;
Run;