BNA @BNA

		
			Cls
2 Print Tab(30); "DEPTH CHARGE"
4 Print Tab(15); "BEN ARCHARD"
6 Print: Print: Print
10 Print "DEPTH CHARGE GAME": Print
20 Input "DIMENSION OF SEARCH AREA"; G: Print
30 N = Int(Log(G) / Log(2)) + 1
40 Print "YOU ARE THE CAPTAIN OF THE DESTORYER USS COMPUTER"
50 Print "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR"
60 Print "MISSION IS TO DESTORY IT. YOU HAVE"; N; "SHOTS."
70 Print "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A"
80 Print "TRIO OF NUMBERS -- THE FIRST TWO ARE THE"
90 Print "SURFACE CO-ORDINATES; THE THIRD IS THE DEPTH."
100 Print: Print "GOOD LUCK !": Print
110 A = Int(G * Rnd(1)): B = Int(G * Rnd(1)): C = Int(G * Rnd(1))
120 For D = 1 To N: Print: Print "TRIAL #"; D;: Input X, Y, Z
    130 If Abs(X - A) + Abs(Y - B) + Abs(Z - C) = 0 Then 300
140 GoSub 500: Print: Next D
200 Print: Print "YOU HAVE BEEN TORPEDOED! ABANDON SHIP!"
210 Print "THE SUBMARINE WAS AT"; A; ","; B; ","; 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 "SNOAR REPORTS SHOT WAS ";
510 If Y > B Then Print " NORTH";
520 If Y < B Then Print " SOUTH";
530 If X > A Then Print " EAST";
540 If X < A Then Print " WEST";
550 If Y <> B Or X <> A Then Print " AND";
560 If Z > C Then Print " TOO LOW."
570 If Z < C Then Print " TOO HIGH."
580 If Z = C Then Print " DEPTH IS OK."
590 Return
600 End