while(c+1)x$=chr$(c*!c<65)+x$:c=peek(0)wend
?x$