INTEGER FUNCTION CTL(CH)
      INTEGER CH
      CTL=IXOR(CH,100K)
      RETURN
      END