while(c>=0)x$=chr$(c*(c>64))+x$:c=peek(0)wend
?x$