*! version 1.0.0  STB-12 dm13
prog define char
version 3.0
if "`1'"=="" {
	help char
	exit
}
if real("`1'")<1 | real("`1'")>26 {
	noisily display "Please send a token between 1 & 26."
	exit 1
}
local letters="abcdefghijklmnopqrstuvwxyz"
mac def char=substr("`letters'",`1',1)
local LETTERS="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
mac def CHAR=substr("`LETTERS'",`1',1)
end