# toggle the control bit of a character
# so that CNTR-A becaue A, and vice versa
integer function ctl(ch)
include ratdef
include kerdef
character ch
# do a exclusive or on the control bit which is the seven th bit
ctl=ixor(ch,100k)
return
end