ZX Computings - OpenLibra

DRAUGHTS
This is a full game of draughts for the 4K ZX80. A complete
board is shown. You are at the bottom of the screen playing up,
and the ZX80 is playing down. You enter each move as a
LETTER NUMBER, then NEWLINE, of the square you're
moving from, then LETTER NUMBER, then NEWLINE, of the
square you're moving to. You'll understand this easily once you
see the display. You'll find the ZX80 plays like a reasonable
beginner. Once you've played with it for a while, you might
enjoy trying to improve its standard of play.
Although the computer has no strategy as such {other than
look for a capture, and if it can't make one, look for a legal
move) you'll find it plays as though it had a real method of
looking ahead at the game and where it is developing. Kings
are made automatically.
ZX80 Games
I
5
6
21
22
2 3
24
25
26
39
40
(in
41
42
4 3
44
45
46
47
48
49
50
GOTO 9000
FOR Z » 6 TO 40
IF Z > 37 AND A(Z) = 1 THEN LET
A(Z) = 2
IF Z < 10 AND A(Z) = - 1 THEN
LET A(Z) » - 2
IF P > 0 THEN LET SI - SI + 1
LET P = 0
IF A(Z) - - 2 THEN LET A(Z) = 188'
IF A(Z) « -1 THEN LET A(Z) - 180
IF A(Z) = 0 THEN LET A(Z) = 128
IF A(Z) » 1 THEN LET A(Z) = 189
IF A(Z) - 2 THEN LET A(Z) » 186
NEXT Z
PRINT ABCDEFGH"
PRINT "2X80 ";SI;"eight shift A"
the next section, 0 equals shift A)
PRINT ," 10 ";CHR$(A(40));" ";CHR$
(A (39)If" ";CHR$(A(38));" ";CHR$
(A ( 37))
PRINT 2&";CHR$ (A(36)) ;" ";CHR»
(A (35));" ";CHR$(A(34)) ;" ";CHR$
(A ( 33) ) "
PRINT 30 ";CHR$ (A(31));" ";CHR$
(A (30));" ";CHR$(A(29)) ;
" ";CHR$(A(28));"0"
PRINT ." 4 0";CHR$(A(27));" ";CHR$
(A(26));" ";CHR$(A(25));" ";CHR$
(A (24));" 0"
PRINT ," 5 0 ";CHR$(A(22));" "CHRf
(A (21));" ";CHR$(A(20));" ";CHR$
(A (19) ) ; " 0"
PRINT ," 6 0";CHR$(A (18)) ;" ";CHR$
(A(17));" ";CHR$(A(16));" ";CHR$
(A (15));" 0"
PRINT ," 7 0 ";CHR$(A(13));" ";CHR$
(A (12));" ";CHR$(A(ll));" ";CHR$
(A (10) ) ; "0"
PRINT ," 80";CHR$ (A (9)) ;" ";CHR$
(A (8));" ";CHR0(A(7));" ";CHR$(A(6)) ;
"
PRINT "HUMAN "/SI/" 00000000"
FOR Z = 6 TO 4 0
80 ZX COMPUTING SUMMER 1982