for i=1to 3line input""b$
a$=a$+b$+b$+b$+b$next
for i=2to 49for j=-1to 1?mid$(a$,64*mod(i+j,3)+i,16)next
?next