do for i=0to(n-49)*!n/5-10.5?chr$(n-i);next:n=peek(0)loop