home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9208a.d64 / maqu (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  669b  |  21 lines

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