Trailing-Edge
-
PDP-10 Archives
-
walsh_goodStuff_1600
-
more-games/checkr.exe
There are no other files named checkr.exe in the archive.
?p ` ?x G",:yKb)( <vU(` Oh J Q F: zkq) ?G
?{r E@@ B 8 tv S gg IN\
" Q R R T xS @ , GB` 8 ` gg 2@ IJNi98 ` gg Q 0 2@aKb ]8 \Y C I4 y Qp 6 ` y U V 2@=2@\`Kb M88 \y C I4 y T G ` T G M s E ( H E E 2@]4K.m{T b @ h H V( Y ]0 H$ $$ | 0V( Y { B C 2@c3gg [w b @ h H XH k c1 b @{ h H XH k C X` m H = 2@"a96 G F2@52@|2@C 2 < 2 h H Zh } jDZh } a 2 { | | GW K ,^ 7T ,^ 7k[( z
2@$@aQ I4 F2@"N 8 < 2 h H ] k( ] b6 Nf O" O" ] bK a* H$ NA 2@C5gnH1 ~ b @{ h H Zh } C1 J h _(! iO e -2@aj[' {x KQ N6 N> : 8 _8" ag2@AG[ t
Ke2@8
Y&t J R V J V aH3 82@<:Su
t G Hk n2@fgV L %+ # e b8 dG[$89 Ke No n x cHC b h H c(A JV 2@^32@^32@b Lr Lr F g2@ 0G[$:( Ke2@KgV %+ eGB` e d8J I 2@pM2@pMKb Hw Lr Lr F g2@ PG[$Hw Ke n x hg N 2@C(2@C(aLh Lj
h N ihu C' 2@9$2@9.[' {x Lj Lr Ld N l 9, 8 2@C52@C5gnH1
h N l C1 2@M7[' Y h L n` M5ghq Y ( h n` D& M M 2@}[' < h L t@K |gl=T ( h t@K Jc $@ )# . .F O < < -2 ; a e Etm,f@ 8 INX G, GB` @ - "9Y@ 0 A Mg w i S ? ([>p + R ~@t tgg GB` H JZh }] c1^HGB` gg GB` t O! 0I ? b * b @ h qB Kj Hk x O 2 r P g
m < H1g6 q 0 2 X' @EN H b E Kd I ,I
M2 _ (6gR] `Go. 8 P g# H$ 6$ P* g6$ *,_` $%@ ! haS<! Oy fO SYSIN xqI<T N( P p hxC2<X O PP HM7 N(y P g6$ L@ -iH vs hS<! r Rp K; SYSPRINT xI<T R Sh p
D % hC2<X Rp T0# H M7 R 2gRd XEQ; 0NDgR _ XEQ; 0(g6 @' HBg6$ X8 ` @' 8 I$8 O)I$8 0 [>tw X b + "X XB ( (QB ( "X XB * @ |! X |* b @@ 7 O@ !> |*> -4X @@ O@ !(Lu-4X !(i;-4X !(>9-4X !({-4X
&X , X & `
?CAN'T FIND HIGH SEGMENT ?x @ |! X |* @@ " b O@ !> |*> 6@ + /2B + 7@ ,~
&X ! , X &
&X $ , X &
&X &,~
%WARNING -- HIGH SEGMENT " " NOW FOUND ON :
@@ 7@ ,~ )@ .
" + X & ` R(5,LMOV,MOVX);
7120. IF (PNT = 1) THEN PUT SKIP LIST ('MACHINE MOVES FROM',X,Y);
7140. IF (JMP = 0) THEN DO;
7160. S(LBRD,X+A,Y+B) = S(LBRD,X,Y);
7180. S(LBRD,X,Y) = 0;
7200. X=X+A; Y=Y+B;
7220. END; ELSE DO;
7240. S(LBRD,X+A+A,Y+B+B) = S(LBRD,X,Y);
7260. S(LBRD,X,Y) = 0;
7280. S(LBRD,X+A,Y+B) = 0;
7300. X=X+A+A; Y=Y+B+B;
7320. END;
7340. IF (PNT = 1) THEN PUT LIST ('TO',X,Y);
7360. CALL PROMOT(LBRD,X,Y);
7380. IF (JMP = 0) THEN RETURN;
7400. ;
7420. /* WORRY ABOUT MULTIPLE JUMPS */;
7440. ;
7460. NXTJMP: CALL ISJMP(LBRD,X,Y,A,B,JMP);
7480. IF (JMP = 0) THEN RETURN;
75 gRd u 0$gR ( MON; Pg6$ XG l` -8p @j P;g6$HF \@ -h ZPr8 P?g6$rP?
} p >G Pzg
42 - H 2 p xgR H /* THIS CHECKER PROGRAM WAS DERIVED FROM ONE */; H g6$P Q 2 M'
HLg6$ Xn `2HICH HAD BEEN CONVERTED FROM BASIC. */; p PgR P ` /* ANY ERRORS IN THIS VERSION ARE THE */; H g6$` 0 ` 2 M' p $gR
/* RESPONSIBILITY OF JOHN SAUTER OF THE */; H (g6$ ;
20 M' ` /gR 0 /* ADVANCED SYSTEMS GROUP. */; H 4g6$P B 2( M' 0 :gR (
@ ; H >g6$x
@ 2! M' p AgR ! -76 */; 0
gR !P ; H g6$p % @ 2P M' `
gR ,p DCL TT FILE, STR CHAR(100) VAR; P'g6$%/ k@ -%p @g P)g
42 A H - P:gR
l` ASKTO: PUT LIST('TO'); P vg6$ -p vs P/gR P b`
DO I = 1 TO RX(1)-1; P_g6$Y`g P -\p @VK PgR B8 A IF (MOVX = 0) THEN DO; h TS<! -P
m A TT 0
}gR P@ ; ; H Fg6$p
2!P M' H Mg6$`
g 2,p M' h <gR %H @ DCL LOG FILE OUTPUT PRINT ENV(VFORM); h
S<!
R&
2 N LOG x
I<T# $`
& m h
C2<X#h %(
* X
%g6$" @ w 21h (aO5v;G x
+I5R#
'
9%H p 0 F(
@ h
1C25V& '`
> H H
8M7 #
2 O x }I<T h )@
L
Y h
CC2<X(H *
P h
KS<! ~/0
{ R[ STR x
QI<T*( ,
`
h
XC2<X+ ,P
e `
_g6$X
, w 2%H '{ *J= &!`o^Nqb x
fI5R h
D.H
t,p p 0 F(
{ 0 = h
lC25V-P /
y H x
sI5R*(
Y0( ,p ( ! F(
2 h
zC25V/0 2 _` 0 H
( X
?gR 1h `
DEFAULTh(RANGE(*)) FIXED; X g6$1 & ` w 24h $-RP;^8 G:A# THIS PROGRAM WILL PLAY CHECKERS. THE COMPUTER IS X, ` g6$2@ , $ 25H @CHAP 8 X %g6$ ~ $ 2?` a-@C Ab +gR ?` #?'AND YOU ARE O. THE COMPUTER WILL GO FIRST. SQUARES ARE'; PUT SKIP;
5 H M7 h
m
PgR :@ @ !?'IN THE FORM (X,Y) AND SQUARE (1,1) IS THE BOTTOM LEFT.';PUT SKIP; @G:A# t IN THE FORM (X,Y) AND SQUARE (1,1) IS THE BOTTOM LEFT. ` Jg6$8
7 @ $ 2Fp @CHAP K 8 x
6gR H0 ` START: OPEN FILE(TT) INPUT RECORD TITLE('TTY:'); PKg6$oh; $ w 2g8 <;G h YS<!
U. START x eI<T<h GH
<
1G:A# AND YOU ARE O. THE COMPUTER WILL GO FIRST. SQUARES ARE ` sg6$6
Q $ 2J @CHAP t 8 X
S<! fRP PNTLOG x
I<TA Bx
$ h
C2<XB C@
h
S<!
Vx9L PNTVAL x
I<TC` E@
, h
#C2<XDH F
0 @
O X Sg6$
C @ $ 2Q a-@C Ab h lC2<X=P H
A P
;g6$; 2Q @/ @
BG:A# K @ TTY: @ F a-@C Ab TITLE('CHECKR.LOG'); P Kg6$ [` -k0 vs P gR x R@ IF (RX(1) = 1) THEN DO; P!g6$4 , q` -5@ ZPr8 P VG:A# C INVALID TARGET `
Ug6$Jh
~ ` 2P@ 0&8 ` '$8 H
rG:A#
H CHECKR.LOG `
xg6$ 2P@ @(aOP
y tt8 H
g6$ P 2` M' j `
Gg6$ 2Qx @'{Eth4$] X
+g6$@@ w 2Wp !`
0x=Anqb x
SH 8 F( h x
$T0 8 F( X
1g6$F( g 2XH `7 x
X
Kg6$I@
s @ g 2N8 `7 x
R H /* DECLARATIONS */; p gR ] @ DCL R(6,6,20) FIXED; /* CURRENT MOVE */; h
^X 9 R x h
6V= 1`> 1`> !!`><p;\8 H M' x HSg6$ ( !` 2e M' H e # DCL S(6,8,8) FIXED; /* CURRENT BOARDS */; h
S<! @f@4 9 S xI<Tb@ d " E hC2<Xc( dh& p!g6$aP/ # w 2ex
8P= 1`> A`> A`><p;\8 H'g6$ a # 2< M' x.I5Rb@n(re P F( H `g6$ ( $ 2 M' hS<!
DCL L FIXED; /* LEVEL */; h}S<! ` 6 L B XkC47d <
X
gR %@ DCL (VAL, MOVX, DEPTH) FIXED; hS<! (. Y, VAL xI<Trx tX% 2 h C2<Xs` u * h$S<! ]X< ! MOVX x+I<Tu@ w : h1C2<Xv( wh> 0QgR &` ; xI<Tp@ yHL hDC2<XxP zQ HWgR zx ( /* INITIALIZE */; HRg6$z0i ( 2} M' hVgR } ) STR='010001000000-1000001000000-100-1'; p[G:A#
y 010001000000-1000001000000-100-1 Xag6${@ ) g 2h @?
8g >)' @hgR h *@ DO X = 1 TO 8; hnS<! axy < X xrI<T~0 g 0g 4% x:I5Rp@EX hC2<X( h& `!g6$r X %@ w 2 !` =0Au;G x'I5Rrx `6 ` F(< h-C25Vh (: H D x5I5Ru@2@D ` F(J h;C25VH H H R xCI5R@
R ` F(2s hIC25V (
hV H H?g6$xW &` 2zx M' @ gR X +` DO Y = 1 TO 8; h\S<! s cXg < Y x`I<T
( hfC2<X
x 8s ng6$ PJ +` z 2 } @C@ `A Aa7 `n"I` 8"hj8 0tg 4% x|gR )( - S(1,X,Y) = SUBSTR(STR,MOD(X-1,2)*16+2*Y-1,2); Pmg6$@U f@ - > g 0IgR + . END; hxC2<X H g6$}pu *@ z 2 @?L@ `A Aa7 `n"I` 8"hj8 PgR ;P 8
CALL MAKMOV(MOVX,1,1,1); Pg6$PP
I` 2Q@ Py Pg6$R L 2RH @S P g
:H ` 8v 2 RH } Prg6$ - >@ o 2UP @ "2g P+g6$<@2 >@ 2( @Py P~gR 0` 7
MOVX = (RX(1)*RANDOM)+1; PegR }h W@ PUT SKIP LIST ('FROM'); P1g6$F(@ B o 2H? @ "Lg P ig6$ w -^x vs P Zg6$ & -dh vs Psg6$ Hx g` - > @e PNg6$ * Z `( VK P&g6$2X1 9@ o 26 @ "Lg P
g6$!0 [ j -%p VK Pig6$ END; Hmg6$ hy /@ } 2h >G 0pgR 0` ; Hug6$ ` 0` 2 M' HxgR 2 /* INITIAL MOVE */; H|g6$ X 2 22 M' @gR 2 3 RANDOM()=0; hS<! 6" + RANDOM x I<T!( # q hC2<X" #P (
hS<! a% ( 9B MOD x I<T$ %x/ < h'C2<X% &@4 h.S<! !'H< <5 SUBSTR x5I<T&` (@D h;C2<X'H )H `Cg6$X - g 2+} ' *J8 s 8
g6$Pq . } 2X} >G 8gR , 4@ RX(1)=1; `\g6$+P 4@ g 2/x `7 8 hhb H_gR /x 5` CALL LSTMVS(-1,1); heS<!
.82s m LSTMVS xjI<T-0 /y O hpC2<X. /X} hxg6$,h 5` o 20` 3 `- K,8 x;g6$H] 7 g 2;P h C2<X4 5@, M 0^gR 6 :` ; H-g6$5`; :` 270 M' X0gR 70 < /*LOOPPLAYING THEGAMEO*/; H4g6$6XB < 28( M' 0:gR 8( = ; H>g6$7x7 = 2( M' s h S<! kXXEE 4N MAKMOV xGI<T9 :hV hNC2<X9p ;0[ pUg6$h 8 o 2x =08 8 8 8 9 b pAgR x >@ NXTMOV: CALL GETMOV; /* GET USER'S MOVE */; x8gR @p ?` CALL EVAL(-1,1,VAL,MOVX,2); /* FIND BEST MOVE */; hjS<! eh(6 *x EVAL xqI<T>( @ hxC2<X? @P g6$=0 ?` o 2Ap `- "Kg`uA`8 `8 @("y' Hg6$ ?` 2B8 M' ` xg6$ A 2Kh =08 ` '$8 Hg6$ F A z 2Kh? o)b hcS<! V1 Bs NXTMOV x I<TC` E@, l h#C2<XDH F0 @>gR h B CALL PNTBRD; XEgR H C@
@ H@ CALL PNTBRD; /* PRINT THE BOARD */; Hcg6$ # H@ 28 M' @gR 8 I` GO TO NXTMOV; 0"gR Q@ K ; Hg6$Q( K 2RH M' @ gR L GETMOV: PROC; H'g6$ ` L # -m` P.qb xI5RLXlT p F((6 8 hC25VS TP H `,gR l M@ DCL (I, X, Y, A, B, U, V) FIXED; H1g6$ >@ 2@p M' x,I5RC`$W9x @ 0 F( 0 h0C25VV WX 2 0g 4% pBgR Y N` /* GET A MOVE FROM THE USER AND MAKE IT */; HAg6$X( t N` -\p M' HHgR H P TRYAGN: RX(1)=1; hMS<! L]PY U9 TRYAGN xQI<TZ( \` & hXC2<X[ \Pe ` sg6$ P g - `7 8 hhb xfI5RZ(Y 0 H @ 0 X} 0 H]g6$ d G 2
@ M' h&S<! r 2` 4 I xyI<T_ a hC2<X` aH
hS<! zUx 0 A x hS<! [ ) 1 B x"I<Td0 f1 > h(C2<Xe fX5 h0S<! #dX> : U x6I<Tfx hXE R h=C2<Xg` i J hDS<! 7f8R ; V xKI<Ti@ k Z Y hQC2<Xj( kh^ xYg6$TpI M@ w -Y
8!`# Y^iAu;G x_I5R_ mxol X hgC25Vm H xnI5R~0yoX}l X huC25Vn` H x|I5R
gq8 l Xh hC25Vp@ H o x
I5Rahsl X hC25Vr H ' xI5Rd0)tx'l X. h C25Vt H 5 x&I5Rfx>vX5l X< h-C25Vu` H C x4I5Ri@Rx8Cl Xm h;C25Vw@ H H/gR Q CALL LSTMVS(1,1); `gR zH S` PUT SKIP LIST ('MACHINE WINS'); hhg6$yh^ S` $ -{h a-@CHAPi 8 8SgR {h U STOP; HZg6${0f U 0 -|` X' 0]gR |` V END; Hbg6$|0n V } -` >G @@G:A# i FROM hig6$z W@ $ -( a-@CHAPj 8 XmgR ( X`
READ FILE (TT) INTO(STR); Xtg6$~P X` % -P @'{@*K
Rg . `Ig6$y Q o - x `8 `8 @"5G h
cg6$LH R@ -}h `8 " y
8DG Hg6$ T R@ z -}h o)b 0ROR BEGIN; ?'REENTER'; GO TO TRYAGN; END; Hg6$X! Z -8 @Ib H g6$ O Z k `8 5g H G:A# j REENTER HYg6$ s Z } ` >G m hlC25V]P H g ` gR 8 [ GET STRING(STR!!' ') LIST (X, Y); HrgR
X \@ ON ERRORESYSTEM; XTgR h ]` -P `8 ?L8 a 8P8 ` $8 HEg6$ d ]` z -PS o)b 0Mg 4% pRgR
H _ ?'THERE IS NO "O" OCCUPYING THAT SPACE'; xUG:A# o THERE IS NO "O" OCCUPYING THAT SPACE `\g6$
`i _ $ - S @CHAP] 8 @cgR ` GO TO TRYAGN; - @5G:A# & png6$hU [ -
X *J8@c>8gK@?LF@CFCG 0hgR a@ END; h=gR d IF (R(1,1,I) ^= X) THEN GO TO NOTMV1; P gg6$M l {` -M@ j POgR dh /* WE HAVE THE MOVE */; P %gR l0 @
IF (JMP = 0) THEN DO; P&GG:A# #g ILLEGAL TARGET |g6$XH d -!p> `8 `8 Wh8 hZY`~1` G$8 hS<! R P& )g NOTMV1 x I<T A f (L Hyg6$(5 a@ } - hS >G ng6$ x b` z -$(> @Wh@ `A `8 " !a7 `n"I` 8"hj8 04g 4% h%C2<Xh `F P@g6$ d -!p> e (G `%g6$ Z Z $ `( @CHAP& 8 hGgR !p e IF (R(2,1,I) ^= Y) THEN GO TO NOTMV1; @IgR f@ GO TO GOTMV1; h[S<! &8f Ey GOTMV1 x_I<T `n heC2<X h (r @gR X g` NOTMV1: END; HTg6$ " g` } -P> >G xwI5R & HX @ 0 X3 0 h|C25V P ! x @!gR H j GO TO TRYAGN; Tg6$XJ e - > `8 `8 Wh8 hZY`
` G$8 XgR $( i A# ] THAT PIECE CANNOT MOVE `g6$"pd i $ - H @CHAP 8 hcgR 8 k@ GOTMV1: /* ASK WHERE TO MOVE TO */; H Zg6$ P k@ -8p M' x.I5R f'0;8 @ 0 Xg 0 h2C25V&8 'x / h dS<! `<p Eo ASKTO A Pg6$ e - > e XmgR *H n
READ FILE (TT) INTO(STR); XNg6$)pf n % -,h @'{@*K
Rg xSgR ,h o ON ERROR BEGIN; ?'REENTER'; GO TO ASKTO; END; P+ gR 5H l S(L+1,X,Y) = S(L,X,Y); HYg6$+ k o -30 @Ib Heg6$ o o k A30 5g `jg6$ u o $ A.X @CHAP& 8 Png6$ z o A/( j Htg6$ o } A-0 >G 0 Qg 4% x@I<T( 1 : hC2<X0 1` ` @gR 30 p@ GET STRING(STR!!' ') LIST(U,V); P
gR b8 `
DO I = 1 TO RX(1)-1; pg6$2
i p@ -M *J8@c>8gK@Y^F@Z0FCG HgR M q` ON ERROR SYSTEM; X
hgR 5@ s JMP */; H%g6$4hS s -:8 M' 8+gR :8 t JMP = 0; h/S<! Ah: %j JMP x3I<T6@ 9PM | e @OG:A# TO `Bg6$ T l` $ -*H @CHAPC 8 h9C2<X7( :Q XLg6$6\ t g -;H `7 x4 8RgR ;H u@ A=U-X; hXg6$; ( u@ g -E Y^8 ?L8
@ 0 X 0 hfC25V<p >0 G 'gR Q x IF ((ABS(A) = 1) & (ABS(B) = 1)) THEN GO TO VALMOV; P-abhRX p 6 O" P'g6$ph(0U` 2 @OK P?2gR vx /* VALIDATE A MOVE */; PK_g6$ < Ld{@ 2 LH A [ P%
g
42 $ H - &8 P"9g6$ H#"@ -1 AK P!g6$8!" -( VK PELg
:H GW 8Embx2 Wx Eu 0gR M@ } END; hbg6$<0
v` g -Q Z08 C8
8 P lgR {`
`
S(1,X+A,Y+B) = S(1,X,Y); P$Yg6$ $i;@ -M$, !w P#4gR H@ @@ /* WE HAVE THE MOVE */; P Eg6$X` @ -` @tM p &gR I y IF ((ABS(A) ^= 2) ! (ABS(B) ^= 2)) THEN DO; Ag6$H( R y -V0 X:8 hNY` G ~# # sV8 ` G z8DG H Hg6$ \ y z -V0 o)b X~gR KH z@ ?'INVALID TARGET'; PUT SKIP; `
mg6$Jp b z@ $ -L( @CHAP
n 8 X [g6$ z@ $ -@ a-@C Ab @ agR @ {` GO TO ASKTO; H $g6$DP 3 } } -J( >G P$g6$ % '@ Q0 !K htS<! 4O@ | 9 ABS x tI<TNX P8 h {C2<XO@ Q g6$>P ' x -I X:8 hNY` ' ~" # sV8 ` ' x8DG h S<! u`X
VALMOV x I<TR0 T ! , h C2<XS TX % P g6$ I x -I tM h kgR V0 ~ JMP = 1; A = DIVI(A,2); B = DIVI(B,2); X +g6$UH : ~ g -g `7 x4 h 2S<! e@ , i^ DIVI ~ Pyg
42 H - -0 xgR GX @ VALMOV: /* WE NOW HAVE A VALID MOVE. IS IT LEGAL? */; h gR ZH IF (R(1,1,I) ^= X) THEN GO TO NOTMV2; Mg6$Y`K -^x `8 `8 Wh8 hZY`~1` G$8 h SS<! 8 H c )` NOTMV2 x [I<T[H ]( j h bC2<X\0 ]p o hJgR ^x IF (R(2,1,I) ^= Y) THEN GO TO NOTMV2; pg6$^ j -p `8 `8 Wh8 hZY`
` G$8 * H <g6$ @ -b8 M' x I5RR0 aP g6$2` T ` z - p @Wh@ `A `8 " !a7 `n"I` 8"hj8 0 g 4% h igR p @ IF (R(3,1,I) ^= A) THEN GO TO NOTMV2; Hg6$ c -l0 M' w x 7I<TW f8 3 c h +C2<Xe@ g 8 p 2g6$ y ~ g -o
X:8 8 hW `7 x P'Qg6$ '\X ${@ ! h
gR iH ` IF (R(4,1,I) ^= B) THEN GO TO NOTMV2; Eg6$h`
_` -k0 !`8 `8 Wh8 hZY`d1` G$8 h
^gR k0 IF(R(5,1,I) ^= JMP) THEN'GO8TO NOTMV2; Sg6$jHP -dh 0)`8 `8PWh8 hZY`6A` G$8 ` 6 8T 0 Og 4%cP . p 9g6$ = ~ g -`
Y
8 8 hW `7 x# g6$d @ -iH `8 `8 Wh8 hZY`ai` G$8 P"Mg6$)`"V* -*` ZPr8 P"gR $ &
READ FILE(TT) INTO(STR); P&1g6$f(' I -sH$, Aw P,gg/ ,J: N/
: N/
PKZabh ;0KQ z Ld P!&g6$p!. ` -h Ay PAxg
:H 8B; 2 0 B! @ ]gR up
S(1,X,Y) = 0; x *g6$u0 :
g -w( m
`7 8 s "0G` ax @ .gR w(
G^8`?L8 h 9g6$ KY
8
G^8`C8 @ @gR y8 @ END; ELSE DO; H Fg6$xx P@ } -m m >G H Jg6$ 0@ z -p u o)b X tgR ` S(1,X+A+A,Y+B+B) = S(1,X,Y); @ /gR H S(1,X,Y) = 0; 0 -g6$Eh /
` g -up m `8 ?L8 a 8P8g "yG "' d8 a # `8 >
P$hg6$ $w<` -Nx$, !w P YG:A#
n ILLEGAL MOVE P! g6$0 x - !y P Cg6$@ H - @vs H ;gR S(1,X+A,Y+B) = 0; |g6$P
8
G` ax 0 gR X @ END; H g6$( w@ } -z u >G H
gR p ` CALL PROMOT(1,X,Y); h S<! \ M(Lj r PROMOT x I<Th H $ ! h C2<XP ) @ vgR ~0 GO TO DUNMOV; ! H Sg6$zH <` g -H u ! `8 ?L8 a 8P8g "yG "' d8 X:8
G`
`d1` # `8 >
x Yg6${ g - u
`7 8 s "0G` ax @ rgR NOTMV2: END; H wg6$ _ } -b8 >G x GI5R[H c
@ T @ 0 X!3 0 h KC25V H H H SgR p @ ?'ILLEGAL MOVE'; ` mg6$ (!E@ $ -X @CHAP n 8 ^gR X ` IF ((JMP = 0) & (R(5,1,1) = 1)) THEN ?' - MUST JUMP'; P?Zg
:H & 8?ap2 0 yH ?i P!DG:A# n - MUST JUMP p #g6$ s` o -~0
`8 ?L8 a ! Z8 h *S<! 0! 8 DUNMOV x }I<T` @!
!y h!C2<XH ! 8" gR ` PUT SKIP; X!g6$( $ -C0 a-@C Ab @!gR C0 GO TO TRYAGN; 0 gR ( @ ; H! g6$x ! @ -h M' x!!gR t ` DUNMOV: /* NOW WORRY ABOUT MULTIPLE JUMPS */; H g6$ !T ` -@ M' x!-I5R`!(!:t @ 0 X# 0 h!2C25V0 p !. H!Sg6$ !^ ( -h T' dg6$
P"` -` mP8 ` ' 6V8 ` ' x8DG X!9gR @
IF (JMP = 0) THEN RETURN; `!Mg6$h!A -h mP8 ` '$8 H!@gR h ! X=X+A+A; Y=Y+B+B; p!Yg6$ !e! g - X ?L8 X:8
G "' d8g >yG p!]g6$ ! g -1 C8 Y
8
G "G d8g >0G `!dgR B` "@ MULJMP: CALL ISJMP(1,X,Y,A,B,JMP); h!kS<! ~2!y e MULJMP x!qI<T ( '(": "z "7 ` qg6$ !` $ -` @CHAP r 8 X#gR !P #`
IF (JMP = 0) THEN RETURN; `"g6$ x"#` -#@ mP8 ` '$8 H"
g6$ " #` ( -#@ T' H"gR #@ % PUT LIST ('TO'); `"g6$"x""% $ -$ @CHAPC 8 X
g6$qP"/& % -%p @'{@*K
Rg x"!gR %p '@ ONHERRORBEGIN;?'REENTER'; GOTO MULJMP;'END; H"&g6$$x"3'@ -(p @Ib H".g6$ $'@ k (p 5g ($ h!xC2<X 'p"? ` gR (p (` GET STRING(STR!!' ') LIST (U, V); p"@g6$( (` -q *J8@c>8gK@Y^F@Z0FCG H"FgR q * ON ERROR SYSTEM; 8 gR *` + RX(1)=1; `"Qg6$*("`+ g -, `7 8 hhb H"UgR , ,@ CALL LSTMVS(1,1); `"[g6$+@"l,@ o --@ `8 `8 @"5G X"gR -@ -`
.Ab x#I5R (!y3#B` @ 0 X'! 0 h#C25V2 3P # 8#QgR 4( 0 B=V-Y; h# g6$3p#I0 g -9 Z08 C8
8 p#!gR 9 1@ IF ((ABS(A)^=I2)]! (ABS(B) ^=02)) THEN DO; P&g6$bp H -sH$, !K D P%bg6$ $D?; -H@$, !w P$vg6$ %c> -\8$, !w H P#xg6$?$ 4 -@ #] !K ` P%\g6$ $Z: -K($, !w #(g6$5#X1@ -I X:8 hNY` G ~# # PsV8 ` G z8DG h"og6$.#"/ g -4( Y^8 ?L8
:H ,^ 8(lh2 ( (t x%MgR C` 7` /* WE NOW HAVE A VALID MOVE. IS IT LEGAL? */; H$g6$Bh$"7` -D( M' $Ng6$Ip$59 z -m$, @Wh@ `A `8 " !a7 `n"I` 8"hj8 0$!g 4% h$+gR FX : IF (R(1,1,I) ^= X) THEN GO TO NOTMV3; $.g6$Ep#D: -K($, `8 `8 Wh8 hZY`~1` G$8 h$4S<! "tt%U )` NOTMV3 H 7g6$G& @@ -ch$, M' %L X$
g6$A0%6@ g -Qx `7 x4 P$ gR D( 9
DO I = 1 TO RX(1)-1; h#CgR K( ;@ IF (R(2,1,I) ^= Y) THEN GO TO NOTMV3; $Sg6$J@ 3;@ -M$, `8 `8 Wh8 hZY`
` G$8 h 2gR M <` IF (R(3,1,I) ^= A) THEN GO TO NOTMV3; $ag6$L( i<` -Nx$, `8 `8 Wh8 hZY`ai` G$8 h hgR Nx > IF (R(4,1,I) ^= B) THEN GO TO NOTMV3; $pg6$N#:> -\8$, !`8 `8 Wh8 hZY`d1` G$8 h#9gR \8 ? IF (R(5,1,I) ^= JMP) THEN GO TO NOTMV3; PE gR p( ;`
JMP = R(5,LMOV,MOVX); H og6$ "G'@ } &8 >G p$Hg6$ %N6@ g -Yh
X:8 8 hW `7 x P-<g6$WX73Q@ ,^v8 AUE X$CgR ch A` S(1,X+A+A,Y+B+B) = S(1,X,Y); P>g6$ >T %5j@ !w
% NM P&Xg6$k&`O@ -l !K P<jg
:H m 8<qgp2 0 J <y PA<g6$PB' @ m$x B; P@kg6$ @w mx "; PA[g6$@Aa"` 2 A[Q @& gR e0 C S(1,X,Y) = 0; & p%g6$ $ 6@ g -C`
Y
8 8 hW `7 x# x$<I<TGX [P%] ' h%TC2<XZX \%a $~g6$Ox#5? -H@$, )`8 `8 Wh8 hZY`6A` G$8 H&*gR ^ D S(1,X+A,Y+B) = 0; %jg6$]8%}D g -_X$, `7 8 s `8 C8 Y
8
G` ax H%ogR _X E@ X=X+A+A; Y=Y+B+B; p%xg6$_&E@ g -`H$, ?L8 X:8
G "' d8g >yG p%|g6$ &E@ g -b $, C8 Y
8
G "G d8g >0G H&gR b F` CALL PROMOT(1,X,Y); p&
g6$a8#0F` o -6 $,
`8 ?L8 a ! Z8 @&gR 6 H GO TO MULJMP; 0''gR m J@ ; &f H%g6$S8&+A` g -e0$, ! `8 ?L8 a 8P8g "yG "' d8 X:8
G`
`d1` # `8 >
x%Hg6$Y%pC g -^ $,
`7 8 s "0G` ax @#/gR r I NOTMV3: END; X&hgR g@ K` /* NOT FOUND IN MOVE LIST */; H&5g6$fh&CK` -h8 M' 0&;gR h8 M ; H&?g6$h&MM -iX M' X&BgR iX N ?'ILLEGAL TARGET'; PUT SKIP; `g6$i &SN $ -j8 @CHAP 8 X&Lg6$ %0N $ -V a-@C Ab @&RgR V O@ GO TO MULJMP; 0%/gR l P` END; H&\g6$kP&nP` } -RH >G 0&_gR m` R ; ' H&g6$c0&<J@ -g@ M' H&cg6$lH&zR 2o( M' &mgR o( S /* EVALUATE A POSITION, GOING DEEPER IF NECESSARY */; H&qg6$n('S 2p M' 0&ygR p T@ ; H&~g6$op T@ 2 M' h'gR @ U` EVAL: PROC (G, L, VAL, MOVX, MAXDPTH); h S<! $=38' 3 G x'
I<TqP P( (" 'f H g6$ &iI } -D($, >G x'I5RGX%Uu'(r @ 0 X 0 h' C25Vt uP ' h) gR H W DCL (RXMAX, I, J, X, Y, NMEN) FIXED; x)xgR wP X IF ((L > MAXDPTH) ! (L > 5)) THEN GO TO COUNT; x'4g6$vX AX ${@
<8!n8dI`pA` ' ~$ ia h'<S<! (D h'K T COUNT x'CI<TxH z('R 2 h'JC2<Xy0 zp'W 0 @gR {@ Y@ ; H'Xg6${(YY@ $ M' p'[gR Z` /*hNOT DEEPENOUGH, LOOK AT CONSEQUENCES */; ( h'.S<! (8'o U5 RXMAX x'gI<T} ~h'v ( h'nC2<X}p 0'{ h'uS<! 'hx( 5 J x'|I<TP 0( (K h(C2<X 8 x( 0+"g 4% (\ h'C2<Xr8 ( h(S<! '
S<! '} (K Oe NMEN x(CI<TH
((R 'K h(JC2<X 0
p(W H'_g6$|*6Z` $&h M' *q x$I5RqP'
`(f B) ( h(]C25V h ) x(eI5Rp@@(t B(z ( h h(kC25V x)I5R8("`) B)+ ( h)C25Vh )3 p(Qg6$up'=W w $wP !`'h WhP8yA`a"=Anqb x)#I5R}'o0)3H x B)G h)*C25V8 H )O x)2I5R h)AH x B(^ h)8C25V H (f x)@I5RP(p)OH x B)q h)FC25Vx H )y x)NI5R~0vP)]H x B)c h)TC25VX H )k x)\I5R
0)kH x B)9 h)bC25V 8 ( H )A x)jI5RH(K )yH x B0N h)pC25V 1 H @(XgR &h \ RX(L) = 1; H*5gR ! ] CALL LSTMVS(G, L); h*g6$ 8*] o $"( ! 48 K,8 @*gR "( ^@ RXMAX=RX(L)-1; p*
<8 ` ' " t' y
8$8 0*CgR ) d` END; h)~g6$ x*\ g $! `7 `: 8 8(gR .8 b MOVX=1; 8*rgR (@ c@ RETURN; H*?g6$(*Hc@ ( $)( T' H*2g6$&8*Yd` } $40( >G x*GgR + f IF (R(5,L,1) = 1) THEN MAXDPTH = MAXDPTH + 1; P=
gR D t@
B =`-SIGN(S(L,X,Y)); x*Lg6$)P*ff $/
:H %5 8; 9p2 0 + ; `*Xg6$ *yf g $/ ! n8 ` y`9b h*egR / g /* LOOK DEEPER IF WE HAVE A JUMP */; +Y X*<g6$'P*Db g $(@( `7 x, H*kg6$-@+g $0 M' H*xgR 0 h@ DO I = 1 TO RXMAX; *|g6$/X+h@ z $u+
@Wh@ `A! "8[`87B8
GE Z z 0+g 4% @+ gR 2 i` DO X = 1 TO 8; +
g6$1P+Zi` z $88+ @?L@ `A Aa7 `n"I` 8"hj8 0+g 4%1 @+gR ;( k DO Y = 1 TO 8; 0+Yg 4%3 H*+g6$ *sa z $+( o)b PF]gR lX >
IF (JMP = 0) THEN DO; (`g6$,+:l g $7(+ <8 s "0G` a y`pA` ' d8 s "0G` ax 8++gR 7( m@ END; END; H+6g6$6p+?m@ } $;(+ >G H+9g6$ +Cm@ } $2+ >G %%g6$T`,.n` o $Eh+
Wh8 "B `8 `8 @ "d' h+BgR Eh p CALL+EVAL(-G,L+1,R(6,L,I),J,(MAXDPTH)); P=}g6$ ? %5p !w P+aabh<(-3 9 P?Fg6$xp?L` 2yH AVi P-KabhYH- z Mx P,-gR G q
IF (PNTLOG = 1) THEN DO; `+VgR @X r@ PUT FILE(LOG) LIST ('LEVEL',L); @+zG:A# LEVEL h, g6$?8,r@ $ $B@+W @(aHAP, "Bg$ ,gR B@ s` IF (R(5,L,I) = 1) THEN PUT FILE(LOG) LIST ('JUMP'); , g6$A@, s` $O8+W )`8 <8 z 6V8 ` '$8 @,G:A# , JUMP `,g6$ ,{s` $ $dh+W @(aHAP, 8 `, gR O8 u ELSE PUT FILE(LOG) LIST ('MOVE'); (,q 8+Jg6$98,:p o $G +
! 48g`pA` ' d8
8 "}` a OJ8 `+ug6$>h,sq $`+
0&8 ` '$8 ,zgR dh v %PUT FILE(LOG) LIST (R(1,L,I),R(2,L,I),R(3,L,I),R(4,L,I),'VALUE',R(6,L,I)); PgI$8 PGogR ~x G
S(LBRD,X+A,Y+B) = 0; PIgR
H L CALL PROMOT(LBRD,X,Y); PIngR h [ CALL PROMOT(LBRD,X,Y); P2zg
:H *a 83)52 -` 31 PB
g6$ B{$ w &/0 ;G PGg/ N. : N/ P@^g6$ @l` m.&u $ $dh+W @(aHAP,w 8 P/-gR o8 }` ELSE PUT LIST ('MOVE'); P2,gR & $@
/* LIST ALL MOVES */; P25gR Zh '
LSTMVS: PROC(G,L); P?>g6$ ? %5qx !w GfH M , M P<g6$@p< y@ *aA8 Aj; P<Jg6$I8<Q` 2J A`A P=pg6$ =~` %5` !w
JUMPS: DO X = 1 TO 8; P5>g6$ 4H2 ,^I 2j !UE P;xg6$ <w *a@(= !j; PKUabh :`+q | Mx P-{gR ` z
IF (PNTVAL = 1) THEN DO; P-
g6$Q82n' 2-` @K- P0<g6$X0D $H A PJtgR /( h`
DO Y = 8PTOg1BY -1; P>kg6$ ?? ` %5wp !w@ w@ PUT FILE(LOG) SKIP; X-ng6$]x-|w@ $ $H+W @(a a- Ab 0-sgR H x` END; H-xg6$.x` } $N0+W >G `-Pg6$Z.z $sx+
0x8 ` '$8 H. g6$ .z z $sx. o)b 0.g 4%1 H.
gR b0 { IF (L= 1) THENDO; `. '$8 H.g6$ .s{ z $s . o)b 0.g 4%a8 n.q @,?G:A# ,w N VALUE 0.!g6$H -tv $ $^@+W :@(aH@8 "}` a,I)); x.?g6$h.] $ $kP. -@CH@8 "}` a
PUT LIST ('DEPTH',DEPTH); @.dG:A# ." DEPTH 8/ gR q ` PUT SKIP; /- .8g6$g/.|@ $o8. )`8 <8 z 6V8 ` '$8 `- g6$P.H}` $ $i . @CHAP,w 8 h.jg6$lX/@ $ $q . @CHAP.k "
g$ X.ng6$mp/` $ $r. a-@C Ab 0/gR r END; H/
g6$qX/ } $c. >G 0/gR s END; H/g6$rP/ } $`p. >G 0/gR sx @ END; H/g6$sH/(@ } $0 +
>G H/ gR u ` VAL = 1000; J = 0; X/#g6$t@0` g $( `P8g >Kg /i `.rg6$ .{|@ $ $i . @CHAP, 8 H0gR }@ DO I = 1 TO RXMAX; /sgR x(
IF ((VAL > R(6,L,I)) ! ((VAL = R(6,L,I)) & (J < DEPTH))) THEN DO; P/8g6$w/O
$ @/t # <^8 1`8 <8 z 6V8dI`ry` G`pA`8 Wh8 hZY` ' " ~G "
~# a` b H/Ag6$ /]
z $ @/T o)b 0/Ng 4%~@ / h/SgR {X @ MOVX =I;WVAL=R(6,L,I);`J=7DEPTH; END; X/Vg6$zp/c @ g $|0/T Wh8g >V x/\g6$ /w @ g $~p/T
GE Z z 0/kg 4% X/bg6$ /| @ g $H/T @P8g > ~G H/vg6$ 0 @ } $yx/T >G 0/{gR @
` END; H0 g6$ 0
` } $}@/t >G p0gR x VAL = 1000-VAL; /* CONVERT TO OUR COUNT */; h0g6$0 g $` `P8 <^8
h M' X/'g6$ /l` g $}@ `7 x'} 80gR
h RETURN; 00UgR h @ ; H0"g6$801@ $ M' h0%gR ` /* WE ARE DEEP ENOUGH, COUNT PIECES */; H0*g6$009` $ M' 000gR ; H05g6$`-[ $H M' p08gR [8 COUNT: VAL = 500; /* ALL VALUES POSITIVE */; X-Zg6$ 0J g $ ?!`7 x H0Cg6$ 1 $ M' x0II5RxH'K @1t[8 @ 0 B 0 1 H0 g6$ 0& ( $h T' 81sgR @ NMEN = 0; @1gR
( ` DO I= 10TO 8; 0]g6$ h0q` z $P0j @Wh@ `A 6Aa7 `n"I` 8"hj8 00ag 4% @0igR DO J = 1 TO 8; 0lg6$
G^8`<^8 81YgR ` END; END; 1O X0Zg6$ 00b@ g $
( 8`7 x(D * p1gR @ IF (ABS(S(L,I,J))= 1) THEN NMEN=xNMEN +1; p1cgR P IF(NMEN > 8)ETHEN=VAL = VAL -1((NMEN-8)*G); `1 g6$`1+ $` !"8 A` '$8 x1$g6$ 16 g $`
81>gR ` RETURN; H1Dg6$P1i ` ( $ T' 01GgR " END; 1r 1g6$p1Z@ $ 0y <8 z " ~G` a sV8 ` '$8 `1Pg6$ 1`@ g $ 0y !"8 ` y`Ib H1 g6$@1d` } $0y >G H1_g6$ 1%` } $
(0j >G H1Lg6$P2-" } $ >G 01hgR %X # ; 021gR &h %` ; 2* h0MC25V h 0D h30gR "X ( DCL (X, Y, A, B, U, V, OK, JMP) FIXED; h1yS<! 'Dp2 s OK x2 I<T !p2 4 h2C2<X x "82 2g6$ (2>( w ,^'` !`s Cah8A`7 Z0 8ZTw x2I5R~0)U$P2%"X K`3 h2 C25V#X H 3 2l H1lg6$ X22# 2& M' H-g6$Ph26$@ 2&h M' H1og6$ -V%` 2-` M' 03|gR '` )@ ; H2:g6$'02H)@ ,^) M' `2=gR ) *` /* CHECK FOR A FORCED JUMP */; H2Ag6$((2P*` ,^* M' 02GgR * , ; H2Lg6$)P2X, ,^+ M' @2OgR + - DO X = 1 TO 8; 2Sg6$*H47- z ,^K@2` @?L@ `A Aa7 `n"I` 8"hj8 02Wg 4% @2_gR Fp .@ DO Y = 1 TO 8; 046g 4%, 03g 4%,x 45 X-Ug6$ 2' # ,^( A 4pEw x2mI5R-0q/02{Zh F(EE 8 h2rC25V.8 /x H 2n x2$I5R
)c13 "X K`3 h3 C25V0 H 37 x3I5Rah6x37"X K`3> H4 g6$ 4-/` z ,^J 2j o)b x,]I5RqP(^403#-` K`3h ( h3C25V38 3o x3"I5Rp@(l631-` K`2 ( 38 h3(C25V5 2% h3C25V1x H 3E x36I5Rd0 8X3E"X K`3L h3=C25V7` H 3S x3DI5Rfx.:83S"X K`3Z h3KC25V9@ H 3a x3RI5Ri@<<3a"X K`3v h3YC25V; H 3} x3`I5R 2=x3o"X K`7; h3gC25V= H x3nI5R6@:?X3}"X
I K`3 h3uC25V>` H 3# `2fgR Ch /` IF (SIGN(S(L,X,Y)) = G) THEN DO; h4S<! 2B4 9 SIGN x4 I<TA C 4 57 h4C2<XB CH4 4g6$@@3/` ,^J 2g <8 s "0G` a !P(8! 48d)a X2igR EP 1
8 4 ! P8 4u 2bg6$,84 .@ z ,^JH2g @C@ `A Aa7 `n"I` 8"hj8 `4,gR O 2 IF (JMP = 1) THEN GO TO JUMPS; 0-AgR I 3@ END; H4Dg6$HP4P3@ } ,^2p2j >G 84GgR J 4` END; END; H4Kg6$IH4T4` } ,^Fp2g >G H4Og6$ 4\4` } ,^+2` >G 04SgR K@ 6 ; H4Xg6$K4f6 ,^L` M' X4[gR L` 7
/* THERE ARE NO JUMPS */; H4_g6$L4m7 ,^MX M' 04egR MX 8@ ; H4ig6$M(5E8@ ,^XX M' @4lgR XX 9` DO X = 1 TO 8; 6? `4>g6$Gp-B2 ,^I 2j mP8 ` '$8 @5LgR P ; DO Y = 1 TO 8; 4}g6$O`5; z ,^85
@C@ `A Aa7 `n"I` 8"hj8 05g 4%YX `5 gR R0 < IF (SIGN(S(L,X,Y)) = G) THEN DO; 5
g6$QP5 < ,^x@5
<8 s "0G` a !P(8! 48d)a H5g6$ 5'< z ,^x@5 o)b 05g 4%Q @5 gR Tx =@ DO A = -1,1; h5"g6$T86=@ z ,^b`5. @X:@ `- ~ '?=' 05&g 4%T h4wS<! 4
w857 $A JUMPS x50I<TV Wp5? 5` h56C2<XVx X85C 4qg6$N 59` z ,^rH5M @?L@ `A 6Aa7 Z `n"I` 8"hj8 05Dg 4% @5-gR `x >` B = SIGN(G); X6gR ]h @
8 2 !Vh8 p5mgR h A IF"(OK=1)THEN CALLsLSTMOV(L,X,Y,A,B,0); `5vg6$^x7A ,^h5. !H8 ` '$8 07gR h B@ END; h5Og6$Z5n>` g ,^]h5. ! 48 hA!`7 x# 6@gR b` C` IF(ABS(S(L,X,Y)) = 2),THEN6DO A=-1,1;8/*hKING!*/; 6 X60gR hX F
8 2 !Vh8 p6DgR jX G@ IF (OK = 1) THEN CALL LSTMOV(L,X,Y,A,B,0); `6Mg6$ih6[G@ ,^l@6* !H8 ` '$8 6Tg6$ 6dG@ o ,^l@6* <8 s "0G`ai`8 Y
8 8
nAb H6<g6$gP6kH` } ,^cp6* >G 06cgR m8 J END; H6gg6$m7DJ } ,^S@5 >G 86jgR x@ K END; END; 7B h5}S<! 5Z Ah kB LSTMOV x6sI<Tn@ p 7 8 h6yC2<Xo( ph7 7g6$ 6AA o ,^h5. <8 s "0G`ai`8 Y
8 8
nAb 87zgR rH L@ RETURN; H7g6$r7 L@ ( ,^s@ T' 07gR s@ M` ; H7g6$s7'M` ,^tx M' p7gR tx O /* WE HAVE A JUMP. LIST ONLY THE JUMPS. */; H7 g6$t7/O ,^up M' 07&gR up P ; H7+g6$u@%P ,^v8 M' %g6$ 7LQ@ z ,^889 @?L@ `A Aa7 `n"I` 8"hj8 x72I5RV57083Rh @ 0 K` 0 8/ H6og6$n 7{K } ,^P 5
>G @88gR yH R` DO Y = 1 TO 8; 7Gg6$y7]R` z ,^$(7T @C@ `A Aa7 `n"I` 8"hj8 07Kg 4% `7SgR {X T IF (SIGN(S(L,X,Y)) = G) THEN DO; 7Vg6$zx7fT ,^ 07T <8 s "0G` a !P(8! 48d)a H7\g6$ 7rT z ,^ 07k o)b 07eg 4%zH @7jgR ~ U DO A = -1,1; h7mg6$}`8U z ,^ 87x @X:@ `- ~ '?=' 07qg 4%}0 H7Cg6$ 7K } ,^XX5M >G @7wgR @ V@ B = SIGN(G); h7g6$ 8$V@ g ,^H7x ! 48 hA!`7 x# X8gR H W`
CALL CKJMP(L,X,Y,A,B,OK); h8 S<! 6tL8<c n CKJMP x8I<T `8 :o h8C2<Xh (8" 8 g6$(8vW` o ,^h7x <8 s "0G`ai`8 Y
8 2 !`@8 09.gR H Z END; (8t h7:C25Vw8 x 73 082g 4% p8#gR h Y IF (OK = 1) THEN CALL LSTMOV(L,X,Y,A,B,1); 8{gR 8 [@ IF (ABS(S(L,X,Y)) = 2) THEN DO A=-1,1; /* KING */; 8Bg6$88T[@ ,^p7k <8 s "0G` a sV8 ` '$8 h8Jg6$ 8[[@ z ,^p8_ @X:@ `- ~ '?=' H8Sg6$ 8f[@ ,^
h8_ M' 08Zg 4%}0 @8^gR
h \` B = -SIGN(G); h8ag6$
(9\` g ,^8_ ! 48 hA!`- y`d1b X8egR ^
CALL^CKJMP(L,X,Y,A,B,OK); 09gR x `@ END; 9. `8;g6$H9/Y ,^H7x !H8 ` '$8 H8,g6$X8KZ } ,^~ 7x >G 8lg6$
8 2 !`@8 p9 gR _ IF (OK = 1) THEN CALL LSTMOV(L,X,Y,A,B,1); `9 g6$ 9_ ,^x8_ !H8 ` '$8 9g6$ 9 _ o ,^x8_ <8 s "0G`ai`8 Y
8 8
nAb H8qg6$(9'`@ } ,^
H8_ >G 09 gR p a` END; H9#g6$@9ka` } ,^|h7k >G 89&gR 0 c END; END; : 8ug6$ 8|Y o ,^H7x <8 s "0G`ai`8 Y
8 8
nAb 8:!gR 8 dP RETURN; H97g6$ 9Cd* ( ,^0 T' 09:gR 0 e@ END; H9?g6$ 9Je@ } ,^-` >G 09BgR ( f` ; H9Fg6$x9Vf` 2h M' x9IgR h h /* CHECK FOR THIS MAN OR KING HAVING A JUMP */; H9Ng6$p9^h 2` M' 09UgR ` i ; H9Zg6$0-8i 2+ M' X9]gR W j@ ISJMP: PROC (L,X,Y,A,B,JMP); 0:g 4% H9*g6$8:"c } ,^yH7T >G H;UgR @ k` DCL (U, V) FIXED; X9ng6$ x:k` w *a# !`7 Z0=Anqb x9sI5Rfx3L : @ 8 ,: h9xC25V H : x: I5Ri@3Z!p: @ 8 ,;O h:C25V x H ;V @:gR # m DO A = -1,1; h:g6$"X:+m z *aC 9h @X:@ `- ~ '?=' (:W H9jg6$ 9;c } ,^v889 >G H9ggR %8 n B = SIGN(S(L,X,Y)); :&g6$$p:9n g *a'9h <8 s "0G` a !P(8g >G X:*gR ' o@
8 4 !`@8 `:8gR ) p` IF (JMP = 1) THEN GO TO GOTJMP; `:Ag6$((-jp` *a/P9h mP8 ` '$8 h:GS<! 8B :o HJ GOTJMP 0-igR /P r END; ; p-7g6$ 9tj@ # *aFH
@<~0<0Ap@Y
6Ew x:YI5R.@"z-:hW ( F(?S 8 h:`C25V, -P H :Z x:MI<T)h .h:v =i h:nC2<X-p /0:{ H:Tg6$*P<r } *a#9h >G h<g6$ =s z *aA8= @X:@ `- ~ '?=' < x*`I5Rp@3)2;+ ,; ( h;C25V1 ; x;I5R~02 3h; + ,;% ( 1 h;C25V2p ;, x; I5R
35H;,+( , ,;3 ( 2p h;$C25V4P ` ;: x;+I5Rah37(;:+ ,;A ( 4P h;2C25V60 ;H x;9I5Rd03>9;H+ ,9y ( 60 h;@C25V8 : x;GI5R6@3v:h;V+ ,< ( 8 h;NC25V9p :|gR C s IF (ABS(S(L,X,Y)) = 2) THEN DO A=-1,1; /* KING */; X< gR =( u`
8 4 !`@8 `;igR ? w IF (JMP = 1) THEN GO TO GOTJMP; `;rg6$>8-Gw *a@(= mP8 ` '$8 0-FgR @( x END; H;~g6$?x- x } *a0= >G H<gR Sx y@ GOTJMP: RETURN; H- g6$ <-y@ ( *aEP T' x<
I5R)h:oKP<]Sx @ 0 , 0 <[ ;\g6$;P;s *aA8 <8 s "0G` a sV8 ` '$8 *Sg6$*H;jt@ g *a=(= <8 s "0G` a !P(8g^8`Y
8 0<\gR EP z` END; H<)g6$E <4z` } *a+ >G 0<,gR FH | ; H<0g6$F<?| 2Gx M' h<3gR Gx } /* CHECK FOR THIS JUMP BEING VALID */; H<8g6$G<G} 2Hp M' 0<>gR Hp ~@ ; H<Cg6$H@-$~@ 2J M' X<FgR TH `
@<~0<0Ap@Y
w h H>EgR X DCL7(U,2V) FIXED; =@ h<C25VB L ; < x<PI5R 8M0<kTH H F( 8 h<bC25VL8 Mx H <Q x%4I5Rp@; O<yJ VP< ( h<pC25VN > x<xI5R~0;ah>J VP> ( N H; g6$ <!s *aD= M' 0=g 4% 8=[gR R OK = 0; X=
G^8`Y^8 h= g6$ =+@ g %5U8 C8 Y
8
G^8`Z08 H=$g6$ =6@ %5Vh M' h=*gR Vh ` IF (U<1!U>8!V<1!V>8) THEN GO TO NOJMP; (=/g6$V -)` %5 ` Y^8 H ` g "g y8' "& y8' "& y8'$8 > VP>? h=TC25VZP H >F h=5S<! :NsX=i U& NOJMP x=bI<T\0 ^=q @W h=hC2<X] ^X=u h-(gR ` IF (S(L,U,V) = 0) THEN GO TO NOJMP; =vg6$^x+R %5p <8 7 "&` a 8d)a +QgR p IF (SIGN(S(L,U,V)) = SIGN(S(L,X,Y))) THEN GO TO NOJMP; @4 h<~C25VOx > x>
;%cH> J VP># ( Ox h>C25VbP >* x>I5Rah;3e(>*J VP>1 ( bP h>"C25Vd0 >8 x>)I5Rd0;Ag>8J VP=G ( d0 h>0C25Vf =N x>7I5R 3hhh>FJ VP? ( f h>>C25Vgp p% gR j@ @ U = U+A; V = V+B; /* TARGET OF THE JUMP */; h>Lg6$iP>Z@ g %5k( Y^8 X:8
G^8`Y^8 h>Sg6$ >a@ g %5l Z08 Y
8
G^8`Z08 H>Yg6$ >l@ %5m@ M' h>`gR m@ ` IF (U<1!U>8!V<1!V>8) THEN GO TO NOJMP; (>dg6$lX-e ` %5wp Y^8 ` g "g y8' "& y8' "& y8'$8 h-dgR wp IF (S(L,U,V) ^= 0) THEN GO TO NOJMP; 0?$gR u8 ` END; @>g6$``%! %5j@ <8 7 "&` a !P(8 <8 s "0G` a !P(8d)a 8-gR qx
OK = 1; X? g6$q@Z
@ g %5s `7 x2 @?gR ( @ 0 VP 0 h? C25VsX u ? H>|g6$oP?3` } %5J >G 0?*gR v0 ; H?/g6$v ?7 2vx M' H g6$@p?z 2 M' 0?6gR @ ; >ug6$nh- %5qx <8 7 "&` a 8d1a X?ygR =H ` CKMOVE: PROC (L,X,Y,A,B,OK); p+kg6$ @6` # mH
@<~0<0Ap@Y
ow x?KI5R[ 5`{0?[=H h F(Ah 8 h?RC25Vz8 {x @ H ?L x lI5Rp@<q}?iyH 0 g6$ 0@ g m `7 x2 H@gR @ U = X+A; V = Y+B; h@ g6$@@@ g mp ?L8 X:8
G^8`Y^8 h@g6$ @$@ g m@ C8 Y
8
G^8`Z08 h@gR @ ` IF(U<1!U>8!V<1!V>8)THEN'GO8TO NOMOVE; (@ g6$X,m` mMOVE @| X?}g6$h@ w m h !`7 Z0=Anqb x@5I5Rfx=G0@C` x
@Q` x h@HC25V H A6 x@-I<Th p@ B h@VC2<X
x
8@c h,lgR @dg6$
X%? mx <8 7 "&` a 8d1a 8%>gR x OK = 1; X@sg6$@%: g m$x `7 x2 As h?nC25V}x A
x@}I5R
>HA
yH hAC25VP A xA I5Rah>#(AyH 0AsgR H ; HA@g6$AP 2 M' pACgR /* APPEND A MOVE TO THE CURRENT LIST */; HAHg6$AW 2x M' 0AOgR x !@ ; HASg6$H%D!@ 2 M' XAVgR X@ "` LSTMOV: PROC (L,X,Y,A,B,JMP); p%Cg6$ ,c"` # &=
@<~0<0Ap@Y
6Ew xA`I5Rn@6z AyX@ F(<c 8 @C^gR L0 $ DCL RXL FIXED; B H?vg6$~pAD ` } RmyH >G hAgC25V X H Aa hAoS<! @.-PB G2 RXL xA~I<T x !XB T' xB&I5Rh@W&8B3W @ 0
8g "B` y`8y>jg 0DgR CX / END; x,bI5R xB.HBtL0 + t` hBlC25V-P H hBg6$"@B>% g &'h <8 hh`7 xA HBagR 0` +@ R(5,L,RXL) = JMP; xC g6$0C+@ g &2@
g6$1XDL,` &C "~8 !!` g$8 8DKgR C . RETURN; (D xB I5R~0?o4xC' t`C. ( # hC C25V4 C5 xC&I5R
A6XC5 t`C< ( 4 hC-C25V5` CC xC4I5RahA88CC t`CJ ( 5` hC;C25V7@ CQ xCBI5Rd0A!:CQ t`CX ( 7@ hCIC25V9 C xCPI5R6@;O;xC t`Bm ( 9 hCWC25V; Bt 0D gR = 0@ ; HCeg6$<`Ct0@ 2>H M' pChgR >H 1` /* MAKE A MOVE, OPTIONALLY PRINTING IT */; HClg6$=XC|1` 2?@ M' 0CsgR ?@ 3 ; HCxg6$?-.3 2Wx M' hC{gR Uh 4 MAKMOV: PROC (MOVX, LMOV, LBRD, PNT); h--S<! A8D
C2<XAX DhD& hD!S<! DaD/ c LBRD xD'I<TE FhD6 DC hD.C2<XEp G0D; hD5S<! D(bxDC b PNT xD<I<TGP WE9 Hr E6 pCg6$ D,` g &C "~8 ` y`pA`8 > `F gR Q@ 5@ DCL (X, Y, A, B, U, V, JMP) FIXED; HFHgR KX 6` X = R(1,LMOV,MOVX); xDXg6$KDi6` g M
C.UE)Q@ 0 D E/ hE C25VT H ES xE(I5RahC<Z8ESQ@ 0 D EZ F hDBC2<XH8 WXE= `E8g6$ E
40 # ! @=0@p<!pD=P.qb xE>I5R9OYPEMUh F(J4 8 hEDC25VXX Z H E? hE.C25VUx H Ea xERI5Rd0CJ\EaQ@ 0 D F% hEYC25V[ H F- XFWG:A# .k x MACHINE@MOVES FROM x I5Ru@)^PEuWx D E ( hElC25V]X I E xEtI5R@pD hF2C25Vf8 H FI xF:I5R6@CXiFIQ@ 0 D E{ hF@C25Vh H F GgR k = IF (PNT = 1) THEN PUT SKIP LIST ('MACHINE MOVES FROM',X,Y); `FNg6$ixF^= lX "t8 ` '$8 xEgg6$ Fe= $ lX
`9R `+&g6$4xFk> wh mP8 ` '$8 HFdg6$ GL> z hD o)b `DgR y@ ?@ S(LBRD,X+A,Y+B) = S(LBRD,X,Y); PHxg6$
PI R B#/ PJgR +h ` /* PRINT THE BOARD */; (H x%g6$P`FX;` g k
:H 8N cX2 LH N PI3g/ Ke E E PMD
`8 >
@G gR u B X=X+A; Y=Y+B; hG$g6$tPG/B g uxD ?L8 X:8
G^8`?L8 hG(g6$ G:B g w D C8 Y
8
G^8`C8 @G.gR w C END; ELSE DO; HG5g6$v`G>C } m8D >G HG9g6$ H C z hE o)b `EgR h D@ S(LBRD,X+A+A,Y+B+B) = S(LBRD,X,Y); 0H gR 0 I@ END; 8Fog6$n G ?@ g sXD ""8 s "0G` a y`E `8 ?L8 X:8
G`
`d1` `8P8 PJ;g
:H G
8K$ 2 & K+ PJ+g6$ %@J0b@ 2 & @Lg PIIgR "H W
S(LBRD,X+A,Y+B) = 0; P-g/ G M M
HH gR ~ E` S(LBRD,X,Y) = 0; xGjg6$}8GwE` g ~xE
`8 >
,Ng6$IpHG g PE `7 D( "yG "' d8 a # `8 >
HGvgR P H X=X+A+A; Y=Y+B+B; pGg6$ H
H g @E ?L8 X:8
G "' d8g >yG pHg6$ HH g 0E C8 Y
8
G "G d8g >0G HGHg6$yH^I@ } whE >G hHgR h J` IF (PNT = 1) THEN PUT LIST ('TO',X,Y); I PGBg6$x0GpD@ g ~ E """8 s "0G` a y`E `8 ?L8 X:8
G "' d8 a # `d1` `8P8 XHcgR M
IF (JMP = 0) THEN RETURN; `H*g6$ 8H7M h mP8 ` '$8 HH0g6$ H>M ( h T' 0H6gR h N@ ; HH:g6$ 8HIN@ M' `H=gR O` /* WORRY ABOUT MULTIPLE JUMPS */; HHBg6$ 0HPO`
M' 0HHgR
Q ; HHLg6$ XFvQ M' hHOgR n` R NXTJMP: CALL ISJMP(LBRD,X,Y,A,B,JMP); 0I.gR ]@ END; `Hg6$ xIJ`
H "t8 ` '$8 p,Sg6$J@H1L o
""8 s "0G` a hHTS<! D= Hr -| NXTJMP xHjI<T Fug6$ IWR o p ""8 s "0G`ai`8 Y
8 4 ! P8 xHI5R 0 hIC25V P I IU pH]g6$ HdJ` $
H @CHAPC "yGf
`9R XIgR p S@
IF (JMP = 0) THEN RETURN; `JgR T` S(LBRD,X+A+A,Y+B+B) = S(LBRD,X,Y); PJEgR )8 e
DCL (I, X, Y) FIXED; PI|g6$ XJ\ "#/ P g/ GH E E PI#g6$ @IJT` g ( """8 s "0G` a y`E `8 ?L8 X:8
G "' d8 a # `d1` `8P8 HI8gR ( V S(LBRD,X,Y) = 0; xIEg6$ `JV g "H
`8 >
HJgR #X X@ X=X+A+A; Y=Y+B+B; J
`I g6$ hJS@ mP8 ` '$8 xJVgR H Y` IF (PNT = 1) THEN PUT SKIP LIST (' TO',X,Y); `I\g6$ PIoY` h "t8 ` '$8 HIcG:A# Eh TO xIig6$ IvY` $ h
`9R p,Xg6$KI/[ o p
""8 s "0G` a @IugR p \ GO TO NXTJMP; HHZg6$ 8J ]@ } Wx >G 0J gR ! ^` ; HJg6$ `J^^` 2 +h M' (K HIVg6$ I9S@ ( T' G`g6$|J W g #X `7 D( "yG "' d8 a # `8 >
pIQg6$ JWX@ g *x ?L8 X:8
G "' d8g >yG 0J]gR $x a ; HJ#g6$ $HG\a 2 & M' @J&gR {H b@ PNTBRD: PROC; HG[g6$ JFb@ # GW IP P.qb xJ/I5R3 '@J<{H @ F(1 8 hJ3C25V &H ( H J0 8GVgR (` c` PUT SKIP; XJAg6$ ((JKc` $ GW )8 a-@C Ab `I)g6$ JQe w GW * !`z ?L
u;G `Jjg6$ ,0K f $ GW 18 @CHAPJk 8 pJ g6$ IdX@ g H C8 Y
8
G "G d8g >0G HFzg6$o0J'` 2 $x M' K8gR * f PUT LIST (' 1 2 3 4 5 6 7 8'); PUT SKIP; hJbG:A# Ij
gR .P g@ PUTgSKIP; XJpg6$ .Jzg@ $ GW /( a-@C Ab -;g6$\Ksh` z GW D(K @C@ A`A G a7 `- a-@C Ab @KrgR ? k DO X = 1 TO 8; Kp xJJI5R )9 3XK )8 P zx hKC25V 2` H xK I5R~0E 58K+ )8 P zxK2 hK#C25V 4@ H K9 xK*I5R
E! 7K9 )8 P zxK hK1C25V 6 H K 8L gR 88 l@ I = 2*X; `K?g6$ 8 L7l@ g GW FxL `~1` y`_!b xKBgR Fx m` PUT LIST (SUBSTR('X*X . O O*',S(1,X,Y)*2+5,2)); P abhs@KV M: PKPabh :-L 6 Lx P%*aa 0 PL_gR A@ {@
PROMOT: PROC@(L,X,Y); PGg/ E E HKHG:A# Jk x X*XG. O(O* 0L6gR H( o END; L4 hKg6$ 0XKyj $ GW ?K @CHAa 47gg$ E Kg6$ 2KCkT z GW AL @?L@ 8 `A Aa7 `n"I` 8"hj8 0Kxg 4% 0( @LAgR A p PUT LISTK(Y); `Lg6$ @HLp $ GW BK @CHAa 8 8LgR B q@ PUT SKIP; XL
`8 "
1` ' d8 8 h&a`9R HKmg6$ =hLo } GW ?L >G 0L.gR OP v@ END; 0L|gR IP w` ; HLIg6$ I LXw` 2 K M' pLLgR K y /* SUBROUTINE TO PROMOTE, IF INDICATED. */; HLPg6$ JL`y 2 L M' 0LWgR L z ; HL\g6$ KP
z 2 LH M' ` g6$ M:{@ # G
hX @<~0<0T \8 xLcI5Rh N LrA@ X F(:a 8 hLiC25V M( Nh H Ld HM9g6$ MV|` z G
fhMu o)b HLFg6$ HpLMv@ } GW & >G XN$gR W, |` THEN S(L,X,Y) = -2; PMg/ G N. N. PMg/ M, N. , N. PM g/ M: N. , N. PM!g/ M N. N.
PM&g/ M N. N. PM+g/ M", N. , N. PM^g/ M' N- N-
PGeg/ MBH N- , N- 0Mwg 4% M~ M g6$ PLx|` G
_ <8 s "0G` a 8d9a PM0g/ MG N- N-
PMAg/ ML N- N-
PMFg/ MQ N- : N- PMKg/ M_, N- , N- Mg6$ PpMd~ G
^Mu C8 ` ' "B`~1`8 C8 hbA` '68d)` b PMPg/ M, N- N- MUg6$ Mp~ g G
^Mu `- y`pA`8 ?L8 a `8P8 @McgR ^ END; ELSE DO; HMkg6$ ]HMx } G
OMu >G 0Lwg 4% HMog6$ Nf z G
fhM6 o)b 0O!gR mx ` END; NI xG I5Rp@B aN LH q N ( hN C25V ` N xNI5R~0K$ bpN LH q N ( ` hNC25V ax N% xNI5R
K2 dPN% LH q ( ax hN C25V cX xM5gR l` @ IF ((Y = 8) & S(L,X,Y) = 1) THEN S(L,X,Y) = 2; 8NngR fh RETURN; HN2g6$ f0N> ( G
g` T' 0N5gR g` END; HN:g6$ g0NE } G
LH >G 0N=gR hX @ ; HNAg6$ h(7@ 2 Fx M' @NsgS< 2 2END OF FILE ON DSK:CK.CPL pNs N*g6$ e8O" @ G
mxM6 C8 A` ' "B`~1`8 C8 hbA` ' ~" aa HM{g6$ _HN6` } G
_ M6 >G h "yG`
`8 >
xNeg6$ No @ g G
mxM6 "yG`
`8 >
-}I$8