home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 199 / 199.d81 / adv.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  14KB  |  519 lines
  1. 0 print
  2. 80 poke53371,0
  3. 90 dv=peek(186):ifdv<8thendv=8
  4. 100 poke53280,11:poke53281,11:print"[147][155]";:poke53272,25:open15,dv,15
  5. 110 data 162,6,32,198,255,32,228,255,201,35,208,249,76,204,255
  6. 120 forj=900to914:readx:pokej,x:next
  7. 130 k1=131:dimk%(131),k(131),d%(4)
  8. 140 s1=114:dims%(114),t%(114),s$(114),m%(114,10)
  9. 150 i1=38:dimi%(38),i$(38),iv$(38)
  10. 160 print"       [215]elcome ";
  11. 170 open1,dv,2,"0:advkeys":forj=1tok1:input#1,k%(j),k(j):next:close1
  12. 180 print"to ";
  13. 190 open1,dv,2,"0:advshor":forj=1tos1:input#1,s$(j),t%(j):next:close1
  14. 200 print"[193]dventure";
  15. 210 open1,dv,2,"0:advmap":forj=1tos1:fork=1to10:input#1,m%(j,k):next:next:close1
  16. 220 print"!"
  17. 230 open1,dv,2,"0:advitm":forj=1toi1:input#1,i$(j):next
  18. 240 forj=1toi1:input#1,i%(j):next
  19. 250 forj=1toi1:input#1,iv$(j):next:close1
  20. 260 l1=6:l5=1e6:l6=149:b0=1:s%(0)=1
  21. 270 z$="y":input "[196]o you want instructions";z$
  22. 280 f1=0
  23. 290 ifz$="n"then306
  24. 292 print"[147]";:gosub4460
  25. 294 f1=f1+1:iff1=4thenclose6:goto298
  26. 296 z$="y":input"[205]ore instructions";z$:goto290
  27. 298 print"[145][145]  save  - save your current position;"
  28. 300 print"  load  - load in a previously "
  29. 302 print"          saved position.
  30. 306 z$[178]"y":[133] "str$o you want to change colors";z$
  31. 308 [139]z$[178]"n"[167]330
  32. 310 [153]" (NULL)ress peek for background    (NULL) for (NULL)ext"
  33. 312 [153]"       atnny other key continues"
  34. 314 [161]z$:[139]z$[178]""[167]314
  35. 316 [139]z$[178]"b"[167]b7[178](b7[170]1)[175]15:[151]53281,b7:[151]53280,b7:[137]314
  36. 318 [139]z$[178]"t"[167]t7[178](t7[170]1)[175]15:[151]646,t7:[153]"ononononon":[137]310
  37. 320 z$[178]"y":[133]"(NULL)eady to start";z$:[139]z$[178]"n"[167]270
  38. 330 j1[178]0
  39. 340 [153]"load";:k9[178]18:[141]4260:[139](t%(l1)[175]1)[177]0[176](i[178][171]1[175]l[178]1)[137]360
  40. 350 f1[178]13:[137]2930
  41. 360 [139]s%(l1)[178]5[137]380
  42. 370 [139]s%(l1)[177]0[176]f9[177]j1[137]390
  43. 380 [139](t%(l1)[175]64)[178]0[167]f1[178]l1[170]200:s%(l1)[178]0:[141]4460:[137]400
  44. 390 [153]s$(l1)
  45. 400 s%(l1)[178]s%(l1)[170]1:[141]3740
  46. 410 [139]i%(27)[178][171]1[167]f1[178]50:[141]4460
  47. 420 [139]m0[178]0[137]4410
  48. 430 [141]3570
  49. 431 [133]"atnction";a$:[139]a$[178]""[167]431
  50. 432 [139][200](a$,4)[178]"load"[167]5000
  51. 433 [139][200](a$,4)[178]"save"[167]6000
  52. 440 a[178][195](a$):[129]j[178]1[164]a:[139][198]([202](a$,j))[178]32[167][130]
  53. 450 k9[178]0:j1[178]j:[139]j[177]a[137]420
  54. 460 [129]j[178]j1[164]a:[139][198]([202](a$,j))[179][177]32[167][130]
  55. 470 j2[178]j[171]j1:[139]j[179][178]a[167][129]j[178]j[164]a:[139][198]([202](a$,j))[178]32[167][130]
  56. 480 [139]j[177]a[167]j3[178]j1:j4[178]j2:[137]510
  57. 490 j3[178]j:[129]j[178]j3[164]a:[139][198]([202](a$,j))[179][177]32[167][130]
  58. 500 j4[178]j[171]j3
  59. 510 l$[178][202](a$,j3,j4):b[178]0:[129]j[178]1[164]5:b[178]b[172]26[170][198]([202](l$,j))[171]64
  60. 520 [139]j[179][195](l$)[167][130]
  61. 530 [129]j[178]1[164]77:[139]b[178]k(j)[137]550
  62. 540 [130]j:[139]l$[178]"it"[176]l$[178]"them"[167]k9[178]k8:[137]560
  63. 550 k9[178]k%(j):k7[178]j:[139]k9[177]199[167]k9[178]0
  64. 560 k8[178]k9:[139]k9[177]99[175]k9[179][177]154[167]k[178]k9:[137]750
  65. 570 k$[178][202](a$,j1,j2):b[178]0:[129]j[178]1[164]5:b[178]b[172]26[170][198]([202](k$,j))[171]64
  66. 580 [139]j[179][195](k$)[167][130]
  67. 590 [129]j[178]51[164]k1:[139]b[178]k(j)[137]650
  68. 600 [130]:[139]k9[178]0[167][153]"right$ don't know that word.":[137]420
  69. 610 [139]k6[177]0[167]k[178]k6:[137]730
  70. 620 [141]4260:[139]i[177]0[137]420
  71. 630 j[178]k7:[139]k9[177]0[167][153]"(NULL)hat do you want to do with the ";l$;"?":[137]420
  72. 640 [153]"right$ don't know how to do that.":[137]420
  73. 650 k[178]k%(j):k6[178]0:[139]k9[177]0[176]k[179]299[137]730
  74. 660 [139]k[178]304[167]j1[178]1:j2[178]34:[137]690
  75. 670 [139]k[178]307[167]j1[178]35:j2[178]38:[137]690
  76. 680 k6[178]k:[153][199](128[170][198](k$));[202](k$,2);" what?":[137]420
  77. 690 [129]j[178]j1[164]j2:[139]i%(j)[179][177]l1[137]720
  78. 700 [139]k9[177]0[137]680
  79. 710 k9[178]j
  80. 720 [130]:[139]k9[178]0[137]680
  81. 730 [139]k9[178]39[167]f1[178]101:[137]2930
  82. 740 [139]k9[177]0[175]k9[179]35[167][141]4260:[139]i[177][178]0[137]1820
  83. 750 m0[178]0:[139]k[177]99[175]k[179]110[137]860
  84. 760 [139]k[179]200[175]l5[179]50[167][153]"(NULL)lease exit by main entrance only.":[137]420
  85. 765 [139]k9[178]32[175]l1[177]112[167]f1[178]128:[137]2930
  86. 770 [145]k[171]149[137]1660,1690,1710,1900,1920,1960,3510,840,3410
  87. 780 [145]k[171]199[137]2140,1830,4570,2250,2290,2310,2970,3030,3420,3540
  88. 790 [145]k[171]209[137]3550,3560,4670,1650,420,2000,2030,3260,3310,3330
  89. 800 [145]k[171]219[137]3380,3390
  90. 810 [145]k[171]299[137]1980,2060,2190,2230,2340,2500,2610,2740,2850,3120
  91. 820 [145]k[171]309[137]3220,3460,3480,1740,1770
  92. 840 [129]j[178]1[164]10:[139]l2[178]m%(l1,j)[167]l9[178]l2:[137]900
  93. 850 [130]j:[153]"right$'ve forgotten which way right$ came.":[137]420
  94. 860 m0[178]1:d[178]k[171]99
  95. 870 [139]l[177]0[137]890
  96. 880 k9[178]18:[141]4260:[139](t%(l1)[175]3)[178]2[167][137]2040
  97. 890 l9[178]m%(l1,d):[139]l9[178]0[167][153]"(NULL)ou can't go that way.":[137]420
  98. 900 [139]i%(37)[178]l1[175]l9[179][177]l2[167][153]"(NULL)ou can't get by the snake.":[137]420
  99. 910 [139]i%(36)[178]l1[175]l9[179][177]l2[167]f1[178]53:[137]2930
  100. 920 [139][182](l1[171]l9)[177]1[137]1010
  101. 930 [139]l1[170]l9[178]21[175]g[178]0[167]f1[178]100:[137]2930
  102. 940 [139]l1[170]l9[178]39[175]b2[178]0[167]f1[178]102:[137]2930
  103. 950 [139]l1[170]l9[179][177]115[137]980
  104. 960 [129]j[178]1[164]i1:[139]j[178]10[176]i%(j)[179][177][171]1[167][130]j:[137]980
  105. 970 f1[178]120:[137]2930
  106. 980 [139]l1[170]l9[178]121[137]1200
  107. 990 [139]l1[170]l9[178]147[175]d2[178]0[167]f1[178]130:[137]2930
  108. 1000 [139]l1[178]17[175]i%(1)[178][171]1[167]f1[178]103:[137]2930
  109. 1010 [139]l1[179][177]40[176]l9[179][177]37[137]1040
  110. 1020 f1[178]57:j[178]25:[139]i%(25)[177][171]1[167]j[178]31:f1[178]58
  111. 1030 [139]i%(j)[178][171]1[137]2930
  112. 1040 [139]l9[178]255[167][141]1260
  113. 1050 l2[178]l1:l1[178]l9:[139]l1[179]10[137]1090
  114. 1060 l5[178]l5[171]1:[139]l5[179][177]50[137]1080
  115. 1070 [129]j[178]17[164]23[169]2:i%(j)[178]0:[130]:i%(16)[178]0:g[178]0:b0[178]0:b2[178]0:f1[178]55:[141]4460
  116. 1080 [139]l5[178]0[167]f1[178]56:[141]4460:[129]j[178]16[164]21:i%(j)[178]0:[130]:l1[178]113:[137]330
  117. 1090 l6[178]l6[171]l:[139]l6[177]75[176]i%(33)[177][171]1[137]1110
  118. 1100 l6[178]1e9:i%(33)[178]0:i%(34)[178][171]1:f1[178]11:[141]4460
  119. 1110 [139]l6[179]0[167]f1[178]104:[137]4660
  120. 1120 [139]l6[178]75[167]f1[178]10:[141]4460
  121. 1130 [139](t%(l1)[175]32)[177]0[137]330
  122. 1140 [129]j[178]0[164]4:d%[178]d%(j):[139]d%[179]0[176]d%[178]l1[137]1180
  123. 1150 [139]d%[178]l2[167][139]l1[177]17[175](l1[179]58[176]l1[177]69)[167]d%[178]l1:[137]1170
  124. 1160 d%[178][187](1)[172]84[170]17:[139]d%[177]57[167]d%[178]d%[170]12
  125. 1170 d%(j)[178]d%
  126. 1180 [130]
  127. 1190 [137]330
  128. 1200 [139]b3[178]1[167]d[178]0:[137]890
  129. 1210 [139]t[178]1[175]i%(35)[178]l1[167]t[178]0:f1[178]110:[137]2930
  130. 1230 f1[178]105:[139]t[178]0[137]2930
  131. 1240 [139]i%(27)[178][171]1[167]b3[178]1:s%(66)[178]1:f1[178]19:[141]4460:[137]4590
  132. 1250 [137]1000
  133. 1260 [139]l1[178]44[137]1290
  134. 1270 [139]d[178]7[176][187](1)[177].1[137]1350
  135. 1280 l9[178]38:[137]1370
  136. 1290 [139][187](1)[179].5[137]1350
  137. 1300 l9[178]33:j[178][187](1):[139]j[179].2[137]1370
  138. 1310 l9[178]37:[139]j[179].4[137]1370
  139. 1320 l9[178]45:[139]j[179].6[137]1370
  140. 1330 l9[178]92:[139]j[179].8[137]1370
  141. 1340 l9[178]76:[137]1370
  142. 1350 [153]"(NULL)ou have crawled thru some little holes":l9[178]l1
  143. 1360 [153]"holes and ended up in the main passage."
  144. 1370 [142]
  145. 1380 k[178]b4
  146. 1390 [139]i%(26)[178]39[167]k[178]k[170]1
  147. 1400 j2[178][171]2:[139]d%(4)[177][178]0[175]i%(15)[177]0[167]j2[178]i%(15)
  148. 1410 v[178]10:[129]j[178]1[164]15:j1[178]i%(j)
  149. 1420 [139]j1[178][171]1[167]k[178]k[170]v[173]2:[137]1460
  150. 1430 [139]j1[178]7[167]k[178]k[170]v:[137]1450
  151. 1440 [139]j1[178]j2[167]k[178]k[170][181](v[173]4)
  152. 1450 [139]s%(j1)[177]0[167]k[178]k[170]1
  153. 1460 [139]j[178]5[167]v[178]20
  154. 1470 [130]
  155. 1480 [129]j[178]0[164]3:[139]d%(j)[179]0[167]k[178]k[170]6
  156. 1490 [130]
  157. 1500 k[178]k[171]r0[172]3[171]h[170](l1[177]10)[172]2
  158. 1510 j1[178]k:b$[178]" beginning":k[178]k[171]20:[139]k[179]0[137]1560
  159. 1520 b$[178]" novice":k[178]k[171]30:[139]k[179]0[137]1560
  160. 1530 b$[178]" seasoned":k[178]k[171]50:[139]k[179]0[137]1560
  161. 1540 b$[178]"n advanced":k[178]k[171]80:[139]k[179]0[137]1560
  162. 1550 b$[178]"n expert"
  163. 1560 [153]"(NULL)our score is";j1;"out of a possible"
  164. 1570 [153]"300, which rates