%begin
   !Generate a test file easy to check by eye after passing
   !through corrupting influences (e.g. E.R.C.C. network).
   %integer lines, width, col, lines printed, sym
   Prompt ("Test lines: ")
   %if next symbol = NL %then lines = 100 %c
   %else read (lines)
   Prompt ("Line width: ")
   skip symbol
   %if next symbol = NL %then width = 62  %c
   %else read (width)
   lines printed = 0
   col = 0
   %cycle
      %for sym = ' ', 1, 126 %cycle
         col = col + 1
         Print symbol (sym)
         %if col = width %start
            Newline
            lines printed = lines printed + 1
            %stop %if lines printed = lines
            col = 0
         %finish
      %repeat
   %repeat
%endofprogram
