# convert a integer to a character
#  
integer function tochar(ch)
include ratdef
include kerdef
character ch
# SP = 32
tochar=ch+SP
return
end