G G I dMAGIC n 1100L x" MAGIC SQUARE" #T=2:1400x:2800 N=1:C=1 A(4,4) C(4,4) J=1 4 K=1 4 C(J,K)=0 K J J=1 4 K=1 4 (A(J,K)=(J-1)*4+K+N-1 K J J=1 2 )Z=A(J,J):A(J,J)=A(5-J,5-J) ",A(5-J,5-J)=Z:Z=A(J,5-J) ,1A(J,5-J)=A(5-J,J):A(5-J,J)=Z 6J @'C(1,1)=A(1,1) J'C(1,3)=A(1,3) T'C(1,4)=A(1,4) ^'C(2,2)=A(2,2) h'C(3,2)=A(3,2) r'C(3,3)=A(3,3) |'C(4,1)=A(4,1)  2800 "X=5:Y=0:1700 "A B C D" J=1 4 Y=2+3*(J-1) K=1 4 3X=4*K+1:C(J,K)>9 X=X-1 1700:;C(J,K) K J  X=0 J=1 4 2Y=2+3*(J-1):1700:(J); J:C=0 700 :X=0:Y=13 :1700:"COLUMN ROW NUMBER" #X=0:Y=14:1700 &2200:C$=K$ 0C$="A"C=1 :C$="B"C=2 DC$="C"C=3 NC$="D"C=4 X(X=8:1700:21004:R=K b)X=15:1700:21004:N=K lA(R,C)=N C(R,C)=A(R,C) v C=0 J=1 4 K=1 4 C(J,K)=0 C=1 K J  390  SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$):