1B=&7C00:MO.7:F.Y=0TO8:P.SPC(-4*(Y<4)-(Y-4)*(Y>4))STRI.-(Y+1)*(Y<4)-(13-Y)*(Y>3),"*"):F.X=0TO8:S=40*Y+X:T=S-2*X:P=B?S:B?(16+T)=P:B?(640-T)=P:B?(656-S)=P:N.,:P.TAB(1,16)