Edinburgh IMP77 Compiler - Version 8.4

    1  ! test of 'outpos' which can be used in Imp to align text in columns...
    2  %begin
    3    %constintegerarray data(1:10) = 1, 11, 111, 1111, 11111, 111111, 1111111, 11111111, 111111111, 1111111111
    4    %integer i
    5    %for i = 0, 1, 10 %cycle
    6      write(data(i), -1) %if i # 0
    7      %cycle
    8        print symbol('.')
    9      %repeat %until outpos&7 = 0
   10      newline %if i=6
   11    %repeat
   12    newline
   13  %endofprogram

   12 Statements compiled