%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
