ZX Computings - OpenLibra
ZX Computings - OpenLibra
ZX Computings - OpenLibra
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>ZX</strong>80<br />
4 36 5 IF P 1 THEN LET A (Z + 3) - 0<br />
4367 IF P m 1 THEN LET A (Z - 2) - - 2<br />
4370 IF P m 2 THEN LET A (Z + 14) - 0<br />
4375 IF P - 2 THEN LET A (Z + 16) = _ 2<br />
4380 IF P m 3 THEN LET A (Z + 13) - 0<br />
4385 IF P = 3 THEN LET A ( Z + 18) = - 2<br />
4390 IF P > 0 THEN LET A (Z + 8) " 0<br />
4 395 GOTO 2<br />
4405 LET A ( Z + 10) - - 2<br />
4410 LET A(Z + 5) = 0<br />
4420 LET A(Z) - 0<br />
4425 LET SI = SI + 1<br />
44 30 GOTO 2<br />
9000 DIM A(45)<br />
9005 FOR Z = 1 TO 45<br />
9010 IF Z < 6 THEN LET A(Z) = 9<br />
PUN<br />
9020 IF Z > 5 AND Z < 19 THEN LET<br />
A(Z) = 1<br />
9030 IF Z > 18 AND Z < 28 THEN<br />
LET A(Z) = 0<br />
FOR<br />
9040 IF Z > 27 AND Z < 41 THEN LET<br />
A(Z) = - 1<br />
Games<br />
CON!<br />
GOSUB<br />
GOTO<br />
9050<br />
9060<br />
9070<br />
9080<br />
9090<br />
9095<br />
9100<br />
9110<br />
9120<br />
91 30<br />
9140<br />
9150<br />
9160<br />
9170<br />
9180<br />
91 90<br />
IF Z > 40 THEN LET A(Z) - 9<br />
NEXT Z<br />
LET A (14) - 9<br />
LET A (2 3) - 9<br />
LET A(32) = 9<br />
LET V$ -<br />
LET P " 0<br />
LET F$<br />
RANDOMISE<br />
LET SI = 0<br />
L£T SW = 0<br />
PRINT "DO YOU WANT FIRST MOVE?<br />
(Y OR N)"<br />
INPUT J$<br />
CLS<br />
IF NOT 3$ = "Y" THEN GOTO 2000<br />
GOTO 2<br />
84 <strong>ZX</strong> COMPUTING SUMMER 1982