5   PRINT"THIS IS THE GAME OF WAR BETWEEN A SUBMARINE AND A"
10  PRINT"NAVAL GUN BOAT. WOULD YOU LIKE INSTRUCTIONS?(YES=1,NO=0)";
11  INPUT X
12  IF X=0 THEN 100
13  PRINT:PRINT"YOU ARE THE CAPTAIN OF THE SUBMARINE AND I"
14  PRINT"AM THE CAPTAIN OF THE GUN BOAT."
20  PRINT"THE SPEED OF THE GUN BOAT WILL BE GIVEN AT THE BEGINNING OF"
25  PRINT"THE GAME AND YOU WILL  HAVE TO HIT THE GUN BOAT TWICE"
30  PRINT"IN AT LEAST TWO VULNERABLE PLACES, OR ONCE IN A"
35  PRINT"VULNERABLE PLACE AND TWICE IN ANY OTHER PART OF THE"
40  PRINT"HULL OF THE GUN BOAT.BUT IF YOU MISS ANY ONE TIME, THE"
45  PRINT"GUN BOAT WILL OPEN FIRE ON YOU UNTIL IT SINKS YOU OR YOU"
50  PRINT"SINK THE GUN BOAT ! YOU WILL BE ALLOWED TO TAKE TURNS FIRE-"
55  PRINT"ING AT THE GUN BOAT....GOOD LUCK, MEIN FURHER!!!!"
60  PRINT:PRINT:PRINT
100 LET A=0
110 LET B=0
120 RANDOMIZE
130 FOR I=1 TO 5
140 LET R=100*RND(0)
170 IF R>=10 THEN 190
180 NEXT I
190 IF R<=40 THEN 210
200 GOTO 130
210 PRINT"THE SPEED OF THE GUN BOAT IS NOW"R;"KNOTS."
220 RANDOMIZE
230 FOR F=1 TO 5
240 LET S=10000*RND(0)
270 IF S>=1000 THEN 290
280 NEXT F
290 IF S<=10000 THEN 310
300 GOTO 230
310 PRINT"THE RANGE FROM THE GUN BOAT TO THE SUBMARINE IS"
320 PRINT"NOW"S;"YARDS."
330 LET Z=ATN(50/R)
340 LET D3=Z*(180/3.14159)
345 PRINT"THE APPROXIMATE ANGLE YOU SHOULD FIRE YOUR TORPEDO IS"
346 PRINT"BETWEEN" INT(D3-2); "AND"; INT(D3+2); "DEGREES.";
350 INPUT D
351 LET T=D*3.14159/180
360 LET R8=S/COS(Z)
370 LET Y3=R8*SIN(Z)
380 LET Y9=R8*SIN(T)
390 LET Y2=Y3-20
400 LET Y0=Y3-40
410 LET Y4=Y3+20
420 LET Y5=Y3+40
430 IF Y9>=Y0 THEN 710
432 GOTO 520
435 IF Y9<Y2 THEN 810
450 GOTO 470
453 IF Y9<Y2 THEN 810
460 GOTO 850
470 IF Y9>=Y3 THEN 490
480 GOTO 890
490 IF Y9<Y4 THEN 930
520 PRINT"  ****YOU MISSED!! ****"
530 RANDOMIZE
540 LET Y9=RND(0)
550 LET W=10000*Y9
560 PRINT"THE SHOT FIRED FROM THE GUN BOAT TO THE SUBMARINE"
570 PRINT"WAS WITHIN" ABS(W-S)*2/1000; "YARDS....."
580 IF ABS(W-S)>=2000 THEN 120
590 PRINT"YOU ARE SUNK MEIN FREIND!!! ACHTUNG!!"
595 GOTO 1900
610 PRINT
612 PRINT
613 PRINT"********* YOU MADE A VULNERABLE STRIKE !*********"
620 LET A=A+1
630 IF A>=2 THEN 700
640 GOTO 120
650 PRINT
651 PRINT
652 PRINT"YOU DAMAGED THE GUN BOAT ! ******"
660 LET B=B+1
670 IF B>=3 THEN 700
680 IF A+B>=3 THEN 700
690 GOTO 120
700 PRINT"* * * * I AM SUNK....GOOD BYE DRUEL WORLD...(GLUB..GLUB>>)"
705 GOTO 1800
710 PRINT"        *********     **+     !"
720 PRINT"          *********  ***+*+*  !"
730 PRINT"                         HHH  !"
740 PRINT"                         UUU  ! +++++]"
750 PRINT"                         @@@===0=0=0"
760 PRINT"                          L---------I"
770 PRINT"                    --/DR IIIIIIIIII   /DD@--"
780 PRINT"                     [=======================]"
790 PRINT"       ----/DDDR    /HHHHH  O  O  O   O  O  HHHH@   /PDDD@--"
800 GOTO 435
810 PRINT"             EEEEEEEEEEE@.................../EEEEEEEEEEEEEEE"
820 PRINT"           EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE  O  EEEEEEEE"
830 PRINT"      *       EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
840 GOTO 640
850 PRINT"@EEEEEEEEEEEEEEEEEEEEEEE@.................../EEEEEEEEEEEEEEEEE"
860 PRINT" @EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE"
870 PRINT"  @EEEEEE        *      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
880 GOTO 650
890 PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE"
900 PRINT" \EEEEEEEEEEEEEEEEEE                      EEEEE    O   EEEEE"
910 PRINT"  EEEEEEEEEEEEEEE                         EEEEEEEEEEEEEEEE/"
920 GOTO 610
930 PRINT"\EEEEEEEEEEEEEEEEEEE\....................../EEEEEEEEEEEEEEEEEE"
950 PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
960 PRINT"  \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE       *"
970 GOTO 650
1800 PRINT"                                  /1"
1801 PRINT"                               //HH1"
1802 PRINT"                       X>    T/HHHH1"
1803 PRINT"                   *******************************"
1804 PRINT
1900 PRINT"WOULD YOU CARE TO PLAY AGAIN?(YES=1,NO=0)";
1901 INPUT Z
1902 IF Z=1 THEN 5
2000 END
