Listing of file='DEPCHG.BAS;01' on disk='vmedia/ncc_4-sector.ccvf'
2 PRINT TAB( 30);"DEPTH CHARGE" 4 PRINT TAB( 15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 5 REM COPIED & MODIFIED BY C. E. SONTAG 6 PRINT :PRINT :PRINT 10 PRINT "D E P T H C H A R G E G A M E":PRINT 20 INPUT "DIMENSION OF SEARCH AREA (SPECIFY 1 TO 9, THEN RETURN) ";G:PRINT 30 N= INT (LOG (G)/ LOG (2))+ 1 40 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER" 50 PRINT "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR" 60 PRINT "MISSION IS TO DESTROY IT. YOU HAVE THE FOLLOWING QUANTITY OF SHOTS...":PRINT :PRINT 61 PLOT 29,17,255 62 PRINT TAB( 30);N 63 PRINT :PRINT :PLOT 29,18,255 70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A" 80 PRINT "TRIO OF NUMBERS -- THE FIRST TWO ARE THE" 90 PRINT "SURFACE COORDINATES; THE THIRD IS THE DEPTH." 100 PRINT :PRINT "G O O D L U C K !":PRINT 110 A= INT (G* RND (1)):B= INT (G* RND (1)):C= INT (G* RND (1)) 120 FOR D= 1TO N:PRINT :PRINT "TRIAL NO.: ";D;" ":INPUT Y,X,Z 130 IF ABS (X- A)+ ABS (Y- B)+ ABS (Z- C)= 0THEN 300 140 GOSUB 500:PRINT :NEXT D 200 PRINT :PRINT "YOU HAVE BEEN TORPEDOED! A B A N D O N S H I P !" 210 PRINT "THE SUBMARINE WAS AT ";B;", ";A;", ";C:GOTO 400 300 PRINT :PRINT "B O O M ! ! YOU FOUND IT IN ";D;" TRIES!" 400 PRINT :PRINT :INPUT "ANOTHER GAME (Y OR N)";A$ 410 IF A$= "Y"THEN 100 420 PRINT "OK. HOPE YOU ENJOYED YOURSELF.":GOTO 600 500 PRINT "SONAR REPORTS SHOT WAS "; 510 IF Y> BTHEN PRINT "NORTH"; 520 IF Y< BTHEN PRINT "SOUTH"; 530 IF X> ATHEN PRINT "EAST"; 540 IF X< ATHEN PRINT "WEST"; 550 IF Y< > BOR X< > ATHEN PRINT " AND"; 560 IF Z> CTHEN PRINT " TOO LOW." 570 IF Z< CTHEN PRINT " TOO HIGH." 580 IF Z= CTHEN PRINT " DEPTH OK." 590 RETURN 600 END