; 18 jly 85 esj converted
;;;    CTL    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      E'F A:S(NWLS)
      E'O CTL.(T)

;     toggle the control bit of a character so that
;     CNTR-A becomes A and vice versa

      I'R T

      F'N (T .EOR. 64)  ;do a exclusive OR on the control bit which is
                      ;the seventh th bit
      E'N