depthcharge

Here is another Creative Computing classic game from the 70's. Just copy and paste this code into the Run BASIC editor and run it. You can also run this program in Liberty and Just BASIC too.

This game is quite difficult until you get the hang of it.

DEPTH CHARGE

code ' DEPTH CHARGE' BY DANA NOFTLE ' CREATIVE COMPUTING, MORRISTOWN, NJ ' CIRCA 1979 ' ' RE-PROGRAMMED BY NOBLE D. BELL FOR LIBERTY BASIC. ' HTTP://WWW.NOBLEBELL.COM' PRINT SPACE$(30);"DEPTH CHARGE" PRINT SPACE$(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" PRINT "" : PRINT "" : PRINT "" : PRINT "DEPTH CHARGE GAME":PRINT "" INPUT "DIMENSION OF SEARCH AREA? ";G : PRINT "" : N = INT(LOG(G)/LOG(2))+1 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER" PRINT "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR " PRINT "MISSION IS TO DESTROY IT. YOU HAVE ";N;" SHOTS. " PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A     " PRINT "TRIO OF NUMBERS -- THE FIRST TWO ARE THE        " PRINT "SURFACE COORDINATES; THE THIRD IS THE DEPTH.    " [START] PRINT "" : PRINT "GOOD LUCK" : PRINT "" A = INT(G*RND(1)) : B = INT(G*RND(1)) : C = INT(G*RND(1)) FOR D = 1 TO N   PRINT " " PRINT "TRIAL #";D;" "; INPUT "X"; X   INPUT "Y"; Y    INPUT "D"; Z    IF ABS(X-A)+ABS(Y-B)+ABS(Z-C) = 0 THEN PRINT " " PRINT "B O O M ! ! YOU FOUND IT IN ";D;" TRIES!" PRINT "" : PRINT "" GOTO [OVER] END IF   GOSUB [SHOT] PRINT "" PRINT "" NEXT D PRINT "" PRINT "YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" PRINT "THE SUBMARINE WAS AT ";A;",";B;",";C GOTO [OVER] [OVER] PRINT "" INPUT "ANOTHER GAME (Y OR N)?";A$ IF UPPER$(A$) = "Y" THEN GOTO [START] PRINT "" PRINT "OK, HOPE YOU ENJOYED YOURSELF." END [SHOT] PRINT "" PRINT "SONAR REPORTS SHOT WAS "; IF T>B THEN PRINT "NORTH"; IF TA THEN PRINT "EAST"; IF XB OR X<>A THEN PRINT " AND "; IF Z>C THEN PRINT "TOO LOW." IF Z<C THEN PRINT "TOO HIGH." IF Z=C THEN PRINT "DEPTH OK." RETURN code