INTEGER FUNCTION UNCHAR(CH)
      INTEGER CH
      UNCHAR=CH-32
      RETURN
      END