do
c=peek(0)
v=c-48
if v<0or v>9v=1
while(v)?chr$(c);:v=v-1wend
loop