?p ?x iS Kb)
=
` Oh Q F: { q) IH {r E@@ Kh y w] gg Oh p (
0 ( T x) @ , GB` 8 ` gg 2@ IJNi98 ` gg Q 0 2@aKb ]8 \Y C %V y Qp 6 ` y U V 2@=2@\`Kb M88 \y C %V 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 %[ F2@52@|2@C 2 < 2 h H Zh } jDZh } a 2 { | | 2 @$ ` a [( z z
2@$@aQ %V F2@"N 8 < 2 h H ] k( % z % %H %H z ] bE a*2@5~Y&tY<H$ B 2@C5gnH1 ~ b @{ h H Zh } C1 h _(! iO e 2@aj[' {x 'U ? : H H_8" ag2@AG[ t
&O2@8 Y&t U W aH3 82@<:Su
t %[ '* n2@fgV L d # e b8 dG[$89 &O 'Q n x cHC b h H c(A JV 2@^32@^32@b &
&
F g2@ 0G[$:( &O2@UgV d e I6 d8J S 2@pM2@pMKb Hw &
&
F g2@ PG[$Hw &O n x hg N 2@C(2@C(aLh & ] h &+ ihu C' 2@9$2@9.[' {x & &
%} &+ l 9, 8 2@C52@C5gnH1 ] h &+ l C1 2@M7[' Y w h , n` 2@D(ghq X h 4 n` D& M M 2@}[' < h , t@K2@Jegl=T X h 4 t@K Jc $@ )# . .F O < < %- ; a e Etm,f@ 8 INX p GB` DI6 @ - & "9Y@ 0 A & w i S ? ([>p + x B Bgg GB` H Zh }] c1^HGB` gg GB` B ( 0 ? b * b @ h qB $A '* x O 2 r P g
M < H1g6 q 0 2 X' @EN H b E & T M2 _ M (6gR] `Go. 8 P g# H$ 6$ P"og6$. D S 2; Xk haS<! Oy fO SYSIN xqI<T N( P p 0 hxC2<X O PP HM7 N(y P
g6$o "0 2s( @[ hS<! r Rp K; SYSPRINT xI<T R Sh p T 0% hC2<X Rp T0# H M7 R 2gRd XEQ; 0 >gR XEQ; 0(g6 @' HBg6$ X8 h @' X I$8 X}I$8 XI$8 XI$8 P( "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 & LSE GO TO GEN;
800. POSSN=4;
810. DO I=1 TO 4;
820. POSS(I)=EVEN(I)-1+2*(EVEN(I)>5);
830. END;
840. GO TO GEN;
850. END;
860. ELSE IF COUNT=2 THEN DO;
870. IF SPCASE(CMOVE,MOVE)=0 THEN GO TO GEN;
880. IF SPCASE(CMOVE,MOVE)>0 THEN CALL CMOVER(SPCASE(CMOVE,MOVE));
890. POSSN=3;
900. POSS(1)=-SPCASE(CMOVE,MOVE);
910. POSS(2)=5;
920. POSS(3)=10-POSS(1);
930. GO TO GENP;
940. END;
950. ELSE IF COUNT=3 THEN DO;
9 * @60. IF CMOVE=5&(BOARD(1)='Y'&BOARD(9)='Y'!BOARD(3)='Y'&BOARD(7)='Y') THEN DO;
970. POSSN=4;
980. DO I=1 TO 4;
990. POSS(I)=EVEN(I);
1000. END;
1010. GO TO GENP;
1020. END;
1030. ELSE GO TO GEN;
1040. END;
1050. ELSE IF COUNT=9 THEN GO TO DRAW;
1060. ;
1070. GEN: MAXV,POSSN=0;
1080. DO I = 1 TO 9;
1090. VALM=VALMVE(I);
1100. IF VALM>=1000&VALM<10000 THEN VALM=1000;
1110. IF BOARD(I)<='9'&VALM>=MAXV-10 THEN DO;
1120. IF VALM>MAXV+10 THEN DO;
1130. POSSN=0;
1140. MAXV=VALM;
1150. END;
1160. POSSN=POSSN+1;
1170. POSS(POSSN)=I;
1180. END;
1190. END;
1200. GENP: CMOVE=POSS(TRUNC(POSSN*RAND gRd u 0$gR ( MON; Pg/ U: 'L : 'L
P%I$8 P Zg6$p
2"P @&7 H gR H ' 'b PvgR ?@ 5`
ELSE IF COUNT=2 THEN DO; H^g6$ xw 2H 3sIb Hmg6$ { 8 Ig Hqg6 r k H 5g Hvg6
} p >G Pzg
42
K H 2 p xgR H P /* TTT.CPL -- WRITTEN BY JOHN XENAKIS, 1975 */; H g6$PZ P 2"P M' K HLg6$ Xn h2
gR p p RANDOM()=0; P)g6$(7 )p 2x ZPr8 PbgR XH DECLARE RSTATE(8,0:1); Pg6$"x0 ,0 2( aC Pg6$ ) 2h fw h S<! M 9 + RANDOM x 1I<T( @ h 8C2<X P E X ?g6$( l p g 2 H `7 h )b
X h S<! #
82 INIT x LI<TX 8 [ 9 h SC2<X@ ` X FgR H @ PUT SKIP LIST('TIC-TAC-TOE'); P aG:A# TIC-TAC-TOE h fg6$
@ $ 2 ` a-@CHAP g 8 kgR ` #PUT SKIP LIST('CPL WILL PLAY A RANDOM MOVE WHENEVER IT HAS A CHOICE.'); rG:A# g CPL WILL PLAY A RANDOM MOVE WHENEVER IT HAS A CHOICE. h |g6$ 0
b $ 2,( a-@CHAP } 8
gR ,( ` PUT SKIP LIST('NOTE: THERE IS ONE METHOD FOR YOU TO WIN.'); HYg6$ G 2p M' x
I5RX T$
! ( @ 0 F( E 0 h
C25V# $X
`
agR 7h 0 DECLARE (BOARD,BOARDI)(9) CHAR(1); P abha 6 P Dg6$V0 N : 2Yh u] P#tg6$>X + T0 2H` Xk P& g
:H 8&+g2 _X &2 P/g6$ . - 2%` ZPr8 P'g6$T`b 0 2l @Xk Pg
42 ! H 2 8 h
&S<! 28X E d BOARD ( ZC47d
G:A# } NOTE: THERE IS ONE METHOD FOR YOU TO WIN. h
Yg6$!H > ` $ 27h a-@CHAP
Z 8 h
gR H DECLARE (POSS,VALMVE,EVEN,NINLIS)(9); h hS<! *I
H C# POSS x
nI<T-x /X
}
h
uC2<X.` 0 h
|S<!
oJ`
V 1 VALMVE x I<T0@ 2
h C2<X1( 2h (
xC47d OI<T* 48 # 0 h C2<X3@ 5 ( h "S<! P:8 S n8 BOARDI x )I<T5 7 8 v h /C2<X6 7H < p 7g6$$x
A 0 w 2H !` P -(= `8 /v '>w x =I5R* 9P M7h F( S h DC25V8X BX : R ( [ x LI5R5 0;0 [7h F(
H h RC25V:8 *p ;x ` (
O @ DO I = 1 TO 9; h `S<!
,=@ l 4 I x dI<T<X >8 s rg6$<
@/@ `A Ia7 `n"I` 8"hj8 0 yg 4% `
gR Z0 BOARDI(I)=SUBSTR('123456789',I,1); H
G:A#
Z 123456789 `R('246800000',I,1); (
VC47d h S<! L@
d *= EVEN x
I<TC D`
&
3 h
C2<XCh E(
* h
%S<!
N
r ,= NINLIS x
+I<TEH G(
: l h
2C2<XF0 Gp
? p
9g6$- z w 2? !` o ,C 8'Qv 'zy;G x
@I5R-x vIx
OH ( F(
V h
GC25VI ]P _` 8 H H
] x
NI5R0@ KX
]H ( F(
d h
UC25VJ` Z `8 8 H H
k x
\I5RC
M8
kH ( F(
r h
cC25VL@ V@ a H
y x
jI5REH
3O
yH ( F(> h
qC25VN( 3 ah 8 H HE `
G:A# 323242323
@48 e 5Z8g "rg` !x
, R 0 END; H
>G X )(8,3); h x @RC47d
S<! eWP SUBSTR x
G:A#
4 246800000 ! (
@0,8 e 5Z8g "rg` !x * p g 2Q(
@6,8 e 5Z8g "rg` !x
2 h ] ( C47d (
DO"J=1TO 3; h J xI<T`( b / hC2<Xa bP g6$hE
z 2sH @8
@ `A a7 `n"I` 8"hj8 0g 4%_8
h<! r0 MOVLST x!I<Td( f0 h(C2<Xe fP5 p/g6$S(
!`9
= `8 f8 /\8 x6I5RT h=C25Vg` q` b@ 8
H @S xDI5Rd()j8Sfp 0 F(. hKC25Vi@ U` d, 8
H @6 gR xP
P LIST(I,J)=SUBSTR('123456789147258369159357',3*I-3+J,1); P%gR Y ZP ROW=INLIST(MOVE,ADN,1); P ?gR 8 F
IF VALM>MAXV+10 THEN DO; Pg6$}` $ 2 p _K P$g6$B(p V 2. @p- PcgR HX 0
DECLARE NEWVAL(0:3,0:3); PAgR )( +` CALL ADJUST(MOVE,0); P|g6$ '0 K! fw `YG:A#
123456789147258369159357 (C @ END; Hg6$r } 2bp >G 0gR sH p END; Hg6$s% p } 2^8
@ DECLARE VALROW(8),INLIST(9,4,2), TEMP CHAR(81) VAR; h S<! h. VALROW x(I<Tu vp7 h.C2<Xux w8; h6S<! )H< _\ INLIST 0g6$k
P g 2rP @<8 8r/8`)`80>P x xOG:A# 1141710012510000136181002142000022527282 XVg6$z s
x<I<TwX (
hC2<X 0 p h S<! = (J
TEMP xI<T p r hC2<Xx 8# g6$t_
@ w 2{p =$= A`><a`= `8 8 F8 /8GX( h-C25Vh ]( T %# 8 H @D x5I5RwX@DX 8 F(J h;C25VH H e`Q 8 $H @R xCI5R
RX ( ! 8 F(Q hIC25V ( ( j0[ 0 H @|gR H DO J=1 TO 4; Wg6$ z 2 (d @8
@ `A y!a7 `n"I` 8"hj8 0[g 4%X @cgR P DO K=1 TO 2; hfS<! r 5 K xjI<T
x P z 2 ` @C.@ `A a7 `n"I` 8"hj8 0g 4%
H XQC47d xg6$\ 0 z 2 8} @/@ `A Ia7 `n"I` 8"hj8 xgR " INLIST(I,J,K)=SUBSTR(TEMP,8*(I-1)+2*(J-1)+K,1); P(G:A# 3 ILLEGAL MOVE P! g6$`!9 K 2 @u] P gR ` '0 ON ERROR GO TO ILMOVE; P>g6$x A - 2( @fw PRg6$XY & 2 @b PigR 8 @ DECLARE SPCASE(9,9); P 'gR -
ILMOVE: ON ERRORZSYSTEM; P#Sg6$:@#Y S` 2; A { P$g6$ # PP 22H ! { 0 P3g6$&@8 .l 2' 0b 0 P=g6$ l #P 2 p aC Pg6$ (P 2" Xk @gR p END;END;END; H\g6$Xf p } 2 >G H`g6$ j p } 2 Hd >G Heg6$ p } 2 } >G h9S<! k*Q . SPCASE xnI<T p P} htC2<X X ; g `|g6$(. @ w 2%` G<= I`> I`><nqb hPC25V* .( kP 8 (H 1 N Xg6$ a g 2 % @D8 8 /8 ` 1` G "' !` `
@ `A Ia7 `n"I` 8"hj8 0g 4%0( `gR 3( TEMP1 = SUBSTR(TEMP,9*(I-1)+J,1); g6$2Hn g 2=h @D8 8 /8 ` 1``)` 5Z8g >,' XgR =h p IF TEMP1='T' THEN TEMP1='-3'; xlI5R+_61-P ( ! H F(L h(C25V5 S0% 0 H T X*gR 8 @ IF TEMP1='U' THEN TEMP1='-1'; @6G:A# ' U `<g6$6xK @ 2:P Jb8@Mt8d)a @@G:A# = -1 XFg6$ U @ g 2:P @N 8g >,' HJgR :P SPCASE(I,J)=TEMP1; pOg6$:_ g 2;x Jb8g "rg``)`8 >wG 8TgR ;x ` END;END; H[g6$;@d ` } 21 >G H^g6$ E ` } 2/( >G % @#G:A# ; T `ig6$4@+ p 28 Jb8@O*8d)a sgR @X TEMP='0012001E40001600000000001E3000000000000000000000'; sG:A# G 0012001E40001600000000001E3000000000000000000000 X|g6$>H g 2Ap @Ot8g >G @gR Ap P DO I=0 TO 3;
g6$A0 P z 2XH @/@ `A a7 `n"I` 8"hj8 0g 4% @gR C` DO J=0 TO 3; g6$C d z 2\0Z @8
@ `A a7 `n"I` 8"hj8 r @mG:A# j -3 X&g6$ A p g 28 @Q 8g >,' huS<! XIHL ux NEWVAL x0I<TF Gp? 6 h6C2<XFx H8C p>g6$nh 0 w 2@X
QD= ` g| sfw xDI5RF7J@THX P F(K hKC25VIH NH ph 8 H R 0 g 4%Bp hYgR L@ p NEWVAL(I,J)=SUBSTR(TEMP,12*I+3*J+1,3); 8\g6$KX+ p g 2U8Z @D8 8 /8
G` g` a 8 8 hFb 8cgR U8 @ END;END; ) @SC47d XXgR R( ` DECLARE ANSWER CHAR(20) VAR; hwS<! 0S f ANSWER x}I<TO` Q@
! hC2<XPH R X g6$O F ` w 2l Sx= !!`o^Nqb xI5RO`Sx R( ( ! ` F(j hC25VS XW 0 H ( H gR (h 0 START: DO I=1 TO 9; ' Hng6$Mxc @ } 2C`Z >G h "S<! 1Y0K ? RSTATE x/I<TV W`> h5C2<XVh X(B h=g6$8 w 2R( U@= A`> ` '|y;G xCI5RV 6Z(RXH X F( hJC25VY0 [ qx 8 H @QC47d 0pg 4% 0g 4%[P H*g6$ D @ } 2Ap >G H\gR ]@ BOARD(I)=BOARDI(I); xfg6$\xw g 2^x]
/8 h5!`7 e `*B8 @kgR ^x P VALMVE(I)=0; hrg6$^8 P g 2`(] `7 e `,8 HvgR `( IF I<9 THEN DO; `}g6$_` 2hX] /8 I` g$8 Hg6$ z 2hX` o)b @_gR b p VALROW(I)=0; h
g6$aP4 p g 2fH` 6`7 e `=$8 0kgR p $p ; h%S<! ~m j . START xI<Tc( e( U h]C2<Xd eP- XgR fH @ COUNT xMI<Tih u0+ 8 X`g6$|) # % 2 @K@Sy
Rg
Eg6$ l 0 z 2{(] @/@ `A Ia7 `n"I` 8"hj8 xaI5Rc(!nq(h @ 0 F(! 0 hiC25Vm n` b xYgR Q8 "0 MQ: PUT SKIP LIST('DO YOU WISH TO MOVE FIRST?'); hwS<! Ft! MQ x~I<Tox qX
G:A# } T T? hg6$ \ "0 $ 2kH a-@CHAP 8 xI5Rox
a Q8 @ 0 F( & 0 ( hTC2<XjP ux/ h*S<! Nw 8 ,@ MAXV x0I<Tv wx? L h7C2<Xw x@D h>S<! 1yHL 0K POSSN xEI<Tx` z@T hKC2<XyH {X hSg6$i !` g 2s( `7 xNg >Xfy`xab ``gR kH # READ FILE(SYSIN) INTO(ANSWER); p[gR #P IF ANSWER='N'!ANSWER='NO' THEN GO TO CMOVM; HRgR mH $ ELSE GO TO OBOARD; hmS<! 0 !x Y[ OBOARD xqI<T~( K hxC2<X P Hg6$bx $p 2 M' XgR %@
g6$85 %@ 2 M' `gR X & HMOVE: PUT SKIP LIST('MOVE:'); @4G:A# % MOVE: @fG:A# N @ G:A# ! NO x$g6$|pS #P 2mH xDI<TP
0S u hJC2<X 8
xW hg6$ & $ 2 a-@CHAP 8 [ h C25Vt
X `ngR &` READ FILE(SYSIN) INTO(ANSWER); @ JgR ` ( MOVE=ANSWER; hlS<! ]e0x ( MOVE xpI<T x N hwC2<X @ X~g6$ g6$8X (P 2" cF8 ` '$8 hWgR " ) IF BOARD(MOVE)>'9' THEN GO TO ILMOVE; 0MgR ' .p ; Xfg6$
x& &` % 2` @K@Sy
Rg H*g6$8 '0 2` @Ib H ,gR h )p ON ERROR SYSTEM; H gR x *@ BOARD(MOVE)='Y'; @.G:A#
Y h2g6$pB *@ g 2 @eN8g "8g` !x P @6gR + COUNT=COUNT+1; `=g6$`J + g 2)( Z:8 ` y`iib hzS<! q`0& B ADJUST xGI<T `V hMC2<Xh (Z f h%S<! E#8 y ILMOVE 0$g 4% I xXI5RPK poX @ 0 F( 0 hfC25V x 8 Y x\I<TX P} x htC2<X X Hg6 '0 k K` 5g Hg6 '0 } K 8 >G @G:A# 9 p g6$p - ) 2h !cF8 h* ` @IgR ,0 GO TO CMOVM; x @I5RXu$0# @ 0 F(& 0 hC25V#8 $x A H"gR %` -P ?'ILLEGAL MOVE'; ` g6$%N -P $ 2h @CHAP! 8 @-gR h . GO TO HMOVE; H g6$XB .p 2( M' X7gR ( /@ /* THE COMPUTER MOVES NEXT*/; H;g6$'H /@ 2: M' 8 mgR FH 2 POSSN=4; `Ug6$o8 ( +` o 2 cF8 8 b xAgR 3 0 CMOVM: IF COUNT=0 THEN CALL CMOVER(1+9*RANDOM); Pog6$>w 4@ 2>xd vi P$^g6$Kx%} Y0 2_X @f! P -gR 3p 0`
ELSE IF COUNT=1 THEN DO; cgR 68 10 "IF MOVE^=5 THEN IF MOD(MOVE,2)=1 THEN CALL CMOVER(5); ELSE GO TO GEN; P$%g6$ $L V # !K0 Aa ;G P 4abhfX z %} P!eg6$ h!n M@ 2 h @_K P$Rg6$J0) W@ !5 ! P _g6$ w 60 2Nx vi P$9gR IH Vp CMOVE=TRUNC(INMOVE); P ,abh%X&r z P&g/ &cH 'K H 'K g POg6$*R 0 2: @aC `ag6$, % 0` 2?@ Z:8 ` '$8 H g6$ 3 0` z 2zXd o)b P$Vg6$Jp$[ X } !. >Ap P MgR Z0 ;0
ELSE IF COUNT=3 THEN DO; `fg6$,p g 10 2FHd cF8 )` G$8 h2S<! 8 @ 9B MOD x8I<T7 8xG ` h?C2<X8 9@L @ 3gR G 2P DO I=1 TO 4; `g6$ 0 23p Z:8 ` '$8 ` AgR ;` 3 POSS(I)=EVEN(I)-1+2*(EVEN(I)>5); 0Wg6$; l 3 g 2=@ B /8 hC` ' h8 `<Y`8 "
y8rg` !x o 0]gR =@ 3p END; Hhg6$=X 3p } 2G B >G @kgR + 4@ GO TO GEN; 0WgR >x 5 END; Hsg6$>H| 5 } 24Pd >G `hg6$ I<TA0 C @ h C2<XB CX p g6$ 0 o 2zX ` ' "Y' l8
G` ! x I5R7E` .3 @ 0 F(!x 0 h %C25VDh F( R XEg6$(h : 2 g 2G d !`7 xF Mg6$9`^ 2P z 2+ B @/@ `A !a7 `n"I` 8"hj8 0 9g 4% @ h gR L 60 IF SPCASE(CMOVE,MOVE)=0 THEN GO TO GEN; h DS<! ZJ R :' CMOVE x JI<TI8 K Y = h QC2<XJ K` ^ x Xg6$HP 60 2Nx
r.8 q G<8 ` '$8 pFg6$ ! 10 2]hd cF8 8 h7` ' ~" b gR Nx 7 IF SPCASE(CMOVE,MOVE)>0 THEN CALL CMOVER(SPCASE(CMOVE,MOVE)); x mg6$Mh 7 2Q
r.8 q G<8 ` '$8 p vg6$ 7 o 2Q r.8 q G<8 A1b 8 ~gR Q 7P POSSN=3; X g6$P` 7P g 2RH `7 xF X gR RH 8 POSS(1)=-SPCASE(CMOVE,MOVE); g6$Qp s 8 g 2^8 r.8 q G<8g^8 `8 >7g @ gR ^8 8p POSS(2)=5; X X fg6$ n 10 o 2FHd )`8 @"G H rgR U8 9@ POSS(3)=10-POSS(1); x &g6$Tp 2 9@ g 2&( o !`7 8 h-yb @ *gR &( : GO TO GENP; h 2S<! K%H", GENP x 6I<TVp XP E D h <C2<XWX Y I 0 1gR Yh :` END; H Jg6$Y8 S :` } 2@ >G `-g6$5h _ ;0 2w Z:8 ` '$8 ] h S<! 9 x O !' GEN x YI<T[ ] h R h _C2<X\ ]H l P gg6$ 4 10 2FHd vi ` g6$SH + 8p g 2U8 )`7 8 h-yb cgR s < $IF CMOVE=5&(BOARD(1)='Y'&BOARD(9)='Y'!BOARD(3)='Y'&BOARD(7)='Y') THEN DO; P#)g6$ #6 Q 26` !
q Ptabh.X
- z % P Kg6$ U AP 2zX }y P#5g6$ I Qp 29X b P"Wg6$ "^ O0 2+` b P Yg6${ ^ Bp 2{h @vi P$3g
:H
< 8%a\2 . $: P" P$g6$A$F U 2H` A
q P gR +` P
CALL ADJUST(CMOVE,1); Pcaa u 0 P g6$q ? 2r X u] P'Xg6${7 ` }
<X >ApH P g6$rP e @0 2|P d vi P#Fg6$8x#M R@ 29X @}y P$gR u <P POSSN=4; H Rg6$ ;0 z 2zX d o)b 0 ^g 4% @ (gR m0 = DO I=1 TO 4; fg6$lp z = z 2g( s @/@ `A !a7 `n"I` 8"hj8 0 jg 4%k H rgR o( =p POSS(I)=EVEN(I); x ug6$n` =p g 2pP s
/8 hC`7 e `+>8 0 ygR pP >@ END; H g6$p : >@ } 2m0 s >G @ gR g( ? GO TO GENP; 0 9gR r ?` END; H
g6$qX D ?` } 2j8 X >G H gR hH @0 ELSE GO TO GEN; c x xg6$_ S < 2hH d , r.8 )` ' *B8@eN8d)` '` ! P P3 y 8 *B8@eN8d)` g` ! P P3 y 8 z8$8 X Zg6$k0 k <P g 2m0 X !`7 xF 0 CgR |P A END; ` dgR w AP ELSE IF COUNT=9 THEN GO TO DRAW; ` 1g6$v h CC2<XxH z P 0
gR zX B ; H Qg6$z( B 2{h M' H TgR cH Bp GEN: MAXV,POSSN=0; ` g6$ Bp g 2 `7 x1g >c H .g6$up 8 A } 2kx d >G @ VgR C@ DO I = 1 TO 9; H 'gR h D VALM=VALMVE(I); h lS<! > x EZ VALM x qI<T~ !+ h wC2<X H h g6$}X D g 2@ ( /8 h0A`7 x r p gR @ D` IF VALM>=1000&VALM<10000 THEN VALM=1000; x
g6$PP+ D` 2xx( z 2 @ o)b M hg6$} C@ z 2 ( @/@ `A Ia7 `n"I` 8"hj8 0 g 4% X!g6$ 7 D` g 2x ( `P8g >y h *gR x E0 IF BOARD(I)<='9'&VALM>=MAXV-10 THEN DO; 0g6$ E0 2 ( /8 h* `
p WcH @ 0 F(", 0 h NC25V x 8 ^ 8!BgR @ FP POSSN=0; @!gR
P G MAXV=VALM; X `g6$
!m G g 2g 0dgR @ lgR ` H@ POSSN=POSSN+1; ` qg6$ ! H@ g 2 @ ^8 ` y`xab @ ugR I POSS(POSSN)=I; h {g6$@! I g 2 @ /8g "c` !x
o 0 gR I` END; H!g6$h! I` } 28 @ >G 0!gR J0 END; 0(gR K0 X` ; X \g6$ X e FP g 2
P!C &`7 xF } H! ( >G p!gR h K GENP: CMOVE=POSS(TRUNC(POSSN*RANDOM)+1); h%S<! r8!+ b8 TRUNC x!$I<TP 0!3 " h!*C2<X8 x!7 !2g6$ & K g 2# ^8 %J8
G` !
o y`I9b ! 0 Ig 4% p"3gR dh KP CMOVE1: PUT SKIP LIST('MY MOVE IS',CMOVE); H#gR ` L BOARD(CMOVE)='C'; @!LG:A# " C h!Qg6$X!` L g 2 AH8g "%g` !x
P @!UgR Lp COUNT=COUNT+1; `![g6$Hz Lp g 2 h Z:8 ` y`iib !_gR /( M@ OBOARD: PUT SKIP LIST(BOARD(1),BOARD(2),BOARD(3)); yg6$ "t M@ $ 2.H a-@CH@8 h* `9 `8 "('f g` !
P 8 x!mI5R~(y8#A/( @ 0 F(g 0 "s h!ES<! !%$" CMOVE1 x!I<T !h" #z h"C2<X p "0" H %G:A# ! MY MOVE IS p"g6$ !V KP $ 2`
a-@CHAP" "%gg$ x"I5R "0x#dh @ 0 F(#` 0 H HG:A# !R A DRAW x!8I5RVp =&@"4h @ 0 F(#n 0 h"+C25V%H ' !9 p#@gR .H N PUT SKIP LIST(BOARD(4),BOARD(5),BOARD(6)); p"sgR ) N` PUT SKIP LIST(BOARD(7),BOARD(8),BOARD(9)); "@g6$("X N` $ 2+ a-@CH@8 h* `9 A`8 "('f '` !
P 8 X"GgR + O0 IF COUNT=0 THEN GO TO HMOVE; `"Qg6$*( O0 2+` Z:8 ` '$8 ` /g6$f"j P o 2- r.8 8 b `"]gR - PP IF MAXV>=10000 THEN GO TO CWIN; `"cg6$,@I PP 22H ]F8a 8dQa @$mgR MX S GO TO START; # "9g6$'("H N $ 2) a-@CH@8 h* `9 )`8 "('f G` !
P 8 h"iS<! " < #` NX CWIN (#? h" C25V$ 1@ " hHgR 2H Q IF MAXV=1000&POSSN>=2 THEN GO TO HWIN; x#
]F8`P8d)`xa` G ~% aa h#S<! "~Lh$f * $ h#!C2<X4( 5h#. X gR 6` Qp IF COUNT<8 THEN GO TO HMOVE; `#/g6$6 Qp 29X Z:8 A` g$8 @CG:A# "( I WIN #x h!wC25V 8X !n ` gR i R@ DRAW: PUT SKIP LIST('A DRAW'); h"'g6$ m R@ $ 2 MX a-@CHAP"( 8 XlgR H S` CWIN: PUT SKIP LIST('I WIN'); h#;g6$
7 S` $ 2&x a-@CHAP#< 8 x#XI5R/h#z<x#gH @ 0 F($f 0 h#_C25V< =@ #Y x#LI5Rw` DMh$ni @ 0 F(" 0 @#fgR &x T0 GO TO START; $@ x"}I<T/h @ $ #" h#yC2<X?( @h$ `
6gR e8 U HWIN: PUT SKIPSLIST('YOUWIN'); @%'gR ih UP GO TO START; X MgR n V$ %o h$ C2<XCh E($* xoI5RA0 F@$4n P F( O 8 h$+C25VEH G H p h%`C25V\ $d H *G:A# #< YOU WIN h$@g6$ N U $ 2ih a-@CHAP$A 8 hg6$1 Vp g !/x !`8 hQ`7 x K @$KgR /x W@ GO TO CMOVE1; @~gR 5 X END CMOVER; H!g6$] X` 2X M' `$ZgR +P Y0 ADJUST: PROCEDURE(MOVE,MOVER); $m x$EI5R3@#"U %(e8 @ 0 F( 0 % h#mC25V=` N0 #M X&?gR Qp Z
<zP% Aj@ `A cF8 hEIa7 `n"I` 8"hj8 0%g 4% P% I$8 PgI$8 0(gR x _ END; h$eC25VLh UH $F P&Nabhip z k haS<! $zW %: ID ROW x%2I<TV8 X%A '0 h%9C2<XW X`%F x%@g6$l(& ZP g
<d % =v8g > Yg h%GgR d [ RSTATE(ROW,MOVER)=RSTATE(ROW,MOVER)+1; P g/ %[H E E P%Ug/ & E E &( x I5RC $ G($:. d ( h\S<! $g%o ?+ MOVER x%hI<T] ^p%w % h%nC2<X]x 8%{ X%vg6$ % Y0 #
< Fx @cF]w x%|I5R Na(&
+P ` F($, 8 h&C25V`0 ap H %} P%Zg/ E E P&g/ &r &H &H P g/ &H &H H &H g %Ng6$Yx'> [ g
<wh% !N8 %i U@8 ` y`V9`8!$8 hVb '( x
;I5Rxf(&2 X & 'H&9 ( h&*C25Ve0 &@ x&1I5R]%oh&@ X 'H ( e0 h&8C25Vg & gR wh [p NEWV=VALROW(ROW)-NEWVAL(RSTATE(ROW,0),RSTATE(ROW,1)); P&Sabhj@%. | D P&Xabhk&O 6 S P&]abhk`&T 6
\@ g
<q@% !N8 hu`u!` y`V9`8 >TG x&{gR q@ ] VALMVE(LIST(ROW,1))=VALMVE(LIST(ROW,1))-NEWV; 0'g6$pH' ] g
<sh% !N8 8 hT`8]"B " U h8g " Yg` '` AMVE(LIST(ROW,2))-NEWV; 0'g6$rp( ]` g
< H% !N8 8 hT`8 "B " U h8g " Yg` G` A x')I<Tu w '8 h'/C2<Xv wH'< 8'7g6$hp&| [p g
<oH% !N8 hu`V9`8 `8 "X`V9`8 `8 "X` A1 !`7 x'* x' gR H ^0 VALMVE(LIST(ROW,3))=VALMVE(LIST(ROW,3))-NEWV; 8(gR zP _P RETURN; H'Pg6$z ? _P (
<gx T' @'TgR gx ` END ADJUST; p gS< 2 2END OF FILE ON DSK:X.CPL[10,444555] 0'Ig6$y ( ^0 g
<x% !N8 8 hT`8 "B " U h8g " Yg` g` A
<Qp% >G 0 g6 ` >ApH