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