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

' 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 T<B THEN PRINT "SOUTH";
    IF X>A THEN PRINT "EAST";
    IF X<A THEN PRINT "WEST";
    IF T<>B 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