home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 48 / 048side1.d81 / mo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  33KB  |  950 lines
  1. 1 ifpeek(828)<>173thenload"dr",8,1
  2. 2 poke53280,0:poke53281,0:print"[147][155]"chr$(14)
  3. 3 dimq$(29),q%(56),bb$(15),h$(24)
  4. 4 r=rnd(-ti)
  5. 5 goto727
  6. 6 fori=1to14:ifb$=bb$(i)thencx=i:return
  7. 7 next:ifkd=0thenprint"[215]here?"
  8. 8 yy=1:cx=0:return
  9. 9 print"[212]he room is completely dark.  [204]ike a    tomb.":return
  10. 10 aa$="":a$="":print"[159]? [158]";
  11. 11 print">[157]";:fort=1to20:next:print"[219][157]";:fort=1to20:next:print"<[157]";:fort=1to20:next
  12. 12 getaa$:ifaa$=""then11
  13. 13 ifaa$=chr$(13)then20
  14. 14 ifaa$=chr$(20)theniflen(a$)thenprintaa$;:a$=left$(a$,len(a$)-1):goto11
  15. 15 ifaa$>="a"andaa$<="z"oraa$=" "oraa$="*"then19
  16. 16 ifaa$>="[193]"andaa$<="[218]"thenaa$=chr$(asc(aa$)-128):goto19
  17. 17 ifaa$>="0"andaa$<="9"then19
  18. 18 goto11
  19. 19 a$=a$+aa$:printaa$;:goto11
  20. 20 print" [155]":cx=1:return
  21. 21 kd=0:yy=0:gosub72:gosub10:gosub77:cx=0:return
  22. 22 fl=0:ifc$="up"thenq%(34+k)=k:printz$(1):q%(39)=0:gosub99:yy=1:return
  23. 23 ifc$="do"thenq%(34+k)=0:printz$(0):q%(39)=0:gosub99:yy=1:return
  24. 24 ifa$="losw"thenprintz$(-(q%(34+k)>0)):ifvb=0thenf$="fm":gosub106:print:yy=1
  25. 25 return
  26. 26 ifq%(45)andq%(46)andq%(47)andq%(48)thenq%(49)=1
  27. 27 return
  28. 28 fl=0:ifa$="takn"andq%(26)=0andq%(49)thengosub30:q%(26)=1:fl=1:return
  29. 29 return
  30. 30 r=fnaa(3):printff$(r):return
  31. 31 fori=10to13:ifq%(i)=5thenq$(i)=g$(1,i-10)+" key"
  32. 32 next:goto34
  33. 33 print
  34. 34 onq%(0)+1goto752,543,553,620,654,638,693,125,117,178,187,201,206
  35. 35 onq%(0)-12goto218,227,238,251,269,278,292,301,310,318,329,337
  36. 36 onq%(0)-24goto354,363,377,382,392,401,411,427,444,453,467,472
  37. 37 onq%(0)-36goto479,488,499,507,674,700,710,593,604,568
  38. 38 m=m+1:ifm>4thenm=1
  39. 39 printspc(40*abs((len(a$)=1)))m$(m):return
  40. 40 a$="":print"[129][198]ilename[158]";:gosub10:ifa$=""thenprint"[155][145]":return
  41. 41 open15,8,15:open2,8,2,a$+",p,w":fori=0to56:print#2,q%(i):next:close2:print"[155]"
  42. 42 i=0:input#15,a,a$:ifa=0thenprint"[211]aved":close15:yy=1:kd=1:return
  43. 43 print""a$
  44. 44 i=i+1:ifi<100thenprint"[144][145]"a$"[145]":goto43
  45. 45 print#15,"i0":close15:yy=1:return
  46. 46 a$="":print"[129][198]ilename[158]";:gosub10:ifa$=""thenprint"[155]":goto34
  47. 47 open15,8,15:open2,8,2,a$+",p,r":fori=0to56
  48. 48 input#2,q%(i)
  49. 49 next:close2:print"[155]":i=0
  50. 50 input#15,a$,a$:ifa$="ok"thenclose15:goto31
  51. 51 print""a$
  52. 52 i=i+1:ifi<100thenprint"[144][145]"a$"[145]":goto51
  53. 53 print#15,"i0"
  54. 54 close15:yy=1:return
  55. 55 print"[212]he signs say, '";:return
  56. 56 print"[212]wo signs say, '";:return
  57. 57 print"[212]he other sign is quite illegible.":return
  58. 58 print"[215]hether it's paralysis or rigor mortis,"
  59. 59 print"that note is well clutched.":return
  60. 60 print"  [217]ou're in a small triangular room.":return
  61. 61 print"  [217]ou're in a large triangular room.":return
  62. 62 print"[212]here are two doors, a sign above each.":return
  63. 63 print"[212]here are three doors with signs above.":return
  64. 64 print"[212]he scroll is blank and is apparently a scroll-key.":return
  65. 65 print"[207]n the wall is an [213]p/[196]own light switch.":return
  66. 66 print"[217]ou can't read [204]atin, la [205]ort.":return
  67. 67 print"[193] message in [204]atin is carved below it.":return
  68. 68 d$="[210][207][207][205] of the "+d$:print"[129]"spc(int(40-len(d$))/2)d$"[155]":d$="":i=fre(1):return
  69. 69 print"[217]ou are in a small triangular room, the"
  70. 70 print"one door closed snugly behind you.":return
  71. 71 print"[193]bove the door it says, '";:return
  72. 72 r=fnaa(4)+1
  73. 73 print:print"[159][145]";p$(r)"[158]";:return
  74. 74 ifc$="pa"orc$="fo"orc$="ci"orc$="go"thenifq%(32)=0then76
  75. 75 return
  76. 76 ifkd=0thenprint"[217]ou haven't earned entrance yet.":yy=1:return
  77. 77 ifleft$(a$,1)=" "andlen(a$)>1thena$=right$(a$,len(a$)-1):goto77
  78. 78 print"[155]";:fori=3tolen(a$):ifmid$(a$,i,1)=" "thenb$=mid$(a$,i+1,2):bh=1
  79. 79 ifbhthenbh=0:bh$=right$(a$,len(a$)-i):goto93
  80. 80 next
  81. 81 iflen(a$)=1thenb$="":c$="":return
  82. 82 a$=left$(a$,3):ifa$="qui"thengosub934:return
  83. 83 ifa$="loo"ora$="lo"thena$="l":goto81
  84. 84 ifa$="ver"thenvb=0:c$="":print"[214]erbose you got.":yy=1:return
  85. 85 ifa$="bri"thenvb=1:c$="":print"[194]rief you got.":yy=1:return
  86. 86 ifa$="sav"thengosub40:yy=1:return
  87. 87 ifa$="loa"then46
  88. 88 ifa$="inv"thengosub785:yy=1:return
  89. 89 ifa$="fon"thendf=df+1:df=dfand1:poke53272,19+3*df:yy=1:return
  90. 90 ifa$<>"hel"then93
  91. 91 print"[147]";:f$="h1":gosub106:print:gosub110:print
  92. 92 print"[147]":f$="h2":gosub106:print:yy=1:return
  93. 93 print"[155]":c$=left$(a$,2)
  94. 94 ifc$="ex"thenc$="lo"
  95. 95 ifc$="ge"thenc$="ta"
  96. 96 ifc$="pr"thenc$=b$:a$="pq":yy=1:return
  97. 97 a$=c$+b$
  98. 98 return
  99. 99 h=0:fori=35to38:h=h+q%(i):next:ifh<>q%(56)then101
  100. 100 print"[212]he whole [204]ibrary is lit!":q%(39)=1:return
  101. 101 q%(39)=0
  102. 102 ifq%(39)then105
  103. 103 print"[193]t this time only the rooms of the"
  104. 104 print"[207][212][212][197][210], [212][207][193][196], [199][201][210][193][198][198][197] and [208][201][199] are lit."
  105. 105 return
  106. 106 b=951:pokeb,4:pokeb+3,44:pokeb+4,80
  107. 107 fori=0to1:pokeb+1+i,asc(mid$(f$,i+1,1)):next:poke909,1
  108. 108 sys828
  109. 109 f$="":return
  110. 110 print:printtab(7)"[158][208]ress any key to continue[155]"
  111. 111 geta$:ifa$=""then111
  112. 112 return
  113. 113 ifa$<>"d"anda$<>"gotu"then125
  114. 114 print"[212]he tunnel leads to a well in the court-
  115. 115 [153]"onyard in the center of the (NULL)ibrary.
  116. 116 goto119
  117. 117 print"     [129][212][200][197] [195][207][213][210][212][217][193][210][196] of the [195][200][201][205][197][210][193][155]"
  118. 118 ifq%(40)=0thenprint"[217]ou see a well with a pewter bucket.
  119. 119 [153]"(NULL)here are doors to the north, east,"
  120. 120 [153]"south and west with signs above saying,"
  121. 121 [153]"'(NULL)(NULL)(NULL)val(NULL)', '(NULL)(NULL)atnstr$', 'chr$right$(NULL)atnascascval' and '(NULL)right$chr$',"
  122. 122 [153]"respectively.  valach door is fastened    with a holy-lock."
  123. 123 [139]q%(54)[178]0[167][153][163]19)"on(NULL)n the edge of the   well is a chalice."
  124. 124 q%(0)[178]8:[141]21:[137]131
  125. 125 [139]vb[167][153]"(NULL)ibrary":[137]127
  126. 126 [153]"load":f$[178]"li":[141]106
  127. 127 q%(0)[178]7:[141]21
  128. 128 [139]c$[178]"go"[167][141]6:[139]cx[167]548
  129. 129 [139]a$[178]"l"[167][153]:[137]125
  130. 130 [141]784:[137]127
  131. 131 [139]a$[178]"l"[167][153]:[137]117
  132. 132 [145][171](c$[178]"ot")[171]2[172](c$[178]"to")[171]3[172](c$[178]"gi")[171]4[172](c$[178]"pi")[137]178,269,354,444
  133. 133 [139]a$[178]"gotu"[167]620
  134. 134 [139]a$[178]"clro"[176]a$[178]"goro"[176]a$[178]"clbe"[176]a$[178]"gobe"[175]q%(50)[177]1[167]a$[178]"gowe"
  135. 135 [139]a$[179][177]"gowe"[167]140
  136. 136 [139]q%(50)[178]0[167]620
  137. 137 [139]q%(50)[178]2[167]q%(50)[178]3:[153]"lenlimbing down the rope you see a priest hole.":[137]124
  138. 138 [153]"(NULL)he knot slips when you put tension on  the rope ";
  139. 139 [153]"and you almost fall into the   well.":q%(50)[178]0:[137]124
  140. 140 [139](a$[178]"goho"[176]a$[178]"gopr")[175](q%(50)[178]3)[167]529
  141. 141 [139]a$[179][177]"lobu"[167]144
  142. 142 [139]q%(40)[167][153]"(NULL)he bucket is gone.":[137]124
  143. 143 [153]"(NULL)here's something etched in the bottom  too small to make out.":[137]124
  144. 144 [139]a$[179][177]"loro"[175]a$[179][177]"taro"[167]147
  145. 145 [139]q%(40)[175](q%(50)[178]0)[167][153]"(NULL)here's no rope.":[137]124
  146. 146 [153]"(NULL)he rope is tied to the well beam.":[137]124
  147. 147 [139]a$[178]"tabu"[175]q%(40)[178]0[167][153]"right$t's too heavy to take.":[137]124
  148. 148 [139]a$[179][177]"losp"[176]q%(54)[178]0[167]150
  149. 149 f$[178]"dc":[141]106:[153]:[137]124
  150. 150 [139]a$[179][177]"fibu"[176]q%(40)[167]152
  151. 151 f$[178]"bu":[141]106:[153]:q%(40)[178]1:[137]124
  152. 152 [139]a$[179][177]"lowe"[167]161
  153. 153 f$[178]"we":[141]106:[153]
  154. 154 [139]q%(40)[178]0[167]157
  155. 155 [153]"mid$ust above the water line there is"
  156. 156 [153]"something you can't quite make out."
  157. 157 [139]q%(50)[178]0[167]124
  158. 158 [153]"(NULL)he bellrope is tied at the top and is"
  159. 159 [153]"dangling into the well."
  160. 160 [137]124
  161. 161 [139]a$[179][177]"rein"[175]a$[179][177]"loin"[167]166
  162. 162 [139]q%(8)[178]0[167]165
  163. 163 [153][163]10)"for(NULL)he (NULL)ell of (NULL)t (NULL)purious"
  164. 164 [153]"list(NULL)he well is the center of all knowledge.onon":[137]124
  165. 165 [153]"(NULL)atin has never been your strong suit,  right$nspector.":[137]124
  166. 166 [139]a$[179][177]"tibe"[175]a$[179][177]"tiro"[176]q%(25)[178]0[167]170
  167. 167 q%(25)[178]0:[153]"for(NULL)hich knot do you prefer";:[141]10
  168. 168 [139][200](a$,2)[178]"sl"[167][153]"listatn wise choice.":q%(50)[178]2:[137]124
  169. 169 [153]"listright$f you say so.":q%(50)[