Source:    cat.i
Object:    cat.o
Parms:     NOTRACE,NOLINE,LIST,NOARRAY,NODIAG,NOCHECK,MAXDICT,MAXWORK



              ERCC. Portable Imp80 Compiler Release 4 Version 30 Aug 89


  4095 12285
     1        %externalintegerfn main
     2        %integer i
     3        %integerarray ia(20:25, 21:27)
     4        %string (255) a, s
     5          select input(0)
     6          select output(0)
     7          s = "1+1+1+1+1+1+1+1+1"
     8          %while s -> a.("+").s %cycle
     9             readch(i)
    10             %exit %if i < 0
    11             print symbol(i)
    12          %repeat
    13        
    14          %cycle
    15             %exit %if i < 0
    16             print symbol(i)
    17          %repeat %until %not s -> a.("+").s
    18        
    19          %for i = 0,1,10 %cycle
    20             %exit %if i < 0
    21             print symbol(i)
    22          %repeat
    23        
    24          i = ia(24, 24)
    25        
    26          %stop
    27        %end
    28        
    29        %endoffile

    29 LINES ANALYSED   SIZE=  1272

CODE    912+   72 BYTES      GLAP 104+ 0 BYTES      DIAG TABLES  64 BYTES
TOTAL  1152 BYTES
      29 STATEMENTS COMPILED

