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);