PROGRAM TESTBOOL
      LOGICAL BTEST
      I=IFOSbyte(I,I,I,14,6,0)
   10 PRINT *,'Enter I,J'
      READ(*,*,ERR=10)I,J
      IF(I.EQ.0.AND.J.EQ.0) STOP
      PRINT 101,IAND(I,J),IOR(I,J),IEOR(I,J),NOT(I),ISHFT(I,J)
     +,IBSET(I,J),BTEST(I,J),IBCLR(I,J),I,J
  101 FORMAT(' IAND(I,J) = ',Z8/'  IOR(I,J) = ',Z8/
     +' IEOR(I,J) = ',Z8/'  NOT(I)   = ',Z8/'ISHFT(I,J)= ',Z8/
     +' IBSET(I,J)= ',Z8/' BTEST(I,J)= ',L1/'IBCLR(I,J)= ',Z8/
     +' I,J= ',Z8,',',Z8)
      GO TO 10
      END