0 REM NICHT VERGESSEN:                                   AENDERN NICHT ERLAUBT!(null)
1 C1%=1:C2%=15:C3%=12:C4%=11:YT$="TASTE F>R WEITER.":POKE53280,6
2 M=INT(RND(1)*TI):M=1:DIMK$(2500):DIMR(26):DD$="DATA":GOTO8
3 IFZ%=1THENZ%=.:GOTO9
4 PRINT"[147]";
5 PRINT"[155]----------------------------------------";
6 PRINT"   BITTE LEGEN SIE DIE DATENDISK EIN."
7 PRINT"[155]----------------------------------------[145][145]"SPC(15);:GOSUB257:GOSUB254
8 GOSUB259:IFDS$<>"00"THEN3
9 OPEN1,PEEK(1023),2,"GEBIETE,S,R"
10 FORA=1TO5:INPUT#1,WI$(A):INPUT#1,AT$(A):NEXTA:CLOSE1
11 FOROW=1TO5:IFLEN(WI$(OW))>LEN(WI$(MN))THENMN=OW
12 NEXTOW
13 FORI=1TO5:IFLEN(WI$(I))+LEN(AT$(I))=LEN(WI$(MN))+LEN(AT$(MN))THENNEXTI
14 FORA=LEN(WI$(I))+LEN(AT$(I))TOLEN(WI$(MN))+LEN(AT$(MN))-1:PL$(I)=PL$(I)+"."
15 NEXTA:IFI<5THENNEXTI
16 PRINT"[147][151]--------[183][146][218][151]---[153]STADT[155]-[129]LAND[155]-FLU#[151]---[173][146][151]--------[152]";
17 PRINT"--------Z[218][146][152]----------------------[146][152]--------";:GOSUB257
18 PRINTSPC(13)"[155]SPIELOPTIONEN"
19 PRINTSPC(13)"[170][170][170][170][170][170][170][170][170][170][170][170][170]"
20 PRINT"[129]WIE VIELE SPIELER (2-8)?  [157]";
21 GETA$:UL=1:LO=50:HI=56:GOSUB232
22 PRINTA$:A=VAL(WM$):GOSUB257
23 FORI=1TOA:GOSUB257
24 PRINT:PRINT"[158]NAME SPIELER"I"? ";:GOSUB245
25 UL=17:LO=65:HI=90:E%=1:SF(1)=60:SF(2)=62:SF(3)=64:SLF(4)=35:GOSUB232
26 FORW=1TO4:SF(I)=.:NEXTW:E%=.
27 FORW=1TOA:IFWM$=N$(W)THENPRINT"[145]";:GOTO24
28 NEXTW:N$(I)=WM$:NEXTI
29 PRINT:PRINT"WIE VIELE RUNDEN (ANZ.SPIELER-26)?   [157][157]";
30 GETA$:UL=2:LO=48:HI=57:GOSUB232
31 IFVAL(WM$)<AORVAL(WM$)>26THENPRINT"[145][145][145]";:GOTO29
32 R=VAL(WM$):GOSUB257
33 PRINT:PRINT"[159]ALLES RICHTIG (J/N)? ";
34 GETA$:IFA$="N"THENFORI=1TOA:N$(I)="":NEXTI:GOTO16
35 IFA$<>"J"THENGOSUB231:GOTO34
36 PRINT"JA.":GOSUB254
37 FORRU=1TOR:GOSUB257:GW=INT(RND(1)*26)+64:PK=PK+1:IFPK>ATHENPK=1
38 PRINT"[147]"SPC(15)"[144]RUNDE"RU
39 PRINTSPC(15)"-------";:IFRU>9THENPRINT"-";
40 CS%=11:GOSUB250:CS%=12:GOSUB250:CS%=.:GOSUB254
41 PRINT"[147]";:Z=INT((39-LEN(N$(PK))))/2-1:FORI=1TOZ:PRINT" ";:NEXTI
42 PRINTN$(PK);"!":GW=INT(RND(1)*26)+65:TC=.
43 PRINT""SPC(13)" STOPPEN...";:POKE198,.
44 GW=GW+1:IFGW=91THENGW=65
45 GETA$:IFA$<>""THEN47
46 GOSUB231:GOTO44
47 FORTT=1TOR:IFGW=R(TT)THENPRINT:PRINTSPC(9)"[145] "CHR$(GW);:TC=1
48 IFTC=1THENTC=.:PRINT" WAR SCHON EINMAL![153]":GOSUB258:GOSUB254:GOTO41
49 NEXTTT:R(RU)=GW
50 FORX=1TOA:GOSUB257
51 PRINT"[147]";:Z=INT((31-LEN(N$(X))))/2-1:PRINTSPC(Z);
52 PRINT""N$(X)" IST DRAN!":PRINTSPC(Z);
53 FORI=1TOLEN(N$(X)):PRINT"-";:NEXTI:PRINT"----------"
54 GOSUB254:GOSUB257:FORI=1TO500:NEXTI
55 PRINT"[147]"N$(X)"!"" [153]ES WIRD MIT "CHR$(GW):PRINT"[153]GESPIELT.":E%=1:UL=18
56 LO=65:HI=90:LK=45:SF(1)=35:SF(2)=60:SF(3)=62:SF(4)=64:OL=48:IH=57
57 FOROP=1TO5
58 PRINT:PRINT"[155]"AT$(OP)" "WI$(OP)"[154]"PL$(OP)"[155]? ";:GOSUB245
59 GOSUB232:IFLEFT$(WM$,1)<>CHR$(GW)THENTC=1
60 IFTC=1THENTC=.:IFWM$<>"-"THENPRINT"[145][145]";:GOTO58
61 IFOP=1THENV$(X)=WM$
62 IFOP=2THENW$(X)=WM$
63 IFOP=3THENX$(X)=WM$
64 IFOP=4THENY$(X)=WM$
65 IFOP=5THENZ$(X)=WM$
66 NEXTOP:GOSUB258:NEXTX
67 FORX=1TOA:IFX<>1THENGOSUB254
68 PRINT"[147][144]";N$(X);":":FORI=1TOLEN(N$(X))+1:PRINT"[170]";:NEXTI:PRINT""
69 GOSUB253:GOSUB257
70 FORKL=1TO5:FORBR=1TOIJ:K$(BR)="":NEXTBR
71 IFKL=1THENR$=V$(X):D$(1)=WI$(1)+"[154]"+PL$(1)
72 IFKL=2THENR$=W$(X):D$(2)=WI$(2)+"[154]"+PL$(2)
73 IFKL=3THENR$=X$(X):D$(3)=WI$(3)+"[154]"+PL$(3)
74 IFKL=4THENR$=Y$(X):D$(4)=WI$(4)+"[154]"+PL$(4)
75 IFKL=5THENR$=Z$(X):D$(5)=WI$(5)+"[154]"+PL$(5)
76 PRINT"[155]"D$(KL)"[155]: "R$
77 IFR$="-"THENPRINT"[150]KEINE PUNKTE!":ONKLGOSUB96,97,98,99,100:NEXTKL,X:GOTO106
78 U=.:U$=" "+RIGHT$(STR$(KL),1)+CHR$(GW)
79 OPEN1,PEEK(1023),2,U$+",S,R"
80 U=U+1:INPUT#1,K$(U)
81 IFK$(U)="*"THENK$(U)=R$:IJ=U:GOTO84
82 IFR$=K$(U)THENIJ=U:CLOSE1:PRINT"GEFUNDEN!":NEXTKL,X:GOTO106
83 GOTO80
84 CLOSE1:PRINT"[153]RICHTIG? (J/N)"SPC(19);
85 GETA$:IFA$="N"THENPRINT"NEIN.":ONKLGOSUB101,102,103,104,105:NEXTKL,X:GOTO106
86 IFA$="J"THENPRINT"JA.":GOTO88
87 GOSUB231:GOTO85
88 PRINT"[158]IST DIE MEHRHEIT EINVERSTANDEN?  ";
89 GETA$:IFA$="J"THENPRINT"JA.":GOTO92
90 IFA$="N"THENPRINT"NEIN.":ONKLGOSUB101,102,103,104,105:NEXTKL,X:GOTO106
91 GOSUB231:GOTO89
92 OPEN1,PEEK(1023),15,"S:"+U$:CLOSE1:OPEN1,8,2,U$+",S,W"
93 FORU=1TO255:IFK$(U)<>""THENPRINT#1,K$(U):NEXTU
94 PRINT#1,"*":CLOSE1
95 NEXTKL:GOSUB257:NEXTX:GOTO106
96 V(X)=.:V$(X)="-":RETURN
97 W(X)=.:W$(X)="-":RETURN
98 X(X)=.:X$(X)="-":RETURN
99 Y(X)=.:Y$(X)="-":RETURN
100 Z(X)=.:Z$(X)="-":RETURN
101 V(X)=-20:V$(X)="-UNG>LTIG-":RETURN
102 W(X)=-20:W$(X)="-UNG>LTIG-":RETURN
103 X(X)=-20:X$(X)="-UNG>LTIG-":RETURN
104 Y(X)=-20:Y$(X)="-UNG>LTIG-":RETURN
105 Z(X)=-20:Z$(X)="-UNG>LTIG-":RETURN
106 GOSUB254:PRINT"[147][144]BITTE WARTEN, ICH RECHNE DIE PUNKTE AUS!"
107 CS%=11:GOSUB250:CS%=.
108 FORX=1TOA:FORU=1TO5
109 IFU=1THENFORBI=1TOA:R$(BI)=V$(BI):NEXTBI
110 IFU=2THENFORBI=1TOA:R$(BI)=W$(BI):NEXTBI
111 IFU=3THENFORBI=1TOA:R$(BI)=X$(BI):NEXTBI
112 IFU=4THENFORBI=1TOA:R$(BI)=Y$(BI):NEXTBI
113 IFU=5THENFORBI=1TOA:R$(BI)=Z$(BI):NEXTBI
114 FORM=1TOA
115 IFM=XTHENNEXTM,U,X:GOTO124
116 IFLEFT$(R$(X),1)="-"THENNEXTU,X:GOTO124
117 IFR$(X)=R$(M)THENONUGOSUB119,120,121,122,123:NEXTU,X:GOTO124
118 NEXTM,U,X:GOTO124
119 V(X)=5:RETURN
120 W(X)=5:RETURN
121 X(X)=5:RETURN
122 Y(X)=5:RETURN
123 Z(X)=5:RETURN
124 FORX=1TOA:FORU=1TO5
125 IFU=1THENFORBI=1TOA:R$(BI)=V$(BI):NEXTBI
126 IFU=2THENFORBI=1TOA:R$(BI)=W$(BI):NEXTBI
127 IFU=3THENFORBI=1TOA:R$(BI)=X$(BI):NEXTBI
128 IFU=4THENFORBI=1TOA:R$(BI)=Y$(BI):NEXTBI
129 IFU=5THENFORBI=1TOA:R$(BI)=Z$(BI):NEXTBI
130 IFLEFT$(R$(X),1)="-"THENNEXTU,X:GOTO141
131 Z=.:FORI=1TOA
132 IFR$(I)="-"THENZ=Z+1
133 NEXTI
134 IFZ=A-1THENONUGOSUB136,137,138,139,140
135 NEXTU,X:GOTO141
136 V(X)=20:RETURN
137 W(X)=20:RETURN
138 X(X)=20:RETURN
139 Y(X)=20:RETURN
140 Z(X)=20:RETURN
141 FORX=1TOA:FORU=1TO5
142 IFU=1THENR$(X)=V$(X):LI(X)=V(X)
143 IFU=2THENR$(X)=W$(X):LI(X)=W(X)
144 IFU=3THENR$(X)=X$(X):LI(X)=X(X)
145 IFU=4THENR$(X)=Y$(X):LI(X)=Y(X)
146 IFU=5THENR$(X)=Z$(X):LI(X)=Z(X)
147 IFLEFT$(R$(X),1)<>"-"ANDLI(X)=.THENTC=1
148 IFTC=1THENTC=.:ONUGOSUB150,151,152,153,154:NEXTU,X:GOTO155
149 NEXTU,X:GOTO155
150 V(X)=10:RETURN
151 W(X)=10:RETURN
152 X(X)=10:RETURN
153 Y(X)=10:RETURN
154 Z(X)=10:RETURN
155 FORI=1TOA
156 IFLEFT$(V$(I),1)="-"THEND$=V$(I):V$(I)="[150]"+D$
157 IFLEFT$(W$(I),1)="-"THEND$=W$(I):W$(I)="[150]"+D$
158 IFLEFT$(X$(I),1)="-"THEND$=X$(I):X$(I)="[150]"+D$
159 IFLEFT$(Y$(I),1)="-"THEND$=Y$(I):Y$(I)="[150]"+D$
160 IFLEFT$(Z$(I),1)="-"THEND$=Z$(I):Z$(I)="[150]"+D$
161 NEXTI
162 GOSUB258:GOSUB254
163 FORX=1TOA
164 PRINT"[147][144]GESAMTAUSWERTUNG:"
165 PRINTSPC(11)"-----------------[153]"
166 PRINTN$(X);":"
167 FORI=1TOLEN(N$(X)):PRINT"[170]";:NEXTI:PRINT"[170]"
168 PRINT"[158]"D$(1)": "V$(X):PRINTSPC(LEN(WI$(MN))+2)"[155]PUNKTE: [152]"V(X)
169 PRINT"[158]"D$(2)": "W$(X):PRINTSPC(LEN(WI$(MN))+2)"[155]PUNKTE: [152]"W(X)
170 PRINT"[158]"D$(3)": "X$(X):PRINTSPC(LEN(WI$(MN))+2)"[155]PUNKTE: [152]"X(X)
171 PRINT"[158]"D$(4)": "Y$(X):PRINTSPC(LEN(WI$(MN))+2)"[155]PUNKTE: [152]"Y(X)
172 PRINT"[158]"D$(5)": "Z$(X):PRINTSPC(LEN(WI$(MN))+2)"[155]PUNKTE: [152]"Z(X)
173 PR(X)=V(X)+W(X)+X(X)+Y(X)+Z(X)
174 PRINT"[154][153]PUNKTE F>R DIESE RUNDE: "PR(X)
175 HP(X)=HP(X)+PR(X)
176 PRINT"[159]GESAMTPUNKTZAHL: "HP(X)
177 GOSUB253:GOSUB254:NEXTX:GOTO178
178 FORO=1TO2:IFO=1THEND$="RUNDENSTAND:"
179 IFO=2THEND$="GESAMTSTAND:"
180 IFO=2ANDRU=RTHEND$="FINAL-STAND:"
181 PRINT"[147][144]"D$:PRINTSPC(13)"------------[158]"
182 FORX=1TOA
183 IFO=1THENBJ(X)=PR(X):BZ(X)=X:NEXTX
184 IFO=2THENBJ(X)=HP(X):BZ(X)=X:NEXTX
185 FORU=1TOA:FORX=1TOA-1
186 IFBJ(X)<BJ(X+1)THENBJ=BJ(X+1):BJ(X+1)=BJ(X):BJ(X)=BJ:BZ=BZ(X+1):TC=1
187 IFTC=1THENTC=.:BZ(X+1)=BZ(X):BZ(X)=BZ
188 NEXTX,U
189 FORI=1TOA
190 PRINT"[155]PLATZ"I":"N$(BZ(I)):PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][158]"BJ(I)"[159]PUNKTE"
191 NEXTI
192 GOSUB253:GOSUB254:NEXTO
193 BC=.:FORI=1TOA:V(I)=.:W(I)=.:X(I)=.:Y(I)=.:Z(I)=.:NEXTI,RU
194 FORI=1TOA:PR(I)=INT(HP(I)/R):NEXTI
195 PRINT"[147]"SPC(14)"[216]W[146][216][217][215][214][214][146][217][216]W"
196 PRINTSPC(14)"[216][146] [216][216][216][216][216][216]"
197 PRINTSPC(14)"[213]W[146][216][216][216][216][216][146][213]W"
198 PRINTSPC(14)"[216][146] [216][216][216][216][216][216]"
199 PRINTSPC(14)"YW[146][215]Y[217][146][214]V[217]YW"
200 FORX=0TO4:FORI=55711+X*40TO55720+X*40:POKEI,1:NEXTI,X
201 OPEN1,PEEK(1023),2,"BESTENLISTE,S,R"
202 FORI=1TO10:INPUT#1,NA$(I),PU(I):NEXTI:CLOSE1
203 FORX=1TOA:PRINT"[147][144]         DIE LISTE DER BESTEN:"
204 PRINTSPC(9)"---------------------":GOSUB253
205 FORI=1TO10:A$=RIGHT$(STR$(I),2)
206 PRINT"[151]     PLATZ [152]"A$":[155]"NA$(I)"[154]";
207 PRINTLEFT$(".................",17-LEN(NA$(I)));
208 PRINTRIGHT$(" "+STR$(PU(I)),7):NEXTI
209 IFOO=1THENRETURN
210 PRINT"[150]"N$(X)"'S PUNKTE:[158]"PR(X)
211 IFPR(X)>PU(10)THENPRINT"[159]GRATULIERE, DU BIST IN DER HIGHSCORE!!!"
212 IFPR(X)<=PU(10)THENPRINT"[159]KEIN EINTRAG F>R DICH!!! SCHADE.":GOTO218
213 FORI=1TO10:IFPR(X)<PU(I)THENNEXTI
214 K=10
215 IFK=ITHEN217
216 PU(K)=PU(K-1):NA$(K)=NA$(K-1):K=K-1:GOTO215
217 PU(K)=PR(X):NA$(K)=N$(X)
218 GOSUB254:NEXTX:FORI=1TO1000:NEXTI:OO=1:GOSUB203
219 OPEN1,PEEK(1023),15,"S:BESTENLISTE":CLOSE1
220 OPEN1,PEEK(1023),2,"BESTENLISTE,S,W"
221 FORI=1TO10:PRINT#1,NA$(I):PRINT#1,PU(I):NEXTI:CLOSE1:GOSUB254
222 PRINT"[147]   NOCH EIN ([155]S)PIEL ODER ([155]A)UFH<REN?"
223 GETA$:IFA$<>"S"ANDA$<>"A"THEN223
224 IFA$="S"THENCLR:Z%=1:GOTO1
225 PRINTSPC(12)"WIRKLICH (J/N)? ";
226 GOSUB231:GETA$:IFA$<>"J"ANDA$<>"N"THEN226
227 IFA$="N"THEN222
228 POKE646,PEEK(53281)
229 PRINT"[147]NEW":PRINT"SYS64738";
230 POKE631,13:POKE632,13:POKE198,2:END
231 TC=PEEK(646):PRINT"[155] [157]";:PRINT"[155] [146][157]";:POKE646,TC:TC=.:RETURN
232 WM$=""
233 GETA$:GOSUB231:IFA$=""THEN233
234 IFWM$<>""ANDA$=""THENPRINT"";:WM$=LEFT$(WM$,LEN(WM$)-1)
235 IFA$=CHR$(32)ANDE%=1ANDLEN(WM$)<ULTHENPRINTA$;:WM$=WM$+A$:GOTO233
236 IFA$=CHR$(LK)ANDWM$=""THENWM$="-":PRINTWM$" ";:RETURN
237 FORIU=1TO4
238 IFA$=CHR$(SF(IU))ANDLEN(WM$)<ULTHENPRINTA$;:WM$=WM$+A$:GOTO233
239 NEXTIU
240 IFA$=CHR$(13)ANDWM$<>""THENPRINT" ";:RETURN
241 IFA$<CHR$(LO)ORA$>CHR$(HI)THENIU=1
242 IFIU=1THENIFA$<CHR$(OL)ORA$>CHR$(IH)THEN233
243 IFLEN(WM$)=ULTHEN233
244 WM$=WM$+A$:PRINTA$;:GOTO233
245 PRINT"                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:RETURN
246 DS$="":OPEN1,8,2,"ID2,S,R"
247 FORI=1TO4:INPUT#1,A$:DS$=DS$+A$:NEXT:CLOSE1
248 IFDS$<>DD$THENTC=.:RETURN
249 TC=1:RETURN
250 FORI=CS%*40TOCS%*40+37:POKE55295+I,C1%:POKE55296+I,C2%:POKE55297+I,C3%
251 POKE55298+I,C4%:NEXTI:POKE55295+I,C1%:POKE55296+I,C1%
252 POKE55297+I,C1%:RETURN
253 CS%=.:GOSUB250:CS%=1:GOSUB250:CS%=.:RETURN
254 FORI=1TO18
255 PRINT""LEFT$(YT$,I);:NEXTI:POKE198,.
256 GETA$:IFA$=""THENCS%=24:GOSUB250:CS%=.:GOTO256
257 S=54272:POKES+24,15:POKES+1,110:POKES+6,9:POKES+4,17:POKES+4,16:RETURN
258 GOSUB257:FORI=1TO720:NEXTI:GOSUB257:RETURN
259 OPEN1,PEEK(1023),2,"ID2,S,R":CLOSE1:OPEN1,PEEK(1023),15:GET#1,A$:DS$=A$:GET#1,A$
260 DS$=DS$+A$:CLOSE1:RETURN