10	sub in1chr(c%) &

20	A$=SYS(CHR$(4%)) &
	\GET #12% &
	\FIELD #12%, 1% AS C$ &
	\A$=CVT$$(C$,32%) !UPPERCASE &
	\C%=ASCII(A$) &
	\SUBEND &