10 REM EDITORA ALEPH
20 REM TEL: (011) 813-4555
30 REM NAUTILUS III ... A MISSAO ...
40 IF PEEK(10)=38 THEN GOSUB 480
50 SCREEN0:CLS
60 PRINT"NAUTILUS III ... A MISSAO ..."
70 PRINT:PRINT"DIGITE SEU NOME ALMIRANTE:"
80 INPUT N$
90 CLS
100 LET X0=INT(RND(-TIME)*10+.5)
110 LET Y0=INT(RND(-TIME)*10+.5)
120 LET Z0=INT(RND(-TIME)*10+.5)
130 FOR T=9 TO 0 STEP -1
140 CLS
150 PRINT"CHANCES:";T
160 PRINT"ALMIRANTE:";N$
170 PRINT
180 PRINT"SEU TIRO="
190 PRINT"X="
200 INPUT X1
210 PRINT"Y="
220 INPUT Y1
230 PRINT"Z="
240 INPUT Z1
250 LET DX=X1-X0
260 LET DY=Y1-Y0
270 LET DZ=Z1-Z0
280 RESTORE 2010:FOR F=0 TO 13:READ X:SOUND F,X:NEXT
290 LET D=INT(.5+1000*SQR(DX*DX+DY*DY+DZ*DZ))/1000
300 IF D=0 THEN GOTO 410
310 PRINT"DISTANCIA=";D
320 IF INKEY$<>"" THEN GOTO 320
330 IF INKEY$="" THEN GOTO 330
340 NEXT T
350 PRINT:PRINT"...0 SUBMARINO ESTA SE APROXIMANDO..."
360 PRINT:PRINT"SEU NAVIO ACABA DE SER ATINGIDO POR UM TORPEDO."
370 FOR F=1 TO 14:FOR G=0 TO 45:NEXT:COLOR F-1,F,F+1:NEXT:PLAY"CDEFG":COLOR 15
380 IF INKEYS<>"" THEN GOTO 380
390 IF INKEYS="" THEN GOTO 390
400 GOTO 50
410 CLS
420 PRINT"       MISSAO CUMPRIDA":PRINT
430 PRINT"  PARABENS VOCE FOI PROMOVIDO A"
440 PRINT"  ... ALMIRANTE DE ESQUADRA.":PRINT
450 PRINT"   VOCE FEZ ";T;" PONTOS"
460 PLAY"CDEDCDEDCDEFEDC":GOTO 380
470 '''''''''''''''''''''''''''''''
480 SCREEN 2
490 LINE(0,0)-(255,70),4,BF
500 LINE(0,70)-(255,191),7,BF
510 FOR F=0 TO 15
520 C1=256*RND(1)
530 C2=256*RND(1)
540 L=121*RND(-TIME)+70
550 LINE(C1,L)-(C2,L),3
560 NEXT F
570 FOR G=1 TO 9
580 S$=""
590 FOR F=1 TO 8
600 READ A$
610 S$=S$+CHR$(VAL("&B"+A$))
620 NEXT F
630 SPRITE$(G)=S$
640 NEXT G
650 PUT SPRITE 0,(40,63),14,1
660 PUT SPRITE 1,(48,63),14,2
670 PUT SPRITE 2,(48,170),12,3
680 PUT SPRITE 3,(56,170),12,4
690 PUT SPRITE 20,(210,25),10,5
700 PUT SPRITE 5,(190,120),2,6
710 PUT SPRITE 6,(190,128),13,7
720 PUT SPRITE 7,(150,10),15,8
730 PUT SPRITE 8,(158,10),15,9
740 PUT SPRITE 9,(110,12),15,8
750 PUT SPRITE 10,(118,12),15,9
760 PUT SPRITE 11,(180,20),15,8
770 PUT SPRITE 12,(188,20),15,9
780 PUT SPRITE 13,(200,5),15,8
790 PUT SPRITE i4,(208,5),15,9
800 PLAY"O3L16EBBBO4CO3BABBBGB","O3L8EBO4CO3ABG"
810 PLAY"O3L16EBBBO4CO3BABBBGB","O3L8EBO4CO3ABG"
820 PLAY"O3L16EBBBO4CO3BABBBGB","O3L8EBO4CO3ABG"
830 PLAY"O3L16ABF#BGBABF#BGB","O3L8AF#GAF#G"
840 PLAY"O3L16EBBBO4CO3BABBBGB","O3L8EBO4CO3ABG"
850 PLAY"O3L16EBBBO4CO3BABBBGB","O3L8EBO4CO3ABG"
860 PLAY"O3L16EBBBO4CO3BABBBGB","O3L8EBO4CO3ABG"
870 PLAY"O3L16ABF#BGBEBDBCB","O3L8AF#GEDC"
880 G=48
890 FOR F=40 TO 125
900 PUT SPRITE 0,(F,63),14,1
910 PUT SPRITE 1,(F+8,63),14,2
920 IF F/3=INT(F/3) THEN G=G+1:PUT SPRITE 2,(G,170),12,3:PUT SPRITE 3,(G+8,170),12,4
930 NEXT
940 PLAY"O2L16BO3BBBO4CO3BABBF#B","O3LBO2BO3BO4CO3ABF#"
950 PLAY"O2L16BO3BBBO4CO3BABBF#B","O3LBO2BO3BO4CO3ABF#"
960 PLAY"O2L16BO3BF#BABBBO4CO3BO4DO3B","O2L8BO3F#ABO4CD"
970 PLAY"O3L16BBO4CO3BABBBGBF#B","O3L8BO4CO3ABGF#","O2L2B."
980 PLAY"O2L16BO3BBBO4CO3BABBBF#B","02L8BO3O4CO3ABF#","O2L2B."
990 PLAY"O2L16BO3BBBO4CO3BABBBF#B","O2L8BO3O4CO3ABF#","O2L2B."
1000 G1=150:G2=110:G3=180:G4=200
1010 FOR F=100 TO 0 STEP -1
1020 G1=G1-1:PUT SPRITE 7,(G1,10),15,B:PUT SPRITE 8,(G1+7,10),15,9
1030 G2=G2-1:PUT SPRITE 9,(G2,12),15,B:PUT SPRITE 10,(G2+7,12),15,9
1040 G3=G3-1:PUT SPRITE 11,(G3,20),15,B:PUT SPRITE 12,(G3+7,20),15,9
1050 G4=G4-1:PUT SPRITE 13,(G4,5),15,B:PUT SPRITE 14,(G4+7,5),15,9
1060 NEXT
1070 FOR F=25 TO 87
1080 FOR G=0 TO 10
1090 IF F<62 THEN PUT SPRITE 20,(210,F),10,5
1100 A=RND(-TIME)*17
1110 IF G/2=INT(G/2) THEN LINE(210-(F-27)-A,20+F*2)-(210+(F-27)+A,20+F*2),9
1120  NEXT:NEXT
1130 FOR F=1 TO 5:FOR G=0 TO 15
1140 DRAW"C"+STR$(G)+"S6BM147,30E7D7UH3GFBUBR6EU3HGD6FRNE3R4NU6R2U3R3D3NL3BU2R"
1150 DRAW"BR8BU3R4D8L4U4NR4U4BR7NR4D4R3FD3GL3S4"
1160 NEXT:NEXT
1170 PLAY"CDEFG"
1180 FOR F=1 TO 5:NEXT:RETURN
1190 GOTO 1190
1200 '
1210 DATA 00000000
1220 DATA 00000000
1230 DATA 00000000
1240 DATA 00000011
1250 DATA 00001111
1260 DATA 10000011
1270 DATA 11111111
1280 DATA 00111111
1290
1300 DATA 00000000
1310 DATA 00000000
1320 DATA 00000000
1330 DATA 00000000
1340 DATA 11110000
1350 DATA 11111111
1360 DATA 11111110
1370 DATA 11111100
1380 '
1390 DATA 00000000
1400 DATA 00000000
1410 DATA 00000001
1420 DATA 10111111
1430 DATA 01111111
1440 DATA 10111111
1450 DATA 00000000
1460 DATA 00000000
1470 '
1480 DATA 11000000
1490 DATA 10000000
1500 DATA 11100000
1510 DATA 11111110
1520 DATA 11111111
1530 DATA 11111100
1540 DATA 00000000
1550 DATA 00000000
1560 '
1570 DATA 00111100
1580 DATA 01111110
1590 DATA 11111111
1600 DATA 11111111
1610 DATA 11111111
1620 DATA 11111111
1630 DATA 01111110
1640 DATA 00111100
1650 '
1660 DATA 00011000
1670 DATA 00111100
1680 DATA 00111100
1690 DATA 00011000
1700 DATA 00110110
1710 DATA 01011001
1720 DATA 10101001
1730 DATA 10100101
1740 '
1750 DATA 00000000
1760 DATA 00000000
1770 DATA 00000000
1780 DATA 00000000
1790 DATA 00000000
1800 DATA 00000000
1810 DATA 00000000
1820 DATA 00000000
1830 '
1840 DATA 00011100
1850 DATA 00101011
1860 DATA 11011111
1870 DATA 11101111
1880 DATA 11111111
1890 DATA 01111101
1900 DATA 00011010
1910 DATA 00000110
1920 '
1930 DATA 01000000
1940 DATA 11111000
1950 DATA 00110100
1960 DATA 11111110
1970 DATA 01101111
1980 DATA 11111011
1990 DATA 10111100
2000 DATA 01111000
2010 DATA 0,0,0,0,0,0,20,247,16,0,0,100,60,0

