Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
    2   %INTEGERARRAY BAD(1:2)
    3   %INTEGER I,J
    4   %ON %EVENT 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 %START
    5     PRINT STRING("TRAPPED!"); NEWLINE
    6     %STOP
    7   %FINISH
    8   BAD(0) = 123
    9   BAD(1) = 234
   10   J = 1
   11   %CYCLE
   12     I = J + BAD(J)
   13     PRINTSTRING("I = "); WRITE(I,0); NEWLINE
   14     I = J * BAD(1)
   15     I = BAD(J)
   16     I = BAD(1)
   17     J = J+1
   18   %REPEAT
   19 %ENDOFPROGRAM
   22 Statements compiled