x("012345","",5) sub x(a$,b$,p)local i if!p?b$+a$ for i=0to p x(left$(a$,i)+mid$(a$,i+2),b$+mid$(a$,i+1,1)+" ",p-1)next end sub

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

download

return top