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)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page