home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 199 / 199.d81 / alfredo.main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  13KB  |  483 lines
  1. 1 :
  2. 2 :rem alfredo's perilous pitfall
  3. 4 :rem by richard j. derocher
  4. 5 :
  5. 6 poke788,52:rem disable stop key
  6. 10 poke53280,0:poke53281,0:print"[147]":printchr$(142):printchr$(8)
  7. 15 v=53248:s=54272
  8. 16 pokev+16,0
  9. 20 dv=peek(186):ifdv<8thendv=8
  10. 25 gosub 12000:gosub 22200
  11. 30 sys57812"alfredo.player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  12. 40 sys57812"alfredo.font",dv,0:poke780,0:poke781,0:poke782,8:sys65493
  13. 50 poke53272,(peek(53272)and240)or2
  14. 55 sys57812"alfredo.sprites",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  15. 60 f$="alfredo.tune 1":gosub20000
  16. 97 :
  17. 98 :rem title screen
  18. 99 :
  19. 100 print"[147]";
  20. 105 ti$="000000"
  21. 110 print"[159]";:m$="alfredo's":gosub15000
  22. 120 print"";:m$="perilous pitfall":gosub15000
  23. 130 print"";:m$="by richard j. derocher":gosub15000
  24. 140 print"";:m$="[150]press any key to begin.":gosub15000:gosub21000
  25. 145 ifti$="000110"thengosub22000:gosub12000:gosub21000:ti$="000000"
  26. 150 geta$:ifa$=""then145
  27. 160 gosub22000:gosub12000
  28. 170 f$="alfredo.tune 2":gosub20000:gosub21000
  29. 243 x=13:y=15:yy=8:xx=8:c$="[202][157]":gosub22300
  30. 997 :  
  31. 998 :rem scene 1
  32. 999 :
  33. 1000 print"[147]":x=.:y=14:yy=.:xx=40:c$="[204]":gosub22300
  34. 1005 v=53248:s=54272
  35. 1010 x=30:y=6:yy=.:xx=10:c$="[203]":gosub22300:print"[145]";spc(29)"[210][157][157][210][157][157][210]"
  36. 1020 x=27:y=9:yy=7:xx=6:c$="[201][157]":gosub22300:print"[145][207]"
  37. 1030 x=28:y=9:yy=.:xx=12:c$="[203]":gosub22300:print"[157][157][157][157][157][157][157][157][157][157][157][157][157][205]";
  38. 1040 print"[157][205][206][157][208]"
  39. 1050 pokev+39,1:pokev+0,0:pokev+1,160:pokev+29,0:pokev+23,0:pokev+21,1
  40. 1060 poke2040,189
  41. 1070 x=.:xx=140:gosub25000
  42. 2000 x=14:y=14:yy=.:xx=4:c$=" ":gosub22300
  43. 2010 x=13:y=15:yy=8:xx=8:c$="[202][157]":gosub22300
  44. 2020 x=18:y=15:yy=8:xx=8:c$="[201][157]":gosub22300
  45. 2025 print"[157][157][157][157][157][202]    [201] ";
  46. 2030 y=160:yy=250:gosub23000
  47. 2097 :
  48. 2098 :rem scene 2
  49. 2099 :
  50. 2100 print"[147]"spc(18)"[157][157][157][157][157][202]    [201] ";
  51. 2101 v=53248:s=54272
  52. 2102 print"[157][157][157][157][157][157][157][202]    [201] ";
  53. 2105 x=13:y=.:yy=4:xx=8:c$="[202][157]":gosub22300
  54. 2107 print"[210][157][157][210]";
  55. 2110 x=18:y=.:yy=4:xx=8:c$="[201][157]":gosub22300
  56. 2120 print"[209][209]";
  57. 2130 x=.:y=11:yy=.:xx=12:c$="[203]":gosub22300
  58. 2140 x=20:y=11:yy=.:xx=20:c$="[203]":gosub22300
  59. 2150 x=.:y=16:yy=.:xx=40:c$="[203]":gosub22300
  60. 2160 y=.:yy=169:gosub23000
  61. 2170 gosub26000:fori=.to1260:nexti:gosub27000:fori=.to150:nexti:gosub28000
  62. 2180 x=140:xx=.:gosub30000:gosub22200
  63. 2197 :
  64. 2198 :rem scene 3
  65. 2199 :
  66. 2200 print"[147]";
  67. 2201 v=53248:s=54272
  68. 2210 x=11:y=11:yy=.:xx=29:c$="[203]":gosub22300
  69. 2215 x=12:y=16:yy=.:xx=28:c$="[203]":gosub22300
  70. 2220 x=12:y=16:yy=1:xx=7:c$="[202][157]":gosub22300:print"[202]";
  71. 2230 x=8:y=13:yy=1:xx=10:c$="[202][157]":gosub22300:print"[202]";
  72. 2240 print"[145][145][145][145][145][145][145][145][145][145][145][145][210][157][157][210]";
  73. 2241 pokev+0,78
  74. 2245 poke2041,193:pokev+16,0:pokev+16,1:pokev+40,2:pokev+29,0:pokev+23,0
  75. 2247 pokev+2,102:pokev+3,176:pokev+21,3
  76. 2250 x=78:xx=.:gosub30000
  77. 2253 pokev+16,0:pokev+0,255:x=255:xx=104:gosub30000:poke2040,182
  78. 2255 forw=.to100:nextw:y=176:yy=250:gosub33000:gosub22200
  79. 2297 :
  80. 2298 :rem scene 4
  81. 2299 :
  82. 2300 print"[147]";
  83. 2301 v=53248:s=54272
  84. 2305 x=12:y=.:yy=1:xx=21:c$="[202][157]":gosub22300:print"[202]";
  85. 2310 x=8:y=.:yy=1:xx=21:c$="[202][157]":gosub22300:print"[202]";
  86. 2313 print"[157][202]   [202]";
  87. 2315 print""spc(8)"[202]   [202]"
  88. 2316 printspc(8)"[202]   [202]";
  89. 2318 x=13:y=11:yy=.:xx=27:c$="[203]":gosub22300
  90. 2320 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145] [209][157] [157][157] [157] [157] ";
  91. 2322 x=13:y=14:yy=.:xx=27:c$="[203]":gosub22300
  92. 2325 pokev+1,0:pokev+3,0:pokev+21,3
  93. 2327 y=8:yy=160:gosub33000
  94. 2328 forw=.to100:nextw
  95. 2330 x=104:xx=334:gosub25000:gosub22200
  96. 2397 :
  97. 2398 :rem scene 5
  98. 2399 :
  99. 2400 print"[147]";
  100. 2401 v=53248:s=54272
  101. 2405 x=.:y=11:yy=.:xx=17:c$="[203]":gosub22300:print"[145][210]";
  102. 2409 x=.:y=14:yy=.:xx=40:c$="[203]":gosub22300
  103. 2411 x=18:y=10:yy=.:xx=22:c$="[203]":gosub22300
  104. 2412 :
  105. 2413 pokev+16,0:pokev+0,0:pokev+21,1
  106. 2414 :
  107. 2415 x=.:xx=150:gosub25000
  108. 2420 x=15:y=14:yy=.:xx=4:c$=" ":gosub22300
  109. 2430 x=14:y=14:yy=8:xx=9:c$="[202][157]":gosub22300:print"[145][145][145][145][145][145][145][145][145][206]    [205]"
  110. 2440 x=19:y=15:yy=8:xx=8:c$="[201][157]":gosub22300
  111. 2450 print"[157][157][157][157][157][202]    [201] ";
  112. 2460 y=150:yy=250:gosub23000:gosub22200
  113. 2497 :
  114. 2498 :rem scene 6
  115. 2499 :
  116. 2500 print"[147]";:print""spc(14)"[202]    [201]"
  117. 2501 printspc(14)"[202]    [201]";
  118. 2502 v=53248:s=54272:pokev+16,0
  119. 2505 x=14:y=.:yy=8:xx=15:c$="[202][157]":gosub22300
  120. 2510 x=19:y=.:yy=8:xx=12:c$="[201][157]":gosub22300
  121. 2515 x=19:y=13:yy=.:xx=21:c$="[203]":gosub22300
  122. 2517 x=15:y=15:yy=.:xx=25:c$="[204]":gosub22300
  123. 2520 pokev+1,0:pokev+21,1
  124. 2526 y=.:yy=168:gosub23000:gosub26000:forw=.to1200:nextw:gosub27000
  125. 2528 forw=.to211:nextw:x=150:xx=296:gosub25000
  126. 2530 print"[145][145]"spc(14)"[210][157][209]";:gosub28000:poke2040,168:forw=.to300:nextw
  127. 2532 pokev+1,169
  128. 2535 poke2041,194:pokev+2,131:pokev+3,166:pokev+40,1:pokev+21,3:poke2040,169
  129. 2537 forw=.to150:nextw
  130. 2540 a=185:c=131:fori=296to335step2:a=a+1
  131. 2542 ifi>255thenpokev+16,peek(v+16)or1:pokev+0,i-256:goto2544
  132. 2543 pokev+0,i
  133. 2544 c=c+6
  134. 2545 pokev+2,c
  135. 2546 ifa>188 then a=185
  136. 2547 forw=.to11:nextw:poke2040,a:forw=.to11:nextw:nexti:gosub22200
  137. 2548 gosub22000:gosub12000:gosub21000
  138. 2597 :
  139. 2598 :rem scene 7
  140. 2599 :
  141. 2600 print"[147]";
  142. 2602 v=53248:s=54272
  143. 2610 x=.:y=13:yy=.:xx=8:c$="[203]":gosub22300
  144. 2615 x=.:y=15:yy=.:xx=8:c$="[204]":gosub22300
  145. 2616 print""spc(7)"[202][157][202]"
  146. 2618 x=7:y=.:yy=1:xx=12:c$="[202][157]":gosub22300
  147. 2620 x=7:y=16:yy=1:xx=7:c$="[202][157]":gosub22300:print"[202]";
  148. 2623 pokev+16,0:pokev+0,0:pokev+2,0:pokev+21,3
  149. 2624 x=.:xx=82:gosub31000
  150. 2627 poke2040,196:c=.:a=196:w=.:fori=169to250step2:pokev+1,i
  151. 2629 w=w+1:ifw>6thenw=.:a=a+1
  152. 2630 ifa>199thena=196
  153. 2631 c=c+6:pokev+2,c
  154. 2632 poke2040,a:nexti:gosub22200
  155. 2697 :
  156. 2698 :rem scene 8
  157. 2699 :
  158. 2700 print"[147]";
  159. 2702 v=53248:s=54272
  160. 2710 print""spc(7)"[202][157][202]"
  161. 2715 x=7:y=.:yy=23:xx=22:c$="[202][157]":gosub22300:print"[202]";
  162. 2718 x=8:y=23:yy=.:xx=31:c$="[204]":gosub22300:poke2023,76
  163. 2720 print"[154]";:x=8:y=19:yy=.:xx=32:c$="[204]":gosub22300:print"";
  164. 2730 pokev+21,1:y=.:yy=209:gosub24000:forw=.to25:nextw
  165. 2735 x=86:xx=337:y=209:yy=209:gosub29000
  166. 2736 gosub22200
  167. 2797 :
  168. 2798 :rem scene 9
  169. 2799 :
  170. 2800 print"[147]";
  171. 2802 v=53248:s=54272
  172. 2805 print"[154]";:x=.:y=19:yy=.:xx=31:c$="[204]":gosub22300:print"";
  173. 2807 x=.:y=23:yy=.:xx=31:c$="[203]":gosub22300
  174. 2809 print""spc(31)"[201][157][201]";:x=31:y=.:yy=23:xx=22:c$="[201][157]":gosub22300
  175. 2811 x=31:y=19:yy=.:xx=9:c$="[204]":gosub22300
  176. 2813 x=31:y=17:yy=.:xx=9:c$="[203]":gosub22300:printspc(31)" ";
  177. 2816 pokev+16,0:pokev+0,0:pokev+16,0:pokev+21,1
  178. 2818 x=.:xx=255:y=209:yy=209:gosub29000
  179. 2825 pokev+21,0:pokev+16,1:pokev+0,9:pokev+1,200:poke2040,189:pokev+21,1
  180. 2827 x=263:xx=335:gosub25000:gosub22200
  181. 2897 :
  182. 2898 :rem scene 10
  183. 2899 :
  184. 2900 print"[147]";
  185. 2902 v=53248:s=54272
  186. 2906 x=.:y=19:yy=.:xx=39:c$="[204]":gosub22300
  187. 2910 x=.:y=17:yy=.:xx=4:c$="[203]":gosub22300
  188. 2915 x=3:y=2:yy=15:xx=15:c$="[202][157]":gosub22300
  189. 2917 x=4:y=1:yy=.:xx=35:c$="[204]":gosub22300
  190. 2920 x=39:y=2:yy=15:xx=18:c$="[201][157]":gosub22300
  191. 2925 pokev+16,0:pokev+2,88:pokev+3,0:pokev+40,1
  192. 2930 pokev+0,0:poke2041,195:pokev+21,3
  193. 2933 x=.:xx=87:gosub25000
  194. 2934 poke2040,189:printspc(10)"[145][145][145][145]?";
  195. 2936 forw=.to1000:nextw:print"[157] "
  196. 2938 poke2040,161
  197. 2940 print"";spc(8)"[201]  [201][157][157][157][157][201]  [201][157][157][157][157][157][210]   [209][157][157][157][157]   "
  198. 2950 y=49:fori=1033to1753step40:c=96
  199. 2955 y=y+1:pokev+3,y:pokei,c:c=c-1:ifc>88then2955
  200. 2960 nexti:poke2040,163:poke2041,200
  201. 2963 y=200:fori=1753to1033step-40:c=89
  202. 2967 y=y-1:pokev+3,y:pokei,c:c=c+1:ifc<97then2967
  203. 2969 pokei,32:nexti:gosub22200
  204. 2997 :
  205. 2998 :rem scene 11
  206. 2999 :
  207. 3000 print"[147]";
  208. 3001 v=53248:s=54272
  209. 3020 x=8:y=1:yy=15:xx=22:c$="[201][157]":gosub22300:print"[201]";
  210. 3024 x=11:y=5:yy=15:xx=18:c$="[201][157]":gosub22300:print"[201]";
  211. 3028 x=8:y=.:yy=.:x