1CLS:I=0:C=0:A=9:REP.:REP.:J=A+I:K=A-I:L=J+C:M=K-C:PROCF(J,L):PROCF(K,L):PROCF(J,M):PROCF(K,M):PROCF(L,J):PROCF(L,K):PROCF(M,K):PROCF(M,J):I=I+1:U.I=5:I=0:C=C+1:U.C=5
2DEF PROCF(X,Y):P.TAB(X,Y)"*":E.