options pagesize=53 linesize=76;
title 'Seek Time Analysis';
data wrkload;
 input diskio @@;
 centered=diskio - 23;             ***** Simple assignment statement *****;
 label diskio='Seek Time ms'
       centered='Seek Time compared to 23 ms';
 datalines;
 23 33 14 15 42 28
 33 45 23 34 39 21
 36 23 34 36 25  9 
 11 19 35 24 31 29
 16 23 34 24 38 15
 13 35 28
 run;
proc univariate normal plot;
 var centered;
proc rank normal=blom out=new;
 var centered;
 ranks nscores;
proc plot;
 plot centered*nscores='*';
run;