home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1998 4 / Power_Disk_64_98-04_1998_Lagune_de_Side_B.d64 / jasmyner-preview (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  346 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem * jasmyne ronda -  female agent *
  4. 4 rem *            preview            *
  5. 5 rem * (w) in 1998 by grandmaster aj *
  6. 6 rem *                               *
  7. 7 rem *  (c) in 1998 by  lagune soft  *
  8. 8 rem *                               *
  9. 9 rem *the grandmaster is watching u !*
  10. 10 rem*********************************
  11. 11 poke53280,15:poke53281,11
  12. 12 gosub9020
  13. 13 print"[204][193][199][213][206][197]  [211][207][198][212]"
  14. 14 print"presents"
  15. 15 gosub9998
  16. 16 gosub9020
  17. 17 print"[193] [211]piel by"
  18. 18 print"[199]randmaster [193].[202]."
  19. 19 gosub9998
  20. 20 print"[147][158]      [202]asmyne [210]onda - [198]emale [193]gent      "
  21. 21 print"                [208]review"
  22. 22 gosub9998
  23. 100 gosub9000
  24. 101 print"[202]asmyne befindet sich im [195][201][193] [200]aupt-    quartier in [211][212][210][197][206][199] [199][197][200][193][201][205]."
  25. 102 print"[158][210]ichtungen: [206] [211] [215] [207][158]"
  26. 103 print"[208]ersonen: [211]ekretaerin  [193]gent 0815[158]"
  27. 104 print"[207]bjekte: [198]ahrstuhl  [197]ingangstuer                 [203]lotuer  [211]chreibtisch"
  28. 105 print"         [211]tuhl  [199]emaelde  [214]ase[158]"
  29. 106 gosub9998
  30. 107 ifa$="a"then130
  31. 108 ifa$="u"then120
  32. 109 ifa$="b"thengosub9500:goto100
  33. 110 ifa$="g"thengosub8000:goto100
  34. 111 ifa$="p"thengosub8500:goto100
  35. 112 ifa$="n"then250
  36. 113 ifa$="s"then260
  37. 114 ifa$="w"then270
  38. 115 ifa$="o"then290
  39. 116 goto106
  40. 120 print"[145][145][145][145][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  41. 121 print"[221] ([211])ekretaerin[158] [221]"
  42. 122 print"[145][221] ([193])gent 0815[158]  [221]"
  43. 123 print"[221] ([218])urueck[158]     [221]"
  44. 124 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  45. 125 gosub9998
  46. 126 ifa$="s"then150
  47. 127 ifa$="a"then160
  48. 128 ifa$="z"then100
  49. 129 goto125
  50. 130 print"[145][145][145][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  51. 131 print"[145][221] ([198])ahrstuhl[158]    [221]"
  52. 132 print"[221] ([197])ingangstuer[158] [221]"
  53. 133 print"[221] ([203])lotuer[158]      [221]"
  54. 134 print"[221] ([211])chreibtisch[158] [221]"
  55. 135 print"[221] [211](t)uhl[158]        [221]"
  56. 136 print"[221] ([199])emaelde[158]     [221]"
  57. 137 print"[221] ([214])ase[158]         [221]"
  58. 138 print"[221] ([218])urueck[158]      [221]"
  59. 139 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  60. 140 gosub9998
  61. 141 ifa$="f"then300
  62. 142 ifa$="e"then180
  63. 143 ifa$="k"then190
  64. 144 ifa$="s"then200
  65. 145 ifa$="t"then210
  66. 146 ifa$="g"then220
  67. 147 ifa$="v"then230
  68. 148 ifa$="z"then100
  69. 149 goto140
  70. 150 gosub9020
  71. 151 print"[202][210]: [200]i [204]iz. [201]ch habe gehoert [196]u musstest    neulich den [206]otarzt rufen. [215]as
  72. 152 [153]"    war denn passiert ?"
  73. 153 [153]"sys(NULL) : atnch, das kannst str$u str$ir nicht vor-       stellen ! right$ch blaettere nix"
  74. 154 [153]"    boeses ahnend in der (NULL)(NULL) (NULL)eitung, als    mir doch glatt ein ascingernagel"
  75. 155 [153]"    abbricht ! (NULL)as fuer ein (NULL)chock ..."
  76. 156 [153]"sysmid$(NULL): atneh ... ja ... ja, das kenne ich        auch. ((NULL)pinnerin !)"
  77. 157 [141]9998
  78. 158 [137]100
  79. 160 [141]9020
  80. 161 [153]"mid$(NULL): left$ey, 0815. left$ast str$u was von diesem       gestohlenen (NULL)ikrofilm ge-"
  81. 162 [153]"    hoert ?                             sys08: (NULL)er ? right$ch ?!? (NULL)oe ..."
  82. 163 [153]"sysmid$(NULL): atnch ... und wie geht's str$einer ascrau ?sys08: right$st letzte (NULL)oche von 'ner"
  83. 164 [153]"    (NULL)trassenwalze ueberfahren worden.   sysmid$(NULL): (NULL)h ... tut mir leid."
  84. 165 [153]"sys08: (NULL)ieso ? (NULL)ein (NULL)lan ist damit doch        voll aufgegangen !"
  85. 166 [153]"sysmid$(NULL): atnehm ... ja. left$ast str$u vielleicht         einen (NULL)ip, an wen ich mich"
  86. 167 [153]"    wegen dieser (NULL)ikrofilm (NULL)ache wenden     koennte ?"
  87. 168 [153]"sys08: left$mm ... was (NULL)riginal chr$(NULL)(NULL)(NULL)asc chr$egen-       staende anbetrifft, da ist"
  88. 169 [153]"    (NULL)naufgal aus (NULL)ondon immer ganz gut      informiert gewesen, aber seit"
  89. 170 [153]"    seinem atnmoklauf steckt er beim          (NULL)eister maechtig gewaltig in"
  90. 171 [153]"    der (NULL)cheisse. (NULL)ehr kann ich str$ir         auch nicht sagen ..."
  91. 172 [141]9998
  92. 173 [137]100
  93. 180 [141]9010
  94. 181 [153]"atnuf der (NULL)uer steht '(NULL)ein valingang !'."
  95. 182 [141]9998
  96. 183 [137]100
  97. 190 [141]9010
  98. 191 [153]"(NULL)ein, erst nach dem (NULL)piel ... str$u        koenntest ja immerhin ein notgeiler
  99. 192 print"[211]panner sein !"
  100. 193 gosub9998
  101. 194 goto100
  102. 200 gosub9020
  103. 201 print"[211] : [198]inger weg !"
  104. 202 gosub9998
  105. 203 goto100
  106. 210 gosub9010
  107. 211 print"[202]a, doch. [211]itzt sich bequem in [210]e-      gierungseigentum ..."
  108. 212 gosub9998
  109. 213 goto100
  110. 220 gosub9010
  111. 221 print"[200]mm ... wie ein junger [199]ott. [196]as nehme  ich unauffaellig mit ..."
  112. 222 b$(1)="[199]emaelde":ifa<1thena=1
  113. 223 gosub9998
  114. 224 goto100
  115. 230 gosub9010
  116. 231 print"[207]oops ! [196]ie ist mir wohl runterge-      fallen ..."
  117. 232 print"[158][211] : [205]eine [199]uete ! [196]ie schoene [214]ase !        [213]nd wer muss das wieder auf-"
  118. 233 print"    kehren ? [201]ch ! [215]ofuer werde ich         eigentlich bezahlt ?!?'"
  119. 234 print"[202]a. [215]ofuer ? [200]mm ... freier [215]eg zur     [211]chublade  !"
  120. 235 print"([203]ram) ([215]uehl) ([210]umstoeber) ([198]ind !)    [200]e hee. [197]in [207]riginal [199][206][205][208][198] [212]elefon-
  121. 236 [153]"buch fuer (NULL)ekretaerinnen ! str$a steht mehrdrin als fuer uns atngenten eigent-"
  122. 237 [153]"lich bestimmt ist ..."
  123. 238 b$(2)[178]"(NULL)elefonbuch":[139]a[179]2[167]a[178]2
  124. 239 [141]9998
  125. 240 [137]100
  126. 250 [141]9010
  127. 251 [153]"str$a ist nur die valingangstuer."
  128. 252 [141]9998
  129. 253 [137]100
  130. 260 [141]9010
  131. 261 [153]"str$er chr$eorge (NULL)ichael chr$edenksaal ..."
  132. 262 [141]9998
  133. 263 [137]100
  134. 270 [141]9010
  135. 271 [153]"(NULL)oll ich etwa gegen eine (NULL)and laufen ?  sys(mid$/(NULL))"
  136. 272 [141]9998
  137. 273 [139]a$[178]"j"[167]276
  138. 274 [139]a$[178]"n"[167]279
  139. 275 [137]272
  140. 276 [153]"atnutsch ! (NULL)ie gemeeeiiiiin ..."
  141. 277 [141]9998
  142. 278 [137]100
  143. 279 [153]"str$anke ..."
  144. 280 [141]9998
  145. 281 [137]100
  146. 290 [141]9010
  147. 291 [153]"str$a ist der ascahrstuhl. (NULL)oll ich ein-     steigen ? sys(mid$/(NULL))"
  148. 292 [141]9998
  149. 293 [139]a$[178]"j"[167]300
  150. 294 [139]a$[178]"n"[167]100
  151. 295 [137]292
  152. 300 [141]9000
  153. 301 [153]"mid$asmyne ist nun im (NULL)arkhaus des left$(NULL)."
  154. 302 [153]"sys(NULL)ichtungen: (NULL) (NULL)sys"
  155. 303 [153]"(NULL)ersonen: ascrau mit left$undsys"
  156. 304 [153]"(NULL)bjekte: mid$asmynes atnuto  left$und  ascahrstuhlsys"
  157. 305 [141]9998
  158. 306 [139]a$[178]"a"[167]330
  159. 307 [139]a$[178]"u"[167]320
  160. 308 [139]a$[178]"b"[167][141]9500:[137]300
  161. 309 [139]a$[178]"g"[167][141]8000:[137]300
  162. 310 [139]a$[178]"p"[167][141]8500:[137]300
  163. 311 [139]a$[178]"n"[167]470
  164. 312 [139]a$[178]"w"[167]460
  165. 313 [137]305
  166. 320 [153]"ononononortantantantantantantantantantantan^"
  167. 321 [153]"(NULL) (asc)rausys    (NULL)"
  168. 322 [153]"(NULL) (left$)undsys    (NULL)"
  169. 323 [153]"(NULL) ((NULL))uruecksys (NULL)"
  170. 324 [153]"/tantantantantantantantantantantanexp"
  171. 325 [141]9998
  172. 326 [139]a$[178]"f"[167]350
  173. 327 [139]a$[178]"h"[167]360
  174. 328 [139]a$[178]"z"[167]300
  175. 329 [137]325
  176. 330 [153]"onortantantantantantantantantantantantantan^"
  177. 331 [153]"(NULL) (asc)ahrstuhlsys (NULL)"
  178. 332 [153]"(NULL) (atn)utosys      (NULL)"
  179. 333 [153]"(NULL) (left$)undsys      (NULL)"
  180. 334 [153]"(NULL) ((NULL))uruecksys   (NULL)"
  181. 335 [153]"/tantantantantantantantantantantantantanexp"
  182. 340 [141]9998
  183. 341 [139]a$[178]"f"[167]100
  184. 342 [139]a$[178]"a"[167]380
  185. 343 [139]a$[178]"h"[167]370
  186. 344 [139]a$[178]"z"[167]300
  187. 345 [137]340
  188. 350 [141]9020
  189. 351 [153]"mid$(NULL): str$as ist aber ein suesschen              left$uendchen !"
  190. 352 [153]"sysasc(NULL): mid$a, aber sprechen sie ihn bitte         nicht direkt an. str$as mag er"
  191. 353 [153]"    nicht sehr ..."
  192. 354 [141]9998
  193. 355 [137]300
  194. 360 [141]9020
  195. 361 [153]"mid$(NULL): (NULL)uff."
  196. 362 [153]"sysleft$(NULL): --- (peekeiss !)"
  197. 363 [153]"sysasc(NULL): (NULL)ehen (NULL)ie ? valben aus diesem chr$rund       beissen 'bellende' left$unde"
  198. 364 [153]"    nicht."
  199. 365 [153]"sysmid$(NULL): mid$autsch - ich werd's mir merken."
  200. 366 [141]9998
  201. 367 [137]300
  202. 370 [141]9010
  203. 371 [153]"(NULL)ie bitte ? right$ch soll den left$und benutzen ?str$u (NULL)erversling !!!"
  204. 372 [141]9998
  205. 373 [137]300
  206. 380 [141]9010
  207. 381 [153]"(NULL)rrmmm ! (NULL)rrrrmmm ! (NULL)o willst str$u mich   hinhaben ?!?"
  208. 382 [153]"sys(peek)ahnhof  (asc)lughafen (left$)afen"
  209. 383 [153]"((NULL))as (NULL)egas  ((NULL))ew (NULL)ork  ((NULL))isch"
  210. 384 [141]9998
  211. 385 [139]a$[178]"b"[167]440
  212. 386 [139]a$[178]"f"[167]
  213. 387 [139]a$[178]"h"[167]
  214. 388 [139]a$[178]"l"[167]
  215. 389 [139]a$[178]"n"[167]
  216. 390 [139]a$[178]"t"[167]400
  217. 391 [137]384
  218. 400 [141]9010
  219. 401 [139]b[178]1[167]405
  220. 402 [153]"(NULL)ie bitte ?":b[178]1
  221. 403 [141]9998
  222. 404 [137]382
  223. 405 [153]"right$ch soll mich auf einen (NULL)isch begeben ? mid$a, klar ! (NULL)ie waer's denn mit 'nem
  224. 406 print"[199][193][205][197] [207][214][197][210] ?!?"
  225. 407 gosub9998
  226. 408 print"[206]aja, ich will mal nicht so sein. [215]enn  [196]u mir versprichst auf die [203]nie"
  227. 409 print"zu gehen, dann darfst [196]u jetzt weiter-  spielen ... ([202]/[206])"
  228. 410 gosub9998
  229. 411 ifa$="j"then420
  230. 412 ifa$="n"then430
  231. 413 goto410
  232. 420 print"[203]auf' ich [196]ir aber nicht ab ..."
  233. 421 end
  234. 430 print"[215]enigstens ehrlich ... also geht's      weiter ..."
  235. 431 goto382
  236. 440 gosub9000
  237. 441 print"[202]asmyne ist nun am [194]ahnhof. [196]ort sind  [218]uege und [204]eute und [199]leise und"
  238. 442 print"viele bunte [211]marties."
  239. 443 print"[158][210]ichtungen: [206] [211] [215] [207][158]"
  240. 444 print"[208]ersonen: [204]okfuehrer  [208]enner  [193][202][158]"
  241. 445 print"[207]bjekte: [202]asmynes [193]uto  [212]icket-[193]utomat           [198]ahrplan  [194]uchladen[158]"
  242. 446 gosub9998
  243. 447 ifa$="a"then480
  244. 448 ifa$="u"then480
  245. 449 ifa$="b"thengosub9500:goto440
  246. 450 ifa$="g"thengosub8000:goto440
  247. 451 ifa$="p"thengosub8500:goto440
  248. 452 ifa$="n"then480
  249. 453 ifa$="s"then480
  250. 454 ifa$="w"then480
  251. 455 ifa$="o"then480
  252. 456 goto446
  253. 460 gosub9010
  254. 461 print"[196]a ist der [198]ahrstuhl. [211]oll ich ein-     steigen ? [158]([202]/[206])"
  255. 462 gosub9998
  256. 463 ifa$="j"then100
  257. 464 ifa$="n"then300
  258. 465 goto462
  259. 470 gosub9010
  260. 471 print"[196]a ist der [193]usgang. [211]oll ich raus-      fahren ? [158]([202]/[206])"
  261. 472 gosub9998
  262. 473 ifa$="j"then380
  263. 474 ifa$="n"then300
  264. 475 goto472
  265. 480 gosub9010
  266. 481 print" [193]n dieser [211]telle endet das [208]review.    [196]ie fertige [214]ersion wird dann"
  267. 482 print"hoffentlich in der neuen [208]ower [196]isk 64  [193]usgabe 1/99 erscheinen."
  268. 483 gosub9998
  269. 484 new
  270. 8000 gosub9010
  271. 8001 print" [202]asmyne [210]onda ist [195][201][193] [193]gentin, was     [206][201][195][200][212] fuer [195]hinesische [201]nzest"
  272. 8002 print"[193]rbeitskraefte steht. [213]m es kurz zu     machen: in diesem [211]piel wird sie"
  273. 8003 print"[193]benteuer auf der ganzen [215]elt erleben.  [193]ber ausfuehrlich sieht's so aus:"
  274. 8004 print" [196]ie [199]eheimplaene (auf [207]riginal [199][206][205][208][198]   [205]ikrofilm) fuer ein geheimes [205]ili-
  275. 8005 [153]"taer projekt sind gestohlen worden. vals  ist soooo geheim, dass mid$asmyne"
  276. 8006 [153]"nicht erfaehrt, um was es sich handelt. right$hr lenhef erzaehlt ihr nur, dass"
  277. 8007 [153]"sie die (NULL)laene unbedingt zurueckholen   muss. atnn dieser (NULL)telle schlage ich
  278. 8008 print"vor, eine gute [195][196] einzuschmeissen, da   es in diesem [199]ame keinen [211]ound"
  279. 8009 print"gibt ... doch weiter in der [199]eschichte.  [196]ie [208]laene wurden von einer ge-"
  280. 8010 print"heimen [205]ilitaerbasis in der [206]aehe von   [195]hicago gestohlen. [218]uvor waren sie
  281. 8011 [141]9998
  282. 8012 [141]9010
  283. 8013 [153]"rein zufaellig in eben dieser geheimen, aber natuerlich rein fiktiven"
  284. 8014 [153]"(NULL)ilitaerbasis gelagert. (NULL)ehr atnnhalts-   punkte koennen str$ir nicht gegeben"
  285. 8015 [153]"werden ... obwohl - ich koennte schon,  tue es aber nicht ... also ran an"
  286. 8016 [153]"den 21. (NULL)pieltag, mit den (NULL)pielen ...   aeh ... ich meine, ran an den"
  287. 8017 [153]"ascall, atngent mid$asmyne (NULL)onda !"
  288. 8018 [141]9998
  289. 8019 [141]9010
  290. 8020 [153]"(NULL)nd falls sich jemand fragen sollte,   wie dieses (NULL)ext-atndventure bedient"
  291. 8021 [153]"wird, dann sollte er/ sie/ es hier ein  paar atnntworten finden:"
  292. 8022 [153]"(NULL)ittels sysatnktion kann man an (NULL)bjekten     eine jeweils vom (NULL)piel her lo-"
  293. 8023 [153]"gische atnktion ausfuehren. (NULL)it sys(NULL)nterhal- tung kann man mit (NULL)ersonen"
  294. 8024 [153]"reden. peekei sys(NULL)bjekte kann man (NULL)bjekte     aus seinem right$nventar auflisten"
  295. 8025 [153]"und sie mit anderen (NULL)bjekten kombi-     nieren, an andere (NULL)ersonen geben"
  296. 8026 [153]"oder einfach nur benutzen."
  297. 8027 [153]"peekei atnktion wird immer automatisch der  richtige peekefehl ausgefuehrt, man"
  298. 8028 [153]"muss also nicht stundenlang herausfindenmit welchem peekefehl man z.peek. einen"
  299. 8029 [153]"ascahrstuhl benutzt. right$ndividuelle left$and-   lungen sind immer erst moeglich,"
  300. 8030 [141]9998
  301. 8031 [141]9010
  302. 8032 [153]"nachdem man ein (NULL)bjekt in seinem right$nven- tar, also in seinem peekesitz hat."
  303. 8033 [153]"(NULL)m es wieder ein (NULL)tueckchen einfacher zumachen, wird man im (NULL)aufe des"
  304. 8034 [153]"(NULL)piels nicht ewig viele (NULL)bjekte in      seinem right$nventar wiederfinden, die"
  305. 8035 [153]"am valnde sogar noch unbrauchbar sind.    atnllgemein nennt man so was einen"
  306. 8036 [153]"roten left$ering."
  307. 8037 [153]"atnlso, man muss eigentlich nur die      richtigen chr$eistesblitze haben und"
  308. 8038 [153]"dann nicht extra noch ewig lang den     richtigen peekefehl raussuchen, da"
  309. 8039 [153]"man nicht immer mittels '(NULL)ieh an' ein   peekuch lesen kann oder so in der"
  310. 8040 [153]"atnrt ..."
  311. 8041 [153]"peekei sys(NULL)asswort kann man uebrigens sein   aktuelles (NULL)asswort erfahren und"
  312. 8042 [153]"ein schon erspieltes eingeben. str$as      dient zum (NULL)pielstandspeichern ..."
  313. 8043 [141]9998
  314. 8044 [142]
  315. 8500 [141]9010
  316. 8501 [153]"(NULL)och keine (NULL)asswortfunktion in dieser   str$emo."
  317. 8502 [141]9998
  318. 8503 [142]
  319. 8999 [128]
  320. 9000 [141]9020
  321. 9001 [153]"(atn)ktion  ((NULL))nterhaltung  (NULL)(b)jekte     (chr$)eschichte  ((NULL))asswort"
  322. 9002 [142]
  323. 9010 [153]"listload mid$asmyne (NULL)onda - ascemale atngent ((NULL)review) ":[142]
  324. 9020 [153]"listload mid$asmyne (NULL)onda - ascemale atngent ((NULL)review) sys":[142]
  325. 9500 [139]a[178]0[167]9505
  326. 9501 [137]9510
  327. 9505 [153]"ononononortantantantantantantantantantantantantantantan^"
  328. 9506 [153]"(NULL) (NULL)eine (NULL)bjektesys (NULL)"
  329. 9507 [153]"on/tantantantantantantantantantantantantantantanexp"
  330. 9508 [141]9998
  331. 9509 [142]
  332. 9510 [153]"ononononortantantantantantantantantantantantantantantantantantan^"
  333. 9511 [129]z[178]1[164]a
  334. 9512 [139]b$(z)[178]""[167][130]z:[137]9523
  335. 9520 [153]"(NULL)"z"=sys "b$(z)"             "
  336. 9521 [153]"onon (NULL)"
  337. 9522 [130]z
  338. 9523 [153]"on/tantantantantantantantantantantantantantantantantantanexp"
  339. 9524 [141]9998
  340. 9525 [141]9010
  341. 9526 [153]"str$ie (NULL)bjektfunktion ist noch nicht aktiv."
  342. 9527 [141]9998
  343. 9528 [142]
  344. 9998 [161]a$:[139]a$[178]""[167]9998
  345. 9999 [142]
  346.