%BEGIN
!***********************************************************************
!*    SHOULD RUN WITHOUT OPUT. LOOPS ON SOME COMPILERS DUE TO          *
!*    MISSING LABELS GIVING JUMPS WITH ZERO OFFSET                     *
!***********************************************************************
%OWNBYTEINTEGERARRAY CH(0:16)='0','1','2','3','4','5','6','7','8',
      '9','A','B','C','D','E','F','G'
%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
       %FOR K=0,1,16 %CYCLE
         %UNLESS '0'<=CH(K)<='9' %OR 'A'<=CH(K)<='F' %THEN I=I+1
      %REPEAT
      %IF I=4004 %THEN PRINTSTRING("TEST OK") %ELSE %C
         PRINTSTRING("WRONG ANSWERS") %AND WRITE(I,5)
%ENDOFPROGRAM
