home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.ctl
< prev
next >
Wrap
Text File
|
1987-02-19
|
360b
|
14 lines
; 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