ZX Computings - OpenLibra

Here's your chance to play
battleships against the ZX80.
The programs asks you to enter
a number up to 10, and a letter
to J. These are to be entered
one at a time. The clever com-
ZX80 Programs
Battleships
A boom, boom here, and a bang, flash
there, and devastation covers the
seas, in J Calderwood's version of the
old pencil and paper game.
puter will then show where
your bomb landed. If you hit a
ship, it will be shown in inverse
otherwise it shows as an
asterisk. You have to try and
land three bombs on each ship.
5 RANDOMISE
10 PRINT "BATTLESHIPS"
20 PRINT
21 PRINT "THERE ARE 8 SHIPS EACH 3 SQUARES LONG"
22 PRINT "ENTER A NUMBER UP TO 10"
24 PRINT "AND A LETTER UP TO J"
30 DIM Z( 100)
40 FOR X = 1 TO 8
50 LET Y = RND(99)
60 IF 10MY/10) = Y OR 10"((Y- 1 )/10) = Y- 1 THEN
GOTO 50
65 IF Z(Y) = 10 OR Z{Y - 1 ) = 10 OR Z(Y + 1) = 10 THEN
GOTO 50
70 LET Z(Y) = 10
80 LET Z(Y - 1) = 10
90 LET Z(Y + 1) = 10
100 NEXT X
1 1 0 INPUT A
120 INPUT B$
130 LET B = CODE (B$)
140 LET B=(10*(B-38)) + A
145 IF Z(B) = - 1 OR Z(B) = 9 THEN GOTO 1 10
150 LET Z(B) = Z(B) - 1
155 CLS
160 PRINT "12345678910"
200 FOR T = 1 TO 100
210 IF Z(T) = 0 OR ZIT) = 10 THEN PRINT " ";
220 IF Z(T)= - 1 THEN PRINT "*";•
230 IFZ|T) = 9 THEN PRINT CHR$|148);
235 IF (T/10P 10 = T THEN PRINT CHR$(37 + T/10)
240 NEXT T
250 GOTO 110
102 ZX COMPUTING SUMMER 1962
mmm