%BEGIN
!***********************************************************************
!*    SHOULD RUN WITHOUT OPUT. LOOPS ON SOME COMPILERS DUE TO          *
!*    MISSING LABELS GIVING JUMPS WITH ZERO OFFSET                     *
!***********************************************************************
%INTEGER I,K,L
%CONSTINTEGER J=0
      I=4000; L=10
      %IF I>4095 %AND J#0 %THEN I=I+1
      %IF I>4095 %AND J#0 %THEN I=I+1 %ELSE I=I-1
      %IF I>4095 %AND J#0 %THEN %START; %FINISH
      %IF I>4095 %AND J#0 %THEN %START
         I=I+1
      %FINISH %ELSE I=I-1
      %IF (I>4095 %AND J#0 ) %AND L=1 %THEN I=I+1
      %IF (I>4095 %AND J#0) %OR L=1 %THEN I=I+1
      %UNLESS I>4095 %AND J#0 %THEN I=I+1
      %UNLESS I>4095 %AND J#0 %THEN I=I+1 %ELSE I=I-1
      %UNLESS I>4095 %AND J#0 %THEN %START; %FINISH
      %UNLESS I>4095 %AND J#0 %THEN %START
         I=I+1
      %FINISH %ELSE I=I-1
      %UNLESS (I>4095 %AND J#0 ) %AND L=1 %THEN I=I+1
      %UNLESS (I>4095 %AND J#0) %OR L=1 %THEN I=I+1
      %IF I=4003 %THEN PRINTSTRING("OK") %ELSE %C
         PRINTSTRING("WRONG ANSWERS")
%ENDOFPROGRAM