Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
    2 %RECORDFORMAT F(%INTEGER I,J,K,%INTEGERARRAY A,B,C(1:5))
    3 %RECORD(F) R
    4 %INTEGERARRAYNAME B
    5 %INTEGER I
    6       R_I='I'
    7       R_J='J'
    8       %CYCLE I=1,1,5
    9       R_A(I)=I
   10       %REPEAT
   11       R_K=255
   12       B==R_A
   13       %CYCLE I=1,1,5
   14          WRITE(B(I),5)
   15       %REPEAT
   16 %ENDOFPROGRAM
   16 Statements compiled