do
v=peek(0)
if v<0?z$
p=p+v*!p
x$=chr$(v)
if p>v?x$;
if p=v z$=x$+z$
if p<v z$=z$+x$
loop