10 IFZ=0THENZ=1:POKE53265,0:LOAD"K.CHAR",8,1
11 IFZ=1THENZ=2:LOAD"K.SPRITES",8,1
12 CLR:OPEN2,8,8,"K.SCORES,S,R"
13 FORI=1TO5
14 INPUT#2,NA$(I)
15 INPUT#2,PU$(I)
16 NEXT:CLOSE2:POKE53248+27,0
17 DIM ZV$(18):DIMZ(18):DIMY(18):DIMS(18):DIMQ(18):PA=17400
18 FORA=0TO7:POKE17400+A,30:NEXT
19 POKE56,63:V=53248:POKEV+24,15:POKE648,64:POKE56576,2
20 V=53248:S=54272:POKEV+32,0:POKEV+33,0:PRINT"[147]":POKEV+21,255:POKEV+28,0
21 FORA=0TO6:POKEV+39+A,1:NEXT:POKES+24,15:POKEV+22,24:G=1:POKEV+17,0
22 POKEV+00,109:POKEV+01,140:POKEV+34,10:POKEV+35,2
23 B=-20:FORA=0TO12STEP2:B=B+20:POKEV+A,117+B:NEXT
24 FORA=1TO13STEP2:POKEV+A,140:NEXT:POKEPA,16:POKEPA+1,17:POKEPA+2,18
25 POKEPA+3,19:POKEPA+4,19:POKEPA+5,20:POKEPA+6,21 :POKEPA+7,22
26 PRINT"[155][\\\\\\\\\\\\\\\\\\\\\\\\\\\\]"            
27 FORA=0TO19:PRINT"^____________________________!":NEXT
28 PRINT"#$$$$$$$$$$$$$$$$$$$$$$$$$$$$%"
29 PRINT"[158] STAR SOFTWARE "
30 PRINT" STAR SOFTWARE[146] "
31 PRINT" PRESENTS "
32 PRINT"[159] PRESENTS [146]"
33 PRINT" WRITTEN BY "
34 PRINT" WRITTEN BY[146] "
35 PRINT"[159] WERNER W  AND  FRANK K "
36 PRINT"[156] WERNER W  AND  FRANK K[146] ":POKEPA+7,30:POKEV+17,27:G=1
37 GETA$:IFA$=" "THEN50
38 B=INT(RND(1)*255):POKEV+14,B:POKEV+15,B:POKEPA+7,28:POKEV+46,1
39 FORA=0TO99:NEXT:POKEPA+7,29:FORA=0TO99:NEXT:POKEPA+7,28:FORB=0TO99:NEXT
40 POKEPA+7,30:FORA=0TO99:NEXT
41 FORH=0TO6:POKEV+39+H,1:NEXT
42 FORH=0TO6:POKEV+39+H,15:NEXT
43 FORH=0TO6:POKEV+39+H,12:NEXT
44 FORH=0TO6:POKEV+39+H,0:NEXT
45 FORH=0TO6:POKEV+39+H,12:NEXT
46 FORH=0TO6:POKEV+39+H,15:NEXT
47 FORH=0TO6:POKEV+39+H,1:NEXT
48 FORH=0TO6:POKEV+39+H,0:NEXT
49 GOTO 37
50 POKES+5,15:POKES+12,15:POKES+19,15:POKES+6,247:POKES+3,9:POKES+10,9
51 POKES+20,247:POKES+13,247:POKES+4,17:POKES+11,17:POKES+18,17
52 FORA=140TO255STEP1:FORB=1TO13STEP2:POKEV+B,A:NEXTB:POKES+8,A:POKES+6,A:NEXTA
53 FORA=0TO23:POKES+A,0:NEXT:POKES+6,255:POKES+4,129:POKES+13,255
54 POKES+11,129:POKES+1,0:POKES+5,0:POKES+24,15:POKES+1,1:POKES+5,11:POKES+6,0
55 FORI=1TO249:NEXT:POKES+12,9:POKES+13,0:POKES+19,10:POKES+18,129
56 FORA=0TO99:NEXT
57 FORA=0TO23:POKES+A,0:NEXT:POKEV+21,0:POKE198,0
58 PRINT"[147][155]  [\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\]"
59 PRINT"  ^            TOP FIVE[155]              !"
60 PRINT"  ^            [158]TOP[146] FIVE[146][155]              !"
61 PRINT"[155]  #$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%"
62 PRINT"[155]  [\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\]"
63 FORA=0TO15:PRINT"  ^                                  !":NEXT
64 PRINT"[155]  #$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%"
65 PRINT"[159]1[157][156]1"
66 PRINT"[159]2[157][156]2"
67 PRINT"[159]3[157][156]3"
68 PRINT"[159]4[157][156]4"
69 PRINT"[159]5[157][156]5"
70 PRINT""
71 FORI=1TO5:PRINT"[156]"NA$(I)
72 PRINT"[159]"NA$(I):FORC=0TO169:NEXTC,I
73 PRINT""
74 FORI=1TO5:PRINT"[156]"PU$(I)
75 PRINT"[159]"PU$(I):FORC=1TO169:NEXT C,I
76 GETA$:IFA$=" "THEN81
77 B=INT(RND(1)*255):POKEV+14,B:POKEV+15,B:POKEPA+7,28:POKEV+46,1:POKEV+21,255
78 FORA=0TO99:NEXT:POKEPA+7,29:FORA=0TO99:NEXT:POKEPA+7,28:FORB=0TO99:NEXT
79 POKEPA+7,30:FORA=0TO99:NEXT
80 GOTO 76
81 REM
82 PRINT"[147]":POKEV+17,0:POKEV+21,127:FORA=0TO6:POKEV+39+A,1:NEXT
83 FORA=1TO13STEP2:POKEV+A,50:NEXT
84 B=-20:FORA=0TO12STEP2:B=B+20:POKEV+A,109+B:NEXTA:POKEV+17,27
85 PRINT"[147]":CH=0:B$=""
86 PRINT"[155][\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\]";
87 PRINT"^!";
88 PRINT"^!";
89 PRINT"#$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%"
90 CH=0:B$="":GOTO96
91 POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(13)ANDLEN(B$)>0THEN100
92 IFA$=CHR$(20)ANDLEN(B$)>0THENB$=LEFT$(B$,LEN(B$)-1):GOTO96
93 IFA$=" "THENGOTO95
94 IFA$<"A"ORA$>"Z"THEN91
95 B$=B$+A$
96 PRINT"[159]NAME   ";LEFT$(B$+"              ",14)
97 PRINT"[156]NAME   ";LEFT$(B$+"              ",14)
98 IFLEN(B$)>13THEN91
99 GOTO91
100 REM
101 REM
102 PRINT"[147]":POKEV+17,0:POKEV+21,31:FORA=0TO5:POKEV+39+A,0:NEXT:POKEV+16,24
103 FORA=1TO9STEP2:POKEV+A,50:NEXT:POKEV+8,43:GOSUB 200:X=0
104 POKEV,211:POKEV+2,233:POKEV+4,255:POKEV+6,21:FORA=0TO4:POKEV+39+A,7:NEXT
105 FORA=0TO4:B=INT(RND(A)*6):POKEPA+A,22+B:NEXT:POKEV+17,27
106 PRINT"[159]1  2  3  4  5"
107 PRINT"[156]1  2  3  4  5"
108 POKE198,0:X=0:SW=SW+1:IFSW>13THENGOTO285
109 GETA$:IFA$=""THEN109
110 IFA$="1"THENA=0:W(0)=1:GOTO118
111 IFA$="2"THENA=1:W(1)=1:GOTO118
112 IFA$="3"THENA=2:W(2)=1:GOTO118
113 IFA$="4"THENA=3:W(3)=1:GOTO118
114 IFA$="5"THENA=4:W(4)=1:GOTO118
115 IFA$="E"THEN120
116 IFA$="D"THENFORA=0TO4:POKEV+39+A,7:W(A)=0:NEXT A
117 GOTO109
118 POKEV+39+A,2
119 GOTO109
120 FORI=0TO4:IFW(I)=1THENB=INT(6*RND(1)):POKE17400+I,22+B:W(I)=0
121 FORA=0TO4:POKEV+39+A,7:NEXTA,I
122 X=X+1:IFX=2THEN GOTO228
123 GOTO109
124 REM 1'ER
125 IFZ(1)<>0THENRETURN
126 FORP=1TO5:T(P)=0:IFPEEK(PA-1+P)=22THENT(P)=1
127 NEXT:Z(1)=T(1)+T(2)+T(3)+T(4)+T(5):Q(1)=1
128 IFZ(1)=0THENQ(1)=2
129 RETURN
130 REM 2'ER
131 IFZ(2)<>0THENRETURN
132 FORP=1TO5:T(P)=0:IFPEEK(PA-1+P)=23THENT(P)=2
133 NEXT:Z(2)=T(1)+T(2)+T(3)+T(4)+T(5):Q(2)=1
134 IFZ(2)=0THENQ(2)=2
135 RETURN
136 REM 3'ER
137 IFZ(3)<>0THENRETURN
138 FORP=1TO5:T(P)=0:IFPEEK(PA-1+P)=24THENT(P)=3
139 NEXT:Z(3)=T(1)+T(2)+T(3)+T(4)+T(5):Q(3)=1
140 IFZ(3)=0THENQ(3)=2
141 RETURN
142 REM 4'ER
143 IFZ(4)<>0THENRETURN
144 FORP=1TO5:T(P)=0:IFPEEK(PA-1+P)=25THENT(P)=4
145 NEXT:Z(4)=T(1)+T(2)+T(3)+T(4)+T(5):Q(4)=1
146 IFZ(4)=0THENQ(4)=2
147 RETURN
148 REM 5'ER
149 IFZ(5)<>0THENRETURN
150 FORP=1TO5:T(P)=0:IFPEEK(PA-1+P)=26THENT(P)=5
151 NEXT:Z(5)=T(1)+T(2)+T(3)+T(4)+T(5):Q(5)=1
152 IFZ(5)=0THENQ(5)=2
153 RETURN
154 REM 6'ER
155 IFZ(6)<>0THENRETURN
156 FORP=1TO5:T(P)=0:IFPEEK(PA-1+P)=27THENT(P)=6
157 NEXT:Z(6)=T(1)+T(2)+T(3)+T(4)+T(5):Q(6)=1
158 IFZ(6)=0THENQ(6)=2
159 RETURN
160 U=0:IFZ(7)<>0THEN228
161 GOSUB277:FORI=1TO5:S(I)=S(I)-21:NEXT
162 IFS(1)=S(2)ANDS(1)=S(3)ORS(3)=S(4)ANDS(3)=S(5)ORS(2)=S(3)ANDS(2)=S(4)THENU=1
163 IFU=1THENFORI=1TO5:Z(7)=Z(7)+S(I):NEXTI
164 IFZ(7)=0THENQ(7)=2
165 RETURN
166 U=0:IFZ(8)<>0THEN228
167 GOSUB277:FORI=1TO5:S(I)=S(I)-21:NEXT
168 IFS(1)=S(2)ANDS(1)=S(3)ANDS(1)=S(4)ORS(2)=S(3)ANDS(2)=S(4)ANDS(2)=S(5)THENU=1
169 IFU=1THENFORI=1TO5:Z(8)=Z(8)+S(I):NEXTI
170 IFZ(8)=0THENQ(8)=2
171 RETURN
172 U=0:IFZ(9)<>0THEN228
173 GOSUB277
174 IFS(1)=S(2)ANDS(1)=S(3)ANDS(4)=S(5)ORS(1)=S(2)ANDS(3)=S(4)ANDS(4)=S(5)THENU=1
175 IFU=1THENZ(9)=25
176 IFZ(9)=0THENQ(9)=2
177 RETURN
178 U=0:IFZ(10)<>0THEN228
179 GOSUB277
180 GOTO311
181 REM
182 IFZ(10)=0THENQ(10)=2
183 RETURN
184 U=0:IFZ(11)<>0THENGOTO228
185 GOSUB277
186 IFS(1)<S(2)ANDS(2)<S(3)ANDS(3)<S(4)ANDS(4)<S(5)THENU=1
187 IFU=1THENZ(11)=40
188 IFZ(11)=0THENQ(11)=2
189 RETURN
190 U=0:AB=50:IFZ(12)>=50THENAB=100
191 XA=PA-1:FORP=1TO5:T(P)=0:T(P)=PEEK(XA+P)-21
192 NEXT:IFT(1)=T(2)ANDT(2)=T(3)ANDT(3)=T(4)ANDT(4)=T(5)THENU=1
193 IFU=1THENZ(12)=Z(12)+AB
194 IFU=0ANDZ(12)=0THENQ(12)=2
195 RETURN
196 U=0:IFZ(13)<>0THENGOTO228
197 XA=PA-1:FORP=1TO5:Z(13)=Z(13)+PEEK(XA+P)-21:NEXT
198 IFZ(13)=0THENQ(13)=2
199 RETURN
200 PRINT"[155][\\\\\\\\\\\\\\\\\\\]"
201 FORXY=1TO19:PRINT"^!":NEXTXY:GOSUB256
202 PRINT"#$$$$$$$$$$$$$$$$$$$%"
203 PRINT"[220] [159][220] [197][210][156]      [156] =[156] ";ZV$(1)
204 PRINT"[158][221] [156][221] [197][210][159]       [159]= [159]";ZV$(2)
205 PRINT"[255][159] [255] [197][210]       [156]= ";ZV$(3)
206 PRINT"[158][223] [156][223] [197][210]       [159]= [159]";ZV$(4)
207 PRINT"[160][159] [160] [197][210]       [156]= [156]";ZV$(5)
208 PRINT"[158][161][156] [161] [197][210]      [159] = [159]";ZV$(6)
209 PRINT"[159]  [199][197][211][193][205][212]  [156]   = [156]";ZV$(14)
210 PRINT"[156]  [194][207][206][213][211]   [159]   = [159]";ZV$(15)
211 PRINT"[159]  [199][197][211][193][205][212] [207]. [156] = [156]";ZV$(16)
212 PRINT"[162] [156][196][210][197][201][197][210][208]. [159]  = [159]";ZV$(7)
213 PRINT"[158][163] [159][214][201][197][210][197][210][208]. [156]  = [156]";ZV$(8)
214 PRINT"[164] [156][198][213][204][204] [200][207][213][211][197][159] = [159]";ZV$(9)
215 PRINT"[158][220][219] [159][203].[211][212][210][193][211][211][197] [156] = [156]";ZV$(10)
216 PRINT"[220][220][156] [199].[211][212][210][193][211][211][197] [159] = [159]";ZV$(11)
217 PRINT"[158][220][221][159] [203][206][201][198][198][197][204]   [156] = [156]";ZV$(12)
218 PRINT"[220][255] [156][195][200][193][206][195][197]    [159] = [159]";ZV$(13)
219 PRINT"[159]  [199][197][211][193][205][212] [213].  [156]= ";ZV$(17)
220 PRINT"[156]  [199][197][211][193][205][212] [207].  [159]= [158]";ZV$(16)
221 PRINT"[159]  [197][206][196][211][213][205][205][197]   [156]= ";ZV$(18)
222 PRINT"[156][196] = [218][213][210][213][197][195][203]"
223 PRINT"[159][197] = [206][193][197][195][200][211][212][197][210] [215][213][210][198]"
224 PRINT"[156][210][207][212][197] [215][213][197][210][198][197][204]"
225 PRINT"[159][197][210][200][193][204][212][197][206] [206][197][213][197][206]"
226 PRINT"[156][218][193][200][204][197][206][215][197][210][212]."
227 RETURN
228 PRINT"[159][201][206] [215][197][204][195][200][197][211]":C=0:A$="":H$=""
229 PRINT"[156][203][193][197][211][212][195][200][197][206]":C$=""
230 PRINT"[159][197][201][206][212][210][193][199][197][206] "
231 PRINT"[156][206][210]. [159]  [157][157]";:O=0:C$=""
232 POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(13)ANDO>0THENGOTO239
233 IFO>0ANDA$=CHR$(20)THENC$="":H$="":O=0:GOTO237
234 IFASC(A$)<48ORASC(A$)>57THENGOTO232
235 IFO>=2THENGOTO232
236 C=ASC(A$):C$=C$+CHR$(C+128):O=O+1:H$=H$+A$
237 PRINT"[156][206][210]. [159]  [157][157]";C$
238 GOTO232
239 IFVAL(H$)<1ORVAL(H$)>13THENA$="":C$="":H$="":GOTO228
240 FORA=1TO5:PRINT"          ":NEXT
241 T=VAL(H$)
242 IFQ(T)=2THENGOTO228
243 ON T GOSUB124,130,136,142,148,154,160,166,172,178,184,190,196
244 IFT=12ANDU=0ANDZ(12)>0THENGOTO228
245 GOTO101
246 X=LEN(STR$(Z)):ZT$=MID$(Z$,2,X-1)
247 FORI=1TO5:IFPU$(I)=STR$(Z)ANDNA$=NA$(I)THENX=I
248 NEXTI
249 IFZ<10THENPU$(X)="00000"+ZT$:RETURN
250 IFZ<100THENPU$(X)="0000"+ZT$:RETURN
251 PU$(X)="000"+ZT$:RETURN
252 OPEN1,8,15,"S:K.SCORES":CLOSE1
253 OPEN2,8,8,"K.SCORES,S,W"
254 FORI=1TO5
255 PRINT#2,NA$(I):PRINT#2,PU$(I):NEXT:CLOSE2:RETURN
256 Z(14)=0:FORI=1TO6:Z(14)=Z(14)+Z(I):NEXT:Z(16)=0
257 IFZ(14)>=63THENZ(15)=35
258 Z(16)=Z(14)+Z(15):FORI=1TO13:ZV$(I)="":NEXTI:FORI=1TO4:Y$(I)="":NEXT:S$(1)=""
259 Z(17)=0:FORI=7TO13:Z(17)=Z(17)+Z(I):NEXT
260 Z(18)=Z(16)+Z(17)
261 FORI=1TO18:IFQ(I)=2THENZV$(I)="---":NEXTI:FORI=1TO18
262 IFZ(I)>9THENGOTO264
263 Y=Z(I):ZV$(I)=CHR$(Y+176):ZV$(I)="  "+ZV$(I):NEXTI:GOTO270
264 IFZ(I)>99THENGOTO267
265 Y$=STR$(Z(I)):ZV$=MID$(Y$,2,1):Z$=MID$(Y$,3,1):ZV=ASC(ZV$):Z=ASC(Z$)
266 ZV=ZV+128:Z=Z+128:ZV$(I)=" "+CHR$(ZV)+CHR$(Z):NEXTI:GOTO270
267 Y$=STR$(Z(I)):ZV$=MID$(Y$,2,1):Z$=MID$(Y$,3,1):V$=MID$(Y$,4,1)
268 ZV=ASC(ZV$):Z=ASC(Z$):V=ASC(V$):ZV=ZV+128:Z=Z+128:V=V+128
269 ZV$(I)=CHR$(ZV)+CHR$(Z)+CHR$(V):NEXTI
270 V=53248
271 RETURN
272 Z(14)=0:FORI=1TO6:Z(14)=Z(14)+Z(I):NEXT:Z(16)=0
273 IFZ(14)>=63THENZ(15)=35
274 Z(16)=Z(14)+Z(15):FORI=1TO13:ZV$(I)="":NEXTI:FORI=1TO4:Y$(I)="":NEXT:S$(1)=""
275 Z(17)=0:FORI=7TO13:Z(17)=Z(17)+Z(I):NEXT
276 Z(18)=Z(16)+Z(17):RETURN
277 XA=PA-1:FORI=PATOPA+4:S(I-XA)=PEEK(I):NEXT
278 FORI=4TO1STEP-1
279 FORJ=1TOI
280 IFS(J)<=S(J+1)THEN282
281 S7=S(J):S(J)=S(J+1):S(J+1)=S7
282 NEXTJ
283 NEXTI
284 RETURN
285 FORA=0TO23:POKES+A,0:NEXT:POKES+24,15:POKES+6,15*16:FORI=80TO10STEP-1
286 POKES+1,I:POKES+4,17:FORU=0TO10STEP-1:NEXTU,I:POKES+24,0:FORA=0TO24
287 POKES+A,0:NEXT
288 FORA=0TO999:NEXT
289 V=53248:POKEV+17,0:PRINT"[147]":POKEV+21,255:FORA=0TO6:POKEV+39+A,1:NEXT
290 POKEV+16,0:POKEPA,16:POKEPA+1,17:POKEPA+2,18:POKEPA+3,19:POKEPA+4,19
291 POKEPA+5,20:POKEPA+6,21:B=-20:FORA=0TO14STEP2:B=B+20:POKEV+A,109+B:NEXTA
292 FORA=1TO13STEP2:POKEV+A,50:NEXT:POKEV+17,27:IFZ(18)<100THENB$=B$+" "
293 PRINT"[147][159]"B$" HAT"Z(18)"PUNKTE ERREICHT"
294 PRINT"[156]"B$" HAT"Z(18)"PUNKTE ERREICHT"
295 Z=Z(18):NA$=B$
296 Z$=STR$(Z):POKEV+17,27
297 IFZ<VAL(PU$(5))THEN304
298 PU$(5)=Z$:NA$(5)=B$:I=5
299 I=I-1:IFVAL(PU$(I))>=ZTHENGOTO304
300 PU$(I+1)=PU$(I):NA$(I+1)=NA$(I)
301 PU$(I)=STR$(Z):NA$(I)=NA$
302 IFI>1THENGOTO299
303 POKEV+21,255:POKEV+46,1
304 GETA$:IFA$=" "THEN310
305 B=INT(RND(1)*255):POKEV+14,B:POKEV+15,B:POKEPA+7,28
306 FORA=0TO99:NEXT:POKEPA+7,29:FORA=0TO99:NEXT:POKEPA+7,28:FORA=0TO99:NEXT
307 POKEPA+7,30:FORA=0TO99:NEXT
308 GOTO304
309 REMUB4400:GOSUB4450
310 PRINT"[147]":POKEV+21,0:GOSUB246:GOSUB252:GOTO12
311 S1=0:S2=0:S3=0:S4=0:S5=0:S6=0:FORI=1TO5
312 IFS(I)=22THENS1=S1+1
313 IFS(I)=23THENS2=S2+1
314 IFS(I)=24THENS3=S3+1
315 IFS(I)=25THENS4=S4+1
316 IFS(I)=26THENS5=S5+1
317 IFS(I)=27THENS6=S6+1
318 IFS1>1THENS(I)=0:S1=S1-1
319 IFS2>1THENS(I)=0:S2=S2-1
320 IFS3>1THENS(I)=0:S3=S3-1
321 IFS4>1THENS(I)=0:S4=S4-1
322 IFS5>1THENS(I)=0:S5=S5-1
323 IFS6>1THENS(I)=0:S6=S6-1
324 NEXT:FORI=1TO5:S(I)=S(I)-21:NEXT
325 GOSUB278
326 IFS(5)=6THENIFS(1)=1ANDS(2)=2ANDS(3)=3ANDS(4)=4THENZ(10)=30
327 IFS(2)=1ANDS(3)=2ANDS(4)=3ANDS(5)=4THENZ(10)=30
328 IFS(2)=2ANDS(3)=3ANDS(4)=4ANDS(5)=5THENZ(10)=30
329 IFS(2)=3ANDS(3)=4ANDS(4)=5ANDS(5)=6THENZ(10)=30
330 IFS(1)=2ANDS(2)=3ANDS(3)=4ANDS(4)=5THENZ(10)=30
331 GOTO181