EXTERNALINTEGERFN IAND(INTEGERNAME A,B)
      RESULT=A&B
      END
      EXTERNALINTEGERFN IOR(INTEGERNAME A,B)
      RESULT=A!B
      END
      EXTERNALINTEGERFN IEOR(INTEGERNAME A,B)
      RESULT=A!!B
      END
      EXTERNALINTEGERFN NOT(INTEGERNAME A)
      RESULT=¬A
      END
      EXTERNALINTEGERFN ISHFT(INTEGERNAME A,B)
      IF B>0 THEN RESULT=A<<B ELSE RESULT=A>>(-B)
      END
      EXTERNALINTEGERFNSPEC RETURNCODE
      EXTERNALINTEGERFN SUCESS(INTEGERNAME DUMMY)
      RESULT=RETURNCODE
      END
      ENDOFFILE