10 SCREEN2,2:COLOR15,1,1:DEFINTA-Z:DEFUSR1=&H41:DEFUSR2=&H44:DEFUSR3=&H90:RESTORE10020:FORR=0TO703:READI:VPOKE&H3800+R,I:NEXT 'sprites 30 ZZ=USR1(0):GOSUB30020 40 GOSUB9200:GOSUB14000:OPEN"grp:"AS#1:FORR=0TO1:COLOR5:PRESET(0,182+R):PRINT#1,"SPEED":PRESET(0,168+R):PRINT#1,"ROUND":PRESET(165,168+R):PRINT#1,"BOATS":COLOR15:PRESET(165,182+R):PRINT#1,"F1-EXIT":NEXT:CLOSE#1 50 FORR=0TO4:LINE(210+R*8,168)-(216+R*8,175),9,BF:NEXT:ZZ=USR2(0) 70 _TURBOON 80 DIM Z(10):DIMQ(2):DIMSP(2):DIME(3):DS=242:VI=5:ONKEYGOSUB9129:KEY(1)ON 95 GOSUB6010:GOSUB9050:SOUND8,10:SOUND6,SD:SOUND7,&B10110111:SOUND12,5:SOUND13,13 100 S=STICK(0)ORSTICK(1):ONSGOTO120,121,122,123,130,131,132,133:GOTO140 120 Y=Y-1:GOTO135 121 Y=Y-1:X=X+1:GOTO135 122 X=X+1:GOTO135 123 X=X+1:Y=Y+1:GOTO135 130 Y=Y+1:GOTO135 131 X=X-1:Y=Y+1:GOTO135 132 X=X-1:GOTO135 133 X=X-1:Y=Y-1:GOTO135 135 IFX>150THENX=150:GOTO140 136 IFX<30THENX=30:GOTO140 137 IFY<65THENY=65:GOTO140 138 IFY>120THENY=120 140 PUTSPRITE9,(X,Y),&HF,P:PUTSPRITE10,(X,Y),&H9,&H1:W=W+1:IFW>3THENSWAPP,O:W=0 150 Q(0)=Q(0)+1:IFQ(0)>1THENFORR=0TO2:PUTSPRITER,(Z(R),40),&H1,&H10:Z(R)=Z(R)-1:NEXTR:Q(0)=0 'ar sup 155 FORR=3TO5:PUTSPRITER,(Z(R),138),&H1,&H0:Z(R)=Z(R)-1:NEXTR 'arbinf 160 PUTSPRITE12,(Z(7),S1),CL,SP(1):Z(7)=Z(7)-1 's1,1 161 PUTSPRITE13,(Z(8),S1),CL,SP(1):Z(8)=Z(8)-1 's1,2 162 PUTSPRITE7,(Z(9),S2),CL,SP(0):Z(9)=Z(9)-1 's2,1 163 PUTSPRITE8,(Z(10),S2),CL,SP(0):Z(10)=Z(10)-1 's2,2 170 IF(Y+7)>S1AND(Y+7)Z(7)AND(X+10)S1AND(Y+7)Z(8)AND(X+10)S2AND(Y+14)Z(9)AND(X+10)S2AND(Y+14)Z(10)AND(X+10)6THENVPOKEMV+1,1:VPOKEMB+1,1:D=0:CT=0:MV=MV-1:MB=MB-1:IFMV<6495THENVPOKEMV,1:VPOKEMV+1,1:MV=6526 213 IFMB<6593THENVPOKEMB,1:VPOKEMB+1,1:MB=6624 220 IFZ(1)<-15THENZ(1)=255:GOTO100 230 IFZ(2)<-15THENZ(2)=255:GOTO100 240 IFZ(0)<-15THENZ(0)=255:GOTO100 250 IFZ(4)<-15THENZ(4)=255:GOTO100 260 IFZ(5)<-15THENZ(5)=255:GOTO100 270 IFZ(6)<-15THENZ(6)=255:GOTO100 275 IFZ(7)<-15THENZ(7)=255:GOTO100 276 IFZ(8)<-15THENZ(8)=255:GOTO100 277 IFZ(9)<-15THENZ(9)=255:GOTO100 278 IFZ(10)<-15THENZ(10)=255:GOTO100 280 GOTO 100 500 PUTSPRITE20,(E(0),L),14,J:E(0)=E(0)-1:IFE(0)<-15THENE(0)=255:L=INT(RND(1)*5)+75 505 PUTSPRITE21,(E(1),M),14,K:E(1)=E(1)-1:IFE(1)<-15THENE(1)=255:M=INT(RND(1)*5)+90 507 PUTSPRITE22,(E(2),N),14,K:E(2)=E(2)-1:IFE(2)<-15THENE(2)=255:N=INT(RND(1)*10)+105 510 Q(1)=Q(1)+1:IFQ(1)>4THENSWAPK,J:Q(1)=0 520 GOSUB2000:RETURN 'f1 600 PUTSPRITE20,(E(0),L),7,K:E(0)=E(0)-1:IFE(0)<-15THENE(0)=255 601 PUTSPRITE21,(E(1),M),7,J:E(1)=E(1)-1:IFE(1)<-15THENE(1)=255 602 PUTSPRITE22,(E(2),N),7,K:E(2)=E(2)-1:IFE(2)<-15THENE(2)=255 610 Q(1)=Q(1)+1:IFQ(1)>2THENSWAPK,J:Q(1)=0:L=L+V:M=M-V:N=N-V:IFL>110ORL<78THENV=-V 620 GOSUB2000:RETURN 'f2 700 PUTSPRITE20,(E(0),L),6,10:E(0)=E(0)-1:IFE(0)<-15THENE(0)=255:L=INT(RND(1)*5)+75 702 PUTSPRITE21,(E(1),M),6,10:E(1)=E(1)-1:IFE(1)<-15THENE(1)=255 703 PUTSPRITE22,(E(2),N),6,10:E(2)=E(2)-1:IFE(2)<-15THENE(2)=255:N=INT(RND(1)*5)+110 710 Q(1)=Q(1)+1:IFQ(1)>2THENM=M+V:Q(1)=0:IFM>110ORM<80THENV=-V 725 GOSUB2000:RETURN 'f3 800 PUTSPRITE20,(E(0),85),12,9:PUTSPRITE21,(E(1),85),12,9:PUTSPRITE22,(E(2),104),12,9:PUTSPRITE23,(E(3),104),12,9:FORR=0TO3:E(R)=E(R)-1:NEXTR 810 IFE(0)<-15THENE(0)=255:GOTO840 812 IFE(1)<-15THENE(1)=255:GOTO840 814 IFE(2)<-15THENE(2)=255:GOTO840 816 IFE(3)<-15THENE(3)=255 840 IF(X+8)>E(0)AND(X+8)85AND(Y+12)<102THENGOSUB8000 841 IF(X+8)>E(1)AND(X+8)85AND(Y+12)<102THENGOSUB8000 845 IF(X+8)>E(2)AND(X+8)106AND(Y+16)<120THENGOSUB8000 846 IF(X+8)>E(3)AND(X+8)106AND(Y+16)<120THENGOSUB8000 860 RETURN 'f4 2000 IF(X+8)>E(0)AND(X+8)L+6AND(Y+14)E(1)AND(X+8)M+6AND(Y+14)E(2)AND(X+8)N+6AND(Y+14)8THENVPOKE VP+1,1:VPOKEVP+33,1:VPOKEVP+65,1:VPOKEVP+97,1:Q(2)=0:GOTO8960 8952 RETURN210 8960 VPOKE VP,0:VPOKEVP+32,0:VPOKEVP+64,&H0:VPOKEVP+96,0:VP=VP-1:IFVP<6506THEN9110ELSERETURN210 9050 ZZ=USR3(0):SOUND8,16:SOUND9,16:SOUND7,56:FORT=0TO2:SOUND0,150:SOUND1,1:SOUND12,30:SOUND13,1:PUTSPRITE25,(120,95),&HF,18+T:FORR=0TO9900:NEXTR,T 9066 SOUND0,160:SOUND1,0:SOUND2,100:SOUND3,1:SOUND12,80:SOUND13,1:PUTSPRITE25,(120,95),&HF,21:FORR=0TO9900:NEXTR:PUTSPRITE25,(1,209):TIME=0 9070 IFTIME<50THEN9070ELSERETURN 9110 ZZ=USR3(0):SOUND7,&B10110110:SOUND8,16:SOUND0,250:SOUND1,0:SOUND12,50:SOUND13,1:F=F+1:FI=0:TIME=0 9120 IFTIME<100THEN9120 9125 FORR=0TO3:VPOKEVP+(R*32)+1,&H1:NEXTR:FORR=9TO13:PUTSPRITER,(1,209):PUTSPRITER+11,(1,209):PUTSPRITER+17,(1,209):NEXTR:LINE(40,180)-(160,191),1,BF:VPOKEMV,1:VPOKEMV+1,1:VPOKEMB,1:VPOKEMB+1,1 'borra META 9127 IFF>4THENF=1:FORR=0TO31:PUTSPRITER,(1,209):NEXTR:FORR=1TO30:PUTSPRITE20,(INT(RND(1)*80)+90,INT(RND(1)*40)+70),10,11:SOUND8,16:SOUND6,RND(1)*31:SOUND12,8:SOUND13,1:FORT=0TO2000:NEXTT,R:PUTSPRITE20,(1,209):TIME=0 9128 IFTIME<20THEN9128ELSERETURN95 9129 FORR=0TO1:VPOKEMV+R,1:VPOKEMB+R,1:NEXTR 9130 _TURBOOFF 9150 ZZ=USR3(0):FORR=0TO31:PUTSPRITER,(1,209):NEXT:OPEN"grp:"AS#1:COLOR15:PRESET(90,146):PRINT#1,"GAME OVER":PLAY"T120L4V15O2f8g8A2G8F8E8f4o2dV14dV13dV12dV11dV10dV9dV8dV7dv6dv5d":FORR=0TO15000:NEXT:CLS:CLOSE#1:ZZ=USR1(0):GOSUB30020 9200 LINE(0,127)-(255,135),4,BF:LINE(0,136)-(255,136),2:DRAW"bm0,70c7r255" 9210 LINE(0,71)-(255,136),4,BF:LINE(0,137)-(255,142),2,BF:LINE(0,143)-(255,143),12:LINE(0,144)-(255,153),2,BF:LINE(0,154)-(255,154),12:RETURN 10020 DATA 0,144,96,32,16,24,15,3,1,3,1,1,1,2,3,7,65,82,50,98,196,132,152,240,224,160,64,192,128,192,192,224: '0 10030 DATA ,,31,31,15,7,15,31,,,255,,,,,,,,64,224,192,,192,224,,,248,,,,,:'(1) 10040 DATA 7,15,,,,,112,128,255,255,0,255,127,31,,204,128,224,,,,,62,1,255,254,,248,240,192,64,128:'2 10050 DATA 170,85,42,85,42,21,42,85,,,,,,,,,174,86,174,86,174,86,174,86,6,6,6,6,6,6,6,15:'3 10060 DATA ,,,,,1,2,7,7,15,13,26,21,191,16,99,,,,,192,240,88,184,220,238,235,237,247,250,132,24:'4 10070 DATA 148,82,127,95,111,223,239,223,,,,,,,,,137,82,254,246,250,247,251,247,,,,,,,,:'5 10080 DATA0,0,0,0,0,0,0,255,223,239,223,111,95,111,82,138,,,,,,,,255,251,247,251,246,250,214,165,169:'6 10090 DATA 0,0,6,24,37,88,131,36,164,130,88,39,16,7,,,,,192,24,228,26,133,32,37,197,26,228,24,96,,:'7 10100 DATA ,,3,16,3,24,130,36,,35,72,5,16,2,,,,,64,16,64,26,65,4,32,5,10,96,8,128,,:'8 10110 DATA 63,118,124,27,39,121,110,126,54,28,33,62,127,109,63,14,92,248,116,142,254,190,246,254,196,56,236,254,126,182,62,124:'9 10120 DATA ,,,,,63,102,67,103,63,,127,206,135,204,127,,,,,,254,207,255,39,254,,248,124,204,252,248:'10 10130 DATA ,1,10,16,33,42,2,8,48,65,13,32,32,26,1,,,128,88,4,,88,132,,146,34,36,64,4,72,144,:'11 10140 DATA ,8,18,,36,,20,66,8,34,,5,16,5,,,,128,32,4,138,64,20,130,64,20,32,4,,16,64,:'12 10150 DATA ,1,2,13,19,47,90,182,0,0,0,0,0,0,0,0,0,128,96,152,100,122,221,189,0,0,0,0,0,0,0,0:'13 10160 DATA 0,0,0,0,0,0,0,255,173,187,70,93,47,19,12,3,0,0,0,0,0,0,0,255,253,90,186,244,244,136,112,128:'14 10170 DATA 7,15,,,,,112,128,255,255,,255,127,31,65,8,160,192,,,,,62,1,255,254,,248,240,192,,: 'barca2(15) 10180 DATA ,,,,16,24,12,2,2,1,1,1,1,1,3,5,,,,,68,196,152,176,224,128,128,128,128,128,128,192:'16 10190 DATA ,,,,,1,2,7,7,15,13,26,149,63,16,129,,,,,192,240,88,184,220,238,235,237,247,250,,8: ' piedra2(17) 10200 DATA 254,255,255,3,3,255,3,3,255,254,,,,,,,,,,,,,,,,,,,,,,:' n3(18) 10210 DATA 254,255,3,3,127,254,192,192,255,255,,,,,,,,,,,,,,,,,,,,,,:'n2(19) 10220 DATA 16,24,24,24,24,24,24,24,24,24,,,,,,,,,,,,,,,,,,,,,,:'n1(20) 10230 DATA 120,253,193,193,193,217,221,205,253,120,,,,,,,242,251,155,155,155,155,155,152,251,243,,,,,,:' go!(21) 14000 RESTORE14110:FORI=6144TO6399:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=6400TO6431:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=0TO135:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=8192TO8327:READA$:VPOKEI,VAL("&h"+A$):NEXT 14010 FORI=2048TO2079:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=10240TO10271:READA$:VPOKEI,VAL("&H"+A$):NEXT:RETURN 14110 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 14120 DATA 00,01,02,00,00,00,03,00,00,00,00,00,00,00,03,00,00,01,02,00,00,00,00,03,00,00,00,00,00,01,02,00 14130 DATA 00,00,00,00,00,07,08,09,00,00,01,02,00,07,08,09,00,00,00,00,00,00,07,08,09,00,01,02,00,00,00,00 14140 DATA 00,00,00,00,0a,04,05,06,0b,00,00,00,0a,04,05,06,0b,00,01,02,00,0a,04,06,06,0b,00,00,00,00,00,00 14150 DATA 00,00,00,0a,0c,0c,0c,0c,0c,0b,00,0a,0c,0c,0c,0c,0c,0b,00,00,0a,0c,0c,0c,0c,0c,0b,00,00,00,00,00 14160 DATA 00,00,0a,0c,0c,0c,0c,0c,0c,0c,0f,0c,0c,0c,0c,0c,0c,0c,0b,0a,0c,0c,0c,0c,0c,0c,0c,0b,00,00,00,00 14170 DATA 00,0d,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0c,0e,00,00,00 14180 DATA 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 14190 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 14270 'TILESET-1 14280 DATA 00,00,00,00,00,00,00,00 14290 DATA 30,7e,00,00,00,6f,06,00 14300 DATA 00,00,7f,3f,3f,7f,00,00 14310 DATA 00,00,00,00,00,00,78,01 14320 DATA 39,7b,09,7b,00,00,00,00 14330 DATA 4e,68,28,2c,24,00,00,00 14340 DATA 18,4e,6e,67,33,40,00,00 14350 DATA 07,0f,0f,0f,3f,3f,7f,00 14360 DATA 00,40,08,00,00,77,18,58 14370 DATA 00,7f,1f,07,03,03,01,00 14380 DATA 01,07,0f,1f,3f,7f,7f,00 14390 DATA 3f,1f,0f,07,07,03,03,01 14400 DATA 00,00,00,00,00,00,00,00 14410 DATA 01,03,07,0f,1f,3f,7f,00 14420 DATA 7f,3f,1f,0f,07,03,01,00 14430 DATA 3e,3e,1c,1c,08,08,00,00 14440 DATA 0f,00,00,00,00,00,00,00 14450 'c.TILESET-1 14460 DATA 77,77,77,77,77,77,77,77 14470 DATA f7,f7,ff,ff,ff,f7,f7,77 14480 DATA 77,77,7f,7f,7f,7f,77,77 14490 DATA 77,77,77,77,77,77,f7,7f 14500 DATA fe,fe,ef,ef,ee,ee,ee,ee 14510 DATA fe,fe,fe,fe,fe,ee,ee,ee 14520 DATA ef,ef,ef,ef,ef,fe,ee,ee 14530 DATA f7,f7,f7,f7,f7,f7,f7,ff 14540 DATA ff,ef,ef,ff,ff,fe,ef,ef 14550 DATA 77,7f,7f,7f,7f,7f,7f,ff 14560 DATA e7,e7,e7,e7,e7,e7,e7,ee 14570 DATA 7e,7e,7e,7e,7e,7e,7e,7e 14580 DATA ee,ee,ee,ee,ee,ee,ee,ee 14590 DATA e7,e7,e7,e7,e7,e7,e7,ee 14600 DATA 7e,7e,7e,7e,7e,7e,7e,ee 14610 DATA 7e,7e,7e,7e,7e,7e,ee,ee 14620 DATA cc,22,22,cc,22,22,cc,CC 14650 DATA 33,33,33,33,33,33,33,33 ' tileset2 14660 DATA 00,00,00,00,00,00,00,00 14661 DATA 00,00,00,00,00,00,00,00 14662 DATA 00,00,00,20,08,3a,00,00 14700 DATA f1,f1,1f,1f,f1,f1,1f,1f ' c. tileset2 14710 DATA 44,44,44,44,44,44,44,44 14711 DATA 22,cc,cc,cc,cc,cc,cc,77 14712 DATA 44,44,44,54,54,45,44,44 30020 COLOR15,1,1:RESTORE30070:FORI=6144TO6399:READA$:VPOKEI,VAL("&H"+A$):NEXT:'Present. 30030 FORI=0TO151:READA$:VPOKE I,VAL("&h"+A$):NEXT:'T1 30040 FORI=8192TO8343:READA$:VPOKEI,VAL("&h"+A$):NEXT:'COLORT1 30050 OPEN"grp:"AS#1:FORR=65TO66:COLOR2:PRESET(R,160):PRINT#1,"PUSH SPACE KEY":NEXT:COLOR14:PRESET(60,180):PRINT#1,"CURSOR / JOYSTICK":ZZ=USR2(0):CLOSE:ONSTRIGGOSUB30060,30060:STRIG(0)ON:STRIG(1)ON 30055 GOTO30055 30060 ZZ=USR3(0):FORR=15TO0STEP-1:PLAY"T255L64V=R;O3E","T255L64V=R;O4A":NEXT:STRIG(0)OFF:STRIG(1)OFF:CLS:ZZ=USR1(0):RETURN40 30070 DATA 12,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,12 30080 DATA 0d,10,10,0d,10,10,10,0d,10,10,0d,10,10,10,0d,10,10,0d,0d,10,0d,10,0d,10,0d,10,10,0d,10,10,0d,0d 30090 DATA 0d,10,0d,0d,10,0d,10,0d,10,0d,0d,0d,10,0d,0d,10,0d,10,0d,10,0d,10,0d,10,0d,10,0d,0d,10,0d,10,0d 30100 DATA 0d,0f,0f,0d,0f,0f,0f,0d,0f,0f,0d,0d,0f,0d,0d,0f,0f,0d,0d,0f,0d,0f,0d,0f,0d,0f,0f,0d,0f,0f,0d,0d 30110 DATA 0d,0f,0d,0d,0f,0d,0f,0d,0d,0f,0d,0d,0f,0d,0d,0f,0d,0f,0d,0f,0d,0f,0d,0f,0d,0f,0d,0d,0f,0d,0f,0d 30120 DATA 0d,0e,0d,0d,0e,0d,0e,0d,0e,0e,0d,0d,0e,0d,0d,0e,0d,0e,0d,0e,0d,0d,0e,0d,0d,0e,0e,0d,0e,0d,0e,0d 30130 DATA 12,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,12 30140 DATA 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,01,02,03,12,04,05,06,02,07,08,09,12,0a,0b,0c 30150 ' TILESET1 30160 DATA 7c,7e,06,06,66,66,7e,3c 30170 DATA 39,39,39,39,39,39,01,7c 30180 DATA 7c,01,39,39,01,01,39,39 30190 DATA 66,09,09,09,21,31,31,39 30200 DATA 6c,11,01,29,29,39,39,39 30210 DATA 7c,01,39,39,39,39,01,7c 30220 DATA 7c,01,39,39,03,03,31,39 30230 DATA 40,3f,3f,3f,3f,3f,01,01 30240 DATA 7e,01,3f,01,01,3f,01,7e 30250 DATA 7c,01,3f,03,7e,06,01,7c 30260 DATA 1c,14,14,34,64,7b,7b,0c 30270 DATA 39,7a,7a,72,66,5f,5f,3c 30280 DATA 20,20,20,20,1f,20,20,20 30290 DATA 00,00,00,00,22,66,00,00 30300 DATA 00,00,00,00,00,00,00,00 30310 DATA 00,00,00,00,00,00,00,00 30320 DATA 00,00,00,00,00,00,00,00 30330 DATA 00,25,00,6a,00,49,00,00 30340 DATA 00,00,00,00,00,00,00,00 32730 DATA c4,c4,c4,34,34,34,24,24 32740 DATA 4c,4c,4c,43,43,43,42,24 32750 DATA c4,4c,4c,43,43,43,42,42 32760 DATA c4,4c,4c,43,43,43,42,42 32770 DATA c4,4c,4c,43,43,43,42,42 32780 DATA c4,4c,4c,43,43,43,42,24 32790 DATA c4,4c,4c,43,43,43,42,42 32800 DATA c4,4c,4c,43,43,43,42,42 32810 DATA c4,4c,4c,43,43,43,42,24 32820 DATA c4,4c,4c,43,34,34,42,24 32830 DATA 4b,b4,b4,e4,e4,4e,4f,4f 32840 DATA b4,4b,4b,4e,4e,4e,4f,f4 32850 DATA b4,b4,b4,e4,4e,e4,f4,f4 32860 DATA 44,44,44,44,54,45,44,44 32870 DATA cc,cc,cc,cc,cc,cc,cc,cc 32880 DATA 22,22,22,22,22,22,22,22 32890 DATA 33,33,33,33,33,33,33,33 32900 DATA 44,4e,44,e4,44,4e,44,44 32910 DATA 44,44,44,44,44,44,44,44