Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %integer base = 36
    3    %integer n
    4    %for n = 0, 1, 100 %cycle
    5      WRITE(n,-1)
    6      spaces((outpos+7)&(~7)-outpos)
    7      %for base = 6, 10, 66 %cycle
    8        write(base, -1)
    9        printstring("_")
   10        printstring(INT2ASCII(n, base, 4))
   11        spaces((outpos+7)&(~7)-outpos)
   12      %repeat
   13      newline
   14    %repeat
   15  %endofprogram

   15 Statements compiled