22 LET MOm2

25 DIM BHC8,16>

30 LET Agu"xi51099999908080807
O707060G606050505040494039IOJOZJE
O20161010000000000-1-1-1-2-2-2-3
("3-IJ-4- 4-4 ŽA GL G-B- 7-77 -9-8
9-99. 9-J00  "

43 FOR Hmi TO 8 .

S0 FOR Mei TO 8

66 LET HsIMT Cl RMDKCCLENH R$-1)

722241 x2
78 LET B$(N,M42-1 TO MK2IRASČA
TO At13
82 IF ASCA TO Atiimu" o " THEH G
OSUB 1580

98 LET A$eA$6li TO A-i 4A$CAZ
TO LEH As)

166 HEXT M

116 NEXT H

128 KEM zcare

130 LET S$sg

140 LET Tema

168 GOSIJE 76

174 REM Plsuers move

175 COSIJE 3000

160 PRIHT AT 24%. 140 x-1 043
o inverse ASTERISKA)"

variables

jetij

156 PRINT AT 24Y, 144 x-1 2435BECY

»2tž-1 TO 244)

290 IF IMKEY4e"" THEM GOTO 188
210 LET ASmINKEVYs

213 IF Adtim"li" THEH GOTO 920
215 IF A$<>"9" FHD A$<>"5" AHD
piši< >"6" THEN GOTO 186

219 IF Ate"a" AHD BtilY, 24M4-1 TO
ZXmMoe" o " THEM GOTO 180

220 IF Agm"g" THEH GOTO 279
238 LET meč pise" gt) pgmteji
240 IF X36 THEM LET Kej

259 IF X<1 THEN LET Xmg

260 IF BHlY,24M-1 im" " THEN GOT
O 230 ;

c63 GOTO 1ga

ZP LET LPeVAL Btic', 24XX-1 TO 24
MI

275 PRINT AT ZAY,140M-1I0kGIHo"
ZGO LET Small Pp

290 LET Moaj,

295 LET B$CY,Z24Xx-1 TO ZIKA pri U

THE BEST OF SINCLAIR PROGRAMS. Spring/Surmer 1984

GOSIJE ?65

REM čomPutere move

GOSUB 48809

DIM RCA3

FOR He TO 8

LET Ve-108

IF Me" THEM ČOTO dA38a

IF B$H,.244-1 TO 2XNILIM O»
THEH GOTO J3EG

340 LET We-199

345 IF HmY THEN GOTO 426

350 GOTO 378

368 LET MeVAL BE(M,24X-1 TO Zgx
>

376 FOR Mel TO 8

379 FOR Mel TO 8

388 IF Mey THEN GOTO 418

390 IF B$(N,MK2-1 TO MEZIEI O o H
THEN GOTO 418

395 IF VAL BE(N,M42-1 TO MEZO4Y

THEH GOTO 418
400 LET VmwyfL, BSCH,MK2-1 TO Mkez
?
4i6i
428
430
446
450
466
THEH
4?
475
4BE
483
425
m,
kalij]
505
518
528
STO
540

NEXT M

LET RENJeLI-V

HEXT H

LET WVe-igG8

FOR Mei TO g

IF BSCN.2E4N-1 TO 24M em" "
GOTO desa
IF EC bo ai
LET VeReMI
LET feet]
HEXT M
LET LPeVAL B$cY,24N-1 TO zk

THEM GOTO 48

LET TseTai R
PRIHT AT Yk2,140MN-]1iga;H o
LET B$OY, 24%-1 TO ZEM ou
LET MOmZ
GOSIJH PES
GOTO 178
639 REM draw boarcei
"MG ČLS
"91 FRIKT AT G,Gsi"tnine inverne
SPAČELJ irvverze MATRIMsten inwer
me SGPATEAJU
"6 FOR Heidi TO S
710 PRIMT AT C24hI-1, OC tusenku

161

a ia st SV SEAN MA
br: pxči prena DRE Pro Ne JJ x Toner: RETORIKE PANASONIC NIN O EEA OI aa a a ai