Directory of image this file is from
This file as a plain text file
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