home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / computervision.zip / kermit.ctl < prev    next >
Text File  |  1987-02-19  |  373b  |  14 lines
  1. ; 18 jly 85 esj converted
  2. ;;;    CTL    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3.       E'F A:S(NWLS)
  4.       E'O CTL.(T)
  5.  
  6. ;     toggle the control bit of a character so that
  7. ;     CNTR-A becomes A and vice versa
  8.  
  9.       I'R T
  10.  
  11.       F'N (T .EOR. 64)  ;do a exclusive OR on the control bit which is
  12.                       ;the seventh th bit
  13.       E'N
  14.