1 PRINT TAB(25)"WARFISH" 2 PRINT TAB(20)"CREATIVE COMPUTING" 3 PRINT TAB(18)"MORRISTOWN, NEW JERSEY" 5 PRINT 6 PRINT 7 PRINT 8 PRINT 9 DIM A$(72) 10 Q0=RND(1) 30 PRINT"DO YOU DESIRE THE RULES OF WARFISH "; 40 INPUT X$ 50 IF X$="NO" THEN 200 51 IF X$="YES" THEN 60 52 PRINT"YES OR NO ONLY, PLEASE." 53 GOTO 30 60 PRINT 70 PRINT"YOU COMMAND AN AMERICAN SUBMARINE THAT BEEN SENT OUT" 80 PRINT"TO ATTACK JAPANESE SHIPS AT SEA DURING WORLD WAR TWO" 90 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 JAPANESE SHIPS THAT ARE ATTACKING" 140 PRINT 150 PRINT"THESE ARE SOME HISTORIC U.S. NAVY SUBMARINES -" 160 PRINT" TAUTOG, SILVERSIDES, CAVALLA, BLUEFISH, THRESHER" 170 PRINT" SWORDFISH, FLASHER, TROUT,ARCHER" 180 PRINT"SELECT ONE OF THE ABOVE, OR USE A NAME OF YOUR CHOICE" 200 PRINT"PRINT THE NAME OF YOUR SUBMARINE "; 210 INPUT A$ 220 T=26 230 D=INT(RND(1)*10) 240 IF D<6 THEN 330 250 IF D<>6 AND D<> 7 THEN 270 255 R$="DESTROYER" 260 W=2100 270 IF D<>8 THEN290 271 R$="DESTROYER ESCORT" 280 W=1350 290 IF D<>9 THEN 310 291 R$="TORPEDO BOAT" 300 W=70 310 IF D=6 OR D=7 THEN 313 311 Q=1 312 GOTO 314 313 Q=2 314 PRINT 315 PRINT 320 PRINT"JAPANESE ";R$;" IS ATTACKING" 330 IF D>= 6 THEN 340 335 A=INT(RND(1)*10) 340 PRINT 350 PRINT 360 PRINT"ORDERS, COMMANDER "; 370 INPUT C$ 371 C$=MID$(C$,1,1) 380 IF C$="P" THEN 420 390 IF C$="T" THEN 780 400 IF C$="D" THEN 990 410 GOTO 360 420 IF D>5 OR Q>0 THEN 760 430 IF A>=4 THEN 470 435 R$="FREIGHTER" 440 IF A<>0 AND A<>1 THEN 450 445 W=6500 450 IF A<> 2 THEN 460 455 W=7500 460 IF A<>3 THEN 470 465 W=8100 470 IF A<>7 AND A<>8 THEN 490 475 R$="TANKER" 480 IF A<>8 THEN 485 481 W=10000 482 GOTO 490 485 W=9500 490 IF A<>4 AND A<>5 THEN 510 491 R$="TRANSPORT" 500 IF A<>5 THEN 505 501 W=11500 502 GOTO 510 505 W=8800 510 IF A<>6 THEN 530 515 R$="AMMUNITION SHIP" 520 W=9650 530 IF A>=9 OR A=6 THEN 540 535 Q=1 540 IF A<>6 THEN 550 545 Q=1 550 IF A<9 THEN 760 560 E=INT(RND(1)*10) 570 IF E<>0 THEN 590 575 R$="BATTLESHIP" 580 W=33500 590 IF E<>1 THEN 610 595 R$="AIRCRAFT CARRIER" 600 W=25700 610 IF E<>2 THEN 630 615 R$="HEAVY CRUISER" 620 W= 9900 630 IF E<>3 THEN 650 635 R$="LIGHT CRUISER" 640 W=9600 650 IF E<>4 AND E<>5 THEN 670 655 R$="DESTROYER" 660 W=2100 670 IF E<>6 AND E<>7 THEN 690 675 R$="SUBMARINE" 680 W=1500 690 IF E<>8 AND E<>9 THEN 710 700 W=1350 710 IF E<=5 THEN 720 715 Q=1 720 IF E<>4 ANDE<>5 THEN 730 725 Q=2 730 IF E<>2 AND E<>3 THEN 740 735 Q=3 740 IF E<>1 THEN 750 745 W=4 750 IFE<>0 THEN 760 755 Q=6 760 PRINT"JAPANESE ";R$;" - ";W;" TONS" 770 GOTO 340 780 IF Q>=1 THEN 800 785 PRINT" NO JAPANESE 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 T=T-R 860 S=INT(RND(1)*10) 870 IF S>R THEN 860 880 Q=Q-S 890 IF Q<=0 THEN 900 895 Q$="DAMAGED" 900 IF Q>=1 THEN 930 905 Q$="SUNK" 910 O=O+W 920 L=L+1 930 PRINT R;" TORPEDOES FIRED -";S;" HITS"; 940 IF S<>0 THEN 950 945 PRINT 950 IF S<=0 THEN 960 955 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 1000 995 PRINT" THEN USS ";A$;" IS NOT UNDER ATTACK" 1000 IF D<6 THEN 360 1010 U=INT(RND(1)*10)*250+500 1020 PRINT "DISTANCE OF JAPANESE ";R$;" DEPTH OF USS ";A$ 1030 PRINT U;"YARDS ";Z;"FEET" 1040 U=U-250 1050 Z=Z+25 1060 IF U>-250 THEN 1030 1070 IF R$="TORPEDO BOAT " THEN 1100 1080 N=INT(RND(1)*10)*25+50 1090 IF N+26>Z AND N-26