ZX Computings - OpenLibra
ZX Computings - OpenLibra
ZX Computings - OpenLibra
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
4110 IF (A(Z - 13) = 1 OR A(2 - 13) =<br />
2 ) AND A(2 - 18) = 0 THEN LET<br />
P - 1<br />
4115 IF (A (Z - 12) - 1 OR A(Z - 12) *<br />
2) AND A(Z - 18) - 0 THEN LET P<br />
- 2<br />
4i20 IF P = 1 THEN LET A(Z - 18) »<br />
AfZ - 8)<br />
4130 IF P = 1 THEN LET A (Z - 13) - 0<br />
4140 IF P =< 2 THEN LET A(Z - 16) -<br />
Afz - a;<br />
4J50 IF P = 2 THEN LET A(Z - 12) = 0<br />
4160 IF P > 0 THEN LET A (Z - 8) = 0<br />
4170 GOTO 2<br />
4200 LET A(Z - 10) « A(Z)<br />
420 5 LET A(Z) = 0<br />
4210 LET A(Z - 5) ' 0<br />
4212 LET SI » ST + 1<br />
4215 IF Z < 2 5 THEN GOTO 2<br />
4220 IF (A ( Z - 15) - 1 OR A(Z - 15)<br />
= 2) AND A (Z - 20) = 0 THEN LET<br />
P - 1<br />
4230 IF(A (Z - 14) = J OR A(Z - 14)<br />
= 2) AND A(Z - 18) - 0 THEN<br />
LET P - 2<br />
4240 IF P " 1 THEN LET A(Z - 15) = 0<br />
4250 IF P - 1 THEN LET A(Z - 20)<br />
= A (Z - 10)<br />
4260 IF P " 2 THEN LET A(Z - 14) = 0<br />
4270 IF P " 2 THEN LET A(Z - 18)<br />
* A (Z - 10)<br />
4280 IF P > 0 THEN LET A(Z - 10) * 0<br />
<strong>ZX</strong> COMPUTING SUMMER 1382<br />
<strong>ZX</strong>80 Games<br />
4290 GOTO 2<br />
4300 LET A(Z + 8) = - 2<br />
4310 LET A(Z + 4) » 0<br />
4320 LET A(Z) = 0<br />
4330 LET SI " SI + 1<br />
4340 IF Z < 32 AND (A(Z + 3) = 1 OR<br />
A (Z + 3) " 2) AND A(Z - 2) - 0<br />
THEN LET P = 1<br />
4350 IF Z < 23 AND (A(Z + 14) - 1 OR<br />
A(Z + 14) - 2) AND A(Z + 16) -<br />
0 THEN LET P - 2<br />
4360 IF Z < 23 AND (A(Z + 13) - 1 OR<br />
A(Z + 13) = 2) AND A (Z + 18) =<br />
0 THEN LET P « 3<br />
83
Change language