home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / inka (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  22KB  |  661 lines
  1. 10 rem"       ***[201][206][203][193]***
  2. 20 [143]"      (c) by peeklen(NULL)(NULL)len
  3. 30 rem"          1985
  4. 31 [143]"str$esigned by (NULL)ile & (NULL)ombie
  5. 32 rem"  [208]rogrammed  by [218]ombie
  6. 33 [143]"
  7. 34 rem"      [212]hilo [205]ahnig
  8. 35 [143]"  a.d. (NULL)tephansberg 56
  9. 36 rem"    5309 [205]eckenheim
  10. 37 [143]"   (NULL)el.:  02225/4721
  11. 38 rem"-------------------------
  12. 45 :
  13. 46 :
  14. 47 :
  15. 48 :
  16. 49 [140]:r[178][187]([171]ti)
  17. 50 [131] 76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160,0,169
  18. 52 [131] 160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252,162,32,32,11
  19. 54 [131] 1,169,53,133,1,88,96:[129]i[178]264[164]310:[135]x:[151]i,x:[130]:[158]264
  20. 56 [129]i[178]710[164]730:[135]x:[151]i,x:[130]
  21. 58 [131] 208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168
  22. 60 [151]40996,197:[151]40997,2:[151]1,54
  23. 62 [129]i[178]43168[164]43170:[135]x:[151]i,x:[130]
  24. 64 [129]i[178]704[164]709:[135]x:[151]i,x:[130]
  25. 66 [131] 32,192,2,32,138,173,76,247,183
  26. 70 :
  27. 71 :
  28. 72 :
  29. 100 [151]53280,7:[151]53281,7
  30. 110 [153]"loadstop"[199](142):[143] h:ctrl+h
  31. 120 [153]
  32. 130 [137] 2000
  33. 499 [143] input
  34. 500 [153]:[141] 700
  35. 510 q[178]0:[129]i[178]1[164][195](ii$):[139][202](ii$,i,1)[178]" "[167]q[178]i:i[178][195](ii$)
  36. 520 [130]:[139]q[178]0[167]v$[178]ii$:n$[178]"":[137]540
  37. 530 v$[178][200](ii$,q[171]1):n$[178][202](ii$,q[170]1)
  38. 532 q1[178]0:[129]i[178]1[164][195](n$):[139][202](n$,i,1)[178]" "[167]q1[178]i
  39. 534 [130]:[139]q1[178]0[167]o$[178]"":o[178]0:[137]540
  40. 536 o$[178][202](n$,q1[170]1):n$[178][200](n$,q1[171]1)
  41. 540 l[178][195](v$):v[178]0:[129]i[178]1[164]54:[139]v$[178][200](v$(i),l)[167]v[178]i:i[178]54
  42. 550 [130]:[139]v[178]0[167][153]"right$ch verstehe dein verb nicht!":[137]500
  43. 560 [139][201](v$(v),1)[178]"*"[167]v[178]v[171]1:[137]560
  44. 570 [139]q[178]0[167]n[178]0:[142]
  45. 580 l[178][195](n$):n[178]0:[129]i[178]1[164]mx:[139]n$[178][200](n$(i),l)[167]n[178]i:i[178]mx
  46. 590 [130]:[139]n[178]0[167][153]"right$ch verstehe dein (NULL)omen nicht!":[137]500
  47. 600 [139]o$[178]""[167][142]
  48. 610 l[178][195](o$):o[178]0:[129]i[178]1[164]mx:[139]o$[178][200](n$(i),l)[167]o[178]i:i[178]mx
  49. 620 [130]:[139]o[178]0[167][153]"right$ch verstehe dein (NULL)bjekt nicht!":[137]500
  50. 630 [142]
  51. 700 [153]:[153]"(NULL)as nun ? ";:i1$[178]ii$:ii$[178]""
  52. 710 [153]"<cmd";
  53. 720 [161]in$:[139]in$[178]""[167]710
  54. 730 [139]in$[178][199](20)[175]ii$[177]""[167]770
  55. 740 [139]in$[178][199](13)[167]780
  56. 750 [139](in$[179]"@"[176]in$[177]"z")[175]in$[179][177]" "[176][195](ii$)[177]27[167]720
  57. 755 [139]in$[178]"@"[167]795
  58. 760 ii$[178]ii$[170]in$:[153]in$;:[137]710
  59. 770 ii$[178][200](ii$,[195](ii$)[171]1):[153]in$;:[137]710
  60. 780 :
  61. 785 [139]ii$[178]""[167]720
  62. 790 [153]:[142]
  63. 795 ii$[178]i1$:[153][199](141)"on"ii$;:[137]710
  64. 999 [143] sieh
  65. 1000 [153]"left$erumliegende chr$egenstaende:":f[178]0
  66. 1010 [129]i[178]1[164]23:[139]n(i)[178]p[175]nf(i)[179][177]p[167]f[178]1:[153]"-";n$(i)
  67. 1020 [130]:[139]f[178]0[167][153]"keine"
  68. 1030 [139]n(46)[178]p[175]p[179][177]14[167][153]"str$er atnffe ist hier."
  69. 1050 [153]:[153]"atnusgaenge:";:[140] 4900[170]p[172]100:x[178].
  70. 1060 [135]x,e:[153]v$([182](x))" ";:e([182](x))[178]e:[139]x[177]0[167]1060
  71. 1065 [139]x[178].[167][153]"keine";
  72. 1070 [153]:[142]
  73. 1500 [153]""
  74. 1510 [153][163]17)"+"
  75. 1520 [153][163]17)"(NULL)right$(NULL)"
  76. 1530 [153][163]17)" "
  77. 1540 [153][163]17)" "
  78. 1550 [153]"(NULL)illst du nochmal spielen ?"
  79. 1560 [161]in$:[139]in$[178]""[167]1560
  80. 1570 [139]in$[178]"j"[167][153]"load":[138]3000
  81. 1580 [139]in$[179][177]"n"[167]1560
  82. 1590 [153]"load":[128]
  83. 1999 [128]
  84. 2000 [153]"load";:[151]53265,[194](53265)[175]239
  85. 2002 [153]"black croco software programming crew     presents:     inka"
  86. 2003 [129]i[178]54272[164]54296:[151]i,0:[130]
  87. 2005 [153]"   andandandand (NULL)(NULL) and andandandandand
  88. 2010 print"   [204] [175] [205][165][170][206][206][206][175] [175][175][206]
  89. 2020 [153]"   ++++(NULL)   fnfnfnfnfn
  90. 2030 print"   [170][170][186][170] [165][170][205][205][165][183] [165]
  91. 2040 [153]"(NULL)usrusrusr  + fn+ (NULL) (NULL)fnfn
  92. 2050 print"[183][183][183][183][183][208][186] [183][183]  [183] [183]
  93. 2055 [143] +++++++++-+++++++++-+++++++++-
  94. 2060 [153]"    (NULL)right$":[153]"    mid$(NULL)"
  95. 2065 [140]30000:[129]i[178]0[164]62:[135]x:[151]832[170]i,x:[130]:v[178]53248:[151]v[170]39,0
  96. 2066 [151]v[170]40,0:[151]v[170]41,0:[151]v[170]2,100:[151]v[170]3,80:[151]2041,15:[151]2042,14
  97. 2067 [151]v[170]16,2
  98. 2068 [129]i[178]0[164]62:[135]x:[151]896[170]i,x:[130]:[129]i[178]0[164]62:[135]x:[151]960[170]i,x:[130]
  99. 2070 [151]2040,13:[151]v,200:[151]v[170]1,65:[151]v[170]29,3:[151]v[170]21,3:[151]v[170]23,2
  100. 2080 si[178]54272:[151]si[170]24,15:[151]si[170]5,0:[151]si[170]6,240:[151]si[170]1,10
  101. 2100 [153][163]10)"       and(NULL)(NULL)and
  102. 2110 printtab(10)"      [206][206] [206][206][165]
  103. 2120 [153][163]10)"     (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)and
  104. 2130 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][206][206][205][206][206][206] [206][206][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  105. 2140 printtab(10)"   [206][207][218][218][208][206] [206][206][206][205]
  106. 2150 [153][163]10)"  (NULL)(NULL)    (NULL)(NULL)(NULL)(NULL) (NULL)
  107. 2160 printtab(10)"  [207]  [207][208]  [208][206] [206]
  108. 2170 [153][163]10)" (NULL)  (NULL)*rnd(NULL)  (NULL)(NULL)
  109. 2180 printtab(10)" [163][163][163][163][163][163][163][163][163][163]
  110. 2190 [151]53265,[194](53265)[176]16
  111. 2200 z[178]0:[129]i[178]90[164]0[169][171]1:[151]v[170]2,i:[151]975[170]z,255:[151]976[171]z,0:z[178]1[171]z
  112. 2210 [151]si[170]4,128[170]z:[129]n[178]1[164]20:[130]n,i
  113. 2220 [151]v[170]4,255:[151]v[170]5,100:[151]v[170]21,7
  114. 2230 [129]i[178]100[164]200:[151]975[170]z,255:[151]976[171]z,0:z[178]1[171]z:[151]v[170]5,i:[151]si[170]4,128[170]z
  115. 2240 [129]n[178]1[164]20:[130]n,i
  116. 2250 [129]i[178]80[164]0[169][171]1:[151]975[170]z,255:[151]976[171]z,0:[151]si[170]4,128[170]z:z[178]1[171]z
  117. 2260 [151]v[170]3,i:[139]i[179]32[167][151]si[170]24,i[173]2
  118. 2265 [129]n[178]1[164]20:[130]n,i
  119. 2270 [151]si[170]4,0:[151]v[170]21,0
  120. 2280 [153]"load(NULL)on (NULL)enzel peekorucki & (NULL)hilo (NULL)ahnig"
  121. 2290 [151]198,0:[146]198,1
  122. 2300 [153]"loadstr$as (NULL)piel:":[143] n:ctrl+n
  123. 2310 [153]"usrusrusrusrusrusrusrusrusrusr"
  124. 2320 [153]"str$u bist atnnthony (NULL)olf.
  125. 2330 print"[196]u wurdest mit dem [198]allschirm ueber dem"
  126. 2340 print"[210]egenwald des [193]mazonas abgeworfen."
  127. 2350 print"[198][201][206][196][197][160][196][197][206][160][211][195][200][193][212][218][160][196][197][210][160][201][206][203][193][160]!"
  128. 2360 print"[194]ringe ein [218]eichen des [198]orschers, der"
  129. 2370 print"seine [211]tation irgendwo dort unten hat!"
  130. 2380 print"[200]ast du beide [193]ufgaben erfuellt, so"
  131. 2390 print"mache ein weithin sichtbares [211]ignal, und";
  132. 2400 print"der [200]ubschrauber wird dich wieder abho- len!"
  133. 2410 print"[196]ruecke eine [212]aste."
  134. 2420 poke198,0:wait198,1:geta$
  135. 3000 fl=22:dimfl%(fl):restore 3020
  136. 3005 print"[147]"
  137. 3010 dimv$(54):fori=1to54:readv$(i):next
  138. 3020 data n,s,o,w,no,nw,so,sw,nimm,gib,lege,schwimme,stuelpe,wirf,springe
  139. 3030 data schlage,toete*,schau,sieh*,betrachte*,gucke*,halte,inventur,liste*
  140. 3040 data ziehe,druecke*,gehe,stelle,krieche,krabble*,grabe,buddle*,schliesse
  141. 3050 data oeffne,binde,befestige*,klettere,hangle,wasche,schmiere,klebe*
  142. 3060 data bestreiche*,beschmiere*,save,load,quit,ende*,stop*,mache,entzuende*
  143. 3070 data warte,trage,*anziehe,ja
  144. 3100 mx=51:dimn$(mx),n(mx),nf(mx):fori=1tomx:readn$(i),n(i):nf(i)=n(i):next
  145. 3110 data machete,0,uhr,43,stein,-1,eimer,5,bananen,46,brille,38,topf,8
  146. 3120 data liane,-1,taschentuch,38,eier,42,gold,-1,schluessel,39,alles,-1
  147. 3130 data deckel,-1,tierkadaver,39,figur,50,schatz,-1,schaufel,26
  148. 3140 data fallschirm,0,stange,41,truhe,-1,geld,0,teller,30
  149. 3200 data baum,,bienen,11,inka,,toter,,hebel,,mestize,,wasserfall,
  150. 3210 data fluss,,steine,,indianer,,feuer,
  151. 3220 data skorpion,,honig,,einsiedler,,nest,,ast,,tempelportal,,spalt,
  152. 3230 data brunnen,,hoehle,,fels,,gebuesch,,affe,14,nische,,bruecke,
  153. 3240 data zelt,,staude,,seil,
  154. 3300 restore 3310:fori=1toint(rnd(1)*8)+1:readp:next:n(19)=p
  155. 3310 data 26,29,7,3,12,24,17,40
  156. 3320 kn$="[203]ann ich nicht.":wd$="[215]as denn ?":hn$="[200]ab ich nicht."
  157. 3330 sn$="[211]eh ich nicht.":ok$="[207]k."
  158. 4000 iffl%(18)=.orp=p1then4050
  159. 4010 print"[196]er [193]ffe kommt dir nach.":p1=p:n(46)=p:fl%(18)=.
  160. 4050 fori=1to8:e(i)=.:next:print:goto4900+p*100:print
  161. 4100 gosub1000
  162. 4110 gosub4300:ifdthen1500
  163. 4120 gosub500:goto19900+100*v
  164. 4300 d=0
  165. 4310 ifnot(p>9andp<23andp<>18andn(12)=0andfl%(3)=0)then4322
  166. 4320 print:print"[197]ine diebische [197]lster stiehlt dir deinen[211]chluessel.":n(12)=43
  167. 4322 ifnot(p>9andp<23andp<>18andn(2)=0andfl%(3)=0)then4330
  168. 4325 print:print"[196]ie [197]lster stiehlt dir die [213]hr.":n(2)=43
  169. 4330 iffl%(2)=.then4340
  170. 4332 fl%(2)=fl%(2)-1
  171. 4335 iffl%(2)=.andp=9andn(3)thenprint"[197]r setzt sich wieder hin.":n(3)=-1
  172. 4340 iffl%(4)=.then4350
  173. 4342 fl%(4)=fl%(4)-1:iffl%(4)>1thenprint"[196]ir bleibt nicht viel [218]eit...":goto4350
  174. 4343 ifn(19)>-1then4348
  175. 4344 print"[196]u wirst hinuntergeworfen.[196]urch den"
  176. 4345 print"[198]allschirm wirst du gerettet:die [201]ndia-"
  177. 4346 print"ner koennen nur fassungslos starren...":p=41:fl%(4)=0:fl%(22)=1:return
  178. 4348 print"[196]ie [201]ndianer werfen dich in den [193]bgrund.":d=1
  179. 4350 if(p<10orp>23)andp<>43thenfl%(15)=0:goto4380
  180. 4355 iffl%(15)=-1then4380
  181. 4360 fl%(15)=fl%(15)-1:iffl%(15)=1thenprint"[196]u hoerst ein [199]eraeusch..."
  182. 4370 iffl%(15)then4380
  183. 4375 print"[197]in [201]ndianer stuerzt herbei und ueber-  waeltigt dich!":d=1
  184. 4380 iffl%(18)=.orfl%(19)=.then4400
  185. 4385 fl%(18)=fl%(18)-1
  186. 4400 ifp<>42then4420
  187. 4405 ifn(46)<>pandn(46)<>-1thenprint"[196]er [193]dler toetet dich.":d=1:return
  188. 4408 iffl%(20)then4420
  189. 4410 print"[196]er [193]dler toetet den [193]ffen.":fl%(20)=1:n(46)=-1
  190. 4420 iffl%(19)=.thenn(5)=46
  191. 4430 iffl%(21)thenfl%(21)=fl%(21)-1
  192. 4435 return
  193. 5000 data -1,3
  194. 5010 print"[196]u stehst am [198]lussufer, nahe bei einem  tosenden [215]asserfall."
  195. 5020 print"[197]in schmaler [213]ferpfad fuehrt nordwaerts.";:goto4100
  196. 5100 data -4,1
  197. 5110 print"[196]u bist in einer [200]oehle hinter dem [215]as- serfall."
  198. 5120 iffl%(0)=0thenprint"[197]in [201]ndianer starrt dich boesartig an!"
  199. 5130 iffl%(0)thenprint"[218]wischen den [198]elsen ist ein [200]ebel."
  200. 5140 goto4100
  201. 5200 data 2,1,-5,4
  202. 5210 print"[196]u stehst am [198]lussufer. [196]er [213]ferpfad"
  203. 5220 print"weist den [215]eg nach [206]ordosten und [211]ueden.";:goto4100
  204. 5300 data 8,3,-6,5
  205. 5310 print"[196]u bist am [198]lussufer. [196]er [198]luss hat"
  206. 5320 print"einige [211]teine herangespuelt.":goto4100
  207. 5400 data 7,4,-1,6
  208. 5410 print"[214]or dir steht ein [194]runnen. [197]in breit"
  209. 5420 print"grinsender [205]estize haelt dir ein [211]child vor die [206]ase:"
  210. 5430 print">[198]uer [193]benteurer $10.-<":goto4100
  211. 5500 data 2,5,-1,7
  212. 5510 print"[196]u bist im trockenen [213]nterholz.":goto4100
  213. 5600 data 4,8,1,9,-2,6
  214. 5610 print"[196]ein [215]eg hat dich in die [194]erge gefuehrt.";
  215. 5620 print"[215]estlich ist ein [200]oehleneingang.":goto4100
  216. 5700 data -3,7
  217. 5710 print"[196]u hast eine enge [200]oehle betreten."
  218. 5720 iffl%(1)thenprint"[196]er [197]imer ist ueber dem [211]korpion.":goto5750
  219. 5730 print"[214]or deinen [198]uessen hockt ein etwa faust-";
  220. 5740 print"grosser [211]korpion,der im [200]albdunkel der  [200]oehle blaeulich schimmert."
  221. 5750 print"[201]n einer [206]ische entdeckst du einen [212]opf [200]onig."
  222. 5760 goto4100
  223. 5800 data 2,7,-1,12
  224. 5810 print"[200]ier ist ein [197]insiedler."
  225. 5820 ifn(3)=-1thenprint"[197]r sitzt auf einem [211]tein."
  226. 5830 goto4100
  227. 5900 data -3,11
  228. 5910 print"[196]u stehst im undurchsichtigen [199]estruepp"
  229. 5920 print"des lianenbewachsenen [196]schungels.":goto4100
  230. 6000 data 4,10,3,12,-1,15
  231. 6010 ifn(25)<>11then5910
  232. 6020 print"[197]in surrender [194]ienenschwarm umschwaermt dich."
  233. 6030 ifn(36)=.thenprint"[196]ie [194]ienen stuerzen sich auf den [200]onig."
  234. 6040 goto4100
  235. 6100 data 2,9,4,11,-3,13
  236. 6110 goto5910
  237. 6200 data 1,17,5,18,6,16,-4,12
  238. 6210 goto5910
  239. 6300 data 2,10,-5,20
  240. 6310 ifn(46)<>14then5910
  241. 6320 print"[197]in [193]ffe gafft dich hungrig an...":goto4100
  242. 6400 data 2,11,-5,21
  243. 6410 goto5910
  244. 6500 data 1,21,-7,13
  245. 6503 iffl%(3)then6520
  246. 6505 print"[197]ine [197]lster sitzt auf einem [193]st eines"
  247. 6508 print"[194]aumes.[193]ls sie dich sieht, fliegt sie   davon."
  248. 6510 goto5910
  249. 6520 print"[196]ie [197]lster klebt mit ihren [203]rallen am   [193]st fest.":goto5910
  250. 6600 data 2,13,6,21,-5,23
  251. 6610 goto5910
  252. 6700 data 8,13,1,23,-5,24
  253. 6710 print"[196]u hast ein kleines [196]orf mit [201]nkahuettenbetreten.":goto4100
  254. 6800 data 2,14,-3,20
  255. 6810 goto5910
  256. 6900 data 4,19,8,14,-3,21
  257. 6910 goto5910
  258. 7000 data 4,20,3,22,8,15,-7,17
  259. 7010 goto5910
  260. 7100 data 4,21,-3,23
  261. 7110 goto5910
  262. 7200 data 2,18,8,17,-3,24
  263. 7210 goto5910
  264. 7300 data 8,18,4,23,-7,25
  265. 7310 print"[196]u stehst auf einem seicht bewaldeten"
  266. 7320 print"[200]uegel.[215]estlich ist [196]schungel,suedwest-"
  267. 7330 print"lich erblickst du ein [201]nkadorf,suedoest-";
  268. 7340 print"lich ist eine wackelige [200]aengebruecke.":goto4100
  269. 7400 data 6,24,-7,26
  270. 7410 print"[196]u stehst auf einer schwankenden [200]aenge-";
  271. 7415 print"bruecke. [213]nter dir zuengeln die zischen-";
  272. 7420 print"den [198]luten des [198]lusses dahin, der fuer"
  273. 7430 print"seinen [199]oldgehalt beruehmt ist.":goto4100
  274. 7500 data 6,25,1,27,-2,29
  275. 7510 print"[196]u bist am [213]fer des [198]lusses.[206]ordwestlich";
  276. 7520 print"ist eine [194]ruecke.";:ifn(18)<>26thenprint:goto4100
  277. 7530 print"[201]n den [211]and ist nach-","laessig eine [211]chaufel gesteckt.":goto4100
  278. 7600 data -2,26
  279. 7610 print"[200]ier, oberhalb der [194]ruecke ist das [215]as- ser seicht und klar.":goto4100
  280. 7700 data 0,0
  281. 7710 print"[196]u stehst bis zur [200]uefte im [215]asser.":goto4100
  282. 7800 data 1,26,8,31,-4,30
  283. 7810 print"[196]u bist auf einem [208]fad vor einem [218]elt."
  284. 7820 print"[196]as muss die [194]ehausung des [198]orschers    sein!":goto4100
  285. 7900 data -3,29
  286. 7910 print"[196]u bist in dem [218]elt des [198]orschers.[197]s ist";
  287. 7920 print"niemand hier.";:ifn(23)<>30thenprint:goto4100
  288. 7930 print"[197]in [212]eller mit [197]ssen steht auf dem [194]oden.":goto4100
  289. 8000 data -5,29
  290. 8010 print"[196]u stehst auf einer felsigen [200]oehe vor"
  291. 8020 print"einem [193]bgrund.[212]ief unten siehst du den"
  292. 8030 print"[212]empel.[201]n der [198]elswand ist ein [193]dler-   nest.":goto4100
  293. 8100 data -7,34
  294. 8110 print"[196]u stehst an einer tiefen [211]chlucht,an"
  295. 8120 print"deren [194]oden du den [201]nkatempel zu erken-"
  296. 8130 print"nen glaubst.":goto4100
  297. 8200 data 6,29,-2,34
  298. 8210 print"[197]in fast unsichtbarer [208]fad windet sich"
  299. 8220 print"durch das [199]estruepp.[201]ch glaube nicht,"
  300. 8230 print"dass ich ihn wiederfinden wuerde.[197]r "
  301. 8240 print"setzt sich nach [206]orden und [211]ueden fort.":goto4100
  302. 8300 data 1,33,-6,32
  303. 8310 print"[196]u stehst vor einem tiefen [193]bgrund."
  304. 8320 print"[213]nten liegen [211]kelette von [207]pfern."
  305. 8325 iffl%(4)=.thenprint"[194]ewaffnete [201]nkas stehen um dich herum."
  306. 8340 goto4100
  307. 8400 data -4,36
  308. 8410 print"[196]u bist am [198]uss des [193]bgrunds.[215]estlich   ist der [212]empel.":goto4100
  309. 8500 data -3,35
  310. 8510 print"[214]or dir ist das [208]ortal das [212]empels."
  311. 8520 print"[196]avor liegt der tote [198]orscher,auf seinem";
  312. 8530 print"[199]esicht ein schmerzverzerrter [193]usdruck.":iffl%(14)=.then4110
  313. 8540 print"[196]er [212]empelportal ist offen.":goto4110
  314. 8600 data -6,4
  315. 8610 print"[196]u stehst auf einem [211]tein im [198]luss."
  316. 8620 iffl%(5)=.thenprint"[196]er naechste [211]tein ist ein gutes [211]tueck entfernt."
  317. 8630 goto4100
  318. 8700 data 5,40,-3,39
  319. 8710 print"[196]u bist am oestlichen [198]lussufer."
  320. 8720 ifn(6)<>38andn(9)<>38then4100
  321. 8730 ifn(6)=38thenprint"[197]ine zerschlagene [194]rille ":ifn(9)=38thenprint"und ein"
  322. 8740 ifn(6)<>38thenprint"[197]in ";
  323. 8750 ifn(9)=38thenprint"blutiges [212]aschentuch mit [201]nitialen"
  324. 8760 print"liegt auf dem [194]oden.":
  325. 8770 goto4100
  326. 8800 data 0,0
  327. 8810 print"[196]u bist in eine [198]allgrube geraten!"
  328. 8820 print"[205]it dir hier ist ein [212]ierkadaver.";
  329. 8825 ifn(12)=39thenprint"[157] und","ein [211]chluessel."
  330. 8827 ifn(12)<>39thenprint
  331. 8830 print"[214]om oberen [210]and starren dich einige [200]y- aenen an.":goto4100
  332. 8900 data -8,38
  333. 8910 iffl%(6)=.thenprint"[196]u bist in voellig undurchdringlichem   [199]ebuesch."
  334. 8920 iffl%(6)thenprint"[196]u stehst im [199]estraeuch."
  335. 8930 goto4100
  336. 9000 data -8,40
  337. 9010 print"[196]u bist unter einem [193]bgrund.[199]erippe"
  338. 9020 print"liegen herum.":ifn(20)<>41then4100
  339. 9030 print"[197]ine [200]olzstange liegt zwischen den [203]no- chen.":goto4100
  340. 9100 data 0,0
  341. 9110 print"[196]u haengst am [211]eil an der [198]elswand.":ifn(10)<>42then4100
  342. 9120 print"[201]m [200]orst sitzt ein [193]dler, einige [197]ier   ausbruetend.":goto4100
  343. 9200 data ,
  344. 9210 print"[196]u sitzt auf dem [194]aum.[206]eben dir ist das"
  345. 9220 print"[206]est der [197]lster.":ifn(2)=43thenprint"[196]arin liegt eine [213]hr."
  346. 9230 iffl%(15)=-1thengoto4100
  347. 9240 print"[197]in [201]ndianer taucht unter dir auf, sieht";
  348. 9250 print"um sich und verschwindet wieder.":fl%(15)=-1:goto4100
  349. 9300 data ,
  350. 9310 print"[196]u stehst in dem dreckigen [215]asser des   [194]runnens.":goto4100
  351. 9400 data ,
  352. 9410 print"[196]u bist auf einer kleinen [201]nsel."
  353. 9420 print"[196]ie [194]laetter einer [211]taude spenden dir   angenehmen [211]chatten."
  354. 9425 ifn(5)=.thenfl%(19)=9
  355. 9430 ifn(21)<>45then4100
  356. 9440 print"[196]ie [212]ruhe steckt halb im [211]and.":goto4100
  357. 9500 data 0,0
  358. 9510 print"[196]u sitzt in der [211]pitze der [211]taude."
  359. 9520 ifn(5)=46thenprint"[197]in [194]usch [194]ananen haengt zum [199]reifen    nahe."
  360. 9530 goto4100
  361. 9600 data -2,48
  362. 9610 print"[196]u bist im [211]chatzraum des [212]empels!!!"
  363. 9620 iffl%(13)thenprint"[196]urch einen [211]palt scheint [204]icht herein."
  364. 9625 iffl%(13)thenprint"[214]or dem [211]palt ist eine [206]ische."
  365. 9630 ifn(16)>-1then4100
  366. 9640 print"[196]as [204]icht wird durch die [198]igur gebrochen";
  367. 9650 print"und strahlt auf eine bestimmte [211]telle.":goto4100
  368. 9700 data 1,54,-2,52
  369. 9710 iffl%(11)thenprint"[196]ie [211]chlangen essen noch.":goto4100
  370. 9720 print"[218]wei [203]oenigskobras verwehren dir den    [215]eg.":goto4100
  371. 9800 data 1,52,-3,53
  372. 9810 iffl%(12)then9820
  373. 9815 print"[196]ie [212]uer schliesst sich hinter dir":fl%(12)=1
  374. 9820 print"[196]u hast einen finsteren [212]empelraum be-"
  375. 9830 print"treten.[196]er [194]oden des nach [206]orden fuehr-"
  376. 9835 print"enden [199]anges ist halb eingestuerzt und"
  377. 9837 print"wird nur noch durch ein paar lose [208]lan- ken gehalten."
  378. 9840 print"[207]estlich ist eine feines [211]eil gespannt.":goto4100
  379. 9900 data -4,53
  380. 9910 print"[196]u bist in einem dunklen [210]aum.":ifn(16)<>50then4100
  381. 9920 print"[197]ine glaeserne [198]igur schimmert geheim-  nisvoll.":goto4100
  382. 10000 data -7,38
  383. 10010 goto8610
  384. 10100 print"[196]er [199]ang stuerzt unter dir zusammen.":goto1500
  385. 10200 print"[196]as [211]eil zerreisst, ein [211]tein loest sich";
  386. 10210 print"aus dem [199]ewoelbe und begraebt dich untersich.":goto1500
  387. 10300 ifn(10)=48thenp=47:goto4000
  388. 10310 print"[196]as haettest du nicht du nicht sollen!"
  389. 10320 print"[194]litzschnell stoesst eine der [211]chlangen"
  390. 10330 print"vor und schlaegt ihre [199]iftzaehne in dein[198]leisch.":goto1500
  391. 20000 :
  392. 20100 :
  393. 20200 :
  394. 20300 :
  395. 20400 :
  396. 20500 :
  397. 20600 :
  398. 20700 ife(v)=0thenprint"[196]u kannst nicht in diese [210]ichtung!":goto4110
  399. 20701 ifnthenprintkn$:goto4110
  400. 20702 ifn(19)=-1andfl%(22)=.thenprintkn$:goto4110
  401. 20703 ifn(19)=-1andfl%(21)>-1thenprint"[205]it [198]allschirm ?":e=e(v):fl%(21)=2:goto4110
  402. 20705 ifp<10orp>23orfl%(16)<>e(v)orfl%(15)=-1orp=18then20710
  403. 20707 print"[205]it einem mal steht dir ein [201]ndianer ge-";
  404. 20708 print"genueber. [197]r greift dich an und ueber-  waeltigt dich.":goto1500
  405. 20710 iffl%(15)<>-1thenfl%(15)=3
  406. 20715 fl%(16)=p:ifp<>18thenp=e(v):goto4000
  407. 20720 print"[214]on allen [211]eiten kommen [201]ndianer herbei.";
  408. 20725 print"[211]ie schleppen dich weg..."
  409. 20730 fori=1to2000:next:fl%(4)=5:p=34:goto4000
  410. 20800 ifn=0thenprintwd$:goto4110
  411. 20802 ifn(n)<>pthenprintsn$:goto4110
  412. 20805 ifothen20850
  413. 20810 gosub20860:ifdthen1500
  414. 20815 goto4110
  415. 20850 print"   "n$(n)" oder "n$(o)" ?":goto4110
  416. 20860 d=0:ifn>23thenprintkn$:return
  417. 20861 ifn=7andp=8andfl%(1)=.thenprint"[196]er [211]korpion sticht dich!":d=1:return
  418. 20862 ifn=4andfl%(1)=1thenfl%(1)=.
  419. 20863 ifn=3andp=9thenprint"[213]nter dem [211]tein lag ein [196]eckel.":n(14)=9
  420. 20864 ifn=7andp=8thenn(36)=.
  421. 20866 ifn=3andp=37thenfl%(5)=.
  422. 20870 z=.:fori=1to23:ifn(i)=.thenz=z+1
  423. 20875 next:ifz>5thenprint"[196]u traegst zuviel!!":return
  424. 20880 n(n)=.:printok$:return
  425. 20900 ifn=.thenprintwd$:goto4110
  426. 20905 ifo<>.thengoto20920
  427. 20907 ifn>23thenprintkn$:goto4110
  428. 20910 goto21000
  429. 20915 ifn=22andp=5ando=29then21012
  430. 20920 ifnot(n=11andp=34ando=33andn(11)=.andfl%(4)<>.)then20930
  431. 20925 print"[211]ie lassen dich in [198]rieden und gehen.":n(11)=-1:fl%(4)=0:goto4110
  432. 20930 ifnot(n=46ando=5andn(46)=p)then20950
  433. 20935 ifn(5)thenprinthn$:goto4110
  434. 20937 print"[196]er [193]ffe stuerzt sich auf die [194]anane.":fl%(18)=4:fl%(19)=fl%(19)-1
  435. 20940 goto4110
  436. 20950 ifnot((n=33orn=46orn=37)ando<24)thenprintkn$:goto4110
  437. 20960 print"[196]er ";n$(n);" schaut darauf,":print"und wirft es hin.":n(o)=p:goto4110
  438. 21000 ifn=13then21050
  439. 21007 ifn=19andn(n)<.thenn(n)=.
  440. 21010 ifn(n)<>.thenprinthn$:goto4110
  441. 21011 ifnot(n=22andp=5andn(4)=5)then21013
  442. 21012 print"[197]r sagt:<[200]alt dich am [197]imer fest!>":fl%(7)=1:n(22)=-1:goto4100
  443. 21013 ifnot(n=2andp=9)then21015
  444. 21014 print"[196]er [197]insiedler stuerzt sich auf die [213]hr.":fl%(2)=3:n(2)=-1:n(3)=9:goto4110
  445. 21015 ifnot(n=3and(p=37orp=51))then21017
  446. 21016 print"[196]u kannst jetzt ueber den [198]luss.":fl%(5)=1:n(3)=37:goto4110
  447. 21017 ifp=34andn=11theno=33:goto20920
  448. 21018 ifp=n(46)andn=5then20935
  449. 21020 ifnot(n=16ando=47andp=47andfl%(13)=1)then21029
  450. 21022 print"[196]ie [198]igur passt sich in die [206]ische ein.":n(16)=-1
  451. 21023 print"[197]in [204]ichtstrahl weist auf eine [211]telle   des [194]odens.":goto4110
  452. 21029 ifothen20850
  453. 21030 n(n)=p:printok$:goto4110
  454. 21050 fori=1to23:ifn(i)=.thenn(i)=p:printok$
  455. 21060 next:goto4110
  456. 21100 ifnthenprintkn$:goto4110
  457. 21105 ifp=28thenp=45:goto4000
  458. 21106 ifp<>38then21110
  459. 21107 fori=1to23:ifn(i)=.thenn(i)=-2
  460. 21108 next:p=3:goto4000
  461. 21110 ifp<>45then21120
  462. 21115 iffl%(5)thenprint"[196]u zerschellst an einem [211]tein im [198]luss.":goto1500
  463. 21118 p=3:goto4000
  464. 21120 ifp<>3thenprintkn$:goto4110
  465. 21125 print"[196]u wirst den [215]asserfall hinunter ge-    schwemmt.":goto1500
  466. 21200 ifn=4and(o=.oro=35)then21220
  467. 21210 printkn$:goto4110
  468. 21220 ifn(4)thenprinthn$:goto4110
  469. 21225 print"[196]er [211]korpion ist gefangen."
  470. 21230 n(4)=8:fl%(1)=1:goto4110
  471. 21300 ifothen20850
  472. 21305 ifn=.thenprintwd$:goto4110
  473. 21310 ifn<>15orp<>39orn(15)<>pthenprintkn$:goto4110
  474. 21315 n(15)=-1
  475. 21316 iffl%(8)+fl%(9)=2then21320
  476. 21317 print"[196]er [203]adaver wird von den [200]yaenen sofort"
  477. 21318 print"weggeschleppt und gefressen.":goto4110
  478. 21320 print"[196]ie [200]yaenen stuerzen sich gierig auf den";
  479. 21330 print"[203]adaver und zerren dich daran aus der   [199]rube.":p=38:goto4000
  480. 21400 if(n=.orn=31ando=.)andp=25thenp=28:goto4000
  481. 21410 ifnthenprintkn$:goto4110
  482. 21412 ifp=43thenp=16:goto4000
  483. 21415 ifp=46thenp=45:goto4000
  484. 21417 ifnot(p=5orp=34orp=31orp=32)thenprintkn$:goto4110
  485. 21418 ifn(19)>-1thenprint"[196]u zerschellst...":goto1500
  486. 21419 ifp=31thenprint"[196]ein [198]allschirm bleibt haengen und zer- reisst...":goto1500
  487. 21420 ifp=34thenprint"[197]s geht abwaerts...":p=41:fl%(22)=1:goto4000
  488. 21421 ifp=32thenprint"[196]u schwebst sanft herab!":p=35:fl%(22)=1:goto4000
  489. 21425 print"[196]u faellst in den [194]runnen...":goto1500
  490. 21500 ifn<>8orp<10orp>23orp=18then21530
  491. 21510 ifn(1)thenprintkn$:goto4110
  492. 21520 n(8)=p:n=8:goto20810
  493. 21530 ifn<>45orp<>40thenprintkn$:goto4110
  494. 21540 ifn(1)thenprintkn$:goto4110
  495. 21550 print"[196]u hast das [199]ebuesch wegbar gemacht.":fl%(6)=1:goto4110
  496. 21700 goto 4000
  497. 22100 ifothen20850
  498. 22105 ifn=.thenprintwd$:goto4110
  499. 22110 if(n=4and(p=44orp=5)andn(4)=5)or(n=8andp=39andn(15)>.)then22130
  500. 22120 printkn$:goto4110
  501. 22130 ifn=8thenfl%(8)=1:printok$:goto4110
  502. 22140 iffl%(7)=.thenprint"[196]u musst ihn bezahlen!":goto4110
  503. 22150 print"[197]r kurbelt kraeftig an der [215]inde.":p=49-p:goto4000
  504. 22200 z=.:print"[196]u hast:":fori=1to23:ifn(i)=.thenprint"-"n$(i):z=1
  505. 22210 next:ifz=.thenprint"nichts"
  506. 22220 goto4110
  507. 22400 ifn=.thenprintwd$:goto4110
  508. 22410 ifnot(n=28andp=2andfl%(.)=1)thenprintkn$:goto4110
  509. 22420 print"[196]u hoerst ein seltsames,schnarrendes [199]e-raeusch.":fl%(13)=1
  510. 22430 goto4110
  511. 22600 ifothen20850
  512. 22610 ifn=43andp=7thenp=8:goto4000
  513. 22615 ifn=30andp=1thenp=2:goto4000
  514. 22620 ifn=31andp=3thenprint"[196]u wirst den [215]asserfall hinabgespuelt...":goto1500
  515. 22625 ifnot(n=32and(p=4orp=38orp=37orp=51))then22630
  516. 22626 ifp=4orp=38thenp=-37*(p=4)-51*(p=38):goto4000
  517. 22627 iffl%(5)=.thenprint"[196]u wirst weggespuelt...":goto1500
  518. 22628 p=88-p:goto4000
  519. 22630 ifn=40andp=36andfl%(14)=1thenp=49:goto4000
  520. 22635 ifn=41andp=47andfl%(13)=1thenp=2:goto4000
  521. 22640 ifn=48and(p=26orp=24)thenp=25:goto4000
  522. 22645 ifn=49andp=29thenp=30:goto4000
  523. 22650 ifn=45andp=40andfl%(6)=1thenp=41:goto4000
  524. 22660 printkn$:goto4110
  525. 22700 ifn=16ando=47andp=47andfl%(13)=1then21022
  526. 22710 printkn$:goto4110
  527. 22800 ifothen20850
  528. 22820 if(p<>49andp<>50)orn<>51thenprintkn$:goto4110
  529. 22830 p=99-p:goto4000
  530. 23000 ifnthenprintkn$:goto4110
  531. 23010 ifn(18)thenprint"[201]ch habe keine [211]chaufel...":goto4110
  532. 23015 ifp<>45then23030
  533. 23020 print"[196]u siehst eine [212]ruhe, noch halb im [211]and.";:n(21)=45:goto4110
  534. 23030 ifp<>47thenprintkn$:goto4110
  535. 23040 ifn(16)<>-1thenprint"[215]o soll ich denn graben ???":goto4110
  536. 23050 print"[196]u graebst den [201]nkaschatz aus!":n(16)=-2:n(17)=47:goto4110
  537. 23200 ifn=.thenprintwd$:goto4110
  538. 23202 ifothen20850
  539. 23204 ifnot(p=11andn=7andfl%(10)=.andn(36)=.)then23210
  540. 23205 ifn(14)thenprint"[207]hne [196]eckel ?":goto4110
  541. 23206 ifn(7)thenprinthn$:goto4110
  542. 23207 fl%(10)=1:n(14)=-1:n(36)=-1:print"[196]ie [194]ienen sind gefangen.":goto4110
  543. 23210 ifn=7thenprint"[196]as kann ich jetzt nicht.":goto4110
  544. 23215 ifn=40andp=36thenprintok$:fl%(14)=.:goto4110
  545. 23220 printkn$:goto4110
  546. 23300 ifn=.thenprintwd$:goto4110
  547. 23310 ifnot(n=7andfl%(10)=1)orothen23330
  548. 23312 ifn(7)thenprinthn$:goto4110
  549. 23315 n(14)=.:ifp<>2thenprint"[196]ie [194]ienen fliegen davon.":fl%(10)=.:goto4110
  550. 23320 print"[196]ie [194]ienen verjagen den [201]ndianer.":fl%(.)=1:goto4110
  551. 23330 ifnot(n=40andp=36)then23340
  552. 23331 ifn(20)thenprinthn$:goto4110
  553. 23332 ifo=20then23336
  554. 23333 print"[193]ls du das [208]ortal aufdrueckst, sticht"
  555. 23334 print"dich etwas in die [200]and.[196]ir wird schwin-"
  556. 23335 print"delig und [193]ugenblicke spaeter kippst du tot um.":goto1500
  557. 23336 ifn(12)thenprint"[196]ir fehlt der passende [211]chluessel.":goto4110
  558. 23337 print"[196]as grosse [208]ortal schwingt sanft auf...":fl%(14)=1:goto4110
  559. 23340 ifn<>21thenprintkn$:goto4110
  560. 23350 ifn(12)thenprint"[201]ch habe keinen [211]chluessel...":goto4110
  561. 23360 print"[196]ie [212]ruhe ist leer.":goto4110
  562. 23400 ifo=.thenprintwd$:goto4110
  563. 23410 ifnot(n=8andp=39ando=15andn(15)>.)then23450
  564. 23430 ifn(8)thenprinthn$:goto4110
  565. 23440 printok$:fl%(9)=1:n(8)=-1:goto4110
  566. 23450 ifnot(n=8ando=44andp=31)then23470
  567. 23455 ifn(8)thenprinthn$:goto4110
  568. 23460 printok$:fl%(17)=1:n(8)=31:goto4110
  569. 23470 printkn$:goto4110
  570. 23600 ifothen20850
  571. 23605 ifn=.and(p=49orp=48)thenp=97-p:goto4000
  572. 23608 ifn=.thenprintwd$:goto4110
  573. 23610 ifn=24andp=16thenp=43:goto4000
  574. 23615 ifn=50andp=45thenp=46:goto4000
  575. 23618 ifn=8and(p=31orp=42)andfl%(17)=1thenp=73-p:goto4000
  576. 23620 printkn$:goto4110
  577. 23700 ifnthenprintkn$:goto4110
  578. 23710 ifp=49orp=48then23605
  579. 23720 printkn$:goto4110
  580. 23800 ifn<>11orp<>27thenprintkn$:goto4110
  581. 23802 ifothen20850
  582. 23805 ifn(23)thenprint"[205]ir fehlt die [193]usruestung.":goto4110
  583. 23810 print"[196]u kannst tatsaechlich [199]old waschen!":n(11)=27:goto4110
  584. 23900 if(n=39and(o=.oro=36))or(n=36and(o=.oro=39))then23930
  585. 23920 printkn$:goto4110
  586. 23930 ifn(36)thenprinthn$:goto4110
  587. 23935 print"[196]er [193]st wird klebrig.[206]eugierig setzt si-";
  588. 23940 print"ch die [197]lster auf ihn und klebt fest!":fl%(3)=1:goto4110
  589. 24300 input "[198]ilename ";fi$
  590. 24310 print"[196][146]isk oder [212][146]ape ?"
  591. 24315 getin$:ifin$=""then24315
  592. 24320 ifin$="d"thenopen1,8,2,fi$+",s,w":goto24330
  593. 24325 ifin$="t"thenopen1,1,1,fi$:goto24330
  594. 24328 goto24315
  595. 24330 print#1,p:fori=1tomx:print#1,n(i):next
  596. 24340 fori=0tofl:print#1,fl%(i):next
  597. 24350 close1:printok$:goto4110
  598. 24400 input "[198]ilename ";fi$
  599. 24410 print"[196][146]isk oder [212][146]ape ?"
  600. 24415 getin$:ifin$=""then24415
  601. 24420 ifin$="d"thenopen1,8,2,fi$+",s,r":goto24430
  602. 24425 ifin$="t"thenopen1,1,0,fi$:goto24430
  603. 24428 goto24415
  604. 24430 input#1,p:fori=1tomx:input#1,n(i):next
  605. 24440 fori=0tofl:input#1,fl%(i):next
  606. 24450 close1:printok$:goto4000
  607. 24500 print"[215]irklich ?"
  608. 24510 getin$:ifin$=""then24510
  609. 24520 ifin$="j"thenprint"[147]goto4000:[zum weitermachen]":poke631,141:end
  610. 24530 ifin$="n"thenpoke198,0:goto4110
  611. 24540 goto24510
  612. 24800 ifp<>6orn<>34thenprintkn$:goto4110
  613. 24810 ifo=.thenprint"[215]omit denn ?":goto4110
  614. 24820 ifo<>6thenprintkn$:goto4110
  615. 24825 ifn(6)thenprinthn$:goto4110
  616. 24830 print"[197]in [198]euer kommt auf.[202]etzt heisst es war-";
  617. 24840 print"ten.":fori=1to2000:next
  618. 24850 print"[197]in [200]ubschrauber kommt und laesst eine"
  619. 24855 print"[211]trickleiter herunter, an der du hochkl-";
  620. 24860 print"etterst."
  621. 24870 fori=1to2000:next:goto40000
  622. 25000 ifnthenprintkn$:goto4110
  623. 25010 printok$:goto4110
  624. 25100 ifn<>19orn(19)thenprintkn$:goto4110
  625. 25110 n(19)=-1:printok$:goto4110
  626. 25300 ifnthenprintkn$:goto4110
  627. 25310 iffl%(21)thenprint"[207]kay, war nur 'ne [198]rage...":p=e:fl%(21)=-1:goto4000
  628. 25320 print"[215]as soll das denn ?":goto4110
  629. 30000 data0,0,0,0,0,0,0,0,2,0,0,15
  630. 30010 data2,217,255,15,255,190,31,255
  631. 30020 data252,63,255,248,127,255,252
  632. 30030 data127,255,254,125,255,255,63
  633. 30040 data127,199,15,188,224,3,206
  634. 30050 data112,0,0,0,0,0,0,0,0,0,0,0
  635. 30060 data0,0,0,0,0,0,0,0,0,0
  636. 30100 data0,255,0,7,255,224,31,255
  637. 30101 data248,127,255,254,127,255,254
  638. 30102 data255,255,255,255,255,255,255
  639. 30103 data129,255,240,129,15,200,66
  640. 30104 data19,132,36,33,194,0,67,49
  641. 30105 data60,140,12,60,48,3,24,192
  642. 30106 data0,126,0,0,189,0,0,60,0,0
  643. 30107 data60,0,0,36,0,0,102,0
  644. 30110 data0,0,0,0,0,0,0,0,0,0,0,0,0
  645. 30111 data0,0,255,255,0,1,128,0,15
  646. 30112 data240,0,51,248,0,71,248,3,143
  647. 30113 data252,7,255,255,255,255,255
  648. 30114 data255,127,248,0,16,32,0,127
  649. 30115 data248,0,0,0,0,0,0,0,0,0,0,0
  650. 30116 data0,0,0,0,0
  651. 40000 fori=1to1000:next
  652. 40010 print"[147]":print"[196]u bist wieder im sicheren [200]ubschrauber!";
  653. 40020 ifn(17)=.thenprint"[196]u hast den [211]chatz gefunden !"
  654. 40030 ifn(9)=.thenprint"[196]u hast ein [218]eichen des [198]orschers ge-   bracht !"
  655. 40035 ifn(17)thenprint"[193]ber wo ist der [211]chatz ?"
  656. 40038 ifn(9)thenprint"[213]nd wo ist ein [218]eichen des [198]orschers ?"
  657. 40040 ifn(17)orn(9)thenprint"[205]ission nicht erfuellt !!!":goto40100
  658. 40050 print"[205]ission erfuellt !!!"
  659. 40060 r=18:fori=1to500:printchr$(r)"[215][201][210][160][199][210][193][212][213][204][201][197][210][197][206]!![145]":r=164-r:next
  660. 40100 print"[193]ufhoeren ?":goto24510
  661.