20.02.2013 Views

ZX Computings - OpenLibra

ZX Computings - OpenLibra

ZX Computings - OpenLibra

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!