BEGIN
INTEGER I,J,JJ,Fail
      JJ=0; Fail=0
FOR I=1,1,70 CYCLE
      BEGIN
      BYTEINTEGERARRAY A(0:4095)
      J=ADDR(A(0))
      END
      IF JJ#J THEN START
         Fail=1 and WRITE(J,5) AND NEWLINE UNLESS JJ=0
         JJ=J
      FINISH
REPEAT
      if Fail=0 then printstring("Test OK")
ENDOFPROGRAM