(71B) Battelship Game for HP-71B

[Namir]

Simple game of battleship where you and the computer have 10 ships located on a grid defined by the corners (1,1) and (100,100). The calculator will then prompt you for (X,Y) coordinates that should be in the range of (1,1) to (100,100). Each of you and the machine drop bombs at various locations in the game's grid. If the bomb is close enough to a ship, then the ship is hit. The first player that looses all 10 ships loses the game.

The program displays the coordinates of your bombing and it they are successful. Likewise, it displays where the machine strikes and the success of that strike.

The listing below sets the game to play in automatic mode (i.e. the calculator plays both as itself and as you). To play in manual mode, set line 440 as DATA 0. The calculator will then prompt you for (X,Y) coordinates that should be in the range of (1,1) to (100,100). Each of you and the machine drop bombs at various locations in the game's grid. If the bomb is close enough to a ship, then the ship is hit. The first player that looses all 10 ships loses the game.

The program displays the coordinates of your bombing and it they are successful. Likewise, it displays where the machine strikes and the success of that strike.

Code:

10 REM SUB HUNT
20 DESTROY ALL
25 DEF FNR(M)=INT(1+M*RND)
30 DIM X(10),Y(10)
40 N=5@ RANDOMIZE
45 REM NUMBER OF SHIPS
50 P=5@ C=5 
55 REM AUTOMATIC MODE FLAG (0=MANUAL NOT 0=AUTOMATIC)
60 READ F 
70 FOR I = 1 TO N@ READ X(I),Y(I)@ NEXT I
80 FOR I = N+1 TO 2*N
90 X(I) = FNR(100)
100 Y(I) = FNR(100)
110 NEXT I
120 DISP "START"@ WAIT 2
130 DISP "SCORE ";P;":";C @WAIT 2
140 A = FNR(100)@ A$=STR$(A)
150 B = FNR(100)@ B$=STR$(B)
160 IF F<>0 THEN GOTO 190
170 INPUT "ENTER X? ";A$,A$@ A=VAL(A$)
180 INPUT "ENTER Y? ";B$,B$@ B=VAL(B$)
190 DISP "YOU BOMBED";A;",";B@ WAIT 2
200 FOR I = N+1 TO 2*N
210 D=SQR((X(I)-A)^2+(Y(I)-B)^2)
220 IF D>INT(5+6*F*RND) THEN 290
230 DISP "CALC HIT"@ WAIT 1
240 X(I)=-1000@ Y(I)=-1000
250 C=C-1
260 IF C>0 THEN 290
270 DISP "YOU WIN!"
280 END
290 NEXT I
300 A = FNR(100)
310 B = FNR(100)
320 DISP "CALC BOMBED";A;",";B@ WAIT 2
330 FOR I = 1 TO N
340 D=SQR((X(I)-A)^2+(Y(I)-B)^2)
350 IF D>10 THEN 420
360 DISP "YOU WERE HIT"@ WAIT 1
370 X(I)=-1000@Y(I)=-1000
380 P=P-1
390 IF P>0 THEN 420
400 DISP "CALC WINS"
410 END
420 NEXT I
430 GOTO 130
435 REM DATA 1 SETS AUTOMATIC MODE
440 DATA 1
450 DATA 15,15,30,30,45,45,60,60,75,75

[DoctorClu]

A friend of mine and were talking about the HP-71B and he mentioned it was a computer with 32K. That is about 16K short of my favorite computer, the Atari 800. So I said "Someone probably made a game on it even though the display is only one line of characters" And I was delighted to find this game to show what people will do.

Naturally would love to find other games, but might have to pull out my HP-71B (my friend claims he gave me one and I might still have it) and try this program out.