do
f=1
b$=""
for i=1to 5a=x
x=peek(0)
f=f*(a<x)
b$=b$+chr$(x)next
if f?b$
x=peek(0)loop