home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / blimps (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  173 lines
  1. 0 ifa>.then3
  2. 1 poke53280,.:poke53281,.:print"[147]  beware of the barrage of balloons...
  3. 2 [139]a[178].[167]a[178]1:[147]"blimps.fnt",8,1
  4. 3 [151]55,255:[151]56,55:[156]:[151]53272,([194](53272)[175]240)[176]14
  5. 4 [141] 60100:[156]:[141]8000
  6. 5 [140]:[151]53281,14:[141] 3000:[141] 1000
  7. 7 pb[178]22:ms[178].:hm[178].:me[178]2:sc[178].
  8. 10 [141]300:[141]100:[141]200:[141]400:[139]me[177][171]1[167]10
  9. 15 [141]5000:[139]sc[177]hs[167]hs[178]sc
  10. 19 [137]5
  11. 20 km[178].:a[178][194](203)
  12. 22 [139]a[179][177]44[175]a[179][177]47[175]a[179][177]10[175]a[179][177]12[175]a[179][177]42[175]a[179][177]37[167][142]
  13. 24 [139]a[178]44[167]jv[178]8
  14. 25 [139]a[178]42[167]jv[178]9
  15. 26 [139]a[178]47[167]jv[178]4
  16. 27 [139]a[178]37[167]jv[178]5
  17. 28 [139]a[178]10[167]jv[178]1
  18. 30 [139]a[178]12[167]jv[178]2
  19. 32 km[178]1:[142]
  20. 100 mp[178]1024[170]px[170]40[172]py
  21. 120 y[178][181](35[172][187](1))
  22. 125 [153]"";
  23. 130 [139] y[178]0 [167] 155
  24. 135 [129] z[178]1[164]y
  25. 140 [153]"";
  26. 150 [130]z:pb[178]pb[171]1
  27. 155 [153]bp$
  28. 157 [139](pp[177]1103)[167][151]pp[171]40,32
  29. 160 [142]
  30. 200 pp[178]1024[170]px[170]40[172]py:pc[178][194](pp)
  31. 203 [139]pc[179][177]88[175]pc[179][177]32[175]pc[179][177]90[167]f[178]2:[137]250
  32. 204 [141]20:[139]km[167]206
  33. 205 jv[178]15[171]([194](56320)[175]15)
  34. 206 x1[178]px[170]xp(jv):y1[178]py[170]yp(jv)
  35. 207 [139] x1[179]1 [167] x1[178]3
  36. 208 [139] x1[177]37 [167] x1[178]35
  37. 209 [139] y1[179]1 [167] y1[178]1
  38. 210 [139]y1[177]23[167]y1[178]23
  39. 211 di[178][171]40:[139]yp(jv)[178]1[167]hm[178]hm[170]1:di[178][171]1
  40. 212 [139]yp(jv)[178][171]1[167]di[178]1
  41. 213 [139]xp(jv)[178]1[167]di[178][171]40
  42. 214 [139]xp(jv)[178][171]1[167]di[178]40
  43. 215 [139] yp(jv)[179][178]0 [167] 220
  44. 216 pp[178]55296[170]px[170]40[172]py:[151]pp,2
  45. 220 pp[178]1024[170]x1[170]40[172]y1:pc[178][194](pp)
  46. 222 pv[178][181]((y1[171]1)[172]10)
  47. 225 [139](pb[179]hm)[175]((yp(jv)[178]1)[176](yp(jv)[178].))[167]sc[178]sc[170]pv:np[178]np[170]1
  48. 230 [139]pc[179][177]88[175]pc[179][177]32[175]pc[179][177]90[167] f[178]2:[137]250
  49. 240 [139] y1[178]24 [167] f[178]1
  50. 250 [151]pp,88:[139]pp[177]1103[167][151]pp[171]40,90:[139]pp[177]1143[167][151]mp[171]40,90
  51. 260 pp[178]55296[170]x1[170]40[172]y1:[151]pp,2
  52. 270 px[178]x1:py[178]y1
  53. 280 [142]
  54. 300 [153]"verifyscore:"sc[163]14)"men:"me[163]22)"point value:"pv"cmd ";
  55. 305 [139]pv[179]10[167][153]" "
  56. 310 [142]
  57. 400 [139]f[178].[167][142]
  58. 410 me[178]me[171]1:[139]me[178][171]1[167][142]
  59. 420 [141]5000:[141]2000:[142]
  60. 500 [129]a[178]1[164]5:[153]gr$:[129]b[178]1[164]200:[130]:[153]gc$:[129]b[178]1[164]200:[130]:[130]:[142]
  61. 1000 [153]"load        totototototototototototototototototototototototo"
  62. 1002 [129]a[178]1[164]4:[153][166]7)"                         ":[130]:s1[178]sc
  63. 1004 sc[178]1024[170]7[170]40:[141]9000
  64. 1005 [153]" "bp$[163]34)bp$"         tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  65. 1007 [153]"             by ari umkoski"
  66. 1008 [153]"              your score:"s1
  67. 1010 [153]"              high score:"hs
  68. 1020 [153]"total # of blimps passed:"np
  69. 1040 [153]"       press i for instructions"
  70. 1090 [153]"    press space to begin, q to quit":[151]198,.
  71. 1092 a[178][194](203):[139]a[179][177]62[175]a[179][177]60[175]a[179][177]33[167]1092
  72. 1093 [139]a[178]33[167]7000
  73. 1094 [139]a[178]62[167][141]60000:[137]1090
  74. 1095 [141] 2000
  75. 1999 [142]
  76. 2000 [153]"load"
  77. 2005 [151]53281,7
  78. 2010 py[178]1:px[178]20
  79. 2020 pp[178]1024[170]px[170]40[172]py
  80. 2030 pc[178]55296[170]px[170]40[172]py
  81. 2040 [151]pp,88:[151]pc,2
  82. 2050 f[178]0:pb[178]22:hm[178].
  83. 2060 gr$[178]"               get ready              "
  84. 2070 gc$[178]"                                      "
  85. 2099 [141]500:[142]
  86. 3000 [129] k[178]0 [164] 10:[135] xp(k),yp(k):[130]
  87. 3010 [142]
  88. 3020 [131] 0,0,0,-1,0,1,0,0,-1,0,-1,-1,-1,1,0,0,1,0,1,-1,1,1
  89. 5000 [151]54276,.:[151]54277,26:[151]54278,10
  90. 5010 [151]54272,136:[151]54273,19
  91. 5020 [151]54296,15:[151]54276,129
  92. 5030 [129] jj[178]1 [164] 900:[130]jj
  93. 5040 [151]54276,0
  94. 5042 [129]a[178]40[164]10[169][171]10
  95. 5043 [151]54276,.:[151]54273,a
  96. 5044 [151]54276,17:[129]b[178]1[164]100:[130]
  97. 5046 [130]
  98. 5050 [142]
  99. 6000 [151]54277,26:[151]54278,10
  100. 6010 [151]54272,32:[151]54273,78
  101. 6020 [151]54296,15:[151]54276,17
  102. 6030 [129] jj[178]1 [164] 900:[130]jj
  103. 6040 [151]54276,0:[151]54296,0
  104. 6050 [142]
  105. 7000 [153]"load           blimp instructions"
  106. 7010 [153]"   you are a little man descending"
  107. 7020 [153]"with a parachute, leaving behind vapor"
  108. 7025 [153]"trails. your task is to avoid hitting"
  109. 7030 [153]"the barrage of balloons that float up"
  110. 7040 [153]"from under you."
  111. 7045 [153]"   each time you pass a balloon, you"
  112. 7046 [153]"receive a certain number of points,"
  113. 7050 [153]"depending on how low on the screen you"
  114. 7055 [153]"are. the lower you are, the higher the"
  115. 7070 [153]"points. each time you hit one of the"
  116. 7080 [153]"balloons, you lose one of your three"
  117. 7081 [153]"men. after all three men have crashed,"
  118. 7082 [153]"the game is over. you control the"
  119. 7084 [153]"parachutist by using a joystick in"
  120. 7085 [153]"port 2, or the keyboard."
  121. 7086 [153]"keyboard controls are:"
  122. 7087 [153]"    < - left            > - right"
  123. 7088 [153]"    k - up-left         l - up-right"
  124. 7089 [153]"    a - up              z - down"
  125. 7090 [153]"         press space for menu":[151]198,.
  126. 7092 a[178][194](203):[139]a[179][177]60[167]7092
  127. 7095 [137]1000
  128. 8000 [151]770,131:[151]771,164
  129. 8010 [151]88,.:[151]89,192
  130. 8020 [151]90,.:[151]91,192
  131. 8025 [151]781,33:[151]782,.
  132. 8030 [158]41964
  133. 8040 [151]88,254:[151]89,255
  134. 8050 [151]90,254:[151]91,255
  135. 8055 [151]781,33:[151]782,.
  136. 8060 [158]41964
  137. 8070 [151]59639,.:[151]1,53:[142]
  138. 9000 b1$[178]"()*+,-./0123456789:;<=>?"
  139. 9010 b2$[178]"letgotorunifrestoregosubreturnremstoponwaitloadsaveverifydefpokeprint#printcontlistclrcmdsysopen"
  140. 9020 b3$[178]"notstep+-*/^andor>=<sgnintabsusrfrepossqrrndlogexpcossin"
  141. 9030 [129]a[178]1[164][195](b1$):[151]sc[170]a,[198]([202](b1$,a,1))[170]128:[130]
  142. 9040 [129]a[178]1[164][195](b2$):[151]sc[170]a[170]40,[198]([202](b2$,a,1))[170]64:[130]
  143. 9050 [129]a[178]1[164][195](b3$):[151]sc[170]a[170]80,[198]([202](b3$,a,1))[170]64:[130]
  144. 9060 bp$[178]"rndlogexpcossin"
  145. 9070 [142]
  146. 60000 [153]"on are you sure you want to quit? (y/n)"
  147. 60010 a[178][194](203):[139]a[179][177]25[175]a[179][177]39[167]60010
  148. 60020 [139]a[178]25[167]60040
  149. 60030 [153]"on                                      ":[153]"on";:[142]
  150. 60040 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  151. 60050 [151]1,55:[139]er[179][177]63[167][128]
  152. 60060 [153]"load";:[151]53272,21:[147]"hello connect",8
  153. 60100 [151]53280,14:[151]53281,14
  154. 60110 [153]"load(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$";
  155. 60120 [129]a[178]1[164]23:[153]"(NULL)"[166]38)"(NULL)";:[130]
  156. 60130 [153]"mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)cmdsavetan"
  157. 60140 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]
  158. 60150 [153]"          loadstar presents:"
  159. 60160 [153]"                                   "
  160. 60170 [153]"                                    "
  161. 60180 [153]"                                    "
  162. 60190 [153]"                                    "
  163. 60200 [153]"                                    "
  164. 60210 sc[178]1024[170]8[172]40[170]7:[141]9000
  165. 60220 [153]"           by  ari umkoski          "
  166. 60230 [153]"                                    "
  167. 60240 [153]"               [ \]^_               "
  168. 60250 [153]"                                    "
  169. 60255 [153]"                                    "
  170. 60260 [153]"        press space to continue."
  171. 60270 [139][194](203)[179][177]60[167]60270
  172. 60280 [142]
  173.