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