1FORT=0TO8:FORH=0TO1:X=T-(H=0)*(T>7)+H*(T=3)*4:Y=X+H*(VAL(MID$("900512512",T+1,1))-X):FORG=-1TO1:FORI=-1TO1:FORL=0TO1:VTAB14+Y*G:HTAB21+X*I:?"*":S=X:X=Y:Y=S:NEXTL,I,G,H,T
