home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 1 / Dark_Star_01_1995_-_de_Side_B.d64 / odyssey (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  35KB  |  1,126 lines
  1. 0 print"[147]":poke53280,0:poke53281,0:f=2:gosub20000:poke198,0:gosub750
  2. 10 dimt$(80):dimra$(20,10):wl=3:ti$="000000"
  3. 20 rem *** gegenstaende ********************************************************
  4. 22 g$(0)=" ":g$(1)="messer":g$(2)="metallbehaelter":g$(3)="buch":g$(4)="beil"
  5. 24 g$(5)="fruechte":g$(6)="verbandszeug":g$(7)="schlangenserum"
  6. 26 g$(8)="edelsteine":g$(9)="faltboot"
  7. 36 print"[147]"chr$(14):gosub25000
  8. 80 rem *** sprung in raum ******************************************************
  9. 90 goto1000
  10. 100 ifun=1thengoto200
  11. 101 print""
  12. 102 zv=rnd(1):ifzv<0.5thenprint"was nun ?":goto110
  13. 103 ifzv>0.5andzv<0.80thenprint"was jetzt ?":goto110
  14. 105 print"und jetzt ?"
  15. 110 print"[145]":x$="":printchr$(114)
  16. 120 getb$
  17. 125 ifza=1thenifti-d>lithent=1:r=0:p$="":goto300
  18. 127 ifb$=""then120
  19. 130 ifasc(b$)=13then198
  20. 140 ifasc(b$)=20andx$<>""then160
  21. 142 ifasc(b$)=32then150
  22. 145 ifasc(b$)<65orasc(b$)>90then120
  23. 150 x$=x$+b$:goto180
  24. 160 x$=left$(x$,len(x$)-1)
  25. 170 iflen(x$)<41andlen(x$)>37thenprint"[145][145]"x$+chr$(114)+chr$(32):ua=1:goto120
  26. 175 goto190
  27. 180 iflen(x$)<40and ua=0 thenprint"[145]"x$+chr$(114):ua=0:goto120
  28. 185 print"[145][145]"x$+chr$(114):goto194
  29. 190 iflen(x$)<41and ua=0 thenprint"[145]"x$+chr$(114)+chr$(20):goto194
  30. 192 print"[145][145]"x$+chr$(114)+chr$(20):goto194
  31. 194 iflen(x$)<79then120
  32. 195 getb$:ifb$<>chr$(20)andb$<>chr$(13)then195
  33. 196 print"[145][145]":goto130
  34. 198 iflen(x$)<39thenprint"[145]"x$+chr$(46):goto200
  35. 199 print"[145][145]"x$+chr$(46)
  36. 200 rem *** stringzerlegung ****************************************************
  37. 210 un=0:wo=0:sz=0:t$(0)=""
  38. 217 ifx$=""andun=0thengoto713
  39. 220 forx=1tolen(x$)
  40. 230 :   ifmid$(x$,x,1)<>" "andwo=0thenwo=x
  41. 235 : ifmid$(x$,x,1)=" "andwo<>0thent$(sz)=mid$(x$,wo,x-wo):wo=0:sz=sz+1:goto280
  42. 240 :ifx=len(x$)andwo<>0thent$(sz)=mid$(x$,wo,x-wo+1):sz=sz+1
  43. 270 next:goto300
  44. 280 :   ift$(sz-1)="und"thenx$=right$(x$,len(x$)-x):un=1:goto300
  45. 290 goto270
  46. 300 rem *** wortanalyse ********************************************************
  47. 305 s=0:v=0:r=0:g=0:q=0
  48. 310 fori=0tosz-1
  49. 315 ift$(0)=""thengosub704:return
  50. 320 :   p$=t$(i):f=asc(p$)-64
  51. 330 :   onfgoto350,360,370,380,390,400,410,420,430,440,450,460,470
  52. 340 :   onf-13goto480,490,500,510,520,526,545,550,560,570,580,590,600
  53. 345 next
  54. 346 ifv=0ands=0andg=0andr=0thengosub702
  55. 347 gosub800
  56. 349 return
  57. 350 rem *** a-ber
  58. 351 ifp$="ast"thens=3:goto345
  59. 352 ifp$="alles"thens=1
  60. 353 ifp$="asche"thens=7
  61. 359 goto345
  62. 360 ifp$="betrete"orp$="betritt"thenv=27
  63. 361 ifleft$(p$,4)="baum"thens=2:goto345
  64. 362 ifp$="buch"theng=3:s=10
  65. 363 ifp$="beil"theng=4
  66. 364 ifp$="behaelter"theng=2
  67. 365 ifp$="bring"thenv=3
  68. 366 ifp$="beruehre"thenv=23
  69. 367 ifp$="bild"thens=25:goto345
  70. 368 ifp$="behandle"orp$="behandele"thenv=26
  71. 369 ifp$="boot"theng=9
  72. 370 rem *** c-ber
  73. 379 goto345
  74. 380 rem *** d-ber
  75. 381 ifp$="drehe"thenv=15
  76. 382 ifp$="druecke"thenv=23
  77. 389 goto345
  78. 390 rem *** e-ber
  79. 391 ifp$="edelsteine"theng=8
  80. 395 ifp$="essen"thenv=5
  81. 396 ifp$="entzuende"thenv=25
  82. 399 goto345
  83. 400 ifp$="fahre"thenv=31
  84. 401 ifp$="fruechte"theng=5:s=11
  85. 402 ifp$="fass"thens=8
  86. 403 ifp$="felswand"thens=14
  87. 404 ifp$="fuelle"thenv=11
  88. 405 ifp$="faelle"thenv=14
  89. 406 ifp$="fuenf"thenv=29
  90. 407 ifp$="faltboot"theng=9
  91. 408 ifp$="felseninsel"thens=32
  92. 409 goto345
  93. 410 rem *** g-ber
  94. 411 ifp$="goldschale"thens=13
  95. 412 ifp$="gorilla"thens=19
  96. 413 ifp$="goetzenbild"thens=25
  97. 414 ifp$="grabe"thenv=30
  98. 415 ifp$="gehe"thenv=27
  99. 419 goto345
  100. 420 rem *** h-ber
  101. 421 ifp$="h"orp$="hinauf"thenr=5
  102. 422 if p$="hinunter"thenr=6
  103. 423 if p$="hand"thens=20
  104. 424 if p$="haenge"thenv=17
  105. 425 if p$="hinueber"theng=10
  106. 426 if p$="hangle"orp$="hangele"thenv=22
  107. 427 if p$="huette"thens=30
  108. 429 goto345
  109. 430 rem *** i-ber
  110. 431 ifp$="insel"thens=32
  111. 435 ifp$="i"orp$="inventur"thens=4
  112. 436 ifp$="iss"thenv=5
  113. 439 goto345
  114. 440 rem *** j-ber
  115. 441 ifp$="jaguar"thens=29
  116. 449 goto345
  117. 450 rem *** k-ber
  118. 451 ifp$="kiste"thens=15
  119. 459 goto345
  120. 460 rem *** l-ber
  121. 461 ifp$="liane"thens=18
  122. 465 ifp$="lege"thenv=2
  123. 466 ifp$="leere"thenv=15
  124. 467 ifp$="lies"thenv=8
  125. 469 goto345
  126. 470 rem *** m-ber
  127. 471 ifp$="messer"theng=1
  128. 472 ifp$="metallbehaelter"theng=2
  129. 473 ifp$="metallkiste"thens=11
  130. 474 ifp$="maennchen"thens=22
  131. 475 ifp$="mache"thenv=12
  132. 479 goto345
  133. 480 rem *** n-ber
  134. 481 ifp$="n"orleft$(p$,3)="nor"thenr=1
  135. 485 ifp$="nimm"thenv=1
  136. 489 goto345
  137. 490 rem *** o-ber
  138. 491 ifp$="o"orleft$(p$,3)="ost"thenr=4
  139. 492 ifp$="oeffne"thenv=7
  140. 499 goto345
  141. 500 rem *** p-ber
  142. 501 ifp$="pulver"thens=21
  143. 502 ifp$="paddele"thenv=31
  144. 509 goto345
  145. 510 rem *** q-ber
  146. 519 goto345
  147. 520 rem *** r-ber
  148. 521 ifp$="r"orp$="runter"thenr=6
  149. 522 ifp$="rutsche"thenv=24
  150. 523 ifp$="rampe"thens=26
  151. 524 ifp$="rudere"thenv=31
  152. 525 goto345
  153. 526 ifp$="spritze"thenv=32
  154. 527 ifleft$(p$,6)="spalte"thens=33
  155. 530 ifp$="s"orleft$(p$,4)="sued"thenr=2
  156. 531 ifleft$(p$,4)="sing"thenv=19
  157. 532 ifp$="schlangenserum"orright$(p$,5)="serum"theng=7
  158. 533 ifp$="schau"thens=5
  159. 534 ifp$="schale"thens=13
  160. 535 ifp$="strand"thens=6
  161. 536 ifp$="strauch"thens=12
  162. 537 ifleft$(p$,6)="schuet"thenv=9
  163. 538 ifp$="schliesse"thenv=10
  164. 539 ifp$="schuette"thenv=11
  165. 540 ifp$="schiesspulver"thens=21
  166. 541 ifleft$(p$,6)="spring"thenv=13
  167. 542 ifp$="sand"thenkg=1
  168. 543 ifp$="spinne"thens=23
  169. 544 goto345
  170. 545 rem *** t-ber
  171. 546 ifp$="tisch"thens=9
  172. 547 ifp$="toete"thenv=20
  173. 549 goto345
  174. 550 rem *** u-ber
  175. 555 if p$="untersuche"thenv=6
  176. 559 goto345
  177. 560 rem *** v-ber
  178. 561 ifp$="verbandszeug"theng=6
  179. 562 ifp$="vogelspinne"thens=23
  180. 563 ifp$="vorsprung"orp$="vorspruenge"thens=24
  181. 564 ifp$="verbinde"thenv=26
  182. 565 ifleft$(p$,7)="verlier"thenv=2
  183. 566 ifp$="verlasse"thenv=28
  184. 567 ifp$="vernichte"thenv=20
  185. 569 goto345
  186. 570 rem *** w-ber
  187. 571 ifp$="w"orleft$(p$,4)="west"thenr=3
  188. 572 ifleft$(p$,5)="warte"thenv=4
  189. 573 ifp$="wand"thens=14
  190. 574 ifp$="wildstrauch"thens=12
  191. 575 ifp$="wirf"thenv=11
  192. 576 ifp$="wende"thenv=15
  193. 577 ifp$="weg"thens=27
  194. 578 ifp$="wasser"thens=31
  195. 579 goto345
  196. 580 rem *** x-ber
  197. 589 goto345
  198. 590 rem *** y-ber
  199. 599 goto345
  200. 600 rem *** z-ber
  201. 601 ifp$="zeug"theng=6
  202. 602 ifp$="zurueck"thenv=18
  203. 603 ifp$="zeichnung"thens=25
  204. 604 ifp$="zuendschnur"thens=28
  205. 605 ifp$="zuende"thenv=25
  206. 609 goto345
  207. 700 rem *** standard-antworten *************************************************
  208. 701 print"kein weg in dieser richtung !":q=1:return
  209. 702 zv=rnd(1):ifzv<0.8thenprint"das verstehe ich nicht!":q=1:return
  210. 703 print"was soll den  d a s  bedeuten ? !":q=1:return
  211. 704 print"[145]bitte eine korrekte eingabe!":r=0:q=1:goto347
  212. 705 print"ok":q=1:return
  213. 706 print"hier gibt es nichts mehr zu nehmen!":q=1:goto989
  214. 707 print"sie haben doch nichts mehr!":q=1:goto989
  215. 708 print"sie entdecken nichts besonderes.":q=1:return
  216. 709 print"ist schon offen!":q=1:return
  217. 710 print"ist schon zu!":q=1:return
  218. 711 print"sie warten.die zeit vergeht...":q=1:return
  219. 712 print"soviele sachen koennen sie nicht tragen![145][145]":q=1:return
  220. 713 print"[145]wieso druecken sie 'return' ohne etwas einzugeben ?":ua=0:goto100
  221. 730 r=0:s=0:v=0:g=0:q=1:return
  222. 749 rem *** standard-reaktionen ************************************************
  223. 750 getb$:ifb$<>chr$(32)then750
  224. 751 x$="":return
  225. 760 fori=0to10:ifra$(ra,i)<>""thenprint"[158]"ra$(ra,i)
  226. 761 next:return
  227. 777 zv=rnd(1):ifq=0andzv<.7thenprint"das geht nicht!"
  228. 778 ifq=0andzv>.7thenprint"was wollen sie denn damit bezwecken?"
  229. 779 return
  230. 790 print"die kannibalen drohen sie einzuholen!!
  231. 791 li[178]1200:d[178]ti:de[178]1:[142]
  232. 792 [153]"sie hoeren den knall einer explosion!":za[178]0:t[178]0:zu[178]2:ra$(14,2)[178]""
  233. 793 [139]ka[178]1[167][153]"sie haben die kannibalen in die flucht  gesclagen."
  234. 794 ra$(13,2)[178]"":ra$(15,2)[178]"":ra$(20,2)[178]"":ra$(12,2)[178]"":[142]
  235. 800 [139]t[178]1[167]870
  236. 801 [139]ra$(12,9)[179][177]""[167]wl[178]1
  237. 802 [139]ra$(12,9)[178]""[167]wl[178]3
  238. 805 [139]v[178]1[175]wi[177]wl[167][141]712:[137]838
  239. 810 [139]v[178]1[175]ra$(ra,g)[179][177]""[167][141]705:sp$(g)[178]g$(g):ra$(ra,g)[178]"":wi[178]wi[170]1:[137]849
  240. 815 [139]v[178]1[175]g[177]0[175]sp$(g)[178]g$(g)[167][153]"das haben sie schon!":q[178]1:[137]899
  241. 820 [139]v[178]1[175]g[177]0[175]ra$(ra,g)[178]""[167][153]"hier gibt es das nicht!":q[178]1:[137]899
  242. 825 [139]v[178]2[175]g[177]0[175]sp$(g)[178]""[167][153]"das haben sie doch gar nicht!":q[178]1:[137]899
  243. 830 [139]v[178]2[175]sp$(g)[178]g$(g)[167][141]705:ra$(ra,g)[178]g$(g):sp$(g)[178]"":wi[178]wi[171]1:[137]849
  244. 832 [139]v[178]1[175]s[178]1[167][141]980:q[178]1:[139]a[178]1[167][141]705
  245. 835 [139]v[178]2[175]s[178]1[167][141]986:q[178]1:[139]a[178]1[167][141]705
  246. 838 [139]s[178]4[167][141]990:q[178]1
  247. 840 [139]v[178]4[167][141]711:[137]899
  248. 842 [139]v[178]5[175]sp$(5)[179][177]""[167][137]999
  249. 843 [139]v[178]5[175]sp$(5)[178]""[167][153]"sie haben nichts zu essen!":q[178]1:[137]899
  250. 844 [139]v[178]6[175]s[177]og [176]v[178]6[175]s[179]ug[167][141]708
  251. 845 [139]v[178]8[175]s[178]15[175]sp$(3)[178]g$(3)[175]ra[179][177]3[167][141]3600:q[178]1
  252. 846 [139]v[178]7[175]sp$(2)[178]g$(2)[175]g[178]2[175]ra[179][177]3[167][141]3800:q[178]1
  253. 847 [139]v[178]19[167][153]"sie singen ein lied...":q[178]1
  254. 848 [139]v[178]6[175]s[178]11[175]sp$(5)[179][177]""[167][153]"sie stellen fest,dass sie giftig sind!":q[178]1
  255. 849 [139]sp$(9)[179][177]""[167]wl[178]1
  256. 850 [139]sp$(9)[178]""[167]wl[178]3
  257. 869 [142]
  258. 870 [141]730:[139]de[178]1[167]ra[178]15:[137]900
  259. 871 [139]ka[178]1[167][141]790
  260. 872 [139]zu[178]1[175]sp$(2)[179][177]""[167]ra[178]12:[137]900
  261. 873 [139]zu[178]1[175]sp$(2)[178]""[167][141]792
  262. 899 [142]
  263. 900 [143] *** todesanzeigen ******************************************************
  264. 901 [141]30000
  265. 902 [145]ra[137]905,907,909,911,913,915,917,919,922,923,925,927,929,931,933,935,937
  266. 903 [145]ra[171]17[137]939,941,943,945,947,949
  267. 905 [153]"sie sind von der palme gestuerzt und
  268. 906 print"haben sich dabei das genick gebrochen!":goto30100
  269. 907 print"die fleischfressende planze hat sie
  270. 908 [153]"verspeist!":[137]30100
  271. 909 [153]"der skorpion hat sie gestochen!das gift
  272. 910 print"hat sie getoetet!!":goto30100
  273. 911 print"der gorilla hat ihnen das genick ge-
  274. 912 [153]"brochen!":[137]30100
  275. 913 [153]"sie sind in den sumpf gestuerzt und
  276. 914 print"erstickt!":goto30100
  277. 915 print"die fruechte waren giftig!":goto30100
  278. 917 print"die grosse,schwarze spinne hat sie
  279. 918 [153]"gebissen!":[137]30100
  280. 919 [153]"der steinhagel hat sie in die tiefe
  281. 920 print"gerissen!":goto30100
  282. 922 print"sie sind in die tiefe gestuerzt!!":goto30100
  283. 923 print"die waende haben sie zerquetscht!!":goto30100
  284. 925 print"die einstuerzende treppe hat sie unter
  285. 926 [153]"sich begraben!":[137]30100
  286. 927 [153]"der explodierende behaelter hat sie in
  287. 928 print"stuecke gerissen!":goto30100
  288. 929 print"das gift der schlange hat ihre atmung
  289. 930 [153]"gelaehmt.sie sind erstickt!":[137]30100
  290. 931 [153]"der jaguar hat sie getoetet!":[137]30100
  291. 933 [153]"die kannibalen haben sie mit einer keule
  292. 934 print"erschlagen!":goto30100
  293. 935 print"sie sind verblutet!":goto30100ready.
  294. 980 a=0:fori=0to10
  295. 981 :   ifra$(12,9)<>""thenwl=1
  296. 982 :   ifwi>wlthengosub712:return
  297. 983 :   ifra$(ra,i)<>""thensp$(i)=ra$(ra,i):ra$(ra,i)="":a=1:wi=wi+1
  298. 984 next:ifa=0thengoto706
  299. 985 return
  300. 986 a=0:fori=0to10
  301. 987 :   ifsp$(i)<>""thenra$(ra,i)=sp$(i):sp$(i)="":a=1:wi=wi-1
  302. 988 next:ifa=0thengoto707
  303. 989 return
  304. 990 a=0:print"sie haben:":fori=0to10:ifsp$(i)<>""thenprint"[158]"sp$(i):a=1
  305. 991 next:ifa=0thenprint"[158]nichts"
  306. 992 return
  307. 999 print"sie essen von den fruechten!":fori=0to3000:next:ra=6:goto900
  308. 1000 printspc(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  309. 1001 printspc(9)"[167]     [201]              [151][165]"
  310. 1002 printspc(9)"[167]  [185][201][223][146][223][213][169][146][162][168][213]         [151][165]"
  311. 1003 printspc(9)"[167] [169][213] [201][223][169][213][185] [213][223][146]        [151][165]"
  312. 1004 printspc(9)"[167][172][203][201][146][188][213][149][168][168][146][223][201][188][201][202][146]        [151][165]"
  313. 1005 printspc(9)"[167][213][202][146][202]  [149][168][168][146]  [213][213][146][190]        [151][165]"
  314. 1006 printspc(9)"[170]     [149][168][168][146]         [201]   [151][165]"
  315. 1007 printspc(9)"[167]     [149][168][168][146] [149]     [169][213][223][146][169][169][201][223][151][146][165]"
  316. 1008 printspc(9)"[167][149]     [168][168][146]      [213][213][146][213][149][168][146][202][208][203][151][146][165]"
  317. 1009 printspc(9)"[167]     [149][168][168][146]      [188][183] [149][168][146]  [203][151][165]"
  318. 1010 printspc(9)"[167]     [149][168][168][146]         [149][168][146]   [151][165]"
  319. 1011 printspc(9)"[167]     [149][168][168][146]    [129]     [149][168][146]   [151][165]"
  320. 1012 printspc(9)"[167]    [149] [168][168][146]         [149][168][146]   [151][165]"
  321. 1013 printspc(9)"[167][129][162][184][183][163]    [163][183][184][146][162][185][175][164] [149][168][129][146]   [151][165]"
  322. 1014 printspc(9)"[167][129] [213]  [213]  [203]   [203]      [163][183][151][146][165]"
  323. 1015 printspc(9)"[167][129]   [213] [202]   [213]     [202]  [201] [151][146][165]"
  324. 1016 printspc(9)"[129] [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  325. 1019 ra=1:og=6:ug=6
  326. 1020 print"sie befinden sich am suedstrand einer   unbekannten insel.
  327. 1050 [141]760
  328. 1120 [153]"moegliche richtungen : n"
  329. 1125 [141]750
  330. 1130 [141]100
  331. 1135 [139]s[178]5[167][137]1000
  332. 1140 [145]r[137]2000,1160,1160,1160,1600,1160
  333. 1150 [137]1300
  334. 1160 [141]701
  335. 1300 [139]v[178]6[175]s[178]6[167][153]"sie untersuchen den strand.":q[178]1:[139]r1[178]0[167][141]1500
  336. 1399 [141]777
  337. 1400 [137]1130
  338. 1500 [139]r1[178]0[167]ra$(1,1)[178]g$(1):r1[178]1
  339. 1510 [141]760:[142]
  340. 1600 [153]"sie sitzen auf der palme."
  341. 1610 [141]100
  342. 1620 [145]r[137]900,900,900,900,900,1650
  343. 1630 [139]v[178]4[167][137]1610
  344. 1640 [137]900
  345. 1650 [141]705:[137]1130
  346. 2000 [153][166]9)"poke totototototototototototototototototototo "
  347. 2001 [153][166]9)"then fn sgnpoke wait int  sgnpoke absfn peek sgnpoke   waitfn"
  348. 2002 [153][166]9)"then fn +poke waitfnfn then+poke left$  chr$ abspoke   waitfn"
  349. 2003 [153][166]9)"then chr$ abspoke waitsgn  +abspoke chr$  sgn waitgetpokefn  waitfn"
  350. 2004 [153][166]9)"then left$ waitgetpokefnwaitintfn  waitgetpokethen  peek  waitgetpoke   waitfn"
  351. 2005 [153][166]9)"then then waitintpoke waitget   waitgetpokeleft$left$    waitintpokefn  waitfn"
  352. 2006 [153][166]9)"then then waitintpoke abs   waitgetpokepeek fn   waitfnpoke  +waitfn"
  353. 2007 [153][166]9)"then then waitsgnpoke +fn  waitgetpokefn then   peek  peekwaitfn"
  354. 2008 [153][166]9)"then  fnchr$ then  chr$waitintpoke   chr$     sgnwaitfn"
  355. 2009 [153][166]9)"then  chr$fn   left$abswaitintpoke   left$    +fnwaitfn"
  356. 2010 [153][166]9)"then  peek    fnthenwaitintpokesgn  thenfn   waitgetfnwaitfn"
  357. 2011 [153][166]9)"then  left$   then  waitsgnpoke    fn   abs waitfn"
  358. 2012 [153][166]9)"then  then   (NULL)  chr$    (NULL)   waitget waitfn"
  359. 2013 [153][166]9)"then  thensgn  left$  fn    chr$   (NULL) waitfn"
  360. 2014 [153][166]9)"then  thenint  peek  fn    left$   peek waitfn"
  361. 2015 [153][166]9)"then  absget  chr$  peek    (NULL)   fn waitfn"
  362. 2016 [153][166]9)" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( "
  363. 2019 ra[178]2:og[178]1:ug[178]1
  364. 2020 [153]"sie stehen an einer hoheh,mit lianen be-wachsenen felswand
  365. 2030 print"[145]an deren fuss eine
  366. 2040 [153]"grosse,fleischfressende planze waechst.
  367. 2120 print"moegliche richtungen : s,w,o"
  368. 2125 gosub750
  369. 2130 gosub100
  370. 2135 ifs=5thengoto2000
  371. 2140 onrgoto2160,1000,5000,2500,2200,2160
  372. 2150 goto2165
  373. 2160 gosub701
  374. 2165 gosub777
  375. 2170 goto2130
  376. 2200 print"sie sind an einer liane hinaufgeklettert.
  377. 2222 [153]"onda diese in halber hoehe riss,sind sie"
  378. 2224 [153]"auf die erde zurueckgefallen!
  379. 2226 print"ausgerechnet in den schlund der fleisch-fressenden planze!!
  380. 2228 [153]"jetzt werden sie verdaut!!!
  381. 2300 gosub750:goto900
  382. 2500 rem *** raum 2500 *********************************************************
  383. 2510 print"sie stehen auf dem westlichen vorplatz  einer verlassenen huette.
  384. 2520 [153]"am boden sind abdruecke nackter fuesse  und schleifspuren zu erkennen
  385. 2530 print"[157][157][157][157][157][157][157][157][157][157][157]."
  386. 2540 print"hier scheint ein kampf stattgefunden zu haben!
  387. 2545 ra[178]20:og[178]1:ug[178]1
  388. 2550 [141]760
  389. 2600 [153]"moegliche richtungen : s,w,o"
  390. 2610 [141]100
  391. 2620 [145]r[137]2640,4000,2000,3000,2640,2640
  392. 2625 [139]s[178]5[167][137]2500
  393. 2630 [137]2645
  394. 2640 [141]701
  395. 2645 [141]777
  396. 2650 [137]2610
  397. 3000 [153][166]9)"verify poketotototototototototototototototototototoverify "
  398. 3001 [153][166]9)"pokethenverifythen sgnverifythenthenthenthenthenthenthenthenthenthenthenthen+then+thenpeekpokewaitfn"
  399. 3002 [153][166]9)"thenverifythenthen+verifythenthenthenthenor==tan^verifythenthenthen+then+thenpeekpokewaitfn"
  400. 3003 [153][166]9)"thenverifythenabsabsverifythenthen+thenpeekchr$-ascpeekverifythenthenthenthenthen+thenpeekpokewaitfn"
  401. 3004 [153][166]9)"thenverify+thenwaitintverifythenthen+then-fn(NULL)tan<verifythenthenthenthenthen+thenpeekpokewaitfn"
  402. 3005 [153][166]9)"thenverifythen+waitintverifythenthen++peek.peek(NULL)peekverifythenthenthenthenthen+thenpeekpokewaitfn"
  403. 3006 [153][166]9)"thenverifythen waitsgnverifythenthenthen+/tan>tanexpverifythen+thenthenthen+thenpeekpokewaitfn"
  404. 3007 [153][166]9)"thenverifythen fnthen+thenthenthenthenthenthenthenthen+thenthenthen+thenpeekpokewaitfn"
  405. 3008 [153][166]9)"thenverifythen waitsteppokeor^ verify step(NULL)waitstepverifystepthenthensqrsqrsqrthen+thenpeekpokewaitfn"
  406. 3009 [153][166]9)"thenverifysqrwaitstep pokemid$(NULL)    verifystepsqrsqrsqrusrfreusr(NULL)sqrthenpeekpokewaitfn"
  407. 3010 [153][166]9)"thenverify   intsgn   intsgn (NULL)(NULL)to to(NULL)(NULL)(NULL)peekpokewaitfn"
  408. 3011 [153][166]9)"thenverify (NULL) intsgn (NULL) intsgn  left$ (NULL)verify chr$  (NULL)pokewaitfn"
  409. 3012 [153][166]9)"thenverify   int right$  int (NULL) (NULL)to to(NULL)right$  pokewaitfn"
  410. 3013 [153][166]9)"thenverifyright$  int    int   thentotab(tosgn   pokewaitfn"
  411. 3014 [153][166]9)"thenverify    (NULL)      right$  tab(  (NULL)  pokewaitsgn"
  412. 3015 [153][166]9)"verify poketab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(verify "
  413. 3019 ra[178]3:og[178]10:ug[178]8
  414. 3020 [153]"die huette scheint vor kurzem noch bewohnt gewesen zu sein.
  415. 3022 print"auf dem boden steht ein fass.
  416. 3024 [141]760
  417. 3120 [153]"moegliche richtungen : w"
  418. 3125 [141]750
  419. 3130 [141]100
  420. 3135 [139]s[178]5[167][137]3000
  421. 3140 [145]r[137]3160,3160,2500,3160,3160,3160
  422. 3150 [137]3300
  423. 3160 [141]701
  424. 3300 [139]v[178]6[175]s[178]8[167][153]"es enthaelt schiesspulver.":q[178]1
  425. 3310 [139]v[178]6[175]s[178]9[175]sp$(2)[178]""[175]sp$(3)[178]""[167][141]3500
  426. 3320 [139]v[178]6[175]s[178]10[175]r3[178]1[167][153]"es ist ein tagebuch.":q[178]1
  427. 3350 [139]v[178]8[175]s[178]10[175]r3[178]1[167][141]3600
  428. 3360 [139]v[178]7[175]s[178]8[167][141]3700
  429. 3375 [139]v[178]7[175]g[178]2[175]r3[178]1[167][141]3800
  430. 3380 [139]v[178]11[175]s[178]21[175]ra[178]3[175]of[178]1[175]ob[178]1[175]g[178]2[167][141]705:[141]3900:pa[178]1
  431. 3385 [139]v[178]10[175]s[178]8[175]of[178]0[167][141]710
  432. 3387 [139]v[178]10[175]g[178]2[175]ob[178]0[167][141]710
  433. 3390 [139]v[178]10[175]s[178]8[175]of[178]1[167][141]705:of[178]0
  434. 3391 [139]v[178]10[175]g[178]2[175]ob[178]1[167][141]705:ob[178]0
  435. 3392 [139]v[178]6[175]s[178]9[175]q[178]0[167][141]708:[137]3130
  436. 3399 [141]777
  437. 3400 [137]3130
  438. 3500 [139]r3[178]0[167]ra$(3,3)[178]g$(3):ra$(3,2)[178]g$(2):r3[178]1
  439. 3505 [153]"auf dem tisch liegen verschiedene sachenon"
  440. 3510 [141]760:q[178]1:[142]
  441. 3600 [153]"als letzte eintragung finden sie:
  442. 3602 print"...ich muss mich vor den wilden in acht
  443. 3604 [153]"nehmen.es sind wahrscheinlich kannibalen
  444. 3606 print"falls sie mich erwischen,ist nicht nur
  445. 3608 [153]"meine ganze forschungsarbeit umsonst
  446. 3610 print"gewesen,sondern ich kann auch nicht
  447. 3612 [153]"rechtzeitig am treffpunkt sein...
  448. 3620 q=1:return
  449. 3700 ifof=0andsa=1thengosub705:of=1:return
  450. 3703 ifof=0andsa=0thenprint"im fass ist ein skorpion!er springt":of=1:goto3710
  451. 3705 ifsa=1andof=1thengosub709:return
  452. 3710 sa=1:print"ihnen auf die hand!!":gosub750:d=ti:li=2700:za=1:gosub100
  453. 3730 ifv=9ands=20then3740
  454. 3735 goto900
  455. 3740 print"der skorpion faellt zu boden und laeuft
  456. 3750 [153]"weg.":za[178]0:q[178]1:[142]
  457. 3800 [139]ob[178]1[167][141]709:[142]
  458. 3802 [139]ob[178]0[167][153]"der behaelter enthaelt eine zuendschnur":ob[178]1
  459. 3810 [139]pa[178]1[175]ob[178]1[167][153]"und schiesspulver.
  460. 3830 q=1:return
  461. 3900 print"pulver ist im behaelter.":q=1:return
  462. 4000 printspc(9)"[151] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  463. 4001 printspc(9)"[167]             [223][166][166][166][166][166][166][151][146][165]"
  464. 4002 printspc(9)"[167]               [223][166][166][166][166][151][146][165]"
  465. 4003 printspc(9)"[167]                [166][166][166][166][151][146][165]"
  466. 4004 printspc(9)"[167]                [223][166][149][161][194][151][146][165]"
  467. 4005 printspc(9)"[167]                  [149][161][194][151][146][165]"
  468. 4006 printspc(9)"[167]                  [149][181][199][151][146][165]"
  469. 4007 printspc(9)"[170]                  [149][181][199][151][146][165]"
  470. 4008 printspc(9)"[167]                  [149][180][212][151][146][165]"
  471. 4009 printspc(9)"[170]                 [155] [149][165][212][151][146][165]"
  472. 4010 printspc(9)"[170]  [129] [155] [151][168][168][168]          [155] [149][165][212][151][146][165]"
  473. 4011 printspc(9)"[170] [152][191][146][191][151][166][168][168][168][166][191][152][146][191]   [155]     [149] [165][151][146][165]"
  474. 4012 printspc(9)"[167]  [213]  [201]     [201]    [201]   [151][146][165]"
  475. 4013 printspc(9)"[167] [201]    [213]  [213]  [203] [201]   [213] [151][146][165]"
  476. 4014 printspc(9)"[167]  [213] [213]  [202]  [201]   [213] [201]   [151][146][165]"
  477. 4015 printspc(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  478. 4019 ra=4:og=7:ug=7
  479. 4020 print"vor ihnen liegt ein verlassener lager-
  480. 4030 [153]"platz.in der feuerstelle befindet sich
  481. 4040 print"asche.
  482. 4080 [141]760
  483. 4120 [153]"moegliche richtungen : n"
  484. 4122 [141]750
  485. 4125 [139]aa[178]0[167][141]4600
  486. 4130 [141]100
  487. 4135 [139]s[178]5[167][137]4000
  488. 4140 [145]r[137]2500,4160,4160,4160,4160,4160
  489. 4150 [137]4300
  490. 4160 [141]701
  491. 4300 [139]v[178]6[175]s[178]7[175]r4[178]0[167]ra$(4,4)[178]g$(4):r4[178]1:q[178]1:[141]760
  492. 4499 [141]777
  493. 4500 [137]4130
  494. 4600 [153]"ein gorilla erscheint auf der lichtung.
  495. 4610 print"er rollt auf dem boden herum und macht
  496. 4620 [153]"maennchen!":aa[178]1
  497. 4630 [141]100:[139]v[178]12[175]s[178]22[167][137]4700
  498. 4635 [139]v[178]20[175]s[178]19[167][137]900
  499. 4637 [139]r[178]1[167][153]"der gorilla versperrt ihnen den weg."
  500. 4640 [153]"der gorilla hat aufgehoert und schaut
  501. 4650 print"sie grimmig an!
  502. 4670 [141]100:[139]v[178]12[175]s[178]22[167][137]4700
  503. 4680 [137]900
  504. 4700 [153]"der gorilla tippt sich an den kopf und
  505. 4710 print"verschwindet wieder im dschungel.":return
  506. 5000 printspc(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  507. 5001 printspc(9)"[151][167][149] [146][183][184][185][175][185][162][146][184][183][205][175]         [151][165]"
  508. 5002 printspc(9)"[167][149] [146][163][183][184][205] [197][198][210][206] [205][149]        [151][165]"
  509. 5003 printspc(9)"[167][149] [184][146][162][185][162][162][184][183][183][184][146][175][164][163][197][196][198][187]   [151][165]"
  510. 5004 printspc(9)"[167][149]  [164][175][185][162][162][146][183][184][175] [164][175][185][162][146][183][181][129]   [151][165]"
  511. 5005 printspc(9)"[167][149] [146]   [158]      [161]       [158]  [151][165]"
  512. 5006 printspc(9)"[167][149][167][158][146][200][212][199][199]    [153] [161]     [158][217] [212][217][151][165]"
  513. 5007 printspc(9)"[167][149] [158][146][194][194][194][200]    [153] [181]    [158][200][217][194][194][194][151][165]"
  514. 5008 printspc(9)"[167][149] [158][146][194][200][199][194]     [165]    [158][200][194][194][194][194][151][165]"
  515. 5009 printspc(9)"[167][149][167][158][146][194][194][194][194][194][129]    [165][129]    [158][194][194][194][194][194][151][165]"
  516. 5010 printspc(9)"[167][149] [151][146][162][184][184][183][183][183][163][163][163] [163][163][183][183][183][184][184][146][162][185][165]"
  517. 5011 printspc(9)"[167][149] [151]                   [146][165]"
  518. 5012 printspc(9)"[167][149] [151][146][184][162][162][185][185][185][175][175][175][175][175][175][185][185][185][162][162][146][184][183][165]"
  519. 5013 printspc(9)"[167][149][167][146]                   [151][165]"
  520. 5014 printspc(9)"[167][149] [146]                   [151][180]"
  521. 5015 printspc(9)"[167][149] [146]                   [151][165]"
  522. 5016 printspc(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  523. 5019 ra=5:og=1:ug=1
  524. 5020 print"sie befinden sich am fuss eines baumes. noerdlich von ihnen liegt ein 6
  525. 5030 [153]"cmdcmdcmdcmdcmdcmdcmdcmdmeter   breiter,mit schilf bewachsener sumpf.
  526. 5040 print"an der mitte eines astes haengt eine    liane mitten ueber dem sumpf.
  527. 5050 [141]760
  528. 5120 [139]sc[178]0[167][153]"moegliche richtungen : o"
  529. 5122 [139]sc[178]1[167][153]"moegliche richtungen : n,o"
  530. 5125 [141]750
  531. 5130 [141]100
  532. 5135 [139]s[178]5[167][137]5000
  533. 5140 [145]r[137]5600,5160,5160,2000,5160,5160
  534. 5150 [137]5300
  535. 5160 [141]701
  536. 5300 [139]v[178]13[167]900
  537. 5310 [139]bu[178]0[175]s[178]2[175]sp$(4)[179][177]""[175]v[178]14[167][141]5700
  538. 5320 [139]bu[178]1[175]s[178]18[175]v[178]11[167][141]5710
  539. 5499 [141]777
  540. 5500 [137]5130
  541. 5600 [139]sc[178]1[167]5720
  542. 5610 [137]5160
  543. 5700 [153]"sie haben pech!der baum faellt entlang
  544. 5702 print"des ufers.der ast mit der liane steht
  545. 5704 [153]"senkrecht in die luft.":bu[178]1:q[178]1
  546. 5705 [153]"das beil ist zerbrochen .":sp$(4)[178]"":wi[178]wi[171]1
  547. 5706 [142]
  548. 5710 [153]"die liane verfaengt sich im schilf!":sc[178]1:q[178]1:[137]5122
  549. 5720 [153]"geschafft!sie sind auf der anderen seite
  550. 5730 print"[145]die liane ist aber abgerissen.":gosub750:goto6000
  551. 6000 printspc(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][151]"
  552. 6002 printspc(9)"[151][167]                    [151][165]"
  553. 6003 printspc(9)"[170] [151]                   [151][165]"
  554. 6004 printspc(9)"[167]     [166][146][220]             [151][165]"
  555. 6005 printspc(9)"[167]   [168][166] [146][166] [168][146][168]          [151][165]"
  556. 6006 printspc(9)"[167]  [158][209]  [166][168][220][146] [220][158][209]         [151][165]"
  557. 6007 printspc(9)"[167]  [168][168][220][168][158][146][209][220][146][168][168]          [151][165]"
  558. 6008 printspc(9)"[167]  [220] [166][168][220][168][146]  [220]         [151][165]"
  559. 6009 printspc(9)"[167] [158][209] [168][168][158][146][209][166][220][168][146] [158][209]         [151][165]"
  560. 6010 printspc(9)"[167]  [166][146] [220][166][168][146] [220][146][168]          [151][165]"
  561. 6011 printspc(9)"[167]  [220][146] [158][209][220][220][220][146][168] [220]         [151][165]"
  562. 6012 printspc(9)"[167]  [158][209]  [166][220][146]  [220][158][209]         [151][165]"
  563. 6013 printspc(9)"[167]    [166][168][166][146]  [158][209]          [151][165]"
  564. 6014 printspc(9)"[167][149][183][163][213]   [201][163][183][184][183][163][213] [201][163][183][184][184][183][151][146][165]"
  565. 6015 printspc(9)"[167][149] [202]  [213]     [201]    [203]    [151][146][165]"
  566. 6016 printspc(9)"[167][149]   [203]   [213]     [201]   [202]  [151][146][165]"
  567. 6017 printspc(9)"[149] [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149] "
  568. 6019 ra=6:og=12:ug=11
  569. 6020 print"sie stehen vor einem wildstrauch.
  570. 6030 [141]760
  571. 6120 [153]"moegliche richtungen : w,o"
  572. 6130 [141]100
  573. 6135 [139]s[178]5[167][137]6000
  574. 6140 [145]r[137]6160,6160,7000,8000,6160,6160
  575. 6150 [137]6300
  576. 6160 [141]701
  577. 6300 [139]v[178]6[175]s[178]12[167]ra$(6,5)[178]g$(5):[141]760:q[178]1
  578. 6499 [141]777
  579. 6500 [137]6130
  580. 7000 [153][166]9)"poke totototototototototototototototototototo "
  581. 7001 [153][166]9)"then                    pokefn"
  582. 7002 [153][166]9)"then                fortoand(NULL)ascpokefn"
  583. 7003 [153][166]9)"then        forto(NULL)asctanlenstr$valtab(  poke. pokefn"
  584. 7004 [153][166]9)"thenforto(NULL)asctanlenstr$valtab(poke.for  poke. poke. poke. poke.  pokefn"
  585. 7005 [153][166]9)"then.  poke.list poke.for list for list poke.list poke.list     poke.list pokefn"
  586. 7006 [153][166]9)"then poke.  list  poke.list poke.list     poke.  poke.  pokefn"
  587. 7007 [153][166]9)"then   list poke.liststep    waitstep poke.  poke.    pokefn"
  588. 7008 [153][166]9)"then poke list poke. list(NULL)usrusrusrusr wait  poke.    poke .fn"
  589. 7009 [153][166]9)"then poke.  for listsgn (NULL)list   wait     poke. poke. pokefn"
  590. 7010 [153][166]9)"thenlist poke    list(NULL)andandandandstep poke. poke.  fortoandpospokefn"
  591. 7011 [153][166]9)"thenfor poke.for poke.for    poke.fortoandposnewfretab(tab( .  pokewaitfn"
  592. 7012 [153][166]9)"thenfor toandposnewfreusrusr   .  .   . pokewaitfn"
  593. 7013 [153][166]9)"thenfor  .   .  .  .   .   pokewaitfn"
  594. 7014 [153][166]9)"thenfor    .    .    .   . pokewaitfn"
  595. 7015 [153][166]9)" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(for "
  596. 7019 ra[178]7:og[178]1:ug[178]1
  597. 7020 [153]"sie sind an der westkueste der insel.
  598. 7030 print"am strand steht eine an land geschwemmte
  599. 7040 [153]"onmetallkiste.
  600. 7050 gosub760
  601. 7120 print"moegliche richtungen : o"
  602. 7125 gosub750
  603. 7130 gosub100
  604. 7135 ifs=5thengoto7000
  605. 7140 onrgoto7160,7160,7160,6000,7160,7160
  606. 7150 goto7300
  607. 7160 gosub701
  608. 7300 ifv=7ands=15andok=1thengosub709
  609. 7310 ifv=7ands=15andok=0thengosub7600:ok=1:q=1
  610. 7320 ifv=10ands=15andok=0thengosub710
  611. 7330 ifv=10ands=15andok=1thengosub705:ok=0
  612. 7340 ifv=15ands=15andvs=0thengoto7700
  613. 7350 ifs=23andv=20andok=1andvs=0thengoto900
  614. 7360 ifs=23andvs=0andv=11andok=1andkg=1thengosub7800:q=1
  615. 7499 gosub777
  616. 7500 goto7130
  617. 7600 ifvs=0thenprint"auf dem inhalt der kiste sitzt eine "
  618. 7610 ifvs=0thenprint"grosse,schwarze vogelspinne!":return
  619. 7620 gosub705:ok=1:return
  620. 7700 print"der inhalt und die spinne fallen heraus.
  621. 7702 [153]"ondie vogelspinne krabbelt an ihrem bein
  622. 7710 print"hoch!!":d=ti:li=500:za=1:gosub100:goto900
  623. 7800 print"die spinne laeuft davon!":vs=1
  624. 7810 ra$(7,6)=g$(6):ra$(7,7)=g$(7):gosub760:return
  625. 8000 printspc(9)"[129] [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][129] "
  626. 8001 printspc(9)"[151][167]  [146][170]  [167]     [165]   [167]  [165] [146][165]"
  627. 8002 printspc(9)"[167]  [146][182]  [217] [152][202][203][151]  [199]  [165] [180] [199] [146][165]"
  628. 8003 printspc(9)"[167]  [199]  [200][194]    [182]  [212][182][165] [194] [146][165]"
  629. 8004 printspc(9)"[167]  [194]  [221] [165] [152][202][203][151] [191] [199][167][161] [167] [146][165]"
  630. 8005 printspc(9)"[167]  [212][165] [194] [194]      [194] [180] [217] [146][165]"
  631. 8006 printspc(9)"[167] [167][165][191] [181] [200]  [152][202][203][151]  [146][161] [199] [200] [146][165]"
  632. 8007 printspc(9)"[167] [170][181] [194][180]        [167][180]  [200] [146][165]"
  633. 8008 printspc(9)"[167] [182][180] [217][181] [152][202][203][151]      [161]  [199] [146][165]"
  634. 8009 printspc(9)"[167] [146][161][165] [182][165]         [167]  [212] [146][165]"
  635. 8010 printspc(9)"[167] [146][181]  [199]     [152][202][203][151]    [165] [212] [146][165]"
  636. 8011 printspc(9)"[167] [194]  [165]          [200][199] [180] [146][165]"
  637. 8012 printspc(9)"[167] [199] [170][165]   [152][202][203][151]     [221][194] [180][165][146][165]"
  638. 8013 printspc(9)"[167] [199] [170][191]   [167]  [152][202][203][151]  [199][146][161][167] [165][146][165]"
  639. 8014 printspc(9)"[167] [212] [217] [199]  [146][161]      [165][167][167] [199][146][165]"
  640. 8015 printspc(9)"[167] [165] [200] [146][181]  [146][181]     [167][165] [146][170] [194][146][165]"
  641. 8016 printspc(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  642. 8019 ra=8:og=1:ug=1
  643. 8020 print"sie stehen vor einer felswand mit
  644. 8030 [153]"spalten ,an der fusstritte sind.
  645. 8050 gosub760
  646. 8120 print"moegliche richtungen : w,hinauf"
  647. 8130 gosub100
  648. 8135 ifs=5thengoto8000
  649. 8140 onrgoto8160,8160,6000,8160,8600,8160
  650. 8150 goto8299
  651. 8160 gosub701
  652. 8299 gosub777
  653. 8300 goto8130
  654. 8600 iffh=1thengoto9000
  655. 8602 iffh=0thenprint"sie steigen die wand hinauf.
  656. 8610 [139]fh[178]0[167][153]"ploetzlich kommt von oben ein hagel von
  657. 8620 iffh=0thenprint"felsbrocken auf sie zu!!":fh=1:d=ti:li=3600:za=1
  658. 8625 gosub100
  659. 8630 ifs=33thenprint"der steinhagel faellt an ihnen vorbei!":goto8650
  660. 8640 goto900
  661. 8650 za=0:gosub100
  662. 8660 ifv=18thengosub705:goto8700
  663. 8665 ifv=13thengoto8680
  664. 8670 goto8650
  665. 8680 ra=9:goto900
  666. 8700 print"sie stehen wieder in der wand."
  667. 8710 gosub100
  668. 8720 onrgoto8730,8730,8730,8730,9000,8000
  669. 8725 goto8735
  670. 8730 gosub701
  671. 8735 gosub777
  672. 8740 goto8710
  673. 9000 printspc(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  674. 9001 printspc(9)"[151][167][155]     [152][169][206]//[206][206] / /[206]  [206] [151][146][165]"
  675. 9002 printspc(9)"[167][155]    [152][169][206][198][196][196][183][196][196][195][175][206]  [206]  [151][146][165]"
  676. 9003 printspc(9)"[167][155]    [152][198][183]  [175][162][185][175]  [191] [206]   [151][146][165]"
  677. 9004 printspc(9)"[167][155]   [152][169]  [146][207]  [217] [220][152][188]  [199]   [206][151][146][165]"
  678. 9005 printspc(9)"[167][155]  [152][172]  [146][190]   [212][152] [173][204][152][182] [200]  [206] [151][146][165]"
  679. 9006 printspc(9)"[167][155]  [152][180] [182][146]   [167][164][164][164][164][164][152]  [165][206]  [151][146][165]"
  680. 9007 printspc(9)"[167][155]  [152]  [146]    / [158][169][216][146][169][205][152][181] [194]  /[151][146][165]"
  681. 9008 printspc(9)"[167][155] [152][167] [182][158][146]   / [158][169][163][163][223][146][206][152][170] [200] / [151][146][165]"
  682. 9009 printspc(9)"[167][150] [152][182] [146][161][158]  /        [152] [167]/  [151][146][165]"
  683. 9010 printspc(9)"[167][150] [152][182] [146][181][158] /[151]         [152][180] [165]  [151][146][165]"
  684. 9011 printspc(9)"[167][150] [152][161] [146][165]/[151]       [152]   [181] [180] /[151][146][165]"
  685. 9012 printspc(9)"[167][150] [152][161] [146]/[151]          [152] [161] [199]/ [151][146][165]"
  686. 9013 printspc(9)"[167][169],  . ,   ,  . , . ,[146][165]"
  687. 9014 printspc(9)"[167].  , .  , . ,   .  [146][169][165]"
  688. 9015 printspc(9)"[167]   .  , .  .    , [146][169] [165]"
  689. 9016 printspc(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  690. 9019 ra=9:og=1:ug=1
  691. 9020 print"sie stehen vor dem eingang einer hoehle
  692. 9050 [141]760
  693. 9120 [153]"moegliche richtungen : n,o,runter"
  694. 9130 [141]100
  695. 9135 [139]s[178]5[167][137]9000
  696. 9140 [145]r[137]10000,9160,9160,11000,9160,8000
  697. 9150 [137]9299
  698. 9160 [141]701
  699. 9299 [141]777
  700. 9300 [137]9130
  701. 10000 [153][166]9)"poke totototototototototototototototototototo"
  702. 10001 [153][166]9)"then        fn        +  pokefn"
  703. 10002 [153][166]9)"thennotnotwait   notnotwait peek        then  pokefn"
  704. 10003 [153][166]9)"then  step (NULL)wait   fn        +  pokefn"
  705. 10004 [153][166]9)"then (NULL)   (NULL) peek         then  pokefn"
  706. 10005 [153][166]9)"thenfn ===wait  fn         +  pokefn"
  707. 10006 [153][166]9)"then(NULL)pokethen>>>wait peek          +  pokefn"
  708. 10007 [153][166]9)"thenthen(NULL)   (NULL)fn          then  pokefn"
  709. 10008 [153][166]9)"then valasc ascvalsys newstr$valtab(tab(valstr$new sys +sys  pokefn"
  710. 10009 [153][166]9)"then   tab(  sys (NULL)valstr$lenlenstr$val(NULL) sys +  pokefn"
  711. 10010 [153][166]9)"then      sys  (NULL)andtotoand(NULL)  sys +  pokefn"
  712. 10011 [153][166]9)"thenandandandandandandandsysstep wait(NULL)  sqr waitstep(NULL)andsqr  pokefn"
  713. 10012 [153][166]9)"then     sys step      waitstep  (NULL) (NULL) pokefn"
  714. 10013 [153][166]9)"then    sys steptab(tab(tab(tab(tab(tab(tab((NULL)wait   (NULL) (NULL)pokefn"
  715. 10014 [153][166]9)"then   sys step (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)wait sys (NULL)  pokefn"
  716. 10015 [153][166]9)"then  sys step     (NULL)     (NULL)wait(NULL)   pokefn"
  717. 10016 [153][166]9)"then                    fn"
  718. 10017 [153][166]9)" poketab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( "
  719. 10019 ra[178]10:og[178]13:ug[178]13
  720. 10020 [153]"sie stehen in einem goetzentempel.
  721. 10030 print"auf dem altar befindet sich eine schale
  722. 10040 [153]"aus gold.
  723. 10100 gosub760
  724. 10120 print"moegliche richtungen : s"
  725. 10125 gosub750
  726. 10130 gosub100
  727. 10135 ifs=5thengoto10000
  728. 10140 onrgoto10160,9000,10160,10160,10160,1160
  729. 10150 goto10300
  730. 10160 gosub701
  731. 10300 ifv=6ands=13thengosub10600
  732. 10310 ifv=1andsp$(8)<>""andwa=0thengosub10700
  733. 10499 gosub777
  734. 10500 goto10130
  735. 10600 ifr8=0thenprint"die schale enthaelt edelsteine.
  736. 10610 [139]r8[178]0[167]ra$(10,8)[178]g$(8):[141]760:r8[178]1
  737. 10620 q[178]1:[142]
  738. 10700 [139]wa[178]0[167][141]10705
  739. 10702 q[178]1:[142]
  740. 10705 [153]"der alter beginnt im boden zu verschwin-
  741. 10710 print"[145]den.vor den ausgang schiebt sich eine
  742. 10720 [153]"mauer!die waende beginnen sich auf ein-
  743. 10730 print"ander zu zubewegen!!":wa=1:d=ti:li=2400:za=1
  744. 10740 print"moegliche richtungen: keine
  745. 10750 [153]"sie sind gefangen!
  746. 10760 gosub100
  747. 10770 onrgoto10790,10790,10790,10790,10790,10790
  748. 10780 goto10800
  749. 10790 gosub701
  750. 10800 ifv=23ands=25thengoto10900
  751. 10805 ift=1thengoto900
  752. 10810 gosub777
  753. 10820 goto10760
  754. 10900 za=0:t=0
  755. 10910 print"die waende gehen zurueck.der ausgang istfrei!":goto10120
  756. 11000 printspc(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  757. 11001 printspc(9)"[167][175][175][175][175][175][175][175][175][175][175][175][175]        [151][165]"
  758. 11002 printspc(9)"[167]           [206][205]       [151][165]"
  759. 11003 printspc(9)"[167][129][201] [129][213]  [213]  [129][202] [206] [152] [205]      [151][165]"
  760. 11004 printspc(9)"[167] [129][213]    [129][213]  [206]  [152]  [205]     [151][165]"
  761. 11005 printspc(9)"[167][129][216][216][216][216][216][216][216][216][151][175][175]     [205]    [151][165]"
  762. 11006 printspc(9)"[167]        [151] [206][180]     [205]   [151][165]"
  763. 11007 printspc(9)"[167]        [151][206] [151][204][175]     [205]  [151][165]"
  764. 11008 printspc(9)"[167]     [151]  [206] [151]/ [151][206][180]     [205] [151][165]"
  765. 11009 printspc(9)"[170][129][216][216][216][216] [151] [206] [151]/ [151][206] [151][204][175]     [205][151][165]"
  766. 11010 printspc(9)"[170][129][201]  [206][151][183][208] / [151][206] [151]/ [206][180]     [151][165]"
  767. 11011 printspc(9)"[170] [129][213][206] [152] [151][170]/ [206] / [151][206] [204][175]    [151][165]"
  768. 11012 printspc(9)"[170] [206][154]  [152]  [151][183][208] / [151][206] / [206][180]   [151][165]"
  769. 11013 printspc(9)"[170][206][151] [154]  [152]   [151][167]/ [206] / [206] [151][204][175]  [151][165]"
  770. 11014 printspc(9)"[170]    [152]    [151][183][208] / [206] / [206][180] [151][165]"
  771. 11015 printspc(9)"[167]    [152]     [151][170]/ [206] [151]/ [151][206] [151][204] [151][165]"
  772. 11016 printspc(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  773. 11019 ra=11:og=1:ug=1
  774. 11020 print"vor ihnen fuehrt eine treppe auf einer
  775. 11021 [153]"schraegen rampe nach unten.
  776. 11050 gosub760
  777. 11120 print"moegliche richtungen : w,runter"
  778. 11125 gosub750
  779. 11130 gosub100
  780. 11135 ifs=5thengoto11000
  781. 11136 ifv=24ands=26andr=6thengoto11500
  782. 11137 ifv=11andg=8andsp$(8)<>""andr=6thengosub705:gosub11450
  783. 11138 ifv=11andr=6org<>0andr=6thenr=0
  784. 11140 onrgoto11160,11160,9000,11160,11160,11400
  785. 11150 goto11299
  786. 11160 gosub701
  787. 11299 gosub777
  788. 11300 goto11130
  789. 11400 print"sie gehen die treppe hinunter.
  790. 11410 [153]"ploetzlich beginnt die treppe unter
  791. 11420 print"ihnen einzustuerzen!!
  792. 11430 d[178]ti:li[178]600:za[178]1:[141]100
  793. 11435 [139]v[178]13[167]za[178]0:t[178]0:[137]11500
  794. 11440 [137]900
  795. 11450 sp$(8)[178]"":ra$(18,8)[178]g$(8):wi[178]wi[171]1:r[178]0:[142]
  796. 11500 [143] *** raum 11500 *******************************************************
  797. 11519 ra[178]18:og[178]1:ug[178]1
  798. 11520 [153]"sie befinden sich am fuss der treppe.
  799. 11530 print"ein pfad verlaeuft nach norden.
  800. 11550 [141]760
  801. 11600 [153]"moegliche richtungen : n"
  802. 11610 [141]100
  803. 11620 [145]r[137]12000,11640,11640,11640,11640,11640
  804. 11625 [139]s[178]5[167][137]11500
  805. 11630 [137]11645
  806. 11640 [141]701
  807. 11645 [141]777
  808. 11650 [137]11610
  809. 12000 [153][166]9)"for poketotototototototototototototototototototofor "
  810. 12001 [153][166]9)"pokethenfor sinspc(spc(spc(spc(spc(spc(sinwaitsinfor          pokefn"
  811. 12002 [153][166]9)"thensinsinwaitnotspc(spc(spc(spc(waitnotsinwaitsinsinfor         pokefn"
  812. 12003 [153][166]9)"then sinspc(spc(spc(spc(spc(spc(sinsinwait          pokefn"
  813. 12004 [153][166]9)"thensinspc(wait(NULL)spc(spc(spc(spc(wait(NULL)spc(waitsinsin         pokefn"
  814. 12005 [153][166]9)"thensinsinsinsinverifygetwaitsinverifygetsinsinsin          pokefn"
  815. 12006 [153][166]9)"then sinsinwait sinverifypeeksinwait sinsinwaitsin         pokefn"
  816. 12007 [153][166]9)"then    verifyintpeekabswait             pokefn"
  817. 12008 [153][166]9)"then    verifyintpeekabswait         for    pokefn"
  818. 12009 [153][166]9)"then    verifyintpeekabswait             pokefn"
  819. 12010 [153][166]9)"thenforto   verifyintchr$abswait             pokefn"
  820. 12011 [153][166]9)"thenfortab(usrvalstr$verifysgnchr$thenforwaitlenstr$valusrvalstr$lentanasc(NULL)asclenstr$pokefn"
  821. 12012 [153][166]9)"then    verifysgn(NULL)+wait             pokefn"
  822. 12013 [153][166]9)"thenfor tab(usrtab(.  .tab(usrfrewaitnewposnewfrewaitnewposnewfreusrpokewaitsgn"
  823. 12014 [153][166]9)"thenfor .   .    .   .    .pokewaitfn"
  824. 12015 [153][166]9)"thenfor    .   .    .  .   pokewaitfn"
  825. 12016 [153][166]9)" poketab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(for "
  826. 12019 ra[178]12:og[178]1:ug[178]1:we[178]0
  827. 12020 [153]"hier steht ein baum der seltenen gattung
  828. 12030 print"[145]'zypressus jacaranda'.
  829. 12050 [141]760
  830. 12120 [153]"moegliche richtungen : n,s,o"
  831. 12125 [141]750
  832. 12130 [141]100
  833. 12135 [139]s[178]5[167][137]12000
  834. 12137 [139]v[178]29[175]s[178]2[175]r[178]3[167][141]12400:r[178]0
  835. 12140 [145]r[137]17000,11500,12160,13000,12160,12160
  836. 12150 [137]12200
  837. 12160 [141]701
  838. 12200 [139]v[178]30[175]we[178]1[175]ma[178]1[167][141]12500
  839. 12299 [141]777
  840. 12300 [137]12130
  841. 12400 [153]"sie stehen fuenf schritte westlich des
  842. 12410 print"baumes.":q=1:we=1:return
  843. 12500 print"sie legen ein faltboot frei.":ra$(12,9)=g$(9):wl=1:gosub760
  844. 12510 q=1:return
  845. 13000 printspc(9)"[129] [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][129] "
  846. 13001 printspc(9)"[151][167]    [165]               [165]"
  847. 13002 printspc(9)"[167] [175][175][186]               [149] [151][165]"
  848. 13003 printspc(9)"[167][167][205]  [163][196][198][175][164]  [149]  [151]      [149] [151][165]"
  849. 13004 printspc(9)"[167][167] [163][196][198][164]  [149][213][196][201][151][164]       [149] [151][165]"
  850. 13005 printspc(9)"[167][129] [151][165][129] [151][165][129]  [151][197][149]/[158] [149] /[151] [163][197][196][195][198][210][164][164][165]"
  851. 13006 printspc(9)"[167] [199][129] [151][212][129]  [149]/[158]  [149]/[151][183][196][195][198][210][175][164]  [163][165]"
  852. 13007 printspc(9)"[167][129] [151][194][129] [151][199][129] [149]/  [149]/ [151][165][129]      [151][183][197][196][165]"
  853. 13008 printspc(9)"[167][129] [151][217][129] [151][194][149]/  [149]/ [156] [151][212][149] [129]   [151][212][129]    [151][165]"
  854. 13009 printspc(9)"[167][129] [151][167][129] [149]/  [149]/   [151][212][129]    [151][212][129]    [151][165]"
  855. 13010 printspc(9)"[167][152][197][196][149][213][196][201]/[129]  [149]  [151][199][149] [129]   [151][199][129]    [151][180]"
  856. 13011 printspc(9)"[167][129]  [149][202][210][203][152][197][198][175][210][198][195][192][196][197][196][195][198][210][198][195][151][165]"
  857. 13012 printspc(9)"[167][149] [152].[149]  [152].[149]      [152].[149]   [152].   .[151][165]"
  858. 13013 printspc(9)"[167][149]   [152].[149]   [152].[149]         [152].[149]  [151][165]"
  859. 13014 printspc(9)"[167][149] [152]. [149]  [152].[149]    [152].[149]  [152].[149] [152]    .[151][180]"
  860. 13015 printspc(9)"[167][149]       [152].[149]       [152].[149]  [152].[149] [151][165]"
  861. 13016 printspc(9)"[129] [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][129] "
  862. 13017 ifsh=0thenprint"[145][145][145][145][145][145][145][145][145][145][145][145]"
  863. 13018 ifsh=0thenprintspc(17)"[158][216][157][157][213][203][157][157][157][213][203][157][157][157][213][203]"
  864. 13019 ra=13:og=1:ug=1
  865. 13020 print"sie stehen vor einem baumstamm,der quer
  866. 13030 [153]"ueber einer schlucht liegt.
  867. 13050 gosub760
  868. 13120 print"moegliche richtungen : w,o"
  869. 13125 gosub750
  870. 13130 gosub100
  871. 13135 ifs=5thengoto13000
  872. 13140 onrgoto13160,13160,12000,13500,13160,13160
  873. 13150 goto13200
  874. 13160 gosub701
  875. 13200 ifsh=0andv=2ands=11andra$(13,5)=g$(5)thengosub13400:q=1
  876. 13210 ifsh=0andv=20thengoto13600
  877. 13299 gosub777
  878. 13300 goto13130
  879. 13400 print"die schlange frisst von den fruechten.
  880. 13410 [153]"sie kruemmt sich,verliert den halt und
  881. 13420 print"faellt in die schlucht!":sh=1:ra$(13,5)="":return
  882. 13500 ifsh=1thengoto14000
  883. 13510 goto13600
  884. 13600 print"die auf dem baumstamm liegende schlange
  885. 13601 [153]"hat sie gebissen!!
  886. 13605 za=1:li=2000:d=ti:gosub100
  887. 13610 ifv=32thengosub777:print"sie haben keine spritze!":goto13605
  888. 13620 goto900
  889. 14000 printspc(9)"[151] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  890. 14001 printspc(9)"[167]        [169]  [223][146]        [151][165]"
  891. 14002 printspc(9)"[167]   [151]/[205]  [152][206] [163][163] [152][205]  [152]    [151]/[165]"
  892. 14003 printspc(9)"[170]  [151]/  [151][205][152][206]      [152][205][206][205]  [151]/ [151][165]"
  893. 14004 printspc(9)"[170] [151]/   [152][206]       [152][206]  [152][205][151]/  [151][165]"
  894. 14005 printspc(9)"[170]/   [152][206]       [152][206]    [152][205]  [151][180]"
  895. 14006 printspc(9)"[170][195][198][210][185][210][198][195][198][210][175][164][152][206] [164][175][210][195][196][195][210][151][180]"
  896. 14007 printspc(9)"[170]     [164][198][196][163]  [163][183][163][197][195][210][164]  [151][180]"
  897. 14008 printspc(9)"[170][164][175][162][185][162][185][175][164][164][175][164][175][185][162][184][184][183][184][146][162][185][151][180]"
  898. 14009 printspc(9)"[170]       [163] [129] [206][205]        [151][180]"
  899. 14010 printspc(9)"[170]      [129]   [129][206]  [205][175][175][175][175][175][175][175][151][165]"
  900. 14011 printspc(9)"[170]        [129][206]     [129][209]  [129][209] [129][209][151][165]"
  901. 14012 printspc(9)"[170]       [129][206]  [129][209] [209]   [129][209] [129][209] [151][165]"
  902. 14013 printspc(9)"[170]     [129] [206] [129][191][146]    [129][191][146] [129][209]  [129] [209][151][165]"
  903. 14014 printspc(9)"[170]    [129] [206]   [129][191][146] [191][146]    [175][175][175][175][151][165]"
  904. 14015 printspc(9)"[167]    [129][206]   [129]     [129][209]  [129][205]   [151][165]"
  905. 14016 printspc(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  906. 14019 ra=14:og=27:ug=27
  907. 14020 print"hier teilt sich der weg.ein breiter weg
  908. 14030 [153]"mit vielen fussabdruecken fuehrt nach
  909. 14040 print"sueden,ein schmaler pfad nach osten.
  910. 14050 [141]760
  911. 14120 [153]"moegliche richtungen : s,w,o"
  912. 14125 [141]750
  913. 14130 [141]100
  914. 14135 [139]s[178]5[167][137]14000
  915. 14140 [145]r[137]14160,15000,13000,14500,14160,14160
  916. 14150 [137]14200
  917. 14160 [141]701
  918. 14200 [139]v[178]6[175]s[178]27[167][141]14400
  919. 14210 [139]v[178]25[175]g[178]2[176]v[178]25[175]s[178]28[167][141]14450
  920. 14299 [141]777
  921. 14300 [137]14130
  922. 14400 [153]"auf dem boden liegt ein glimmendes stue-ck holz!":q[178]1:[142]
  923. 14450 [139]sp$(2)[178]""[167][153]"sie haben das nicht!":q[178]1:[142]
  924. 14460 [141]705:[153]"die zuendschnur brennt!"
  925. 14465 [139]pa[178]0[167][153]"es ist aber kein pulver darin."
  926. 14470 [139]pa[178]1[167]q[178]1:za[178]1:d[178]ti:li[178]3600:zu[178]1
  927. 14480 [142]
  928. 14500 ra[178]19:og[178]1:ug[178]1
  929. 14520 [153]"sie stehen auf einer waldlichtung.
  930. 14550 gosub760
  931. 14600 print"moegliche richtungen : s,w"
  932. 14606 gosub750
  933. 14607 ifle=0thengoto14950
  934. 14608 ifle=1thenprint"auf dem boden liegt ein toter jaguar."
  935. 14610 gosub100
  936. 14620 onrgoto14640,16000,14000,14640,14640,14640
  937. 14625 ifs=5thengoto14520
  938. 14630 goto14849
  939. 14640 gosub701
  940. 14849 gosub777
  941. 14850 goto14610
  942. 14950 print"ein jaguar taucht auf die lichtung auf.
  943. 14951 [153]"er greift sie an!!":za[178]1:d[178]ti:li[178]3600:le[178]1
  944. 14952 [141]100
  945. 14953 [139]v[178]20[175]s[178]29[175]sp$(1)[179][177]""[175]g[178]1[167]14960
  946. 14954 ra[178]14:[137]900
  947. 14960 [153]"geschafft!aber der jaguar hat ihnen die
  948. 14961 print"pulsadern der linken hand aufgerissen!"
  949. 14962 print"sie drohen zu verbluten!!":d=ti
  950. 14963 gosub100
  951. 14964 ifv=26andg=6andsp$(6)<>""thengosub705:goto14970
  952. 14965 gosub777:fori=0to3000:next
  953. 14966 ra=16:goto900
  954. 14970 print"die blutung kommt zum stillstand.sie    sind gerettet!":za=0:goto14610
  955. 15000 printspc(9)"[158] [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  956. 15001 printspc(9)"[167]                    [151][165]"
  957. 15002 printspc(9)"[167]                    [151][165]"
  958. 15003 printspc(9)"[167]                    [151][165]"
  959. 15004 printspc(9)"[167]                    [151][165]"
  960. 15005 printspc(9)"[167]                    [151][165]"
  961. 15006 printspc(9)"[167]   [152][193][193][193][158][206][205][152][193][193][193][193][193][193][158][206][205][152][193][193][193] [151][165]"
  962. 15007 printspc(9)"[167]  [152][193][194][194][158][206]  [158][205][152][194][194][194][194][158][206]  [158][205][152][194][194][193][151][165]"
  963. 15008 printspc(9)"[167] [152][193][194] [158][206]    [158][205]  [158] [208][197][197][207]  [152][194][151][165]"
  964. 15009 printspc(9)"[170][152][193][194][194] [158][208][197][196][196][197][207]   [158][170][213][201][180]   [151][165]"
  965. 15010 printspc(9)"[167][152][194][194]  [158][170] [158][213][201] [158][180]  [149]  [158][163][163]    [151][165]"
  966. 15011 printspc(9)"[167][152][194]  [201][158][167] [158][194][194] [158][180][203] [149][209][155]    [201] [203][151][165]"
  967. 15012 printspc(9)"[167][152][194] [213]  [158][163][197][197][163]  [149][213][219][203] [202] [201]  [151][165]"
  968. 15013 printspc(9)"[167]    [203]  [201] [202] [149][172][177][187][201]   [202] [151][165]"
  969. 15014 printspc(9)"[167] [203]   [213]   [201]  [213]   [203]   [151][165]"
  970. 15015 printspc(9)"[167]                    [165]"
  971. 15016 printspc(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  972. 15019 ra=15
  973. 15020 print"sie stehen vor dem eingang des kanniba-
  974. 15030 [153]"lendorfes.
  975. 15050 gosub760
  976. 15120 print"moegliche richtungen : n"
  977. 15125 gosub750
  978. 15127 ifka=0thenprint"die kannibalen haben sie entdeckt und   greifen sie an!"
  979. 15129 q=1:ka=1:za=1:d=ti:li=3600
  980. 15130 gosub100
  981. 15135 ifs=5thengoto15000
  982. 15140 onrgoto14000,15160,15160,15160,15160,15160
  983. 15150 goto15300
  984. 15160 gosub701
  985. 15300 goto15130
  986. 16000 printspc(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  987. 16001 printspc(9)"[151][167]                    [151][165]"
  988. 16002 printspc(9)"[167]                    [151][165]"
  989. 16003 printspc(9)"[167]        [158]            [151][180]"
  990. 16004 printspc(9)"[167]        [158] [169]    [146][169][205]    [151][165]"
  991. 16005 printspc(9)"[167]       [158] [169][163][163][163][163][163][223][146] [158][205]   [151][165]"
  992. 16006 printspc(9)"[167]      [158] [169][218][218][215] [215][218][218][223][146] [158][205]  [151][165]"
  993. 16007 printspc(9)"[167]     [129] [158][169]    [215]    [223][146][206]  [151][165]"
  994. 16008 printspc(9)"[170][152][193][193][193][193][193][193][129][208][208][208][208][208][208][208][208][208][208] [165][152][193][193][151][165]"
  995. 16009 printspc(9)"[170][152][194][194][194][194][194][194][129][170][167][167][167][167][167][167][167][167][167] [129][165][152][200][200][151][180]"
  996. 16010 printspc(9)"[170][152][194][194][194][194][194][194][129][170][167][167][167][167][167][167][167][167][167] [129][165][152][200][200][151][165]"
  997. 16011 printspc(9)"[170][129][213] [129][202]  [201][167][167][167][167][167][167][167][167][167][167][206] [129][202] [151][180]"
  998. 16012 printspc(9)"[170]   [129][201]   [129][163][163][163][163][163][163][163][163][163]   [129][202][151][165]"
  999. 16013 printspc(9)"[170]     [129][201] [129][203]  [129][201] [129][202]  [129][213] [202]  [151][165]"
  1000. 16014 printspc(9)"[170] [129][213] [129][203]    [129][213]   [129] [203]    [129][201] [151][165]"
  1001. 16015 printspc(9)"[167]   [129][201]  [129][213]    [129][202]   [129][202]    [151][180]"
  1002. 16016 printspc(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  1003. 16019 ra=16
  1004. 16020 print"sie befinden sich an der rueckseite des
  1005. 16030 [153]"dorfes.hier steht die opferhuette der
  1006. 16040 print"kannibalen.sie ist anscheinend unbewacht
  1007. 16050 [141]760
  1008. 16120 [153]"moegliche richtungen : n"
  1009. 16125 [141]750
  1010. 16130 [141]100
  1011. 16135 [139]s[178]5[167][137]16000
  1012. 16140 [145]r[137]14500,16160,16160,16160,16160,16160
  1013. 16150 [137]16300
  1014. 16160 [141]701
  1015. 16300 [139]v[178]28[175]s[178]30[167][141]705:[141]16800
  1016. 16310 [139]v[178]27[175]s[178]30[167][141]705:[141]16700
  1017. 16499 [141]777
  1018. 16500 [137]16130
  1019. 16700 [153]"in der huette ist ein gefesselter weis-
  1020. 16701 print"ser mann.er sagt zu ihnen:
  1021. 16702 [153]""[199](34)"wer sie auch immer sind,fliehen sie!
  1022. 16703 print"die huette ist bewacht.gehen sie zum
  1023. 16704 [153]"baum noerdlich vom fuss der treppe!fuenf
  1024. 16705 print"[145]fuss westlich von ihm liegt mein falt-
  1025. 16706 [153]"boot vergraben.fahren sie zur felsen-
  1026. 16707 print"insel und holen sie hilfe!"chr$(34)
  1027. 16710 q=1:ma=1:return
  1028. 16800 print"die kannibalen haben sie entdeckt und   greifen sie an!"
  1029. 16810 q=1:ka=1:za=1:d=ti:li=3600:return
  1030. 17000 printspc(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  1031. 17001 printspc(9)"[151][167]                    [151][165]"
  1032. 17002 printspc(9)"[170]                    [151][165]"
  1033. 17003 printspc(9)"[167]                    [151][165]"
  1034. 17004 printspc(9)"[167]       [151][168]            [151][165]"
  1035. 17005 printspc(9)"[170]   [151] [168][168][169] [223][169][223][146]         [151][165]"
  1036. 17006 printspc(9)"[170]   [151][169] [206]   [205] [223][146]        [151][165]"
  1037. 17007 printspc(9)"[170][154]                    [151][146][165]"
  1038. 17008 printspc(9)"[167][154]                    [151][146][165]"
  1039. 17009 printspc(9)"[170][154]                    [151][146][165]"
  1040. 17010 printspc(9)"[170][154][164][185][146][184][163] [183][162][175][164] [175][185][162][146][183][163] [163] [154][163][183][151][165]"
  1041. 17011 printspc(9)"[170]  [152].  [152].    [155]  [152].[155]   [152].   [151][165]"
  1042. 17012 printspc(9)"[170][152].  [152].   [152].      [152].  [152]. [152].[151][180]"
  1043. 17013 printspc(9)"[170]          [152].         [151][165]"
  1044. 17014 printspc(9)"[167] [152]. [152] . [152]  [152].   [152].  [152].  [152]. [151][180]"
  1045. 17015 printspc(9)"[170]                    [151][180]"
  1046. 17016 printspc(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  1047. 17019 ra=17
  1048. 17020 print"sie stehen an der nordkueste der insel.
  1049. 17030 [153]"in der ferne ist eine felseninsel zu
  1050. 17040 print"erkennen.
  1051. 17050 [141]760
  1052. 17120 [153]"moegliche richtungen : s"
  1053. 17125 [141]750
  1054. 17130 [141]100
  1055. 17135 [139]s[178]5[167][137]17000
  1056. 17140 [145]r[137]17160,12000,17160,17160,17160,17160
  1057. 17150 [137]17200
  1058. 17160 [141]701
  1059. 17200 [139]s[178]31[175]sp$(9)[179][177]""[167][141]705:wa[178]1
  1060. 17210 [139]wa[178]1[175]v[178]31[175]s[178]32[167]17310
  1061. 17300 [137]17130
  1062. 17310 dd[178]1:[153]"load"[166]16)"das war"
  1063. 17320 [153][166]13)"syso d y s s e e
  1064. 17330 printspc(14)"[158]t e i l   1
  1065. 17340 [129]i[178]0[164]6000:[130]:[153]"load"[166]10)"erleben sie demnaechst
  1066. 17420 forx=0to2:gosub20060:goto20004
  1067. 17430 printspc(14)"[158]t e i l  2":gosub750:print"[147]":end
  1068. 20000 reads,b:ifs<>-1thenpoke55272+s,f:poke1000+s,b:fori=0to200:next:goto20000
  1069. 20001 iff=2thenf=1:goto20000
  1070. 20002 forx=0to2:restore:fori=0to24:reads,b:ifs=-1thennexti
  1071. 20003 poke1000+s,128+b:poke1000+s,b:nexti:next::gosub20050:forx=0to2:gosub20060
  1072. 20004 printspc(4-x)"[145][158]  [164]   [158][164][164]  [158] [164] [164]  [164][164][164]  [158][164][164][164]  [158][164][164][164]  [158][164] [158][164] "
  1073. 20005 gosub20050
  1074. 20006 printspc(x)"[158] //[205] / [158]/[205] [158]////[180]/  [158]/[165]/  [158]/[165]/  [158]/[165]////[180]"
  1075. 20007 gosub20050
  1076. 20008 printspc(4-x)"[169] [223][146]/[165]  [223][146]/[165] [146]  [146] [165]   [146]/    [146]/    [146]/  [146]  [146] [165]"
  1077. 20009 gosub20050
  1078. 20010 printspc(x)" [146] [158] [146] [158][180] [146] [158] [146] [158][165] [146]  [146] [165] [146] [204][175]  [146] [204][175]  [146] [158][204][175]  [146]  [146] [165]
  1079. 20011 [141]20050
  1080. 20012 [153][166]4[171]x)" wait  wait sgn wait  wait fn wait/ wait/  wait/ /sgn wait/ /fn wait/ /fn wait/ wait/ "
  1081. 20013 [141]20050
  1082. 20014 [153][166]x)" wait  wait fn wait  wait fn(NULL) waitstepfn    wait sgn   wait sgn   wait/ (NULL) waitstepfn "
  1083. 20015 [141]20050
  1084. 20016 [153][166]4[171]x)" wait/ wait sysfn wait/ wait fn  wait sgn / sys wait syssgn/ sys wait sysfn wait/ /fn sys wait fn
  1085. 20017 gosub20050
  1086. 20018 printspc(x)"   [146]/    [146]/   [146] [165]    [146]/    [146]/    [146]/   [146] [165] "
  1087. 20019 gosub20050
  1088. 20020 printspc(4-x)"[223] [146][169]    [146][169]    [146]/    [146][169]    [146][169]    [146][169]    [146]/  "
  1089. 20021 gosub20050
  1090. 20030 gosub20060:print"  [157][157]  [157][157]  [157][157]  [157][157]  [157][157]  [157][157]  [157][157]  [157][157]"
  1091. 20035 gosub20060:print"[157][157][157]  [157][157]  [157][157]  [157][157]  [157][157]  [157][157][157]  [157][157]  [157][157]  "
  1092. 20040 next
  1093. 20049 goto20065
  1094. 20050 fori=0to400:next:return
  1095. 20060 print"":return
  1096. 20065 ifdd=1thengoto17430
  1097. 20070 printspc(10)"ein":gosub20050
  1098. 20075 printspc(14)"[145]abenteuerspiel":gosub20050
  1099. 20080 printspc(18)"von":gosub20050
  1100. 20090 printspc(9)"[154]hans":gosub20050
  1101. 20091 printspc(13)"[145]-guenther":gosub20050
  1102. 20092 printspc(23)"[145]schreck":gosub20050
  1103. 20100 data33,24,35,20,37,3,39,45,41,19,43,15,45,6,47,20,49,23,51,1,53,18
  1104. 20101 data55,5,-1,-1,118,16,119,18,120,1,121,5,122,19,123,5,124,14,125,20
  1105. 20102 data126,9,127,5,128,18,129,20,-1,-1
  1106. 20103 return
  1107. 25000 print"[211]ie erinnern sich:
  1108. 25001 [153]"(NULL)ie waren (NULL)assagier an peekord des (NULL)uxus-
  1109. 25002 print"liners '[209]ueen [205]ary' gewesen.[196]er [212]aifun
  1110. 25003 [153]"hatte die peekesatzung vollkommen ueber-   rascht.
  1111. 25004 print"[196]as einzige brauchbare [210]ettungsboot war
  1112. 25005 [153]"kurz nach dem atnussetzen gekentert.
  1113. 25006 print"[215]as dann geschah, wissen [211]ie nicht mehr.
  1114. 25007 [153]"mid$etzt erwachen (NULL)ie langsam wieder aus
  1115. 25008 print"[201]hrer [194]ewusstlosigkeit.....
  1116. 25009 :[141]750:[153]"load"[199](142):[142]
  1117. 30000 [153]"load"[166]17)"  wait"
  1118. 30002 [153][166]17)"   wait"
  1119. 30003 [153][166]17)"  wait"
  1120. 30004 [153][166]17)"  wait"
  1121. 30005 [142]
  1122. 30100 [153]"noch ein versuch? (j/n)"
  1123. 30110 [161]b$:[139]b$[178][199](74)[167][156]:[137]10
  1124. 30120 [139]b$[178][199](78)[167][128]
  1125. 30130 [137]30110
  1126.