sort by first occurrence by *yuko*

1if!i i=len(s$)+1
s$=left$(s$,i-1)+t$+mid$(s$,i)
line input""t$:if""<t$t$=t$+"
":i=instr(s$,t$):goto 1
?s$

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page