      PROGRAM TSLOG
C
C     TO TEST SLOGIC
C     OLYMPIC SOFTWARE   9/27/88
C
      EXTERNAL SLOGIC
      INTEGER*2 IOP,IA,IB,IC
C
      WRITE(*,10)
 10   FORMAT(' ENTER IOP(1,2,3,4:AND,OR,XOR,NOT), IA, IB: ',$)
      READ(*,*)IOP,IA,IB
C
      CALL SLOGIC(IOP,IC,IA,IB)
C
      WRITE(*,11)IC
 11   FORMAT(' IA.IOP.IB= ',I8)
C
      STOP
      END

