home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.ctl < prev    next >
Text File  |  2020-01-01  |  360b  |  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.