do
a=peek(0)
if a<0?s$:end
s$=chr$(a*!a<65)+s$loop