do
a=peek(0)
for i=0to(a-49)*(a>47)*!a>57
?chr$(a);next
loop