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