input""a$ n=len(a$) for i=0to 2^n-1b$=mid$(bin$(i+2^n),2) s$=upper$(a$) for j=1to n mid$(s$,j)=lower$(mid$(s$,j,"1"=mid$(b$,j,1)))next z$=z$+s$+" "next p=instr(z$,a$) ?mid$(z$,p),left$(z$,p-1);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).