10 CLS3 20 FORT=1024TO1535:READA:POKET,A:NEXT 100 EXEC44539 1000 DATA 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175 1010 DATA 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175 1020 DATA 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175 1030 DATA 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175 1040 DATA 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175 1050 DATA 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175 1060 DATA 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,193,193,193,165,175 1070 DATA 175,175,255,255,255,255,250,207,207,207,207,202,143,143,143,143,138,159,159,159,159,154,191,191,165,195,195,199,199,199,203,173 1080 DATA 175,175,255,255,255,255,250,207,207,207,207,202,143,143,143,143,138,159,159,159,159,154,191,191,165,175,207,199,203,203,207,165 1090 DATA 175,143,143,143,143,138,159,159,159,159,154,191,191,191,191,186,207,207,207,207,202,143,143,143,143,138,207,199,203,203,207,213 1100 DATA 171,128,128,128,128,128,128,128,128,128,152,188,188,188,188,184,204,204,204,204,200,128,128,128,128,128,128,128,128,128,128,209 1110 DATA 175,162,128,196,200,128,128,128,128,128,128,242,128,128,128,128,128,128,128,128,248,128,128,248,128,248,128,128,128,128,144,223 1120 DATA 223,223,210,128,128,128,128,248,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,177,190,188,188,188,215,223 1130 DATA 223,222,128,128,128,128,128,128,128,128,128,177,190,188,188,188,188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,223 1140 DATA 223,219,188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223 1150 DATA 223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223                   Almost! Jun 14 2258 15 Junio 18 1572 16/6/18 1452 Diego 8 May 17 1325 31 Mayo 2018 1323 384STEP128:FORY=1TO3:PRINT@A+Y*32,B$(Y);:NEXTY,A 50 C=RND(4):TIMER=0 60 PRINT@G,C$(C); 70 K$=INKEY$:IF TIMER>180 THEN K$="":K=0:GOSUB 2000 ELSE IF K$=""GOTO70 ELSE K=ASC(K$) 80 IFK=8 OR K=9 GOSUB 1010 90 IFK$=" "OR K=10 GOSUB 2010 100 GOTO 60 1010 PRINT@G,BC$;:IFK=8 THEN G=G-3 ELSE G=G+3 1020 IF G>25 THEN G=25 ELSE IF G<1 THEN G=1 1030 RETURN 2000 PLAY"01T8CEC" 2010 IF G=13 GOTO 9000 ELSE H=INT(G/3)+1:FORA=1TO4:IFT(H,A)<>0 THEN 2020 ELSE NEXT 2020 BF(1)=175:BF(2)=175:BF(3)=175 2030 IF A=1 THEN IF TIMER>180 GOTO 9000 ELSE SCREEN 1,0:SOUND 1,1:SCREEN 0,0:RETURN 2040 T(H,A-1)=C:PS=TIMER-200:IF TIMER<90 AND SP=1 THEN GOSUB 3600 ELSE IF S>0 THEN S=S-1:IF S<7 THEN SP=1:FORX=1088TO1472STEP128:POKEX,253:POKEX+28,255:NEXTX 2050 FORX=1TO3:C(X)=PEEK(1023+G+X):NEXT 2060 FORY=1TOA*4-7:FORXB=1 TO 3:POKE1023+G+XB+32*(Y-1),BF(XB):BF(XB)=PEEK(1023+G+XB+32*Y) 2070 POKE1023+G+XB+32*Y,C(XB) 2080 NEXT XB,Y 2090 REM CALCULATE BALANCE 2100 A=A-1:H=H-5:L(A)=L(A)+H*C:IF ABS(L(A))>6 GOTO 9000 2110 IF PS<0 THEN SC=SC+SP*INT(ABS(PS)/25):GOSUB4000:SOUND 200+PS,1:PRINT@0,SP*INT(ABS(PS)/25); 2120 IF L(A)>4 THEN E=188 ELSE IF L(A)>2 THEN E=156 ELSE IF L(A)>0 THEN E=140 ELSE IF L(A)<-4 THEN E=190 ELSE IF L(A)<-2 THEN E=158 ELSE IF L(A)<0 THEN E=142 2130 IF L(A)<=0 THEN POKE943+128*A,252 2140 IF L(A)>=0 THEN POKE941+128*A,254 2150 IF L(A)>0 THEN POKE943+128*A,E 2160 IF L(A)<0 THEN POKE941+128*A,E 2170 D(A)=D(A)+1:IF D(A)=8 GOSUB 3010 2180 C=RND(4):G=RND(7)*3+1:TIMER=0 2190 RETURN 3000 MOVE SHIPS 3010 BM$(1)="":FORH=0TO31:BM$(1)=BM$(1)+CHR$(PEEK(1440+H)):NEXT:BM$(2)=B$(2):BM$(3)=B$(3)+CHR$(175) 3020 IFL(A)=0GOSUB3500 3030 FORB=1TO4:IFT(B,4)<>B THEN 3060 ELSE NEXT 3040 FORB=6TO9:IFT(B,4)<>10-B THEN 3060 ELSE NEXT 3050 GOSUB 3700 3060 FORH=31TO1STEP-1:FORL=1TO3:PRINT@384+L*32,RIGHT$(BM$(L),H-INT(L/2.5));STRING$(32-H,CHR$(175));:NEXTL,H 3070 FORL=3TO0STEP-1:PRINT@384+L*32,B$(L);:FORH=1TO9:T(H,L+1)=T(H,L):NEXTH:L(L+1)=L(L):D(L+1)=D(L):NEXTL 3080 FOR L=1313TO 1055 STEP -128:L$="":FORH=0TO29:L$=L$+CHR$(PEEK(L+H)):NEXTH:PRINT@L-896,L$;:NEXTL 3090 PRINT@32,B$(1); 3100 RETURN 3500 REM PERFECT BALANCE 3510 PMODE1,1:FORA=1TO10:SCREEN1,0:SOUND100+A*10,2:SCREEN1,1:SOUND50+A*8,1:NEXT:SC=SC+25 3520 FORX=1TO300:NEXT:10 PCLEAR8:CLEAR500:GOSUB 10010:POKEHS-1,0:LOADM"INTRO.SCR":GOSUB 7000:GOSUB 5000:CLS 3 40 FORA=0TO384STEP128:FORY=1TO3:PRINT@A+Y*32,B$(Y);:NEXTY,A:C=RND(4):TIMER=0 60 PRINT@G,C$(C); 70 K$=INKEY$:IF TIMER>180 THEN K$="":K=0:GOTO2000 ELSE IF K$=""GOTO70 ELSE K=ASC(K$) 80 IFK=8 OR K=9 GOTO1000 ELSE IFK$=" "OR K=10 GOTO2010 100 GOTO 60 1000 PRINT@G,BC$;:IFK=8 THEN G=G-3 ELSE G=G+3 1020 IF G>25 THEN G=25 ELSE IF G<1 THEN G=1 1030 GOTO60 2000 PLAY"01T8CEC" 2010 IF G=13 GOTO 9000 ELSE H=INT(G/3)+1:FORA=1TO4:IFT(H,A)<>0 THEN 2020 ELSE NEXT 2020 BF(1)=175:BF(2)=175:BF(3)=175 2030 IF A=1 THEN IF TIMER>180 GOTO 9000 ELSE SOUND 1,1:RETURN 2040 T(H,A-1)=C:PS=TIMER-200:IF TIMER<90 AND SP=1 THEN GOSUB 3600 ELSE IF S>0 THEN S=S-1:IF S<7 THEN SP=1:FORX=1088TO1472STEP128:POKEX,253:POKEX+28,255:NEXTX 2050 FORX=1TO3:C(X)=PEEK(1023+G+X):NEXTX 2060 FORY=1TOA*4-7:FORX=1 TO 3:POKE1023+G+X+32*(Y-1),BF(X):BF(X)=PEEK(1023+G+X+32*Y):POKE1023+G+X+32*Y,C(X):NEXT X,Y 2100 A=A-1:H=H-5:L(A)=L(A)+H*C:IF ABS(L(A))>6 GOTO 9000:REM CALCULATE BALANCE 2110 IF PS<0 THEN SC=SC+SP*INT(ABS(PS)/25):GOSUB4000:SOUND 200+PS,1 2120 IF L(A)>4 THEN E=188 ELSE IF L(A)>2 THEN E=156 ELSE IF L(A)>0 THEN E=140 ELSE IF L(A)<-4 THEN E=190 ELSE IF L(A)<-2 THEN E=158 ELSE IF L(A)<0 THEN E=142 2130 IF L(A)<=0 THEN POKE943+128*A,252 2140 IF L(A)>=0 THEN POKE941+128*A,254 2150 IF L(A)>0 THEN POKE943+128*A,E ELSE IF L(A)<0 THEN POKE941+128*A,E 2170 D(A)=D(A)+1:IF D(A)=8 GOSUB 3010 2180 C=RND(4):G=RND(7)*3+1:TIMER=0 2190 GOTO60 3000 MOVE SHIPS 3010 BM$(1)="":FORH=0TO31:BM$(1)=BM$(1)+CHR$(PEEK(1440+H)):NEXT:BM$(2)=B$(2):BM$(3)=B$(3)+CHR$(175) 3020 IFL(A)=0GOSUB3500 3030 FORB=1TO4:IFT(B,4)<>B THEN 3060 ELSE NEXT 3040 FORB=6TO9:IFT(B,4)<>10-B THEN 3060 ELSE NEXT 3050 GOSUB 3700 3060 FORH=31TO1STEP-1:FORL=1TO3:PRINT@384+L*32,RIGHT$(BM$(L),H-INT(L/2.5));STRING$(32-H,CHR$(175));:NEXTL,H 3070 FORL=3TO0STEP-1:PRINT@384+L*32,B$(L);:FORH=1TO9:T(H,L+1)=T(H,L):NEXTH:L(L+1)=L(L):D(L+1)=D(L):NEXTL 3080 FOR L=1313TO 1055 STEP -128:L$="":FORH=0TO29:L$=L$+CHR$(PEEK(L+H)):NEXTH:PRINT@L-896,L$;:NEXTL 3090 PRINT@32,B$(1); 3100 RETURN 3500 REM PERFECT BALANCE 3510 POKEHS-1,0:PMODE1,1:FORA=1TO10:SCREEN1,0:SOUND100+A*10,2:SCREEN1,1:SOUND50+A*8,1:NEXT:SC=SC+25 3520 FORX=1TO300:NEXT:GOSUB4000 3590 BB=BB+1:POKEHS,0:RETURN 3600 REM FAST 3610 POKEHS-1,0:PMODE 0,7:FORX=1TO8:SCREEN1,1:FORDL=1TO50:NEXT:SCREEN1,0:FORDL=1TO20:NEXTDL,X:SCREEN0,0 3615 BF=BF+1:S=S+3:IF S<10 OR SP=2 THEN POKEHS,0:RETURN 3620 PMODE0,8:FORX=1TO140:SCREEN1,0:SCREEN1,1:NEXTX:SP=2:SCREEN0,0:POKEHS,0 3630 FORX=1088TO1472STEP128:POKEX,141:POKEX+28,131:NEXTX 3650 BS=BS+1:RETURN 3700 REM PERFECT SORT 3710 POKEHS-1,0:PMODE1,5:FORX=1TO4:SCREEN1,0:SOUND 200-X*20,2:FORL=1TO99:NEXTL:SCREEN1,1:SOUND 50+X*20,1:NEXT:SC=SC+30 3720 FORX=1TO300:NEXT:GOSUB4000 3790 BO=BO+1:POKEHS,0:RETURN 4000 PRINT@28,MID$(STR$(SC),2);:RETURN 5000 REM INIT 5010 LOADM"FASTER.SCR":PCOPY1TO8:LOADM"FAST.SCR":PCOPY1TO7:LOADM"SORT.SCR":PCOPY1TO5:PCOPY2TO6:LOADM"SUNK.SCR":PCOPY1TO3:PCOPY2TO4:LOADM"BALANCE.SCR":POKEHS,0 5020 SP=1:R=RND(TIMER):LV=1:BR$=CHR$(254):L$=CHR$(250):BL$=CHR$(253):TR$=CHR$(251):F$=CHR$(255):TL$=CHR$(247):A$=CHR$(175):BC$=A$+A$+A$:FORX=1TO4:FORY=1TO9:T(Y,X)=0:NEXTY:L(X)=0:D(X)=0:NEXTX 5030 B$(1)=STRING$(13,A$)+BR$+BR$+CHR$(252)+STRING$(13,CHR$(175))+BR$+BR$+L$:B$(2)=BL$+STRING$(12,CHR$(243))+TR$+TR$+STRING$(13,CHR$(243))+F$+TR$+TR$+L$:B$(3)=A$+BL$+F$+F$+TL$+TL$+STRING$(6,F$)+TL$+F$+F$+TL$+STRING$(6,F$)+TL$+F$+TL$+STRING$(6,F$) 5040 C$(1)=CHR$(143)+CHR$(143)+CHR$(138):C$(2)=CHR$(159)+CHR$(159)+CHR$(154):C$(3)=CHR$(191)+CHR$(191)+CHR$(186):C$(4)=CHR$(207)+CHR$(207)+CHR$(202) 5050 G=4:SC=0 5060 RETURN 7000 OPEN"I",#1,"SCORES.DAT" 8030 FOR A=1TO5:INPUT#1,HS$(A):INPUT#1,HS(A):NEXT A 8035 INPUT#1,BF:INPUT#1,BS:INPUT#1,BB:INPUT#1,BO 8040 CLOSE #1 8050 RETURN 9000 PMODE1,3:SCREEN1,1 9050 EXEC44539 9070 B$=CHR$(255)+CHR$(255):S$=CHR$(207)+CHR$(207):G$=CHR$(159)+CHR$(159) 9080 CLS6:PRINT@10,"FAST BADGES";:X=34:NB=BF:GOSUB 9210 9090 PRINT@263,"SUPER FAST BADGES";:X=290:NB=BS:GOSUB9210 9100 CLS6:PRINT@5,"PERFECT BALANCE BADGES";:X=34:NB=BB:GOSUB9210 9110 PRINT@261,"PERFECT SORTING BADGES";:X=290:NB=BO:GOSUB9210 9115 PRINT@490,"SCORE:";SC;:EXEC44539:CLS 9120 FOR A=1TO5:IF SC>HS(A) THEN 9130 ELSE NEXT A 9130 FOR L=4TOA STEP-1:HS$(L+1)=HS$(L):HS(L+1)=HS(L):NEXT L 9140 IF A<6 THEN PRINTTAB(4)"YOU HAVE A HIGH SCORE!":INPUT"WHAT IS YOUR NAME";HS$(A):HS(A)=SC 9150 OPEN"O",#1,"SCORES.DAT":FORA=1TO5:PRINT#1,HS$(A):PRINT#1,HS(A):NEXT:PRINT#1,BF,BS,BB,BO:CLOSE#1 9160 CLS:PRINT@42,"HIGH SCORES":FOR A=1TO5:PRINTTAB(5-LEN(STR$(HS(A))));HS(A);" - ";HS$(A):NEXT A 9170 PRINT:PRINTTAB(7);"PLAY AGAIN? (y/n)":PRINT"PRESS s TO CLEAR THE HIGH SCORES";:PRINT"PRESS b TO CLEAR THE BADGE COUNT"; 9180 A$=INKEY$:IF A$="N" THEN GOTO 11000 ELSE IF A$="S" GOTO 9500 ELSE IF A$="B" GOTO9700 9200 IF A$="Y" THEN SP=1:SC=0:CLS3:GOSUB 5020:CLS3:GOTO40 ELSE GOTO 9180 9210 IFNB=0 THEN PRINT@X+43,"NONE!";:EXEC44539:RETURN 9215 B1$=CHR$(216)+CHR$(212) 9220 IFNB>99 THENFORA=1TONB/100:PRINT@X,B1$;:PRINT@X+32,G$;:X=X+3:NEXTA:X=(INT(X/32)+2)*32+3 9230 IFINT(NB/100)<>NB/100 AND NB>9 THENFORA=1TO(NB-INT(NB/100)*100)/10:PRINT@X,B1$;:PRINT@X+32,S$;:X=X+3:NEXTA:X=(INT(X/32)+2)*32+29240 IFINT(NB/10)<>NB/10 AND NB>0 THEN B1$=CHR$(214)+CHR$(217): FORA=1TO(NB-INT(NB/10)*10):PRINT@X,B1$;:PRINT@X+32,B$;:X=X+3:NEXTA 9245 X=(INT(X/32)+3)*32 9250 EXEC 44539:RETURN 9500 FORA=1TO5:HS$(A)=".":HS(A)=6-A:NEXTA:CLS:GOTO9150 9700 BF=0:BS=0:BB=0:BO=0:CLS:GOTO9150 10010 IF PEEK(&H8C1B)<>26 THEN HS=65495:RETURN 10020 WIDTH 32:CLS:HS=65497:PRINT@7,"PRESS FOR RGB":PRINT@39," FOR COMPOSITE" 10030 C$=INKEY$:IF C$="" THEN 10030 ELSE IF C$="C" THEN CMP ELSE IF C$="R" THEN RGB 10040 RETURN 11000 CLS:PRINT"THANKS FOR PLAYING!:PRINT"'DOCK MASTER' IS FREE SOFTWARE (C) DIEGO BARIZO, 2019-2020" 11010 PRINT "THE PROGRAM, GRAPHICS, SOURCE CODE, AND THE FILES DOCK.BAS, BALANCE.BAS, BALANCE.SCR, FAST.BAS, FAST.SCR, FASTER.BAS, FASTER.SCR, SORT.BAS, SORT.SCR, INTRO.BAS, INTRO.SCR, SUNK.BAS AND SUNK.SCR"; 11020 PRINT "CAN BE FREELY DISTRIBUTED WITH NO RESTRICTIONS." 11050 PRINT "CREATION OF DERIVATIVE WORKS IS ALLOWED, AS LONG AS CREDIT TO THE ORIGINAL AUTHOR IS GIVEN. DISTRIBUTION OF DERIVATIVE WORKSIS ALLOWED FOR NON-COMERCIAL PURPOSES ONLY, UNLESS A SPECIFICAUTHORIZATION HAS BEEN GRANTED BY THE"; 11090 PRINT "AUTHOR OF THE ORIGINAL." 11100 PRINT:PRINT"WWW.YACCS.INFO / WWW.COCOWARES.COM"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           10 PCLEAR8:CLEAR500:GOSUB 10010:POKEHS-1,0:LOADM"INTRO.SCR":GOSUB 7000:GOSUB 5000:CLS 3 40 FORA=0TO384STEP128:FORY=1TO3:PRINT@A+Y*32,B$(Y);:NEXTY,A:C=RND(4):TIMER=0 60 PRINT@G,C$(C); 70 K$=INKEY$:IF TIMER>180 THEN K$="":K=0:GOTO2000 ELSE IF K$=""GOTO70 ELSE K=ASC(K$) 80 IFK=8 OR K=9 GOTO1000 ELSE IFK$=" "OR K=10 GOTO2010 100 GOTO 60 1000 PRINT@G,BC$;:IFK=8 THEN G=G-3 ELSE G=G+3 1020 IF G>25 THEN G=25 ELSE IF G<1 THEN G=1 1030 GOTO60 2000 PLAY"01T8CEC" 2010 IF G=13 GOTO 9000 ELSE H=INT(G/3)+1:FORA=1TO4:IFT(H,A)<>0 THEN 2020 ELSE NEXT 2020 BF(1)=175:BF(2)=175:BF(3)=175 2030 IF A=1 THEN IF TIMER>180 GOTO 9000 ELSE SOUND 1,1:RETURN 2040 T(H,A-1)=C:PS=TIMER-200:IF TIMER<90 AND SP=1 THEN GOSUB 3600 ELSE IF S>0 THEN S=S-1:IF S<7 THEN SP=1:FORX=1088TO1472STEP128:POKEX,253:POKEX+28,255:NEXTX 2050 FORX=1TO3:C(X)=PEEK(1023+G+X):NEXTX 2060 FORY=1TOA*4-7:FORX=1 TO 3:POKE1023+G+X+32*(Y-1),BF(X):BF(X)=PEEK(1023+G+X+32*Y):POKE1023+G+X+32*Y,C(X):NEXT X,Y 2100 A=A-1:H=H-5:L(A)=L(A)+H*C:IF ABS(L(A))>6 GOTO 9000:REM CALCULATE BALANCE 2110 IF PS<0 THEN SC=SC+SP*INT(ABS(PS)/25):GOSUB4000:SOUND 200+PS,1 2120 IF L(A)>4 THEN E=188 ELSE IF L(A)>2 THEN E=156 ELSE IF L(A)>0 THEN E=140 ELSE IF L(A)<-4 THEN E=190 ELSE IF L(A)<-2 THEN E=158 ELSE IF L(A)<0 THEN E=142 2130 IF L(A)<=0 THEN POKE943+128*A,252 2140 IF L(A)>=0 THEN POKE941+128*A,254 2150 IF L(A)>0 THEN POKE943+128*A,E ELSE IF L(A)<0 THEN POKE941+128*A,E 2170 D(A)=D(A)+1:IF D(A)=8 GOSUB 3010 2180 C=RND(4):G=RND(7)*3+1:TIMER=0 2190 GOTO60 3000 MOVE SHIPS 3010 BM$(1)="":FORH=0TO31:BM$(1)=BM$(1)+CHR$(PEEK(1440+H)):NEXT:BM$(2)=B$(2):BM$(3)=B$(3)+CHR$(175) 3020 IFL(A)=0GOSUB3500 3030 FORB=1TO4:IFT(B,4)<>B THEN 3060 ELSE NEXT 3040 FORB=6TO9:IFT(B,4)<>10-B THEN 3060 ELSE NEXT 3050 GOSUB 3700 3060 FORH=31TO1STEP-1:FORL=1TO3:PRINT@384+L*32,RIGHT$(BM$(L),H-INT(L/2.5));STRING$(32-H,CHR$(175));:NEXTL,H 3070 FORL=3TO0STEP-1:PRINT@384+L*32,B$(L);:FORH=1TO9:T(H,L+1)=T(H,L):NEXTH:L(L+1)=L(L):D(L+1)=D(L):NEXTL 3080 FOR L=1313TO 1055 STEP -128:L$="":FORH=0TO29:L$=L$+CHR$(PEEK(L+H)):NEXTH:PRINT@L-896,L$;:NEXTL 3090 PRINT@32,B$(1); 3100 RETURN 3500 REM PERFECT BALANCE 3510 POKEHS-1,0:PMODE1,1:FORA=1TO10:SCREEN1,0:SOUND100+A*10,2:SCREEN1,1:SOUND50+A*8,1:NEXT:SC=SC+25 3520 FORX=1TO300:NEXT:GOSUB4000 3590 BB=BB+1:POKEHS,0:RETURN 3600 REM FAST 3610 POKEHS-1,0:PMODE 0,7:FORX=1TO8:SCREEN1,1:FORDL=1TO50:NEXT:SCREEN1,0:FORDL=1TO20:NEXTDL,X:SCREEN0,0 3615 BF=BF+1:S=S+3:IF S<10 OR SP=2 THEN POKEHS,0:RETURN 3620 PMODE0,8:FORX=1TO140:SCREEN1,0:SCREEN1,1:NEXTX:SP=2:SCREEN0,0:POKEHS,0 3630 FORX=1088TO1472STEP128:POKEX,141:POKEX+28,131:NEXTX 3650 BS=BS+1:RETURN 3700 REM PERFECT SORT 3710 POKEHS-1,0:PMODE1,5:FORX=1TO4:SCREEN1,0:SOUND 200-X*20,2:FORL=1TO99:NEXTL:SCREEN1,1:SOUND 50+X*20,1:NEXT:SC=SC+30 3720 FORX=1TO300:NEXT:GOSUB4000 3790 BO=BO+1:POKEHS,0:RETURN 4000 PRINT@28,MID$(STR$(SC),2);:RETURN 5000 REM INIT 5010 LOADM"FASTER.SCR":PCOPY1TO8:LOADM"FAST.SCR":PCOPY1TO7:LOADM"SORT.SCR":PCOPY1TO5:PCOPY2TO6:LOADM"SUNK.SCR":PCOPY1TO3:PCOPY2TO4:LOADM"BALANCE.SCR":POKEHS,0 5020 SP=1:R=RND(TIMER):LV=1:BR$=CHR$(254):L$=CHR$(250):BL$=CHR$(253):TR$=CHR$(251):F$=CHR$(255):TL$=CHR$(247):A$=CHR$(175):BC$=A$+A$+A$:FORX=1TO4:FORY=1TO9:T(Y,X)=0:NEXTY:L(X)=0:D(X)=0:NEXTX 5030 B$(1)=STRING$(13,A$)+BR$+BR$+CHR$(252)+STRING$(13,CHR$(175))+BR$+BR$+L$:B$(2)=BL$+STRING$(12,CHR$(243))+TR$+TR$+STRING$(13,CHR$(243))+F$+TR$+TR$+L$:B$(3)=A$+BL$+F$+F$+TL$+TL$+STRING$(6,F$)+TL$+F$+F$+TL$+STRING$(6,F$)+TL$+F$+TL$+STRING$(6,F$) 5040 C$(1)=CHR$(143)+CHR$(143)+CHR$(138):C$(2)=CHR$(159)+CHR$(159)+CHR$(154):C$(3)=CHR$(191)+CHR$(191)+CHR$(186):C$(4)=CHR$(207)+CHR$(207)+CHR$(202) 5050 G=4:SC=0 5060 RETURN 7000 OPEN"I",#1,"SCORES.DAT" 8030 FOR A=1TO5:INPUT#1,HS$(A):INPUT#1,HS(A):NEXT A 8035 INPUT#1,BF:INPUT#1,BS:INPUT#1,BB:INPUT#1,BO 8040 CLOSE #1 8050 RETURN 9000 PMODE1,3:SCREEN1,1 9050 EXEC44539 9070 B$=CHR$(255)+CHR$(255):S$=CHR$(207)+CHR$(207):G$=CHR$(159)+CHR$(159) 9080 CLS6:PRINT@10,"FAST BADGES";:X=34:NB=BF:GOSUB 9210 9090 PRINT@263,"SUPER FAST BADGES";:X=290:NB=BS:GOSUB9210 9100 CLS6:PRINT@5,"PERFECT BALANCE BADGES";:X=34:NB=BB:GOSUB9210 9110 PRINT@261,"PERFECT SORTING BADGES";:X=290:NB=BO:GOSUB9210 9115 PRINT@490,"SCORE:";SC;:EXEC44539:CLS 9120 FOR A=1TO5:IF SC>HS(A) THEN 9130 ELSE NEXT A 9130 FOR L=4TOA STEP-1:HS$(L+1)=HS$(L):HS(L+1)=HS(L):NEXT L 9140 IF A<6 THEN PRINTTAB(4)"YOU HAVE A HIGH SCORE!":INPUT"WHAT IS YOUR NAME";HS$(A):HS(A)=SC 9150 OPEN"O",#1,"SCORES.DAT":FORA=1TO5:PRINT#1,HS$(A):PRINT#1,HS(A):NEXT:PRINT#1,BF,BS,BB,BO:CLOSE#1 9160 CLS:PRINT@42,"HIGH SCORES":FOR A=1TO5:PRINTTAB(5-LEN(STR$(HS(A))));HS(A);" - ";HS$(A):NEXT A 9170 PRINT:PRINTTAB(7);"PLAY AGAIN? (y/n)":PRINT"PRESS s TO CLEAR THE HIGH SCORES";:PRINT"PRESS b TO CLEAR THE BADGE COUNT"; 9180 A$=INKEY$:IF A$="N" THEN GOTO 11000 ELSE IF A$="S" GOTO 9500 ELSE IF A$="B" GOTO9700 9200 IF A$="Y" THEN SP=1:SC=0:CLS3:GOSUB 5020:CLS3:GOTO40 ELSE GOTO 9180 9210 IFNB=0 THEN PRINT@X+43,"NONE!";:EXEC44539:RETURN 9215 B1$=CHR$(216)+CHR$(212) 9220 IFNB>99 THENFORA=1TONB/100:PRINT@X,B1$;:PRINT@X+32,G$;:X=X+3:NEXTA:X=(INT(X/32)+2)*32+3 9230 IFINT(NB/100)<>NB/100 AND NB>9 THENFORA=1TO(NB-INT(NB/100)*100)/10:PRINT@X,B1$;:PRINT@X+32,S$;:X=X+3:NEXTA:X=(INT(X/32)+2)*32+2 9240 IFINT(NB/10)<>NB/10 AND NB>0 THEN B1$=CHR$(214)+CHR$(217): FORA=1TO(NB-INT(NB/10)*10):PRINT@X,B1$;:PRINT@X+32,B$;:X=X+3:NEXTA 9245 X=(INT(X/32)+3)*32 9250 EXEC 44539:RETURN 9500 FORA=1TO5:HS$(A)=".":HS(A)=6-A:NEXTA:CLS:GOTO9150 9700 BF=0:BS=0:BB=0:BO=0:CLS:GOTO9150 10010 IF PEEK(&H8C1B)<>26 THEN HS=65495:RETURN 10020 WIDTH 32:CLS:HS=65497:PRINT@7,"PRESS FOR RGB":PRINT@39," FOR COMPOSITE" 10030 C$=INKEY$:IF C$="" THEN 10030 ELSE IF C$="C" THEN CMP ELSE IF C$="R" THEN RGB 10040 RETURN 11000 CLS:PRINT"THANKS FOR PLAYING!:PRINT"'DOCK MASTER' IS FREE SOFTWARE (C) DIEGO BARIZO, 2019-2020" 11010 PRINT "THE PROGRAM, GRAPHICS, SOURCE CODE, AND THE FILES DOCK.BAS, BALANCE.BAS, BALANCE.SCR, FAST.BAS, FAST.SCR, FASTER.BAS, FASTER.SCR, SORT.BAS, SORT.SCR, INTRO.BAS, INTRO.SCR, SUNK.BAS AND SUNK.SCR"; 11020 PRINT "CAN BE FREELY DISTRIBUTED WITH NO RESTRICTIONS." 11050 PRINT "CREATION OF DERIVATIVE WORKS IS ALLOWED, AS LONG AS CREDIT TO THE ORIGINAL AUTHOR IS GIVEN. DISTRIBUTION OF DERIVATIVE WORKSIS ALLOWED FOR NON-COMERCIAL PURPOSES ONLY, UNLESS A SPECIFICAUTHORIZATION HAS BEEN GRANTED BY THE"; 11090 PRINT "AUTHOR OF THE ORIGINAL." 11100 PRINT:PRINT"WWW.YACCS.INFO / WWW.COCOWARES.COM"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          10 PCLEAR8:CLEAR500:GOSUB 10010:POKEHS-1,0:LOADM"INTRO.SCR":GOSUB 7000:GOSUB 5000:CLS 3 40 FORA=0TO384STEP128:FORY=1TO3:PRINT@A+Y*32,B$(Y);:NEXTY,A:C=RND(4):TIMER=0 60 PRINT@G,C$(C); 70 K$=INKEY$:IF TIMER>180 THEN K$="":K=0:GOTO2000 ELSE IF K$=""GOTO70 ELSE K=ASC(K$) 80 IFK=8 OR K=9 GOTO1000 ELSE IFK$=" "OR K=10 GOTO2010 100 GOTO 60 1000 PRINT@G,BC$;:IFK=8 THEN G=G-3 ELSE G=G+3 1020 IF G>25 THEN G=25 ELSE IF G<1 THEN G=1 1030 GOTO60 2000 PLAY"01T8CEC" 2010 IF G=13 GOTO 9000 ELSE H=INT(G/3)+1:FORA=1TO4:IFT(H,A)<>0 THEN 2020 ELSE NEXT 2020 BF(1)=175:BF(2)=175:BF(3)=175 2030 IF A=1 THEN IF TIMER>180 GOTO 9000 ELSE SOUND 1,1:RETURN 2040 T(H,A-1)=C:PS=TIMER-200:IF TIMER<90 AND SP=1 THEN GOSUB 3600 ELSE IF S>0 THEN S=S-1:IF S<7 THEN SP=1:FORX=1088TO1472STEP128:POKEX,253:POKEX+28,255:NEXT 2050 FORX=1TO3:C(X)=PEEK(1023+G+X):NEXT 2060 FORY=1TOA*4-7:FORX=1 TO 3:POKE1023+G+X+32*(Y-1),BF(X):BF(X)=PEEK(1023+G+X+32*Y):POKE1023+G+X+32*Y,C(X):NEXTX,Y 2099 REM CALCULATE BALANCE 2100 A=A-1:H=H-5:L(A)=L(A)+H*C:IF ABS(L(A))>6 GOTO 9000 2110 IF PS<0 THEN SC=SC+SP*INT(ABS(PS)/25):GOSUB4000:SOUND 200+PS,1 2120 IF L(A)>4 THEN E=188 ELSE IF L(A)>2 THEN E=156 ELSE IF L(A)>0 THEN E=140 ELSE IF L(A)<-4 THEN E=190 ELSE IF L(A)<-2 THEN E=158 ELSE IF L(A)<0 THEN E=142 2130 IF L(A)<=0 THEN POKE943+128*A,252 2140 IF L(A)>=0 THEN POKE941+128*A,254 2150 IF L(A)>0 THEN POKE943+128*A,E ELSE IF L(A)<0 THEN POKE941+128*A,E 2170 D(A)=D(A)+1:IF D(A)=8 GOSUB 3010 2180 C=RND(4):G=RND(7)*3+1:TIMER=0 2190 GOTO60 3000 MOVE SHIPS 3010 BM$(1)="":FORH=0TO31:BM$(1)=BM$(1)+CHR$(PEEK(1440+H)):NEXT:BM$(2)=B$(2):BM$(3)=B$(3)+CHR$(175) 3020 IFL(A)=0GOSUB3500 3030 FORB=1TO4:IFT(B,4)<>B THEN 3060 ELSE NEXT 3040 FORB=6TO9:IFT(B,4)<>10-B THEN 3060 ELSE NEXT 3050 GOSUB 3700 3060 FORH=31TO1STEP-1:FORL=1TO3:PRINT@384+L*32,RIGHT$(BM$(L),H-INT(L/2.5));STRING$(32-H,CHR$(175));:NEXTL,H 3070 FORL=3TO0STEP-1:PRINT@384+L*32,B$(L);:FORH=1TO9:T(H,L+1)=T(H,L):NEXTH:L(L+1)=L(L):D(L+1)=D(L):NEXT 3080 FOR L=1313TO 1055 STEP -128:L$="":FORH=0TO29:L$=L$+CHR$(PEEK(L+H)):NEXTH:PRINT@L-896,L$;:NEXT 3090 PRINT@32,B$(1); 3100 RETURN 3500 REM PERFECT BALANCE 3510 POKEHS-1,0:PMODE1,1:FORA=1TO10:SCREEN1,0:SOUND100+A*10,2:SCREEN1,1:SOUND50+A*8,1:NEXT:SC=SC+25 3520 FORX=1TO300:NEXT:GOSUB4000 3590 BB=BB+1:POKEHS,0:RETURN 3600 REM FAST 3610 POKEHS-1,0:PMODE 0,7:FORX=1TO8:SCREEN1,1:FORDL=1TO50:NEXT:SCREEN1,0:FORDL=1TO20:NEXTDL,X:SCREEN0,0 3615 BF=BF+1:S=S+3:IF S<10 OR SP=2 THEN POKEHS,0:RETURN 3620 PMODE0,8:FORX=1TO140:SCREEN1,0:SCREEN1,1:NEXT:SP=2:SCREEN0,0:POKEHS,0 3630 FORX=1088TO1472STEP128:POKEX,141:POKEX+28,131:NEXT 3650 BS=BS+1:RETURN 3700 REM PERFECT SORT 3710 POKEHS-1,0:PMODE1,5:FORX=1TO4:SCREEN1,0:SOUND 200-X*20,2:FORL=1TO99:NEXTL:SCREEN1,1:SOUND 50+X*20,1:NEXT:SC=SC+30 3720 FORX=1TO300:NEXT:GOSUB4000 3790 BO=BO+1:POKEHS,0:RETURN 4000 PRINT@28,MID$(STR$(SC),2);:RETURN 5000 REM INIT 5010 LOADM"FASTER.SCR":PCOPY1TO8:LOADM"FAST.SCR":PCOPY1TO7:LOADM"SORT.SCR":PCOPY1TO5:PCOPY2TO6:LOADM"SUNK.SCR":PCOPY1TO3:PCOPY2TO4:LOADM"BALANCE.SCR":POKEHS,0 5020 SP=1:R=RND(TIMER):LV=1:BR$=CHR$(254):L$=CHR$(250):BL$=CHR$(253):TR$=CHR$(251):F$=CHR$(255):TL$=CHR$(247):A$=CHR$(175):BC$=A$+A$+A$:FORX=1TO4:FORY=1TO9:T(Y,X)=0:NEXTY:L(X)=0:D(X)=0:NEXTX 5030 B$(1)=STRING$(13,A$)+BR$+BR$+CHR$(252)+STRING$(13,CHR$(175))+BR$+BR$+L$:B$(2)=BL$+STRING$(12,CHR$(243))+TR$+TR$+STRING$(13,CHR$(243))+F$+TR$+TR$+L$:B$(3)=A$+BL$+F$+F$+TL$+TL$+STRING$(6,F$)+TL$+F$+F$+TL$+STRING$(6,F$)+TL$+F$+TL$+STRING$(6,F$) 5040 C$(1)=CHR$(143)+CHR$(143)+CHR$(138):C$(2)=CHR$(159)+CHR$(159)+CHR$(154):C$(3)=CHR$(191)+CHR$(191)+CHR$(186):C$(4)=CHR$(207)+CHR$(207)+CHR$(202) 5050 G=4:SC=0 5060 RETURN 7000 OPEN"I",#1,"SCORES.DAT" 8030 FOR A=1TO5:INPUT#1,HS$(A):INPUT#1,HS(A):NEXT 8035 INPUT#1,BF:INPUT#1,BS:INPUT#1,BB:INPUT#1,BO 8040 CLOSE #1 8050 RETURN 9000 PMODE1,3:SCREEN1,1PLAY"O1L2G":SCREEN0,0:PLAY"L8EBL4F":SCREEN1,1:PLAY"DL2F":SCREEN1,0:PLAY"L8DA":SCREEN1,1:PLAY"L4EL2CDC" 9050 EXEC44539 9070 B$=CHR$(255)+CHR$(255):S$=CHR$(207)+CHR$(207):G$=CHR$(159)+CHR$(159) 9080 CLS6:PRINT@10,"FAST BADGES";:X=34:NB=BF:GOSUB 9210 9090 PRINT@263,"SUPER FAST BADGES";:X=290:NB=BS:GOSUB9210 9100 CLS6:PRINT@5,"PERFECT BALANCE BADGES";:X=34:NB=BB:GOSUB9210 9110 PRINT@261,"PERFECT SORTING BADGES";:X=290:NB=BO:GOSUB9210 9115 PRINT@490,"SCORE:";SC;:EXEC44539:CLS 9120 FOR A=1TO5:IF SC>HS(A) THEN 9130 ELSE NEXT 9130 FOR L=4TOA STEP-1:HS$(L+1)=HS$(L):HS(L+1)=HS(L):NEXT 9140 IF A<6 THEN PRINTTAB(4)"YOU HAVE A HIGH SCORE!":INPUT"WHAT IS YOUR NAME";HS$(A):HS(A)=SC 9150 OPEN"O",#1,"SCORES.DAT":FORA=1TO5:PRINT#1,HS$(A):PRINT#1,HS(A):NEXT:PRINT#1,BF,BS,BB,BO:CLOSE#1 9160 CLS:PRINT@42,"HIGH SCORES":FOR A=1TO5:PRINTTAB(5-LEN(STR$(HS(A))));HS(A);" - ";HS$(A):NEXT 9170 PRINT:PRINTTAB(7);"PLAY AGAIN? (y/n)":PRINT"PRESS s TO CLEAR THE HIGH SCORES";:PRINT"PRESS b TO CLEAR THE BADGE COUNT"; 9180 A$=INKEY$:IF A$="N" THEN GOTO 11000 ELSE IF A$="S" THEN FORA=1TO5:HS$(A)=".":HS(A)=6-A:NEXT:CLS ELSE IF A$="B"THEN BF=0:BS=0:BB=0:BO=0:CLS 9200 IF A$="Y" THEN SP=1:SC=0:CLS3:GOSUB 5020:GOTO40 ELSE GOTO 9180 9210 IFNB=0 THEN PRINT@X+43,"NONE!";:EXEC44539:RETURN 9215 B1$=CHR$(216)+CHR$(212) 9220 IFNB>99 THENFORA=1TONB/100:PRINT@X,B1$;:PRINT@X+32,G$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+3 9230 IFINT(NB/100)<>NB/100 AND NB>9 THENFORA=1TO(NB-INT(NB/100)*100)/10:PRINT@X,B1$;:PRINT@X+32,S$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+2 9240 IFINT(NB/10)<>NB/10 AND NB>0 THEN B1$=CHR$(214)+CHR$(217): FORA=1TO(NB-INT(NB/10)*10):PRINT@X,B1$;:PRINT@X+32,B$;:X=X+3:NEXT 9245 X=(INT(X/32)+3)*32:EXEC 44539:RETURN 10010 IF PEEK(&H8C1B)<>26 THEN HS=65495:RETURN 10020 WIDTH 32:CLS:HS=65497:PRINT@7,"PRESS FOR RGB":PRINT@39," FOR COMPOSITE" 10030 C$=INKEY$:IF C$="" THEN 10030 ELSE IF C$="C" THEN CMP ELSE IF C$="R" THEN RGB 10040 RETURN 11000 CLS:PRINT"THANKS FOR PLAYING!:PRINT"'DOCK MASTER' IS FREE SOFTWARE":PRINT"BY DIEGO BARIZO, 2019-2020 AND" 11010 PRINT "CAN BE FREELY DISTRIBUTED":PRINT"WITHOUT RESTRICTIONS." 11050 PRINT "VISIT WWW.YACCS.INFO":PRINT"FOR MORE INFORMATION AND MORE":PRINT"COCO RELATED GOODIES!" 12010 PLAY"O1L2GL8EBL4FDL2FL8DAL4EL2CDC LOWED, AS LONG AS CREDIT TO THE ORIGINAL AUTHOR IS GIVEN. DISTRIBUTION OF DERIVATIVE WORKSIS ALLOWED FOR NON-COMERCIAL PURPOSES ONLY, UNLESS A SPECIFICAUTHORIZATION HAS BEEN GRANTED BY THE"; 11090 PRINT "AUTHOR OF THE ORIGINAL." 11100 PRINT:PRINT"WWW.YACCS.INFO / WWW.COCOWARES.COM"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  A│32 е 122:Н C$:CF$(A)│C$:Л A/#№Р/B╞"BM"лWS$:АA│1еNW:╞W$:ЛA:Р/eЖ "BR6","BR2D4BD4D1BU9",,,,,,,/Ъ$Ж ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",0.Ж "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G2F2D2NL6BU8","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6"0r8Ж "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","BD8BR2E6U2NL6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3"0┴BЖ "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",0╧LВ A TO F1<VЖ "ND8R6D4NL6D4BU8","D8R6U4L2NL4U4NL4BR2","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6"1I`В G TO K1УjЖ "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E41аtВ L TO P1є~Ж "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6"2TИЖ "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5BR","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6"2кТЖ "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8"2╢ЬЖ ,,,,,2╟жВ MINUSCULAS32░Ж "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6"3з║Ж "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3"4+─Ж "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6"4Й╬Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"4ч╪Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"5тЖ "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"5GьЖ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,5RЎт 80:СR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"4ч╪Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"5тЖ "BR1BD2D2F1R2E1D30,136":NW=4:GOSUB 1040:WS$="20,156":NW=6:GOSUB 1040:WS$="226,154":NW=3:GOSUB 1040:WS$="200,168":NW=5:GOSUB 1040:WS$="4,146":NW=6:GOSUB1040 210 WS$="130,146":NW=3:GOSUB1040:WS$="0,180":NW=4:GOSUB 1040:WS$="80,178":NW=9:GOSUB 1040:WS$="0,195":NW=5:GOSUB1040:WS$="66,195":NW=12:GOSUB1040 220 FOR B=2TO15 230 FORA=1TO255 STEP B:PSET(A,110+INT(SIN((A+45)/17)*10)+A/15+B*2,1):PSET(A,145+INT(SIN(A/28)*10)+A/15+B*2,1):NEXT A,B 255 DRAW"C3BM18,10;S4":T$="THE SHIP HAS CAPSIZED!":GOSUB500:DRAW"BM34,24":T$="ALL THE CONTAI1 PCLEAR8:CLEAR500:GOSUB 87:POKEHS-1,0:LOADM"INTRO.SCR":OPEN"I",#1,"SCORES.DAT":FOR L=1TO5:INPUT#1,HS$(L):INPUT#1,HS(L):NEXT:INPUT#1,BF:INPUT#1,BS:INPUT#1,BB:INPUT#1,BO:CLOSE #1:GOSUB 60:CLS 3 2 FORA=0TO384STEP128:FORY=1TO3:PRINT@A+Y*32,B$(Y);:NEXTY,A:C=RND(4):TIMER=0 3 IF C$="C" THEN PALETTE 2,13 ELSE IF C$="R" THEN PALETTE 2,11 4 PRINT@G,C$(C); 5 K$=INKEY$:IF TIMER>500-D*5THEN K$="":K=0:PLAY"01L24CEC":GOTO 12 ELSE IF K$=""GOTO 5 ELSE K=ASC(K$) 6 IFK=8 OR K=9 GOTO 8 ELSE IFK$=" "OR K=10 GOTO 12 7 GOTO 4 8 PRINT@G,BC$;:IFK=8 THEN G=G-3 ELSE G=G+3 9 IF G>25 THEN G=25 ELSE IF G<1 THEN G=1 10 GOTO 4 12 IF G=13 GOTO 65 ELSE H=INT(G/3)+1:FORA=1TO4:IFT(H,A)<>0 THEN 13 ELSE NEXT 13 BF(1)=175:BF(2)=175:BF(3)=175 14 IF A=1 THEN IF K$="" GOTO 65 ELSE SOUND 1,1:GOTO 5 15 T(H,A-1)=C:PS=TIMER-200:IF TIMER<90-D AND SP=1 THEN GOSUB 47 ELSE IF S>0 THEN S=S-1:IF S<7 THEN SP=1:FORX=1088TO1472STEP128:POKEX,253:POKEX+28,255:NEXT 16 FORX=1TO3:C(X)=PEEK(1023+G+X):NEXT 17 FORY=1TOA*4-7:FORX=1 TO 3:POKE1023+G+X+32*(Y-1),BF(X):BF(X)=PEEK(1023+G+X+32*Y):POKE1023+G+X+32*Y,C(X):NEXTX,Y 18 CALCULATE BALANCE 19 A=A-1:H=H-5:L(A)=L(A)+H*C:IF ABS(L(A))>6 GOTO 65 20 IF PS<0 THEN SC=SC+SP*INT(ABS(PS)/25):GOSUB 58:SOUND 200+PS,1 21 IF L(A)>4 THEN E=188 ELSE IF L(A)>2 THEN E=156 ELSE IF L(A)>0 THEN E=140 ELSE IF L(A)<-4 THEN E=190 ELSE IF L(A)<-2 THEN E=158 ELSE IF L(A)<0 THEN E=142 22 IF L(A)<=0 THEN POKE943+128*A,252 23 IF L(A)>=0 THEN POKE941+128*A,254 24 IF L(A)>0 THEN POKE943+128*A,E ELSE IF L(A)<0 THEN POKE941+128*A,E 25 D(A)=D(A)+1:IF D(A)=8 GOSUB 29 26 C=RND(4):G=RND(7)*3+1:TIMER=0:GOTO 3 28 MOVE SHIPS 29 BM$(1)="":FORX=0TO31:BM$(1)=BM$(1)+CHR$(PEEK(1440+X)):NEXT:BM$(2)=B$(2):BM$(3)=B$(3)+CHR$(175):IFD<60THEND=D+20 ELSE IFD<75THEN D=D+5 ELSE D=D+2 30 PRINT@8,"DIFFICULTY:";INT(D/2);:IFL(A)=0GOSUB 40 31 FORL=1TO4:IFT(L,4)<>L THEN 34 ELSE NEXT 32 FORL=6TO9:IFT(L,4)<>10-L THEN 34 ELSE NEXT 33 GOSUB 53 34 IF C$="C"THENPALETTE2,13 ELSE IF C$="R"THENPALETTE2,11 35 FORX=31TO1STEP-1:FORY=1TO3:PRINT@384+Y*32,RIGHT$(BM$(Y),X-INT(Y/2.5));STRING$(32-X,CHR$(175));:NEXTY,X 36 FORL=3TO0STEP-1:PRINT@384+L*32,B$(L);:FORX=1TO9:T(X,L+1)=T(X,L):NEXTX:L(L+1)=L(L):D(L+1)=D(L):NEXT 37 FORL=1313TO 1055 STEP -128:L$="":FORX=0TO29:L$=L$+CHR$(PEEK(L+X)):NEXTX:PRINT@L-896,L$;:NEXT 38 PRINT@8,STRING$(16,CHR$(175));:PRINT S& И Ё Бе 1270&GТ 65497,0:т 32:М CF$(122):╚1,1:┐1,1:╝2:┴3:Бж 1000&ЗА V│1 е 80 й 4:А H│1 е 255 й9:╗(H,V)м(Hл(8мVо10),V),╜:Л H,V&╠А V│80 е 118 й 4:АH│220 е 255 й9:╗(HлVо25,V)м(HлVо25л1,V),╜:ЛH,V'╗(38,112)м(212,124),╜:╗(40,75)м(214,88),╜:┬(212,106),24,3,.9,.79,.24'И(╞"BM0,88;D2RD2RD3RD4RD5R2D5R3D4":╞"BM38,74;M-8,+1;M-12,+2;M-10,+4;M-6,+6":╞"G1;M+8,+10;M+9,+7;M+10,+5;M+12,+2"'ш2┬(18,112),8,3,.7,.25,.5:╗(20,118)м(222,134),╜:┬(214,112),22,3,1.2,0.05,.24:╞"BM236,118;U10"(<├(100,110),4,3:├(40,118),3,3:╗(44,78)м(200,90),╜(│F┬(50,94),26,2,.9,.40,.58:┬(48,96),26,2,.9,.55,.72:╞"BM40,82;M+22,+2;M-2,+22;M-22,-2;M+2,-22;C3":┬(48,94),26,3,.9,.4,.74:├(20,90),1,3:├(50,90),3,3(хP┴4:АA│1е10й4:╗(13лA,108лA)м(224мA,124лA),╜:ЛA)>ZD$│"M+3,-46;M+6,+2;M-3,+46;M-6,-2":╞ "BM75,119;C1"лD$л"BM125,122"лD$:╞"BM175,126"лD$)nd├(77,115),1,1:├(127,119),1,1:├(177,121),1,1)вn╞"BM75,119;C3;XD$;BM125,122;XD$;BM175,126;XD$;")┴x┬(212,106),24,1,.9,.76,.96*rВ╗(234,90)м(234,104),╜:╞"C3BM214,120;L18M+2,-14;BM216,106;M-16,-2;M+3,-36;M+16,+2;":┬(216,88),18,3,1,.77,.24:┬(214,104),18,3,1,0,.24:├(216,82),1,3:├(214,109),1,3:╜(214,96,1)*ПМ╗(198,108)м(206,66),╜,BF*нЦ┬(20,82),4,3:┬(18,96),4,3+,а┬(220,88),10,4,.76,.88,.65:┬(222,82),8,4,.7:├(220,90),4,4:├(222,82),3,4:┬(226,82),14,2,.76,.27,.45:╜(208,88,1):╜(228,92,4)+Че╞"BM202,112;R1BR3R3BR3R1BR3RBE2BR1E2BD6BL1G2BL2L2BL3L2BL4L1BL3L1BM200,104C4;R3NU2ND2R2BU34C2L2NU2ND2L3,g╚W$│"C1E4R2G2D2F2R4BU2":WS$│"60,124":NW│6:Бж 1040:WS$│"170,130":NW│5:Бж1040:WS$│"0,136":NW│4:Бж 1040:WS$│"20,156":NW│6:Бж 1040:WS$│"226,154":NW│3:Бж 1040:WS$│"200,168":NW│5:Бж 1040:WS$│"4,146":NW│6:Бж1040,ъ╥WS$│"130,146":NW│3:Бж1040:WS$│"0,180":NW│4:Бж 1040:WS$│"80,178":NW│9:Бж 1040:WS$│"0,195":NW│5:Бж1040:WS$│"66,195":NW│12:Бж1040,ў▄А B│2е15-[цАA│1е255 й B:╜(A,110л Б( Е((Aл45)о17)н10)лAо15лBн2,1):╜(A,145л Б( Е(Aо28)н10)лAо15лBн2,1):Л A,B-▄ ╞"C3BM18,10;S4":T$│"THE SHIP HAS CAPSIZED!":Бж500:╞"BM34,24":T$│"ALL THE CONTAINERS":Бж500:╞"BM74,38":T$│"HAVE SUNK!!":Бж500.]╞"C1BM20,12;S4":T$│"THE SHIP HAS CAPSIZED!":Бж500:╞"BM36,26":T$│"ALL THE CONTAINERS":Бж500:╞"BM76,40":T$│"HAVE SUNK!!":Бж500.iв 44539.ШSP│ Ж(&HBC)н256:╪M"SUNK.SCR",SP,SPл3071,SP.ж,в 44539:К.╫ЇА A│1 е  З(T$):╞ CF$( К( Р(T$,A,1)))л"BR4":Л.▌■Р.юшВ LOAD FONTS/Є╞"BM9,100":А@39," FOR COMPOSITE"P0'.C$│ Т:Е C$│"" з 10030PY'/Е C$│"C" з у 2,45:у5,29:у7,21:у 4,59PД'3Е C$│"R" з ў:у 2,24:у5,25:у 7,52:у6,14PК'8РQ\*°Ю:З"THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DISTRIBUTED":З"WITHOUT RESTRICTIONS.":З"VISIT WWW.YACCS.INFO":З"FOR MORE INFORMATION AND OTHER"QБ+З"COCO RELATED GOODIES!":ТHSм1,0PК'8РQ\*°Ю:З"THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DI0:PRINT@X,B1$;:PRINT@X+32,S$;:X=X+3:NEXTA:X=(INT(X/32)+2)*32+2 9240 IFINT(NB/10)<>NB/10 AND NB>0 THEN B1$=CHR$(214)+CHR$(217): FORA=1TO(NB-INT(NB/10)*10):PRINT@X,B1$;:PRINT@X+32,B$;:X=X+3:NEXTA 9245 X=(INT(X/32)+3)*32 9250 EXEC 44539:RETURN 9500 FORA=1TO5:HS$(A)=".":HS(A)=6-A:NEXTA:CLS:GOTO9150 9700 BF=0:BS=0:BB=0:BO=0:CLS:GOTO9150 10010 IF PEEK(&H8C1B)<>26 THEN HS=65495:RETURN 10020 WIDTH 32:CLS:HS=65497:PRINT@7,"PRESS FOR RGB":PRINT@39," FOR COMPOSITE" 10030 C$=INKEY$:IF C$="" THEN 10030 ELSE IF C$="C" THEN CMP ELSE IF C$="R" THEN RGB 10040 RETURN 11000 CLS:PRINT"THANKS FOR PLAYING!:PRINT"'DOCK MASTER' IS FREE SOFTWARE (C) DIEGO BARIZO, 2019-2020" 11010 PRINT "THE PROGRAM, GRAPHICS, SOURCE CODE, AND THE FILES DOCK.BAS, BALANCE.BAS, BALANCE.SCR, FAST.BAS, FAST.SCR, FASTER.BAS, FASTER.SCR, SORT.BAS, SORT.SCR, INTRO.BAS, INTRO.SCR, SUNK.BAS AND SUNK.SCR"; 11020 PRINT "CAN BE FREELY DISTRIBUTED WITH NO RESTRICTIONS." 11050 PRINT "CREATION OF DERIVATIVE WORKS IS ALLOWED, AS LONG AS CREDIT TO THE ORIGINAL AUTHOR IS GIVEN. DISTRIBUTION OF DERIVATIVE WORKSIS ALLOWED FOR NON-COMERCIAL PURPOSES ONLY, UNLESS A SPECIFICAUTHORIZATION HAS BEEN GRANTED BY THE"; 11090 PRINT "AUTHOR OF THE ORIGINAL." 11100 PRINT:PRINT"WWW.YACCS.INFO / WWW.COCOWARES.COM"                                                                                                                                                                                                                                                           COMPOSITE"OD'.C$│ Т:Е C$│"" з 10030 :Д Е C$│"C" з Ў :Д Е C$│"R" з ўOJ'8РA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛANХ$X│( Б(Xо32)л3)н32Nг$"в 44539:РN┼'Е  Ж(&H8C1B)┤▓26 з HS│65495:РO '$т 32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR@32,B$(1);:RETURN 40 PERFECT BALANCE 41 IF C$="C" THEN CMP ELSE IF C$="R" THEN RGB 42 POKEHS-1,0:PMODE1,1:FORA=1TO10:SCREEN1,0:SOUND100+A*10,2:SCREEN1,1:SOUND50+A*8,1:NEXT:SC=SC+25:PLAY"P8":GOSUB 58:BB=BB+1:POKEHS,0:IF C$<>"" GOSUB 90 45 RETURN 46 FAST 47 PLAY"O4L64":POKEHS-1,0:PMODE 0,7:FORX=1TO12STEP2:SCREEN1,1:PLAYSTR$(X):SCREEN1,0:PLAYSTR$(X+1):NEXTX:SCREEN0,0:BF=BF+1:S=S+3:IF S<10 OR SP=2 THEN POKEHS,0:RETURN 49 PMODE0,8:FORX=1TO140:SCREEN1,0:SCREEN1,1:NEXT:SP=2:SCREEN0,0:POKEHS,0:FORX=1088TO1472STEP128:POKEX,141:POKEX+28,131:NEXT:BS=BS+1:RETURN 52 PERFECT SORT 53 IF C$="C"THEN CMP ELSEIFC$="R"THEN RGB 54 POKEHS-1,0:PMODE1,5:FORX=1TO4:SCREEN1,0:SOUND 200-X*20,2:PLAY"P24":SCREEN1,1:SOUND 50+X*20,1:NEXT:SC=SC+30:SCREEN1,0:PLAY"P8":GOSUB 58 56 IF C$<>""GOSUB 90 57 BO=BO+1:POKEHS,0:RETURN 58 PRINT@28,MID$(STR$(SC),2);:RETURN 59 INIT 60 LOADM"FASTER.SCR":PCOPY1TO8:LOADM"FAST.SCR":PCOPY1TO7:LOADM"SORT.SCR":PCOPY1TO5:PCOPY2TO6:LOADM"SUNK.SCR":PCOPY1TO3:PCOPY2TO4:LOADM"BALANCE.SCR":POKEHS,0 61 SC=0:S=0:SP=1:R=RND(TIMER):LV=1:BR$=CHR$(254):L$=CHR$(250):BL$=CHR$(253):TR$=CHR$(251):F$=CHR$(255):TL$=CHR$(247):A$=CHR$(175):BC$=A$+A$+A$:FORX=1TO4:FORY=1TO9:T(Y,X)=0:NEXTY:L(X)=0:D(X)=0:NEXTX:D=0 62 B$(1)=STRING$(13,A$)+BR$+BR$+CHR$(252)+STRING$(13,CHR$(175))+BR$+BR$+L$:B$(2)=BL$+STRING$(12,CHR$(243))+TR$+TR$+STRING$(13,CHR$(243))+F$+TR$+TR$+L$:B$(3)=A$+BL$+F$+F$+TL$+TL$+STRING$(6,F$)+TL$+F$+F$+TL$+STRING$(6,F$)+TL$+F$+TL$+STRING$(6,F$) 63 C$(1)=CHR$(143)+CHR$(143)+CHR$(138):C$(2)=CHR$(159)+CHR$(159)+CHR$(154):C$(3)=CHR$(191)+CHR$(191)+CHR$(186):C$(4)=CHR$(207)+CHR$(207)+CHR$(202) 64 G=4:RETURN 65 POKEHS-1,0:PMODE1,3:SCREEN1,1:PLAY"O1L2G":SCREEN0,0:PLAY"L8EBL4F":SCREEN1,1:PLAY"DL2F":SCREEN0,0:PLAY"L8DA":SCREEN1,1:PLAY"L4EL2CDC" 66 POKEHS,0:EXEC44539 67 B$=CHR$(255)+CHR$(255):S$=CHR$(207)+CHR$(207):G$=CHR$(159)+CHR$(159) 68 CLS6:PRINT@10,"FAST BADGES";:X=34:NB=BF:GOSUB 81:PRINT@263,"SUPER FAST BADGES";:X=290:NB=BS:GOSUB 81:CLS6:PRINT@5,"PERFECT BALANCE BADGES";:X=34:NB=BB:GOSUB 81:PRINT@261,"PERFECT SORTING BADGES";:X=290:NB=BO:GOSUB 81:PRINT@490,"SCORE:";SC;:EXEC44539 73 CLS:FORA=1TO5:IF SC>HS(A) THEN 74 ELSE NEXT 74 FORL=4TOA STEP-1:HS$(L+1)=HS$(L):HS(L+1)=HS(L):NEXT 75 IF A<6 THEN PRINTTAB(4)"YOU HAVE A HIGH SCORE!":INPUT"WHAT IS YOUR NAME";HS$(A):HS(A)=SC 76 POKEHS-1,0:OPERFECT SORTG'yЕ C$│"C"з Ў :ДЕC$│"R"з ўG}~ТHSм1,0:╚1,5:АX│1е4:┐1,0:а 200мXн20,2:АL│1е99:ЛL:┐1,1:а 50лXн20,1:Л:SC│SCл30:┐1,0GУИАX│1е300:Л:Бж4000GзТЕ C$┤▓""Бж10031G╗╬BO│BOл1:ТHS,0:РG╘аЗ@28, Р( И(SC),2);:РG▀ИВ INITHMТ╙M"FASTER.SCR":╟1е8:╙M"FAST.SCR":╟1е7:╙M"SORT.SCR":╟1е5:╟2е6:╙M"SUNK.SCR":╟1е3:╟2е4:╙M"BALANCE.SCR":ТHS,0H·ЬSC│0:S│0:SP│1:R│ Д( Я):LV│1:BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$:АX│1е4:АY│1е9:T(Y,X)│0:ЛY:L(X)│0:D(X)│0:ЛX:D│0I┼жB$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)JA░C$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)JK║G│4:РJе#(ТHSм1,0:╚1,3:┐1,1:╔"O1L2G":┐0,0:╔"L8EBL4F":┐1,1:╔"DL2F":┐0,0:╔"L8DA":┐1,1:╔"L4EL2CDC"J╢#ZТHS,0:в44539Jє#nB$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159)K!#xЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 9210KS#ВЗ@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж9210KК#МЮ6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж9210K┴#ЦЗ@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж9210Kс#ЫЗ@490,"SCORE:";SC;:в44539:ЮL#аАA│1е5:Е SC▓HS(A) з 9130 :Д ЛL2#кАL│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):ЛLА#┤Е A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME";HS$(A):HS(A)│SCL┘#╛ТHSм1,0:Щ"O",#1,"SCORES.DAT":АA│1е5:З#1,HS$(A):З#1,HS(A):Л:З#1,BF,BS,BB,BO:Ъ#1:ТHS,0M!#╚Ю:З@42,"HIGH SCORES":АA│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):ЛMК#╥З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";N#▄A$│ Т:Е A$│"N" з Бе 11000 :Д Е A$│"S" з АA│1е5:HS$(A)│".":HS(A)│6мA:Л:Бе9150 :Д Е A$│"B"з BF│0:BS│0:BB│0:BO│0:Бе9150N7#ЁЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 5020:Бе40 :Д Бе 9180N\#·ЕNB│0 з З@Xл43,"NONE!";:в44539:РNt# B1$│ Л(216)л Л(212)N╝$ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л3O($Е Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л2OП$Е Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛOп$X│( Б(Xо32)л3)н32:в 44539:РO╤'Е  Ж(&H8C1B)┤▓26 з HS│65495:РP'$т 32:Ю:HS│65497:З@7,"PRESS FOR RGB":ЗDIEGO 150 YACCS 100 F.FELINES 50 MINECAMP 25 HIPPO 10 0 0 0 0 0 0 0 S+3:IF S<10 OR SP=2 THEN RETURN 3620 PMODE0,8:FORX=1TO140:SCREEN1,0:SCREEN1,1:NEXTX:SP=2:SCREEN0,0 3630 Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)I░C$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)I'║G│4:SC│0I-─РIFXЩ"I",#1,"SCORES.DAT"Ik^А A│1е5:Й#1,HS$(A):Й#1,HS(A):Л AIЛcЙ#1,BF:Й#1,BS:Й#1,BB:Й#1,BOIФhЪ #1IЪrРIи#(╚1,3:┐1,1I│#Zв44539IЁ#nB$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159)J#xЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 9210JP#ВЗ@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж9210JЗ#МЮ6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж9210J╛#ЦЗ@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж9210J▐#ЫЗ@490,"SCORE:";SC;:в44539:ЮK#аА A│1е5:Е SC▓HS(A) з 9130 :Д Л AK5#кА L│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):Л LKт#┤Е A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME?";NA$:HS$(A)│NA$:HS(A)│SC:Щ"O",#1,"SCORES.DAT":А A│1е5:З#1,HS$(A):З#1,HS(A):Л A:З#1,BF:З#1,BS:З#1,BB:З#1,BO:Ъ#1L.#╚З:Зд10);"HIGH SCORES":А A│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):Л ALЧ#╥З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";Lэ#▄A$│ Т:Е A$│"N" з Бе 11000 :Д Е A$│"S" Бж 9500:Бе 5090 :Д Е A$│"B" Бж 9700:Бе 5090M$#ЁЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 5020:Ю3:Бе40 :Д Бе 9180MI#·ЕNB│0 з З@Xл43,"NONE!";:в44539:РMa# B1$│ Л(216)л Л(212)Mк$ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:ЛA:X│( Б(Xо32)л2)н32л3N$Е Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:ЛA:X│( Б(Xо32)л2)н32л2N$Е Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛANХ$X│( Б(Xо32)л3)н32Nг$"в 44539:РN┼'Е  Ж(&H8C1B)┤▓26 з HS│65495:РO '$т 32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR COMPOSITE"OD'.C$│ Т:Е C$│"" з 10030 :Д Е C$│"C" з Ў :Д Е C$│"R" з ўOJ'8РA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛANХ$X│( Б(Xо32)л3)н32Nг$"в 44539:РN┼'Е  Ж(&H8C1B)┤▓26 з HS│65495:РO '$т 32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR  █&7 Т 65497,0:т 32:М CF$(122):╚1,1:┐1,1:╝2:┴4:Бж 1060&U(┬(210,75),30,4,.8,.69,.19&М2╞"BM220,95;M-80,+20;E6H8E5H12E6H6G2ND25E2;M+70,-16&л<┬(145,100),16,4,1.5,.28,.5&╦F╞"BM196,62;M+10,+28;M+14,-2'P╞"BM234,74;U20;BM210,40;M-14,+4;ND20M+10,+28ND20;M+12,-4'3Z├(190,95),1,4:┬(210,75),30,1,.8,.69,.9'Rd┬(212,75),30,4,1.2,.02,.25'Еn┬(214,75),20,4,.8,0,.2:┬(214,55),20,4,.8,.7,.2'Юx╞"BM212,108;M-35,+8"'яВW$│"E4R2G2D2F2R4BU2":╞"BM0,108;C4":АA│1е26:╞W$:Л :╞"BM0,128;":АA│1е26:╞ W$:Л(^М╞"BM50,96;M+50,+4;ND10;E4H6E3H9E4H4;M-45,-5;M-10,-0;M-10,+1;M-10,+3;M-8,+5;M+8,+10;M+9,+6;M+10,+4;M+12,+2"(НЦ╞"BM50,70;M+25,+2;M-2,+20;M-25,-2;M+2,-20"(йа┬(20,76),14,4,2,.26,.49(ёк├(20,70),1,4:├(20,90),1,4:├(55,80),3,4:├(132,100),3,4:├(132,78),3,4)┤├(214,50),1,4:├(202,70),1,4:├(220,99),1,4)u╛В DRAW"BM0,108;C1":FORA=1TO26:DRAWW$:NEXT:DRAW"BM2,110;C2":FORA=1TO26:DRAWW$:NEXT)▀╚В DRAW"BM40,120;S4":T$="ALL CONTAINERS ARE":GOSUB500:DRAW"BM40,132":T$="IN THE RIGHT PLACE!":GOSUB500)ышв 44539*ЄSP│ Ж(&HBC)н256:╪M"SUNK.SCR",SP,SPл3071,SP*?№АA│1е10:┐1,0:а100лAн10,1::┐1,1:Л*Kв 44539*|А A│1 е  З(T$):╞ CF$( К( Р(T$,A,1)))л"BR4":Л*ВР*У$В LOAD FONTS*┬.╞"BM9,100":А A│32 е 122:Н C$:CF$(A)│C$:Л A*╚jР*╒tв44539:С*°~Ж "BR6","BR2D4BD4D1BU9",,,,,,,+-ИЖ ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",+кТЖ "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G2F2D2NL6BU8","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6",ЬЖ "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","BD8BR2E6U2NL6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3",TжЖ "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",,b░В A TO F,╧║Ж "ND8R6D4NL6D4BU8","D8R6U4L2NL4U4NL4BR2","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6",▄─В G TO K-&╬Ж "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4-3╪В L TO P-ЖтЖ "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6"-чьЖ "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5BR","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6".=ЎЖ "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8".IЖ ,,,,,.Z В MINUSCULAS.┼Ж "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6"/:Ж "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3"/╛(Ж "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6"02Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"0z<Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"0нFЖ "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"0┌PЖ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ▄&7 Т 65497,0:т 32:М CF$(122):╚1,1:┐1,1:╝2:┴4:Бж 1060&U(┬(200,75),30,4,.8,.69,.19&М2╞"BM210,95;M-80,+20;E6H8E5H12E6H6G2ND25E2;M+70,-16&л<┬(135,100),16,4,1.5,.28,.5&╦F╞"BM186,62;M+10,+28;M+14,-2'P╞"BM224,74;U20;BM200,40;M-14,+4;ND20M+10,+28ND20;M+12,-4'3Z├(180,95),1,4:┬(200,75),30,1,.8,.69,.9'Rd┬(202,75),30,4,1.2,.02,.25'Еn┬(204,75),20,4,.8,0,.2:┬(204,55),20,4,.8,.7,.2'Юx╞"BM202,108;M-35,+8"'■ВW$│"E4R2G2D2F2R4BU2":╞"BM0,108;C4":АA│1е26:╞W$:Л:├(200,99),1,4: :╞"BM0,128;":АA│1е26:╞ W$:Л(mМ╞"BM40,96;M+50,+4;ND10;E4H6E3H9E4H4;M-45,-5;M-10,-0;M-10,+1;M-10,+3;M-8,+5;M+8,+10;M+9,+6;M+10,+4;M+12,+2"(ЬЦ╞"BM40,70;M+25,+2;M-2,+20;M-25,-2;M+2,-20"(╕а┬(12,76),14,4,2,.26,.49)к├(10,70),1,4:├(10,90),1,4:├(45,80),3,4:├(122,100),3,4:├(122,78),3,4) ┤├(204,50),1,4:├(192,70),1,4)v╛В DRAW"BM0,108;C1":FORA=1TO26:DRAWW$:NEXT:DRAW"BM2,110;C2":FORA=1TO26:DRAWW$:NEXT)р╚В DRAW"BM40,120;S4":T$="ALL CONTAINERS ARE":GOSUB500:DRAW"BM40,132":T$="IN THE RIGHT PLACE!":GOSUB500)ьшв 44539*ЄSP│ Ж(&HBC)н256:╪M"SUNK.SCR",SP,SPл3071,SP*@№АA│1е10:┐1,0:а100лAн10,1::┐1,1:Л*Lв 44539*}А A│1 е  З(T$):╞ CF$( К( Р(T$,A,1)))л"BR4":Л*ГР*Ф$В LOAD FONTS*├.╞"BM9,100":А A│32 е 122:Н C$:CF$(A)│C$:Л A*╔jР*╓tв44539:С*∙~Ж "BR6","BR2D4BD4D1BU9",,,,,,,+.ИЖ ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",+лТЖ "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G2F2D2NL6BU8","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6",ЬЖ "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","BD8BR2E6U2NL6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3",UжЖ "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",,c░В A TO F,╨║Ж "ND8R6D4NL6D4BU8","D8R6U4L2NL4U4NL4BR2","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6",▌─В G TO K-'╬Ж "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4-4╪В L TO P-ЗтЖ "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6"-шьЖ "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5BR","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6".>ЎЖ "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8".JЖ ,,,,,.[ В MINUSCULAS.╞Ж "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6"/;Ж "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3"/┐(Ж "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6"02Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"0{<Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"0оFЖ "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"0█PЖ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 И& Ю6&#АT│1024е1370:НA:ТT,A:Л&ОЗ@34,"DOCK MASTER IS LOADING";:З@458,"BY DIEGO BARIZO - 2020";:З@480,"VISIT WWW.YACCS.INFO FOR MORE!";&дdA$│ Т:ЕA$│"" з100&┼n╪M"INTRO.SCR",1024,1535,1024'KЖ 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175'╤Ж 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175(W$Ж 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,193,193,193,165,175(▌.Ж 175,175,255,255,255,255,250,207,207,207,207,202,143,143,143,143,138,159,159,159,159,154,191,191,165,195,195,199,199,199,203,173)c8Ж 175,175,255,255,255,255,250,207,207,207,207,202,143,143,143,143,138,159,159,159,159,154,191,191,165,175,207,199,203,203,207,165)щBЖ 175,143,143,143,143,138,159,159,159,159,154,191,191,191,191,186,207,207,207,207,202,143,143,143,143,138,207,199,203,203,207,213*oLЖ 171,128,128,128,128,128,128,128,128,128,152,188,188,188,188,184,204,204,204,204,200,128,128,128,128,128,128,128,128,128,128,209*їVЖ 175,162,128,196,200,128,128,128,128,128,128,242,128,128,128,128,128,128,128,128,248,128,128,248,128,248,128,128,128,128,144,223+{`Ж 223,223,210,128,128,128,128,248,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,177,190,188,188,188,215,223,jЖ 223,222,128,128,128,128,128,128,128,128,128,177,190,188,188,188,188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,223,ЗtЖ 223,219,188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223128,128,128,128,128,128,128,128,128,177,190,188,188,188,188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 В>М └8:Х500:Бж 10010:ТHSм1,0:╙M"INTRO.SCR":Щ"I",#1,"SCORES.DAT":А L│1е5:Й#1,HS$(L):Й#1,HS(L):Л:Й#1,BF:Й#1,BS:Й#1,BB:Й#1,BO:Ъ #1:Бж5010:Ю 3>╞(АA│0е384й128:АY│1е3:З@AлYн32,B$(Y);:ЛY,A:C│ Д(4): Я│0>ё2Е C$│"C" з у 2,13 :Д Е C$│"R" з у 2,11?<З@G,C$(C);?EFK$│ Т:Е  Я▓500мDн5з K$│"":K│0:Бе2000 :Д Е K$│""Бе70 :Д K│ К(K$)?sPЕK│8 ▒ K│9 Бе1000 :Д ЕK$│" "▒ K│10 Бе2010?}dБе 60?ашЗ@G,BC$;:ЕK│8 з G│Gм3 :Д G│Gл3?┴№Е G▓25 з G│25 :Д Е G┤1 з G│1?╩Бе60?┌╨╔"01L24CEC"@┌Е G│13 Бе 9000 :Д H│ Б(Gо3)л1:АA│1е4:ЕT(H,A)┤▓0 з 2020 :Д Л@<фBF(1)│175:BF(2)│175:BF(3)│175@fюЕ A│1 з Е K$│"" Бе 9000 :Д а 1,1:Бе70@▄°T(H,Aм1)│C:PS│ Ям200:Е  Я┤90мD ░ SP│1 з Бж 3610 :Д Е S▓0 з S│Sм1:Е S┤7 з SP│1:АX│1088е1472й128:ТX,253:ТXл28,255:Л@√АX│1е3:C(X)│ Ж(1023лGлX):ЛA] АY│1еAн4м7:АX│1 е 3:Т1023лGлXл32н(Yм1),BF(X):BF(X)│ Ж(1023лGлXл32нY):Т1023лGлXл32нY,C(X):ЛX,YAu3В CALCULATE BALANCEAи4A│Aм1:H│Hм5:L(A)│L(A)лHнC:Е  В(L(A))▓6 Бе 9000A▐>Е PS┤0 з SC│SCлSPн Б( В(PS)о25):Бж4000:а 200лPS,1BYHЕ L(A)▓4 з E│188 :Д Е L(A)▓2 з E│156 :Д Е L(A)▓0 з E│140 :Д Е L(A)┤м4 з E│190 :Д Е L(A)┤м2 з E│158 :Д Е L(A)┤0 з E│142BxRЕ L(A)┤│0 з Т943л128нA,252BЧ\Е L(A)▓│0 з Т941л128нA,254B╬fЕ L(A)▓0 з Т943л128нA,E :Д Е L(A)┤0 з Т941л128нA,EBяzD(A)│D(A)л1:Е D(A)│8 Бж 3010C ДC│ Д(4):G│ Д(7)н3л1: Я│0CОБе50C$ ╕MOVE SHIPSCб ┬BM$(1)│"":АX│0е31:BM$(1)│BM$(1)л Л( Ж(1440лX)):Л:BM$(2)│B$(2):BM$(3)│B$(3)л Л(175):ЕD┤60зD│Dл20 :Д ЕD┤75з D│Dл5 :Д D│Dл2C╬ ╠З@8,"DIFFICULTY:"; Б(Dо2);:ЕL(A)│0Бж3500CЁ ╓АL│1е4:ЕT(L,4)┤▓L з 3055 :Д ЛD рАL│6е9:ЕT(L,4)┤▓10мL з 3055 :Д ЛD! ъБж 3705DF яЕ C$│"C"зу2,13 :Д Е C$│"R"зу2,11DХ ЇАX│31е1йм1:АY│1е3:З@384лYн32, П(BM$(Y),Xм Б(Yо2.5)); б(32мX, Л(175));:ЛY,XDщ ■АL│3е0йм1:З@384лLн32,B$(L);:АX│1е9:T(X,Lл1)│T(X,L):ЛX:L(Lл1)│L(L):D(Lл1)│D(L):ЛE3 АL│1313е 1055 й м128:L$│"":АX│0е29:L$│L$л Л( Ж(LлX)):ЛX:З@Lм896,L$;:ЛEW З@8, б(16, Л(175));:З@32,B$(1);E] РEs мВ PERFECT BALANCEEФ ▒Е C$│"C" з Ў :Д Е C$│"R" з ўE╪ ╢ТHSм1,0:╚1,1:АA│1е10:┐1,0:а100лAн10,2:┐1,1:а50лAн8,1:Л:SC│SCл25Eю └АL│1е300:Л:Бж4000FBB│BBл1:ТHS,0:Е C$┤▓"" Бж10031F РF"В FASTFi╔"O4L64":ТHSм1,0:╚ 0,7:АX│1е12й2:┐1,1:╔ И(X):┐1,0:╔ И(Xл1):ЛX:┐0,0FУBF│BFл1:S│Sл3:Е S┤10 ▒ SP│2 з ТHS,0:РF┴$╚0,8:АX│1е140:┐1,0:┐1,1:Л:SP│2:┐0,0:ТHS,0Fщ.АX│1088е1472й128:ТX,141:ТXл28,131:ЛFўBBS│BSл1:РG tВ P ккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккк╡UkUV╡UлUV╡UkUV╡UVкккккккккккккк╢лkjк╢нлjк╢клjкк╢ккккккккккккккк╢лkjк╢нлjк╢клjкк╢ккккккккккккккк╢лkjк╢нлjк╢клjкк╢ккккккккккккккк╡UkUV╡UлUj╡Ukjкк╢ккккккккккккккк╢клjк╢┌лjк╢клjкк╢ккккккккккккккк╢клjк╢╢лjк╢клjкк╢ккккккккккккккк╢клjк╢нлjк╢клjкк╢ккккккккккккккк╢клUV╢лkjк╡UkUVк╢ккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккклVлUZ╡VлUV╡Uк╢ккккккккккккккккккннлj┌╢нлjк╢нк╢кккккккккккккккккк╢лkj┌╢лkjк╢нк╢кккккккккккккккккк╢лkj┌╢лkjк╢нк╢кккккккккккккккккк╢лkUZ╢лkUV╡Uк╢кккккккккккккккккк╢лkmк╢лkjк╢┌кккккккккккккккккккк╢лkkj╢лkjк╢╢ккккккккккккккккккккннлj┌╢нлjк╢нкккккккккккккккккккклVлj╢╡VлUV╢лj╢ккккккккккккккккккккккккккккккк╢ккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккп    р%UUUUo    р*ккккккп   ър*%UUUjo   ър**ккккккп┐┐┐ърААА*%ХХХjo┐┐┐ърААА**ккккккпяяяър *%eeejoяяяър **ккккккп┐┐┐ърААА*%ХХХjo┐┐┐ърААА**ккккккпяяяър *%eeejoяяяър **ккккккп┐┐┐ърААА*%ХХХjo┐┐┐ърААА**ккккккпяяяър *%eeejoяяяър **ккккккп┐┐┐ърААА*%ХХХjo┐┐┐ърААА**ккккккпяяяър *%eeejoяяяър **ккккккп    р%UUUUo    р*кккк    ■UUUUV    ■UUUUVкк   ■овUUUVж   ■овUUUVжкк√√√■овYYYVж√√√■овYYYVжкк■■■■овVVVVж■■■■овVVVVжкк√√√■овYYYVж√√√■овYYYVжкк■■■■овVVVVж■■■■овVVVVжкк√√√■овYYYVж√√√■овYYYVжкк■■■■овVVVVж■■■■овVVVVжкк√√√■овYYYVж√√√■овYYYVжкк■■■■овVVVVж■■■■овVVVVжкк    ■UUUUV    ■UUUUVккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккКвккавИА"(А кА кккккккккк(Квкк*К ККК"КвИккК"ИкккккккккккКвкк*К" КА" А кА кккккккккк(Квкк*К"ККК"(Кв*вкК"(ккккккккккк(А кавККК"(А"ИкК"Икккккккккккккккккккккккккккккккккккккккккк"Кк"ИкА(А"ИкакА *ккккккккк КкввИккК(КвККквИк(Квк*ккккккккк" квакА(А КкакКа *ккккккккк"КкввИккИиК"ККквик(Квккккккккккк"КкввИкК(А"ККкви(А *ккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккVежЩжUкеYVЦХeZккккккккккккккккккfЪeЩжjкжйкiЪfкккккккккккккккккккUЪfYжUкеYкiХeZккккккккккккккккккiЪfЩжйккЩкiЩжкккккккккккккккккккUежЪZUкеYVЦЪeZкккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеYVкХijfЩUХjкккккккккккккккккккккЩжкЪfЪeЪЪЪккккккккккккккккккккккiжкХfЪfZЪХjкккккккккккккккккккккЩжкЪжЪfЪЪкjккккккккккккккккккккеYVкЪйjfЪЪХjккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккк кккккккЩжкЪжЪfЪЪкjккккккккккккккккккккеYVкЪйjfЪЪХjкккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккк                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 00Гс└Є╚3NАM6Є'ч╧Аьs3А$$А0─`$$А @Є'ч╧А0 0$ └ └▐А$А y)П`ё─╚@ ∙Кx°7 °0П╧ЯЯ─!АР Р ЯВ АВАВЯВ    ((АHАР@Ф@8а(аРР ╚ H HpД╨ВаJ ■?ГГё№G@А BE@А "вАА "b<А■ #ё№Б% "AA  "!$А  B&А ■?ГВ №└ @ └р8?П° AD А А0BВ А А BВ А А тВ?АА @"ВАА@"ВАА !DАА рр8?АА └0 8p╬ ╙а9Ш;└Мv╠1`А`  └00|╞├@O}А>rАчур чч!╣№▄ДGgцу1Щ└YД0рМ`А`ШААN└s5О09Ф eьg╓8°8 └А` >rАчур чч!╣№▄ДGgцу1Щ└YД0рМ`А`ШААN└s5О09Ф eьg╓8°8 └А`                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                №∙∙№АЙ АЙ Ё∙° АИ АИ АЙ° №∙∙№АЙ АЙ Ё∙° АИ АИ АЙ° ~|№■@DА@DАx|№@D@D@D№0?>~А "@АА "@А`<>~АЬА "` "рX "~А°> А рр└°°░? ■| ├ А? ∙ р?└   °Ё  ■№?   П    ч └     Ё     №      ?     └     Ё     №       ╧    └?у    ЁЁ   №Ё    ° Ё  └№ ° Ё|?№ №■ ■ └ЁАА╠А?└└0╜яpў▐Ё%ф%HБР%$╜яHёЁ%фбHБа%бяpёР HБР%$╜яHёЁ%фбHБа%бяpёР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 И&)М CF$(122):╚0,1:┐1,1:╝2:┴3:Бж 10000&У=╞"BM 33,11;S6":T$│"FAST":Бж 900:╞"BM65,29":Бж900:╞"BM99,47":Бж900:╞"BM133,64":T$│"FAST!!":Бж900:╞"S4"&┐>╞"BM59,158":T$│"SPEED METER UP!":Бж 900'FD$│"BM10,50;M55,70;M45,55;M80,75;M70,60;M145,100;M95,85;M105,98;M65,80;M71,96;M10,50'ВG╞"BM21,65;S6M+50,+20;M-10,-15;M+40,+20;M-10,-15;M+80,+40;M-55,-15;M+10,+13;M-45,-18;M+11,+16;M-70,-46'УH├(99,99),1,1'Я в 44539'╬%SP│ Ж(&HBC)н256:╪M"FAST.SCR",SP,SPл1535,SP'▄Гв 44539:К( ДА A│1 е  З(T$):╞ CF$( К( Р(T$,A,1)))л"BR4":Л(ОР($'В LOAD FONTS(3'$╞"BM9,100"(D'.А A│32 е 122(M'8Н C$(['BCF$(A)│C$(А'LВ IF A>63 THEN DRAW C$: DRAW"BR4(И'VЛ A(О'[Р(▒'jЖ "BR6","BR2D4BD4D1BU9",,,,,,,(ц'tЖ ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",)c'~Ж "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G1F1D2NL6BU6","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6")╢'ИЖ "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","R6NG6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3"*'ТЖ "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",*'ЧВ A TO F*~'ЬЖ "ND8R6D4NL6D4BU8","D8R6U4LNL4U4NL4BR","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6"*Л'бВ G TO K*╒'жЖ "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4*т'лВ L TO P+5'░Ж "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6"+Ф'║Ж "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6"+ъ'─Ж "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8"+Ў'╬Ж ,,,,,,'╪В MINUSCULAS,r'тЖ "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6",ч'ьЖ "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3"-k'ЎЖ "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6"-╔(Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6".'( Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4".Z(Ж "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6".З(Ж ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6".'( Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD  ┼& М CF$(122):╚1,1:┐1,1:╝2:┴3&+Бж 200&Ь╞"BM80,13;S6C1":T$│"PERFECT":Бж 180:╞"BM80,15;C3":Бж180:╞"BM74,37C1":T$│"BALANCE!":Бж 180:╞"BM74,35C3":Бж180'(╞"S4BM105,142":T$│"BONUS":Бж 180:╞"BM105,158":T$│"SCORE":Бж 180:╞"BM87,174":T$│"25 POINTS":Бж 180'52┬(56,150),30,4,.5,0,.5:┬(199,150),30,4,.5,0,.5'w63 THEN DRAW C$: DRAW"BR4*├Л A*╔Р*ь"Ж "BR6","BR2D4BD4D1BU9",,,,,,,+!,Ж ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",+а6Ж "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","BD2E2R2F2G2L2G2D2R6BU8","R6D2G1F1D2NL6BU6","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6"+є@Ж "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","R6NG6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3",BJЖ "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",,PTВ A TO F,╗^Ж "ND8R6D4NL6D4BU8","D8R6U4LNL4U4NL4BR","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6",╚hВ G TO K-rЖ "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4-|В L TO P-rЖЖ "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6"-╤РЖ "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6".'ЪЖ "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8".3дЖ ,,,,,.DоВ MINUSCULAS.п╕Ж "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6"/$┬Ж "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1  A& М CF$(122):╚0,1:┐1,1:╝2:┴3&- Бж 10000&n=╞"BM93,25;S6":T$│"SUPER":Бж 900:╞"BM89,43":T$│"FAST!!":Бж900&▓>╞"BM81,92;S8;":T$│"SCORE":Бж 900:╞"BM73,116;":T$│"BOOST!":Бж900'FE$│"M-50,+20;M+10,-15;M-40,+20;M+10,-15;M-80,+40;M+55,-15;M-10,+13;M+45,-18;M-11,+16;M+70,-46"'wGD$│"M+50,+20;M-10,-15;M+40,+20;M-10,-15;M+80,+40;M-55,-15;M+10,+13;M-45,-18;M+11,+16;M-70,-46'РH╞"BM30,50;A1;S2;"лD$'иI╞"BM245,130;A1;"лE$'└K╞"BM6,16;S2;A0;"лD$'╘L╞"BM250,16;"лE$'чM╞"BM1,140;"лD$'№N╞"BM254,140;"лE$(O╞"BM40,159;"лD$(%P╞"BM216,159;"лE$(1 в 44539(b%SP│ Ж(&HBC)н256:╪M"FASTER.SCR",SP,SPл1535,SP(З*АA│1е10:┐1,0:а100лAн10,1::┐1,1:Л(ХГв 44539:К(╞ДА A│1 е  З(T$):╞ CF$( К( Р(T$,A,1)))л"BR4":Л(╠ОР(▌'В LOAD FONTS(ь'$╞"BM9,100"(¤'.А A│32 е 122)'8Н C$)'BCF$(A)│C$)9'LВ IF A>63 THEN DRAW C$: DRAW"BR4)A'VЛ A)G'[Р)j'jЖ "BR6","BR2D4BD4D1BU9",,,,,,,)Я'tЖ ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",*'~Ж "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G1F1D2NL6BU6","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6"*o'ИЖ "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","R6NG6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3"*╛'ТЖ "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",*╠'ЧВ A TO F+7'ЬЖ "ND8R6D4NL6D4BU8","D8R6U4LNL4U4NL4BR","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6"+D'бВ G TO K+О'жЖ "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4+Ы'лВ L TO P+ю'░Ж "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6",M'║Ж "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6",г'─Ж "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8",п'╬Ж ,,,,,,└'╪В MINUSCULAS-+'тЖ "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6"-а'ьЖ "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3".$'ЎЖ "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6".В(Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6".р( Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"/(Ж "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"/@(Ж ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6".р( Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"/(Ж "BR1BD2D2F1R2E1D3U5BU2",BU6" 10270 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 3D4":╞"BM38,74;M-8,+1;M-12,+2;M-10,+4;M-6,+6":╞"G1;M+8,+10;M+9,+7;M+10,+5;M+12,+2"'ш2┬(18,112),8,3,.7,.25,.5:╗(20,118)м(222,134),╜:┬(214,112),22,3,1.2,0.05,.24:╞"BM236,118;U10"(<├(100,110),4,3:├(40,118),3,3:╗(44,78)м(200,90),╜(│F┬(50,94),26,2,.9,.40,.58:┬(48,96),26,2,.9,.55,.72:╞"BM40,82;M+22,+2;M-2,+22;M-22,-2;M+2,-22;C3":┬(48,94),26,3,.9,.4,.74:├(20,90),1,3:├(50,90),3,3(хP┴4:АA│1е10й4:╗(13лA,108лA)м(224мA,124лA),╜:ЛA)>ZD$│"M+3,-46;M+6,+2;M-3,+46;M-6,-2":╞ "BM75,119;C1"лD$л"BM125,122"лD$:╞"BM175,126"лD$)nd├(77,115),1,1:├(127,119),1,1:├(177,121),1,1)вn╞"BM75,119;C3;XD$;BM125,122;XD$;BM175,126;XD$;")┴x┬(212,106),24,1,.9,.76,.96*rВ╗(234,90)м(234,104),╜:╞"C3BM214,120;L18M+2,-14;BM216,106;M-16,-2;M+3,-36;M+16,+2;":┬(216,88),18,3,1,.77,.24:┬(214,104),18,3,1,0,.24:├(216,82),1,3:├(214,109),1,3:╜(214,96,1)*ПМ╗(198,108)м(206,66),╜,BF*нЦ┬(20,82),4,3:┬(18,96),4,3+,а┬(220,88),10,4,.76,.88,.65:┬(222,82),8,4,.7:├(220,90),4,4:├(222,82),3,4:┬(226,82),14,2,.76,.27,.45:╜(208,88,1):╜(228,92,4)+Че╞"BM202,112;R1BR3R3BR3R1BR3RBE2BR1E2BD6BL1G2BL2L2BL3L2BL4L1BL3L1BM200,104C4;R3NU2ND2R2BU34C2L2NU2ND2L3+г╟в 44539,s╚W$│"C1E4R2G2D2F2R4BU2":WS$│"60,124":NW│6:Бж 1040:WS$│"170,130":NW│5:Бж1040:WS$│"0,136":NW│4:Бж 1040:WS$│"20,156":NW│6:Бж 1040:WS$│"226,154":NW│3:Бж 1040:WS$│"200,168":NW│5:Бж 1040:WS$│"4,146":NW│6:Бж1040,Ў╥WS$│"130,146":NW│3:Бж1040:WS$│"0,180":NW│4:Бж 1040:WS$│"80,178":NW│9:Бж 1040:WS$│"0,195":NW│5:Бж1040:WS$│"66,195":NW│12:Бж1040-▄А B│2е15-gцАA│1е255 й B:╜(A,110л Б( Е((Aл45)о17)н10)лAо15лBн2,1):╜(A,145л Б( Е(Aо28)н10)лAо15лBн2,1):Л A,B-ЙЁВCIRCLE(20,96),14,4,2,.26,.49-▀·В DRAW"BM0,108;C1":FORA=1TO26:DRAWW$:NEXT:DRAW"BM2,110;C2":FORA=1TO26:DRAWW$:NEXT.` ╞"C3BM18,10;S4":T$│"THE SHIP HAS CAPSIZED!":Бж500:╞"BM34,24":T$│"ALL THE CONTAINERS":Бж500:╞"BM74,38":T$│"HAVE SUNK!!":Бж500.с╞"C1BM20,12;S4":T$│"THE SHIP HAS CAPSIZED!":Бж500:╞"BM36,26":T$│"ALL THE CONTAINERS":Бж500:╞"BM76,40":T$│"HAVE SUNK!!":Бж500.эв 44539/SP│ Ж(&HBC)н2  С> Т65497,0:└8:Х 500>/т32:Ў:╙M"INTRO.SCR">?Бж 5000:Ю 3>l(АA│0е384й128:АY│1е3:З@AлYн32,B$(Y);:ЛY,A>}2C│ Д(4): Я│0>М<З@G,C$(C);>╧FK$│ Т:Е  Я▓180 з K$│"":K│0:Бж 2000 :Д Е K$│""Бе70 :Д K│ К(K$)>цPЕK│8 ▒ K│9 Бж 1010?ZЕK$│" "▒ K│10 Бж 2010? dБе 60?-ЄЗ@G,BC$;:ЕK│8 з G│Gм3 :Д G│Gл3?N№Е G▓25 з G│25 :Д Е G┤1 з G│1?TР?c╨╔"01T8CEC"?г┌Е G│13 Бе 9000 :Д H│ Б(Gо3)л1:АA│1е4:ЕT(H,A)┤▓0 з 2020 :Д Л?┼фBF(1)│175:BF(2)│175:BF(3)│175?∙юЕ A│1 з Е  Я▓180 Бе 9000 :Д ┐ 1,0:а 1,1:┐ 0,0:Р@n°T(H,Aм1)│C:PS│ Ям200:Е  Я┤90 ░ SP│1 з Бж 3600 :Д Е S▓0 з S│Sм1:Е S┤7 з SP│1:АX│1088е1472й128:ТX,253:ТXл28,255:ЛX@НАX│1е3:C(X)│ Ж(1023лGлX):Л@█ АY│1еAн4м7:АXB│1 е 3:Т1023лGлXBл32н(Yм1),BF(XB):BF(XB)│ Ж(1023лGлXBл32нY)@їТ1023лGлXBл32нY,C(XB)A Л XB,YA*В CALCULATE BALANCEAK4A│Aм1:H│Hм5:L(A)│L(A)лHнC:Е  В(L(A))▓6 Бе 9000AЧ>Е PS┤0 з SC│SCлSPн Б( В(PS)о25):Бж4000:а 200лPS,1:З@0,SPн Б( В(PS)о25);BHЕ L(A)▓4 з E│188 :Д Е L(A)▓2 з E│156 :Д Е L(A)▓0 з E│140 :Д Е L(A)┤м4 з E│190 :Д Е L(A)┤м2 з E│158 :Д Е L(A)┤0 з E│142B1RЕ L(A)┤│0 з Т943л128нA,252BP\Е L(A)▓│0 з Т941л128нA,254BlfЕ L(A)▓0 з Т943л128нA,EBИpЕ L(A)┤0 з Т941л128нA,EBйzD(A)│D(A)л1:Е D(A)│8 Бж 3010B╞ДC│ Д(4):G│ Д(7)н3л1: Я│0B╠ОРB█ ╕MOVE SHIPSC2 ┬BM$(1)│"":АH│0е31:BM$(1)│BM$(1)л Л( Ж(1440лH)):Л:BM$(2)│B$(2):BM$(3)│B$(3)л Л(175)CD ╠ЕL(A)│0Бж3500Cf ╓АB│1е4:ЕT(B,4)┤▓B з 3060 :Д ЛCЛ рАB│6е9:ЕT(B,4)┤▓10мB з 3060 :Д ЛCЧ ъБж 3700Cц ЇАH│31е1йм1:АL│1е3:З@384лLн32, П(BM$(L),Hм Б(Lо2.5)); б(32мH, Л(175));:ЛL,HD; ■АL│3е0йм1:З@384лLн32,B$(L);:АH│1е9:T(H,Lл1)│T(H,L):ЛH:L(Lл1)│L(L):D(Lл1)│D(L):ЛLDЗ А L│1313е 1055 й м128:L$│"":АH│0е29:L$│L$л Л( Ж(LлH)):ЛH:З@Lм896,L$;:ЛLDЧ З@32,B$(1);DЭ РD│ мВ PERFECT BALANCEDя ╢╚1,1:АA│1е10:┐1,0:а100лAн10,2:┐1,1:а50лAн8,1:Л:SC│SCл25E └АX│1е300:Л:Бж4000EBB│BBл1:РEВ FASTEX╚ 0,7:АX│1е8:┐1,1:АDL│1е50:Л:┐1,0:АDL│1е20:ЛDL,X:┐0,0E|BF│BFл1:S│Sл3:Е S┤10 ▒ SP│2 з РEе$╚0,8:АX│1е140:┐1,0:┐1,1:ЛX:SP│2:┐0,0E╬.АX│1088е1472й128:ТX,141:ТXл28,131:ЛXE▄BBS│BSл1:РEяtВ PERFECT SORTF8~╚1,5:АX│1е4:┐1,0:а 200мXн20,2:АL│1е99:ЛL:┐1,1:а 50лXн20,1:Л:SC│SCл30FNИАX│1е300:Л:Бж4000F\╬BO│BOл1:РFuаЗ@28, Р( И(SC),2);:РFАИВ INITFшТ╙M"FASTER.SCR":╟1е8:╙M"FAST.SCR":╟1е7:╙M"SORT.SCR":╟1е5:╟2е6:╙M"SUNK.SCR":╟1е3:╟2е4:╙M"BALANCE.SCR"G]ЬSP│1:R│ Д( Я):LV│1ппппппппппппппппппппппппппппппппппDOCK`MASTER`IS`LOADINGппппппппппппппппппппппппппппппппппп┴┴┴еппп    ·╧╧╧╧╩ППППКЯЯЯЯЪ┐┐е├├╟╟╟╦нпп    ·╧╧╧╧╩ППППКЯЯЯЯЪ┐┐еп╧╟╦╦╧епППППКЯЯЯЯЪ┐┐┐┐║╧╧╧╧╩ППППК╧╟╦╦╧╒лАААААААААШ╝╝╝╝╕╠╠╠╠╚АААААААААА╤пвА─╚ААААААЄАААААААА°АА°А°ААААР▀▀▀╥АААА°ААААААААААААААААА▒╛╝╝╝╫▀▀▐ААААААААА▒╛╝╝╝╝╝╝╝╝╝╝╝╝╝╫▀▀▀▀▀▀█╝╝╝╝╝╝╝╝╝╝╫▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀BY`DIEGO`BARIZO`m`rprpVISIT`WWWnYACCSnINFO`FOR`MOREa▀▀ АА°ААААААААААААААААА▒╛╝╝╝╫▀▀▐ААААААААА▒╛╝╝╝╝╝╝╝╝╝╝╝╝╝╫▀▀▀▀▀▀█╝╝╝╝╝╝╝╝╝╝╫▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀BY`DIEGO`BARIZO`m`rprpVISIT`WWWnYACCSnINFO`FOR`MO0┌A│Aм1:H│Hм5:L(A)│L(A)лHнC:Е  В(L(A))▓6 Бе 5000)EфЕ L(A)▓0 з E│140)ZюЕ L(A)▓2 з E│156)o°Е L(A)▓4 з E│188)ДЕ L(A)┤0 з E│143)Ъ Е L(A)┤м2 з E│158)░Е L(A)┤м4 з E│190)╧ Е L(A)┤1 з Т 943л128нA,252)ю*Е L(A)▓│0 з Т941л128нA,254* 4Е L(A)▓0 з Т943л128нA,E*&>Е L(A)┤0 з Т941л128нA,E*FHD(A)│D(A)л1:Е D(A)│8 Бж 880*cRC│ Д(4):G│ Д(7)н3л1: Я│0*i\Р*zfВ MOVE SHIPS*ЪpАH│0е31:PV│1440лH:VP│ Ж(PV)*▒sTP$│TP$л Л(VP):Л H*▀uM$(1)│TP$:M$(2)│B$(2):M$(3)│B$(3)л Л(175)*їzАH│31е1йм1:АL│1е3+ДЗ@384лLн32, П(M$(L),Hм Б(Lо2.5));+:ОTM$│ Л(175):З б(32мH,TM$);+DШЛ L,H+kвАL│3е0йм1:З@384лLн32,B$(L);:АH│1е9+ЗмT│Lл1:T(H,T)│T(H,L):Л H+г╢L(T)│L(L):D(T)│D(L):Л L+я└А L│1313е 1055 й м128:L$│"":АH│0е29:L$│L$л Л( Ж(LлH)):ЛH:З@Lм896,L$;:ЛL+ ╩З@32,B$(1);,╘Р,▐Бе 60,шR│ Д( Я):LV│1:BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$-JЄB$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)-╞№C$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)-█G│4:МC$(4),B$(4)-сР, Л(243))лF$лTR$лTR$лL$:B$(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ╔┴╚╚ ╞╟ ┬/┴┬┬╟─╟╟╔'┴&├#╟%─┼┬)┴.╞-─8╟12╚45┬7>┬     ┴     DOCK BAS*SUNK1 BAS"цSUNK BAS VFAST BASЛFASTER BASDBALANCE BAS╚BALANCE SCR$ SORT BAS(нSCORES DAT tCORES DAT lFASTER SCR FAST SCR SORT SCR INTRO BASЛINTRO SCR! UNK BAS.цSUNK SCR, XF BAS0ОCORES DAT TORT BAK ГALANCEEBAS6ВOCK-S BAS8(PEECH BAS;╦UNK1 SCR< OCK2 BAS"╜                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                DOCK MASTER                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     у& И Ё Бе 1270&GТ 65497,0:т 32:М CF$(122):╚1,1:┐1,0:╝3:┴4:Бж 1000&ЗА V│1 е 80 й 4:А H│1 е 255 й9:╗(H,V)м(Hл(8мVо10),V),╜:Л H,V&╠А V│80 е 118 й 4:АH│220 е 255 й9:╗(HлVо25,V)м(HлVо25л1,V),╜:ЛH,V'╗(38,112)м(212,124),╜:╗(40,75)м(214,88),╜:┬(212,106),24,4,.9,.79,.24'И(╞"BM0,88;D2RD2RD3RD4RD5R2D5R3D4":╞"BM38,74;M-8,+1;M-12,+2;M-10,+4;M-6,+6":╞"G1;M+8,+10;M+9,+7;M+10,+5;M+12,+2"'ш2┬(18,112),8,4,.7,.25,.5:╗(20,118)м(222,134),╜:┬(214,112),22,4,1.2,0.05,.24:╞"BM236,118;U10"(<├(100,110),1,4:├(40,118),1,4:╗(44,78)м(200,90),╜(╡F┬(50,94),26,4,.9,.40,.58:┬(48,96),26,3,.9,.40,.72:╞"C4BM40,82;M+22,+2;M-2,+22;M-22,-2;M+2,-22;C2":┬(48,94),26,4,.9,.4,.74:├(20,90),2,4:├(50,90),4,4(чP┴4:АA│1е10й4:╗(13лA,108лA)м(224мA,124лA),╜:ЛA)@ZD$│"M+3,-46;M+6,+2;M-3,+46;M-6,-2":╞ "BM75,119;C2"лD$л"BM125,122"лD$:╞"BM175,126"лD$)pd├(77,115),2,2:├(127,119),2,2:├(177,121),2,2)дn╞"BM75,119;C4;XD$;BM125,122;XD$;BM175,126;XD$;")├x┬(212,106),24,2,.9,.76,.96*tВ╗(234,90)м(234,104),╜:╞"C4BM214,120;L18M+2,-14;BM216,106;M-16,-2;M+3,-36;M+16,+2;":┬(216,88),18,4,1,.77,.24:┬(214,104),18,4,1,0,.24:├(216,82),2,4:├(214,109),2,4:╜(214,96,2)*СМ╗(198,108)м(206,66),╜,BF*пЦ┬(20,82),4,4:┬(18,96),4,4+.а┬(220,88),10,1,.76,.88,.65:┬(222,82),8,1,.7:├(220,90),1,1:├(222,82),4,1:┬(226,82),14,3,.76,.27,.45:╜(208,88,2):╜(228,92,1)+:бв 44539+ее╞"BM202,112;R1BR3R3BR3R1BR3RBE2BR1E2BD6BL1G2BL2L2BL3L2BL4L1BL3L1BM200,104C2;R3NU2ND2R2BU34C1L2NU2ND2L3+▒╟в 44539,Б╚W$│"C2E4R2G2D2F2R4BU2":WS$│"60,124":NW│6:Бж 1040:WS$│"170,130":NW│5:Бж1040:WS$│"0,136":NW│4:Бж 1040:WS$│"20,156":NW│6:Бж 1040:WS$│"226,154":NW│3:Бж 1040:WS$│"200,168":NW│5:Бж 1040:WS$│"4,146":NW│6:Бж1040-╥WS$│"130,146":NW│3:Бж1040:WS$│"0,180":NW│4:Бж 1040:WS$│"80,178":NW│9:Бж 1040:WS$│"0,195":NW│5:Бж1040:WS$│"66,195":NW│12:Бж1040-╫в 44539-▄А B│2е15-БцАA│1е255 й B:╜(A,110л Б( Е((Aл45)о17)н10)лAо15лBн2,2):╜(A,145л Б( Е(Aо28)н10)лAо15лBн2,2):Л A,B-гЁВCIRCLE(20,96),14,4,2,.26,.49-∙·В DRAW"BM0,108;C1":FORA=1TO26:DRAWW$:NEXT:DRAW"BM2,110;C2":FORA=1TO26:DRAWW$:NEXT.║╞"C1BM20,12;S4C3":T$│"THE SHIP HAS CAPSIZED!":Бж500:╞"BM22,12;C2":Бж500:╞"BM36,26C3":T$│"ALL THE CONTAINERS":Бж500:╞"BM38,26C2":Бж500:╞"BM76,40C3":T$│"HAVE SUNK!!":Бж500:╞"BM78,40C2":Бж500.╞в 44539.ЎSP│ Ж(&HBC)н256:╪M"SUNK1.SCR",SP,SPл3071,SP/"АA│1е10:┐1,0:а100лAн10,1::┐1,1:Л/),в 44539:К/ZЇА A│1 е  З(T$):╞ CF$( К( Р(T$,A,1)))л"BR4":Л/`■Р/qшВ LOAD FONTS/аЄ╞"BM9,100":А A│32 е 122:Н C$:CF$(A)│C$:Л A/ж№Р/│в44539:С/╥╞"BM"лWS$:АA│1еNW:╞W$:ЛA:Р/їЖ "BR6","BR2D4BD4D1BU9",,,,,,,0*$Ж ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",0з.Ж "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G2F2D2NL6BU8","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6"18Ж "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","BD8BR2E6U2NL6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3"1QBЖ "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",1_LВ A TO F1╠VЖ "ND8R6D4NL6D4BU8","D8R6U4L2NL4U4NL4BR2","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6"1┘`В G TO K2#jЖ "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E420tВ L TO P2Г~Ж "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6"2фИЖ "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5BR","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6"3:ТЖ "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8"3FЬЖ ,,,,,3WжВ MINUSCULAS3┬░Ж "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6"47║Ж "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3"4╗─Ж "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6"5╬Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"5w╪Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"5ктЖ "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"5╫ьЖ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,5тЎт 80:СR2BU2","BD2NR5D2R5D2NL5BU6R1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"-Д(Ж "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"-▒(Ж ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"-Q( Ж "BD2B                                                                                                                                                                                                                                                                 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUEUUUUUUUUUUUUUUUUQUUUUUUUUUUUUUQEUU@@UQEUUUUUUUUUUUTQEUUкЦкЦйjйjекекйUQEUUUUUUUUUUQEUUХЦUVYeUeUХUVUUQEUUUUUUUUUEQEUUАЦ ``ХUVUUQEQUUUUUUUQEQEUUкЦкЦйjХjеХUVUUQEQEUUUUUTQEQEUUХVUVaeUeUХUVUUQEQEUUUUQEQEUUХVXeU`АVUUQEQEUUUEQEQEUUХVкЦVeUjекеVUUQEQEQUUEQEQEUUUUUUUUUUUUUUUUQEQEQUUEQEQEUUUUUUUUUUUUUUUUQEQEQUUEQEQEUUUUUUUUUUUUUUUUQEQEQUUUQEQEUjекеХVкЦVZкZйVUQEQEUUUUTQEQEU`%А%ХVЦVXXVUQEQEUUUUUQEQEUeeХeХVUЦЦYUYUVUQEQEUUUUUUUEQEUjекеХVкЦ&YUZйVUQEQUUUUUUUUUQEU`%А%ХVЦJYUXTUQEUUUUUUUUUUTQEUeeХeХVUЦRYUYUUUQEUUUUUUUUUUUQEUjеХeкЦUЦVZкZйVUQEUUUUUUUUUUUUUEU@EUTPPTUQUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU╒UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_¤UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU ?╒UUUUUUUUUUUUUUUUUUUUUUUUUUUUU ╒UUUUUUUUUUUUUUUUUUUUUUUUUUUUW¤CїUUUUUUUUUUUUUUUUUUUUUUUUUUUUU O╒UUUUUUUUUUUUUUUUUUUUUUUUUUUUU  ╒UUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU№UUUUUUUUUUUUUUUUUUUUUU╒UUUUUUUЁUUUUUUUWUUUUUUUUUUUUU_¤UUUUUUUЁUUUUUUUїUUUUUUUUUUUU UUUUUUUЁUUUUUUU ¤UUUUUUUUUUUU ?└?Ё№ UUUUUUUUUUUU         Ё       №?UUUUUUUUUUUW¤C        Ё?      ї╒UUUUUUUUUUU O        └?      ¤?UUUUUUUUUUUU          └?        UUUUUUUUUUUU         └?       ¤UUUUUUUUUUUU_¤UUUUUUW └5UUUUUUїUUUUUUUUUUUU]▌UUUUUUU └╒UUUUUUwuUUUUUUUUUUUUu╫UUUUUUU └╒UUUUUU╫]UUUUUUUUUUUUu╫UUUUUUU └╒UUUUUU╫]UUUUUUUUUUUU╒╒╒UUUUUU├UUUUUUWWWUUUUUUUUUUUU╒╒╒UUUUUU├UUUUUUWWWUUUUUUUUUUUWU╒uUUUUUU├UUUUUU]WU╒UUUUUUUUUUWU╒uUUUUUU_┴UUUUUU]WU╒UUUUUUUUUU]U╒]UUUUUU_═UUUUUUuWUuUUUUUUUUUU]U╒]UUUUUU_═UUUUUUuWUuUUUUUUUUUUuU╒WUUUUUUW┼UUUUUU╒WU]UUUUUUUUUUuU╒WUUUUUUW┼UUUUUU╒WU]UUUUUUUUUU╒U╒U╒UUUUUW┼UUUUUWUWUWUUUUUUUUUU╒U╒U╒UUUUUU┼UUUUUWUWUWUUUUUUUUUWUU╒UuUUUUUU╒UUUUU]UWUU╒UUUUUUUUWUU╒UuUUUUUUUUUUUU]UWUU╒UUUUUUUU]UU╒U]UUUUUUUUUUUUuUWUUuUUUUUUUU]UU╒U]UUUUUUUUUUUUuUWUUuUUUUUUUUuUU╒UWUUUUUUUUUUUU╒UWUU]UUUUUUUUuUU╒UWUUUUUUUUUUUU╒UWUU]UUUUUUUU╒UU╒UU╒UUUUUUUUUUWUUWUUWUUUUUUUU╒UU╒UU╒UUUUUUUUUUWUUWUUWUUUUUUUWUUU╒UUuUUUUUUUUUU]UUWUUU╒UUUUUUWUUU╒UUuUUкZYfYкUU]UUWUUU╒UUUUUU]UUU╒UU]UUЦeЪfYХUUuUUWUUUuUUUUUU]UUU╒UU]UUкeЩжYкUUuUUWUUUuUUUUUUuUUU╒UUWUUЦeЩfYVUU╒UUWUUU]UUUUUU       UUкZYeекUU       ¤UUUUUU_ └UUUUUUUUUU └UUUUUU_      ═UUUUUUUUUU      ┼UUUUUUW      UUUUUUUUUU_      UUUUUUU     №UUкjЦЦйкUUW     ЁUUUUUUUU_    ┴UUUХeYfYХUUU    UUUUUUUUU   №UUUкeYfйкUUUW   └UUUUUUUUUUU ЁUUUUVeYfeХUUUUW ЁUUUUUUUUUUUUUUUUUUкjЦЦYкUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUекUZееЩfкjХUUUUUUUUUUUUUUUUUUUUVYХUYfYЪeeeUUUUUUUUUUUUUUUUUUUUUUекUZжYЩеejХUUUUUUUUUUUUUUUUUUUUVUVUYVYЩeeUХUUUUUUUUUUUUUUUUUUUUVййUYUеЩeejХUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUVYХUYfYЪeeeUUUUUUUUUUUUUUUUUUUUUUекUZжYЩеejХUUUUUUUUUUUUUUUUUUUUVUVUYVYЩeeUХUUUUUUUUUUUUUUUUUUUUVййUYUеЩeejХUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                :BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$H(жB$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)Hд░C$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)H▒║G│4:SC│0H╖─РH┼#(╚1,3:┐1,1H╨#Zв44539I #nB$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159)I;#xЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 9210Im#ВЗ@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж9210Iд#МЮ6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж9210I█#ЦЗ@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж9210Iё#аЗ@490,"SCORE:"SC;J#Ёв 44539:SP│1:SC│0:Ю3:Бе40J4#·ЕNB│0 з З@Xл43,"NONE!";:в44539:РJL# B1$│ Л(216)л Л(212)JЦ$ЕNB▓100 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:ЛA:X│( Б(Xо32)л2)н32л3K$Е Б(NBо100)┤▓NBо100 ░ NB▓10 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:ЛA:X│( Б(Xо32)л2)н32л2Kl$Е Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛAKВ$X│( Б(Xо32)л3)н32KР$"в 44539:Р2л3K$Е Б(NBо100)┤▓NBо100 ░ NB▓10 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:ЛA:X│( Б(Xо32)л2)$"в 44539:Р2л3K~$Е Б(NBо100)┤▓NBо100 ░ NB▓10 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:ЛA:X│( Б(Xо32)л2)н32л2Kц$Е Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛAK№$X│( Б(Xо32)л3)н32L  HБР%$╜яHёЁ%фйHБа%╣яpёР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3"/и╠Ж "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6"0╓Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"0dрЖ "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"0ЧъЖ "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"0─ЇЖ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4E(56,89),10,4:CIRCLE(199,89),10,4:CIRCLE(128,66),10,4,1,.3,.2 90 PAINT(56,155),4,4:PAINT(199,155),4,4:PAINT(129,90),4,4:PAINT(128,66),4,4:PAINT(56,89),4,4:PAINT(199,89),4,4 100 CIRCLE(56,89),3,2:CIRCLE(199,89),3,2:CIRCLE(128,66),3,2 110 DRAW"BM130,123C1U28M+2,-8;U8E2D8NR55D4R2D5M-6,+20;BM67,85R53":PAINT(132,95),1,1 120 DRAW"BM42,152;R42BR102R42 130 CIRCLE(56,152),28,1,.5,02,.23:CIRCLE(200,152),28,1,.47,.02,.23:CIRCLE(56,89),5,1,1,.75,.1:CIRCLE(199,89),5,1,1,.75,.1:CIRCLE(128,66),5,1,1,.75,.1 135 FORA=10TO60STEP6:LINE(A,30-(A/3))-(A,30+(A/3)),PSET:LINE(255-A,30-(A/3))-(255-A,30+(A/3)),PSET:NEXT 140 EXEC 44539 150 SP=PEEK(&HBC)*256:SAVEM"BALANCE.SCR",SP,SP+3071,SP 160 FORA=1TO10:SCREEN1,0:SOUND100+A*10,1::SCREEN1,1:NEXT 170 EXEC 44539:END 180 FOR A=1 TO LEN(T$):DRAW CF$(ASC(MID$(T$,A,1)))+"BR4":NEXT 190 RETURN 200 REM LOAD FONTS 210 DRAW"BM9,100" 220 FOR A=32 TO 122 230 READ C$ 240 CF$(A)=C$ 250 REM IF A>63 THEN DRAW C$: DRAW"BR4 260 NEXT A 270 RETURN 290 DATA "BR6","BR2D4BD4D1BU9",,,,,,, 300 DATA ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8", 310 DATA "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","BD2E2R2F2G2L2G2D2R6BU8","R6D2G1F1D2NL6BU6","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6" 320 DATA "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","R6NG6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3" 330 DATA "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7", 340 REM A TO F 350 DATA "ND8R6D4NL6D4BU8","D8R6U4LNL4U4NL4BR","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6" 360 REM G TO K 370 DATA "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4 380 REM L TO P 390 DATA "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6" 400 DATA "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6" 410 DATA "D4F4E4U4"  к& М CF$(122):╚1,1:┐1,0:╝3:┴2&+Бж 180&y2╞"BM81,156;S4;":T$│"BONUS SCORE":Бж 160:╞"BM93,170;":T$│"30 POINTS":Бж160&щ<╞"BM58,12;C4S8":T$│"PERFECT":Бж 160:╞"BM60,12;C2":Бж160:╞"BM74,36;C4":T$│"ORDER!":Бж160:╞"BM76,36;C2":Бж160':FАH│8 е 226 й 40:┴ C:╗(H,90)м(Hл28,110),╜,BF:╗м(Hл36,90),╜,B:C│Cл1:ЕC▓2 з C│0'@PЛ'КZАH│28е200й40:┴C:╗(H,69)м(Hл28,89),╜,BF:╗м(Hл36,69),╜,B:C│Cл1:ЕC▓2зC│0'РdЛ'▐fА A│0 е 4:АB│32 е 54й8:АY│72е84й4:╜(BлAн40,Y,3):╜(BлAн40л2,Yл2,3):Л Y,B,A((hАA│0е5:АB│12е34й8:АY│94е106й4:╜(BлAн40,Y,3):╜(BлAн40л2,Yл2,3):Л Y,B,A(Дn╞"BM40,120;S4":T$│"ALL CONTAINERS ARE":Бж160:╞"BM40,132":T$│"IN THE RIGHT PLACE!":Бж160(Рxв 44539(┐ВSP│ Ж(&HBC)н256:╪M"SORT.SCR",SP,SPл3071,SP(фМАA│1е10:┐1,0:а100лAн10,1::┐1,1:Л(ЄЦв 44539:К)#аА A│1 е  З(T$):╞ CF$( К( Р(T$,A,1)))л"BR4":Л))кР):┤В LOAD FONTS)I╛╞"BM9,100")Z╚А A│32 е 122)c╥Н C$)q▄CF$(A)│C$)ЦцВ IF A>63 THEN DRAW C$: DRAW"BR4)ЮЁЛ A)д·Р)╟Ж "BR6","BR2D4BD4D1BU9",,,,,,,)№Ж ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8",*y"Ж "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G2F2D2NL6BU8","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6"*╘,Ж "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","BD8BR2E6U2NL6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3"+#6Ж "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7",+1@В A TO F+ЮJЖ "ND8R6D4NL6D4BU8","D8R6U4L2NL4U4NL4BR2","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6"+лTВ G TO K+ї^Ж "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4,hВ L TO P,UrЖ "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6",╢|Ж "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5BR","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6"- ЖЖ "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8"-РЖ ,,,,,-)ЪВ MINUSCULAS-ФдЖ "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6". оЖ "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3".Н╕Ж "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6".ы┬Ж "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"/I╠Ж "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"/|╓Ж "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"/йрЖ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6"/I╠Ж "BD2BR1D4R4U460:DRAW"BM76,36;C2":GOSUB160 70 FORH=8 TO 226 STEP 40:COLOR C:LINE(H,90)-(H+28,110),PSET,BF:LINE-(H+36,90),PSET,B:C=C+1:IFC>2 THEN C=0 80 NEXT 90 FORH=28TO200STEP40:COLORC:LINE(H,69)-(H+28,89),PSET,BF:LINE-(H+36,69),PSET,B:C=C+1:IFC>2THENC=0 100 NEXT 102 FOR A=0 TO 4:FORB=32 TO 54STEP8:FORY=72TO84STEP4:PSET(B+A*40,Y,3):PSET(B+A*40+2,Y+2,3):NEXT Y,B,A 104 FORA=0TO5:FORB=12TO34STEP8:FORY=94TO106STEP4:PSET(B+A*40,Y,3):PSET(B+A*40+2,Y+2,3):NEXT Y,B,A 110 DRAW"BM40,120;S4":T$="ALL CONTAINERS ARE":GOSUB160:DRAW"BM40,132":T$="IN THE RIGHT PLACE!":GOSUB160 120 EXEC 44539 130 SP=PEEK(&HBC)*256:SAVEM"SORT.SCR",SP,SP+3071,SP 140 FORA=1TO10:SCREEN1,0:SOUND100+A*10,1::SCREEN1,1:NEXT 150 EXEC 44539:END 160 FOR A=1 TO LEN(T$):DRAW CF$(ASC(MID$(T$,A,1)))+"BR4":NEXT 170 RETURN 180 REM LOAD FONTS 190 DRAW"BM9,100" 200 FOR A=32 TO 122 210 READ C$ 220 CF$(A)=C$ 230 REM IF A>63 THEN DRAW C$: DRAW"BR4 240 NEXT A 250 RETURN 270 DATA "BR6","BR2D4BD4D1BU9",,,,,,, 280 DATA ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8", 290 DATA "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G2F2D2NL6BU8","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6" 300 DATA "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","BD8BR2E6U2NL6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3" 310 DATA "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7", 320 REM A TO F 330 DATA "ND8R6D4NL6D4BU8","D8R6U4L2NL4U4NL4BR2","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6" 340 REM G TO K 350 DATA "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4 360 REM L TO P 370 DATA "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6" 380 DATA "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5BR","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6" 390 DATA "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8" 400 DATA ,,,,, 410 REM MINUSCULAS 420 DATA "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6" 430 DATA "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D >И└8:Х500:Бж 85:ТHSм1,0:╙M"INTRO.SCR":Щ"I",#1,"SCORES.DAT":А L│1е5:Й#1,HS$(L):Й#1,HS(L):Л:Й#1,BF:Й#1,BS:Й#1,BB:Й#1,BO:Ъ #1:Бж 65:Ю 3>┬АA│0е384й128:АY│1е3:З@AлYн32,B$(Y);:ЛY,A:C│ Д(4): Я│0>эЕ C$│"C" з у 2,29 :Д Е C$│"R" з у 2,11>№З@G,C$(C);?LK$│ Т:Е  Я▓500мDн5з K$│"":K│0:╔"01L24CEC":Бе 10 :Д Е K$│""Бе 4 :Д K│ К(K$)?wЕK│8 ▒ K│9 Бе 7 :Д ЕK$│" "▒ K│10 Бе 10?АБе 3?гЗ@G,BC$;:ЕK│8 з G│Gм3 :Д G│Gл3?─Е G▓25 з G│25 :Д Е G┤1 з G│1?═ Бе 3@ Е G│13 Бе 70 :Д H│ Б(Gо3)л1:АA│1е4:ЕT(H,A)┤▓0 з 11 :Д Л@+ BF(1)│175:BF(2)│175:BF(3)│175@S Е A│1 з Е K$│"" Бе 70 :Д а 1,1:Бе 4@┼ T(H,Aм1)│C:PS│ Ям200:Е  Я┤80 ░ SP│1 з Бж 55 :Д Е S▓0 з S│Sм1:Е S┤7 з SP│1:АX│1088е1472й128:ТX,253:ТXл28,255:Л@фАX│1е3:C(X)│ Ж(1023лGлX):ЛAFАY│1еAн4м7:АX│1 е 3:Т1023лGлXл32н(Yм1),BF(X):BF(X)│ Ж(1023лGлXл32нY):Т1023лGлXл32нY,C(X):ЛX,YAUВ BALANCE?AЖA│Aм1:H│Hм5:L(A)│L(A)лHнC:Е  В(L(A))▓6 Бе 70A╗Е PS┤0 з SC│SCлSPн Б( В(PS)о25):Бж 30:а 200лPS,1B6Е L(A)▓4 з E│188 :Д Е L(A)▓2 з E│156 :Д Е L(A)▓0 з E│140 :Д Е L(A)┤м4 з E│190 :Д Е L(A)┤м2 з E│158 :Д Е L(A)┤0 з E│142BUЕ L(A)┤│0 з Т943л128нA,252BtЕ L(A)▓│0 з Т941л128нA,254BлЕ L(A)▓0 з Т943л128нA,E :Д Е L(A)┤0 з Т941л128нA,EB╩D(A)│D(A)л1:Е D(A)│8 Бж 35BЄW$│ Т:C│ Д(4):G│ Д(7)н3л1: Я│0:Бе 2C З@28, Р( И(SC),2);:РC"MOVE SHIPSCЧ#BM$(1)│"":АX│0е31:BM$(1)│BM$(1)л Л( Ж(1440лX)):Л:BM$(2)│B$(2):BM$(3)│B$(3)л Л(175):ЕD┤60зD│Dл20 :Д ЕD┤75з D│Dл5 :Д D│Dл1C├$З@8,"DIFFICULTY:"; Б(Dо2);:ЕL(A)│0Бж 50Cу%АL│1е4:ЕT(L,4)┤▓L з 40 :Д ЛD&АL│6е9:ЕT(L,4)┤▓10мL з 40 :Д ЛD'Бж 60D3(ЕC$│"C"зу2,29 :Д ЕC$│"R"зу2,11DВ)АX│31е1йм1:АY│1е3:З@384лYн32, П(BM$(Y),Xм Б(Yо2.5)); б(32мX, Л(175));:ЛY,XD╓*АL│3е0йм1:З@384лLн32,B$(L);:АX│1е9:T(X,Lл1)│T(X,L):ЛX:L(Lл1)│L(L):D(Lл1)│D(L):ЛE +АL│1313е 1055 й м128:L$│"":АX│0е29:L$│L$л Л( Ж(LлX)):ЛX:З@Lм896,L$;:ЛEF,З@8, б(16, Л(175));:З@32,B$(1);:РEZ1PERFECT BALANCEE{2Е C$│"C" з Ў :Д Е C$│"R" з ўEю3ТHSм1,0:╚1,1:АA│1е8:┐1,0:а100лAн12,2:┐1,1:а50лAн8,1:╔"P16":Л:SC│SCл25:╔"P6":Бж 30:BB│BBл1:ТHS,0:Е C$┤▓"" Бж 88EЇ4РE¤6FASTFj7╔"O4L64":ТHSм1,0:╚ 0,7:АX│1е12й2:┐1,1:╔ И(X):┐1,0:╔ И(Xл1):ЛX:┐0,0:BF│BFл1:S│Sл3:Е S┤10 ▒ SP│2 з ТHS,0:РF╞8╚0,8:АX│1е140:┐1,0:┐1,1:Л:SP│2:┐0,0:ТHS,0:АX│1088е1472й128:ТX,141:ТXл28,131:Л:BS│BSл1:РF╫;PERFECT SORTFЇ<Е C$│"C"з Ў :ДЕC$│"R"з ўGQ=ТHSм1, k> Ю3>#АT│1216е1535:НA:ТT,A:Л>.dв44539>┤$Ж 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,193,193,193,165,175?:.Ж 175,175,255,255,255,255,250,207,207,207,207,202,143,143,143,143,138,159,159,159,159,154,191,191,165,195,195,199,199,199,203,173?└8Ж 175,175,255,255,255,255,250,207,207,207,207,202,143,143,143,143,138,159,159,159,159,154,191,191,165,175,207,199,203,203,207,165@FBЖ 175,143,143,143,143,138,159,159,159,159,154,191,191,191,191,186,207,207,207,207,202,143,143,143,143,138,207,199,203,203,207,213@╠LЖ 171,128,128,128,128,128,128,128,128,128,152,188,188,188,188,184,204,204,204,204,200,128,128,128,128,128,128,128,128,128,128,209ARVЖ 175,162,128,196,200,128,128,128,128,128,128,242,128,128,128,128,128,128,128,128,248,128,128,248,128,248,128,128,128,128,144,223A╪`Ж 223,223,210,128,128,128,128,248,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,177,190,188,188,188,215,223B^jЖ 223,222,128,128,128,128,128,128,128,128,128,177,190,188,188,188,188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,223BфtЖ 223,219,188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223Cj~Ж 223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223188,188,188,188,188,188,188,188,188,188,215,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223Cj~Ж 223,223,223,223,223,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ккккккккккккккккккккккккккккккккUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUккккккккккккккккккккккккккккккккUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUккккккккккккккккккккккккккккккккUUjжYкUZжYЪеUЦjЪеUкjЪжйfкjЪХХUUUкjа(А*и(ИЪК кА в  КкЪкUUV(КUXж(ИбUК"ИеUЕbИв)adbШaЕUUUкjкА*иИЪА кК`ввавJкЪкUUVКUZвИUUЖ!КбUКaИVиbКbШСХUUUкjjА&и(HjЪК"ДйА"HЪв  JjЪЪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUкjjЪккжййккjкЪкжйккккЪккккйкjjЪЪUUUU`VUPАXAЖИbА UUUUUкjjЪвИж)йк*(КЪиж(В**(И"*К"йкjjЪЪUUUU`VUVАXVДИBАUUUUUйjjZвИж)йк*(КЪШж$К**(Ив*ДкЙйjjZЪUUUUQDUU@TAEDQEUUUUUйjjZЪЦжеййjjZЪЦжеййjjZЪЦжеййjjZЪUUUUUUUUUeЪжVjХVйЦeЩeЦUUUUUUUUUUйijZZЦЦеебИ ЦЖ!ИвКЦЦеейijZZUUUUUUUUUbИв"ХV)Ж ИEЖUUUUUUUUUйijZZЦЦееа ЦЖ!*JЦЦеейijZZUUUUUUUUUaИaDbХVиI!ИEЦUUUUUUUUUUйijZZЦЦеебHbRPЦабHbJЦЦеейijZZUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUеiiZZVЦХееiiZZVЦХееiiZZVЦХееiiZZUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUеiiZZVЦХееiiZZVЦХееiiZZVЦХееiiZZUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUеeiYZVVХХеeiYZVVХХеeiYZVVХХеeiYZUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUеeiYZVVХХеeiYZVVХХеeiYZVVХХеeiYZUUUUUUUUUUUUUUUUUUUUUUUUVкUUUUUUеeiYZVVХХеeiYZVVХХеeiYZVVЪХеeiYZUUUUUUUUUUUUUUUUUUUUUUUUVV*еUUUUХeeYYVVUХЦеeYYVVUХХeeYYVVЪАкeeYYUUUкккйUUV)UUUUUUUUUUUUUVкеUUUХeк ∙V■ккк eYYVVеХХeeYYVVкАА)eYYUZз·к┐ ■ ккUUUКUUUUUUUVк?·UUUUа* _  ъкк   кккВUUUUUiUVк·╛ХеeVвЛ кп  ■ ккл  ВккUUUbХVкъпХUUX*' ккк °   ■ккВ  кккаХVк·╝Хеe`Я ккк °/     Вккк┐ рккк №ХUUАЯ ккк °/    ■   ъкап■к?W ееeаЯ ккк °/    ■      р║ккї\еUUи Я ккк °/    ■      А┐■к №ееehкЯ■ккк °/    ■      В ■к └еUUfКЯ■ккл °/    ■      В ■кВееejАиЯ■ккл °/    ■      В ■к %UUZи Я■ккл °/    ■      В ■киеeiZкА'■ккл °/    ■      В ■║а%UUZка#■ккл °/    ■      В ■■кВеeiVкиъл °/    ■      В ■║кАщUUVл└0├   р/    ■      В ■кВйeiUа /3<  р┐    ■      В ■щUUU3╠в"   р┐    °   В ■"ИАЛйeiPB" є╠< ка┐    °# 0   В °+ЩUUD тКВ├ рккк┐ └30 ■ °к*аойeiAZ"??? *и┐  ъа 3╧└?■  °╛йUUTUUbкИ│┬аи*└0"К(#■  ·ккл·аUTU` ГЁ№((,єЁЄк     ■иAPUEUUИв<к**г<> ккк┐ вEUQQD@ *???╩в ├Ёи(EAUAUUU@EFвк?╠0(* ГЁ└АUQQUUUEQAUQUE АГ<╧"И"%DTQTAUUQAUQUUU@а<БPTTQUUTEUEUE@H UQQDEUUQUQEEUEUQUQUQDEE@PUDQQEUUUQUUAUUETUUUUUUUUUTTUUUTETQDQEEEQAPTAEUEEQUUUTAUETEEUUUAPTUEQQUPTUUTTQQDUQQEDQETUUUUQEUEUUQUUU@P@PTQU@PQTUUUUUUUUUUUUUUUUQUUUTTUEAUAPTAQAE@UQQUEU@T@APT@EQEUTUQUDQEEDQ@PQUTEQTUUUUUU@PEP@EEQPQQUQUEUUUUUEEUTUQQUQUEUUUUUUQQAAQUEDQ@UQUUUUUUUEPQQTUEQQUEUPTAPUETQEEUEQTUQUUUDAPTAUEUQEQTUEQQTUEUUQDQE@QEUQEEEUUTUUEUUE@@PQQQUUUQUQUQDQQTTTQTTUTPPAPTAPEUTAPTAEQEUAPTAPTAQTTQQAPTQUUDQEDQEETQEDQQDAUQUUT@P@PUUUEQDUT@PQUDUUUUUUUUUUUTUQPTUEUUTA@UUQAPTAPTAPUUEPPT@UQTAPTAPT@UUUEEUTADQEUUPQEDQEDQEUUUEQTUQ@PUD@P@P@PQQ EQEUAPTAPTAQTTQQAPTQUUDQEDQEETQEDQQDAUQUUT@P@PUUUEQDUT@PQUDUUUUUUUUUUUTUQPTUEUUTA@UUQAPTAPTAPUUEPPT@UQTAPTAPT@UUUEEUTADQEUUPQEDQEDQEUUUEQTUQ@PUD@P@P@PQQ0╒UUUUUW  їUUUUUUUUUUUUU 00ЁїUUUU_№ їUUUUUUUUUW  0їUUUWЁ їUUUUUUW№ 0Ё¤UUU\ ЁїUUUUW№ №═UUUpъп └ UUUU№═UUU└ъкк└UUUW░ ╧UUUЁъкк└ UUUWм╠UUU╠ъкк└5UUUWл╠UUU╠ккк└ UUUWм╠ ?UUU├кклUUUW░<07UUU└└ккл╒UUW└<Ё=UUU└0ккл5UUW░<▌UUUЁккл╒UUWм Ё]UUUpЁ ъл╒UUWлЁ5]UUU|? 5UUWк└ ╒uUUU\  UUWк░ U╒UUU_  №UUWкм¤UWUUUUW  № UUWк░¤UU]UUUUW№ їUUWъ└¤UUU]UUUUU\5UUUъ░¤UUUUuUUUU__└Ё<└Ё<7╒ї}яп└Ё< ╒ї}__╒ї}_W}_└Ё<└ЁЕ C$┤▓""Бж 88Gw?BO│BOл1:ТHS,0:РGА@INITGюA╙M"FASTER.SCR":╟1е8:╙M"FAST.SCR":╟1е7:╙M"SORT.SCR":╟1е5:╟2е6:╙M"SUNK.SCR":╟1е3:╟2е4:╙M"BALANCE.SCR":ТHS,0HЫBSC│0:S│0:SP│1:R│ Д( Я):LV│1:BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$:АX│1е4:АY│1е9:T(Y,X)│0:ЛY:L(X)│0:D(X)│0:ЛX:D│0IfCB$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)IтDC$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)J%EG│4:B$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159):РJFТHSм1,0:╚1,3:┐1,1:╔"O1L2G":┐0,0:╔"L8EBL4F":┐1,1:╔"DL2F":┐0,0:╔"L8DA":┐1,1:╔"L4EL2CDC"JРGТHS,0:в44539KgHЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 80:З@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж 80:Ю6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж 80:З@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж 80:З@490,"SCORE:";SC;:в44539KОIЮ:АA│1е5:Е SC▓HS(A) з 74 :Д Л:Бе76K╜JАL│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):ЛL KЕ A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME";HS$(A):HS(A)│SCLdLТHSм1,0:Щ"O",#1,"SCORES.DAT":АA│1е5:З#1,HS$(A):З#1,HS(A):Л:З#1,BF,BS,BB,BO:Ъ#1:ТHS,0MMЮ:З@42,"HIGH SCORES":АA│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):Л:З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";MЕNA$│ Т:Е A$│"N" з Бе 95 :Д Е A$│"S" з АA│1е5:HS$(A)│".":HS(A)│6мA:Л:Бе 76 :Д Е A$│"B"з BF│0:BS│0:BB│0:BO│0:Бе 76M╡OЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 66:Бе 1 :Д Бе 78M┌PЕNB│0 з З@Xл43,"NONE!";:в44539:РN6QB1$│ Л(216)л Л(212):ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л3NвRЕ Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л2O SЕ Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛO)TX│( Б(Xо32)л3)н32:в 44539:РOKUЕ  Ж(&H8C1B)┤▓26 з HS│65495:РOПVт32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR COMPOSITE"O┬WC$│ Т:Е C$│"" Бе 87 :Д З@104,"OK! LET'S GO..."OыXЕ C$│"C" з у 2,45:у5,29:у7,21:у 4,59PYЕ C$│"R" з ў:у EN"O",#1,"SCORES.DAT":FORA=1TO5:PRINT#1,HS$(A):PRINT#1,HS(A):NEXT:PRINT#1,BF,BS,BB,BO:CLOSE#1:POKEHS,0 77 CLS:PRINT@42,"HIGH SCORES":FORA=1TO5:PRINTTAB(5-LEN(STR$(HS(A))));HS(A);" - ";HS$(A):NEXT:PRINT:PRINTTAB(7);"PLAY AGAIN? (y/n)":PRINT"PRESS s TO CLEAR THE HIGH SCORES";:PRINT"PRESS b TO CLEAR THE BADGE COUNT"; 79 A$=INKEY$:IF A$="N" THEN GOTO 93 ELSE IF A$="S" THEN FORA=1TO5:HS$(A)=".":HS(A)=6-A:NEXT:GOTO 76 ELSE IF A$="B"THEN BF=0:BS=0:BB=0:BO=0:GOTO 76 80 IF A$="Y" THEN SP=1:SC=0:CLS3:GOSUB 61:GOTO 2 ELSE GOTO 79 81 IFNB=0 THEN PRINT@X+43,"NONE!";:EXEC44539:RETURN 82 B1$=CHR$(216)+CHR$(212):IFNB>99 THENFORA=1TONB/100:PRINT@X,B1$;:PRINT@X+32,G$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+3 84 IFINT(NB/100)<>NB/100 AND NB>9 THENFORA=1TO(NB-INT(NB/100)*100)/10:PRINT@X,B1$;:PRINT@X+32,S$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+2 85 IFINT(NB/10)<>NB/10 AND NB>0 THEN B1$=CHR$(214)+CHR$(217): FORA=1TO(NB-INT(NB/10)*10):PRINT@X,B1$;:PRINT@X+32,B$;:X=X+3:NEXT 86 X=(INT(X/32)+3)*32:EXEC 44539:RETURN 87 IF PEEK(&H8C1B)<>26 THEN HS=65495:RETURN 88 WIDTH32:CLS:HS=65497:PRINT@7,"PRESS FOR RGB":PRINT@39," FOR COMPOSITE" 89 C$=INKEY$:IF C$="" THEN 89 90 IF C$="C" THEN PALETTE 2,45:PALETTE5,29:PALETTE7,21:PALETTE 4,59 91 IF C$="R" THEN RGB:PALETTE 2,24:PALETTE5,25:PALETTE 7,52:PALETTE6,14 92 RETURN 93 CLS:PRINT"THANKS FOR PLAYING!":PRINT"'DOCK MASTER' IS FREE SOFTWARE":PRINT"BY DIEGO BARIZO, 2019-2020 AND":PRINT "CAN BE FREELY DISTRIBUTED":PRINT"WITHOUT RESTRICTIONS.":PRINT"VISIT WWW.YACCS.INFO":PRINT"FOR MORE INFORMATION AND OTHER" 94 PRINT"COCO RELATED GOODIES!":POKEHS-1,0 D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"5ктЖ "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6"5╫ьЖ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,5тЎт 80:СR2BU2","BD2NR5D2R5D2NL5BU6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Л&8 Т&HF670,&H12:Т&HF671,&H12:Х1500:ИяБе9000:ИЁБе20050&pМEX$(72),FI$(72),AF$(72),EX(72):Бж20000:т80:Ю:ТHS,0&{■Бж1000&╬ё0,22:З"nstall ize

