# change a converted character back to a integer
#  
integer function unchar(ch)
include ratdef
include kerdef
character ch
# SP = 32
unchar=ch-SP
return
end