10 REM +++++++++++++++++++++++++++++++++ 11 REM ! Program .... WARFISH 12 REM ! Utg}va 1981-04-10 13 REM ! av ??? 14 REM ! {ndrat av David Aronsson 15 REM ! Copyright Creative Computing 16 REM ! Minne 16 Kbytes 17 REM ! Ins{nt av 183 18 REM +++++++++++++++++++++++++++++++++ 19 REM 20 REM Screened by +TCP+ 21 REM 22 ; CHR$(12%) : ; TAB(15%)'WARFISH' : ; TAB(14%)CHR$(23%)STRING$(7%,35%) : ; : ; : ; : ; : DIM A$(72%) : Q0=RND 23 RANDOMIZE 24 ; 'Do you desire the rules,(Y/N)?'; 25 GET X$ : IF X$='N' OR X$='n' ; X$ : GOTO 32 ELSE IF X$='Y' OR X$='y' ; CHR$(12%) : GOTO 27 ELSE 25 26 GOTO 24 27 ; : ; 'You command an American submarine that been sent out. To attack japanese ships' 28 ; 'at sea during world war II.' : ; : ; 'The orders that can be given are the following:' : ; 29 ; 'PERISCOPE - To search for Japanese ships' : ; 'TORPEDO - To launch torpedoes at' : ; TAB(12%)'Japanese ships' 30 ; : ; 'DIVE - To escape Japanese ships' : ; TAB(12%)'that are attacking' : ; 31 ; : ; STRING$(40%,95%) 32 ; : ; 'Type the name of your submarine'; : INPUT A$ 33 T=26% 34 D%=RND*10% 35 IF D%<6% 51 36 IF D%<>6% AND D%<>7% 39 37 R$='DESTROYER' 38 W=2100% 39 IF D%<>8% 42 40 R$='DESTROYER ESCORT' 41 W=1350% 42 IF D%<>9% 45 43 R$='TORPEDO BOAT' 44 W=70% 45 IF D%=6% OR D%=7% 48 46 Q=1% 47 GOTO 49 48 Q=2% 49 ; : ; 50 ; 'Japanese 'R$' is attacking!' 51 IF D%>=6% 53 52 A%=RND*10% 53 ; : ; 54 ONERRORGOTO 54 : ; : ; 'Orders, Commander '; : INPUT C$ 55 IF C$='' 54 ELSE C$=LEFT$(C$,1%) : IF ASC(C$)>95% C$=CHR$(ASC(C$)-32%) 56 IF C$='P' 60 57 IF C$='T' 122 58 IF C$='D' 146 59 ; 'Wrong command! Try again!' : ; : GOTO 54 60 IF D%>5% OR Q>0% 120 61 IF A%>=4% 69 62 R$='FREIGHTER' 63 IF A%<>0% AND A%<>1% 65 64 W=6500% 65 IF A%<>2% 67 66 W=7500% 67 IF A%<>3% 69 68 W=8100% 69 IF A%<>7% AND A%<>8% 75 70 R$='TANKER' 71 IF A%<>8% 74 72 W=10000% 73 GOTO 75 74 W=9500% 75 IF A%<>4% AND A%<>5% 81 76 R$='TRANSPORT' 77 IF A%<>5% 80 78 W=11500% 79 GOTO 81 80 W=8800% 81 IF A%<>6% 84 82 R$='AMMUNITION SHIP' 83 W=9650% 84 IF A%>=9% OR A%=6% 86 85 Q=1% 86 IF A%<>6% 88 87 Q=1% 88 IF A%<9% 120 89 E%=RND*10% 90 IF E% 93 91 R$='BATTLESHIP' 92 W=33500 93 IF E%<>1% 96 94 R$='AIRCRAFT CARRIER' 95 W=25700% 96 IF E%<>2% 99 97 R$='HEAVY CRUISER' 98 W=9900% 99 IF E%<>3% 102 100 R$='LIGHT CRUISER' 101 W=9600% 102 IF E%<>4% AND E%<>5% 105 103 R$='DESTROYER' 104 W=2100% 105 IF E%<>6% AND E%<>7% THEN 108 106 R$='SUBMARINE' 107 W=1500% 108 IF E%<>8% AND E%<>9% THEN 110 109 W=1350% 110 IF E%<=5 THEN 112 111 Q=1 112 IF E%<>4% AND E%<>5% 114 113 Q=2 114 IF E%<>2% AND E%<>3% 116 115 Q=3 116 IF E%<>1% 118 117 W=4 118 IF E% 120 119 Q=6 120 ; 'Japanese 'R$' - ';W' tons' 121 GOTO 53 122 IF Q>=1% 125 123 ; 'No Japanese ships in sight - just ocean' 124 IF Q<1% 54 125 ; T' Torpedoes left' 126 ; 'Number of torpedos to fire'; : INPUT R% 127 IF R%<0% OR T-R%<0% 126 128 T=T-R% 129 S%=RND*10% 130 IF S%>R% 129 131 Q=Q-S% 132 IF Q<=0% 134 133 Q$='DAMAGED' 134 IF Q>=1% 138 135 Q$='SUNK' 136 O=O+W 137 L=L+1% 138 ; R%' Torpedos fired -'S%' hits' 139 IF S% 140 ELSE ; 140 IF S%<=0% 142 141 ; : ; R$' 'Q$ 142 IF D%>5% AND Q>0% 164 143 IF T<1% 166 144 IF Q<1% 34 145 GOTO 53 146 IF D%>=6% 148 147 ; 'The USS 'A$' is not under attack.' 148 IF D%<6% 54 149 U=INT(RND*10)*250+500 150 ; 'Distance of Japanese 'R$ : ; TAB(20%)'Depth of USS 'A$ 151 ; U' Yards'TAB(20%)Z' feet' 152 U=U-250 153 Z=Z+25 154 IF U>-250% 151 155 IF R$='TORPEDO BOAT ' 159 156 N%=RND*2500%+50% 157 IF N%+26%>Z AND N%-26%'N' 170 : ; A$ : ; 'BYE !!!' : END