home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 October / 1985-10.d64 / kaleidoscope (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  87 lines
  1. 10 poke56,28:clr:fori=0to7:readm(i):next:data1,4,25,128,2,10,60,255
  2. 20 poke36879,25:print"[144]":gosub450
  3. 30 rem * ml routine addresses *
  4. 40 kal=7169:a=7201:char=251:x=253:y=254
  5. 50 seed=kal+126:pokeseed,255*rnd(-ti)+1:rem * seed random # gen *
  6. 60 pokeseed+1,256*rnd(1):pokex,0:pokey,0:pokechar,160:gosub270
  7. 70 rem * intro page *
  8. 80 print"[147]      welcome to":print"    [213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  9. 90 print"    [221]kaleidoscope[221]"
  10. 100 print"    [202][192][192][192][192][192][192][192][192][192][192][192][192][203]":print"hit a key to continue"
  11. 110 gosub290:pokea,25:goto330
  12. 120 rem * main loop *
  13. 130 syskal:fori=1tod:next:geta$:ifa$=""then130
  14. 140 v=val(a$):ifa$="0"thend=1
  15. 150 ifv>0thend=2.4^v
  16. 160 ifa$="q"thenend
  17. 170 fori=0to7:ifa$=chr$(133+i)thenpokea,m(i)
  18. 180 nexti:ifa$="b"thengosub250
  19. 190 ifa$="c"thengosub270
  20. 200 ifa$=chr$(147)thenprintchr$(147):goto130
  21. 210 ifa$="h"then330
  22. 220 ifa$=" "thengosub290
  23. 230 goto130
  24. 240 rem * black and white *
  25. 250 poke7197,1:return
  26. 260 rem * color *
  27. 270 poke7197,7:return
  28. 280 rem * hit any *
  29. 290 geta$:ifa$<>""then290
  30. 300 geta$:ifa$=""then300
  31. 310 return
  32. 320 rem * help message *
  33. 330 print"[147]to control the display,type these characterswhile the kaleidoscopeis ";
  34. 350 print"running:"
  35. 360 print"f1-f8[146]:alter complexity"
  36. 370 print"0-9[146]  :alter speed"
  37. 380 print"b[146]    :black and white"
  38. 390 print"c[146]    :8 colors":print"space[146]:freeze display"
  39. 400 print"clr[146]  :clear screen":print"h[146]    :help!"
  40. 410 print"q[146]    :quit"
  41. 420 print" hit any key to start    the kaleidoscope";:gosub290:printchr$(147)
  42. 430 goto130
  43. 440 rem * load ml routines *
  44. 450 printchr$(147)"...loading ml"
  45. 460 s=0:c=7169:fori=ctoc+231:readx:pokei,x:s=s+x:next
  46. 470 ifs<>25910thenprint"error in data statements":end
  47. 480 return
  48. 490 data 173,33,28,133,165,32
  49. 500 data 34,28,32,91,28,32
  50. 510 data 34,28,32,91,28,198
  51. 520 data 165,208,240,238,0,28
  52. 530 data 173,0,28,41,7,133
  53. 540 data 252,96,128,32,44,28
  54. 550 data 32,66,28,32,44,28
  55. 560 data 96,32,173,28,32,75
  56. 570 data 28,32,173,28,32,83
  57. 580 data 28,32,173,28,32,75
  58. 590 data 28,32,173,28,96,165
  59. 600 data 253,164,254,133,254,132
  60. 610 data 253,96,169,20,56,229
  61. 620 data 253,133,253,96,169,20
  62. 630 data 56,229,254,133,254,96
  63. 640 data 32,110,28,144,7,32
  64. 650 data 110,28,144,28,176,35
  65. 660 data 32,110,28,144,43,176
  66. 670 data 50,14,128,28,46,127
  67. 680 data 28,144,8,173,128,28
  68. 690 data 73,45,141,128,28,96
  69. 700 data 59,172,198,253,16,4
  70. 710 data 169,20,133,253,96,230
  71. 720 data 253,165,253,201,21,208
  72. 730 data 4,169,0,133,253,96
  73. 740 data 198,254,16,4,169,20
  74. 750 data 133,254,96,230,254,165
  75. 760 data 254,201,21,208,4,169
  76. 770 data 0,133,254,96,32,194
  77. 780 data 28,165,251,160,0,145
  78. 790 data 163,169,120,24,101,164
  79. 800 data 133,164,165,252,145,163
  80. 810 data 96,169,30,133,164,165
  81. 820 data 253,24,105,1,133,163
  82. 830 data 166,254,160,0,169,22
  83. 840 data 133,2,32,221,28,198
  84. 850 data 2,208,249,96,24,138
  85. 860 data 101,163,133,163,152,101
  86. 870 data 164,133,164,96
  87.