home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 15 / Dimension_64_Nr.15_19xx_-_de_Side_B.d64 / main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  27KB  |  870 lines
  1. 10 rem **********************
  2. 20 rem *    minas gundur    *
  3. 30 rem * philipp koehn 1986 *
  4. 40 rem **********************
  5. 50 :
  6. 90 goto 60000
  7. 100 if u% then x=x+1:goto 410
  8. 110 poke 646,f2:print">";:b$=""
  9. 120 print"[191][157]";
  10. 130 get a1$:if a1$="" goto 130
  11. 131 if a1$="@" and len(b$)+len(ba$)<37 then printba$;:b$=b$+ba$:goto120
  12. 135 a$=chr$(asc(a1$)and127)
  13. 140 if a$=chr$(13) and b$<>"" then print" ":ba$=b$:goto 200
  14. 150 if a$=chr$(20) and b$<>"" then b$=left$(b$,len(b$)-1):printa$;
  15. 160 if len(b$)>36 or ((a$<"a" or a$>"z")and a$<>" ") goto 120
  16. 170 printa1$;:b$=b$+a$
  17. 180 goto 120
  18. 190 :
  19. 200 for i=1 to 18:w$(i)="":next i
  20. 205 a$=mid$(b$,i,1)
  21. 208 w=1:for i=1 to len(b$)
  22. 209 a$=mid$(b$,i,1)
  23. 210 if a$=" " and w$(w)<>"" then w=w+1
  24. 220 if a$<>" " then w$(w)=w$(w)+a$
  25. 230 next i
  26. 240 if w$(w)="" then w=w-1
  27. 250 if w=0 then print"[145][145]":goto 110
  28. 360 :
  29. 400 x=1:v=0
  30. 410 om=o:o=0:o1=0:u%=0:zg=zg+1
  31. 420 fori=1toah:ifh$(i)=w$(x)goto510
  32. 421 next
  33. 424 fori=1toav:ifleft$(v$(i),len(w$(x)))=w$(x)thenv=i-val(right$(v$(i),1)):goto510
  34. 425 next
  35. 430 fori=1toao:ifo%(i,0)=5thenifo$(i)=w$(x)theno1=i:goto500
  36. 431 if o%(i,0)=5 goto 435
  37. 432 ifleft$(o$(i),len(w$(x)))=w$(x)theno1=i-val(right$(o$(i),1)):goto500
  38. 435 next
  39. 450 if w$(x)="es" or w$(x)="ihn" or w$(x)="sie" then o1=om:goto 500
  40. 460 if w$(x)="und" then u%=1:goto 530
  41. 470 zg=zg-1:a$="[201]ch kenne #"+w$(x)+"$ leider nicht.":gosub 50100:goto 100
  42. 500 if o=0 then o=o1:o1=0
  43. 510 x=x+1
  44. 520 if x<=w goto 420
  45. 530 ff%=0:gosub 1000:if ff%=0 then gosub 6000
  46. 540 goto 100
  47. 1000 if o%(o,0)=5 and v=0 then v=33
  48. 1001 if o=3 and rr=16 then o=29
  49. 1002 if v=51 then v=33
  50. 1005 poke 646,f1
  51. 1010 if v=0 and o=0 then print"[196]ein [211]atz scheint mir nichts aussagend.":return
  52. 1020 if v=0 then print"[201]m [211]atz fehlt der [211]inn!":return
  53. 1099 rem ***** richtungen
  54. 1100 if v>6 goto 1400
  55. 1110 if r%(rr,v)=0 then print"[196]ahin kannst du nicht gelangen.":return
  56. 1120 rr=r%(rr,v)
  57. 1200 print""
  58. 1205 if rr=5 then if o%(9,1)>=0 then rr=6
  59. 1206 if rr=11 then if f%(10)=0 and f%(13)=0 then t=8:goto 10000
  60. 1236 z$=r$(rr):gosub 50000
  61. 1237 if r%(rr,0)=0 then r%(rr,0)=1:q=q+1
  62. 1238 zp=zg
  63. 1240 gosub 40000+rr*100
  64. 1250 f=0:for i=1 to ao
  65. 1260 if o%(i,0)<>1 or o%(i,1)<>rr goto 1290
  66. 1270 if f=0 then f=1:print"[200]ier liegt ";
  67. 1271 if pos(i)+len(v$(i))>32 then print
  68. 1272 print"ein";
  69. 1273 if o%(i,2)=1 then print"e";
  70. 1280 print" ";chr$(asc(o$(i))+128);mid$(o$(i),2);", ";
  71. 1290 next i:if f then print"[157][157]."
  72. 1300 f=0:for i=1 to 6
  73. 1310 if r%(rr,i)=0 goto 1350
  74. 1320 if f=0 then f=1:print"[196]u kannst nach ";
  75. 1330 if pos(i)+len(v$(i))>37 then print
  76. 1340 printchr$(asc(v$(i))+128);mid$(v$(i),2);", ";
  77. 1350 next i
  78. 1360 if f then print"[157][157]."
  79. 1370 f=0:return
  80. 1399 rem ***** nimm
  81. 1400 if v<>7 goto 1500
  82. 1410 if o=0 then print"[215]as soll ich nehmen?":return
  83. 1420 if o%(o,1)=-1 then print"[196]as habe ich schon.":return
  84. 1425 if o%(o,1)<>rr then print"[196]as sehe ich hier nirgens.":return
  85. 1430 if o%(o,0)=3 then print"[215]as soll dieser [213]nsinn?":return
  86. 1440 if o%(o,0)<>1 then print"[196]as kannst du nicht nehmen.":return    
  87. 1450 o%(o,1)=-1:print"[201]n [207]rdnung.":return
  88. 1499 rem ***** gib
  89. 1500 if v<>10 goto 1600
  90. 1510 if o=0 then print"[215]as soll ich ablegen?":return
  91. 1520 ifo%(o,1)<>-1thenprint"[196]as befindet sich nicht in meinem [194]e-   sitz.":return
  92. 1525 if rr=12 and o=5 goto 20000
  93. 1530 o%(o,1)=rr:print"[201]n [207]rdnung."
  94. 1531 if o=14 and f%(11)=0 then ff%=1:goto 6650
  95. 1532 if o=16 then ff%=1:goto 6650
  96. 1590 return
  97. 1599 rem ***** untersuche
  98. 1600 if v<>14 goto 2000
  99. 1610 if o=0 goto 1200
  100. 1620 if o%(o,1)<>rr and o%(o,1)<>-1 then print"[196]as sehe ich nirgens.":return
  101. 1630 if o=2 then print"[196]er [212]isch besitzt eine [211]chublade, die"
  102. 1631 if o=2 then print"anscheinend unverschlossen ist.":return
  103. 1633 if o<>8 or f%(4)=0 or o%(1,1) goto 1640
  104. 1634 print"[197]r tr^gt ein st^hlernes [211]chwert und":q=q+2
  105. 1636 print"[203]ompass bei sich.":o%(1,1)=rr:o%(9,1)=rr:return
  106. 1640 if o<>15 goto 1660
  107. 1641 if r%(10,6) goto 1650
  108. 1642 print"[200]inter einem [194]usch an der [198]elswand"
  109. 1643 print"entdeckst du einen dunklen [199]ang. [196]as"
  110. 1644 print"mu_ ein [197]ingang zum sagenumwobenen"
  111. 1645 print"[200]@hlensystem [205]inas [199]undur sein!":q=q+3:r%(10,6)=11:return
  112. 1650 print"[200]inter einem [194]usch f\hrt ein [199]ang"
  113. 1651 print"hinab in das [200]@hlensystem von [205]inas"
  114. 1652 print"[199]undur.":return
  115. 1660 if o<>30 goto 1670
  116. 1661 print"[196]er kreisrunde [194]runnen ist fast bis"
  117. 1662 print"zum [210]and mit einer violetten [198]l\ssig-"
  118. 1663 print"keit gef\hlt, die auf merkw\rdige [193]rt"
  119. 1664 print"[197]nergie abstrahlt.":return
  120. 1670 if o=31 and f%(18)<2 goto 20200
  121. 1990 print"[201]ch kann keine [194]esonderheiten erkennen.":return
  122. 1999 rem ***** inventur
  123. 2000 if v<>16 goto 2100
  124. 2010 print"[196]u besitzt ";:f=0
  125. 2020 for i=1 to ao
  126. 2030 if o%(i,1)<>-1 then 2070
  127. 2040 if len(o$(i))+pos(i)>32 then print
  128. 2050 print"ein";:if o%(i,2) then print"e";
  129. 2055 if o%(i,2)=2 then print"n";
  130. 2060 print" ";chr$(asc(o$(i))or128);mid$(o$(i),2);", ";:f=1
  131. 2070 next:if f=1 then print"[157][157]."
  132. 2080 if f=0 then print"noch nichts."
  133. 2090 if o%(21,1)=-2 then print"[196]u tr^gst eine [212]arnkappe."
  134. 2095 return
  135. 2099 rem ***** hilfe
  136. 2100 if v<>18 goto 2200
  137. 2110 if rr=1 then print"[211]esam, @ffnet euch!":return
  138. 2111 if rr=3 then print"[194]eachte alles, was du hast und was du   siehst!":return
  139. 2113 if rr=8 then print"[200]abe [214]ertrauen in gute [215]esen. [197]inen"
  140. 2114 if rr=8 then print"[199]egenstand kannst du nun ein zweites [205]albenutzen.":return
  141. 2115 if rr=10 then print"[205]ache dich mit deiner [213]mgebung vetraut,"
  142. 2116 if rr=10 then print"nutze schlechte [213]mst^nde positiv"
  143. 2120 if rr=12 then print"[196]as [194]uch ist die [193]uszeichnug f\r den"
  144. 2121 if rr=12 then print"weisesten [218]auberer.":return
  145. 2125 if rr=14 then print"[206]ur keine [193]ngst!":return
  146. 2130 if rr=15 then print"[196]u solltest [199]eschenke mehr achten!":return
  147. 2135 if rr=16 then print"[215]ozu hast du ein [211]chwert?":return
  148. 2140 if rr=17 then print"[194]eachte den [194]runnen, aber vergi_ [205]agda- lar nicht!":return
  149. 2145 if rr=18 then print"[210]\ckzug ist die beste [214]erteidigung!"
  150. 2146 if rr=18 then print"[193]ber nicht nach [211]\den!":return
  151. 2150 if rr=19 then print"[200]ast du den [218]ettel vergessen?":return
  152. 2195 print"[196]ein [210]uf verhallt ungeh@rt im grenzen-"
  153. 2196 print"losen [211]peicher des [195]omputers.":return
  154. 2199 rem ***** laden
  155. 2200 if v<>19 goto 2300
  156. 2201 print"[206]ummer des [211]pielstandes (1-9): [191][157]";
  157. 2204 get a$:if a$="" goto 2204
  158. 2205 if a$<"1" or a$>"9" then print"0":return
  159. 2206 print a$:gosub 21000
  160. 2207 n$="spielstand nr."+a$
  161. 2208 if g$="d" then open 8,8,3,n$+",s,r"
  162. 2209 if g$="c" then open 8,1,0,n$
  163. 2212 input# 8,rr
  164. 2213 input# 8,a
  165. 2214 for i=1 to a:input# 8,o%(i,1):next
  166. 2215 input# 8,f1,f2,cl,a
  167. 2216 poke 53280,a:poke 53281,a
  168. 2220 input# 8,a
  169. 2221 for i=1 to a:for j=0 to 6:input# 8,r%(i,j):next j,i
  170. 2223 input# 8,q,zg,af
  171. 2224 for i=0 to af:input# 8,f%(i):next i
  172. 2225 close 8
  173. 2234 poke 646,f1:print"[147]":goto 1205
  174. 2299 rem ***** speichern
  175. 2300 if v<>21 goto 2400
  176. 2301 print"[206]ummer des [211]pielstandes (1-9): [191][157]";
  177. 2304 get a$:if a$="" goto 2304
  178. 2305 if a$<"1" or a$>"9" then print"0":return
  179. 2306 print a$
  180. 2307 n$="spielstand nr."+a$
  181. 2308 gosub 21000:if g$="c" then open 8,1,1,n$
  182. 2309 if g$="d" then open 1,8,15,"s:"+n$:close 1:open 8,8,3,n$+",s,w"
  183. 2312 print# 8,rr
  184. 2313 print# 8,ao
  185. 2314 for i=1 to ao:print# 8,o%(i,1):next i
  186. 2315 print# 8,f1
  187. 2316 print# 8,f2
  188. 2317 print# 8,cl
  189. 2318 print# 8,peek(53280)
  190. 2320 print# 8,ar
  191. 2321 for i=1 to ar:for j=0 to 6:print# 8,r%(i,j):next j,i
  192. 2323 print# 8,q:print# 8,zg:print# 8,af
  193. 2324 for i=0 to af:print# 8,f%(i):next i
  194. 2325 close 8
  195. 2340 return
  196. 2399 rem ***** farben aendern
  197. 2400 if v<>24 goto 2500
  198. 2410 print"[255]ndere die [198]arben nach deinem [215]unsch:"
  199. 2420 a$="[200]intergrundsfarbe":f=peek(53280):gosub 50200:hf=f
  200. 2430 a$="[198]arbe des [199]ross-[194]uchstabens":f=cl:gosub 50200:cl=f
  201. 2440 a$="[198]arbe des [193]usgaben":f=f1:gosub 50200:x=f
  202. 2450 a$="[198]arbe der [197]ingaben":f=f2:gosub 50200:f2=f
  203. 2460 f1=x:poke 646,x:poke 53280,hf:poke 53281,hf:print"[147]":goto 1205
  204. 2499 rem ***** punkte
  205. 2500 if v<>25 goto 2600
  206. 2510 a=int(1000*q/pm)/10
  207. 2520 print"[196]u hast";int(q);"[208]unkt";:if q<>1 then print"e";
  208. 2525 print" erringen k@nnen"
  209. 2530 print"und damit";a;"[157]% des [211]pieles gel@st."
  210. 2570 return
  211. 2599 rem ***** lies buch
  212. 2600 if v<>28 goto 2700
  213. 2601 if o<>5 goto 2630
  214. 2602 if o%(o,1)<>-1 then print"[201]ch habe kein [194]uch.":return
  215. 2604 if rr<>3 or f%(5) goto 2610
  216. 2605 print"#[196]as magische [218]auberwort [166]xylks[220] vermag":q=q+3:f%(5)=1
  217. 2606 print"dem [193]ussprechenden f\r kurze [218]eit die"
  218. 2607 print"[199]abe des [198]liegens zu verleihen.$":return
  219. 2610 if rr<>8 or f%(6) goto 2620
  220. 2611 print"#[196]en [218]orn w\tender [212]iere l@st das [215]ort"
  221. 2612 print"[166]equarz[220], wenn sie nicht vollkommen"
  222. 2613 print"dem [194]@sem verfallen sind.$":q=q+1:f%(6)=1:return
  223. 2620 print"[211]eltsamerweise enth^lt das [194]uch nur     leere [211]eiten.":return
  224. 2630 if o<>36 then print"[196]as ist mir unm@glich zu lesen."
  225. 2640 if o%(o,1)<>-1 then print"[196]u hast keinen [218]ettel!":f%=1:return
  226. 2641 print"[193]uf dem [218]ettel stehen in gro_en, gundu-"
  227. 2642 print"rischen [210]unen die [215]orte [166][198]rotzl[220] und"
  228. 2643 print"[166][208]atri[220]. [206]achdem [196]u den [218]ettel gelesen"
  229. 2644 print"hattest, verbrannte er zu [193]sche.":q=q+1:o%(36,1)=0:return
  230. 2699 rem ***** sage
  231. 2700 if v<>33 goto 2800
  232. 2701 if o=0 then print"[215]as willst du sagen?":return
  233. 2702 if rr<>3 or o<>6 goto 2705
  234. 2703 if r%(4,0)=0 then q=q+2
  235. 2704 rr=4:goto 1200
  236. 2705 if o%(o,0)=3 and o%(o,0)<>rr goto 2800
  237. 2710 if rr<>8 or o<>13 or f%(7) goto 2720
  238. 2711 q=q+3:print"[196]as [213]ngeheuer wird pl@tzlich zahm und"
  239. 2712 print"schaut dich freundlich an.":f%(7)=1:return
  240. 2720 if rr<>14 goto 2730
  241. 2721 if o=20 and f%(14)=0 goto 20100
  242. 2724 if (o<>6 and o<>13) or f%(15) goto 2730
  243. 2725 print"[197]r gibt dir eine [212]arnkappe und sagt:"
  244. 2726 print"[166][205]it ihrer [200]ilfe siehst du die [215]elt mit"
  245. 2727 print"den [193]ugen der b@sen [199]eister.[220]"
  246. 2729 o%(21,1)=-1:f%(15)=1:q=q+5:return
  247. 2730 if o<>31 goto 2740
  248. 2731 if f%(18)<2 goto 20200
  249. 2732 f%(18)=3:q=q+2:o%(o,1)=0
  250. 2733 print"[197]r antwortet dir lgsam: [166][196]u hast,"
  251. 2734 print"viel gelernt, seit ich dich verlassen"
  252. 2735 print"habe. [198]\hre dann meinen [193]uftrag zu"
  253. 2736 print"[197]nde und t@te den [200]exenmeister, den"
  254. 2737 print"dunklen [200]errscher der [194]@sen.[220]"
  255. 2738 print"[196]ann l@st er sich in [204]uft auf und l^_t"
  256. 2739 print"einen [218]ettel zur\ck.":o%(36,1)=17:return
  257. 2740 if rr<>19 or o<>40 or f%(20)>0 goto 2760
  258. 2741 q=q+4:f%(20)=1
  259. 2742 print"[208]l@tzlich erstarren die [218]\ge des b@sen"
  260. 2743 print"[200]exenmeisters. [197]r scheint nun wehr-"
  261. 2744 print"los...":return
  262. 2760 if o=41 and f%(20)<2 then t=12:goto 10000
  263. 2761 if o=41 goto 25000
  264. 2790 print"[196]ein [193]usspruch hat keine ersichtliche   [198]olge.":return
  265. 2799 rem ***** warte
  266. 2800 if v<>35 goto 2900
  267. 2890 print"[196]ie [218]eit verrinnt.":return
  268. 2899 rem ***** stirb/schwimme
  269. 2900 if v=37 then t=2:goto 10000
  270. 2999 rem ***** toete
  271. 3000 if v<>39 goto 3100
  272. 3001 if o=0 then print"[215]en willst du t@ten?":ff%=1:return
  273. 3002 if o%(o,0)<>3 then print"[196]inge kann man nicht t@ten!":ff%=1:return
  274. 3003 if o1=0 then print"[196]och nicht mit den blo_en [200]^nden?":ff%=1:return
  275. 3004 if o%(o1,1)<>-1 then print"[196]iese [215]affe besitzt du nicht!":ff%=1:return
  276. 3010 if o<>8 goto 3020
  277. 3011 if o1<>7 then t=4:goto 10000
  278. 3013 if f%(4) then print"[196]er [205]ann ist schon tot!":return
  279. 3014 f%(4)=1:f%(1)=0:q=q+5
  280. 3015 print"[205]it einem gewaltigen [211]chlag ins [200]erz"
  281. 3016 print"hast du ihn t@dlich verwundet.":return
  282. 3020 if o=11 then t=3:goto 10000
  283. 3022 if o=18 then t=9:goto 10000
  284. 3024 if o=20 then print"[215]arum willst du soetwas tun?":return
  285. 3025 if o1<>1 then print"[196]iese [215]affe ist sinnlos!":ff%=1:return
  286. 3030 if o<>28 goto 3040
  287. 3031 if o%(o,1)<>rr then print"[200]ier ist kein [199]eist.":return
  288. 3032 o%(o,1)=0:f%(16)=2:o%(21,1)=0:q=q+4:r%(rr,1)=16
  289. 3033 print"[205]it einem kraftvollen [211]chlag mit dem"
  290. 3034 print"[211]chwerte hast du den [199]eist get@tet."
  291. 3035 print"[196]ie [212]arnkappe und die [169]berreste des"
  292. 3036 print"[199]espenstes zerfielen zu [211]taub."
  293. 3037 print"[206]un ist der [215]eg frei nach [206]orden.":return
  294. 3040 if o<>42 or f%(20)=2 goto 3099
  295. 3041 if f%(20)=0 then t=13:goto 10000
  296. 3042 f%(21)=1:f%(20)=2:q=q+2
  297. 3043 print"[193]us dem [204]eichnam des schrecklichsten"
  298. 3044 print"[199]esch@pf der [197]rde steigt ein bestialisch";
  299. 3045 print"riechender [196]ampf auf."
  300. 3046 print"[196]u h@rst ein lautes [203]rachen und [194]rechen:";
  301. 3047 print"die oberen [199]ew@lbe von [205]inas [199]undur"
  302. 3048 print"st\rzen ein!":return
  303. 3099 rem *** entzuende
  304. 3100 if v<>41 goto 3200
  305. 3101 if o%(o,1)<>-1 then print"[196]as habe ich nicht":return
  306. 3102 if o=16 then t=17:goto 10000
  307. 3150 if rr<>10 or f%(9)<3 then print"[201]ch habe kein [198]euer!":return
  308. 3151 if o<>14 then print"[196]as hat keinen alzu gro_en [211]inn.":return
  309. 3152 if f%(13) then q=q-4
  310. 3153 q=q+4:f%(13)=1:print"[196]er [193]st brennt lichterloh.":f%(10)=5:return
  311. 3200 if v=44 and o=14 then print"[196]u wirfst ihn weg.":o%(o,1)=0
  312. 3300 if v<>46 goto 3400
  313. 3301 if o<>21 then print"[196]as kannst du ich nicht aufsetzen!":return
  314. 3302 if o%(o,1)<>-1 then print"[196]u hast keine [203]appe.":return
  315. 3310 f%(16)=1:print"[196]u hast nun die [212]arnkappe auf."
  316. 3311 if rr=15 then print"[196]u erblickt einen [199]eist!"
  317. 3312 q=q+4:o%(o,1)=-2:return
  318. 3400 if (v=49 or v=54) and o1=0 then print"[215]omit?":return
  319. 3410 if v=49 and o1<>1 goto 3025
  320. 3500 :
  321. 4990 :
  322. 4991 rem ******************************
  323. 4992 rem     raum-befehle aufrufen
  324. 4993 rem ******************************
  325. 5000 f=0:gosub 30000+100*rr
  326. 5001 if f then print"[196]as geht nicht.":zg=zg-1
  327. 5002 ff%=f:return
  328. 5990 rem ******************************
  329. 5991 rem            action
  330. 5992 rem ******************************
  331. 6000 if f%(4) goto 6200
  332. 6002 if rr<>4 goto 6100
  333. 6005 f%(0)=f%(0)+1
  334. 6010 if a=1 or a=2 then print"[214]on unten h@rst du [205]enschenstimmen."
  335. 6020 if a=3 then print"[197]in [205]ann taucht pl@tzlich auf. [197]r ist":r%(4,6)=0
  336. 6030 if a=3 then print"wahrscheinlich der [200]err des [194]aumhauses.":o%(8,1)=4
  337. 6040 if a=4 then print"[196]er [205]ann greift dich an!"
  338. 6050 if a=5 then t=1:goto 19000
  339. 6100 if rr=3 and f%(1) then t=1:goto 19000
  340. 6110 if rr=3 and f%(0) then f%(2)=3:f%(3)=3:o%(8,1)=3
  341. 6120 if rr=3 and f%(0) then print"[197]in [205]ann greift dich an!":f%(1)=1            
  342. 6200 if f%(1) and f%(2)<>rr then t=f%(3):goto 19000
  343. 6210 if rr<>8 and f%(8)=4 then f%(8)=3
  344. 6300 if rr<>8 or f%(7) goto 6400
  345. 6310 f%(rr)=f%(rr)+1:a=f%(rr)
  346. 6320 if a=2 then print"[197]in [211]eeungeheuer taucht aus dem [211]ee     auf!":o%(11,1)=8
  347. 6330 if a=3 then print"[196]as [213]ngeheuer schaut dich zornig an."
  348. 6340 if a=4 then print"[196]as [213]ngeheuer greift dich an!"
  349. 6350 if a=5 then t=6:goto 19000
  350. 6400 if rr<>10 goto 6500
  351. 6410 f%(9)=f%(9)+1:a=f%(9)
  352. 6420 if a=1 then print"[197]in [213]nwetter zieht auf."
  353. 6430 if a=2 or a=4 then print"[197]s regnet in [211]tr@men."
  354. 6440 if a=3 then print"[197]in [194]litz schl^gt in einen [194]aum in der"
  355. 6441 if a=3 then print"[206]^he ein, der sofort anf^ngt zu brennen!";
  356. 6450 if a=5 then t=7:goto 19000
  357. 6500 if f%(10)=0 goto 6700
  358. 6505 f%(10)=f%(10)-1:a=f%(10)
  359. 6510 if a<2 then print"[196]as [204]icht des [193]stes nimmt ab."
  360. 6520 if a=0 then print"[145]";tab(28);", und er-   lischt.":o%(14,1)=0
  361. 6530 if a=0 and f%(11)=0 goto 6700
  362. 6700 if rr=15 and o%(21,1)=-2 then o%(28,1)=15
  363. 6800 if rr<>15 or f%(16)=2 goto 6900
  364. 6810 a=f%(17)+1
  365. 6820 if a=2 and f%(16)=0 then print"[196]u f\hlst dich beobachtet..."
  366. 6830 if a=4 then t=10:goto 19000
  367. 6840 f%(17)=a
  368. 6900 if r%(16,1)=17 then r$(16)="b"
  369. 6910 if f%(18)=2 then r$(17)="m"
  370. 7000 if rr<>18 then f%(19)=0:goto 7100
  371. 7010 a=f%(19)+1
  372. 7020 if a=1 then print"[196]u bemerkst ein [199]ruppe [211]oldaten, die"
  373. 7021 if a=1 then print"auf dich aufmerksam wird."
  374. 7030 if a=2 then print"[196]ie [211]oldaten greifen dich an!"
  375. 7040 if a=3 then t=11:goto 19000
  376. 7050 f%(19)=a
  377. 7100 if f%(20)=0 goto 9990
  378. 7110 f%(21)=f%(21)+1
  379. 7120 if f%(21)=3 then t=14:goto 19000
  380. 9990 return
  381. 9991 :
  382. 9992 rem ******************************
  383. 9993 rem        todesmeldungen
  384. 9994 rem ******************************
  385. 10000 print"[147]"
  386. 10010 gosub 10900+t*100
  387. 10090 gosub 2510
  388. 10100 print"[205]@chtast du noch einmal von [214]orne an-"
  389. 10110 print"fangen (j/n)?"
  390. 10120 get a$
  391. 10130 if a$="j" then clr:b=1:goto 60000
  392. 10140 if a$<>"n" goto 10120
  393. 10150 poke 53280,14:poke 53281,6:print"[147][142][154]";:end
  394. 10160 :
  395. 11000 z$="d":gosub 50000
  396. 11010 print"er [205]ann betrachtete dich als [196]ieb und"
  397. 11020 print"und t@tete dich grausam.":return
  398. 11100 z$="a":gosub 50000
  399. 11110 print"us [214]erzweiflung \ber deine schlechte"
  400. 11120 print"[204]age hast du [211]elbstmord ver\bt.":return
  401. 11200 z$="l":gosub 50000
  402. 11210 print"eider folgte dir der [205]ann eilig und"
  403. 11220 print"brachte dich mit seinem [211]chwert um.":return
  404. 11300 z$="t"
  405. 11310 print"[212]rotz [199]egenwehr konntest du das [213]nheil"
  406. 11320 print"nicht mehr von dir abwenden...":return
  407. 11400 z$="k":gosub 50000
  408. 11410 print"urz nachdem du den [211]ee betreten hast,"
  409. 11420 print"griffen dich [208]iranhas an und nagten"
  410. 11430 print"dich bis auf den letzten [203]nochen ab.":return
  411. 11500 z$="m":gosub 50000
  412. 11510 print"it seinem riesigen [203]iefer brach das"
  413. 11520 print"[211]eeungeheuer dir das [199]enick.":return
  414. 11600 z$="k":gosub 50000
  415. 11610 print"aum hast du dich von dem [211]chreck"
  416. 11620 print"des [194]litzeinschlages erholt, traf"
  417. 11630 print"der n^chste [194]litz dich.":return
  418. 11700 z$="i":gosub 50000
  419. 11710 print"n der [196]unkelheit, war es mir unm@glich";
  420. 11720 print"etwas zu sehen, stolperte, fiel hin und"
  421. 11730 print"traf ungl\cklicherweise mit dem [203]opf"
  422. 11740 print"t@tlich auf.":return
  423. 11800 z$="u":gosub 50000
  424. 11810 print"eberrascht von deinem [193]ngriff, schlug"
  425. 11820 print"der [215]^chter dir deine [215]affe aus der"
  426. 11830 print"[200]and und t@tete dich.":return
  427. 11900 z$="a":gosub 50000
  428. 11910 print"uf einmal versp\rtest du einen [211]tich"
  429. 11920 print"im [200]erzen und starbst unter einem"
  430. 11930 print"b@sen [204]achen, dessen [213]rheber dir f\r"
  431. 11940 print"immer unbekannt bleiben wird.":return
  432. 12000 z$="d":gosub 50000
  433. 12010 print"ie [196]arki, die dunklen [196]iener [199]arkors,"
  434. 12020 print"waren leider in der [169]berzahl, nahmen"
  435. 12030 print"dich fest und folterten dich grausam"
  436. 12040 print"zu [212]ode.":return
  437. 12100 print"[145][145]":z$="u":gosub 50000
  438. 12110 print"rpl@tzlich wurdest du in deine [200]eimat-"
  439. 12120 print"stadt zur\ckgesetzt. [215]eil du kurz vor"
  440. 12130 print"dem [218]iel aufgegeben und [199]arkor nicht"
  441. 12140 print"get@tet hast, wurdest du vom [214]olke"
  442. 12150 print"gelyncht. [196]ein [206]ame war lange ein
  443. 12160 [153]"schlimmes (NULL)chimpfwort.":[142]
  444. 12200 z$[178]"f":[141] 50000
  445. 12210 [153]"r@hlich sprach der schreckliche"
  446. 12220 [153]"left$errscher ein (NULL)ort des chr$rauens, dessen"
  447. 12230 [153]"(NULL)raft ausreichte dich am lebendigen"
  448. 12240 [153]"unter unvorstellbaren (NULL)chmerzen zu"
  449. 12250 [153]"verbrennen.":[142]
  450. 12300 z$[178]"u":[141] 50000
  451. 12310 [153]"nter lautem chr$et@se brach die str$ecke"
  452. 12320 [153]"\ber dir ein. vals gab keinen atnusweg,
  453. 12330 print"wohin du dich h^ttest retten k@nnen.":return
  454. 12400 z$="d":gosub 50000
  455. 12410 print"er [215]^chter mi_verstand die [215]affe"
  456. 12420 print"als [205]orddrohung.":return
  457. 12500 z$="g":gosub 50000
  458. 12510 print"ro_er [211]chmerz durchzuckt deinen [203]@rper";
  459. 12520 print"und du stirbst am giftigen [215]asser des"
  460. 12530 print"[194]runnens.":return
  461. 12600 z$="l":gosub 50000:print"autstark zerbarst die unheilvolle"
  462. 12610 print"[204]ampe und du mit ihr. [215]ahrscheinlich"
  463. 12620 print"hat ein [196]iener [199]arkors [211]prengstoff"
  464. 12630 print"hineingetan.":return
  465. 19000 print"([196]r\cke eine [212]aste)"
  466. 19010 poke 198,0:wait 198,1:get a$:goto 10000
  467. 20000 o%(5,1)=.:print"[196]er [215]^chter schaut es an und l^_t dich"
  468. 20010 print"mit dem [211]chwert nach [206]orden deutend"
  469. 20020 print"gehen. [197]r sagt er beh^lt dein [194]uch"
  470. 20030 print"bis zu deiner [210]\ckkehr."
  471. 20090 q=q+3:r%(12,1)=13:return
  472. 20100 print"[196]er [215]eise sagt zu dir: [166][193]ls noch so"
  473. 20110 print"jung war wie du, k^mpfte ich auch gegen"
  474. 20120 print"das [194]@se. [200]eute jedoch fehlt mir die"
  475. 20130 print"[203]raft dazu. [196]och beweise mir erst, das"
  476. 20140 print"du ein [218]auberlehrling bist, und ich dir"
  477. 20150 print"vertrauen kann.[220]"
  478. 20190 q=q+2:f%(14)=1:return
  479. 20200 print"[196]er weise [218]aubermeister schaut dich"
  480. 20210 print"erwartungsvoll an. [197]r scheint irgentwie"
  481. 20220 print"geistig gefesselt.":return
  482. 20999 :
  483. 21000 print"([196])iskette oder ([195])assette [191][157]";
  484. 21010 get g$:if g$="d" or g$="c" then printg$:return
  485. 21020 goto 21010
  486. 21030 :
  487. 25000 q=q+10:poke 53280,0:poke 53281,0:cl=9
  488. 25010 print"[149][147][129]";tab(15);
  489. 25020 for i=1 to 4:z$=mid$("sieg",i,1):gosub 50000:next
  490. 25030 print
  491. 25040 print tab(173);
  492. 25050 z$="m":gosub 50000
  493. 25060 print"inas ";
  494. 25070 z$="g":gosub 50000
  495. 25080 print"undur"
  496. 25090 printtab(95);"ist gel@st!"
  497. 25100 printtab(127);
  498. 25110 z$="h":gosub 50000
  499. 25120 print"erzlichen ";
  500. 25130 z$="g":gosub 50000
  501. 25140 print"l\ckwunsch!"
  502. 25200 l$(1)="[205]inas [199]undur von [208]hilipp [203]@hn - [211]ie erhi"
  503. 25210 l$(1)=l$(1)+"elten"+str$(q)+" von"+str$(pm)+" m@glichen [208]unkten"
  504. 25220 l$(2)=" - [214]ielen [196]ank f\r [212]esten und [203]ritisieren an "
  505. 25230 l$(3)="[210]alph und [195]hristine [197]gelseer, [193]nnette [203]@hn, [195]hristoph "
  506. 25240 l$(3)=l$(3)+"[211]teinebrunner und [212]homas [200]olzmann - "
  507. 25250 l$(4)="[196]ank auch f\r den [203]urs im 64'er [211]onderheft an [205]ichael [206]ickles - "
  508. 25260 l$(5)="[196]emn^chst auf diesem [211]creen: [205]inas [199]undur [221][221] - "
  509. 25270 l$(6)="[197]rdacht und [208]rogrammiert im [202]ahre des [200]er"
  510. 25280 l$(7)="rn 1986 in [197]rlangen, [198]ranken, [196]eutschland"
  511. 25290 l$(0)="                                        "
  512. 25295 x=0:y=1
  513. 25300 i=1
  514. 25301 l$=l$(x)+l$(y)
  515. 25302 if i>len(l$(x)) then x=(x+1) and 7:y=(y+1) and 7:goto 25300
  516. 25305 for j=1 to 50:next
  517. 25310 print" ";mid$(l$,i,37);" "
  518. 25320 i=i+1:goto 25301
  519. 29000 end
  520. 30000 :
  521. 30010 rem *****************************
  522. 30020 rem         raum-aktionen
  523. 30030 rem *****************************
  524. 30100 if v<>23 goto 30700
  525. 30101 if (o<>2 and o<>4) or o%(5,1)<>0 goto 30110
  526. 30102 print"[201]n der [211]chublade liegt einzig ein altes [194]uch.":o%(5,1)=1:q=q+3:return
  527. 30110 if o<>3 goto 30700
  528. 30120 if r%(1,1)=2 then print"[196]ie [212]\r ist schon offen.":return
  529. 30130 r%(1,1)=2:print"[211]ie ging mit einem lautem [203]narren auf.":q=q+2:return
  530. 30200 :
  531. 30300 :
  532. 30400 :
  533. 30500 :
  534. 30600 :
  535. 30700 f=1:return
  536. 30800 if o<>10 goto 30810
  537. 30801 if v=30 or v=40 then t=5:goto 10000
  538. 30810 if (v<>30 and v<>48) or o<>11 or f%(7)=. goto 30820
  539. 30811 print"[196]as zahme [213]rtier brachte dich \ber den"
  540. 30812 print"[211]ee. [193]uf der anderen [211]eite schaute es"
  541. 30813 print"dich liebevoll an.":rr=9:q=q+3:goto 1200
  542. 30820 f=1:return
  543. 30900 f=1:return
  544. 31000 if v=30 and o=26 then rr=11:goto 1200
  545. 31010 f=1:return
  546. 31100 f=1:return
  547. 31200 if v<>60 goto 31500
  548. 31201 if r%(12,1)<>0 then print"[197]r l^_t dich schon durch!":return
  549. 31202 if o%(o,1)<>-1 then print"[196]as hast du nicht!":return
  550. 31210 if o=1 or o=7 then t=15:goto 10000
  551. 31211 if o<>5 then print"[197]r ist nicht beeindruckt."
  552. 31212 print"[196]u gibst es ihm...":goto 20000
  553. 31300 :
  554. 31400 :
  555. 31500 f=1:return
  556. 31600 if v<>49 or o<>29 goto 31500
  557. 31620 if o%(1,1)<>-1 then print"[196]u hast kein [211]chwert."
  558. 31630 if r%(16,1)>0 goto 31500
  559. 31640 r%(16,1)=17:q=q+3:r%(16,1)=17
  560. 31650 print"[213]nter lautem [255]chtzen bricht die [212]\r"
  561. 31660 print"zusammen.":return
  562. 31700 if v<>55 or o<>1 or (o1<>30 and o1<>34) goto 31750
  563. 31710 if o%(o,1)<>-1 goto 31620
  564. 31720 if f%(18)=. then f%(18)=1:q=q+5
  565. 31730 print"[202]etzt leuchtet auch das [211]chwert vio-"
  566. 31740 print"lett und scheint geh^rtet.":return
  567. 31750 if v<>49 or o<>35 or f%(18)>1 goto 31780
  568. 31751 if f%(18)=1 goto 31761
  569. 31752 print"[196]as [211]chwert versplitert beim [193]uftreffen"
  570. 31753 print"auf das schwere [197]isengitter.":o%(1,1)=0:return
  571. 31761 print"[196]as violette [211]chwert zerschneidet die"
  572. 31762 print"[197]isenst^be wie [194]utter. [205]it dem [218]erst@-"
  573. 31763 print"ren der [197]isenst^be ist auch ein [194]ann"
  574. 31764 print"auf [205]agdalar duchbrochen.":q=q+4
  575. 31765 print"[197]rst jetzt bemerkst du, da_ ein [211]palt":f%(18)=2
  576. 31766 print"in der [206]ordwand des [210]aumes ist.":r%(17,1)=18:return
  577. 31780 if v=61 and o=34 then t=16:goto 10000
  578. 31799 f=1:return
  579. 31800 if o<>38 or r%(18,2)=19 goto 31799
  580. 31801 if v=57 then q=q+1:goto 31820
  581. 31802 if v=49 and o1=1 goto 31810
  582. 31803 goto 31799
  583. 31810 if o%(1,1)<>-1 then print"[200]ast du nicht.":f%=1:return
  584. 31820 print"[200]inter dem[160][199]e@ffneten [214]orhang siehst"
  585. 31830 print"du ostw^rts den [212]hronsaal [199]arkors.":r%(18,2)=19:q=q+4:return
  586. 31900 f=1:return
  587. 40000 :
  588. 40010 rem *****************************
  589. 40020 rem     raumbeschreibungen
  590. 40030 rem *****************************
  591. 40100 print"u befindest dich im [200]ause deines"
  592. 40110 print"gro_en [204]ehrmeisters. [196]as [200]aus ist"
  593. 40120 print"schlicht eingerichtet. [201]n einer [197]cke"
  594. 40130 print"steht ein etwas gr@_erer [212]isch, der"
  595. 40140 print"[211]chreibtisch [205]agadalars. [193]n der [206]ord-"
  596. 40150 print"wand des [200]auses ist eine [212]\r.":return
  597. 40200 print"or dir liegt der [199]ro_e [215]ald [199]undurs."
  598. 40210 print"[197]in kleiner, unscheinbarer [208]fad f\hrt"
  599. 40220 print"nordw^rts hinein. [201]m [211]\den liegt die"
  600. 40230 print"[200]\tte [205]agdalars.":return
  601. 40300 print"wischen den [194]^umen teilt sich der"
  602. 40310 print"[208]fad. [169]ber dir, hoch in den [199]e^st,"
  603. 40320 print"bemerkst du in den [255]sten der [194]^ume"
  604. 40330 print"ein kleines [194]aumhaus. [196]u kannst aber"
  605. 40340 print"nicht hinaufklettern."
  606. 40350 if f%(4) then print"[197]in toter [205]ann liegt auf dem [194]oden."
  607. 40360 return
  608. 40400 print"it [200]ilfe des [218]auberwortes bist du im"
  609. 40410 print"[194]aumhaus. [197]s scheint von [202]^gern be-"
  610. 40420 print"wohnt gewesen zu sein.":return
  611. 40500 print"ank des [203]ompasses konntest du dich gut";
  612. 40510 print"orientieren, obwohl der [208]fad pl@tzlich"
  613. 40520 print"endete.":return
  614. 40600 print"l@tzlich endete der [208]fad durch das"
  615. 40610 print"[199]estr\pp. [196]u hast die [207]rientierung"
  616. 40620 print"verloren.":return
  617. 40700 print"uf einem [200]\gel stehend hast du einen"
  618. 40710 print"[169]berblick \ber das [204]and: im [206]orden"
  619. 40720 print"ist ein [211]ee, bald darauf ist der [213]r-"
  620. 40730 print"wald zuende und das [199]ro_e [199]ebirge be-"
  621. 40740 print"ginnt.":return
  622. 40800 print"in kleiner [196]schungelsee versperrt im"
  623. 40810 print"[206]orden den [215]eg. [201]m [207]sten und [215]esten ist"
  624. 40820 print"sehr dichtes [199]estr\pp, durch das du"
  625. 40830 print"sicher nicht gehen kannst."
  626. 40840 if f%(7) then print"[197]in freundliches [211]eewesen schaut dich"
  627. 40845 if f%(7) then print"liebevoll an."
  628. 40850 return
  629. 40900 print"ier, wo das [211]eewesen dich abgesetzt"
  630. 40910 print"hat, wird der [213]rwald langsam lichter."
  631. 40920 print"[197]s liegt viel totes [200]olz auf dem [194]oden"
  632. 40930 print"herum.":return
  633. 41000 print"or dir ragt pl@tzlich eine hohe [198]els-"
  634. 41010 print"wand auf und hindert dich weiter zu"
  635. 41020 print"gehen. [196]er [213]rwald ist zu ende, nur noch"
  636. 41030 print"vereinzelte [194]\sche sind am [198]u_e der"
  637. 41040 print"[198]elswand.":return
  638. 41100 print"in dunkler [199]ang f\hrt noch [206]orden."
  639. 41110 print"[169]ber dir str@mt [204]icht in die [198]inster-"
  640. 41120 print"nis, das durch [194]\sche ged^mpft wird."
  641. 41130 print"[200]^tte ich kein eigenes [204]icht, k@nnte"
  642. 41140 print"ich nichts sehen.":return
  643. 41200 print"ackeln befinden sich an den [215]^nden."
  644. 41210 print"[197]in [215]^chter mit einem [211]chwert versperrtdir den [215]eg."
  645. 41215 if o%(5,1)=0 goto 41230
  646. 41220 print"[197]r sagt du w\rdest die [200]@hlen der [215]ei-"
  647. 41221 print"sen betreten und verlangt ein [218]eichen"
  648. 41222 print"deines [203]@nnens.":return
  649. 41230 print"[197]r gr\_t freundlich, verbeugt sich dich"
  650. 41240 print"bewundernd anschauend und l^_t dich    weiter gehen.":return
  651. 41300 print"stw^rts geht ein [211]eitengang ab,"
  652. 41310 print"w^hrend im [206]orden die ber\hmten [166][210]^ume"
  653. 41320 print"[196]er [215]eisen[220] liegen.":return
  654. 41400 print"un bist du in einem der [210]^ume, in"
  655. 41410 print"die sich die [215]eisen aus der [215]elt"
  656. 41420 print"zur\ckziehen. [197]iner dieser [197]insiedler"
  657. 41430 print"sitzt in einer [197]cke und betrachtet"
  658. 41440 print"dich klug.":return
  659. 41500 print"alte [204]uft str@mt aus [206]orden in die"
  660. 41510 print"gro_e [199]rotte. [203]leine [199]^nge f\hren nach"
  661. 41520 print"[206]orden und [215]esten ab."
  662. 41525 if f%(16) goto 41550
  663. 41530 print"[197]ine unsichtbare [203]raft hindert dich"
  664. 41540 print"jedoch nach [206]orden zu gehen."
  665. 41550 if f%(16)=1 then print"[197]in [199]eist greift dich an!"
  666. 41560 return
  667. 41600 if r%(16,1)>0 goto 41650
  668. 41605 print"chon wieder wird dein [212]atendrang ge-"
  669. 41610 print"stopt. [197]ine kleine [200]olzt\r versperrt"
  670. 41620 print"den [199]ang nordw^rts.":return
  671. 41650 print"ruchst\cke einer [200]olzt\r liegen auf"
  672. 41660 print"dem [215]eg nach [206]orden.":return
  673. 41700 if f%(18)>1 goto 41760
  674. 41701 print"el^hmt vor [211]chreck siehst du in einer"
  675. 41710 print"[206]iesche, die mit einem [199]itter verrie-"
  676. 41720 print"gelt ist, deinen [205]eister und [204]ehrer"
  677. 41730 print"[205]agdalar. [201]n der [205]itte des [210]aumes"
  678. 41740 print"ist ein [194]runnen aus dem etwas violett"
  679. 41750 print"leuchtet.":return
  680. 41760 print"ittem in der kreisrunden [199]rotte be-"
  681. 41770 print"findet sich ein violette leuchtender"
  682. 41780 print"[194]runnen.":if f%(18)=3 then return
  683. 41790 print"[201]n einer [206]iesche steht dein [205]eister"
  684. 41791 print"[205]agdalar.":return
  685. 41800 print"etzt stehst du in einem [199]ang von"
  686. 41810 print"[199]arkors[160][208]alast. [197]s ist sehr kalt hier,"
  687. 41820 print"und an der @stlichen [215]and h^ngt ein"
  688. 41830 print"schmutziger [214]orhang.":return
  689. 41900 print"uhig sitzt der [200]exenmeister [199]arkor auf";
  690. 41910 print"seinem dunklen [212]hron. [197]r schaut dich"
  691. 41920 print"hochm\tig und geringsch^tzig an."
  692. 41930 if f%(20)=0 then return
  693. 41940 print"[206]ach deinem [193]usspruch konnte er sich"
  694. 41950 print"nicht mehr bewegen.":return
  695. 49000 rem *****************************
  696. 49010 rem       unterprogramme
  697. 49020 rem *****************************
  698. 49030 :
  699. 50000 a=peek(211)+40*peek(214)+50136
  700. 50002 y=peek(214)
  701. 50010 z=(asc(z$)-65)*4+128
  702. 50020 poke a,z:poke a+1,z+1
  703. 50030 poke a+40,z+2:poke a+41,z+3
  704. 50040 a=a+5120
  705. 50050 poke a,cl:poke a+1,cl:poke a+40,cl:poke a+41,cl
  706. 50060 print"";:return
  707. 50070 :
  708. 50100 p=40
  709. 50110 if mid$(a$,p,1)<>" " and mid$(a$,p,1)<>"" then p=p-1:goto 50110
  710. 50120 print left$(a$,p-1)
  711. 50130 a$=mid$(a$,p+1)
  712. 50140 if len(a$)>39 goto 50100
  713. 50150 if a$<>"" then print a$
  714. 50160 return
  715. 50200 a=f1:poke 646,a:a$=left$(a$+":                         ",35)
  716. 50210 printa$;"#";:poke 646,f:print"[191]";:poke 646,a:print"$"
  717. 50220 get b$:if b$="" goto 50220
  718. 50230 if b$<>chr$(13) then f=(f+1)and15:print"[145][145]":goto 50210
  719. 50240 return
  720. 59990 rem *****************************
  721. 59991 rem       initialisierung
  722. 59992 rem *****************************
  723. 59993 :
  724. 60000 poke 53280,0:poke 53281,0:poke 53265,11
  725. 60010 hf=0:f1=7:f2=5:cl=10:pm=102
  726. 60160 :
  727. 60170 rem *****************************
  728. 60180 rem          titelbild
  729. 60190 rem *****************************
  730. 60200 print"[147]        ";
  731. 60220 z$="p":gosub 50000
  732. 60230 print"[158]hilipp  ";
  733. 60240 z$="k":gosub 50000
  734. 60250 print"@hn presents"
  735. 60260 print tab(173);
  736. 60270 z$="m":gosub 50000
  737. 60280 print"inas ";
  738. 60290 z$="g":gosub 50000
  739. 60300 print"undur"
  740. 60310 print"     [159][197]in deutsches [198]antasyadventure"
  741. 60320 print"         & 1986 by [208]hilipp [203]@hn"
  742. 60330 print"[156]            [194]itte warten [211]ie !
  743. 60340 [151] 53265,27
  744. 60980 :
  745. 61000 v[178]62:o[178]44:h[178]25:r[178]19:af[178]21
  746. 61010 [134] v$(v),o$(o),h$(h),r$(r)
  747. 61020 [134] o%(o,2),r%(r,6),f%(af)
  748. 61030 [134] w$(18)
  749. 61100 [135] a$:[139] a$[178]"*" [137] 61200
  750. 61110 av[178]av[170]1:v$(av)[178]a$
  751. 61120 [137] 61100
  752. 61200 [135] a$:[139] a$[178]"*" [137] 61300
  753. 61210 ao[178]ao[170]1:o$(ao)[178]a$:[135] o%(ao,0),o%(ao,1),o%(ao,2)
  754. 61220 [137] 61200
  755. 61300 [135] a$:[139] a$[178]"*" [137] 61400
  756. 61310 ah[178]ah[170]1:h$(ah)[178]a$
  757. 61320 [137] 61300
  758. 61400 [135] a$:[139] a$[178]"*" [137] 61500
  759. 61410 ar[178]ar[170]1:r$(ar)[178]a$
  760. 61420 [129] i[178]1 [164] 6
  761. 61430 [135] r%(ar,i)
  762. 61440 [130] i
  763. 61450 [137] 61400
  764. 61500 rr[178]1:q[178][171]1
  765. 61600 [153]"on    str$r\cken (NULL)ie eine (NULL)aste zum (NULL)tart"
  766. 61610 [151] 198,0:[146] 198,1:[161] a$
  767. 61620 [151] 53265,11:[153]"load   ";
  768. 61630 z$[178]"d":[141] 50000
  769. 61640 [153]"sysein gro_er (NULL)ehrer, der (NULL)auberer"
  770. 61650 [153]"   (NULL)agdalar, zog vor einem mid$ahr zu"
  771. 61660 [153]"   einer geheimen (NULL)eise, von der nur"
  772. 61670 [153]"   du etwas wei_t, zu einem vernich-"
  773. 61671 [153]"   tenen (NULL)chlag gegen den grausamen"
  774. 61672 [153]"   left$exenmeister chr$arkor aus."
  775. 61690 [153]"   str$a du lange nichts mehr von ihm"
  776. 61700 [153]"   geh@rt hast und vor allem weil du"
  777. 61710 [153]"   ihn im (NULL)raume gefangen sahst, bist"
  778. 61720 [153]"   du schwer beunruhigt."
  779. 61730 [153]"   str$u bist zum valntschlu_ gekommen ihm"
  780. 61740 [153]"   zu folgen und zu helfen..."
  781. 61800 [151] 53265,27
  782. 61910 [151] 198,0:[146] 198,1:[161] a$
  783. 61920 [153]"load"
  784. 61930 [141] 1205:[137] 100
  785. 61940 :
  786. 62000 [143] -----------------------------
  787. 62001 [131] norden,osten,sueden,westen,oben,unten
  788. 62002 [131] nimm,nehme1,hole2,gib,gebe1,lege2,verliere3
  789. 62003 [131] untersuche,schaue1
  790. 62004 [131] inventur,liste1,hilfe,lade,load1,speichere,save1
  791. 62005 [131] oeffne,farben,punktestand,zeit,score2,lies,lese1
  792. 62006 [131] gehe,betrete1,betritt2,sage,sprich1,warte,pause1,ende,stirb1
  793. 62007 [131] toete,schwimme,entzuende,zuende1,erleuchte2,loesche,erloesche1
  794. 62008 [131] ziehe,setze1,reite,zerstoere,vernichte1,frage,befrage1,unterhalte2
  795. 62009 [131] beruehre,tauche,zerschneide7,schiebe,zertruemmere9,verschiebe2,zeige
  796. 62010 [131] trinke
  797. 62099 [131] *
  798. 62100 :
  799. 62101 [131] schwert,1,,
  800. 62102 [131] tisch,2,1,
  801. 62103 [131] tuere,2,1,
  802. 62104 [131] schublade,2,1,
  803. 62105 [131] buch,1,,
  804. 62106 [131] xylks,5,,
  805. 62107 [131] messer,1,4,
  806. 62108 [131] mann,3,,
  807. 62109 [131] kompass,1,,2
  808. 62110 [131] see,2,8,
  809. 62111 [131] seeungeheuer,3,8,
  810. 62112 [131] ungeheuer1,,,
  811. 62113 [131] equarz,5,,
  812. 62114 [131] ast,1,9,2
  813. 62115 [131] buesche,2,10,
  814. 62116 [131] lampe,1,11,1
  815. 62117 [131] baum,2,10,
  816. 62118 [131] waechter,3,12,
  817. 62119 [131] fackeln,2,12,
  818. 62120 [131] weisen,4,14,
  819. 62121 [131] tarnkappe,1,,1
  820. 62122 [131] kappe1,,,
  821. 62123 [131] felswand8,,,
  822. 62124 [131] einsiedler4,,,
  823. 62125 [131] weiser5,,,
  824. 62126 [131] gang,2,10,
  825. 62127 [131] minas1,,,
  826. 62128 [131] geist,3,,
  827. 62129 [131] holztuere,2,16,
  828. 62130 [131] brunnen,2,17,
  829. 62131 [131] magdalar,4,17,
  830. 62132 [131] zaubermeister1,,,
  831. 62133 [131] lehrer2,,,
  832. 62134 [131] wasser,2,17,
  833. 62135 [131] gitterstaebe,2,17,
  834. 62136 [131] zettel,1,,
  835. 62137 [131] fluessigkeit3,,,
  836. 62138 [131] vorhang,2,18,
  837. 62139 [131] soldaten,3,18,
  838. 62140 [131] frotzl,5,,
  839. 62141 [131] patri,5,,
  840. 62142 [131] garkor,3,19,
  841. 62143 [131] hexenmeister1,,,
  842. 62199 [131] *
  843. 62200 :
  844. 62201 [131] der,die,das,den,dem,weg,nach,gen,durch,ab,mit,in,im,auf,aufs
  845. 62202 [131] durch,am,an,gundur,um
  846. 62299 [131] *
  847. 62300 :
  848. 62301 [131] d,,,,,,
  849. 62302 [131] v,3,,1,,,
  850. 62303 [131] z,7,5,2,,,
  851. 62304 [131] m,,,,,,3
  852. 62305 [131] d,8,,3,7,,
  853. 62306 [131] p,6,6,6,6,,
  854. 62307 [131] a,,5,3,,,
  855. 62308 [131] e,,,5,,,
  856. 62309 [131] h,10,,,,,
  857. 62310 [131] v,,,9,,,
  858. 62311 [131] e,12,,10,,10,
  859. 62312 [131] f,,,11,,,
  860. 62313 [131] o,14,15,12,,,
  861. 62314 [131] n,,,13,,,
  862. 62315 [131] k,,,,13,,
  863. 62316 [131] s,,,15,,,
  864. 62317 [131] g,,,16,,,
  865. 62318 [131] j,,,17,,,
  866. 62319 [131] r,,,,18,,
  867. 62399 [131] *
  868. 63000 [156]
  869. 63999 [153](38[172]1024[171][184](i))[173]254
  870.