do
a=peek(0)
for i=65to a+0^a?chr$(i);next
?loop