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