home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 August / 1986-08.d64 / kaleido_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  102 lines
  1. 10 poke56,28:clr:fori=0to7:readm(i):next:data1,4,25,128,2,10,60,255
  2. 20 poke36879,8:print"[158]":vl=15:s1=36875:gosub460
  3. 30 kal=7169:a=7201:ch=251:x=253:y=254
  4. 40 se=kal+126:pokese,255*rnd(-ti)+1
  5. 50 pokese+1,256*rnd(1):pokex,0:pokey,0:pokech,228:gosub290
  6. 60 print"[147]      welcome to":print"    [213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  7. 70 print"    [221]kaleidoscope[221]"
  8. 80 print"    [202][192][192][192][192][192][192][192][192][192][192][192][192][203]":print"hit a key to continue"
  9. 90 gosub300:pokea,25:goto330
  10. 100 ifa$="r"thengosub920
  11. 110 pokes1+3,vl:syskal:pokes1,128+rnd(1)*128:fori=1tod:next:geta$:ifa$=""then110
  12. 120 v=val(a$):ifa$="0"thend=1
  13. 130 ifv>0thend=2.4^v
  14. 140 ifa$="q"thengosub930:end
  15. 150 fori=0to7:ifa$=chr$(133+i)thenpokea,m(i)
  16. 160 nexti:ifa$="b"thengosub270
  17. 170 ifa$="c"thengosub290
  18. 180 ifa$=chr$(19)thenprint"[147]":goto110
  19. 190 ifa$="h"thengosub930:goto330
  20. 200 ifa$=" "thengosub300
  21. 210 ifa$="[208]"andpeek(7197)=1thengosub940:wait198,1
  22. 220 ifa$="[196]"andpeek(7197)=1thenfg=1:gosub940:wait198,1
  23. 230 ifa$="s"thenvl=abs(vl-15):pokes1+3,vl
  24. 240 ifa$="p"thengosub880
  25. 250 goto100
  26. 260 rem b&w
  27. 270 poke36879,110:poke7197,1:return
  28. 280 rem color
  29. 290 poke36879,8:poke7197,7:return
  30. 300 geta$:ifa$<>""then300
  31. 310 geta$:ifa$=""then310
  32. 320 return
  33. 330 print"[147]      controls"
  34. 340 print"shift-p/d[146]:print/2-wide";
  35. 350 print"f1-f8[146]:alter complexity"
  36. 360 print"0-9[146]  :alter speed"
  37. 370 print"b[146]/c[146]  :b&w or color"
  38. 380 print"space[146]:freeze display"
  39. 390 print"clr[146]  :clear screen":print"h[146]    :help!"
  40. 400 print"s[146]    :silence toggle"
  41. 410 print"p[146] :program a character"
  42. 420 print"r[146] :random characters"
  43. 430 print"q[146] :quit"
  44. 440 print"  hit a key to start";:gosub300:print"[147]"
  45. 450 goto110
  46. 460 print"[147]...loading ml":c=7169:fori=ctoc+231:readx:pokei,x:s=s+x:next
  47. 470 ifs<>25910thenprint"error in data.":end
  48. 480 return
  49. 490 data 173,33,28,133,165,32
  50. 500 data 34,28,32,91,28,32
  51. 510 data 34,28,32,91,28,198
  52. 520 data 165,208,240,238,0,28
  53. 530 data 173,0,28,41,7,133
  54. 540 data 252,96,128,32,44,28
  55. 550 data 32,66,28,32,44,28
  56. 560 data 96,32,173,28,32,75
  57. 570 data 28,32,173,28,32,83
  58. 580 data 28,32,173,28,32,75
  59. 590 data 28,32,173,28,96,165
  60. 600 data 253,164,254,133,254,132
  61. 610 data 253,96,169,20,56,229
  62. 620 data 253,133,253,96,169,20
  63. 630 data 56,229,254,133,254,96
  64. 640 data 32,110,28,144,7,32
  65. 650 data 110,28,144,28,176,35
  66. 660 data 32,110,28,144,43,176
  67. 670 data 50,14,128,28,46,127
  68. 680 data 28,144,8,173,128,28
  69. 690 data 73,45,141,128,28,96
  70. 700 data 59,172,198,253,16,4
  71. 710 data 169,20,133,253,96,230
  72. 720 data 253,165,253,201,21,208
  73. 730 data 4,169,0,133,253,96
  74. 740 data 198,254,16,4,169,20
  75. 750 data 133,254,96,230,254,165
  76. 760 data 254,201,21,208,4,169
  77. 770 data 0,133,254,96,32,194
  78. 780 data 28,165,251,160,0,145
  79. 790 data 163,169,120,24,101,164
  80. 800 data 133,164,165,252,145,163
  81. 810 data 96,169,30,133,164,165
  82. 820 data 253,24,105,1,133,163
  83. 830 data 166,254,160,0,169,22
  84. 840 data 133,2,32,221,28,198
  85. 850 data 2,208,249,96,24,138
  86. 860 data 101,163,133,163,152,101
  87. 870 data 164,133,164,96
  88. 880 gosub930:print"      :[157][157][157][157][157][157][157]";:input"#";nu$:ifnu$="r  "then910
  89. 890 nu=val(nu$):ifnu<0ornu>255then880
  90. 900 pokech,nu
  91. 910 print"       ":print"              ":return
  92. 920 pokech,peek(162):return
  93. 930 pokes1+3,0:return
  94. 940 ss=38401:cc=22:rr=20:ww=20:gosub930
  95. 950 open4,4:forg=0torr:print#4,chr$(15);:rem 1525, 801, 803 printers
  96. 960 iffgthenforf=1to2:print#4,chr$(14);
  97. 970 forn=ss+g*cctoss+g*cc+ww:q=peek(n)
  98. 980 if(qand15)=1thenprint#4,"x";
  99. 990 if(qand15)<>1thenprint#4," ";
  100. 1000 nextn:print#4,chr$(8):iffgthennextf
  101. 1010 nextg:forn=1to4:print#4:next:close4:fg=0:return
  102.