Mercurial > midds

annotate Midds_reco.bas @ 1:130ab9a4fd83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
begin of the recoding of the old Midds
author meillo@marmaro.de
date Mon, 03 Sep 2007 14:19:39 +0200
parents
children 53d9408c7cdb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1 '============================================================================'
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
2 ' '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
3 ' '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
4 ' M M '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
5 ' MM MM I D D '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
6 ' M M M M I D D '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
7 ' M M M M D D '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
8 ' M M M M D D '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
9 ' M M M M I DDDDD D DDDDD D SSSSS '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
10 ' M M M M I D DD D DD S S '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
11 ' M M M I D D D D S '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
12 ' M M I D D D D S '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
13 ' M M I D D D D SSSS '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
14 ' M M I D D D D S '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
15 ' M M I D D D D S '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
16 ' M M I D DD D DD S S '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
17 ' M M I DDDDD D DDDDD D SSSSS '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
18 ' '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
19 ' '
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
20 '============================================================================'
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
21
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
22
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
23
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
24 'Midds'
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
25
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
26
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
27 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
28 LOCATE 13, 6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
29 COLOR 15
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
30 PRINT "*** Mord in der Dorfstrasse ***"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
31 'LINE (20, 60)-(300, 140), 2, B
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
32 LOCATE 24, 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
33 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
34 PRINT "(c) Copyright 1999 Elefant Software"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
35 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
36 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
37
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
38
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
39 name1$ = "John Howell"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
40
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
41
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
42
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
43 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
44 COLOR 6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
45 PRINT "Dies ist ein Kriminalspiel,"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
46 PRINT "das die grauen Zellen fordert."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
47 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
48 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
49
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
50
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
51
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
52 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
53 GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
54 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
55 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
56
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
57
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
58
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
59 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
60 COLOR 6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
61 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
62 PRINT "Druecke 'q' um das Spiel zu beenden."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
63 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
64 PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
65 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
66 PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
67 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
68 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
69
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
70
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
71 X:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
72 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
73 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
74 LOCATE 13, 6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
75 COLOR 6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
76 PRINT "So jetzt geht's endlich los!!!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
77 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
78 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
79 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
80 GOTO 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
81
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
82
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
83
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
84
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
85
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
86 1 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
87 '''''''''' Vor dem Haus '''''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
88 zuege = 0
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
89 a1:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
90 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
91 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
92 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
93 PRINT "Du heisst "; name1$; " und bist"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
94 PRINT "Privatdetektiv. Du wurdest von "
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
95 PRINT "Herr Fisch angerufen um einen Mord"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
96 PRINT "aufzuklaeren."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
97 PRINT "Natuerlich bist du sofort in deinen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
98 PRINT "Renault 19 gestiegen und losgefahren."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
99 PRINT "Jetzt stehst du vor Haus Nummer 6"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
100 PRINT "in der Dorfstrasse."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
101 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
102 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
103 INPUT "(Vor dem Haus) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
104 zuege% = zuege% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
105 IF B$ = "benutzen Klingel" GOTO 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
106 IF B$ = "oeffnen Tuer" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
107 IF B$ = "oeffnen Tuer" THEN SLEEP
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
108 IF B$ = "oeffnen Tuer" GOTO a1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
109 IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde Haeuser betreten."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
110 IF B$ = "gehen in Haus" THEN SLEEP
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
111 IF B$ = "gehen in Haus" GOTO a1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
112 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
113 IF B$ = "gehen Heim" GOTO a1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
114 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
115 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
116 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
117 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
118 PRINT "Noe!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
119 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
120 IF zuege% = 5 THEN GOTO a
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
121 IF zuege% = 9 THEN GOTO B
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
122 IF zuege% = 9 THEN GOTO 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
123 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
124 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
125 GOTO a1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
126
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
127 a:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
128 COLOR 4
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
129 PRINT " Tipp: benutzen ..."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
130 SLEEP
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
131 GOTO a1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
133 B:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
134 COLOR 4
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
135 PRINT " Loesung: benutzen Klingel"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
136 SLEEP
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
137 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
138 GOTO 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
139
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
140
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
141
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
142
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
143
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
144
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
145
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
146 2 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
147 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
148 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
149 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
150 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
151 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
152 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
153
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
154 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
155 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
156 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
157 PRINT "Flur"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
158 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
159 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
160 zuege% = 0
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
161 GOTO 3
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
162
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
163
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
164
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
165
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
166 3 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
167 '''''''' Flur '''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
168 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
169 IF kerzenst% = 1 GOTO 116
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
170 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
171 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
172 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
173 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
174 INPUT "(Flur) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
175 zuege% = zuege% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
176 IF B$ = "sprechen mit Herr Fisch" GOTO 4
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
177 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
178 IF B$ = "umschauen" GOTO 117
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
179 IF B$ = "untersuchen Flur" GOTO 117
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
180 IF B$ = "gehen in Schlafzimmer" GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
181 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
182 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
183 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
184 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
185 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
186 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
187 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
188 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
189 PRINT "Keine Lust!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
190 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
191 IF zuege% = 6 THEN GOTO c
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
192 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
193 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
194 GOTO 3
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
195
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
196 c:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
197 COLOR 4
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
198 PRINT "Tipp: sprechen mit ..."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
199 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
200 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
201 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
202 GOTO 3
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
203
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
204
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
205
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
206
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
207 4 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
208 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
209 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
210 PRINT "A: Ich heisse "; name1$; "."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
211 PRINT "B: Wo ist die Leiche?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
212 PRINT "C: Wie heisst der Tote?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
213 PRINT "D: Ende."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
214 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
215 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
216 INPUT "Was sagst du?", s$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
217 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
218 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
219 IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
220 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
221 IF s$ = "B" THEN SLEEP
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
222 IF s$ = "B" GOTO 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
223 IF s$ = "C" THEN PRINT "Karl Mueller."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
224 IF s$ = "D" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
225 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
226 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
227 GOTO 4
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
228
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
229
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
230
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
231
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
232
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
233 5 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
234 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
235 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
236 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
237 PRINT "A: Ich heisse "; name1$; ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
238 PRINT "B: Wo ist die Leiche?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
239 PRINT "C: Wie heisst der Tote?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
240 PRINT "D: Wo ist das Schlafzimmer?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
241 PRINT "E: Ende"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
242 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
243 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
244 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
245 INPUT "Was sagst du?", s$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
246 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
247 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
248 IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
249 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
250 IF s$ = "C" THEN PRINT "Karl Mueller."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
251 IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
252 IF s$ = "E" THEN GOTO 6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
253 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
254 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
255 GOTO 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
256
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
257
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
258
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
259
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
260
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
261 6 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
262 ''''''' Flur ''''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
263 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
264 zuege% = 0
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
265 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
266 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
267 PRINT "Flur"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
268 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
269 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
270 a6:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
271 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
272 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
273 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
274 IF kerzenst% = 1 GOTO 116
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
275 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
276 INPUT "(Flur) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
277 zuege% = zuege% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
278 IF B$ = "sprechen mit Herr Fisch" GOTO 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
279 IF B$ = "gehen in Schlafzimmer" GOTO 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
280 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
281 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
282 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
283 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
284 IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuss!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
285 IF B$ = "gehen Heim " GOTO a6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
286 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
287 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
288 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
289 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
290 PRINT "Nee!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
291 IF zuege = 5 GOTO d
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
292 GOTO a6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
293
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
294
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
295 d:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
296 COLOR 4
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
297 PRINT "gehen in ..."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
298 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
299 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
300 GOTO a6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
301
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
302
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
303
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
304
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
305
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
306
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
307
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
308 7 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
309 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
310 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
311 PRINT "Die Leiche, ein etwa 20 Jahre alter"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
312 PRINT "Mann, liegt mit einem Messer im Ruecken"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
313 PRINT "auf dem Bett. Ich decke die Leiche"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
314 PRINT "als erstes mit einem Tuch ab und rufe"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
315 PRINT "mit meinem Handy Tina an. Tina ist"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
316 PRINT "Spezialistin fuer Fingerabdruecke."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
317 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
318 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
319 GOTO 8
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
320
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
321
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
322
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
323
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
324
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
325
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
326 8 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
327 ''''''' Schlafzimmer '''''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
328 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
329 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
330 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
331 INPUT "(Schlafzimmer) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
332 IF B$ = "gehen in Flur" GOTO 103
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
333 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
334 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
335 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
336 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
337 IF B$ = "umschauen" GOTO 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
338 IF B$ = "untersuchen Schlafzimmer" GOTO 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
339 IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
340 IF B$ = "oeffnen Aktenschrank" GOTO 101
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
341 IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
342 IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Strasse."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
343 IF B$ = "untersuchen Bett" GOTO 100
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
344 IF B$ = "nehmen Taschenlampe" GOTO e
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
345 IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
346 IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
347 IF B$ = "sprechen mit Tina" THEN PRINT "Die stoere ich lieber nicht bei der Arbeit."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
348 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
349 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
350 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
351 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
352 PRINT "Nein"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
353 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
354 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
355 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
356 GOTO 8
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
357
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
358
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
359
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
360
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
361 e:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
362 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
363 LOCATE 11, 22
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
364 PRINT "Du hast die Taschenlampe genommen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
365 tlampe% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
366 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
367 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
368 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
369 GOTO 8
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
370
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
371
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
372
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
373
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
374
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
375 9 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
376 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
377 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
378 PRINT "In der Mitte steht das Bett, ueber dem"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
379 PRINT "Bett haengt ein Poster, auf der"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
380 PRINT "linken Seite befindet sich ein Schrank"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
381 PRINT "und an der rechten Wand ist ein Fenster."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
382 IF vvx% = 1 THEN PRINT "Tina sichert gerade"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
383 IF vvx% = 1 THEN PRINT "die Fingerabdruecke."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
384 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
385 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
386 GOTO 8
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
387
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
388
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
389
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
390
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
391
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
392 100 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
393 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
394 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
395 PRINT "Unter dem Bett liegt eine Taschenlampe."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
396 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
397 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
398 GOTO 8
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
399
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
400
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
401
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
402
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
403
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
404 101 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
405 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
406 versuch% = 0
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
407 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
408 PRINT "Hinter den Ordnern ist ein Geheimfach"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
409 PRINT "mit einem dreistelligen Zahlenschloss."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
410 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
411 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
412 a101:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
413 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
414 versuch% = versuch% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
415 COLOR 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
416 INPUT "Wie lautet die Kombination?", k$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
417 IF k$ = "000" THEN PRINT "War wohl falsch."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
418 IF k$ = "007" GOTO 102
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
419 IF k$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
420 PRINT "Komm streng dich ein bischen an!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
421 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
422 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
423 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
424 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
425 GOTO a101
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
426
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
427
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
428
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
429
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
430 102 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
431 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
432 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
433 PRINT "Bravo, du hast echt gut kombiniert."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
434 PRINT "In dem Geheimfach befindet sich ein Schluessel."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
435 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
436 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
437
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
438
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
439
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
440
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
441 F:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
442 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
443 PRINT "Du hast den Schluessel genommen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
444 schluessel% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
445 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
446 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
447 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
448 GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
449
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
450
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
451
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
452
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
453
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
454 103 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
455 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
456 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
457 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
458 PRINT "Flur"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
459 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
460 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
461 GOTO 104
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
462
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
463
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
464
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
465
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
466
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
467 104 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
468 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
469 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
470 PRINT "Links geht es die Treppe zum Schlafzimmer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
471 PRINT "hinauf, gerade aus geht's ins Esszimmer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
472 PRINT " und rechts ins Arbeitszimmer."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
473 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
474 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
475 GOTO a6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
476
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
477
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
478
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
479
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
480
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
481 105 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
482 '''''''' Arbeitszimmer '''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
483 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
484 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
485 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
486 PRINT "Arbeitszimmer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
487 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
488 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
489 a105:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
490 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
491 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
492 INPUT "(Arbeitszimmer) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
493 IF B$ = "gehen in Schlafzimmer" GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
494 IF B$ = "gehen in Flur" GOTO 103
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
495 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
496 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
497 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
498 IF B$ = "umschauen" GOTO 107
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
499 IF B$ = "untersuchen Arbeitszimmer" GOTO 107
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
500 IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
501 IF B$ = "untersuchen Buecherregal" GOTO 122
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
502 IF B$ = "untersuchen Buch" THEN PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
503 IF B$ = "nehmen Buch" GOTO 124
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
504 IF B$ = "benutzen Schluessel" THEN PRINT "Das Schluesselschloss waere geknackt."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
505 IF B$ = "benutzen Schluessel" THEN sx% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
506 IF B$ = "benutzen Schluessel" GOTO 138
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
507 IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
508 IF B$ = "z" GOTO 125
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
509 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
510 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
511 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
512 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
513 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
514 PRINT "Heute nicht!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
515 GOTO a105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
516
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
517
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
518
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
519
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
520
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
521 107 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
522 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
523 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
524 PRINT "In der Mitte steht ein Schreibtisch,"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
525 PRINT "rechts befindet sich ein Schrank und"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
526 PRINT "links ein Buecherregal."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
527 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
528 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
529 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
530
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
531
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
532
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
533
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
534
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
535 106 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
536 '''''' Esszimmer ''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
537 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
538 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
539 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
540 PRINT "Esszimmer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
541 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
542 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
543 a106:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
544 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
545 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
546 INPUT "(Esszimmer) Was machst du?", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
547 IF B$ = "gehen in Schlafzimmer" GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
548 IF B$ = "gehen in Flur" GOTO 103
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
549 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
550 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
551 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
552 IF B$ = "umschauen" GOTO 108
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
553 IF B$ = "untersuchen Esszimmer" GOTO 108
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
554 IF B$ = "untersuchen Tisch" GOTO 110
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
555 IF B$ = "nehmen Kerzenstaender" GOTO 115
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
556 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
557 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
558 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
559 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
560 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
561 GOTO a106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
562
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
563
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
564
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
565
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
566
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
567
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
568 108 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
569 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
570 PRINT "In der Mitte steht der Tisch und auf"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
571 PRINT "der rechten Seite ist die Tuer zur Kueche."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
572 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
573 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
574 GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
575
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
576
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
577
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
578
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
579
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
580 110 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
581 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
582 PRINT "Ein schoener eichener Tisch mit einer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
583 PRINT "gehaekelten Tischdecke und einem"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
584 PRINT "Kerzenstaender in der Mitte."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
585 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
586 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
587 GOTO a106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
588
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
589
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
590
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
591
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
592
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
593 109 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
594 '''''''' Kueche '''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
595 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
596 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
597 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
598 PRINT "Kueche"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
599 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
600 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
601 a109:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
602 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
603 INPUT "(Kueche) Was machst du?", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
604 IF B$ = "gehen in Schlafzimmer" GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
605 IF B$ = "gehen in Flur" GOTO 103
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
606 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
607 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
608 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
609 IF B$ = "umschauen" GOTO 111
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
610 IF B$ = "untersuchen Kueche" GOTO 111
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
611 IF B$ = "untersuchen Kuechenschrank" GOTO 112
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
612 IF B$ = "oeffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
613 IF B$ = "nehmen Messer" GOTO 113
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
614 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
615 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
616 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
617 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
618 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
619 GOTO a109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
620
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
621
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
622
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
623
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
624
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
625 111 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
626 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
627 PRINT "Links ist die Kochzeile, in der Mitte"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
628 PRINT "ein kleiner Tisch mit zwei Stuehlen und"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
629 PRINT "rechts der Kuechenschrank."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
630 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
631 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
632 GOTO a109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
633
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
634
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
635
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
636
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
637
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
638 112 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
639 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
640 PRINT "Es ist nichts Ausergewoehnliches daran"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
641 PRINT "zu erkennen, nur eine Schublade in der"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
642 PRINT "es bestimmt Interesantes zu entdecken gibt."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
643 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
644 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
645 GOTO a109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
646
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
647
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
648
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
649
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
650
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
651 113 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
652 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
653 PRINT "Du hast das Messer genommen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
654 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
655 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
656 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
657 messer% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
658 GOTO a109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
659
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
660
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
661
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
662
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
663 114 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
664 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
665 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
666 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
667 PRINT "Schlafzimmer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
668 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
669 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
670 GOTO 8
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
671
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
672
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
673
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
674
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
675
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
676 115 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
677 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
678 PRINT "Du hast den Kerzenstaender genommen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
679 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
680 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
681 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
682 kerzenst% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
683 GOTO a106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
684
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
685
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
686
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
687
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
688
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
689
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
690 116 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
691 ''''''''' Flur '''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
692 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
693 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
694 INPUT "(Flur) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
695 zuege% = zuege% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
696 IF B$ = "gehen in Schlafzimmer" GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
697 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
698 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
699 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
700 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
701 IF B$ = "sprechen mit Herr Fisch" GOTO 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
702 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
703 IF B$ = "umschauen" GOTO 117
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
704 IF B$ = "untersuchen Flur" GOTO 117
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
705 IF B$ = "sprechen mit Tina" GOTO 118
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
706 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
707 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
708 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
709 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
710 PRINT "Keine Lust!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
711 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
712 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
713 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
714 GOTO 116
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
715
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
716
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
717
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
718
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
719
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
720 117 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
721 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
722 IF kerzenst% = 0 GOTO 121
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
723 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
724 PRINT "gerade aus geht's ins Esszimmer und rechts ins"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
725 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
726 PRINT "gerade klingelt es an der Tuer. Herr Fisch macht"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
727 PRINT "auf und Tina kommt herein."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
728 vvv% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
729 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
730 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
731 GOTO 116
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
732
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
733
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
734
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
735
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
736
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
737 118 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
738 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
739 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
740 PRINT "A: Schoen, dass du so schnell gekommen bist."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
741 PRINT "B: Der Tote liegt im Schlafzimmer."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
742 PRINT "C: Ende."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
743 LOCATE 8, 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
744 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
745 INPUT "Was sagst du?", s$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
746 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
747 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
748 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
749 IF s$ = "B" GOTO 119
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
750 IF s$ = "C" GOTO 116
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
751 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
752 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
753 GOTO 118
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
754
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
755
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
756
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
757
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
758
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
759 119 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
760 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
761 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
762 PRINT "Okay, aber wo ist das Schlafzimmer?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
763 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
764 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
765 GOTO 120
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
766
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
767
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
768
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
769
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
770
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
771 120 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
772 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
773 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
774 PRINT "Welchen Weg beschreibst du ihr?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
775 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
776 PRINT "a: Links die Treppe hinauf."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
777 PRINT "b: Rechts die Treppe hinunter."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
778 PRINT "c: Die Treppe hinauf, dann links."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
779 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
780 INPUT "a, b oder c?", w$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
781 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
782 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
783 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
784 IF w$ = "c" THEN cheat1 = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
785 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
786 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
787 vvx% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
788 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
789 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
790 GOTO 116
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
791
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
792
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
793
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
794
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
795
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
796
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
797 121 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
798 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
799 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
800 PRINT "Links geht es die Treppe zum Schlafzimmer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
801 PRINT "hinauf, gerade aus geht's ins Esszimmer und"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
802 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
803 PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
804 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
805 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
806 GOTO 116
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
807
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
808
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
809
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
810
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
811
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
812 122 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
813 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
814 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
815 IF vvx% = 1 GOTO 123
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
816 PRINT "Ich sehe nichts Besonderes."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
817 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
818 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
819 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
820
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
821
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
822
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
823
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
824
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
825 123 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
826 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
827 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
828 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
829 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
830 PRINT "ich mir genauer anschauen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
831 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
832 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
833 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
834
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
835
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
836
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
837
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
838
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
839 124 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
840 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
841 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
842 PRINT "Das Buch laesst sich nur halb heraus ziehen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
843 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
844 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
845 PRINT "Sie ist durch ein Schluessel- und ein "
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
846 PRINT "Zahlenschloss gesichert."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
847 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
848 COLOR 6
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
849 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
850 PRINT "die Zahlenkombination eingeben."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
851 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
852 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
853 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
854
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
855
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
856
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
857
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
858
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
859 125 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
860 zkx% = 0
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
861 a125:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
862 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
863 zkx% = zkx% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
864 COLOR 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
865 INPUT "Wie lautet die Kombination?", zk$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
866 IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
867 IF zk$ = "123" GOTO 126
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
868 IF zk$ = "q" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
869 PRINT "Leider falsch. Probier's noch einmal."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
870 IF zkx% = 5 THEN PRINT "Tipp: Das Buecherregal."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
871 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
872 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
873 GOTO a125
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
874
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
875
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
876
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
877
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
878
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
879
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
880 126 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
881 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
882 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
883 PRINT "Die Kombination war richtig."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
884 kx% = 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
885 IF sx% = 1 GOTO 137
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
886 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
887 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
888 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
889 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
890
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
891
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
892
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
893
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
894
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
895 137 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
896 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
897 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
898 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
899 PRINT "sich ein Geheimgang."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
900 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
901 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
902 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
903
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
904
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
905
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
906
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
907
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
908
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
909 138 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
910 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
911 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
912 IF kx% = 1 GOTO 137
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
913 PRINT "Jetzt musst du nur noch die Kombination knacken."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
914 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
915 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
916 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
917
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
918
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
919
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
920
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
921
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
922
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
923 127 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
924 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
925 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
926 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
927 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
928 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
929 IF tlampe% = 0 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
930 1000 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
931 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
932 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
933 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
934 PRINT "Geheimgang"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
935 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
936 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
937 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
938 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
939 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
940 PRINT "Oh, es geht steil bergab .... ich muss schon"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
941 PRINT "mindestens 5 Meter unter der Erdoberflaeche"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
942 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
943 PRINT "unterwegs ..... da vorne kommt eine Tuer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
944 PRINT "genau so gesichert wie die hinter dem Regal"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
945 PRINT "gut, dass ich den Schluessel habe und den"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
946 PRINT "Code kenne ..... Wo bin ich denn jetzt?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
947 PRINT "Sieht aus, wie der Keller eines Hauses"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
948 PRINT "ist aber ganz schoen zerfallen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
949 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
950 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
951 GOTO 130
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
952
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
953
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
954
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
955
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
956
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
957
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
958 130 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
959 '''''''''' Keller '''''''''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
960 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
961 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
962 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
963 PRINT "Keller"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
964 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
965 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
966 a130:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
967 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
968 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
969 INPUT "(Keller) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
970 zuege% = zuege% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
971 IF B$ = "gehen in Flur" GOTO 103
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
972 IF B$ = "gehen in Schlafzimmer" GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
973 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
974 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
975 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
976 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
977 IF B$ = "sprechen mit Herr Fisch" GOTO 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
978 IF B$ = "umschauen" GOTO 128
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
979 IF B$ = "untersuchen Keller" GOTO 128
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
980 IF B$ = "benutzen Treppe" GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
981 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
982 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
983 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
984 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
985 PRINT "Jetzt nicht."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
986 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
987 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
988 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
989 GOTO a130
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
990
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
991
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
992
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
993
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
994
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
995
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
996 128 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
997 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
998 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
999 PRINT "Ein zerfallener Keller, alles verstaubt."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1000 PRINT "Gerade aus geht eine Treppe nach oben."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1001 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1002 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1003 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1004 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1005 GOTO 130
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1006
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1007
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1008
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1009
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1010
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1011 131 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1012 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1013 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1014 PRINT "In der Lagerhalle ist alles genau so"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1015 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1016 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1017 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1018 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1019 RETURN
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1020
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1021
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1022
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1023
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1024
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1025
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1026 132 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1027 '''''''' Lagerhalle '''''''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1028 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1029 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1030 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1031 PRINT "Lagerhalle"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1032 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1033 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1034 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1035 a132:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1036 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1037 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1038 INPUT "(Lagerhalle) Was machst du? ", B$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1039 zuege% = zuege% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1040 IF B$ = "gehen in Schlafzimmer" GOTO 114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1041 IF B$ = "gehen in Arbeitszimmer" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1042 IF B$ = "gehen in Esszimmer" GOTO 106
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1043 IF B$ = "gehen in Kueche" GOTO 109
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1044 IF B$ = "umschauen" THEN GOSUB 131
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1045 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1046 IF B$ = "oeffnen Tuer" GOTO 133
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1047 IF B$ = "untersuchen Kartons" THEN GOSUB 134
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1048 IF B$ = "benutzen Messer" GOTO 136
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1049 IF B$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1050 IF B$ = "i" THEN GOSUB inventar
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1051 IF B$ = "b" THEN GOSUB befehle
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1052 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1053 PRINT "Noe!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1054 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1055 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1056 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1057 GOTO a132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1058
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1059
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1060
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1061
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1062
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1063 133 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1064 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1065 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1066 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1067 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1068 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1069 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1070 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1071 PRINT "Jetzt ist schnelles Handeln wichtig!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1072 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1073 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1074 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1075 a133:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1076 COLOR 7
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1077 INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1078 v% = v% + 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1079 IF v$ = "leerem Karton" GOTO 135
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1080 IF v$ = "leerer Karton" GOTO 135
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1081 IF v$ = "leere Kartons" GOTO 135
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1082 IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1083 IF v$ = "Geheimgang" THEN PRINT "Dafuer reicht die Zeit nicht."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1084 IF v$ = "Keller" THEN PRINT "Dafuer reicht die Zeit nicht."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1085 IF v$ = "umschauen" THEN GOSUB 131
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1086 IF v$ = "untersuchen Lagerhalle" THEN GOSUB 131
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1087 IF v$ = "untersuchen Kartons" THEN GOSUB 134
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1088 IF v$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1089 IF v% = 9 THEN PRINT "Tipp: l..... K....."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1090 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1091 PRINT "Da habe ich zu wenig Zeit dafuer."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1092 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1093 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1094 GOTO a133
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1095
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1096
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1097
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1098
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1099
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1100
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1101 134 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1102 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1103 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1104 PRINT "Auf der linken Seite sind die vollen Kartons"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1105 PRINT "gestapelt und rechts liegen die leeren auf"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1106 PRINT "einem Haufen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1107 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1108 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1109 RETURN
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1110
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1111
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1112
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1113
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1114
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1115
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1116 135 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1117 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1118 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1119 PRINT "Das ist eine gute Idee. Ich mache mich"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1120 PRINT "sofort an die Arbeit. Raschel, raschel"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1121 PRINT "... uff ... so ... geich ... jetzt ..."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1122 PRINT "Okay ich hab's geschafft. Jetzt kann"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1123 PRINT "ich nur nichts mehr sehen. Ich sollte"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1124 PRINT "mir ein Loch zum Rausschauen in den"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1125 PRINT "Karton reissen. So ... uff, der ist zu"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1126 PRINT "stabil, da brauche ich ein Werkzeug dazu."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1127 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1128 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1129 GOTO 132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1130
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1131
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1132
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1133
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1134
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1135
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1136 136 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1137 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1138 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1139 IF messer% = 0 THEN
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1140 PRINT "Ich habe kein Messer."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1141 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1142 PRINT "halben Stunde geht der Typ wieder. Ich"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1143 PRINT "begebe mich sofort zurueck ins Haus. So"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1144 PRINT "schlecht vorbereited begebe ich mich nicht"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1145 PRINT "wieder in Gefahr."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1146 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1147 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1148 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1149 GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1150 END IF
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1151
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1152 PRINT "Gute Idee, das mit dem Messer. Der Typ"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1153 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1154 PRINT "Er steigt aus und macht die Hecktueren auf."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1155 PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1156 PRINT "schliesst die Tueren, steigt wieder ein und"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1157 PRINT "faehrt hinaus."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1158 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1159 PRINT "zurueck ins Haus."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1160 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1161 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1162 GOTO 139
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1163
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1164
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1165
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1166
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1167
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1168
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1169
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1170
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1171 139 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1172 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1173 PRINT "Was machst du?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1174 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1175 PRINT "a: nach Hause gehen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1176 PRINT "b: noch da bleiben"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1177 PRINT "c: nochmal in die Lagerhalle gehen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1178 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1179 INPUT "Und wie entscheidest du dich?", entscheidung$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1180 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1181 IF entscheidung$ = "a" GOTO 140
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1182 IF entscheidung$ = "b" GOTO 105
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1183 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1184
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1185
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1186
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1187
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1188
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1189
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1190
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1191 140 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1192 ''''''' Zuhause '''''''
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1193 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1194 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1195 COLOR 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1196 PRINT "Zuhause"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1197 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1198 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1199 a140:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1200 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1201 PRINT "Du willst dir gerade einen Tee machen, als"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1202 PRINT "Du einen Schlag an der Tuer hoerst und das"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1203 PRINT "Licht aus geht."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1204 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1205 PRINT "Was machst du?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1206 PRINT "a: die Tuer oeffnen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1207 PRINT "b: die Polizei anrufen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1208 PRINT "c: dich unter dem Bett verstecken"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1209 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1210 INPUT "Und?", w$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1211 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1212 IF w$ = "a" GOTO 141
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1213 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1214 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1215 GOTO a140
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1216
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1217
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1218
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1219
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1220
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1221
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1222
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1223 141 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1224 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1225 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1226 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1227 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1228 PRINT "Du siehst gerade noch ein Auto"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1229 PRINT "wegfahren. "
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1230 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1231 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1232 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1233 LOCATE 17, 17
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1234 COLOR 15
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1235 PRINT "KA GR 48"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1236 SLEEP 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1237 GOTO 142
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1238 142 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1239 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1240 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1241 PRINT "In deiner Tuer steckt ein Messer mit"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1242 PRINT "einer Botschaft. Du liest sie natuerlich"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1243 PRINT "sofort."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1244 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1245 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1246 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1247 COLOR 11
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1248 LOCATE 10, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1249 PRINT "Wenn du dich einmischst"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1250 LOCATE 15, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1251 PRINT "dann bist du T O T !!!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1252 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1253 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1254 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1255 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1256 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1257 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1258 PRINT "Diese Botschaft war ernst gemeint."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1259 PRINT "Aber als Privatdetektiv musst du dich"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1260 PRINT "halt ueber solche Morddrohungen hinweg-"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1261 PRINT "setzen. Deshalb rufst du sofort die"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1262 PRINT "Polizei an."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1263 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1264 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1265 GOTO 143
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1266 143 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1267 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1268 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1269 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1270 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1271 PRINT "Laenger. Was kann ich fuer Sie tun?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1272 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1273 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1274 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1275 PRINT "a: Ich moechte Anzeige gegen einen Mann"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1276 PRINT " in einem gruenen Auto erstatten."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1277 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1278 PRINT "b: Ich moechte eine Pizza essen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1279 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1280 PRINT "c: Ich moechte, dass Sie einen Mann"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1281 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1282 PRINT " in einem gruenen Auto verhaften."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1283 LOCATE 20, 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1284 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1285 INPUT "Was antwortest du? (a,b,c)", a$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1286 IF a$ = "a" THEN GOTO 144
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1287 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1288 IF a$ = "c" THEN GOTO 144
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1289 IF a$ = "q" THEN END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1290 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1291 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1292 GOTO 143
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1293
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1294
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1295
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1296
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1297
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1298
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1299
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1300 144 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1301 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1302 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1303 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1304 PRINT "Wie heisst der Mann denn?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1305 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1306 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1307 PRINT "a: Karl von Burlafingen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1308 PRINT "b: Regideur Eklansch."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1309 PRINT "c: Ich kenne seinen Namen nicht."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1310 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1311 INPUT "Wie heisst er? (a,b,c)", w$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1312 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1313 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1314 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1315 IF w$ = "c" GOTO 145
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1316 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1317 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1318 GOTO 144
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1319
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1320
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1321
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1322
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1323
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1324
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1325 145 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1326 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1327 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1328 COLOR 9
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1329 PRINT "Was fuer eine Autonummer hatte er denn?"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1330 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1331 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1332 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1333 PRINT "a: KS ET 26"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1334 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1335 PRINT "b: HS AB 37"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1336 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1337 PRINT "c: KA GR 48"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1338 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1339 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1340 COLOR 12
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1341 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1342 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1343 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1344 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1345 IF a$ = "c" GOTO 146
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1346 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1347 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1348 GOTO 145
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1349
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1350
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1351
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1352
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1353
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1354
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1355 146 :
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1356 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1357 COLOR 2
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1358 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1359 PRINT "Der Polizist gab den guten Tip sofort"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1360 PRINT "an seine Kollegen weiter. Er dankte"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1361 PRINT "dir fuer die heisse Spur und du"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1362 PRINT "verabschiedeste dich und giengst nach"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1363 PRINT "Hause."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1364 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1365 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1366 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1367 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1368 PRINT "Zwei Tage spaeter kam ein Brief vom"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1369 PRINT "Polizeirevier:"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1370 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1371 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1372 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1373 LOCATE 4, 1
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1374 COLOR 15
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1375 PRINT "Sehrgeehrter Herr "; name1$; ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1376 PRINT "dank Ihnen konnten wie eine ganze"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1377 PRINT "Bande Waffenschieber dingfest machen."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1378 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1379 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1380 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1381 PRINT "Ausfuehrlicher Bericht auf der naechsten"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1382 PRINT "Seite."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1383 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1384 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1385 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1386 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1387 PRINT "Am Montag konnten wir den gruenen Audi"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1388 PRINT "von Schaefer (so heisst der Bersitzer)"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1389 PRINT "in der Karlsruher Innenstadt ausfindig"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1390 PRINT "machen. Wir folgten ihm bis zu seinem"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1391 PRINT "Hause. Dort umstellten wir es"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1392 PRINT "und stuermten. Beim Verhoer gestand"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1393 PRINT "er alles (Auftraggeber und alle"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1394 PRINT "Mitglieder). Am naechsten Tag konnten"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1395 PRINT "wir den Rest der Bande verhaften."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1396 PRINT "Am naechsten Donnerstag wird Mayr, der"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1397 PRINT "Boss der Truppe, wegen Mord an Karl"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1398 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1399 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1400 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1401 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1402 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1403 PRINT "Mueller verurteilt. Auch die Anderen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1404 PRINT "werden wegen Beihilfe zum Mord vor"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1405 PRINT "Gericht gestellt werden."
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1406 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1407 PRINT "Ich muss nochmal meinen Dank an Sie"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1408 PRINT "Aussprechen. Denn nur durch Sie konnten"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1409 PRINT "wir diese gefaehrliche Bande stoppen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1410 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1411 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1412 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1413 PRINT " Polizeichef Mattias Huber"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1414 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1415 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1416 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1417 LOCATE 13, 10
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1418 COLOR 13
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1419 PRINT "Du hast gewonnen!"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1420 do
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1421 loop until inkey <> ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1422 COLOR 15
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1423
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1424
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1425
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1426
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1427
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1428 END
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1429
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1430
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1431
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1432
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1433
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1434
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1435
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1436
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1437
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1438
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1439
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1440 inventar:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1441 CLS
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1442 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1443 PRINT
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1444 COLOR 5
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1445 PRINT "Hausschluessel"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1446 PRINT "200 Schilling"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1447 IF tlampe% = 1 THEN PRINT "Taschenlampe"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1448 IF schluessel% = 1 THEN PRINT "Schluessel"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1449 IF messer% = 1 THEN PRINT "Messer"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1450 IF kerzenst% = 1 THEN PRINT "Kerzenstaender"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1451 RETURN
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1452
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1453
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1454
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1455 befehle:
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1456 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1457 PRINT "Moegliche Befehle:"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1458 PRINT ""
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1459 COLOR 3
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1460 PRINT "umschauen"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1461 PRINT "oeffnen <Objekt>"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1462 PRINT "benutzen <Objekt>"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1463 PRINT "untersuchen <Objekt>"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1464 PRINT "sprechen mit <Person>"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1465 PRINT "gehen (in) <Ort>"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1466 PRINT "nehmen <Objekt>"
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1467 RETURN
130ab9a4fd83 begin of the recoding of the old Midds
meillo@marmaro.de
parents:
diff changeset
1468