home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / BUGS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-05-15  |  7.0 KB  |  241 lines
  1. 1 REM"STEVE PROPER
  2. 2 [143]"NOVEMBER '84
  3. 3 REM"
  4. 10 [137] 1350
  5. 20 :
  6. 30 [143] GAME LOOP ***********
  7. 40 :
  8. 50 X(C)[178]X(C)[170]D:[139]X(C)[177]255[167]1660
  9. 60 [139]X(C)[171]D[173]2[177]0[167][151]V[170]V(C),X(C)[171]D[173]2
  10. 70 P[178][194](56320):[139]P[179]117[167]460
  11. 80 Y[178]Y[170]P(P):[139]Y[177]233[176]Y[179]64[167]Y[178]Y[171]P(P)
  12. 90 X[178]X[170]P(P[171]20):[139]X[177]255[176]X[179]46[167]X[178]X[171]P(P[171]20)
  13. 100 [151]V[170]11,Y:[151]V[170]10,X:[151]2040,([194](2040)[176]2)[171]1
  14. 110 [139]X(C)[177]0[167][151]V[170]V(C),X(C):[151]2040[170]C,([194](2040[170]C)[176]2)[171]1
  15. 120 [139]DA[178]3[167]350
  16. 130 C[178]C[170]1:[139]C[179]5[167]50
  17. 140 C[178]1:C2[178]C2[170]1:[139]C2[179]C3[167]50
  18. 150 :
  19. 160 [143] BEE/MOSQUITO ********
  20. 170 :
  21. 180 [139]DA[167][145]DA[137]230,270
  22. 190 X(5)[178]0:DANGER[178][181]([187](1)[172]2)[170]1:[151]V[170]21,[194](V[170]21)[176]O(5)
  23. 200 [139]DA[178]2[167]O(5)[178]1:[151]S[170]4,21:[151]S[170]1,78:[151]S[170]15,6:[151]2040,198:[137]270
  24. 210 O(5)[178]64:[151]S[170]1,100:[151]S[170]15,28:[151]S[170]4,19
  25. 220 :
  26. 230 Y(5)[178][181]([187](1)[172]12)[170]130:[151]V[170]13,Y(5):X(5)[178]X(5)[170]15
  27. 240 [139]X(5)[179]255[167][151]V[170]12,X(5):[137]50
  28. 250 [137]1660
  29. 260 :
  30. 270 Y(5)[178]130:[151]V[170]1,130:[139][181]([187](TI)[172]14)[178]1[167]340
  31. 280 [139]X(5)[177]X[167][139][181]([187](TI)[172]7)[178]1[167]340
  32. 290 X(5)[178]X(5)[170]12:[139]X(5)[179]255[167][151]V,X(5):[151]2040,([194](2040)[176]2)[171]1:[137]50
  33. 300 [137]1660
  34. 310 :
  35. 320 [143] BEE ATTACK *************
  36. 330 :
  37. 340 [141]740:[153]"";[163]11)"STOPBEE IS ATTACKING ":DA[178]3
  38. 350 T[178][194](2040):[139]X(5)[177]X[167]X(5)[178]X(5)[171]6:[139]T[177]196[167][151]2040,13
  39. 360 [139]X(5)[179]X[167]X(5)[178]X(5)[170]6:[139]T[179]196[167][151]2040,198
  40. 370 [139]Y(5)[177]Y[167]Y(5)[178]Y(5)[171]6
  41. 380 [139]Y(5)[179]Y[171]10[167]Y(5)[178]Y(5)[170]6
  42. 390 [151]V,X(5):[151]V[170]1,Y(5)
  43. 400 [139]X[171]18[179]X(5)[175]X[170]18[177]X(5)[175]Y[171]14[179]Y(5)[175]Y[170]14[177]Y(5)[167]DA[178]4:[137]1670
  44. 410 C[178]C[170]1:[139]C[179]5[167]50
  45. 420 C[178]1:[137]50
  46. 430 :
  47. 440 [143] FIRE BUTTON SET UP *******
  48. 450 :
  49. 460 P[178]P[170]16:[151]S[170]12,32:[151]S[170]11,129:[151]S[170]13,33:[151]S[170]8,40:[151]S[170]7,200
  50. 470 C4[178]C4[170]1:[139]C4[178]3[167]LED[178]LED[171]1:C4[178]0:[151]LED,0:[139]LED[178]55353[167]DA[178]5:[137]1670
  51. 480 [151]V[170]21,[194](V[170]21)[176]128:[151]V[170]14,X[171]45:[151]V[170]15,Y[171]7
  52. 490 [139]DA[178]1[167][139]Y(5)[179]Y[171]16[176]Y(5)[177]Y[176]X[171]10[179]X(5)[176]X[171]40[177]X(5)[170]25[167]570
  53. 500 [139]Y(5)[179]Y[171]16[176]Y(5)[177]Y[176]5[170]X[179]X(5)[176]X[171]45[177]X(5)[170]25[167]570
  54. 510 [139]DA[178]2[167]SC[178]SC[170]6
  55. 520 [139]DA[178]3[167][141]740:[141]760
  56. 530 SC[178]SC[170]12:[151]V[170]13,0:[151]V,0:[151]V[170]1,0:[151]S[170]4,0:DA[178]0:C2[178]0:C3[178][181]([187](TI)[172]10)
  57. 540 :
  58. 550 [143] IF ANT IS HIT LOOP ********
  59. 560 :
  60. 570 [129]I[178]1[164]4:[151]2040,([194](2040)[176]2)[171]1
  61. 580 [139]5[170]X[177]X(I)[175]X[171]35[179]X(I)[170]35[175]Y(I)[177]Y[171]20[175]Y(I)[179]Y[170]2[167][141]700
  62. 590 [139]H(I)[178]6[167][151]V[170]V(I),0:H(I)[178]0:H(6)[178]H(6)[170]1:[141]680
  63. 600 [130]I
  64. 610 [151]S[170]11,0:[151]S[170]12,0:[151]V[170]21,[194](V[170]21)[175](255[171]128):[151]V[170]15,0
  65. 620 [151]S[170]8,0:[151]S[170]7,200
  66. 630 [139]H(6)[177]3[167]W[178]W[170]1:[151]V[170]15,0:[137]820
  67. 640 [137]80
  68. 650 :
  69. 660 [143] USEFUL SUBROUTINES *********
  70. 670 :
  71. 680 X(I)[178][181]([187](TI)[172]170)[170]1:X(I)[178]X(I)[171]X(I)[172]2
  72. 690 Y(I)[178]([181]([187](TI)[172]55)[170]1)[170]164:[151]V[170]V(I)[170]1,Y(I):[142]
  73. 700 H(I)[178]H(I)[170]1:[151]V[170]39[170]I,C(H(I)):SC[178]SC[170]1:[142]
  74. 710 [151]V,0:[151]V[170]1,0:[151]V[170]12,0:[151]V[170]13,0
  75. 720 DA[178]0:C3[178]20:X(5)[178]0:Y(5)[178]0:[151]V[170]21,[194](V[170]21)[175](255[171]O(I)):[142]
  76. 730 [129]SL[178]1[164]2000:[130]
  77. 740 [153]"STOP                                       ":[142]:[143] 38 SPACES
  78. 750 [141]740:[153]"STOP";[163]11)"WAVE:"W;"COMPLETED":[142]
  79. 760 T[178][181]([187](TI)[172]6)[172]10:[153]"";[163]11)"BONUS POINTS:"T:SC[178]SC[170]T[170]6:[142]
  80. 770 [153]"WAITTAB(USRFRENEWPOSANDTO ";:[142]
  81. 780 [153]"ANDPOSNEWWAITFREUSRTAB( ";:[142]
  82. 790 :
  83. 800 [143] WAVE SET UP *************
  84. 810 :
  85. 820 [129]I[178]1[164]5:H(I)[178]0:[130]:H(6)[178]H(6)[171]4
  86. 830 [151]S[170]5,255:[151]S[170]24,15:C[178]1
  87. 840 [139]D[179]20[167]D[178]D[170]1
  88. 850 [153]"STOP";[163]11)"SPRAY:    SYS       ":LED[178]55364
  89. 860 [151]V[170]21,255:[141]750:[137]50
  90. 870 :
  91. 880 [143] NEW GAME SET UP *********
  92. 890 :
  93. 900 [129]I[178]1[164]4:[151]V[170]39[170]I,9:[130]:[141]740:SC[178]0:W[178]0:D[178]DL:DA[178]0:[151]53281,4
  94. 910 X(1)[178]0:X(2)[178][171]60:X(3)[178][171]120:X(4)[178][171]180:H(6)[178]4
  95. 920 [129]I[178]1[164]4:Y(I)[178]([181]([187](TI)[172]55)[170]1)[170]164:[151]V[170]V(I)[170]1,Y(I):[130]
  96. 930 [142]
  97. 940 :
  98. 950 [143] SET UP *********************
  99. 960 :
  100. 970 [153][199](142);"LOAD"[166]13)"15 SECOND SET UP"[166]27)"PLEASE WAIT"
  101. 980 [134]P(255):V[178]53248:S[178]54272:Y[178]150:X[178]150:L[178][171]5:C3[178]10
  102. 990 O(1)[178]2:O(2)[178]4:O(3)[178]8:O(4)[178]16
  103. 1000 [129] I[178]1[164]15:[151]V[170]I,0:[130]
  104. 1010 [129]I[178]1[164]4:[135]V(I):[130]
  105. 1020 [129]I[178]1[164]6:[135]C(I):[130]
  106. 1030 [129]I[178]1[164]15:[135]A,B:P(A)[178]B:[130]
  107. 1040 [151]2040,197:[151]2041,193:[151]2042,194:[151]2043,193:[151]2044,194
  108. 1050 [151]2045,192:[151]2046,196:[151]2047,195:[151]V[170]28,161:[151]V[170]29,128
  109. 1060 [151]V[170]37,7:[151]V[170]38,1:[151]V[170]39,0:[151]V[170]44,0:[151]V[170]45,0
  110. 1070 I[178]12287
  111. 1080 [135]Q:[139]Q[177]255[167][129]T[178]1[164]Q[171]255:I[178]I[170]1:[151]I,0:[130]:[137]1080
  112. 1090 I[178]I[170]1:[151]I,Q:[139]I[179]12734[167]1080
  113. 1100 I[178]831
  114. 1110 [135]Q:[139]Q[177]255[167][129]T[178]1[164]Q[171]255:I[178]I[170]1:[151]I,0:[130]:[137]1110
  115. 1120 I[178]I[170]1:[151]I,Q:[139]I[179]958[167]1110
  116. 1130 [151]53265,[194](53265)[175]239:[143] SCREEN BLANKING
  117. 1140 [153]"";:[129]I[178]1[164]80:[153]"STOP ";:[130]
  118. 1150 [129]I[178]1[164]248:[153]" ";:[130]
  119. 1160 [141]780:[141]770:[129]I[178]1[164]18:[153]" ";:[130]
  120. 1170 [141]780:[129]I[178]1[164]15:[153]" ";:[130]:[141]770:[141]780
  121. 1180 [153]"TAB(USR":[129]I[178]1[164]6:[153]:[130]
  122. 1190 [129]I[178]1664[164]1703:[151]I,98:[151]I[170]S,5:[130]I
  123. 1200 [129]I[178]1[164]31:[153]" ";:[130]
  124. 1210 [129]Z[178]1[164]288:[153]" ";:[130]:[153]"":[151]2023,160:[151]56295,5
  125. 1220 [153]"STOP":[129]I[178]1[164]7:[153]:[130]
  126. 1230 [153][163]32)"STEP    (null)",
  127. 1240 [153][163]31)"STEP      (null)",
  128. 1250 [153][163]32)"TAB(TAB(TAB(TAB(TAB(TAB(WAIT",
  129. 1260 [153][163]32)"  STOP   STOP ",
  130. 1270 [153][163]32)"      ",
  131. 1280 [153][163]72)"  STOP   STOP ",
  132. 1290 [153][163]32)"      WAIT",
  133. 1300 [151]53281,4:[151]53265,[194](53265)[176]16:[143] SCREEN BLANKING
  134. 1310 [129]I[178]0[164]24:[151]S[170]I,0:[130]:[141]900:[137]820
  135. 1320 :
  136. 1330 [143] INSTRUCTIONS **************
  137. 1340 :
  138. 1350 [153][199](142);"LOADSYS";:[151]657,128:[151]53280,0:[151]53281,6
  139. 1360 [153][163]13)"*** BUGS! ****"
  140. 1370 [153]"SELECT STARTING DIFFICULTY:"
  141. 1380 [153]"F1WAIT BEGINNER"
  142. 1390 [153]"F3WAIT INTERMEDIATE"
  143. 1400 [153]"F5WAIT PROFESSIONAL"
  144. 1410 P[178][194](203):[139][194](56320)[178]111[167]P[178]4
  145. 1420 [139]P[179]4[176]P[177]6[167]1410
  146. 1430 [139]P[178]4[167]DL[178]5
  147. 1440 [139]P[178]5[167]DL[178]11
  148. 1450 [139]P[178]6[167]DL[178]18
  149. 1460 [139]P[177]4[167]970
  150. 1470 [153]"LOADINSTRUCTIONS:"
  151. 1480 [153]"GIANT, MUTANT, KILLER BUGS! ARE TAKING "
  152. 1490 [153]"OVER OUR HOMES.  USE YOUR JOYSTICK IN"
  153. 1500 [153]"CONTROL PORT #2 TO MANEUVER YOUR BUG "
  154. 1510 [153]"SPRAY. PREVENT ATTACKING ANTS,"
  155. 1520 [153]"MOSQUITOS AND BEES FROM BECOMING"
  156. 1530 [153]"UNINVITED HOUSE GUESTS. ANTS REQUIRE "
  157. 1540 [153]"SIX HITS TO ELIMINATE. MOSQUITOS AND "
  158. 1550 [153]"BEES REQUIRE ONLY ONE; BUT REMEMBER,"
  159. 1560 [153]"MOSQUITOS ARE HARD TO HIT AND BEES"
  160. 1570 [153]"SOMETIMES ATTACK. DO NOT GET OVER-"
  161. 1580 [153]"RUN, STUNG OR RUN OUT OF BUG"
  162. 1590 [153]"SPRAY!"
  163. 1600 [153][163]8)"PRESS FIRE TO BEGIN"
  164. 1610 [139][194](56320)[179][177]111[167]1610
  165. 1620 [137]970
  166. 1630 :
  167. 1640 [143] TAB KEEPER ***************
  168. 1650 :
  169. 1660 [141]740:[153]"";[163]11)"YOU'VE BEEN OVER RUN!      "
  170. 1670 [139]DA[178]4[167][153]"STOP";[163]11)"YOU HAVE BEEN STUNG!     "
  171. 1680 [139]DA[178]5[167][153]"STOP";[163]11)"RAN OUT OF SPRAY!        ":[151]S[170]7,0:[151]S[170]8,0
  172. 1690 [151]S[170]5,32:[151]S[170]19,32:[151]S[170]6,33:[151]S[170]20,33:[151]S[170]4,0:[151]S[170]1,0
  173. 1700 [129]I[178]255[164]1[169][171]1:[151]S[170]4,21:[151]S[170]1,I:[130]I:[151]S[170]4,0:[141]740
  174. 1710 [141]740:[153]"STOP";[163]11)"SCORE:"SC:[141]730
  175. 1720 [139]SC[178]HS[167][153]"STOP";[163]11)"TIED HIGH SCORE!":[141]730
  176. 1730 [139]HS[177]SC[167][153]"";[163]11)"STOPHIGH SCORE:";HS:[141] 730
  177. 1740 [141]740:[139]HS[179]SC[167][153]"STOP";[163]11)"NEW HIGH SCORE:";SC
  178. 1750 [139]HS[179]SC[167][129]I[178]1[164]255:[151]S[170]4,21:[151]S[170]1,I:[130]:[151]S[170]4,0:[141]730
  179. 1760 [141] 750:[141]730:[153]"";[163]11)"STOPPLAY AGAIN? (Y/N)":T[178]2:SL[178]0
  180. 1770 SL[178]SL[170]1:[161]A$:[139][194](56320)[179]117[167]A$[178]"Y"
  181. 1780 [139]SL[178]45[167][151]53281,T:T[178]T[170]1:SL[178]0:[139]T[178]16[167]1660
  182. 1790 [139]A$[179][177]"Y"[175]A$[179][177]"N"[167]1770
  183. 1800 [129]I[178]1[164]15:[151]V[170]I,0:[130]
  184. 1810 [139]SC[177]HS[167]HS[178]SC
  185. 1820 [139]A$[178]"Y"[167][141]900:[137]820
  186. 1830 [151]53280,254:[151]53281,246:[153]"LOADCONT";:[128]
  187. 1840 :
  188. 1850 [143] COLOR POINTERS *******
  189. 1860 [131]2,4,6,8
  190. 1870 [143] BUG COLOR ********
  191. 1880 [131]6,2,11,7,13,9
  192. 1890 [143] JOYSTICK DATA ************
  193. 1900 [131]113,-5,109,5,126,-5,125,5
  194. 1910 [131] 102,-5,98,5,101,-5,97,5,121,5,117,5
  195. 1920 [131]126,-5,122,-5,118,-5,103,-5,99,5
  196. 1930 :
  197. 1940 [143] SPRITE DATA *************
  198. 1950 :
  199. 1960 [131]259,12,0,0,12,0,0,12
  200. 1970 [131]0,0,8,0,0,42,0,0
  201. 1980 [131]42,0,0,29,0,0,55,0
  202. 1990 [131]0,29,0,0,55,0,0,29
  203. 2000 [131]0,0,55,0,0,29,0,0
  204. 2010 [131]55,0,0,29,0,0,55,0
  205. 2020 [131]0,29,0,0,55,0,0,42
  206. 2030 [131]0,0,42,271,72,0,0,72
  207. 2040 [131]0,0,40,0,0,28,30,60
  208. 2050 [131]126,63,126,243,127,255,255,255
  209. 2060 [131]255,255,254,255,190,124,190,159
  210. 2070 [131]1,9,0,1,9,0,0,136
  211. 2080 [131]128,282,9,0,0,9,0,0
  212. 2090 [131]10,0,0,28,30,60,126,63
  213. 2100 [131]126,243,127,255,255,255,255,255
  214. 2110 [131]254,255,190,124,190,156,0,72
  215. 2120 [131]64,0,72,64,0,136,128,277
  216. 2130 [131]160,0,0,10,0,0,64,160
  217. 2140 [131]0,20,20,0,1,64,128,146
  218. 2150 [131]10,20,32,32,129,73,4,36
  219. 2160 [131]16,33,0,129,4,0,8,32
  220. 2170 [131]0,65,0,0,16,0,0,128
  221. 2180 [131]302,16,0,0,16,295,15,0
  222. 2190 [131]0,3,192,0,0,240,0,0
  223. 2200 [131]60,0,0,15,0,4,3,20
  224. 2210 [131]38,38,89,102,89,149,102,102
  225. 2220 [131]85,38,25,149,4,3,4,0
  226. 2230 [131]3,0,0,12,270,0,271,63
  227. 2240 [131]0,0,63,252,0,0,255,0
  228. 2250 [131]4,3,20,38,38,89,102,89
  229. 2260 [131]149,102,102,85,38,25,149,4
  230. 2270 [131]3,4,0,3,0,0,12,270
  231. 2280 [131]0,271,3,252,0,63,252,0
  232. 2290 [131]255,0,20,192,16,101,152,152
  233. 2300 [131]86,101,153,85,153,153,86,100
  234. 2310 [131]152,16,192,16,0,192,0,0
  235. 2320 [131]48,280,48,0,0,240,0,3
  236. 2330 [131]192,0,15,0,0,60,0,0
  237. 2340 [131]240,0,20,192,16,101,152,152
  238. 2350 [131]86,101,153,85,153,153,86,100
  239. 2360 [131]152,16,192,16,0,192,0,0
  240. 2370 [131]48,271,0
  241.