1 POKE53281,0:POKE53280,0:PRINT"[147][158]   * * *   MAGISCHES  QUADRAT   * * *"
2 PRINT"             VON D. RUDOLPH"
3 PRINT:PRINT:POKE19,1:INPUT"   SEITENLAENGE   > ";L$:POKE19,0:L=VAL(L$)
4 IF INT(L/2)=(L/2)ORL<=1THEN 1
5 DIM F(L,L):Z=(L+3)/2:S=(L+1)/2:F(Z,S)=1:FOR X=2 TO L*L
6 IF Z+1>L AND S+1>L THEN Z=2:S=L:GOTO12
7 IF S+1>L THEN S=1:Z=Z+1:GOTO12
8 IF Z+1>L THEN Z=1:S=S+1:GOTO12
9 IF F(Z+1,S+1)<>0 AND Z+2>L THEN Z=1:GOTO12
10 IF F(Z+1,S+1)<>0 AND Z+2<=L THEN Z=Z+2:GOTO12
11 IFF(Z+1,S+1)=0THENZ=Z+1:S=S+1:
12 F(Z,S)=X:NEXTX:PRINT:PRINT:PRINT"   DRUCKER (J/N)"
13 GETA$:IFA$="J"THEN18
14 IFA$=""THEN13
15 PRINT"[147]":FORX=1TOL:FORY=1TOL
16 PRINT F(X,Y);:IF F(X,Y)<10THENPRINT" ";
17 :NEXTY:PRINT:PRINT:NEXTX:END
18 OPEN1,4:FORX=1TOL:FORY=1TOL
19 PRINT#1,F(X,Y);:IF F(X,Y)<10THENPRINT#1," ";
20 NEXTY:PRINT#1," ":PRINT#1,"":NEXTX:CLOSE1