home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / az (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  26KB  |  738 lines
  1. 1 ifmw%=0thenclr:goto100
  2. 2 onmw%goto22,101,102,103,104,511,13255,11056
  3. 3 pokegq,g2:pokegq,g3:return
  4. 5 restore:forzb=1toza:reada$:next:return
  5. 6 getyf$:ifyf$<>""then6
  6. 7 return
  7. 8 print"":forgy=1to4:print:gosub18
  8. 9 poke1863+40*gy,32:next:print"":return
  9. 10 a$="":b$="":c$="":goto6
  10. 15 get ks$:ifks$=""then15
  11. 16 goto10
  12. 18 print"                                       ";:return
  13. 20 rem
  14. 21 mw%=1:load"s"+mid$(str$(a),2),8,1
  15. 22 gosub8:sys32768-(3*(a>10)):gosub10:return
  16. 25 print"[146]";:gosub50:ifj<>10then28
  17. 26 getks$:ifks$=" "thengosub10:goto29
  18. 27 fora=1to2:gosub3:next:fora=1to99:next:goto26
  19. 28 fora=1toj:next
  20. 29 gosub30100:gosub10:print"[146]";:gosub8:return
  21. 40 b=int(a%/2)+1+18*(b%/12-1):f1=peek(36863+b):return
  22. 45 f1=f1+100*(f1>100):return
  23. 50 fora=0to24:pokezs+a,0:next
  24. 51 poke54273,220:poke54277,13:poke54287,60:poke54296,15
  25. 52 fora=1to12:poke54276,21
  26. 53 fora8=1to250:next:poke54276,20
  27. 54 fora=0to24:pokezs+a,0:next:return
  28. 55 i=-(f1>41):f1=f1-f1*i+i*2:ifb(3)=0orb(4)=0thenifh>10andf1<30thenf1=29
  29. 56 i=a%
  30. 57 poke679,f1:poke680,i:poke681,b%:sys32774+sk%:sk%=0:poke679,0:pokevc+21,0:return
  31. 60 gosub45:gosub55
  32. 61 poke50168,e2+2:poke53264,(24+8*a%)/256:poke53249,38+b%
  33. 62 poke53248,24+8*a%-256*peek(53264):pokevc+21,1
  34. 63 fora=1to10:next:return
  35. 65 pokevc+21,0:ifv=hthenreturn
  36. 66 ifo>peek(37098)-2then70
  37. 67 o=0:gosub8:gosub50:ifh>10thengosub50670:return
  38. 68 za=183:gosub5:forb=1tofnr(4):reada$,b$:next:gosub80:return
  39. 70 p1=p1+1:v=h:gosub30300:fora=1to4:f(a)=f(a)+1:next:o=0:return
  40. 75 k8=0
  41. 76 k8=k8+1
  42. 77 p=fnr(4):ifc(p)=0andk8<700then76
  43. 78 return
  44. 80 gosub8
  45. 81 u$=a$:gosub82:u$=b$:gosub82:u$=c$:gosub83:goto25
  46. 82 printtab(19.5-len(u$)/2)u$:return
  47. 83 printtab(19.5-len(u$)/2)u$;:return
  48. 100 gosub45000
  49. 101 rem
  50. 102 gq=54296:g2=15:g3=0
  51. 103 rem
  52. 104 poke53280,0:poke53281,0:print""
  53. 105 rempoke 37379,96
  54. 110 deffnr(x)=int(rnd(1)*x+1):dimb$(13),b(13),c(4),d(19),dx(4),f(4),g(4),h$(10)
  55. 111 dimj$(4),kd%(40)
  56. 115 e2=33:zs=54272
  57. 120 za=105:gosub5:forb=1to13:readb$(b):next
  58. 130 ifpeek(767)<>99then160
  59. 140 print"[147]":sys32771:g$="expb":ifpeek(762)=55theng$="expa"
  60. 150 gosub40100:c(peek(761))=peek(763):h=23:a%=21:b%=144:gosub30200:goto322
  61. 160 ifpeek(767)=55theng$="expa":goto190
  62. 170 ifpeek(767)=25theng$="expb":goto190
  63. 180 poke767,0:load"flint",8
  64. 190 gosub40100
  65. 200 sys32780
  66. 201 gosub55555
  67. 203 gq=54296
  68. 205 gosub15:ifks$<>"g"andks$<>"m"andks$<>"e"then205
  69. 206 print"[147]"
  70. 210 ifks$<>"e"then230
  71. 220 gosub40000:print"[147]          [208]ress a key to play,
  72. 221 [153][163]7)"or turn your computer off.":[151] 767,0:[141]15:[147]"flint",8
  73. 230 [139]ks$[179][177]"m"[167]310
  74. 240 [153]"load     (NULL)ove to right$quitos?  (NULL))es  (NULL))o":[141]15:[139]ks$[178]"n"[167]201
  75. 250 [139]ks$[179][177]"y"[167]240
  76. 260 [151]767,25:[139]g$[178]"expa"[167][151]767,55
  77. 270 g[178]0:[153]"load       ";
  78. 271 [129]a[178]1[164]4:[139]c(a)[178]0[167]j$(a)[178]"":g[178]g[170]1
  79. 280 [130]:u1[178]u1[170]g:[141]40000
  80. 290 [139]g[178]0[167][153]"(NULL)iding the paddle wheel":[153][163]11)"down the atnmazon":[147]"iquitos",8
  81. 300 [153]"asclying to (NULL)exas to recruit":[153][163]13)"replacements":[147]"flint",8
  82. 310 [139]ks$[179][177]"g"[167]201
  83. 320 h[178]6:a%[178]19:b%[178]108
  84. 322 j[178][194](765):[139]j[179]4[175]j[177]0[167]j[178]j[172]1000
  85. 325 [139]j[179]1000[167]j[178]10
  86. 500 [141]40200:a[178]h:[139]a[177]31[167]a[178]31
  87. 510 [158]32768[171](3[172](a[177]10)):mw%[178]6:[147]"s"[170][202]([196](a),2),8,1
  88. 511 [141]8:[141]10
  89. 512 r[178]1:[141]30000:[139]h[178]23[176]h[178]14[167]r[178]5:d[178]1
  90. 515 [139]h[178]19[176]h[178]28[167]r[178]2:l[178]0
  91. 520 [139]h[177]10[167]570
  92. 530 c[178][165]r(5)[170]1:[129]i[178]1[164]c
  93. 540 t[178][165]r(234):[139][194](36863[170]t)[179][177]2[167]540
  94. 550 [151]36863[170]t,42:[130]
  95. 570 [139]h[179]31[167]580
  96. 571 v[178]h:[141]8:[153]"   (NULL)he heat at this depth may cause"
  97. 572 [153][163]12)"hallucinations":[141]25:[141]30000
  98. 580 [139]v[178]h[175](h[179]11[176](b(3)[179][177]0[175]b(4)[179][177]0))[167][141]58000:[137]600
  99. 590 [141]40:[141]55
  100. 600 [151] 679,2
  101. 610 [151]680,2:[151]681,0:[151]682,2:[151]683,156:[158]37379
  102. 620 [151]680,149:[151]681,0:[151]682,149:[151]683,156:[158]37379:da%[178]0
  103. 630 [141]40:[137]1500
  104. 980 [141]80
  105. 990 [141]8:[141]30000
  106. 1000 [141]20000:[137]1020
  107. 1005 [141]6
  108. 1006 [141]60:[141]61:[161]ks$:[139]ks$[179][177]""[167]1050
  109. 1010 [141]20000:[139]fu%[178]1[167]11200
  110. 1015 [139]r[177]1[167]1006
  111. 1020 b1[178]b1[170]1:a[178][171](b1[177]40):b1[178]b1[171]b1[172]a:w[178]w[170]a:a[178][171](w[177]23):xx[178]xx[170]a:w[178]w[171]w[172]a
  112. 1021 [139] h[179][178]10 [176] a[179][177]1[167]1030
  113. 1022 b(4)[178]b(4)[170](b(4)[177]0):[139]b(4)[178]0[167][141]8:[153]"   (NULL)ut of batteries":[141]25
  114. 1030 [139]b1[178]0[167][141]8:[141]30000:[139]w[178]0[167][141]25000
  115. 1040 [137]1006
  116. 1050 [141]10
  117. 1060 [139]ks$[179][177]"c"[167]1100
  118. 1070 [139]h[179][177]6[176]b[179][177]154[167]26000
  119. 1080 [141]65:[137]200
  120. 1100 [139]ks$[178]"n"[167][141]27000:[141]45:[137]990
  121. 1110 h1[178]0:j1[178]0:i1[178]0:k1[178]0:af[178][198](ks$)[171][198]("h"):[139]af[179]1[176]af[177]5[167]1000
  122. 1120 o1[178]o1[170]1:[145]af[137]1130,1150,1160,1000,1140
  123. 1130 g1[178]1:h1[178]144:k1[178][171]12:zd[178]1:[139]b%[179]24[167]1200
  124. 1135 [137]1170
  125. 1140 g1[178][171]1:h1[178][171]144:k1[178]12:zd[178]2:[139]b%[177]144[167]1210
  126. 1145 [137]1170
  127. 1150 g1[178][171]2:i1[178]34:j1[178][171]2:zd[178]3:[139]a%[179]3[167]1220
  128. 1155 [137]1170
  129. 1160 g1[178]2:i1[178][171]34:j1[178]2:zd[178]4:[139]a%[177]33[167]1230
  130. 1170 zb[178]0:[139]h[177]10[175](b(3)[178]0[176]b(4)[178]0)[167][141]40:[141]45:zb[178]1
  131. 1175 f[178][194](37119[170]zd[170]4[172](f1[171]3[170]4[172](f1[177]20))):[139]zb[167]f1[178]29
  132. 1180 [139]h[177]10[167][139]f[178]0[167]1195
  133. 1182 a%[178]a%[170]j1:b%[178]b%[170]k1:tt[178]f1:[141]40:[139]f1[179]34[176](f1[177]100[175]f1[179]134)[167]1500
  134. 1184 f1[178]f1[170]100[172](f1[177]141):[139]f1[178]42[167]1500
  135. 1186 [139]f1[179]100[167][151]36863[170]b,f1[170]100
  136. 1188 [141]45:[141]55:[141]40
  137. 1190 a%[178]a%[171]j1:b%[178]b%[171]k1:f1[178]tt
  138. 1195 [141]8:[141]30000:[129]a[178]1[164]g2:[141]3:[130]:[141]20000:[137]1000
  139. 1200 [139]h[173]2[178][181](h[173]2)[176](h[177]10[175]b[179][177]10)[167]1195
  140. 1205 [137]1240
  141. 1210 [139](h[173]2[178][181](h[173]2)[175]h[179]11)[176](h[177]10[175]b[178]226)[167]1240
  142. 1215 [137]1195
  143. 1220 [139]h[179]3[176]h[177]10[175]b[179][177]109[167]1195
  144. 1225 [137]1240
  145. 1230 [139](h[179]11[175]h[177]8)[176](h[177]10[175]b[179][177]126)[167]1195
  146. 1240 [141]65:h[178]h[170]g1:a%[178]a%[170]i1:b%[178]b%[170]h1:[137]500
  147. 1500 [141]60:[141]40:i[178]f1[179]43:o[178]o[171]i:y[178]y[171]i:da%[178]da%[171]i:[151]36863[170]b,f1[171]100[172]i
  148. 1505 [141]50023:[153]" (NULL) "da%"cmd  "
  149. 1510 [139]h[177]30[167]1600
  150. 1520 [141]45:[139](r[177]1[175]f1[177]4[175]f1[179]16)[176]((r[178]3[176]r[178]4)[175]f1[178]27)[167]1000
  151. 1530 [145]f1[137]10000,10500,11000,11200,11500,11500,11500,11500,11500,11500,11500
  152. 1535 [145]f1[171]11[137]11500,11500,11500,11500,12000,12200,12400,12600,12800
  153. 1540 [145]f1[171]20[137]10000,10000,10000,10000,1000,13000,13200,14000,14200
  154. 1543 [139] f1[179][177]42[167]1000
  155. 1545 [137]14500
  156. 1600 [139]b[178]160[175]h[178]36[167]1700
  157. 1610 [139]b[178]185[167]11200
  158. 1620 zd[178]zd[170](zd[177]4)[172]a:zd[178]zd[171](zd[178]0):[145]zd[137]1630,1640,1650,1660
  159. 1630 a$[178]"06070809111415":[137]1670
  160. 1640 a$[178]"06070809101213":[137]1670
  161. 1650 a$[178]"05070910111315":[137]1670
  162. 1660 a$[178]"05070810111214
  163. 1670 gosub40:f1=val(mid$(a$,2*fnr(7)-1,2)):poke36863+b,f1:goto1000
  164. 1700 fora=1to3:gosub50:next:gosub8:za=192:gosub5:printtab(9)a$
  165. 1705 reada$:print" "a$;:reada$:print" "a$:reada$:print"  "a$
  166. 1710 gosub15:ifks$="n"thenzd=1:goto1750
  167. 1720 ifq2thenforp=1to4:x1=30:gosub30100:next:goto1750
  168. 1730 q2=1:fora=1to4:c(a)=40:next
  169. 1750 gosub8:gosub30000:goto1620
  170. 10000 ifh>10thengosub8:printtab(15)"[200]ot lava!":gosub25:ifb%>108then22060
  171. 10010 ifh>10thengosub75:c$=j$(p)+" has slipped in!":x1=c(p):goto980
  172. 10020 i=fnr(3):ifi<3then1000
  173. 10030 ifb(13)theni=fnr(50):ifi=40thengosub50100:goto980
  174. 10040 ifi=40thengosub80
  175. 10050 ifb(13)then1000
  176. 10060 i=fnr(5):za=i+53:gosub5:gosub75:gosub8:print"":gosub81
  177. 10065 onigoto10070,10070,10080,10100,10200
  178. 10070 za=58+fnr(6):gosub5:d$=a$:za=64+fnr(21):gosub5:e$=a$:l1=7:x1=2
  179. 10075 a$=j$(p)+