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