ZX Computings - OpenLibra

Catch
Avoid being trapped by your sneaky,
little ZX80.
The object of this game by
I Soutar is to avoid getting nabbed
by the computer. You
move by entering "5" to move
left, "6" to move down, "7"
to move uo or "8" to move
right. When you've moved, the
ZX80 will place a black square
on one of the four sides of your
position.
If you move onto the black
square, all hell will break loose.
Well, actually it won't, but the
game will end, and the ZX80
will tell you how many moves
you survived. Anything over 95
is very good, and you'll be
awarded a gold star.
1 RANDOMISE
2 LET B = 1 6
4 LET A = 6
6 LET M = 0
8 LET P = 0
10 LET W = 0
12 LET D = 0
14 LET C = 0
20 LET Z = - 1
25 GOSUB700
30 FOR I = 1 TO 9
40 PRINT,,,,
50 NEXT I
52 GOSUB 700
60 GOSUB500
70 POKE W + 181,20
Shift
winging across the seas from New
Brunswick, Canada, is Joseph Ho's ZX80
game based on the slide games in
which tiles with the numbers one to
15 have to be arranged in order.
When you press RUN, you'll see
a 4 x 4 grid. On it are the
numbers one to 1 5, and an inverse
space. The numbers are
scrambled, and you have to try
and put them in order with the
black square in the lower righthand
corner. The black square
represents an empty space.
The numbers can be moved
around by entering a number
that is directly above, below,
directly to the left or to the right
of the space. A rather quaint
error message — DO OVER —
appears if you try to cheat. The
number you've entered, if you
haven't cheated, and all the
numbers between it and the
space will shift one place
towards the space and the
space will appear in the place of
the number entered. Once
you've solved the problem, the
ZX80 will tell you how long it
took you to do it. You'll find it
fairly easy to convert this program
to run on a ZX81,
although it will not fit within 1K
as does the ZX80 version.
10 DIM All 5)
20 FOR A = 0 TO 15
30 LET A(A) = A+ 1
40 NEXT A
50 FOR A = 2 TO 15
60 LET B = RND|A>- 1
70 LET C = A(A)
80 LET A(A) = A(B)
90 LET A(8) = C
100 NEXT A
110 FOR A = 0 TO 1000
140 CLS
150 PRINT" SHIFT"
1 60 PRINT " "
170 FOR B = 0 TO 3
180 PRINT
ZX80 Programs
80 LET Z = Z + 1
90 INPUT C
100 GOSUB 500
110 GOSUB 600
120 POKE M,0
130 IF C = 6 AND A< 10 OR C = 7 AND A> 1 THEN LET
A = A — 1*C+13
140 IF C = 5 THEN LET B = B - 1
150 IF C = 8 THEN LET B = B + 1
160 GOSUB600
170 IF PEEK(M) = 1 28 THEN GOTO 400
180 POKE M,20
190 LET D = RND(4)
195 IF A = 10 AND D = 4 OR A = 1 AND D = 3 THEN GOTO
190
200 LET D = (D = 1) - 1 • (D = 2) + 33 #