1 X=RND(-TI)
5 GOSUB1500:PRINT"[194]ITTE WARTEN.[201]CH MUSS NOCH RECHNEN"
10 DATA"IM [200]AUS","[196]U BIST IN DEINEN EIGENEN VIER [215]AENDEN",""
11 DATA"IM [214]ORHOF","[197]IN [203]IESWEG FUEHRT VOM [206] NACH [211]-[207]","","IN DER [203]AMMER"
12 DATA"","","IM [211]PIEGELRAUM","[201]M [207] HAT ES EINEN [218]AUBERSPIEGEL AN DER  [215]AND "
14 DATA"","AN DER [203]REUZUNG","","[197]INE [211]CHLANGE VERSPERRT DIR DEN [215]EG"
15 DATA"IM [211]TEINBRUCH [206].","[201]M [211] IST EINE TIEFE [211]CHLUCHT","","IM [199]EHEIMRAUM"
16 DATA"","[197]IN FEUERSPEIENDER UND SCHNAUBENDER [196]RA-CHE VERSPERRT DIR DEN [215]EG"
17 DATA"AM [197]CHSENFELS","[196]ER [210]AUM IST UEBERSAET MIT SPITZEN [211]TEI-NEN",""
18 DATA"AN DER [194]AR","[201]M [206] STEHT EINE VERSTAUBTE [194]AR","","IN DER [206]EBELHALLE [206]."
19 DATA"[201]M [211] IST EIN BREITER [199]RABEN.[193]M [194]ODEN    LIEGT DICKER [206]EBEL."
20 DATA"[193]UF DER ANDEREN [211]EITEDES [199]RABENS SIEHT MAN IM [206]EBEL ETWAS    GLITZERN"
21 DATA"AM [211]TEINBRUCH [211] .","[201]M [206]ORDEN IST EINE TIEFE [211]CHLUCHT.[193]UF   DER "
22 DATA"ANDEREN [211]EITE SIEHT MAN DEN [218]AUBER- SPIEGEL"
23 DATA"IN DER [199]RUFT","","","IM GROSSEN [194]ECKEN","[196]ER [194]ODEN IST MULDENARTIG"
24 DATA" VERTIEFT","IM [210]AUCHSALON","[196]ER [194]ODEN GLEICHT EINEM [193]SCHENBECHER",""
25 DATA"IN DER [206]EBELHALLE [211].","[193]M [194]ODEN LIEGT DICKER [206]EBEL.[201]M [206] HAT ES EINE "
26 DATA"BREITE [199]RUBE","AM [194]ACH","[193]US EINEM [209]UELL ENTSPRINGT [215]ASSER UND   "
27 DATA"FLIESST NACH [211]-[207] AB","IM KLEINEN [194]ECKEN","","","IN DER [215]ERKSTATT"
28 DATA"[193]M [194]ODEN LIEGT VERSTAUBTES [215]ERKZEUG UND EINE [207]ELLACHE",""
29 DATA"IN DER BREITEN [199]RUBE","[196]IE [199]RUBE FAELLT NACH [211]-[207] AB",""
30 DATA"IM [203]ABINET","[201]M [211] HAT ES EINE ROSTIGE [212]UERE","","IM [199]ARTEN"
31 DATA"[201]M [211] STEHT EINE [208]FLANZE DIE NACH [215]ASSER SCHREIT.[213]EBER IHR IST EINE"
32 DATA" KLEINE [207]EFF- NUNG","IN DER [205]ULDE","","","IM SCHWARZEN [211]AAL"
33 DATA"[196]ER [211]AAL IST MIT SCHWARZEM [205]ARMOR AUSGE-LEGT.[197]S SCHEINEN MAGISCHE"
34 DATA" [203]RAEFTE VON   IHM AUSZUGEHEN","IM [198]RIEDHOF","[200]IER STEHT EINE WEISSE "
35 DATA"[213]RNE","AM [198]ENSTER","[213]EBER DIR IST EIN [198]ENSTER AUS DEM [204]ICHT KOMMT",""
36 DATA"IM [199]RABEN","","","IN DER KAHLEN [200]ALLE","[196]IESER [210]AUM IST ABSOLUT LEER"
37 DATA"","AM [197]CK","","","IM [196]URCHSCHLUPF","[201]M [211]-[207] HAT ES EINE KLEINE [207]EFFNUNG"
38 DATA"","IM [205]ARMORSAAL","[197]R IST MIT WEISSEM [205]ARMOR AUSGEKLEIDET",""
39 DATA"IN DER [193]LLEE","[193]N DEN [215]AENDEN STEHEN VERSTEINERTE [208]AP- PELN",""
41 DATA"IM GROSSEN [211]AAL","[201]N DER [205]ITTE STEHT EINE EISERNE [212]RUHE",""
42 DATA"IM [216][213][216][201][197]","[193]N ALLEN [215]AENDEN STEHT DAS MAGISCHE [215]ORT [216][213][216][201][197]",""
43 DATA"IN DER [205]OENCHSKLAUSE","[201]M [211] IST EIN VERSCHUETTETER [199]ANG",""
44 DATA"IM [196]URCHGANG","[193]N DER [215]AND STEHT EIN [210]EZEPT DAS DICH   UNSCHLAGBAR "
45 DATA"MACHT: [205][193][206][160][203][207][195][200][197][160][204][193][214][197][206][196][197][204][160]  [197][195][200][211][197][206][199][210][193][211][160][213][206][196][160][211][212][197][201][206][208][213][204][214][197][210]([194][204][193][213][197][211])"
46 DATA"BEI DER [200]YDRA","[211]IE VERSPERRT DIR DEN [215]EG","","[201][205][160][193][213][199][197][160][196][197][210][160][215][197][201][211][197][206]"
47 DATA"","","IM [201]RR","","","IM [201]RR","","","IM [201]RR","","","IM [201]RR","",""
48 DATA"IM [201]RR","","","IM [201]RR","","","IM [201]RR","","","IM [201]RR","",""
49 DATA"IM [201]RR","","","IM [201]RR","","","IM [201]RR","","","AN DER [212]ANKSTELLE"
50 DATA"[200]IER KANNST DU GRATIS [194]ENZIN BEZIEHEN","","IN DER [194]ILDERHALLE"
51 DATA"[197]IN [203]UENSTLER HAT SICH HIER BETAETIGT   UND ALLE [215]AENDE BEMALT",""
52 DATA"IN DER [199]ASSE","[201]M [215] HAT ES EINE KLEINE [207]EFFNUNG",""
53 DATA"IM [203]RATER","[200]IER HAT ES [205]IENEN.[208]ASS AUF WOHIN DU    GEHST",""
54 DATA"IM [215]ASCHRAUM","[213]EBER DIR HAENGEN [204]EINTUECHER.[213]M SIE ZU HOLEN BRAUCHST"
55 DATA" DU EINE [204]EITER","IN DER [214]ERBINDUNG","",""
56 DATA"IN DER GROSSEN [214]ERZWEIGUNG","[201]N DER [205]ITTE STEHEN [214]ERKEHRSSCHILDER",""
57 DATA"IM [199]EISTERGEMACH","[196]U HOERST UNHEIMLICHES [199]EFLUESTER",""
58 DATA"IM BREITEN [199]ANG","","","AM [194]ANKENPLATZ","[200]IER IST DIE [203]ANTONALBANK."
59 DATA"[211]IE HAT HEUTE OFFEN","IM SCHMALEN [199]ANG","",""
60 DATA"IN DER [208]ASSAGE","[201]M [207] HAT ES EINE KLEINE [207]EFFNUNG",""
61 DATA"IM [215]AFFENRAUM","[193]N DEN [215]AENDEN HAENGEN VERROSTETE [200]ELLE-BARDEN"
62 DATA",[211]TREITAEXTE ETC.","IM [193]BBRUCH","[201]M [207] HAGELT ES [211]TEINE.[213]M DIES "
63 DATA"UEBERQUE- REN ZU KOENNEN MUSST DU DICH MIT ETWAS  SCHUETZEN"
64 DATA"IM [203]ANAL","[196]ER [203]ANAL VERLAEUFT GEGEN [215] ","","IN DER [210]INNE"
65 DATA"[211]IE MUENDET IM [215] IN DEN [203]ANAL.[197]IN       [211]CHWARZHAENDLER TAUSCHT [208]ISTO"
66 DATA"LEN","IM [196]URCHLASS","","","IM KLEINEN [211]AAL","[201]M [215] STEHT EIN HOELZERNES"
67 DATA" [203]REUZ","IM [197]SSZIMMER","[197]IN SCHWERER [197]ICHENTISCH STEHT IN DER   [205]ITTE"
68 DATA"","IN DER [198]ARBKAMMER","[196]ER [194]ODEN IST VERSCHMIERT"
69 DATA" VON DEN VER-  SCHIEDENSTEN [198]ARBEN","IN DER [203]ERZENHALLE"
70 DATA"[213]EBERALL STEHEN BRENNENDE [203]ERZEN LEIDER IN UNERREICHBARER [200]OEHE",""
71 DATA"IN [205]ISTEN","[200]IER IST EINE [208]OSTSTATION.[205]AN KANN [199]E-  PAECK VERSCHICKEN "
72 DATA"NACH [205]ASTHORN","BEI DER [205]UEHLE","[211]IE MAHLT","","IN [205]ASTHORN","",""
73 DATA"AM [211]TRAND","[214]OR DIR LIEGT DIE OFFENE [211]EE",""
74 DATA"IN DER [204]AVENDELWIESE","[196]IES IST EINE [201]NSEL",""
75 DATA"BEI DER [213]-[194]AHNSTATION","[196]U HAST DIREKTEN [193]NSCHLUSS ZUM [200]AUS",""
76 DATA"IM [215]ALD","[201]M [206] UND IM [207] IST TIEFER [215]ALD",""
77 DATA"IN DER [203]UECHE","IN DER [205]ITTE STEHT EIN [203]OCHTOPF DER BE- REITS ANGE"
78 DATA"FEUERT IST","IM [212]REIBSAND","[201]M [211] UND[160][207] SCHEINEN SICHERE [215]EGE ZU SEIN",""
79 DATA"IM [199]ESTRUEPP","","","AUF DER GROSSEN [215]IESE","",""
80 DATA"IM TIEFEN [211]UMPF","[201]M [206] UND [211] SCHEINEN SICHERE [215]EGE ZU SEIN",""
81 DATA"IM [213]NTERHOLZ","","","AUF DER KLEINEN [215]IESE","",""
82 DATA"IM [211]UMPF","[201]M [206] [211] UND [207] SCHEINEN SICHERE [215]EGE ZU   SEIN",""
83 DATA"IM [211]EE","[196]U BIST GEKENTERT.[201]M [211] IST DER [215]ASSER-  FALL",""
84 DATA"IM [215]ASSERFALL","","","IN DER [211]CHLUCHT"
85 DATA"[193]UF BEIDEN [211]EITEN STEIGEN DIE [215]AENDE    STEIL AN",""
101 DATA0,0,0,2,0,0,0,0
102 DATA1,0,0,0,0,0,0,3
103 DATA2,4,0,5,0,0,0,0
104 DATA0,-1,3,0,0,0,0,0
105 DATA3,-2,-2,-2,0,0,0,0
106 DATA0,0,4,0,0,0,0,0
107 DATA-3,0,87,0,0,0,0,0
108 DATA0,0,0,7,0,0,0,0
109 DATA0,5,12,13,0,0,0,18
110 DATA0,11,5,0,0,0,0,0
111 DATA0,59,10,16,0,0,0,0
112 DATA9,13,0,17,0,0,0,0
113 DATA9,0,12,17,0,0,0,0
114 DATA5,15,0,18,0,0,0,0
115 DATA0,0,14,19,0,0,18,20
116 DATA11,0,0,0,0,0,0,62
117 DATA13,0,12,0,0,0,21,0
118 DATA14,19,0,0,9,15,0,0
119 DATA15,0,18,21,0,0,0,-4
120 DATA0,38,0,-5,15,0,0,0
121 DATA0,17,0,-6,0,0,0,19
122 DATA21,23,0,25,0,0,0,0
123 DATA0,24,22,26,0,0,25,27
124 DATA0,0,23,27,0,0,0,0
125 DATA22,26,0,27,0,23,0,0
126 DATA23,0,25,0,0,0,0,0
127 DATA24,0,0,0,23,0,25,0
128 DATA20,29,30,0,0,0,0,32
129 DATA0,0,28,32,0,0,0,34
130 DATA0,32,0,0,0,28,0,31
131 DATA0,32,0,33,30,0,0,0
132 DATA29,0,30,33,28,0,31,0
133 DATA32,0,31,0,0,0,0,0
134 DATA0,0,0,-7,29,0,0,0
135 DATA34,0,0,0,0,36,0,0
136 DATA0,0,0,-8,0,0,35,0
137 DATA0,0,0,0,0,0,0,0
138 DATA0,39,0,0,0,0,0,41
139 DATA0,40,38,41,0,0,0,0
140 DATA0,43,39,42,0,0,0,0
141 DATA39,42,0,0,38,0,0,0
142 DATA40,43,41,0,0,0,0,46
143 DATA0,0,0,44,40,0,42,45
144 DATA43,45,0,46,0,0,0,0
145 DATA0,0,44,47,43,0,0,48
146 DATA44,47,42,48,0,0,0,0
147 DATA45,48,46,0,0,0,0,0
148 DATA0,0,47,46,45,0,0,0
149 DATA0,50,0,51,0,0,0,0
150 DATA0,53,49,0,0,54,0,0
151 DATA49,52,-9,0,0,0,0,0
152 DATA0,0,51,0,0,53,0,0
153 DATA0,55,0,0,50,0,52,0
154 DATA0,0,50,55,0,0,0,0
155 DATA54,65,0,57,53,0,0,56
156 DATA55,0,0,61,0,0,58,0
157 DATA55,0,0,58,0,0,0,0
158 DATA57,0,0,60,0,56,0,0
159 DATA11,60,0,0,0,0,0,0
160 DATA58,62,59,0,0,0,0,0
161 DATA56,0,0,0,0,0,0,0
162 DATA0,-13,60,16,0,0,0,0
163 DATA0,64,-10,0,0,0,0,66
164 DATA0,0,63,0,0,0,0,67
165 DATA0,0,55,0,0,0,0,68
166 DATA0,67,0,68,63,0,0,69
167 DATA0,0,66,69,64,0,0,0
168 DATA66,69,0,70,65,0,0,0
169 DATA67,0,68,71,66,0,70,0
170 DATA68,0,0,0,0,69,0,0
171 DATA69,0,0,0,0,0,0,0
172 DATA0,73,0,0,0,0,0,0
173 DATA0,-75,72,-85,0,-74,0,0
174 DATA0,0,0,-85,0,0,-73,-75
175 DATA0,0,-74,0,0,0,-73,0
176 DATA-76,0,-73,79,0,0,-85,80
177 DATA0,78,0,0,0,0,0,81
178 DATA-11,84,77,81,0,0,0,0
179 DATA76,80,0,82,0,0,0,0
180 DATA0,0,79,83,76,0,82,0
181 DATA78,-12,0,84,77,0,0,0
182 DATA79,83,0,84,0,80,0,0
183 DATA80,0,82,0,0,0,0,0
184 DATA81,78,0,82,-12,0,0,0
185 DATA-74,0,0,-86,-73,-76,0,0
186 DATA0,0,0,0,0,0,0,0
187 DATA0,7,0,0,0,0,0,0
200 DATA"[198]LASCHE","[203]AEFIG","[218]AUBERSTAB","[214]OGEL","[196]YNAMIT","[203]AENNCHEN"
201 DATA"[207]EL","[218]UENDSCHNUR","[194]EIL","[208]ERLE","[194]LAUER [211]TEIN","[210]UESTUNG"
202 DATA"[199]ELD","[194]ENZIN","[203]ANISTER","[208]ISTOLE","[215]ASSER","[205]OTOR"
203 DATA"[204]AVENDEL","[197]CHSENGRAS","[194]OOT","[194]AEUME","[193]XT","[211]EILE","[210]UDER"
204 DATA"[194]ILLET","[218]AUBERTRANK","[211]TEINPULVER([194]LAUES)","[218]AUBERTRANK"
205 DATA"[218]ERBROCHENE [198]LASCHE","[198]LOSS"
250 DATA9,2,4,3,16,52,-1,14,26,-1,6,61,-1,-1,54,-1,-1,72,74,8,73,-1,80
251 DATA82,83,77,-1,-1,-1,-1,-1
270 DATA"[176][192][192][192][192][192][192][174][157][221][157][221][157][221][157][221][157][221][157][221][157][189][221][157][221][157][221][157][221][157][221][157][221][157][173][192][192][192][192][192][192]"
271 DATA"[179][171]","[177][157][178]","[177][157][178]","[179][171]"
272 DATA" [173][174]","[189] [157][176]","[189][157] [176]","[174] [157][145][173]"
300 DATA"[201]NFO","LEGEN","NEHMEN","ANGREIFEN","OEFFNEN","GIESSEN","SPRINGEN"
301 DATA"KLETTERN","OELEN","FAHREN","SPRENGEN","ANZIEHEN","TAUSCHEN"
302 DATA"UEBERFALLEN","VERSCHICKEN","AUSZIEHEN","BAUEN","KOCHEN"
303 DATA"ZAUBERN","MAHLEN","FAELLEN","[214]OC.","[201]NVENTAR","AUFGEBEN"
304 DATA"FUELLEN","TANKEN","EINSTEIGEN","SCHAUEN","[216][213][216][201][197]","TRINKEN"
305 DATA"N","O","W","S","N-W","N-O","S-W","S-O"
400 DATA"N","O","W","S","N-W","N-O","S-W","S-O"
500 DATA1,1,1,1,1,2,3,4,5,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,7,7,7
501 DATA8,8,9,10,10,10,10,10,10,10,10,10,10,10,11,11,11,11,11,11,11
502 DATA11,11,11,11,11,11,11,12,12,12,12,12,12,12,12,12,13,13,14,15
503 DATA16,16,16,16,16,16,16,16,16,16,16,3
520 DATA"[159]TUERKISFARBENEN","GRUENEN","[158]GELBEN","[156]BU[158]NT[159]EN","[156]PURPURFARBIGEN"
521 DATA"WEISSEN","[154]HELLBLAUEN","[153]HELLGRUENEN","WEISEN","[144]SCHWARZEN"
522 DATA"[152]GRAUEN","[129]ORANGEN","[150]HELLROTEN","[144]SCHWARZ-WEISSEN"
523 DATA"[159]F[156]AR[158]B[129]I[150]G[152]E[153]N","WEISS-GRUENEN"
600 DATA0,20,20,20,5,10,30,20,1000,10,5,5,20,20,20,20
800 DATA"[193]UF DEM [194]ODEN STEHT EINE GRUENE [198]LASCHE."
801 DATA"[214]OR DIR STEHT EIN ROSTIGER [203]AEFIG"
802 DATA"[218]WISCHEN ZWEI [211]TEINEN LIEGT EIN GLI-    TZENDER [218]AUBERSTAB"
803 DATA"[201]N DER [205]ITTE DES [210]AUMES SINGT EIN KLEI- NER [214]OGEL"
804 DATA"[201]N EINER [197]CKE LIEGT EINE [210]OLLE [196]YNAMIT"
805 DATA"[201]N EINER [214]ERTIEFUNG FINDEST DU EIN [203]AEN-NCHEN"
806 DATA"[193]M [194]ODEN IST EINE [207]ELPFUETZE"
807 DATA"[193]M [194]ODEN LIEGT EINE AUFGEROLLTE [218]UEND-  SCHNUR"
808 DATA"[200]INTER EINEM [211]TEIN VERSTECKT LIEGT EIN  [194]EIL"
809 DATA"[193]UF EINEM HERVORSTEHENDEN [211]TEIN SIEHST  DU EINE [208]ERLE"
810 DATA"[213]EBER DEM [194]ODEN VERTEILT LIEGT [194]LAUER   [211]TEIN"
811 DATA"[193]N EINEM [200]ACKEN AN DER [215]AND HAENGT EINE [210]UESTUNG"
812 DATA"[193]M [194]ODEN LIEGT VERSTREUTES [199]ELD"
813 DATA"[201]N EINER [205]ULDE AM [194]ODEN IST [194]ENZIN"
814 DATA"[201]N DER [205]ITTE DES [210]AUMS STEHT EIN GROSSER[203]ANISTER"
815 DATA"[201]N EINER [197]CKE LIEGT EINE [208]ISTOLE"
816 DATA"[193]M [194]ODEN IST EINE [215]ASSERPFUETZE"
817 DATA"[200]IER STEHT EIN [205]OTOR DER NOCH ZU GEHEN  SCHEINT"
818 DATA"[200]IER LIEGT ACHTLOS WEGGEWORFENES [204]AVEN- DEL"
819 DATA"[193]M [194]ODEN LIEGT EIN [194]UESCHEL [197]CHSENGRAS"
820 DATA"[193]N DER [215]AND ANGELEHNT STEHT EIN [194]OOT"
821 DATA"[193]M [194]ODEN LIEGEN GEFAELTE UND ZUGEHAUENE [194]AEUME"
822 DATA"[193]N EINER DER [193]USGAENGE LIEGT EINE [193]XT"
823 DATA"[200]IER HAT ES EINEN [194]UND [211]EILE VERSCHIE-  DENSTER LAENGE"
824 DATA"[193]N [194]ODEN LIEGT EIN [208]AAR [210]UDER"
825 DATA"[193]UF EINEM [211]TEIN LIEGT EIN NOCH GUELTIGES[194]ILLET"
826 DATA"[193]M [194]ODEN IST EINE [208]FUETZE"
827 DATA"[193]M [194]ODEN LIEGT EIN [211]TEINPULVERHAEUFCHEN"
828 DATA""
829 DATA"[197]INE [218]ERBROCHNE [198]LASCHE LIEGT AUF EINEM [211]TEIN"
830 DATA"[193]NGELEHNT AN DER [215]AND STEHT EIN [198]LOSS"
1000 DIMR$(87,3),R(87,8),G$(31),G(31),B$(38),S$(9),L$(8),F$(16),F(16),P(16)
1010 DIMGE$(31)
1020 FORI=1TO87:FORJ=1TO3:READR$(I,J):NEXT:NEXT
1040 FORI=1TO87:FORJ=1TO8:READR(I,J):NEXT:NEXT
1060 FORI=1TO31:READG$(I):NEXT:FORI=1TO31:READG(I):NEXT
1080 FORI=1TO9:READS$(I):NEXT:FORI=1TO38:READB$(I):NEXT
1100 S=1:KL=0:WE=0:HJ=0:SC=0:FORI=1TO8:READL$(I):NEXT
1200 FORI=1TO5:Z$=Z$+CHR$(INT(65+RND(1)*25)):NEXT
1220 R$(48,2)="[193]N DER [215]AND STEHT "+Z$
1300 FORI=1TO87:READR(I,0):NEXT:FORI=1TO16:READF$(I):NEXT
1320 FOR I=1TO16:F(I)=0:NEXT
1400 FORI=1TO16:READP(I):NEXT
1450 FOR I=1TO31:READGE$(I):NEXT
1470 GOSUB1800:GOTO3100
1500 PRINT"[147][196]U BIST IN EINER [200]OELE,DIE IN 16 VER-"
1502 PRINT"SCHIEDEN GROSSE [211]EKTOREN AUFGETEILT IST"
1504 PRINT"[196]AS [218]IEL IST DEN [211]TEIN DER [215]EISEN ZU"
1506 PRINT"FINDEN.[213]M ALLE [215]OERTER DIE ICH VERSTEHE"
1510 PRINT"ANZUSEHEN,DRUECKST DU DEN [194]EFEHL '[214]OC.'"
1512 PRINT"[215]ENN DU NICHT MEHR WEISST WO DU BIST"
1514 PRINT"DANN DRUECKST DU 'SCHAUEN'"
1516 PRINT"[213]M ZU GEHEN DRUECKST DU :"
1518 PRINT"     N-W  N  N-O"
1520 PRINT"      W       O"
1522 PRINT"     S-W  S  S-O"
1524 PRINT"[213]M DIESEN [212]EXT NOCHMALS ANZUSEHEN       KANNST DU JEDERZEIT '[201]NFO'";
1525 PRINT" EINTIPPEN"
1526 RETURN
1800 PRINT"[212]ASTENDRUCK":GOSUB26500:RETURN
2000 SC=SC+1:INPUT"[194]EFEHL ";A$
2020 FORI=1TO38:IFLEFT$(A$,4)=LEFT$(B$(I),4)THEN2060
2040 NEXT:PRINT"[214]ERSTEHE ICH NICHT":GOTO2000
2060 ONIGOTO3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000
2080 ONI-12GOTO15000,16000,17000,18000,19000,20000,21000,22000,23000,24000
2100 ONI-22GOTO25000,26100,27000,28000,29000,30000,31000,32000
2120 I=I-30: GOTO3040
3000 GOSUB1500:GOSUB1800:GOTO3100
3020 FOR I=1TO8:IFA$=L$(I)THEN3040
3030 NEXT:PRINT"[213]NKLARE [210]ICHTUNG":GOTO3000
3040 IFR(S,I)=0ORR(S,I)<-50THENPRINT"[200]IER GEHT ES NICHT WEITER":GOTO2000
3060 IFR(S,I)<0THEN3200
3080 S=R(S,I)
3100 PRINT"[147]"TAB(10)"[196]U BIST IM ":PRINTTAB(10)F$(R(S,0))" [211]EKTOR"
3102 F(R(S,0))=1
3105 PRINTS$(1):FORJ=1TO8:IFR(S,J)<>0THENPRINTS$(J+1)
3110 NEXT:PRINT"[154][196]U BIST "R$(S,1):PRINTR$(S,2)R$(S,3)
3120 FORJ=1TO31:IFG(J)=STHENPRINTGE$(J)
3130 NEXT:GOTO2000
3200 ON-R(S,I)GOTO3250,3300,3350,3400,3450,3500,3550,3600,3650,3700,3750,3800
3210 IFHJ=0THENPRINT"[196]ER [211]TEINHAGEL VERSPERRT DIR DEN [215]EG":GOTO2000
3220 G(12)=-1:HJ=0:S=72:GOTO3100
3250 PRINT"[213]M DURCH DEN [211]PIEGEL GEHEN ZU KOENNEN   MUSS MAN ZAUBERN":GOTO2000
3300 PRINT"[196]IE [211]CHLANGE VERSPERRT DIR DEN [215]EG":GOTO2000
3350 PRINT"[196]ER [196]RACHEN LAESST DICH NICHT DURCH":GOTO2000
3400 PRINT"[196]U BIST ABGESTUERZT UND BIST TOT":GOTO26000
3450 PRINT"[196]IE [212]UERE KLEMMT":GOTO2000
3500 PRINT"[196]IE [208]FLANZE IST ZU WENIG GROSS":GOTO2000
3550 PRINT"[196]ER [199]ANG IST VERSCHUETTET":GOTO2000
3600 PRINT"[196]IE [200]YDRA VERSPERRT DIR DEN [215]EG":GOTO2000
3650 PRINT"[196]U HAST DICH VERIRRT UND BIST VERHUNGERT":GOTO26000
3700 PRINT"[196]ER [203]ANAL WURDE SUMPFIGER.[196]U BLEIBST STECKEN":GOTO26000
3750 PRINT"[196]U BIST IM [212]REIBSAND ERSOFFEN":26000
3800 PRINT"[196]U BLEIBST IM [211]UMPF STECKEN":GOTO26000
4000 INPUT"[215]AS WILLST DU ABLEGEN ";A$
4010 FORI=1TO31:IFLEFT$(A$,4)=LEFT$(G$(I),4)THEN4030
4020 NEXT:PRINT"[203]ANNST DU NICHT ABLEGEN":GOTO2000
4030 IF G(I)<>0THEN4020
4035 IFI=16ANDER=1THEN4500
4050 G(I)=S:PRINT"[199]UT":GOTO2000
4500 PRINT"[196]IE [208]OLIZEI HAT AUF DIESEN [205]OMENT GEWAR-TET UM DICH FESTZUNEHMEN"
4520 GOTO26000
5000 IFHJ=1THEN PRINT"[196]U KANNST NICHTS NEHMEN":GOTO2000
5005 INPUT"[215]AS WILLST DU NEHMEN ";A$
5010 FORI=1TO31:IFLEFT$(A$,4)=LEFT$(G$(I),4)THEN5030
5020 NEXT:PRINT"[203]ANNST DU NICHT NEHMEN":GOTO2000
5030 IFG(I)<>STHEN5020
5040 IFI=4 THEN5100
5045 QW=0:FOR J=1TO31:IFG(J)=0THENQW=QW+1
5047 NEXT:IFQW>6THENPRINT"[196]U KANNST NICHTS MEHR TRAGEN ":GOTO2000
5050 G(I)=0:PRINT"[199]UT":GOTO2000
5100 IFG(2)=0THEN5050
5120 GOTO5020
6000 IFS<>5ANDS<>7ANDS<>36THENPRINT"[200]IER KANNST DU NICHTS ANGREIFEN":GOTO2000
6005 PRINT"[205]IT WAS WILLST DU ANGREIFEN  ODER VON   [200]AND  ":INPUTA$
6007 IFA$="[200]AND"THEN6200
6010 FORI=1TO31:IFLEFT$(A$,4)=LEFT$(G$(I),4)THEN6030
6020 NEXT:PRINT"[205]IT DEM KANNST DU NICHT ANGREIFEN":GOTO2000
6030 IFG(I)<>0THEN6020
6040 IFI<>4ORS<>5THEN6500
6050 PRINT"[196]ER [214]OGEL HAT DIE [211]CHLANGE VERTRIEBEN"
6060 R(5,2)=10:R(5,3)=9:R(5,4)=14:R$(5,3)="":GOTO2000
6200 IFS=7THENPRINT"[196]U HAST DEN [196]RACHEN BESIGT":R(7,1)=8:R$(7,3)="":GOTO2000
6220 IFS=36ANDG(29)=0THENPRINT"[196]IE [200]YDRA IST BESIGT":R(36,4)=37:R$(36,3)="":GOTO2000
6240 PRINT"[196]U WURDEST WAEHREND DES [203]AMPFES BESIEGT":GOTO26000
6500 PRINT"[196]IESE [215]AFFE WAR WIRKUNGSLOS.[196]U HAST SIE VERLOREN":G(I)=-1:GOTO2000
7000 IFS<>24ANDS<>20THENPRINT"[196]AS KANNST DU NICHT OEFFNEN":GOTO2000
7010 IFS=20THENPRINT"[196]IE [212]UERE KLEMMT":GOTO2000
7020 IFG(9)<>0THENPRINT"[196]U HAST DAS GEEIGNETE [215]ERKZEUG NICHT BEIDIR":GOTO2000
7040 PRINT"[196]IE [213]RNE IST OFFEN EINE [208]ERLE BEFINDET SICH DARIN "
7060 G(10)=24:G(9)=-1:GOTO2000
8000 IFG(17)<>0THENPRINT"[196]U HAST KEIN [215]ASSER":GOTO2000
8020 IFS<>21THENPRINT"[196]AS [215]ASSER VERSICKERT":G(17)=-1:GOTO2000
8040 KL=KL+1:IFKL=1THENPRINT"[196]IE [208]FLANZE IST EIN WENIG GEWACHSEN":G(17)=-1:GOTO2000
8060 PRINT"[196]IE [208]FLANZE HAT IHRE VOLLE [199]ROESSE ER-  REICHT"
8100 R(21,4)=22:GOTO2000
9000 IFS<>6ANDS<>11ANDS<>15ANDS<>10THEN9500
9020 IFS=6ORS=11THENS=87:GOTO3100
9040 PRINT"[196]IE [199]RUBE WAR ZU BREIT.[196]U BIST ABGE-    STUERTZT UND TOT":GOTO26000
9500 PRINT"[196]U HAST DIR AN DER [196]ECKE DEN [203]OPF ANGE- SCHLAGEN"
9520 IFG(1)=0THENG(1)=-1:G(30)=0
9540 GOTO2000
10000 IFS<>87THENPRINT"[196]IE [215]AENDE SIND ZU GLATT":GOTO2000
10010 S=11:GOTO3100
11000 IFG(7)<>0THENPRINT"[196]U HAST KEIN [207]EL":GOTO2000
11010 IFS<>20THENPRINT"[196]U HAST DIE [215]AND GEOELT":G(7)=-1:GOTO2000
11020 PRINT"[196]IE [212]UERE SPRINGT AUF":R(20,4)=28:G(7)=-1:GOTO2000
12000 IFG(21)<>0ANDG(31)<>0THENPRINT"[196][213] HAST KEIN [194]OOT":GOTO2000
12020 INPUT"[210]ICHTUNG ";A$
12025 FOR I=1TO8:IFA$=L$(I)THEN12040
12030 NEXT:PRINT"[213]NKLARE [210]ICHTUNG":GOTO12020
12040 IFR(S,I)=0THENPRINT"[200]IER GEHT ES NICHT WEITER":GOTO2000
12060 IFG(21)=0THENIFG(18)<>0ORG(14)<>0THEN12500
12080 IFG(31)=0THENIFG(25)<>0THEN12500
12100 IFR(S,I)=-85THEN12700
12120 S=-R(S,I):GOTO3100
12500 PRINT"[215]EGEN UNVOLLSTAENDIGER [193]USRUESTUNG BIST DU GEKENTERT UND ABGETRIEBEN"
12520 IFG(21)=0THENG(21)=-1
12540 IFG(31)=0THENG(31)=-1
12560 S=76:GOSUB26500:GOTO3100
12700 PRINT"[196]U BIST GEKENTERT UND ABGETRIEBEN":GOTO12520
13000 IFG(5)<>0THENPRINT"[196]U HAST KEIN [196]YNAMIT":GOTO2000
13020 IFS<>34THEN38000
13040 IFG(8)<>0THEN13800
13060 R(34,4)=35:PRINT"[199]UT":GOTO2000
13800 PRINT"[196]U HAST DICH IN DIE [204]UFT GESPRENGT":GOTO26000
14000 IFG(12)<>0 THENPRINT"[196]U KANNST NICHTS ANZIEHEN":GOTO2000
14020 QW=0:FOR J=1TO31:IFG(J)=0THENQW=QW+1
14060 NEXT:IFQW>1THENPRINT"[196]U MUSST ZUERST ALLES ABLEGEN":GOTO2000
14080 G(12)=-1:HJ=1:PRINT"[199]UT":GOTO2000
15000 IFS=58THENPRINT"[196]ER [194]ANKIE ZEIGT SICH NICHT VERSTAENDIG":GOTO2000
15020 IFS<>64THENPRINT"[200]IER KANNST DU NICHTS TAUSCHEN":GOTO2000
15040 IFG(10)<>0THENPRINT"[196]ER [211]CHWARZHAENDLER VERLANGT EINE [208]ERLE":GOTO2000
15060 PRINT"[196]ER [211]CHWARZHAENDLER HAT DIE [208]ERLE GEGEN EINE [208]ISTOLE EINGETAUSCHT"
15080 G(10)=-1:G(16)=0:GOTO2000
16000 IFS=64THENPRINT"[211]CHWARZHAENDLER HAT DICH ERSCHOSSEN":GOTO26000
16020 IFS=70ORS=72THENPRINT"[196]U WURDEST VERHAFTET":GOTO26000
16040 IFS=58THEN16100
16080 PRINT"[200]IER KANNST DU NICHTS UEBERFALLEN":GOTO2000
16100 IFG(16)<>0THENPRINT"[196]ER [194]ANKIER HAT DICH UEBERWAELTIGT":GOTO26000
16120 PRINT"[196]ER [213]EBERFALL IST DIR GELUNGEN":G(13)=0:ER=1:GOTO2000
17000 IFS<>70THENPRINT"[200]IER KANNST DU NICHTS VERSCHICKEN":GOTO2000
17020 IFG(13)<>0THENPRINT"[196]U HAST KEIN [199]ELD":GOTO2000
17040 PRINT"[193]LLES WAS DU BEI DIR HATTEST WURDE NACH [205]ASTHORN VERSCHICKT"
17060 G(13)=-1:FORJ=1TO31:IFG(J)=0THENG(J)=72
17080 NEXT:GOTO2000
18000 IFHJ=0THENPRINT"[196]U HAST NIE ETWAS ANGEZOGEN":GOTO2000
18020 HJ=0:G(12)=0:PRINT"[199]UT":GOTO2000
19000 IFG(22)<>0ORG(24)<>0THENPRINT"[196]U HAST NOCH NICHT ALLES ZUM [194]AU":GOTO2000
19020 G(24)=-1:G(22)=-1:G(31)=0:PRINT"[199]UT":GOTO2000
20000 IFS<>77THENPRINT"[200]IER KANNST DU NICHT KOCHEN":GOTO2000
20020 IFG(19)<>0ORG(20)<>0ORG(28)<>0THENPRINT"[196]IR FEHLEN [218]UTATEN":GOTO2000
20040 G(19)=-1:G(20)=-1:G(28)=-1:G(27)=0:PRINT"[196]ER [218]AUBERTRANK IST GEBRAUT"
20060 GOTO2000
21000 IFG(3)=0THENS=20:G(3)=-1:GOTO3100
21020 IFS<>4THENPRINT"[200]IER NUETZT ES NICHTS ZU ZAUBERN":GOTO2000
21040 INPUT"[218]AUBERWORT ";A$:IFA$<>Z$THENPRINT"[198]ALSCH":GOTO2000
21060 PRINT"[196]ER [218]AUBERSPIEGEL OEFFNET SICH":R(4,2)=6:GOTO2000
22000 IFS<>71THENPRINT"[200]IER HAT ES KEINE [205]UEHLE":GOTO2000
22020 IFG(11)<>0THENPRINT"[200]IER KANN MAN NICHTS SOLCHIGES MAHLEN":GOTO2000
22040 G(11)=-1:G(28)=0:PRINT"[199]UT"
22060 GOTO2000
23000 IFS<>76THENPRINT"[200]IER HAT ES KEINE [194]AEUME":GOTO2000
23020 IFG(23)<>0THENPRINT"[196]IR FEHLT DAS [215]ERKZEUG DAZU":GOTO2000
23040 G(22)=0:PRINT"[199]UT":GOTO2000
24000 FORJ=1TO30STEP2:PRINTB$(J)TAB(20)B$(J+1):NEXT:GOTO2000
25000 FORJ=1TO31:IFG(J)=0THENPRINTG$(J)
25020 NEXT:GOTO2000
26000 IFYU=0THENPRINT"[201]CH GEBE DIR NOCHMALS EINE [195]HANCE":GOSUB26500:YU=1:GOTO3100
26020 PRINT"[212]ASTENDRUCK ":GOSUB26500
26100 ZX=0:DF=0:FORJ=1TO16:ZX=ZX+F(J):DF=DF+P(J)*F(J):NEXT
26120 PRINT"[147][196]U HAST "ZX" [211]EKTOREN VON 16 BETRETEN"
26140 PRINT"[197]RREICHTE [208]UNKTZAHL "DF-.1*SC"
26160 [153]"(null)ILLST DU ES NOCHMALS VERSUCHEN J/N":[141]26500
26180 [139]A$[178]"J"[167][138]
26200 [128]
26500 [161]A$:[139]A$[178]""[167]26500
26520 [142]
27000 [139]S[178]18[167]27500
27020 [139]S[179][177]16[167][153]"STR$U KANNST HIER NICHTS FUELLEN":[137]2000
27040 [139]G(1)[179][177]0[167][153]"STR$U HAST KEIN CHR$EFAESS":[137]2000
27060 G(17)[178]0:[153]"CHR$UT":[137]2000
27500 [139]G(6)[179][177]0[167][153]"STR$U HAST KEIN CHR$EFAESS":[137]2000
27520 G(7)[178]0:[153]"CHR$UT":[137]2000
28000 [139]S[179][177]49[167][153]"LEFT$IER KANNST DU NICHT TANKEN":[137]2000
28020 [139]G(15)[179][177]0[167][153]"STR$U HAST KEIN CHR$EFAESS":[137]2000
28040 G(14)[178]0:[153]"CHR$UT":[137]2000
29000 [139]S[179][177]75[167][153]"LEFT$IER KANNST DU NICHT EINSTEIGEN":[137]2000
29020 [139]G(26)[179][177]0[167][153]"LEFT$IER DARFST DU NICHT SCHWARZ FAHREN":[137]2000
29040 S[178]1:[137]3100
30000 [137]3100
31000 [153]"CHR$UT":[137]2000
32000 [139]S[178]9[167][153]"STR$U BIST EIN VERSOFFENER (null)ACK":[137]2000
32010 [139]G(27)[179][177]0[167][153]"STR$U HAST NICHTS ZUM TRINKEN":[137]2000
32020 G(27)[178][171]1:G(29)[178]0:[153]"CHR$UT":[137]2000