home *** CD-ROM | disk | FTP | other *** search
/ Highscore 2 / Highscore_2_19xx_-.d64 / kerkerinfo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  133 lines
  1. 10 rem **************************
  2. 20 rem * info-programm  zum     *
  3. 30 rem * adventure : tief im    *
  4. 40 rem * kerker gefangen.       *
  5. 50 rem **************************
  6. 60 :
  7. 70 poke808,237:poke204,0:poke53281,6:print"[147][154][205]enue ... bitte waehlen."
  8. 80 print" [198]1 [146] [204]isten und veraendern des [208][210][199]'s.":print" [198]3 [146] [196]ie [204]oesung ";
  9. 90 print"des [193]dventures.":print" [198]5 [146] [211]tring$ & [214]ariablen - [204]iste/[204]abels"
  10. 100 print" [198]7 [146] [208]rogramm laden.":print"[194]reak[146] [210]un/[211]top-[210]estore."
  11. 110 print"[210][197][193][196][217]."
  12. 200 geta$:ifa$=""then200
  13. 210 ifa$="[133]"then300
  14. 220 ifa$="[134]"then500
  15. 230 ifa$="[135]"then2000
  16. 240 ifa$="[136]"then3000
  17. 260 ifa$=""thensys2048
  18. 265 ifa$=chr$(13)thenrun
  19. 270 print"[216]";:goto200
  20. 300 print"[147][215]ie man das [200]auptprogramm listet:"
  21. 310 print"[196]as [200]auptprogramm besteht aus zwei [212]ei-":print"len:"
  22. 330 print"[193]dr.2048-9399 [211]prite-[196]aten."
  23. 340 print"[193]dr.9300-[216][216][216][216] [194]asic-[208]rogramm."
  24. 350 print"[213]m ein [204]isting des [194]asic-[208]rogrammes zu"
  25. 360 print"bekommen bringt man den [195] 64 in den [197]in-";
  26. 370 print"schaltzustand und gibt folgende [208]okes"
  27. 380 print"im [196]irektmodus ein:":print"[158][208][207][203][197]43,86:[208][207][203][197]44,36[154]"
  28. 390 print"[193]nschliessend laedt man [158][201][205] [203][197][210][203][197][210][154] mit"
  29. 400 print"der [207]ption [158],8,1[154] in den [211]peicher."
  30. 410 print"[206]un kann man es listen und veraendern."
  31. 420 print"[218]um [211]peichern [194]asicstart wieder zurueck-";
  32. 430 print"setzen ([158][208][207][203][197]43,1:[208][207][203][197]44,8[154]) und saven."
  33. 440 print"            [212]aste                       [146][210][197][193][196][217]."
  34. 450 poke198,0:wait198,1:poke198,0:run
  35. 500 print"[147][196]ie [204]oesung des [193]dventures":print"[212]ief im [203]erker gefangen[154]:"
  36. 510 print"[211]ituation:[155] [211]tartbild[154]"
  37. 520 print"[159] [146][154] = [197]ingabe ... [155] [146][154] = [211]ituation"
  38. 530 print"[159][206]ord = [155] vorm [211]chloss"
  39. 540 print"[159][207]st  = [155] im [215]ald"
  40. 550 print"[159][213]ntersuche [194]aum = [155][208]feil&[194]ogen erscheint"
  41. 560 print"[159][206]imm [194]ogen =[155] [194]ogen genommen"
  42. 570 print"[159][215]est =[155] vorm [211]chloss"
  43. 580 print"[159][215]est =[155] im [215]ald"
  44. 590 print"[159][218]iehe [194]ogen =[155] [200]ase erlegt"
  45. 600 print"[159][207]st =[155] vorm [211]chloss"
  46. 610 print"[159][218]iehe [194]ogen = [155][218]ugbruecke oeffnet"
  47. 620 print"[159][206]ord =[155] im [212]orbogen"
  48. 630 print"[159][206]ord =[155] im [211]chlosshof"
  49. 640 print"[159][218]eige [200]ase =[155] [200]und verschwindet"
  50. 650 print"[154]            [212]aste                       ":print"[210][197][193][196][217]."
  51. 660 poke198,0:wait198,1
  52. 670 print"[147][159][215]est = [155]im [203]aminsaal"
  53. 680 print"[159][206]ord = [155]in der [203]ueche"
  54. 690 print"[159][206]imm [215]einflasche = [155][198]lasche genommen"
  55. 700 print"[159][211]ued = [155]im [203]aminsaal"
  56. 710 print"[159][211]ued = [155]im [212]ronsaal"
  57. 720 print"[159][206]imm [203]rone =[155] [203]rone genommen"
  58. 730 print"[159][206]imm [211]chluessel =[155] [211]chl. genommen"
  59. 740 print"[159][214]erliere [203]rone =[155] [203]rone verloren"
  60. 750 print"[159][206]ord =[155] im [203]aminsaal"
  61. 760 print"[159][207]st = [155]im [211]chlosshof"
  62. 770 print"[159][207]effne [212]uer = [155][212]uer offen"
  63. 780 print"[159][206]ord = [155]im [210]ittersaal"
  64. 790 print"[159][211]age [200]allo =[155] [210]itter verschwindet"
  65. 800 print"[159][212]astendruck = [155]im [206]ordturm (unten)"
  66. 810 print"[159][200]och = [155]im [206]ordturm (oben)"
  67. 820 print"[159][211]ued = [155]auf d. [218]innengang"
  68. 830 print"[159][218]eige [215]einflasche =[155] [210]itter verschw."
  69. 840 print"[159][211]ued =[155] im [211]uedturm (oben)"
  70. 850 print"[159][210]unter = [155]im [211]uedturm (mitte)"
  71. 860 print"[159][210]unter =[155] im [211]uedturm (unten)"
  72. 870 print"[154]          [212]aste                         ":print"[210][197][193][196][217]."
  73. 880 poke198,0:wait198,1
  74. 890 print"[147][159][218]iehe [211]tein =[155] [199]ittertuer verschwindet"
  75. 900 print"[159][206]ord =[155] im [218]wischengang"
  76. 910 print"[159][206]ord =[155] in d. [194]ibliothek"
  77. 920 print"[159][215]est = [155][210]aum mit [199]raben"
  78. 930 print"[159][218]iehe [194]rett =[155] [194]rett ueber [199]raben"
  79. 940 print"[159][211]ued =[155] im [215]achraum"
  80. 950 print"[159][211]age [210]abenschwarz (s.[194]uch i.d.[194]ibliothek) = [155] man kann passieren"
  81. 960 print"[159][215]est =[155] im [206]ebelraum"
  82. 970 print"[159][211]ued =[155] im [203]erkervorraum"
  83. 980 print"[159][207]st =[155] im [203]erkerraum mit [206]achricht"
  84. 990 print"[154][193]ufgabe geloest!"
  85. 1000 print"             [212]aste                      ":print"[210][197][193][196][217]."
  86. 1010 poke198,0:wait198,1:poke198,0:run
  87. 2000 print"[147][204]iste der [214]ariablen & [211]tring$:"
  88. 2010 print"[199][197]$(x) = [206]amen d. [199]egenstaende"
  89. 2020 print"[199][197](x) = [208]osition d. [199]egenstaende        (15=[210]aum 15;0=[194]esitz;";
  90. 2030 print"-1=[206]irgendwo)"
  91. 2040 print"[214]=[194]asisadresse [211]pritereg."
  92. 2050 print"[218][194]=[218]ugbruecke(0=zu;1=offen)
  93. 2060 [153]"chr$(NULL)=chr$ittertuer(0=zu;1=offen)"
  94. 2070 [153]"peek(NULL)=peekrett(0=weg;1=ueber chr$raben)"
  95. 2080 [153]"(NULL)(NULL)=(NULL)uer(0=zu;1=offen)
  96. 2090 print"[200][213]=[200]und(1=da;0=weg)
  97. 2100 [153]"(NULL)(NULL)$(x)=valingegebene (NULL)oerter"
  98. 2110 [153]"(NULL)peek$(x)=(NULL)aumbeschreibung"
  99. 2120 [153]"valpeek$(x)=peekeschreibung am valnde"
  100. 2125 [153]"(NULL)atn=(NULL)aumnummer"
  101. 2130 [153]"(NULL)(NULL)$(x)=(NULL)ichtungsadditor fuer (NULL)atn"
  102. 2140 [153]"    ^ x=0 (NULL)ichtung gibt es nicht"
  103. 2150 [153]"             (NULL)aste                      ":[153]"(NULL)valatnstr$(NULL)."
  104. 2160 [151]198,0:[146]198,1
  105. 2170 [153]"load(NULL)(NULL)(1)= (NULL)est ... (NULL)(NULL)(2)= (NULL)st"
  106. 2180 [153]"(NULL)(NULL)(3)= (NULL)ued ... (NULL)(NULL)(4)= (NULL)ord"
  107. 2190 [153]"(NULL)(NULL)(5)= left$och ... (NULL)(NULL)(6)= (NULL)unter"
  108. 2200 [153]"vals follgen die (NULL)abels..."
  109. 2210 [153]"             (NULL)aste                      ":[153]"(NULL)valatnstr$(NULL)."
  110. 2220 [151]198,0:[146]198,1
  111. 2230 [153]"load(NULL)abels:"
  112. 2240 [153]"3600=atnbfrage d.chr$egenstaende"
  113. 2250 [153]"3610=atnnspringen der peekilder"
  114. 2260 [153]"4000=atnbfrage/valingabe"
  115. 2270 [153]"5000=wenn (NULL)erb dann chr$oto..."
  116. 2280 [153]"11000-24000=(NULL)erben mit wenn (NULL)(NULL)$(2) then.";
  117. 2290 [153]"10000=atnbfrage bei (NULL)ichtungen"
  118. 2300 [153]"30000=(NULL)eaktionen & atnusfuehrung"
  119. 2310 [153]"40000=valnde durch (NULL)pielfehler"
  120. 2320 [153]"          (NULL)aste                         ":[153]"(NULL)valatnstr$(NULL)."
  121. 2330 [151]198,0:[146]198,1:[151]198,0:[138]
  122. 3000 [153]"load(NULL)aden des (NULL)piels:"
  123. 3010 [153]"str$as atndventure benoetigt follgende (NULL)eile"
  124. 3020 [153]"(NULL)(NULL)atnstr$val(NULL) asc(NULL)val(NULL) ((NULL)(NULL)chr$) = (NULL)oadprogramm"
  125. 3030 [153]"(NULL)right$valasc ((NULL)val(NULL)) = chr$esaveter (NULL)pielstand"
  126. 3040 [153]"right$(NULL) (NULL)val(NULL)(NULL)val(NULL) ((NULL)(NULL)chr$) = left$auptprogramm"
  127. 3050 [153]"chr$valascatn(NULL)chr$val(NULL) ((NULL)(NULL)chr$) = ascloppyspeeder"
  128. 3060 [153]"   (NULL)aste = (NULL)enue     asc7 = (NULL)piel laden   ":[153]"(NULL)valatnstr$(NULL)."
  129. 3070 [161]a$:[139]a$[178]""[167]3070
  130. 3080 [139]a$[179][177]"let"[167][138]
  131. 3090 [153]"loadload"[170][199](34)[170]"loader fuer"[170][199](34)[170]",8":[153]"run"
  132. 3100 [151]198,2:[151]631,13:[151]632,13
  133.