dim h$(99),w$(2) e=12 input""a$ f=len(a$) do input""b$ if""=b$break n=n+1 h$(n)=b$ loop for i=1to f:r$=mid$(a$,i,1)+r$:x$=x$+" ":next w$(1)=a$:w$(2)=r$ for i=1to n for k=1to 2o=instr(h$(i),w$(k)):if o mid$(h$(i),o)=x$ v$="":for j=1to e:v$=v$+mid$(h$(j),i,1)next o=instr(v$,w$(k)):if o mid$(v$,o)=x$:for j=1to e:mid$(h$(j),i)=mid$(v$,j,1)next next next for i=1to n?h$(i)next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).