dim m$(7) s$=left$(str$(0,"%99f"),79) for i=1to 7line input""m$(i) m$(i)=s$+m$(i)+s$next for i=1to len(m$(1))for j=1to 7a$=mid$(m$(j),i,80) if j=4and mid$(a$,51,1)="#"mid$(a$,51)="*" ?a$next ?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).