home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1998 Special / special1988a.d64 / chainreaction (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  141 lines
  1. 10 y=30:dim u(y),h(y),l(y),j(y),t1(y),ca(y),cd(y),rt(y),tr(y)
  2. 20 poke 53269,0:print"[147]":poke 53280,11:poke 53281,11:y=rnd(-ti)
  3. 30 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke 835,0
  4. 40 poke 53272,peek(53272)and 240 or 12
  5. 50 poke 836,208:poke 830,0:poke 831,216:poke828,0:poke 829,56:poke 56334,0
  6. 60 poke 1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke 1,55:poke56334,1
  7. 70 for i=12296 to 12487:read j:poke i,j:next
  8. 80 yy=7:xx=12:gosub530:print"[159]cuagi mdacogki"
  9. 90 yy=11:xx=8:gosub530:print"ibjpdm ke lhaydmn [158]q[159] km [158]r
  10. 100 [141]700:[139] kt$[179][177]"1" [175] kt$[179][177]"2" [167]100
  11. 110 np[178][197](kt$):[139] np[178]2 [167] yy[178]15:[137]160
  12. 120 computer[178]1:yy[178]15:xx[178]9:[141]530:[153]"openckjlbodm egmno sysyopen km sysi
  13. 130 gosub700:if kt$<>"y" and kt$<>"n" then130
  14. 140 tu=0:if kt$="y" then tu=1
  15. 150 goto190
  16. 160 yy=15:xx=7:gosub530:print"[159]ibjpdm ke skynogctn [158]q[159] km [158]r
  17. 170 [141]700:[139] kt$[179][177]"1" [175] kt$[179][177]"2" [167]170
  18. 180 [151] 828,[197](kt$)[171]1:f2[178][194](828)
  19. 190 yy[178]19:xx[178]14:[141]530:[153]"openlhdand wago"
  20. 200 m$[178]"(NULL)usrusr(NULL)cmdcmdcmdcmdsgn  +cmdcmdcmdcmdsgn  +cmdcmdcmdcmd(NULL)andandsqr":b$[178]"ononon":pl(0)[178]15:pl(1)[178]10
  21. 210 p$(1)[178]"v cmdcmd  ":p$(2)[178]"v cmdcmd v":p$(3)[178]"vvcmdcmd v":p$(4)[178]"vvcmdcmdvv"
  22. 220 up[178]79:lm[178]91:rm[178]251:dn[178]207:cl(0)[178]15:cl(1)[178]10:mv[178]1:ma[178]1:md[178]1
  23. 230 [129] j[178]0 [164] 24:[151] 54272[170]j,0:[135] x:[151] 54272[170]j,x:[130]
  24. 240 [129] v[178]1 [164] 30:[135] j(v):[130]
  25. 250 sv[178]53248:mx[178]79:my[178]92:[151] 2042,11:[129] i[178]0 [164]62:[135] q:[151] 704[170]i,q:[130]
  26. 260 [129] i[178]1 [164] 30:[135] cd(i),ca(i):[130]
  27. 270 [151] 53280,6:[151] 53281,6:[153] [199](31)"load";
  28. 280 [129] i[178]0 [164] 23:[153]"                                       "
  29. 290 [151] 1063[170](40[172]i),160:[151] 55335[170](40[172]i),6:[130]
  30. 300 [153]"                                       stop":[151]2023,160:[151]56295,6
  31. 310 [151] 53281,11:[153] [166]14)"opencuagi mdacogkistop"
  32. 320 [129] i[178]1 [164] 5:[153] [166]8)m$b$m$b$m$b$m$b$m$b$m$:[130]
  33. 330 [153]"                                ":[151] sv[170]41,7:[141]690
  34. 340 x[178]tu:[137]370
  35. 350 fg[178]0:[129] h[178]1 [164] 30:[139] u(h)[177][178]j(h) [167] fg[178]1:[141]710
  36. 360 [130]:[139] fg[178]1 [167]350
  37. 370 x[178][171]x[170]1:pn[178]pn[170]1
  38. 380 [139] computer [175] [168] x [167] [151] 53269,0:rd[178]0:[137]970
  39. 390 [151] sv[170]41,cl(x):[137]540
  40. 400 h[178]mv
  41. 410 [139] l(h)[179][177]x[170]1 [175] l(h) [167]380
  42. 420 u(h)[178]u(h)[170]1:fs(x)[178]fs(x)[170]1:[139] l(h)[178]0 [167] l(h)[178]x[170]1
  43. 430 [141]510:[153] p$(u(h))
  44. 440 [139] u(h)[177][178]j(h) [167] [151] 53269,0:[141]710:[137]350
  45. 450 [137]370
  46. 460 xx[178]15:yy[178]24:[141]530:[153]"openfajd waitopenkxdm":[129] z[178]1 [164] 2000:[130]
  47. 470 xx[178]8:yy[178]24:[141]530:[153]"lmdnn waitopenegmdpbooki waitopenok waitopenlhay"
  48. 480 [146] 56320[170]x[172]f2,16,16:[138]
  49. 490 [139] l(o)[179][177]x[170]1 [167] fs(x)[178]fs(x)[170]u(o):fs([171]x[170]1)[178]fs([171]x[170]1)[171]u(o)
  50. 500 l(o)[178]x[170]1:u(o)[178]u(o)[170]1:[141]520:[153] p$(u(o)):[142]
  51. 510 xx[178]5[170](4[172]ca(h)):yy[178]4[172]cd(h):[151] 646,cl(x):[141]530:[142]
  52. 520 xx[178]5[170](4[172]ca(o)):yy[178]4[172]cd(o):[151] 646,cl(x):[141]530:[142]
  53. 530 [151] 783,0:[151] 781,yy:[151] 782,xx:[158] 65520:[142]
  54. 540 [151] 53269,4
  55. 550 jy[178]15[171]([194](56320[170]x[172]f2)[175]15):jb[178][194](56320[170]x[172]f2)[175]16
  56. 560 [139] jb[178]0 [167]400
  57. 570 [139] jy[178]8 [167] jy[178]3
  58. 580 [139] jy[179]1 [176] jy[177]4 [167]550
  59. 590 [145] jy [137]600,620,640,660
  60. 600 [139] mx[171]4[179]up [167]550
  61. 610 mx[178]mx[171]32:mv[178]mv[171]6:md[178]md[171]1:[137]680
  62. 620 [139] mx[170]4[177]dn [167]550
  63. 630 mx[178]mx[170]32:mv[178]mv[170]6:md[178]md[170]1:[137]680
  64. 640 [139] my[170]4[177]rm [167]550
  65. 650 my[178]my[170]32:mv[178]mv[170]1:ma[178]ma[170]1:[137]680
  66. 660 [139] my[171]4[179]lm [167]550
  67. 670 my[178]my[171]32:mv[178]mv[171]1:ma[178]ma[171]1
  68. 680 [141]690:[137]550
  69. 690 [151] sv[170]4,my:[151] sv[170]5,mx:[142]
  70. 700 kt$[178]"":[151] 198,0:[146] 198,1:[161] kt$:[142]
  71. 710 [151] 54276,64:[151] 54290,128:[151] 24276,65:[151] 54290,129:[129] v[178]1 [164] 4
  72. 720 [141]510:[151] 646,pl(x):[153]"oncmd"m$:[141]510:[153]"stoponcmd"m$
  73. 730 [129] td[178]1 [164] 125:[130]:[130]
  74. 740 u(h)[178]u(h)[171]j(h)
  75. 750 [139] u(h)[177]0 [167] [141]510:[153] p$(u(h)):[137]770
  76. 760 l(h)[178]0
  77. 770 [139] cd(h)[178]1 [167]790
  78. 780 o[178]h[171]6:[141]490
  79. 790 [139] ca(h)[178]1 [167]810
  80. 800 o[178]h[171]1:[141]490
  81. 810 [139] ca(h)[178]6 [167]830
  82. 820 o[178]h[170]1:[141]490
  83. 830 [139] cd(h)[178]5 [167]850
  84. 840 o[178]h[170]6:[141]490
  85. 850 [139] fs(0)[179]1 [176] fs(1)[179]1 [167]460
  86. 860 [142]
  87. 870 lp[178]0:[139] cd(h)[178]1 [167]890
  88. 880 [139] l(h[171]6)[178]2 [167] kz[178]h[171]6:[137]960
  89. 890 [139] ca(h)[178]1 [167]910
  90. 900 [139] l(h[171]1)[178]2 [167] kz[178]h[171]1:[137]960
  91. 910 [139] ca(h)[178]6 [167]930
  92. 920 [139] l(h[170]1)[178]2 [167] kz[178]h[170]1:[137]960
  93. 930 [139] cd(h)[178]5 [167] [142]
  94. 940 [139] l(h[170]6)[178]2 [167] kz[178]h[170]6:[137]960
  95. 950 [142]
  96. 960 lp[178]1:[142]
  97. 970 [129] i[178]1 [164] 30:rt(i)[178]0:tr(i)[178]0:[130]
  98. 980 xt[178]0:[129] i[178]1 [164] 30:[139] l(i)[178]2 [167]1000
  99. 990 t1(xt[170]1)[178]i:xt[178]xt[170]1
  100. 1000 [130]:rd[178]0
  101. 1010 xx[178]16:yy[178]24:[141]530:[153]"openougitgif"
  102. 1020 [129] i[178]30 [164] 30[171]xt [169][171]1:rt(i)[178]0:[130]:[129] i[178]1 [164] xt
  103. 1030 h[178]t1(i):[141]870
  104. 1040 [139] fg[178]1 [175] lp [175] u(h)[177]0 [167]1220
  105. 1050 [139] u(h)[170]1[178]j(h) [175] lp[178]1 [175] u(kz)[170]1[178]j(kz) [167] rt(i)[178]6:[137]1170
  106. 1060 [139] u(h)[170]1[178]j(h) [175] lp[178]1 [167] rt(i)[178]2:[137]1170
  107. 1070 [139] u(h)[170]1[178]j(h) [175] lp[178]0 [167] rt(i)[178]1:[137]1170
  108. 1080 [139] j(h)[178]2 [175] lp[178]0 [175] u(h)[178]1 [167] rt(i)[178]1:[137]1170
  109. 1090 [139] j(h)[178]2 [175] lp[178]0 [175] u(h)[178]0 [167] rt(i)[178]4:[137]1170
  110. 1100 [139] j(h)[178]2 [175] lp[178]1 [175] u(h)[178]1 [167] rt(i)[178]4:[137]1170
  111. 1110 [139] u(kz)[170]1[178]j(kz) [167] rt(i)[178]1:[137]1170
  112. 1120 [139] u(h)[170]2[177][178]j(h) [175] lp[178]1 [175] u(kz)[170]1[179] j(kz) [167] rt(i)[178]5:[137]1170
  113. 1130 [139] u(h)[170]2[177][178]j(h) [175] lp[178]0 [167] rt(i)[178]3:[137]1170
  114. 1140 [139] u(h)[170]2[177][178]j(h) [167] rt(i)[178]2:[137]1170
  115. 1150 [139] lp[178]0 [167] rt(i)[178]2:[137]1170
  116. 1160 rt(i)[178]1
  117. 1170 [130] i:tc[178]1:zt[178]0:ab[178]6
  118. 1180 [129] i[178]1 [164] xt:[139] rt(i)[178]ab [167] tr(tc)[178]i:zt[178]zt[170]1:tc[178]tc[170]1
  119. 1190 [130]:[139] zt[177]0 [167]1210
  120. 1200 ab[178]ab[171]1:[137]1180
  121. 1210 dh[178][181](zt[172][187](1))[170]1:hd[178]tr(dh):h[178]t1(hd)
  122. 1220 xx[178]15:yy[178]24:[141]530:[153]"           ":fg[178]fg[170]1:[137]410
  123. 1230 [131] 126,102,102,126,102,102,102,0,102,102,102,102,102,102,126,0
  124. 1240 [131] 126,98,96,96,96,98,126,0,126,98,96,120,96,98,126,0,126,98
  125. 1250 [131] 98,120,96,96,96,0,126,102,96,110,102,102,126,0,126,90,24,24
  126. 1260 [131] 24,90,126,0,96,96,96,96,98,98,126,0,102,118,126,126,110,102
  127. 1270 [131] 102,0,99,119,127,107,99,99,99,0,126,102,102,102,102,102,126
  128. 1280 [131] 0,126,102,102,126,96,96,96,0,126,102,102,126,120,108,102,0
  129. 1290 [131] 126,102,96,126,6,102,126,0,126,90,24,24,24,24,24,0,124,102
  130. 1300 [131] 102,124,102,102,124,0,56,24,24,24,24,24,60,0,60,54,6,12,48
  131. 1310 [131] 48,62,0,30,12,12,12,12,108,124,0,230,108,120,112,120,108
  132. 1320 [131] 230,0,231,102,102,126,102,102,231,0,0,8,16,124,222,190,254
  133. 1330 [131] 124,198,198,198,214,254,238,198,0,231,102,102,102,102,60,24
  134. 1340 [131] 0,0,4,0,12,64,10,0,0,0,0,12,64,12,0,0,4,0,12,128,12,0,0,50
  135. 1350 [131] 244,47,2,3,3,3,3,2,3,4,4,4,4,3,3,4,4,4,4,3,3,4,4,4,4,3,2,3
  136. 1360 [131] 3,3,3,2,0,0,0,0,0,0,120,0,30,192,0,3,192,0,3,192,0,3,0,0,0
  137. 1370 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,192,0
  138. 1380 [131] 3,192,0,3,192,0,3,120,0,30,0,0,0,1,1,1,2,1,3,1,4,1,5,1,6,2,1
  139. 1390 [131] 2,2,2,3,2,4,2,5,2,6,3,1,3,2,3,3,3,4,3,5,3,6,4,1,4,2,4,3,4
  140. 1400 [131] 4,4,5,4,6,5,1,5,2,5,3,5,4,5,5,5,6
  141.