* Quiz4 Example
  Use a do loop to output one exam score per line;

options ls=64 nodate pageno=1;
data quiz;
   infile 'c:/datasets/quiz1.txt' firstobs=3;
   input name $ @11 @;
   do test = 1 to 5;
      input score 1. @;
      output;
   end;
   test = 6;
   input score @;
   output;
   test = 7;
   input score @;
   output;

proc print;

run;
quit;