10 'OOOOOOOOOOOOOOOOOOOOOO
20 'OOOOO PROGRAMA OOOOO
30 'OOO MINAS OOO
40 'OOOOOOOOOOOOOOOOOOOOOO
50 '
60 'OOOOO OPCIONES OOOOO
70 '
80 SCREEN 1:COLOR 1,10,6:KEY OFF
90 LOCATE 3,10:PRINT"MANDO O TECLADO [M/T]"
100 X$=INKEY$
110 IF X$="M" OR X$="m" THEN CT=1:GOTO 160
120 IF X$="T" OR X$="t" THEN CT=0:GOTO 180
130 GOTO 100
140 '
150 'OOOOO DIBUJOS DE OOOOO
160 'OOOOO FONDO OOOOO
170 '
180 OPEN"GRP:"AS#1
190 COLOR 15,4,1:SCREEN 2,2
200 LINE(0,0)-(256,40),7,BF
210 CIRCLE (60,25),12,11
220 PAINT (60,30),11
230 CIRCLE (20,20),5,15
240 CIRCLE (16,15),3,15
250 CIRCLE(10,20),4,15
260 PAINT (10,20),15
270 PAINT (20,20),15
280 PAINT (16,15),15
290 PSET(65,23),15
300 DRAW"E2R2E1R2E1R2E1R6F2R2E2R1F2R3F2D1G1L3H2L4G2D1L2H2U3G1H1D1L4D2L5G1H2"
310 PAINT(73,22),15
320 '
330 'OOOOO CREACION OOOOO
340 'OOOOO DE SPRITES OOOOO
350 '
360 FOR I=0 TO 17:S$=STRING$(32," ")
370 FOR J=1 TO 16:READ A$,B$
380 MID$(S$,J)=CHR$(VAL("&H"+A$))
390 MID$(S$,J+16)=CHR$(VAL("&H"+B$))
400 NEXT:SPRITE$(I)=S$
410 NEXT
420 '
430 'OOOOO DATOS OOOOO
440 'OOOOO INICIALES OOOOO
450 '
460 DEFSNGT,V:DEFINT A,B,I,J,P,M,W,S,T,N,F
470 M=5:T=120:A=RND(TIME)
480 DIM R(3),M(10),S(3)
490 S(0)=1000:S(1)=300:S(2)=100:S(3)=50
500 FOR R=0 TO 3:R(R)=RND(1)*256:NEXT
510 FOR M=0 TO 10:M(M)=RND(1)*256:NEXT
520 INTERVAL ON:ONINTERVAL=20 GOSUB 880
530 SPRITE ON:ONSPRITEGOSUB 990
540 SOUND 6,40:SOUND 7,55:SOUND 3,7:SOUND 12,45:W=9:TIME=0
550 LINE (252,18)-(202,10),4,BF
560 LINE (200,20)-(250,12),6,BF
570 PSET (200,14),6:PRINT#1,SC
580 '
590 'OOOOO BUCLE DE OOOOO
600 'OOOOO JUEGO OOOOO
610 '
620 IF TIME>7000 THEN 1190
630 GOSUB 770
640 P=(B(0)+1)MOD256:B(0)=P
650 PUT SPRITE0,(P,33),1,0
660 P=(B(1)+253)MOD256:B(1)=P
670 PUT SPRITE1,(P,41),3,1
680 GOSUB 770
690 P=(B(2)+2)MOD256:B(2)=P
700 PUT SPRITE2,(P,49),9,2
710 P=(B(3)+255)MOD256:B(3)=P
720 PUT SPRITE3,(P,57),11,3
730 GOTO 620
740 '
750 'OOOO SUBRUTINA DE OOOO
760 'OOOO MOVIMIENTO DEL TORPEDO OOOO
770 '
780 IF K<33 THEN K=180:V=6:U=11.9:F=0
790 IF F=0 THEN F=STRIG(CT)
800 IF F THEN K=K-V:V=V*.9609:U=U-.05:SOUND 8,U:SOUND6,30-5*V:GOTO 830
810 IF STICK(CT)=3 THEN IF T<252 THEN T=T+4
820 IF STICK(CT)=7 THEN IF T>4 THEN T=T-4
830 PUT SPRITE30,(T,K),15,U
840 RETURN
850 '
860 'OOOO SUBRUTINA DE OOOO
870 'OOOO MOVIMIENTO DE MINAS OOOO
880 '
890 PUT SPRITE 17,(TIME\2,2)
900 M=(M+1)MOD11:N=9-N
910 Q=(M(M)+M+1)MOD 256:M(M)=Q
920 PUT SPRITE M+6,(Q,81+M*8),14,N
930 W=W+1:IF W=2 THEN SOUND 8,7
940 RETURN
950 '
960 'OOOO SUBRUTINA OOOO
970 'OOOO DE IMPACTOS OOOO
980 '
990 IF K<33 OR K>169 THEN RETURN
1000 SOUND 6,30:SOUND 8,16:SOUND 13,9
1010 PUT SPRITE 30,(0,209)
1020 S=(K-30)\8
1030 FOR C=0 TO 15
1040 PUT SPRITES,(T,K),C,7
1050 FOR BI=1 TO3:NEXT
1060 PUT SPRITES,(T-4,K),C,6
1070 FOR BI=1 TO3:NEXT
1080 NEXT
1090 IF S<4 THEN B(S)=0:PUT SPRITES,(T,K),15,12+S:SC=SC+S(S) ELSE PUT SPRITES,(T,K),15,16:SC=SC+10
1100 INTERVAL OFF
1110 LINE(200,20)-(250,12),6,BF
1120 PSET(200,13),6:PRINT#1,SC
1130 INTERVAL ON
1140 PUT SPRITES,(T,K),,31
1150 W=0:K=0:RETURN
1160 '
1170 'OOOO FIN DE LA PARTIDA OOOO
1180 '
1190 INTERVAL OFF :SPRITE OFF
1200 SOUND 6,16:SOUND 8,16:SOUND 13,15
1210 FOR I=0 TO 369
1220 NEXT
1230 LINE(224,80)-(32,70),1,BF
1240 PSET(32,72),1
1250 PRINT#1," OTRA PARTIDA [S/N] "
1260 A$=INPUT$(1)
1270 IF A$="S" OR A$="s"THEN CLEAR:GOTO 60
1280 IF A$="N" OR A$="n"THEN END ELSE GOTO 1260
1290 '
1300 'OOOOOO DATOS DE LOS OOOOOO
1310 'OOOOOO SPRITES OOOOOO
1320 '
1330 DATA 4,40,4,40,1F,F0,3F,FC,ED,B3,FF,F2,7F,FC,3F,F8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,20,4,20,4,F8,E4,FD,DF,B7,6F,FE,3F,FC,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,4,0,E,2,3F,98,ED,FE,7F,FC,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,7,0
1340 DATAF,40,F,E0,F,60,7,C0,1,40,1F,F0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80,8,88,5,D0,3,60,2,E0,66,F0,87,F1,33,EE,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80,0,80,8,88,5,D0,33,60,46,F3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,B0,18,4,62,2,4C,6A,A8
1350 DATA9,E2,77,9E,87,F3,1,CC,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1360 DATA10,0,10,0,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,10,0,10,0,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,0,18,0,18,0,18,0,3C,0,24,0,0,0,0,0,0,0,0,0,0,0,DD,DC,55,54,55,54,55,54,55,54,55,54,5D,DC,0,0
1370 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3B,B8,A,A8,A,A8,3A,A8,A,A8,A,A8,3B,B8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1B,B8,A,A8,A,A8,A,A8,A,A8,A,A8,B,B8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,70,4,50,4,50,7,50,1,50,1,50,7,70,0,0,0,0,0,0
1380 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,37,0,15,0,15,0,15,0,15,0,15,0,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
