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