4 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
5  PRINT "THIS IS THE GAME OF WAR BETWEEN A SUBMARINE AND A"
10 PRINT "NAVAL GUN BOAT.  WOULD YOU LIKE INSTRUCTIONS";
11 INPUT X$
12 IF X$="NO" THEN 100
13 PRINT "YOU ARE THE CAPTAIN OF THE SUBMARINE AND THE"
14 PRINT "COMPUTER IS 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 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!!!!!!!!!"
100 A=0
110 B=0
120 RANDOMIZE
140 LET R=100*RND(0)
170 IF R>=10 THEN 190
180 GOTO 140
190 IF R<=40 THEN 210
200 GOTO 140
210 PRINT "THE SPEED OF THE GUN BOAT IS NOW ";R;" KNOTS"
220 RANDOMIZE
240 LET S=10000*RND(0)
270 IF S>=1000 THEN 290
280 GOTO 240
290 IF S<=10000 THEN 310
300 GOTO 240
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 GOTO 120
590 PRINT "YOU ARE SUNK MEIN FRIEND!"
595 GOTO 1900
610 PRINT
612 PRINT
613 PRINT "********* YOU MADE A VUL?N?FRABLE STRIKE! *************"
620 A=A+1
630 IF A>=2 GOTO 700
640 GOTO 120
650 PRINT
651 PRINT
652 PRINT "********* YOU DAMAGED THE GUN BOAT! ***************"
660 B=B+1
670 IF B>=3 GOTO 700
680 IF A+B>=3 THEN 700
690 GOTO 120
700 PRINT "I AM SUNK!.......GOOD BYE CRUEL WORLD....(GLUB..GLUB..)"
705 GOTO 1800
710 PRINT "        *********     **+     !"
720 PRINT "          *********  ***+*+*  !"
730 PRINT "                         HHH  !"
740 PRINT "                         UUU  ! +++++)"
750 PRINT "                         VVVV===O=O=O"
760 PRINT "                          L---------I"
770 PRINT "                    --/DR IIIIIIIII   /DDV--"
780 PRINT "                     (=======================)"
790 PRINT "       ----/DDDR    /HHHH  O  O  O   O  O  HHHHV   /PDDDV--"
800 GOTO 435
810PRINT"            EEEEEEEEEEEV.................../EEEEEEEEEEEEEEEE/"
820PRINT"            EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE  O  EEEEEEEE/"
830PRINT"      *      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
840 GOTO 610
850PRINT"VEEEEEEEEEEEEEEEEEEEEEEEV.................../EEEEEEEEEEEEEEEEE/"
860PRINT" VEEEEEEEEEEE          EEEEEEEEEEEEEEEEEEEEEEEEEE  O  EEEEEEE/"
870PRINT"  VEEEEEEE        *      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
880 GOTO 650
890PRINT"VEEEEEEEEEEEEEEEEEEEEEEEV.................../EEEEEEEEEEEEEEEEE/"
900PRINT" VEEEEEEEEEEEEEEEEEE                        EEEEE  O  EEEEEEE/"
910PRINT"  VEEEEEEEEEEEEEEE                          EEEEEEEEEEEEEEEE/"
920 GOTO 610
930PRINT"VEEEEEEEEEEEEEEEEEEEEEEEV.................../EEEEEEEEEEEEEEEEE/"
950PRINT" VEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
960PRINT"  VEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE       *"
970 GOTO 650
1800 PRINT "                                    /1"
1801 PRINT "                                 //HH1"
1802 PRINT "                           X>  T/HHHH1"
1803 PRINT "                        **********************************"
1804 PRINT
1900 PRINT "WOULD YOU LIKE TO TRY AGAIN";
1901 INPUT Z$
1902 IF Z$="YES" THEN 5
2000 END