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.
170<br />
180<br />
1990<br />
1995<br />
2000<br />
200 5<br />
2010<br />
2012<br />
2014<br />
2015<br />
2016<br />
2017<br />
2020<br />
IF ABS(C - B) - 10 OR ABS(C ~B)<br />
rn 3 THEN PRINT "MULTI-JVMP?"<br />
IF ABS(C - B) = 10 OR ABS(C - B)*<br />
8 THEN INPUT U$<br />
CLS<br />
IF U$ > "" THEN GOTO 2<br />
FOR Z • 6 TO 40<br />
IF Z < 9 THEN GOTO 2015<br />
IF A (Z) < 0 AND (A(Z - 4) " 1<br />
OR A (Z - 4) - 2) AND A(Z - 8)<br />
- 0 THEN GOTO 4090<br />
IF Z < 11 THEN GOTO 2015<br />
IF A (Z) < 0 AND (A(Z - 5) = 1<br />
OR A(Z - 5) = 2) AND A(Z - 10)<br />
* 0 THEN GOTO 4200<br />
IF 2 > 25 THEN GOTO 2020<br />
IF A(Z) - - 2 OR (A (Z + 4) = 1<br />
OR A(Z + 4) « 2) AND A(Z + 8) =<br />
0 THEN GOTO 4 300<br />
IF A(Z> « - 2 AND (A(Z + 5) = 1<br />
OR A(Z + 5) = 2) AND A(Z + 10)<br />
= 0 THEN GOTO 4400<br />
NEXT Z<br />
• •<br />
<strong>ZX</strong>80 Games<br />
RANDOM MOVE INTELLIGENT<br />
4005 LET KK - 0<br />
4007 LET U " 0<br />
4010 LET Z «= 6 + RND (35)<br />
4012 LET K - 0<br />
4015 IF U > 199 THEN LET KK = KK + 1<br />
4016 LET U = U + 1<br />
4020 IF A(Z) < 0 AND A(Z - 4) = 0<br />
THEN LET K * 1<br />
4026 IF A(Z) < 0 AND A(Z - 5) = 0<br />
AND K ' 0 THEN LET K » 2<br />
4029 IF K " 0 AND Z < 26 AND A(Z) -<br />
- 2 AND A(Z + 4) - 0 THEN<br />
LET K = - 7<br />
4035 IF Z < 10 THEN GOTO 4040<br />
4038<br />
4039<br />
4050<br />
4051<br />
IF K<br />
- 10)<br />
1 AND U < 200 AND A(Z<br />
' 1 THEN GOTO 4010<br />
IF K - 2 AND U < 200 AND A(Z - 10)<br />
" 1 THEN GOTO 4010<br />
4045 IF K - 0 AND KK < 350 THEN GOTO 4010<br />
IF K " 0 THEN LET SM « 12<br />
IF K - 0 THEN GOTO 2<br />
4072 LET A(Z - (3 + K))- A(Z)<br />
407 3 LET A(Z) « 0<br />
4077 GOTO 2 SAVE<br />
4092 LET A(Z - 8) = A(Z)<br />
4095 LET A(Z) - 0<br />
4100 LET A(Z - 4) = 0<br />
4105 LET SI - SI + 1<br />
4107 IF Z < 24 THEN GOTO 2<br />
82 <strong>ZX</strong> COMPUTING SUMMER 1982<br />
TO