1 REM WFISH.ECB 2 REM -- PROGRAM DESIGNED BY RANDY WITT, RURAL RT 2, 3 REM -- JANESVILLE, MINNESOTA, 56048. "WARFISH" WAS 4 REM -- COMPLETED ON FEBRUARY 9, 1973. 5 REM -- THE BOOK "WAR FISH" BY GEORGE GRIDER, C/R 1958, 6 REM -- LITTLE, BROWN & CO., BOSTON, PROVIDED THE 7 REM -- INSPIRATION FOR THIS PROGRAM. 8 REM ======= LAST CORRECTED 06/20/77 R.E.H. 10 REM === RANDOMIZE 15 PRINT "&K&J&J": REM ....VAR=ZERO 17 DIM B$(25),R$(30) 18 PRINT TAB(15);"***********************" 19 PRINT TAB(15);"*** ***" 20 PRINT TAB(15);"*** W A R F I S H ***" 21 PRINT TAB(15);"*** ***" 22 PRINT TAB(15);"***********************" 25 PRINT : LET W=INT(RND(0)*50)*250 30 PRINT " DO YOU DESIRE THE RULES OF WARFISH ? "; 35 LET B$="FREIGHTER ": LET R$=B$ 40 INPUT (1,0)X$ 50 IF X$="N" THEN 200 60 PRINT 70 PRINT "YOU COMMAND AN AMERICAN SUB THAT HAS BEEN SENT" 80 PRINT "OUT TO ATTACK JAP SHIPS AT SEA DURING W. WAR 2" 85 PRINT 100 PRINT "THE ORDERS THAT CAN BE GIVEN ARE THE FOLLOWING" 110 PRINT "PERISCOPE - TO SEARCH FOR JAPANESE SHIPS" 120 PRINT "TORPEDO - TO LAUNCH TORPEDOES AT JAPANESE SHIPS" 130 PRINT "DIVE - TO ESCAPE JAP SHIPS THAT ARE ATTACKING" 140 PRINT 141 PRINT " TYPE IN ANY LETTER TO SEE MORE "; 142 INPUT (1,150)X$ 143 PRINT 150 PRINT "THESE ARE SOME HISTORIC U.S. NAVY SUBMARINES -" 160 PRINT " TAUTOG, SILVERSIDES, CAVALLA, BLUEFISH," 170 PRINT " SWORDFISH, FLASHER, TROUT, ARCHERFISH" 180 PRINT "SELECT ONE OF THE ABOVE, OR USE ANY OTHER NAME" 190 PRINT 200 PRINT "PRINT THE NAME OF YOUR SUBMARINE "; 210 INPUT B$ 220 LET T=26 230 LET D=INT(RND(0)*10) 240 IF D<6 THEN 330 250 IF D=6 OR D=7 THEN LET R$="DESTROYER" 260 IF D=6 OR D=7 THEN LET W=2100 270 IF D=8 THEN LET R$="DESTROYER ESCORT" 280 IF D=8 THEN LET W=1350 290 IF D=9 THEN LET R$="TORPEDO BOAT" 300 IF D=9 THEN LET W=70 310 IF D=6 OR D=7 THEN LET Q=2 311 IF D<6 OR D>7 THEN LET Q=1 312 PRINT 320 PRINT "JAPANESE ";R$," IS ATTACKING" 330 IF D<6 THEN LET A=INT(RND(0)*10) 340 PRINT 350 PRINT 360 PRINT "ORDERS, COMMANDER "; 370 INPUT C$ 380 IF C$="PERISCOPE" THEN 420 385 IF C$="P" THEN 420 390 IF C$="TORPEDO" THEN 780 395 IF C$="T" THEN 780 400 IF C$="DIVE" THEN 990 402 IF C$="D" THEN 990 405 PRINT " YOU MUST USE----'DIVE', 'PERISCOPE', OR 'TORPEDO'" 407 PRINT " OR----'D', 'P', OR 'T'" 410 GOTO 360 420 IF D>5 OR Q>0 THEN 760 430 IF A>3 THEN 470 440 IF A=0 OR A=1 THEN LET W=6500 450 IF A=2 THEN LET W=7500 460 IF A=3 THEN LET W=8100 470 IF A=7 OR A=8 THEN LET R$="TANKER" 475 GOTO 490 480 IF A=8 THEN LET W=10000 485 LET W=9500 490 IF A=4 OR A=5 THEN LET R$="TRANSPORT" 495 GOTO 510 500 IF A=5 THEN LET W=11500 505 LET W=8800 510 IF A=6 THEN LET R$="AMMUNITION SHIP" 520 IF A>6 OR A<6 THEN LET W=9650 530 IF A<9 AND A<>6 THEN LET Q=2 540 IF A=6 THEN LET Q=1 550 IF A<9 THEN 760 560 LET E=INT(RND(0)*10) 570 IF E=0 THEN LET R$="BATTLESHIP" 580 IF E=0 THEN LET W=33500 590 IF E=1 THEN LET R$="AIRCRAFT CARRIER" 600 IF E=1 THEN LET W=25700 610 IF E=2 THEN LET R$="HEAVY CRUISER" 620 IF E=2 THEN LET W=9900 630 IF E=3 THEN LET R$="LIGHT CRUISER" 640 IF E=3 THEN LET W=9600 650 IF E=4 OR E=5 THEN LET R$="DESTROYER" 660 IF E=4 OR E=5 THEN LET W=2100 670 IF E=6 OR E=7 THEN LET R$="SUBMARINE" 680 IF E=6 OR E=7 THEN LET W=1500 690 IF E=8 OR E=9 THEN LET R$="DESTROYER ESCORT" 700 IF E=8 OR E=9 THEN LET W=1350 710 IF E>5 THEN LET Q=1 720 IF E=4 OR E=5 THEN LET Q=2 730 IF E=2 OR E=3 THEN LET Q=3 740 IF E=1 THEN LET Q=4 750 IF E=0 THEN LET Q=6 760 PRINT "JAPANESE ";R$," - ";W;" TONS" 770 GOTO 340 780 IF Q<1 THEN PRINT "NO JAP SHIPS IN SIGHT - JUST OCEAN" 790 IF Q<1 THEN 360 800 PRINT T;" TORPEDOES LEFT" 810 PRINT "NUMBER OF TORPEDOES TO FIRE---=>"; 820 INPUT R 830 IF R<0 OR T-R<0 THEN 810 840 IF R<>INT(R) THEN 810 850 LET T=T-R 860 LET S=INT(RND(0)*10) 870 IF S>R THEN 860 880 LET Q=Q-S 890 IF Q>0 THEN LET Q$="DAMAGED" 900 IF Q<1 THEN LET Q$="SUNK" 910 IF Q<1 THEN LET O=O+W 920 IF Q<1 THEN LET L=L+1 930 PRINT R;" TORPEDOES FIRED - ";S;" HITS "; 940 IF S=0 THEN PRINT 950 IF S>0 THEN PRINT " - ";R$;" ..... ";Q$ 960 IF D>5 AND Q>0 THEN 1140 970 IF T<1 THEN 1160 980 IF Q<1 THEN 230 985 GOTO 340 990 IF D<6 THEN PRINT "THE USS ";B$;" IS NOT UNDER ATTACK" 1000 IF D<6 THEN 360 1010 LET U=INT(RND(0)*10)*250+500 1020 PRINT "DISTANCE OF JAPANESE ";R$," DEPTH OF USS ";B$ 1030 PRINT U;" YARDS ",Z;" FEET" 1040 LET U=U-250 1050 LET Z=Z+2 1060 IF U>-250 THEN 1030 1070 IF R$="TORPEDO BOAT" THEN 1100 1080 LET N=INT(RND(0)*10)*25+50 1090 IF N+26>Z AND N-260 THEN PRINT " *** CONGRATULATIONS ***" 1175 IF O>0 THEN PRINT " YOU HAD A SUCCESSFUL MISSION." 1180 PRINT 1190 PRINT "THE SUBMARINE USS ";B$;" HAS SUNK A TOTAL OF ";L 1200 PRINT "SHIPS. THE ENEMY TONNAGE SUNK IS ";O;" TONS" 1210 REM ===== VARIBLES USED: A, D, E, L, N, O, Q, R, S, T, U 1220 REM ===== VARIBLES USED: W, Z, B$ C$ Q$ R$ X$ 1230 END