dim s$(999):do input""s$(i) for j=0to i:t$=s$(i):k=t$>"":if!k?s$(j) if k*chr$(len(t$))+t$<chr$(len(s$(j)))+s$(j)s$(i)=s$(j):s$(j)=t$ next:i=i+k^0loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page