home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24b.d64 / hilbert (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  68 lines
  1. 1 DIMW%(7):DIMB%(7)
  2. 10 INPUT"TIEFE (1-7)";O%
  3. 20 IFO%<1ORO%>7THEN10
  4. 30 M%=2^(7-O%)
  5. 90 :
  6. 100 :
  7. 101 : REM   HAUPTPROGRAMM
  8. 102 :
  9. 120 GOSUB10000:GOSUB200:POKE198,0:WAIT198,1:GOSUB14000:GOTO10
  10. 130 :
  11. 160 :
  12. 165 : REM   HILBERT-PROZEDUR
  13. 170 :
  14. 200 IFO%=0THENO%=O%+B%:RETURN
  15. 205 W%=W%-W%(O%):O%=O%-B%:W%(O%)=-W%(O%+B%):GOSUB200
  16. 220 GOSUB11400:W%=W%+W%(O%):O%=O%-B%:W%(O%)=W%(O%+B%):GOSUB200
  17. 260 GOSUB11400:O%=O%-B%:W%(O%)=W%(O%+B%):GOSUB200
  18. 280 W%=W%+W%(O%):GOSUB11400:O%=O%-B%:W%(O%)=-W%(O%+B%):GOSUB200
  19. 290 W%=W%-W%(O%):O%=O%+B%:RETURN
  20. 900 :
  21. 910 :
  22. 10000 :
  23. 10001 : REM  INITIALISIEREN
  24. 10002 :
  25. 10005 POKE56576,198:POKE56578,63
  26. 10020 POKE53272,120:POKE648,92
  27. 10030 POKE53265,187:I%=24576
  28. 10040 POKEI%,0
  29. 10045 I%=I%+1:IFI%<=32575GOTO10040
  30. 10047 I%=23552
  31. 10050 POKEI%,16
  32. 10052 I%=I%+1:IFI%<=24551GOTO10050
  33. 10055 W%=1:A%=4:B%=1:Y%=170:X%=60
  34. 10057 W%(O%)=1
  35. 10062 B%(7)=1:B%(6)=2:B%(5)=4:B%(4)=8:B%(3)=16:B%(2)=32:B%(1)=64:B%(0)=128
  36. 10070 RETURN
  37. 10075 :
  38. 10077 :
  39. 10078 : REM    PLOT
  40. 10080 :
  41. 11000 J%=(X%AND504)+40*(Y%AND248)+(Y%AND7)+24576
  42. 11020 POKEJ%,PEEK(J%)ORB%(X%AND7):RETURN
  43. 11400 :
  44. 11401 :
  45. 11402 : REM    MOVE
  46. 11403 :
  47. 11410 I%=M%
  48. 11420 ONW%AND3GOTO11520,11540,11560
  49. 11440 :
  50. 11500 X%=X%+1:GOSUB11000
  51. 11505 I%=I%-1:IFI%THEN11500
  52. 11510 RETURN
  53. 11520 Y%=Y%-1:GOSUB11000
  54. 11525 I%=I%-1:IFI%THEN11520
  55. 11530 RETURN
  56. 11540 X%=X%-1:GOSUB11000
  57. 11545 I%=I%-1:IFI%THEN11540
  58. 11550 RETURN
  59. 11560 Y%=Y%+1:GOSUB11000
  60. 11565 I%=I%-1:IFI%THEN11560
  61. 11570 RETURN
  62. 13140 :
  63. 13150 :
  64. 14000 POKE53265,27:POKE53272,21
  65. 14005 POKE648,4
  66. 14010 POKE56578,63:POKE56576,151
  67. 14020 RETURN
  68.