dim a$(3)
z=peek(0):m=z
while(m>0)i=sig(m-z)+1
a$(i)=a$(i)+chr$(m)
m=peek(0)wend
?a$(0)+a$(1)+a$(2)