rint ";:Е SI зЗ"ard drive ackup ormat":ДЗ'9З"oad opy ove elete ename Lbel Brwse";:Е SI зЗ" Drie <0-9>";:ДЗ" Drive <0-3>";']&Е DO зЗ" HARD D.";:ДЗ" FLOPPY";'s+ё0,19:ЗBL$:ё79,23'И0U$│ Т:ЕU$│""з560'Щ?ЕU$│"O"з2699'╬DЕU$▓"/"░U$┤":"зЕ SI ▒U$┤"4"зD│ Й(U$):Бе510:Д╔BE$'№IЕ К(U$)│9зD│Dл1:Е D▓ND з D│0:Бе510 :Д 510((JЕ К(U$)│8зD│Dм1:Е D┤0зD│ND:Бе510 :Д 510(@NЕU$│"B" ░ SI Бе7500(WSЕU$│"H"░ SI Бе3500(hXЕU$│"L"з4010(y]ЕU$│"S"з4500(СbЕU$│"C"▒U$│"R"з5000(вgЕU$│"A"з2500(│lЕU$│"M"з5000(╟qЕ К(U$)│3з20050(╪vЕU$│"D"з6000(ъ{ЕU$│"I"з11000)АЕU$│"F"░ SI з6500)ГЕU$│"P"з8500)EЕЕ SI ░U$│"V"зЕ DO з╧к:DO│0:Бе520:Д╧И:DO│1:Бе520)`КU$│"":ё0,19:ЗBL$:Бе560)сшё25,19:°3,2:З"Reading the disk in drive"D;:°0,7:╧D:ТLS,0:▀D,17,17,A$,B$:ТHS,0:C$│A$л О(B$,127):L│ Ю(1,C$, Л(0)):LB$│ О(C$,L)*aЄFC│0:DF│0:АX│3е11:ТLS,0:▀D,17,X,A$,B$:ТHS,0:C$│A$л О(B$,127):АA│0е7:FI$│ Р(C$,Aн32л1,11):Е К( О(FI$,1))│255зA│8:X│12:Бе1140*╠LFC│FCл1:EX(FC)│ К( Р(C$,Aн32л12,1)):ЕEX(FC)│2зEX$(FC)│"M.L.":ДЕEX(FC)│3зEX$(FC)│"Text":ДEX$(FC)│"Basic+[Е К( Р(C$,Aн32л13,1))зAF$(FC)│"ASCII":ДAF$(FC)│"Binary+D`FI$(FC)│ О(FI$,8)л"."л П(FI$,3):Е К( О(FI$,1))│0зFC│FCм1+MtЛA,X+Н~Е LB$┤▓""з 2000 :Д ЕFC│0зLB$│"--EMPTY DISK--" :Д LB$│FI$(1)+║ГЕ FC▓0░LB$│"--EMPTY DISK--" з LB$│FI$(1), ИL1$│LB$л Л(0)л б(127м З(LB$), Л(255)):ТLS,0:рD,17,17,L1$, б(128, Л(255)):ТHS,0,К╨Ю:З"Disk " О(LB$,60)" in drive"D". Running X-Filer "VR$:ЗFC"files, " г(D)"free granules":З:ЕFC│0зЗ"There are no files":Р,└>АA│1еFC:°1,6:ЗFI$(A);:°0,7:З" ";:Е Б(Aо5)│Aо5зЗ,╔\ЛA:Р-> ─ё0,18:З"The current label of the disk in drive"D" is "LB$:╗Й"Type the new label:";LB$:Е  З(B$)▓128 з ╔BL$:Бе2500-С ╬L1$│LB$л Л(0)л б(127м З(LB$), Л(255)):ТLS,0:рD,17,17,L1$, б(128, Л(255)):ТHS,0-в ╪Бж2000:Бе520-Ё Лт 32:SL│D:Е D┤6 з CL│0:LF│12 :Д LF│Dл6:Е LF▓ND з LF│ND:CL│NDм11 :Д CL│Dм6-· МLI│CL.' ОЗ@480," CANCEL TYPE DISK #";.I СЗ@4,"LISTING DISKS"CL"TO"LF:З.i ЦТLS,0:▀CL,17,17,A$,B$:ТHS,0.{ ЫЗCL; О(A$,25).Щ аЕ CL┤LF з CL│CLл1:Бе 2710.╢ кЗ@32н(SLмLI)л64, Л(125);.╠ ┤A$│ Т:ЕA$│""з2740.ц ╣ЕA$│ Л(12)з т80:Бе560.  ╛З@32н(SLмLI)л64," ";/ ├ЕA$│ Л(13) з D│SL:т80:Бе510/M ╚ЕA$│"^"з SL│SLм1 :Д Е A$│ Л(10) з SL│SLл1/t ╥Е SL┤LI з SL│LF :Д Е SL▓LF з SL│LI/Щ ▄Е A$│ Л(9) з D│Dл12:ЕD▓ND з D│ND/╝ цЕ A$│ Л(8) з D│Dм12:ЕD┤0 з D│0/▐ ЁЕ A$│ Л(8) ▒ A$│ Л(9) Бе 269901 ·Е A$│"D" з З@480,"DISK NUMBER";:ЙTD:ЕTD┤0 ▒ TD▓ND з ╔BE$:Бе2810 :Д D│TD:Бе26990= JБе 27300_ ╕CP│442849:TF$│"":A│1:АX│0е1й00y ╓ЕA┤1зA│1:ДЕA▓FC зA│FC1 рCV│ Б((Aм1)о5):хCP,6:CH│Aм1м5нCV:CP│442849лCVн160лCHн30:хCP,4:°0,7:ё0,22:З:ЗBL$;:ё0,23:З"Which file? ( to cancel) ";:ЗFI$(A),:ЗEX$(A)" - "AF$(A);:АLO│0е1й015 КA$│ Т:ЕA$│""зЛLO1F ФЕA$│ Л(13)зР1^ ЮЕA$│ Л(94)зA│Aм5:ЛX1v иЕA$│ Л(10)зA│Aл5:ЛX1Н ▓ЕA$│ Л(8)зA│Aм1:ЛX1д ╝ЕA$│ Л(9)зA│Aл1:ЛX1┐ ╞ЕA$│ Л(12)зхCP,6:Бе5201∙ ╨TF$│TF$лA$:АZ│1еFC:Е О(FI$(Z), З(TF$))│TF$зA│Z:Бе30302 юЛZ:TF$│"":╔BE$:Бе32102} мё0,22:З"Drive to read (0 -";ND;")";:ЙD$:ЕD$│""з520:ДHD│ Й(D$):ЕHD▓NDORHD┤0з╔BE$:Бе3500:ДD│HD:╧И:Бе5102│кБж3000:ТLS,0:ИEX(A)л1Бж4050,4140,4060,4140:Бе40102┌╥Т63088,141:Т63089,26:т32:╙FI$(A),R37▄т32:╙MFI$(A):ТHS,0:т80:З"File "FI$(A)" loaded":З"Press any key to continue":вWK:Бж2000:Р3v,ё23,23:°3,2:З"WRONG FILE TYPE";:°0,7:╔BE$:вWK:TF$│"":Бе6404,ФБж3000:ТLS,0:Щ"D",#1,FI$(A),1:Й#1,A$:FB│ е(1):GC│ Б(FBо2304)л1:Ъ#1:ТHS,0:FB│ Б(FBо10.24)о100:ё0,22:З"The size of the file "FI$(A)" is "FB"Kb ("GC"granules)":ЗBL$;:╔BE$:вWK:Бе52047ИБж30004┌░ё0,22:З:ЗBL$;:ё0,22:З"Destination file? ( to cancel) ";:╗ЙDF$:NL│ З(DF$):DP│ Ю(1,DF$,":"):Е(NL▓12░DP│0)▒DP▓13з°3,2:З"Filename is too long";:╔BE$:Бе50405─Е О(DF$,2)│"*:"зDF$│FI$(A)л Р(DF$,2,NL)5╬ЕNL│0зхCP,6:Бе5205b╪EP│ Ю(1,DF$,"."):ЕEP│0зEP│ Ю(1,DF$,"/"):ЕEP│0зDF$│DF$л".":EP│NLл15╣ьDF$│ О(DF$,EPм1)л б(9мEP," ")л Р(DF$,EP, З(DF$)):ё35,19:°3,2,B:З"WORKING...";:°0,75ЁТLS,0:ЕU$┤▓"R"з▐FI$(A)еDF$:Д╓FI$(A)еDF$:FI$(A)│DF$6ТHS,0:ЕU$│"M"Бж60806хCP,66/2ЕU$│"R"▒DP│0Бе510:ДБе5206УpБж3000:ё20,19:З"REALLY DELETE ";:°1,6,U:ЗFI$(A);:°0,7:З" (Y/N) ?";:АLO│0е1й0:A$│ Т:ЕA$│"N"з5206дмЕA$│"Y"зLO│16ц╢ЛLO:ЕU$│"D"зё0,19:ЗBL$:ё30,19:°3,2,B:З"DELETING "FI$(A);:°0,77└ТLS,0:╥FI$(A):ТHS,0:Бе5107<dё21,19:°3,2:З"REALLY FORMAT THE DISK IN DRIVE"D"?";7nnA$│ Т:ЕA$│"" з6510 :ДЕA$│"Y"▒A$│"y"Бж10000:▄D7Дx°0,7:Бж1000:Бе5558Lё0,22:ЗBL$;BL$;:ё0,22:З"Backup drive"D" to (0 -"ND" or F0 to F3 for floppy drives)";:ЙBD$:ЕBD$│▓"F0"░BD$┤"F4"з╧к:BD│ Й( П(BD$,1)):Бе75208JVBD│ Й(BD$):Е BD▓ND ▒ (BD┤1 ░ BD$┤▓"0")з╔BE$:К:Бе75008y`ё22,19:З"Ready to backup"D" to"BD" (Y/N)";8ПjA$│ Т:ЕA$│""з75308пtЕA$┤▓"Y"░A$┤▓"y"з╔BE$:Бе5558╓yБж10000:ТLS,0:▌ D е BD:ТHS,0:Бе5209@ё0,22:З"File exists, verwrite?":╔BE$:АX│0е1й0:A$│ Т:ЕA$│""зЛX94hЕA$┤▓"O"Бж2000:Бе5209PrТLS,0:╥DF$:ТHS,0:Бе51209Т!4╔BE$:ё23,19:°3,2:З"Ready printer and press any key";:°0,7:вWK:X!ШЗ#м2,"Disk " О(LB$,60):З#м2,FC"files, " г(D)"free granules":АA│1е4:З#м2,"Name T F ";:ЛA:З#м2,"":АA│1еFC:З#м2,FI$(A);" "; О(EX$(A),1);" "; О(AF$(A),1);" "; Л(128);" ";:Е Б(Aо4)│Aо4зЗ:e!╩ЛA:Бе555:─#(EN│ м:EL│ н:ЕEL│2710 ░ EN│20 з A$│"-- NO DISK --":Бе 2715 :Д т 80:╔BE$:ё 20,10:ЕEN│33з8000:Ї#PЕEL│1000зё31,20:З"DRIVE"D"NOT READY":Бе9080;1#UЕEN│28зё35,19:°3,2:З"Disk full!";:╔BE$:в44539:°0,7:Бе520;c#ZЕEN│20зЗ"I/O ERROR IN THE FILE "FI$(A):Бе9080;и#dЗ"UNEXPECTED ERROR #"EN" IN LINE"EL:З"MAY BE A 'FILE NOT FOUND'?<*#xЗ"PRESS ANY KEY TO TRY AGAIN, A NUMBER TO CHANGE THE CURRENT DRIVE, OR TO SWITCH BETWEEN HARD DRIVE AND FLOPPY DRIVE"<@#ВA$│ Т:ЕA$│""з9090<^#МЕA$▓│"0"░A$┤│"9"зD│ Й(A$)<М#ЦЕA$│"H"▒A$│"h"з ЕDO│0 з╧И:DO│1 :Д ╧к:DO│0<Ц#аБе510<┐'ё35,19:°3,2,B:З"Working ...";:°0,7:Р=)*°ё20,19:Е г(D)▓2з°3,2,B:З"Installing X-FILER "VR$" to Drive"D;:°0,7:ТLS,0:╪"XF":ТHS,0:ё0,19:ЗBL$:Бе510=й+Е г(D)┤3з°3,2:З"Not enough space to install X-FILER";:ё13,20:°0,7:З"Attempt to upgrade an already installed XF.BAS? (Y/N)";=╨+>A$│ Т:ЕA$│""з11070 :Д ЕA$┤▓"Y"з555=Є+HТLS,0:╥"XF.BAS":ТHS,0:Бе11000>ЫN HS│65497:LS│65496:WK│44539:BE$│"V30O2L32EL16A":ў:у7,20:у6,18:у9,0:у11,63:у2,2:VR$│"4.0.2":BL$│ б(79," "):CP│442849:ND│ Ж(&H150):D│ Ж(235):Е Ж(&HD934)▓200зSI│1:ДND│3>║N*ЕSI зЕ Ж(334)│0зDO│1:ДDO│0>└NHР?MNRТ63088,141:Т63089,26:т80:Ю:°0,7:З"Reverting to 0.89 Mhz and 32 column mode. Press any key to cancel":АW│1е600:Е Т┤▓""з20060:ДЛ:т32:ТLS,0?КN\З"THANKS FOR USING X-FILER "VR$:З"YOU ARE NOW IN DRIVE"D200зSI│1:ДND│3>║N*ЕSI зЕ Ж(334)│0зDO│1:ДDO│0>└NHР?MNRТ63088,141:Т63089,26:т80:Ю:°0,7:З"Reverting to 0.89 Mhz an                                                                                                                                                                                                                                                                 ж>@ └8:Х500:Бж 10010:ТHSм1,0:╙M"INTRO.SCR":Бж 7000:Бж 5000:Ю 3>z(АA│0е384й128:АY│1е3:З@AлYн32,B$(Y);:ЛY,A:C│ Д(4): Я│0>Й<З@G,C$(C);>╦FK$│ Т:Е  Я▓180 з K$│"":K│0:Бе2000 :Д Е K$│""Бе70 :Д K│ К(K$)>∙PЕK│8 ▒ K│9 Бе1000 :Д ЕK$│" "▒ K│10 Бе2010?dБе 60?&шЗ@G,BC$;:ЕK│8 з G│Gм3 :Д G│Gл3?G№Е G▓25 з G│25 :Д Е G┤1 з G│1?PБе60?_╨╔"01T8CEC"?Я┌Е G│13 Бе 9000 :Д H│ Б(Gо3)л1:АA│1е4:ЕT(H,A)┤▓0 з 2020 :Д Л?┴фBF(1)│175:BF(2)│175:BF(3)│175?щюЕ A│1 з Е  Я▓180 Бе 9000 :Д а 1,1:Р@]°T(H,Aм1)│C:PS│ Ям200:Е  Я┤90 ░ SP│1 з Бж 3600 :Д Е S▓0 з S│Sм1:Е S┤7 з SP│1:АX│1088е1472й128:ТX,253:ТXл28,255:Л@|АX│1е3:C(X)│ Ж(1023лGлX):Л@▐ АY│1еAн4м7:АX│1 е 3:Т1023лGлXл32н(Yм1),BF(X):BF(X)│ Ж(1023лGлXл32нY):Т1023лGлXл32нY,C(X):ЛX,YA%4A│Aм1:H│Hм5:L(A)│L(A)лHнC:Е  В(L(A))▓6 Бе 9000:В CALCULATE BALANCEA[>Е PS┤0 з SC│SCлSPн Б( В(PS)о25):Бж4000:а 200лPS,1A╓HЕ L(A)▓4 з E│188 :Д Е L(A)▓2 з E│156 :Д Е L(A)▓0 з E│140 :Д Е L(A)┤м4 з E│190 :Д Е L(A)┤м2 з E│158 :Д Е L(A)┤0 з E│142AїRЕ L(A)┤│0 з Т943л128нA,252B\Е L(A)▓│0 з Т941л128нA,254BKfЕ L(A)▓0 з Т943л128нA,E :Д Е L(A)┤0 з Т941л128нA,EBlzD(A)│D(A)л1:Е D(A)│8 Бж 3010BЙДC│ Д(4):G│ Д(7)н3л1: Я│0BТОБе60Bб ╕MOVE SHIPSB° ┬BM$(1)│"":АH│0е31:BM$(1)│BM$(1)л Л( Ж(1440лH)):Л:BM$(2)│B$(2):BM$(3)│B$(3)л Л(175)C ╠ЕL(A)│0Бж3500C, ╓АB│1е4:ЕT(B,4)┤▓B з 3060 :Д ЛCQ рАB│6е9:ЕT(B,4)┤▓10мB з 3060 :Д ЛC] ъБж 3700Cм ЇАH│31е1йм1:АL│1е3:З@384лLн32, П(BM$(L),Hм Б(Lо2.5)); б(32мH, Л(175));:ЛL,HD ■АL│3е0йм1:З@384лLн32,B$(L);:АH│1е9:T(H,Lл1)│T(H,L):ЛH:L(Lл1)│L(L):D(Lл1)│D(L):ЛDK А L│1313е 1055 й м128:L$│"":АH│0е29:L$│L$л Л( Ж(LлH)):ЛH:З@Lм896,L$;:ЛD[ З@32,B$(1);Da РDw мВ PERFECT BALANCED╗ ╢ТHSм1,0:╚1,1:АA│1е10:┐1,0:а100лAн10,2:┐1,1:а50лAн8,1:Л:SC│SCл25D╤ └АX│1е300:Л:Бж4000DхBB│BBл1:ТHS,0:РDЁВ FASTE2ТHSм1,0:╚ 0,7:АX│1е8:┐1,1:АDL│1е50:Л:┐1,0:АDL│1е20:ЛDL,X:┐0,0E\BF│BFл1:S│Sл3:Е S┤10 ▒ SP│2 з ТHS,0:РEК$╚0,8:АX│1е140:┐1,0:┐1,1:Л:SP│2:┐0,0:ТHS,0E▓.АX│1088е1472й128:ТX,141:ТXл28,131:ЛE└BBS│BSл1:РE╙tВ PERFECT SORTF$~ТHSм1,0:╚1,5:АX│1е4:┐1,0:а 200мXн20,2:АL│1е99:ЛL:┐1,1:а 50лXн20,1:Л:SC│SCл30F:ИАX│1е300:Л:Бж4000FN╬BO│BOл1:ТHS,0:РFgаЗ@28, Р( И(SC),2);:РFrИВ INITFрТ╙M"FASTER.SCR":╟1е8:╙M"FAST.SCR":╟1е7:╙M"SORT.SCR":╟1е5:╟2е6:╙M"SUNK.SCR":╟1е3:╟2е4:╙M"BALANCE.SCR":ТHS,0GАЬSP│1:R│ Д( Я):LV│1:BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$:АX│1е4:АY│1е9:T(Y,X)│0:ЛY:L(X)│0:D(X)│0:ЛXHKжB$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)H╟░C$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)H╘║G│4:SC│0H┌─РHєXЩ"I",#1,"SCORES.DAT"I^А A│1е5:Й#1,HS$(A):Й#1,HS(A):ЛI6cЙ#1,BF:Й#1,BS:Й#1,BB:Й#1,BOI?hЪ #1IErРIS#(╚1,3:┐1,1I^#Zв44539IЫ#nB$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159)I╔#xЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 9210I√#ВЗ@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж9210J2#МЮ6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж9210Ji#ЦЗ@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж9210JЙ#ЫЗ@490,"SCORE:";SC;:в44539:ЮJм#аА A│1е5:Е SC▓HS(A) з 9130 :Д ЛJ▄#кА L│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):ЛK*#┤Е A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME";HS$(A):HS(A)│SCKu#╛Щ"O",#1,"SCORES.DAT":АA│1е5:З#1,HS$(A):З#1,HS(A):Л:З#1,BF,BS,BB,BO:Ъ#1K╛#╚Ю:З@42,"HIGH SCORES":А A│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):ЛL'#╥З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";LЦ#▄A$│ Т:Е A$│"N" з Бе 11000 :Д Е A$│"S" з АA│1е5:HS$(A)│".":HS(A)│6мA:Л:Ю :Д Е A$│"B"з BF│0:BS│0:BB│0:BO│0:ЮL╩#ЁЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 5020:Бе40 :Д Бе 9180Lя#·ЕNB│0 з З@Xл43,"NONE!";:в44539:РM# B1$│ Л(216)л Л(212)MO$ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л3M╗$Е Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л2N"$Е Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛNB$X│( Б(Xо32)л3)н32:в 44539:РNd'Е  Ж(&H8C1B)┤▓26 з HS│65495:РNй'$т 32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR COMPOSITE"Nу'.C$│ Т:Е C$│"" з 10030 :Д Е C$│"C" з Ў :Д Е C$│"R" з ўNщ'8РOI*°Ю:З"THANKS FOR PLAYING!:PRINT":ГDOCK MASTER' IS FREE SOFTWARE (C) DIEGO BARIZO, 2019-2020"P+З "THE PROGRAM, GRAPHICS, SOURCE CODE, AND THE FILES DOCK.BAS, BALANCE.BAS, BALANCE.SCR, FAST.BAS, FAST.SCR, FASTER.BAS, FASTER.SCR, SORT.BAS, SORT.SCR, INTRO.BAS, INTRO.SCR, SUNK.BAS AND SUNK.SCR";PX+ З "CAN BE FREELY DISTRIBUTED WITH NO RESTRICTIONS."QH+*З "CREATION OF DERIVATIVE WORKS IS ALLOWED, AS LONG AS CREDIT TO THE ORIGINAL AUTHOR IS GIVEN. DISTRIBUTION OF DERIVATIVE WORKSIS ALLOWED FOR NON-COMERCIAL PURPOSES ONLY, UNLESS A SPECIFICAUTHORIZATION HAS BEEN GRANTED BY THE";Qh+RЗ "AUTHOR OF THE ORIGINAL."Qе.р╔"O1L8GGGL2CGL8FEDL2O2CO1L4GL8FEDL2O2CO1L4GL8FEFL2DL8GGGINAL AUTHOR IS GIVEN. DISTRIBUTION OF DERIVATIVE WORKSIS ALLOWED FOR NON-COMERCIAL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ю>И└8:Х500:Бж 86:ТHSм1,0:╙M"INTRO.SCR":Щ"I",#1,"SCORES.DAT":А L│1е5:Й#1,HS$(L):Й#1,HS(L):Л:Й#1,BF:Й#1,BS:Й#1,BB:Й#1,BO:Ъ #1:Бж 62:Ю 3>┬АA│0е384й128:АY│1е3:З@AлYн32,B$(Y);:ЛY,A:C│ Д(4): Я│0>эЕ C$│"C" з у 2,13 :Д Е C$│"R" з у 2,11>№З@G,C$(C);?LK$│ Т:Е  Я▓500мDн5з K$│"":K│0:╔"01L24CEC":Бе 10 :Д Е K$│""Бе 4 :Д K│ К(K$)?wЕK│8 ▒ K│9 Бе 7 :Д ЕK$│" "▒ K│10 Бе 10?АБе 3?гЗ@G,BC$;:ЕK│8 з G│Gм3 :Д G│Gл3?─Е G▓25 з G│25 :Д Е G┤1 з G│1?═ Бе 3@ Е G│13 Бе 70 :Д H│ Б(Gо3)л1:АA│1е4:ЕT(H,A)┤▓0 з 11 :Д Л@+ BF(1)│175:BF(2)│175:BF(3)│175@S Е A│1 з Е K$│"" Бе 70 :Д а 1,1:Бе 4@╟ T(H,Aм1)│C:PS│ Ям200:Е  Я┤90мD ░ SP│1 з Бж 45 :Д Е S▓0 з S│Sм1:Е S┤7 з SP│1:АX│1088е1472й128:ТX,253:ТXл28,255:Л@цАX│1е3:C(X)│ Ж(1023лGлX):ЛAHАY│1еAн4м7:АX│1 е 3:Т1023лGлXл32н(Yм1),BF(X):BF(X)│ Ж(1023лGлXл32нY):Т1023лGлXл32нY,C(X):ЛX,YA^CALCULATE BALANCEAПA│Aм1:H│Hм5:L(A)│L(A)лHнC:Е  В(L(A))▓6 Бе 70A─Е PS┤0 з SC│SCлSPн Б( В(PS)о25):Бж 60:а 200лPS,1B?Е L(A)▓4 з E│188 :Д Е L(A)▓2 з E│156 :Д Е L(A)▓0 з E│140 :Д Е L(A)┤м4 з E│190 :Д Е L(A)┤м2 з E│158 :Д Е L(A)┤0 з E│142B^Е L(A)┤│0 з Т943л128нA,252B}Е L(A)▓│0 з Т941л128нA,254B┤Е L(A)▓0 з Т943л128нA,E :Д Е L(A)┤0 з Т941л128нA,EB╙D(A)│D(A)л1:Е D(A)│8 Бж 30BїC│ Д(4):G│ Д(7)н3л1: Я│0:Бе 2CMOVE SHIPSCБBM$(1)│"":АX│0е31:BM$(1)│BM$(1)л Л( Ж(1440лX)):Л:BM$(2)│B$(2):BM$(3)│B$(3)л Л(175):ЕD┤60зD│Dл20 :Д ЕD┤75з D│Dл5 :Д D│Dл2CнЗ@8,"DIFFICULTY:"; Б(Dо2);:ЕL(A)│0Бж 40C═ АL│1е4:ЕT(L,4)┤▓L з 36 :Д ЛCЁ!АL│6е9:ЕT(L,4)┤▓10мL з 36 :Д ЛC·"Бж 50D#ЕC$│"C"зу2,13 :Д ЕC$│"R"зу2,11Dl$АX│31е1йм1:АY│1е3:З@384лYн32, П(BM$(Y),Xм Б(Yо2.5)); б(32мX, Л(175));:ЛY,XD└%АL│3е0йм1:З@384лLн32,B$(L);:АX│1е9:T(X,Lл1)│T(X,L):ЛX:L(Lл1)│L(L):D(Lл1)│D(L):ЛE &АL│1313е 1055 й м128:L$│"":АX│0е29:L$│L$л Л( Ж(LлX)):ЛX:З@Lм896,L$;:ЛE0'З@8, б(16, Л(175));:З@32,B$(1);:РED(PERFECT BALANCEEe)Е C$│"C" з Ў :Д Е C$│"R" з ўE╥*ТHSм1,0:╚1,1:АA│1е10:┐1,0:а100лAн10,2:┐1,1:а50лAн8,1:Л:SC│SCл25:╔"P8":Бж 60:BB│BBл1:ТHS,0:Е C$┤▓"" Бж 89E╪+РEс,FASTFN-╔"O4L64":ТHSм1,0:╚ 0,7:АX│1е12й2:┐1,1:╔ И(X):┐1,0:╔ И(Xл1):ЛX:┐0,0:BF│BFл1:S│Sл3:Е S┤10 ▒ SP│2 з ТHS,0:РFк.╚0,8:АX│1е140:┐1,0:┐1,1:Л:SP│2:┐0,0:ТHS,0:АX│1088е1472й128:ТX,141:ТXл28,131:Л:BS│BSл1:РF╗1PERFECT SORTF╪2Е C$│"C"з Ў :ДЕC$│"R"з ўG63ТHSм1,0:╚1,5:АX│1е4:┐1,0:а 200мXн20,2:╔"P24":┐1,1:а 50лXн20,1:Л:SC│SCл30:┐1,0:╔"P8":Бж 60GH4Е C$┤▓""Бж 89G\5BO│BOл1:ТHS,0:РGu<З@28, Р( И(SC),2);:РG~=INITGь>╙M"FASTER.SCR":╟1е8:╙M"FAST.SCR":╟1е7:╙M"SORT.SCR":╟1е5:╟2е6:╙M"SUNK.SCR":╟1е3:╟2е4:╙M"BALANCE.SCR":ТHS,0HЩ?SC│0:S│0:SP│1:R│ Д( Я):LV│1:BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$:АX│1е4:АY│1е9:T(Y,X)│0:ЛY:L(X)│0:D(X)│0:ЛX:D│0Id@B$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)IрAC$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)J#BG│4:B$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159):РJ}FТHSм1,0:╚1,3:┐1,1:╔"O1L2G":┐0,0:╔"L8EBL4F":┐1,1:╔"DL2F":┐0,0:╔"L8DA":┐1,1:╔"L4EL2CDC"JОGТHS,0:в44539KbIЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 81:З@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж 81:Ю6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж 81:З@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж 81:З@490,"SCORE:";SC;:в44KДJЮ:АA│1е5:Е SC▓HS(A) з 75 :Д ЛK│KАL│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):ЛLLЕ A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME";HS$(A):HS(A)│SCLZMТHSм1,0:Щ"O",#1,"SCORES.DAT":АA│1е5:З#1,HS$(A):З#1,HS(A):Л:З#1,BF,BS,BB,BO:Ъ#1:ТHS,0MNЮ:З@42,"HIGH SCORES":АA│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):Л:З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";M{OA$│ Т:Е A$│"N" з Бе 92 :Д Е A$│"S" з АA│1е5:HS$(A)│".":HS(A)│6мA:Л:Бе 77 :Д Е A$│"B"з BF│0:BS│0:BB│0:BO│0:Бе 77MлPЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 63:Бе 1 :Д Бе 79M╨QЕNB│0 з З@Xл43,"NONE!";:в44539:РN,RB1$│ Л(216)л Л(212):ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л3NШSЕ Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л2N TЕ Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:ЛOUX│( Б(Xо32)л3)н32:в 44539:РOAVЕ  Ж(&H8C1B)┤▓26 з HS│65495:РOЕWт32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR COMPOSITE"OЬXC$│ Т:Е C$│"" з 88O┼YЕ C$│"C" з у 2,45:у5,29:у7,21:у 4,59OЁZЕ C$│"R" з ў:у 2,24:у5,25:у 7,52:у6,14OЎ[РP╚\Ю:З"2,27:у5,25:у 7,52:у6,14PZРPю_Ю:З"THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DISTRIBUTED":З"WITHOUT RESTRICTIONS.":З"VISIT WWW.YACCS.INFO":З"FOR MORE INFORMATION AND OTHER"Q`З"COCO RELATED GOODIES!":ТHSм1,0PZРPю_Ю:З"THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DISTRIBUTED":З"WITHOUT RESTRICTIONS.":З"VISIT WWW.YACCS.INFO":З"FOR MORE INFORMATION AND OTHER"Q`З"COCO RELAT Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)1рDC$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)2#EG│4:B$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159):Р2}FТHSм1,0:╚1,3:┐1,1:╔"O1L2G":┐0,0:╔"L8EBL4F":┐1,1:╔"DL2F":┐0,0:╔"L8DA":┐1,1:╔"L4EL2CDC"2ОGТHS,0:в445393bHЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 80:З@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж 80:Ю6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж 80:З@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж 80:З@490,"SCORE:";SC;:в443ДIЮ:АA│1е5:Е SC▓HS(A) з 74 :Д Л3│JАL│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):Л4KЕ A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME";HS$(A):HS(A)│SC4ZLТHSм1,0:Щ"O",#1,"SCORES.DAT":АA│1е5:З#1,HS$(A):З#1,HS(A):Л:З#1,BF,BS,BB,BO:Ъ#1:ТHS,05MЮ:З@42,"HIGH SCORES":АA│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):Л:З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";5{NA$│ Т:Е A$│"N" з Бе 95 :Д Е A$│"S" з АA│1е5:HS$(A)│".":HS(A)│6мA:Л:Бе 76 :Д Е A$│"B"з BF│0:BS│0:BB│0:BO│0:Бе 765лOЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 66:Бе 1 :Д Бе 785╨PЕNB│0 з З@Xл43,"NONE!";:в44539:Р6,QB1$│ Л(216)л Л(212):ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л36ШRЕ Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л26 SЕ Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:Л7TX│( Б(Xо32)л3)н32:в 44539:Р7AUЕ  Ж(&H8C1B)┤▓26 з HS│65495:Р7ЕVт32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR COMPOSITE"7ЬWC$│ Т:Е C$│"" з 877┼XЕ C$│"C" з у 2,45:у5,29:у7,21:у 4,597ЁYЕ C$│"R" з ў:у 2,24:у5,25:у 7,52:у6,147ЎZР8╚_Ю:З" >& Бе 30& ХING THE ┐&-ЗING A MESSAGE&3Х&=(З "A"                                                                                                Т&HFF01,52:Т&HFF03,63:Т&HFF23,600RиSS│&HFF7E:ТSS,144:T$│"PERFECT BALANCE.":Бж47000y\АX│1е З(T$):ТY, К( Р(T$,X,1)):ЛX:Р0ДИВ INIT0ЄТ╙M"FASTER.SCR":╟1е8:╙M"FAST.SCR":╟1е7:╙M"SORT.SCR":╟1е5:╟2е6:╙M"SUNK.SCR":╟1е3:╟2е4:╙M"BALANCE.SCR":ТHS,01ЯЬSC│0:S│0:SP│1:R│ Д( Я):LV│1:BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$:АX│1е4:АY│1е9:T(Y,X)│0:ЛY:L(X)│0:D(X)│0:ЛX:D│02jжB$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)2ц░C$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)2Ё║G│4:Р3J#(ТHSм1,0:╚1,3:┐1,1:╔"O1L2G":┐0,0:╔"L8EBL4F":┐1,1:╔"DL2F":┐0,0:╔"L8DA":┐1,1:╔"L4EL2CDC"3[#ZТHS,0:в445393Ш#nB$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159)3╞#xЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 92103°#ВЗ@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж92104/#МЮ6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж92104f#ЦЗ@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж92104Ж#ЫЗ@490,"SCORE:";SC;:в44539:Ю4и#аАA│1е5:Е SC▓HS(A) з 9130 :Д Л4╫#кАL│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):Л5%#┤Е A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME";HS$(A):HS(A)│SC5~#╛ТHSм1,0:Щ"O",#1,"SCORES.DAT":АA│1е5:З#1,HS$(A):З#1,HS(A):Л:З#1,BF,BS,BB,BO:Ъ#1:ТHS,05╞#╚Ю:З@42,"HIGH SCORES":АA│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):Л6/#╥З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";6и#▄A$│ Т:Е A$│"N" з Бе 11000 :Д Е A$│"S" з АA│1е5:HS$(A)│".":HS(A)│6мA:Л:Бе9150 :Д Е A$│"B"з BF│0:BS│0:BB│0:BO│0:Бе91506▄#ЁЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 5020:Бе40 :Д Бе 91807#·ЕNB│0 з З@Xл43,"NONE!";:в44539:Р7# B1$│ Л(216)л Л(212)7a$ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л37═$Е Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л284$Е Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:Л8T$X│( Б(Xо32)л3)н32:в 44539:Р8v'Е  Ж(&H8C1B)┤▓26 з HS│65495:Р8╗'$т 32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR COMPOSITE"8╒'.C$│ Т:Е C$│"" з 100308■'/Е C$│"C" з у 2,45:у5,29:у7,21:у 4,599''3Е C$│"R" з у 2,24:у5,25:у 7,52:у6,149-'8Р9 *°Ю:З"THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DISTRIBUTED":З"WITHOUT RESTRICTIONS.":З"VISIT WWW.YACCS.INFO":З"FOR MORE INFORMATION AND OTHER":$+З"COCO RELATED GOODIES!":ТHSм1,09-'8Р9 *°Ю:З"THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DISTRIBUTED":З"WITHOUT RESTRICTIONS.":З"VISIT WWW.YACCS.INFO":З"FOR MORE INFORMATION AND OTHER"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0 DIM CF$(122):PMODE0,1:SCREEN1,1:PCLS2:COLOR3:GOSUB 10000 61 DRAW"BM 33,11;S6":T$="FAST":GOSUB 900:DRAW"BM65,29":GOSUB900:DRAW"BM99,47":GOSUB900:DRAW"BM133,64":T$="FAST!!":GOSUB900:DRAW"S4" 62 DRAW"BM59,158":T$="SPEED METER UP!":GOSUB 900 70 D$="BM10,50;M55,70;M45,55;M80,75;M70,60;M145,100;M95,85;M105,98;M65,80;M71,96;M10,50 71 DRAW"BM21,65;S6M+50,+20;M-10,-15;M+40,+20;M-10,-15;M+80,+40;M-55,-15;M+10,+13;M-45,-18;M+11,+16;M-70,-46 72 PAINT(99,99),1,1 800 EXEC 44539 805 SP=PEEK(&HBC)*256:SAVEM"FAST.SCR",SP,SP+1535,SP 899 EXEC 44539:END 900 FOR A=1 TO LEN(T$):DRAW CF$(ASC(MID$(T$,A,1)))+"BR4":NEXT 910 RETURN 10000 REM LOAD FONTS 10020 DRAW"BM9,100" 10030 FOR A=32 TO 122 10040 READ C$ 10050 CF$(A)=C$ 10060 REM IF A>63 THEN DRAW C$: DRAW"BR4 10070 NEXT A 10075 RETURN 10090 DATA "BR6","BR2D4BD4D1BU9",,,,,,, 10100 DATA ,,,"BD5BR3ND2BR3BU5","BD3R6BU3","BD8BR2R1BU8", 10110 DATA "NR6D8R6U8","BR3NG2D8NL2NR2U8BR3","ND1R6D2G1L4G1D2R6BU6","R6D2G1F1D2NL6BU6","BR6G1L1G1L1G1L1R6ND3U3","BD8R3E2U2L6U4R6" 10120 DATA "BR2NR4G2D3F1R4E1U1H1NL5BU3R1","R6NG6","D6NR6U3NR6U3R6ND6","ND3R6D3NL6NG3U3" 10130 DATA "BR3D1BD4D1BR3BU6","BR3D1BD4D2BR3BU7",,,,"BD1E1R4F1D1G1L1D2BD1D1BR3BU7", 10135 REM A TO F 10140 DATA "ND8R6D4NL6D4BU8","D8R6U4LNL4U4NL4BR","D8R6BU8NL6","D8R4E2U4H2NL4BR2","D8NR6U4NR6U4R6","D8U4NR4U4R6" 10145 REM G TO K 10150 DATA "D8R6U4NL4BU4NL6","D4ND4R6ND4U4","BRND8","BD6F2R2E2U6","D8U4R2NF4E4 10155 REM L TO P 10160 DATA "D8R6BU8","ND8F3E3ND8","ND8DF6DU8","BD2NE2D4F2R2E2U4H2L2BR4","R6D4L6ND4U4R6" 10170 DATA "BD2NE2D4F2R3NF2NH2EU4H2L2BR4","D8U4R2NF4R3U4NL5","D4R6D4L6BU8R6","R4ND8R4","D6F2R2E2U6" 10180 DATA "D4F4E4U4","D8E4F4U8","D2F2G2ND2E2R2F2ND2H2E2U2","F4ND4E4","R8L2D2G4D2NL2R6BU8" 10190 DATA ,,,,, 10200 REM MINUSCULAS 10210 DATA "BD2R5D2L5D2R5U4BU2BR1","D6R5U3L5U3BR6","BD2NR5D4NR5BU6BR6","BR6D6L5U3R5U3","BD2R5D2L5NU2D2R5BR1BU6" 10220 DATA "BD2NR5D2NR5ND3BR6BU4","BR1BD2ND4R5D4NL5D2NL4BU8","D6U3R5D3BU6BR1","BR3D1BD2D3NL1BR3BU6","BR3D1BD2D5NL2BU8BR3" 10230 DATA "D6U2R1NE2NF2BR5BU4","D6R2BR4BU6","BD2ND4R2F1ND3E1R2D4BU6","BD2ND4R5D4BR1BU6","BD2BR1R4D4L4U4RBR5BU2","BD2R5D4L5NU4ND3BR6BU6" 10240 DATA "BD2D4R5ND3U4NL5BR1BU2","BD1D5U4R4BR2BU2","BD2NR5D2R5D2NL5BU6BR1","BR3D2NL2NR2D4BR3BU6" 10250 DATA "BD2BR1D4R4U4BR1BU2","BD2BR1D2F2E2U2BR1BU2","BD2D4E3F3U4BU2","BR3BD4NE2NF2NG2NH2BR3BU4"                                 кккккккккккккккккккккккккккккккк                                кккккккккккккккккккккккккккккккк                                кккккккккккккккккккккккккккккккк ┐∙UЮe_■UЮfUячЩVU хYVUХyХYVWз я кккЪЪfккjЪfiкжЩжjкжйжiЪйкiкiжккк ┐ ЯХe_■UХfUяхYVU ч╣VUХy∙∙Vyз я кккЪЪfккйЪfjкжЩжйкжйжjкiжйкiкккк ┐┐ЯЮe[■UЮfячЩцU■хYжoХyХYVWз┐яякккккккккккккккккккккккккккккккк ┐┐яя√√■■ ┐┐яя√√■■ ┐┐яя√√■■ ┐┐яяккккйVjЪкйUЪeZкUежЩUХfiХeYVккккк ┐┐ящц{Ю■ ЯЮgя·{ЮeЯЯЮfYЫчЩ■ ┐┐яяккккйVjЪккЪХeZкjЪfZЪХfeХeYVккккк■┐┐пщц{Ъ■■ЯЮgяъ{ЪfЮЯЮfiЫцzц■┐┐пяккккйжUХjкЪЪeZкUежЪЪЪfiХfЩVккккк■┐┐пяы√·■■┐┐пяы√·■■┐┐пяы√·■■┐┐пякккккккккккккккккккккккккккккккк■╛┐ппыы··∙жUЯЩWыХfЩжyзЯыы··■╛┐ппкккккккккйжiЪЩккЪжЩffжЪккккккккк■╛┐ппыы··∙VUЯЩWыХfЩЦ_зЯыы··■╛┐ппкккккккккйжiжiкккfЩжfккккккккккк■╛┐ппыы··∙жyййWыХyyжyзЯыы··■╛┐ппкккккккккккккккккккккккккккккккк·╛╛пплыъ··╛╛пплыъ··╛╛пплыъ··╛╛ппкккккккккккккккккккккккккккккккк·╛╛пплыъ··╛╛пплыъ··╛╛пплыъ··╛╛ппкккккккккккккккккккккккккккккккк·║╛опллъъ·║╛опллъъ·║╛опллъъ·║╛опкккккккккккккккккккккккккккккккк·║╛опллъъ·║╛опллъъ·║╛опллъъ·║╛опккккккккккккккккккккккккл кккккк·║╛опллъъ·║╛опллъъ·║╛оплл╧ъ·║╛опккккккккккккккккккккккккл·ккккъ║║ооллкъы·║ооллкъъ║║оолл╧╒ ║║ооккк   ■ккл~кккккккккккккл UU·кккъ║ \л   ^║оолл·ъъ║║оолл ╒╒~║оокп]W° └_  ккк▀кккккккл U@ккккї^а?  \   ╫ккккк╛кл U├ъ·║лUў▄ Ё_  №╫  ккк╖ъл T?ЁъккнUx    \  ╫   їъл V┴ъ·║╡U]р    p╫   └5   RАъкк╒UUЁ    pW? їЁ @и··║їUUЁ    p\5╧  P б·кк¤UuЁ    p\╒└ T··║╜U Ё    p\╫ U·кк╗W▀Ё  № p\╫ UW╫··║╝╒¤Ё  № p\╫ UU_zккм=uЁ  № p\╫ UU¤·║╛м╒|  № p\╫▀UUїzккп5t  № p\╫WU ╫·║╛л UUP?№ p\╫▀ ╒W>ккл├╒uU5p\╫ UW╫■║╛к┼POw}\5└\╫UU]W>кккTw▌7wu  ї└ UUT╫w▌╒▄■║╛еЧDEў▌}_ ї   └ tQE╫ UU]|юккЩkQ ─╫ ї     ╒TDETW  їє■║╛fЦпwE@=   └їu_w▀╒@\ UUW├>ккiйкк╖ ▌ў_╫┼@_╒ut}w_ _  № 5UUiкZйкij╡U_╫ї¤ATM}ўїЇT?_   └ёYeЦjjекЪккfiZg▌ўU_}Ё@@}\   VffjЪкjжжЩjХUiZUUu╨U__╫їAWfiЪjЦкЦкjккYeUUUХЪiЫў ▌u}@Pї╒кiжjжкккЪjjjжЦYfjкjжкiЪ_╒╫}▀DDzЩйжeйjYЦккжiffffЦiкжкjккZUХї}UT╓jjjVейjZйжккйiЪiкjjЪкjЪZjfUjХЭuкjжжfЩfiЪккжкiжЪjЪкЪкжкжкiжЩUfVjjЪjЪiZVХеjкjЩjжжЪeкiкjкжккffeЦкjiкЪйjкккккккккjjfййкккйЪйжfЩжiЪЪЪjjжjZЦейjZЦЪкЪЪжкккйjZЦкЪйЪffЪjкккjijZЦейjZкijЪжжкjейjZкjкййжZfжЩкжжiЪfЩжiЪйккjккUUUжiЪкЪfjfккжккjкjХеiZVХеjйжкiUYeХUUеijжйкjjкккккUккккккккккжUVfffYejкккййкЪiijZЦeVкZЦейjZЦжUVЦfiЪfeХjкжжкjЪкХйjZfХijZЦейjZХYfYЪiжfЪfZкйкiжjкЩжiЪifUiЪfЩжiХffежкiйЪiжUjйккккккVХеiЪYUеiZVХUVЪjЪjjjжежiUжкжкЪкккккjffeUUUUYfiЪЪкiйкjjжжeZкжкЪкккккjкжжЦYeЦfjfжjfкjЪjjZЩжХкжкккккккjiЪYffffiежjжйкЪжжкЪZZfVкейjZЦекjЪiйжiЪfЪiкЪжйкjжкiккifЩjЦейjZЦкjЪкfжЪiжйкjЪжжйкЪкjкZjжfUfЩжiЪfХjжЪкжЪЪjjjЪjjккйккjЪккfЪeХZVХеUVjжжжjjjjjjjккjjjкжкжкжiЩжVUUUUeжjйййжййкiйееZZЦейjZЦеЪкйffYeЦZfZейjZЦjЪжЪкЦейjZЦейiZЦjжjййжfffiжЦейjZжкjкifЩжiЪfЩжiЪfЪfйfжЪfЩжiжfЩfYЦкjжккйZVХеiZVХеiZкккfЪiжЩiкйZVХеjжкЩкккккккккккйкжейкZЪjjкfкйjYЦХкjкжZЦейjZЦейjZЦеккjjjjjfЪеейjZХкжйijZЦейjZЦейjZХкiккjЪЪкйЦЩжiЪfккежiЪfЩжiЪfЩжiЪfкккЪжйкZжeZVХеiZкЩVХеiZVХеiZVХеiZжжZeVYjf jЪжЪкЦейjZЦейiZЦjжjййжfffiжЦейjZжкjкifЩжiЪfЩжiЪfЪfйfжЪfЩжiжfЩfYЦкjжккйZVХеiZVХеiZкккfЪiжЩiкйZVХеjжкЩкккккккккккйкжейкZЪjjкfкйjYЦХкjкжZЦейjZЦейjZЦеккjjjjjfЪеейjZХкжйijZЦейjZЦейjZХкiккjЪЪкйЦЩжiЪfккежiЪfЩжiЪfЩжiЪfкккЪжйкZжeZVХеiZкЩVХеiZVХеiZVХеiZжжZ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DISTRIBUTED":З"WITHOUT RESTRICTIONS.":З"VISIT WWW.YACCS.INFO":З"FOR MORE INFORMATION AND OTHER"Pэ]З"COCO RELATED GOODIES!":ТHSм1,0OЎ[РP╚\Ю:З" SCORES";:PRINT"PRESS b TO CLEAR THE BADGE COUNT"; 79 A$=INKEY$:IF A$="N" THEN GOTO 92 ELSE IF A$="S" THEN FORA=1TO5:HS$(A)=".":HS(A)=6-A:NEXT:GOTO 77 ELSE IF A$="B"THEN BF=0:BS=0:BB=0:BO=0:GOTO 77 80 IF A$="Y" THEN SP=1:SC=0:CLS3:GOSUB 63:GOTO 1 ELSE GOTO 79 81 IFNB=0 THEN PRINT@X+43,"NONE!";:EXEC44539:RETURN 82 B1$=CHR$(216)+CHR$(212):IFNB>99 THENFORA=1TONB/100:PRINT@X,B1$;:PRINT@X+32,G$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+3 83 IFINT(NB/100)<>NB/100 AND NB>9 THENFORA=1TO(NB-INT(NB/100)*100)/10:PRINT@X,B1$;:PRINT@X+32,S$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+2 84 IFINT(NB/10)<>NB/10 AND NB>0 THEN B1$=CHR$(214)+CHR$(217): FORA=1TO(NB-INT(NB/10)*10):PRINT@X,B1$;:PRINT@X+32,B$;:X=X+3:NEXT 85 X=(INT(X/32)+3)*32:EXEC 44539:RETURN 86 IF PEEK(&H8C1B)<>26 THEN HS=65495:RETURN 87 WIDTH32:CLS:HS=65497:PRINT@7,"PRESS FOR RGB":PRINT@39," FOR COMPOSITE" 88 C$=INKEY$:IF C$="" THEN 88 89 IF C$="C" THEN PALETTE 2,45:PALETTE5,29:PALETTE7,21:PALETTE 4,59 90 IF C$="R" THEN RGB:PALETTE 2,24:PALETTE5,25:PALETTE 7,52:PALETTE6,14 91 RETURN 92 CLS:PRINT"THANKS FOR PLAYING!":PRINT"'DOCK MASTER' IS FREE SOFTWARE":PRINT"BY DIEGO BARIZO, 2019-2020 AND":PRINT "CAN BE FREELY DISTRIBUTED":PRINT"WITHOUT RESTRICTIONS.":PRINT"VISIT WWW.YACCS.INFO":PRINT"FOR MORE INFORMATION AND OTHER" 93 PRINT"COCO RELATED GOODIES!":POKEHS-1,0 705DF яЕ C$│"C"зу2,13 :Д Е C$│"R"зу2,11DХ ЇАX│31е1йм1:АY│1е3:З@384лYн32, П(BM$(Y),Xм Б(Yо2.5)); б(32мX, Л(175));:ЛY,XDщ ■АL│3е0йм1:З@384лLн32,B$(L);:АX│1е9:T(X,Lл1)│T(X,L):ЛX:L(Lл1)│L(L):D(Lл1)│D(L):ЛE3 АL│1313е 1055 й м128:L$│"":АX│0е29:L$│L$л Л( Ж(LлX)):ЛX:З@Lм896,L$;:ЛEW З@8, б(16, Л(175));:З@32,B$(1);E] РEs мВ PERFECT BALANCEEФ ▒Е C$│"C" з Ў :Д Е C$│"R" з ўE╪ ╢ТHSм1,0:╚1,1:АA│1е10:┐1,0:а100лAн10,2:┐1,1:а50лAн8,1:Л:SC│SCл25Eю └АL│1е300:Л:Бж4000FBB│BBл1:ТHS,0:Е C$┤▓"" Бж10031F РF"В FASTFi╔"O4L64":ТHSм1,0:╚ 0,7:АX│1е12й2:┐1,1:╔ И(X):┐1,0:╔ И(Xл1):ЛX:┐0,0FУBF│BFл1:S│Sл3:Е S┤10 ▒ SP│2 з ТHS,0:РF┴$╚0,8:АX│1е140:┐1,0:┐1,1:Л:SP│2:┐0,0:ТHS,0Fщ.АX│1088е1472й128:ТX,141:ТXл28,131:ЛFўBBS│BSл1:РG tВ P ю&И└8:Х500:Бж 85:ТHSм1,0:╙M"INTRO.SCR":Щ"I",#1,"SCORES.DAT":А L│1е5:Й#1,HS$(L):Й#1,HS(L):Л:Й#1,BF:Й#1,BS:Й#1,BB:Й#1,BO:Ъ #1:Бж 65:Ю 3&┬АA│0е384й128:АY│1е3:З@AлYн32,B$(Y);:ЛY,A:C│ Д(4): Я│0&эЕ C$│"C" з у 2,13 :Д Е C$│"R" з у 2,11&№З@G,C$(C);'LK$│ Т:Е  Я▓500мDн5з K$│"":K│0:╔"01L24CEC":Бе 10 :Д Е K$│""Бе 4 :Д K│ К(K$)'wЕK│8 ▒ K│9 Бе 7 :Д ЕK$│" "▒ K│10 Бе 10'АБе 3'гЗ@G,BC$;:ЕK│8 з G│Gм3 :Д G│Gл3'─Е G▓25 з G│25 :Д Е G┤1 з G│1'═ Бе 3( Е G│13 Бе 70 :Д H│ Б(Gо3)л1:АA│1е4:ЕT(H,A)┤▓0 з 11 :Д Л(+ BF(1)│175:BF(2)│175:BF(3)│175(S Е A│1 з Е K$│"" Бе 70 :Д а 1,1:Бе 4(╟ T(H,Aм1)│C:PS│ Ям200:Е  Я┤90мD ░ SP│1 з Бж 55 :Д Е S▓0 з S│Sм1:Е S┤7 з SP│1:АX│1088е1472й128:ТX,253:ТXл28,255:Л(цАX│1е3:C(X)│ Ж(1023лGлX):Л)HАY│1еAн4м7:АX│1 е 3:Т1023лGлXл32н(Yм1),BF(X):BF(X)│ Ж(1023лGлXл32нY):Т1023лGлXл32нY,C(X):ЛX,Y)^CALCULATE BALANCE)ПA│Aм1:H│Hм5:L(A)│L(A)лHнC:Е  В(L(A))▓6 Бе 70)─Е PS┤0 з SC│SCлSPн Б( В(PS)о25):Бж 30:а 200лPS,1*?Е L(A)▓4 з E│188 :Д Е L(A)▓2 з E│156 :Д Е L(A)▓0 з E│140 :Д Е L(A)┤м4 з E│190 :Д Е L(A)┤м2 з E│158 :Д Е L(A)┤0 з E│142*^Е L(A)┤│0 з Т943л128нA,252*}Е L(A)▓│0 з Т941л128нA,254*┤Е L(A)▓0 з Т943л128нA,E :Д Е L(A)┤0 з Т941л128нA,E*╙D(A)│D(A)л1:Е D(A)│8 Бж 35*їC│ Д(4):G│ Д(7)н3л1: Я│0:Бе 2+З@28, Р( И(SC),2);:Р+"MOVE SHIPS+Ъ#BM$(1)│"":АX│0е31:BM$(1)│BM$(1)л Л( Ж(1440лX)):Л:BM$(2)│B$(2):BM$(3)│B$(3)л Л(175):ЕD┤60зD│Dл20 :Д ЕD┤75з D│Dл5 :Д D│Dл2+╞$З@8,"DIFFICULTY:"; Б(Dо2);:ЕL(A)│0Бж 49+ц%АL│1е4:ЕT(L,4)┤▓L з 40 :Д Л, &АL│6е9:ЕT(L,4)┤▓10мL з 40 :Д Л,'Бж 60,6(ЕC$│"C"зу2,13 :Д ЕC$│"R"зу2,11,Е)АX│31е1йм1:АY│1е3:З@384лYн32, П(BM$(Y),Xм Б(Yо2.5)); б(32мX, Л(175));:ЛY,X,┘*АL│3е0йм1:З@384лLн32,B$(L);:АX│1е9:T(X,Lл1)│T(X,L):ЛX:L(Lл1)│L(L):D(Lл1)│D(L):Л-#+АL│1313е 1055 й м128:L$│"":АX│0е29:L$│L$л Л( Ж(LлX)):ЛX:З@Lм896,L$;:Л-I,З@8, б(16, Л(175));:З@32,B$(1);:Р-]1PERFECT BALANCE-~2Е C$│"C" з Ў :Д Е C$│"R" з ў-ы3ТHSм1,0:╚1,1:АA│1е10:┐1,0:а100лAн10,2:┐1,1:а50лAн8,1:Л:SC│SCл25:╔"P8":Бж 30:BB│BBл1:ТHS,0:Е C$┤▓"" Бж 88-ё4Р-·6FAST.g7╔"O4L64":ТHSм1,0:╚ 0,7:АX│1е12й2:┐1,1:╔ И(X):┐1,0:╔ И(Xл1):ЛX:┐0,0:BF│BFл1:S│Sл3:Е S┤10 ▒ SP│2 з ТHS,0:Р.├8╚0,8:АX│1е140:┐1,0:┐1,1:Л:SP│2:┐0,0:ТHS,0:АX│1088е1472й128:ТX,141:ТXл28,131:Л:BS│BSл1:Р.╘;PERFECT SORT.ё<Е C$│"C"з Ў :ДЕC$│"R"з ў/O=ТHSм1,0:╚1,5:АX│1е4:┐1,0:а 200мXн20,2:╔"P24":┐1,1:а 50лXн20,1:Л:SC│SCл30:┐1,0:╔"P8":Бж 30/a>Е C$┤▓""Бж 88/u?BO│BOл1:ТHS,0:Р/~@INIT/ьA╙M"FASTER.SCR":╟1е8:╙M"FAST.SCR":╟1е7:╙M"SORT.SCR":╟1е5:╟2е6:╙M"SUNK.SCR":╟1е3:╟2е4:╙M"BALANCE.SCR":ТHS,00ЩBSC│0:S│0:SP│1:R│ Д( Я):LV│1:BR$│ Л(254):L$│ Л(250):BL$│ Л(253):TR$│ Л(251):F$│ Л(255):TL$│ Л(247):A$│ Л(175):BC$│A$лA$лA$:АX│1е4:АY│1е9:T(Y,X)│0:ЛY:L(X)│0:D(X)│0:ЛX:D│01dCB$(1)│ б(13,A$)лBR$лBR$л Л(252)л б(13, Л(175))лBR$лBR$лL$:B$(2)│BL$л б(12, Л(243))лTR$лTR$л б(13, Л(243))лF$лTR$лTR$лL$:B$(3)│A$лBL$лF$лF$лTL$лTL$л б(6,F$)лTL$лF$лF$лTL$л б(6,F$)лTL$лF$лTL$л б(6,F$)1рDC$(1)│ Л(143)л Л(143)л Л(138):C$(2)│ Л(159)л Л(159)л Л(154):C$(3)│ Л(191)л Л(191)л Л(186):C$(4)│ Л(207)л Л(207)л Л(202)2#EG│4:B$│ Л(255)л Л(255):S$│ Л(207)л Л(207):G$│ Л(159)л Л(159):Р2}FТHSм1,0:╚1,3:┐1,1:╔"O1L2G":┐0,0:╔"L8EBL4F":┐1,1:╔"DL2F":┐0,0:╔"L8DA":┐1,1:╔"L4EL2CDC"2ОGТHS,0:в445393bHЮ6:З@10,"FAST BADGES";:X│34:NB│BF:Бж 80:З@263,"SUPER FAST BADGES";:X│290:NB│BS:Бж 80:Ю6:З@5,"PERFECT BALANCE BADGES";:X│34:NB│BB:Бж 80:З@261,"PERFECT SORTING BADGES";:X│290:NB│BO:Бж 80:З@490,"SCORE:";SC;:в443ДIЮ:АA│1е5:Е SC▓HS(A) з 74 :Д Л3│JАL│4еA йм1:HS$(Lл1)│HS$(L):HS(Lл1)│HS(L):Л4KЕ A┤6 з Зд4)"YOU HAVE A HIGH SCORE!":Й"WHAT IS YOUR NAME";HS$(A):HS(A)│SC4ZLТHSм1,0:Щ"O",#1,"SCORES.DAT":АA│1е5:З#1,HS$(A):З#1,HS(A):Л:З#1,BF,BS,BB,BO:Ъ#1:ТHS,05MЮ:З@42,"HIGH SCORES":АA│1е5:Зд5м З( И(HS(A))));HS(A);" - ";HS$(A):Л:З:Зд7);"PLAY AGAIN? (y/n)":З"PRESS s TO CLEAR THE HIGH SCORES";:З"PRESS b TO CLEAR THE BADGE COUNT";5{NA$│ Т:Е A$│"N" з Бе 95 :Д Е A$│"S" з АA│1е5:HS$(A)│".":HS(A)│6мA:Л:Бе 76 :Д Е A$│"B"з BF│0:BS│0:BB│0:BO│0:Бе 765лOЕ A$│"Y" з SP│1:SC│0:Ю3:Бж 66:Бе 1 :Д Бе 785╨PЕNB│0 з З@Xл43,"NONE!";:в44539:Р6,QB1$│ Л(216)л Л(212):ЕNB▓99 зАA│1еNBо100:З@X,B1$;:З@Xл32,G$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л36ШRЕ Б(NBо100)┤▓NBо100 ░ NB▓9 зАA│1е(NBм Б(NBо100)н100)о10:З@X,B1$;:З@Xл32,S$;:X│Xл3:Л:X│( Б(Xо32)л2)н32л26 SЕ Б(NBо10)┤▓NBо10 ░ NB▓0 з B1$│ Л(214)л Л(217): АA│1е(NBм Б(NBо10)н10):З@X,B1$;:З@Xл32,B$;:X│Xл3:Л7TX│( Б(Xо32)л3)н32:в 44539:Р7AUЕ  Ж(&H8C1B)┤▓26 з HS│65495:Р7ЕVт32:Ю:HS│65497:З@7,"PRESS FOR RGB":З@39," FOR COMPOSITE"7ЬWC$│ Т:Е C$│"" з 877┼XЕ C$│"C" з у 2,45:у5,29:у7,21:у 4,597ЁYЕ C$│"R" з ў:у 2,24:у5,25:у 7,52:у6,147ЎZР8╚_Ю:З"THANKS FOR PLAYING!":З"'DOCK MASTER' IS FREE SOFTWARE":З"BY DIEGO BARIZO, 2019-2020 AND":З "CAN BE FREELY DISTRIBUTED":З"WITHOUT RESTRICTIONS.":З"VISIT WWW.YACCS.INFO":З"FOR MORE INFORMATION AND OTHER"8э`З"COCO RELATED GOODIES!":ТHSм1,07ЎZР8╚_Ю:З" SCORES";:PRINT"PRESS b TO CLEAR THE BADGE COUNT"; 79 A$=INKEY$:IF A$="N" THEN GOTO 92 ELSE IF A$="S" THEN FORA=1TO5:HS$(A)=".":HS(A)=6-A:NEXT:GOTO 77 ELSE IF A$="B"THEN BF=0:BS=0:BB=0:BO=0:GOTO 77 80 IF A$="Y" THEN SP=1:SC=0:CLS3:GOSUB 63:GOTO 1 ELSE GOTO 79 81 IFNB=0 THEN PRINT@X+43,"NONE!";:EXEC44539:RETURN 82 B1$=CHR$(216)+CHR$(212):IFNB>99 THENFORA=1TONB/100:PRINT@X,B1$;:PRINT@X+32,G$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+3 83 IFINT(NB/100)<>NB/100 AND NB>9 THENFORA=1TO(NB-INT(NB/100)*100)/10:PRINT@X,B1$;:PRINT@X+32,S$;:X=X+3:NEXT:X=(INT(X/32)+2)*32+2 84 IFINT(NB/10)<>NB/10 AND NB>0 THEN B1$=CHR$(214)+CHR$(217): FORA=1TO(NB-INT(NB/10)*10):PRINT@X,B1$;:PRINT@X+32,B$;:X=X+3:NEXT 85 X=(INT(X/32)+3)*32:EXEC 44539:RETURN 86 IF PEEK(&H8C1B)<>26 THEN HS=65495:RETURN 87 WIDTH32:CLS:HS=65497:PRINT@7,"PRESS FOR RGB":PRINT@39," FOR COMPOSITE" 88 C$=INKEY$:IF C$="" THEN 88 89 IF C$="C" THEN PALETTE 2,45:PALETTE5,29:PALETTE7,21:PALETTE 4,59 90 IF C$="R" THEN RGB:PALETTE 2,24:PALETTE5,25:PALETTE 7,52:PALETTE6,14 91 RETURN 92 CLS:PRINT"THANKS FOR PLAYING!":PRINT"'DOCK MASTER' IS FREE SOFTWARE":PRINT"BY DIEGO BARIZO, 2019-2020 AND":PRINT "CAN BE FREELY DISTRIBUTED":PRINT"WITHOUT RESTRICTIONS.":PRINT"VISIT WWW.YACCS.INFO":PRINT"FOR MORE INFORMATION AND OTHER" 93 PRINT"COCO RELATED GOODIES!":POKEHS-1,0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  10260 DATA "BR1BD2D2F1R2E1D3U5BU2","BR1BD2R4G4R4BR1BU6" 10270 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,