DM 'CLEAR LOG';
DM 'CLEAR OUTPUT';
OPTIONS LINESIZE=72 NODATE NONUMBER;
DATA file1;
     INFILE 'a:\pulsedat.txt';
     INPUT pulse1 pulse2 ran smoker gender
           height weight activity;
DATA subset;
     SET file1;
     IF ran = 1;
PROC PRINT DATA=file1; /* prints the entire data set         */
     TITLE 'The entire data set';
PROC MEANS DATA=subset;    /* For runners only prints sample size, */
     VAR pulse1;           /* the mean, standard deviation, min,   */
     TITLE 'Runners only'; /* and max for pulse1                   */
RUN;