home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_B.d64 / hilbert (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.2 KB  |  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.