Listing of file='DEPTH.BAS;01' on disk='vmedia/ncc_3-sector.ccvf'
1 POKE 32936,1:GOSUB 10000 2 DIM LO,LS,H 3 DIM P1(50),D1(50) 7 PLOT 12:GOTO 2000 8 GOSUB 6000 10 X0= 95:Y0= 90 16 FOR J= 1TO 1:REM SET # OF SWEEPS OF SCOPE..IF >1 SET 25 TO 1TO8 17 RESTORE 18 INC= 5:REM SET SCOPE SPEED 20 DATA 95,119,115,111,120,90,115,69,95,59,74,69,70,90,74,111,93,119 21 PLOT 30 22 PLOT 6,1:GOSUB 1205 23 PLOT 6,2 25 FOR I1= 1TO 9 30 READ X1:READ Y1 40 GOSUB 900 50 NEXT I1 51 NEXT J 52 IF D= 0THEN GOSUB 3000 55 PLOT 29,3,47,9,107 56 IF D= 0THEN 2115 57 CK= ABS (A1- A)+ ABS (B1- B)+ ABS (C1- C) 58 IF CK= 0AND D= NTHEN N1= 1:GOTO 2600 59 IF CK= 0THEN 2300 60 IF D= NTHEN GOSUB 2600 61 PLOT 3,35,22,14 63 IF C1> CTHEN PRINT "DEPTH TOO DEEP " 65 IF C1< CTHEN PRINT "DEPTH TOO SHALLOW" 70 IF C1= CTHEN PRINT "DEPTH OK " 77 PLOT 15 80 IF D= N- 1THEN GOSUB 2500 90 RETURN 500 REM IS BLIP REQUIRED? 510 IF B1< BAND A1= ATHEN 600 515 GOTO 1202 512 IF B1< BAND A1< ATHEN 600 520 IF B1< BAND A1< ATHEN 600 525 GOTO 1202 530 IF B1= BAND A1< ATHEN 600 535 GOTO 1202 540 IF B1> BAND A1< ATHEN 600 545 GOTO 1202 550 IF B1> BAND A1= ATHEN 600 555 GOTO 1202 560 IF B1> BAND A1> ATHEN 600 565 GOTO 1202 570 IF B1= BAND A1> ATHEN 600 575 GOTO 1202 580 IF B1< BAND A1> ATHEN 600 585 GOTO 1202 599 REM PLOT BLIP AND ECHO SOUND 600 XC= X1/ 2:YC= 32- (Y1/ 4) 605 PLOT 29,6,68 610 PLOT 3,XC,YC,100 615 PLOT 6,2:PLOT 30,8,255 620 IF Z= 2GOTO 1202 630 P= 25:DU= 100:NS= 5:S1= 253:S2= 0 635 GOSUB 800 640 GOTO 1202 800 REM SOUND POKER 810 AD= TM:DA= P:GOSUB 850 820 AD= TM+ 2:DA= DU:GOSUB 850 830 POKE TM+ 4,NS:POKE TM+ 5,S1:POKE TM+ 6,S2 840 XX= CALL (0):RETURN 850 Z1= INT (DA/ 256):Z2= DA- Z1* 256 860 POKE AD,Z2:POKE AD+ 1,Z1:RETURN 900 REM SEND SOUND AND SWEEP 910 P= 25:DU= 125:NS= 5:S1= 5:S2= 250:GOSUB 800 930 FOR Z= 1TO 2 1000 DX= X1- X0:DY= Y1- Y0:PLOT 2 1010 IF DX= 0AND DY= 0THEN 1200 1020 IF ABS (DY)> ABS (DX)THEN 1100 1030 SL= DY/ DX 1040 FOR X= X0TO X1STEP INC* SGN (DX) 1050 PLOT X,Y0+ (X- X0)* SL+ .5 1060 NEXT X 1070 GOTO 1200 1100 SL= DX/ DY 1110 FOR Y= Y0TO Y1STEP INC* SGN (DY) 1120 PLOT X0+ (Y- Y0)* SL+ .5,Y 1130 NEXT Y 1200 PLOT X1,Y1,255:IF D= NGOTO 1202 1201 ON I1GOTO 510,520,530,540,550,560,570,580 1202 NEXT Z 1203 RETURN 1204 REM PLOT COMPASS POINTS 1205 PLOT 3,47,1,78 1206 PLOT 3,62,9,69 1207 PLOT 3,47,18,83 1208 PLOT 3,32,9,87 1209 PLOT 3,58,4,78,69 1210 PLOT 3,58,14,83,69 1212 PLOT 3,35,14,83,87 1214 PLOT 3,35,4,78,87 1215 PLOT 8,255 1235 RETURN :REM RETURN TO 22 2000 GOSUB 16000 :REM INTRO SCREEN ACTION 2004 PRINT :PRINT "*** CAP SOUNDWARE HAS BEEN ADDED, WE HOPE YOU LIKE IT!" 2005 PRINT :PRINT "YOU ARE THE CAPTAIN OF THE USS COMPU." 2006 PRINT "EN ENEMY SUB HAS!BEEN CAUSING YOU TROUBLE." 2007 PRINT "YOUR MISSION IS TO DESTROY IT BEFORE IT GETS YOU!" 2008 PRINT :PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A TRIO" 2009 PRINT "OF NUMBERS---THE FIRST TWO ARE THE SURFACE CO-" 2010 PRINT "ORDINATES. THE THIRD IS THE DEPTH...'X,Y,Z'" 2011 PRINT :PRINT "SONARSCOPE WILL NOTE THE DIRECTION TO THE" 2012 PRINT "SUB. WATCH FOR THE ECHO (BLUE BLIP)... d" 2014 PRINT :PRINT "THERE IS A NOVICE VERSION TO HELP YOU UNDERSTAND THE" 2015 PRINT "..X,Y.. NOTATION":RESTORE 6410:GOSUB 6100 2016 PRINT :INPUT "DO YOU WISH TO PLAY AS A NOVICE? (Y OR N)";NO$ 2017 G= 10:PRINT :PRINT "DIMENSIONS OF SEARCH AREA IS..";G;" CUBE." 2018 IF LEFT$ (NO$,1)= "Y"THEN TIME= 5:GOSUB 8000:GOTO 2025 2019 PRINT :INPUT " CHANGE? ";A$ 2020 IF LEFT$ (A$,1)< > "Y"GOTO 2022 2021 PRINT :INPUT "ENTER NEW DIMENSION.. ";G 2022 GOSUB 8100 2025 N= H+ INT (LOG (G)/ LOG (2))+ 1 2028 PLOT 12 2030 PRINT "YOU HAVE ";N;" SHOTS":PRINT :PRINT " GOOD LUCK! ":PRINT 2035 PLOT 3,64,0 2040 TIME= 9:GOSUB 8000 2100 FOR T= 1TO INT (10* RND (1)) 2110 A= INT (G* RND (1)):B= INT (G* RND (1)):C= INT (G* RND (1)) 2111 NEXT :GOSUB 9000:REM SUB COURSE 2112 GOTO 7000 2115 PLOT 3,0,5,6,2:REM MOVE CURSON SET FOREGROUND 2120 FOR D= 1TO N:POKE TM,30:POKE TM+ 2,90:X8= CALL (0) 2122 PRINT :PRINT "INPUT SHOT # ";D;" ";:INPUT A1,B1,C1 2125 PLOT 28:PRINT " " 2126 PLOT 3,35,22,14:PRINT SPC( 17):PLOT 15 2130 GOSUB 10 2140 PRINT :GOSUB 3000 2144 REM MOVE SUB 2145 GOSUB 9100 2146 IF D= NTHEN GOTO 4000 2147 NEXT D 2150 PLOT 3,0,20 2179 REM SPACE TO READ PROG STEP 2180 PRINT " !! KA _ - B O O M !! ":PLOT 13 2185 PLOT 3,64,0 2186 GOSUB 13000 2195 PLOT 3,0,27 2200 PRINT " YOU HAVE BEEN TORPEDOED! ABANDON SHIP! " 2201 PLOT 3,64,0 2205 GOSUB 13000 2210 GOTO 3000 2300 PLOT 3,0,27:N1= 1 2304 REM 2305 PRINT " BOOM! YOU FOUND IT IN ";D;" TRIES!" 2306 PLOT 3,64,0 2310 FOR T= 1TO 500:NEXT T 2320 GOTO 3000 2400 PLOT 3,0,31 2405 INPUT " ANOTHER GAME? 'Y OR N' .. ";A$ 2406 IF LEFT$ (A$,1)< > "Y"THEN 2415 2410 CLEAR 50:TM= PEEK (32940)+ PEEK (32941)* 256+ 1 2411 DIM P1(50),D1(50),LO,LS:H= 0:D= 0:GOTO 2016 2415 PLOT 12,8 2420 PRINT :PRINT "OK! HOPE YOU ENJOYED YOUR CRUISE ON THE USS COMPU. " 2430 RESTORE 6510:GOSUB 6100 2440 RESTORE 6510:GOSUB 6100 2450 RESTORE 6550:GOSUB 6100 2460 END 2500 PLOT 3,0,27 2501 GOSUB 12000 2502 PRINT " CAPTAIN - - PERISCOPE SIGHTED!":PLOT 3,64,0 2503 FOR T= 1TO 500:NEXT T 2504 PLOT 3,0,27 2505 PRINT "WHERE AWAY? ":FOR T= 1TO 400:NEXT T 2506 ST$= "STARBOARD":PT$= "PORT" 2507 IF A> = A1THEN S$= ST$ 2508 IF A< A1THEN S$= PT$ 2509 PLOT 3,0,27 2510 PRINT " OFF THE ";S$;" SIDE! " 2511 PLOT 3,64,0 2512 TIME= 4:GOSUB 8000 2515 GOTO 2600 2516 PLOT 3,64,0:TIME= 5:GOSUB 8000:GOSUB 14060:PLOT 3,0,27 2517 PRINT " M I S S E D ................ WHEW!!!!! " 2518 PLOT 3,64,0:TIME= 5:GOSUB 8000 2519 PLOT 3,0,27:PRINT " " 2520 RETURN 2600 FOR R= 1000TO 100STEP - 100 2605 NA= 1:GOSUB 11000 2610 PLOT 3,0,27 2620 PRINT " TORPEDO SIGHTED . . RANGE = ";R;" YARDS! " 2625 PLOT 3,64,0 2640 NEXT R:PLOT 3,0,27,11,3,64,0 2641 GOSUB 14000 2642 IF D= NTHEN 2650 2644 TH= INT (100* RND (1)) 2646 IF TH< = 75THEN 2516 2648 N= D:GOTO 2150 2650 IF N1= 0THEN GOTO 2150 2655 GOSUB 2516 3000 PLOT 8,29 3010 PRINT TAB( 10);" SHIP'S LOG " 3020 LO(D,1)= D:LO(D,2)= A1:LO(D,3)= B1:LO(D,4)= C1 3025 IF D= 0THEN LO(D,4)= 0 3040 PRINT :PRINT "SHOT NO. ";"X","Y","Z" 3050 PRINT :FOR D1= 0TO D 3060 PRINT " ";LO(D1,1),LO(D1,2),LO(D1,3),LO(D1,4) 3070 NEXT D1 3075 PLOT 6,2 3080 IF N1= 1THEN 4000 3085 IF NO$< > "Y"OR D= 0THEN 3090 3086 X0= 10+ 4* LO(D- 1,2):Y0= 30+ 4* LO(D- 1,3):X1= 10+ 4* LO(D,2):Y1= 30+ 4* LO(D,3) 3087 IF D< > NTHEN 5170 3090 RETURN 4000 PRINT :PRINT "TARGET ";A,B,C 4005 PLOT 3,64,0 4010 FOR T= 1TO 1000:NEXT T 4015 NO$= "N" 5000 IF G> 50THEN M= 1:REM SET MULT. FOR SEARCH AREA 5010 IF G< = 50THEN M= 2 5020 IF G< = 25THEN M= 4 5030 IF G< = 10THEN M= 10 5040 REM PLOT SEARCH AREA 5042 PLOT 12,3,16,10,6,131,14 5044 PRINT " S T(A N D B Y ! " 5046 PLOT 3,16,16,6,57 5047 PRINT "COMPUTER WILL GENERATE ACTION PLOT" 5048 PLOT 3,64,0:GOSUB 15000 5050 PLOT 30,20,12 5055 PLOT 3,16,2,6,43 5056 REM 5060 PRINT " ACTION PLOT OF U.S. COMPU " 5075 PLOT 16,29 5080 FOR I= 0TO D 5085 A1= LO(I,2):B1= LO(I,3):C1= LO(I,4) 5090 IF I< > 0THEN 5150 5092 PLOT 6,98 5095 PLOT 3,A1* M/ 2,31- (B1* M/ 4),107 5100 PLOT 3,64,0 5105 TIME= 5:GOSUB 8000 5127 A= LS(I,2):B= LS(I,3):C= LS(I,4) 5128 PLOT 6,98 5130 PLOT 3,A* M/ 2,31- (B* M/ 4),112:REM PLOT SUB 5131 PLOT 3,64,0 5132 FOR T= 1TO 500:NEXT T 5139 IF D= IAND NO$< > "Y"THEN 5400 5140 NEXT I 5150 REM PLOT SHIP 5155 PLOT 6,33 5160 X0= LO(I- 1,2)* M:Y0= LO(I- 1,3)* M:X1= LO(I,2)* M:Y1= LO(I,3)* M 5170 DX= X1- X0:DY= Y1- Y0:PLOT 2 5180 IF DX= 0AND DY= 0THEN 5290 5190 IF ABS (DY)> ABS (DX)THEN 5250 5200 SL= DY/ DX 5210 FOR X= X0TO X1STEP INC* SGN (DX) 5220 PLOT X,Y0+ (X- X0)* SL+ .5 5230 NEXT X 5240 GOTO 5290 5250 SL= DX/ DY 5260 FOR Y= Y0TO Y1STEP INC* SGN (DY) 5270 PLOT X0+ (Y- Y0)* SL+ .5,Y 5280 NEXT Y 5290 PLOT X1,Y1,255 5295 PLOT 29 5297 IF S= 0THEN CH= 107 5298 IF S= 1THEN CH= 104:GOTO 5302 5299 A2= X1/ 2:B2= 31- (Y1/ 4) 5300 PLOT 3,A2,B2,CH 5301 PLOT 255:GOTO 5305 5302 PLOT 31,19,14,3,A2,B2,104,15 5305 PLOT 3,64,0 5306 IF NO$= "Y"AND (D< > NOR N1< > 1)THEN 3090 5310 FOR T= 1TO 400:NEXT T 5315 IF S= 1THEN 5375 5320 IF (A1< > A)OR (B1< > B)OR (C1< > C)THEN 5127 5350 PLOT 28 5355 PLOT 3,A2+ 2,B2 5359 REM 5360 PRINT " SIGHTED SUB "; 5362 PLOT 3,A2+ 2,B2+ 2 5363 PRINT " SANK SAME " 5364 PLOT 3,64,0 5365 RESTORE 6210:GOSUB 6100 5370 GOTO 2400 5375 PLOT 3,A2+ 2,B2 5379 REM 5380 PRINT " USS COMPU SUNK " 5382 PLOT 3,A2+ 2,B2+ 2 5384 PRINT " ALL HANDS LOST " 5385 PLOT 3,64,0 5386 RESTORE 6310:GOSUB 6100 5390 GOTO 2400 5400 PLOT 6,34 5410 X0= A* M:Y0= B* M:X1= A1* M:Y1= B1* M:S= 1 5415 INC= 3 5420 GOTO 5170 6000 PLOT 6,4:REM PLOT BORDER OF SCOPE 6010 PLOT 2,62,127,242,127,127,127,50,62,50,62,127,255 6015 IF NO$< > "Y" THEN 6020:REM PLOT NOVICE AREA 6016 PLOT 2,10,70,242,50,70,50,30,10,30,10,70,255 6017 PLOT 27,10,3,3,11:PRINT "Y^109876543210" 6018 PLOT 27,11,3,5,25:PRINT "0 1 2 3 4 5 6 7 8 9 10 > X" 6020 RETURN 6100 REM PLAY SONG 6110 READ N:P1(0)= N 6120 FOR NN= 1TO N:READ P1(NN):NEXT 6130 FOR NN= 0TO N:READ D1(NN):NEXT 6140 FOR NN= 1TO P1(0) 6150 P= P1(NN):DU= D1(NN):NS= 0:S1= 0:S2= 0 6155 GOSUB 800 6160 NEXT :RETURN 6200 REM ANCHORS AWEIGH 6210 DATA 25,154,123,103,92,123,92,77,69,103,77,92,77,92,103,92,82,77,69,92,69,77,82,103,116,138 6220 DATA 25,300,250,298,501,125,668,600,446,298,800,501,400 6230 DATA 334,298,334,374,400,446,334,446,400,374,298,264,444 6300 REM ASLEEP IN DEEP 6310 DATA 18,164,164,164,173,173,173,184,184,184,245,259,275,206,206,231,245,275,308 6320 DATA 18,93,93,93,89,89,89,83,83,83,124,59,56,222,296,264,248,224,400 6400 REM BLOW THE MAN DOWN 6410 DATA 39,109,92,82,92,109,138,109,92,82,92,109,138,109,92,82,103,109,103,123,123,103 6420 DATA 92,103,123,154,123,103,92,103,123,92,92,92,92,103,109,123,109,138 6430 DATA 39,141,167,187,167,141,111,141,167,187,167,141,111,141,501,561,298,141,149,250 6440 DATA 125,149,167,149,125,100,125,447,167,149,375,167,167,167,334,149,423,125,141,444 6500 REM BELL BOTTOM TROUSERS 6510 DATA 24,92,92,116,116,154,154,92,92,103,103,109,103,103,103,123,123,154,154,103,103,116,116 6520 DATA 123,116 6530 DATA 24,167,167,132,132,100,100,334,167,149,149,141,596,149,149,125,125,100,100,298,149,132 6540 DATA 132,125,528 6550 DATA 20,92,116,116,154,92,92,103,103,109,103,103,123,123,154,103,103,116,116,123,116 6560 DATA 20,334,132,132,200,334,167,149,149,141,596,298,125,125,200,298,149,132,132,125,396 7000 X= INT ((3- 1)* RND (1)+ 1):Y= INT ((3- 1)* RND (1)+ 1) 7010 IF X= 1THEN LO(0,2)= 0 7015 IF X= 2THEN LO(0,2)= G 7020 IF Y= 1THEN LO(0,3)= 0 7025 IF Y= 2THEN LO(0,3)= G 7026 A1= LO(0,2):B1= LO(0,3):C1= 5 7030 PLOT 12 7035 GOSUB 12000 7036 REM 7040 PRINT " BRIDGE- SONAR REPORTS CONTACT!" 7050 TIME= 6:GOSUB 8000 7055 NA= 2:GOSUB 11000 7060 PLOT 8,6,65 7070 PRINT "B A T T L E S T A T I O N S !" 7075 NA= 5:GOSUB 11000 7090 PLOT 8,15,6,3 7095 POKE TM,30:POKE TM+ 2,100:X8= CALL (0) 7100 PRINT "S O N A R R E P O R T " 7110 TIME= 5:GOSUB 8000 7120 PRINT :PRINT "PRESENT POSITION... " 7125 PRINT :PRINT " X = ";LO(0,2);" Y = ";LO(0,3) 7130 TIME= 10:GOSUB 8000 7135 PLOT 12 7140 GOTO 8 8000 FOR T= 1TO TIME* 100:NEXT T:RETURN :REM TIME DELAY SUBROUTINE 8100 PRINT :PRINT "YOU CAN SELECT THE DEGREE OF DIFFICULTY....." 8110 PRINT TAB( 10);"0 = SUB WILL NOT MOVE" 8120 PRINT TAB( 10);"1 = SUB MAY MOVE ALONG THE X AXIS" 8130 PRINT TAB( 10);"2 = SUB MAY MOVE ALONG THE X OR Y AXIS" 8140 PRINT TAB( 10);"3 = SUB MAY MOVE ALONG THE X,Y OR Z AXIS" 8141 PRINT :PRINT "THERE IS NO GUARANTEE THE SUB WILL MOVE HOWEVER!!" 8145 PRINT 8150 INPUT " ENTER DEGREE OF DIFFICULTY . . ";H 8160 PRINT :RETURN 9000 GOSUB 9060:REM SUB COURSE 9010 AA= K1:GOSUB 9060 9030 BB= K1:GOSUB 9060 9050 CC= K1 9060 K1= INT ((4* RND (1))+ .5) 9070 IF K1= 0OR K1= 4THEN GOTO 9060 9080 LS(0,2)= A:LS(0,3)= B:LS(0,4)= C 9090 RETURN 9100 REM MOVE SUB 9105 IF H= 0THEN 9140 9110 ON AAGOSUB 9150,9170,9180 9115 IF H= 1THEN 9140 9120 ON BBGOSUB 9250,9270,9280 9125 IF H= 2THEN 9140 9130 ON CCGOSUB 9350,9370,9380 9140 LS(D,2)= A:LS(D,3)= B:LS(D,4)= C 9145 RETURN 9150 IF A= 0THEN AA= 3:GOTO 9180 9160 A= A- 1:RETURN 9170 A= A:RETURN 9180 IF A= GTHEN AA= 1:GOTO 9150 9190 A= A+ 1:RETURN 9250 IF B= 0THEN BB= 3:GOTO 9280 9260 B= B- 1:RETURN 9270 B= B:RETURN 9280 IF B= GTHEN BB= 1:GOTO 9250 9290 B= B+ 1:RETURN 9350 IF C= 0THEN CC= 3:GOTO 9380 9360 C= C- 1:RETURN 9370 C= C:RETURN 9380 IF C= GTHEN CC= 1:GOTO 9350 9390 C= C+ 1:RETURN 10000 TM= PEEK (32940)+ PEEK (32941)* 256 10010 IF TM> 64* 1024- 4THEN LOAD "SOUND":RUN 10020 IF PEEK (TM+ 180)< > 241THEN LOAD "SOUND":RUN 10025 DA= TM+ 8:AD= 33283:GOSUB 850 10026 TM= TM+ 1 10030 RETURN 11000 REM *** ALARM ROUTINE *** 11010 FOR NN= 1TO NA:P= 46:DU= 15:NS= 30:S1= 5:S2= 251:GOSUB 800 11020 P= 108:DU= 7:NS= 45:S1= 10:S2= 246:GOSUB 800:NEXT 11030 RETURN 12000 REM *** CALL CAPTAIN *** 12010 FOR T= 1TO 3 12020 P= 50:DU= 20:NS= 50:S1= 1:S2= 255 12030 GOSUB 800 12040 NEXT :RETURN 13000 REM ABANDON SHIP 13010 FOR T= 1TO 4 13020 P= 170:DU= 10:NS= 25:S1= 252:S2= 0 13030 GOSUB 800 13040 NEXT :RETURN 14000 REM TORPEDO SOUND 14010 P= 40 14020 FOR T= 1TO 15 14030 DU= 5:NS= 0:S1= 0:S2= 0:GOSUB 800 14040 FOR TT= 1TO 200:NEXT 14050 P= P+ 10:NEXT 14055 RETURN 14060 FOR T= 1TO 15 14070 DU= 5:NS= 0:S1= 0:S2= 0:GOSUB 800 14075 FOR TT= 1TO 200:NEXT 14080 P= P- 10:NEXT 14090 RETURN 15000 REM R2-D2 TALK 15010 FOR NN= 1TO 75 15020 POKE TM,(10+ RND (1)* 30):POKE TM+ 2,50 15030 X8= CALL (0):NEXT :RETURN 16000 PLOT 6,54,12 16010 PLOT 6,36,2,246,87 16020 FOR N= 0TO 16:PLOT N,127 16030 PLOT 243,136,136,136,136,136:NEXT N:PLOT 255 16040 Y= 11:XX= 35:XY= 1 16050 FOR X= 17TO 46:PLOT 6,25,3,X,XY,96:NEXT 16060 IF XY= 4THEN 16080 16070 XY= 4:GOTO 16050 16080 PLOT 3,18,3:PRINT " ` D E P T H C H A R G E `" 16090 FOR TIME= 1TO 500:NEXT 16100 PLOT 29:REM PLOT SHIP 16110 FOR X= 0TO 54 16120 PLOT 3,X,10 16130 PLOT 6,32,32,118,6,0,32,32,28,26,26,6,32,32,114,114,10 16140 PLOT 6,0,32,32,28,26,32,28,26,26,6,32,32,107,10,10 16150 PLOT 6,0,32,32,6,32,119 16160 IF X> 34THEN 16180 16170 PLOT 6,33,3,X,9,32,100 16180 IF X> 40THEN 16200:REM PLOT SUB 16190 PLOT 3,60- X,20:GOTO 16220 16200 IF X< 44 THEN PLOT 3,20,20:GOTO 16220 16210 PLOT 3,X- 24,20 16220 PLOT 6,53,32,60,96,62,28,26,26,26,32,112,32,10,32 16230 IF X> 35AND X< 51THEN 16250 16240 NEXT :GOTO 16360 16250 Y= Y+ 1:XX= XX- 1:REM PLOT DEPTH CHARGE 16260 PLOT 3,XX,Y 16270 IF X> = 51GOTO 16300 16280 PLOT 6,49,100,28,6,54,32 16290 IF X= 40OR X= 50THEN 16310 16300 NEXT 16310 REM EXPLOSION 16320 PLOT 3,XX,Y 16330 PLOT 14,6,49,32,118,119,15 16340 NEXT 16350 END 16360 YY= 20 16370 FOR X= 30TO 48 16380 IF X> = 39 THEN 16430 16390 PLOT 3,X,YY 16400 PLOT 6,53,32,60,96,62,28,26,26,26,32,112,32,10,32,10,26,26,26,26,26,32,32,32,32,32 16410 IF X< 39 THEN YY= YY- 1 16420 FOR TIME= 1TO 200:NEXT :NEXT 16430 PLOT 3,X,YY 16440 PLOT 6,53,32,60,96,62,28,26,26,26,6,37,32,112,32,6,53,10,32,10,26,26,26,26,26,32,32,32,32 16450 FOR TIME= 1TO 200:NEXT :NEXT 16460 PLOT 6,56,3,10,20:PRINT " CAN YOU GET THE SUB..BEFORE IT GETS YOU??? " 16470 FOR TIME= 1TO 200:NEXT :GOTO 16540 16480 FOR Y= 9 TO 11 16490 PLOT 3, X,Y,32,100,28,26,32,3,64,9 16500 FOR TIME = 1 TO 500:NEXT :NEXT 16510 FOR XX= 48 TO 48 16520 Y= 11 16530 GOTO 16310 16540 REM GET DEPTH CHARGE 16550 FOR Q= 55 TO 36 STEP - 1 16560 PLOT 6,35 16570 PLOT 3,Q,9,41,45,3,64,9 16580 FOR TIME = 1TO 200:NEXT :NEXT 16590 FOR Q= 35 TO 49 16600 PLOT 3,Q,9,32,6,33,100,6,35,41,45,3,64,9 16610 FOR TIME = 1TO 200:NEXT :NEXT 16620 FOR Q= 51 TO 54 16630 PLOT 3,Q,9,32,41,45,3,64,9 16640 FOR TIME= 1TO 200:NEXT :NEXT 16650 PLOT 3,55,9,32,32,3,64,9 16660 X= 50:PLOT 6,33 16670 FOR Y= 9 TO 11 16680 PLOT 3, X,Y,100,28,26,32,3,64,9 16690 FOR TIME = 1 TO 500:NEXT :NEXT 16700 REM EXPLOSION 16710 PLOT 3,X,Y- 1 16720 PLOT 14,6,49,118,119,15 16725 PLOT 6,2,12 16730 RETURN