From d07f118808bf1f6aff6c6a96e2a93542c9695366 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Sun, 20 May 2018 21:17:29 -0700
Subject: [PATCH] Resolved #910: fix NGAME's path for CHASE documentation.
 Resolved #391: Build CHASE game from source.

---
 bin/games/chase.fasl             | Bin 13101 -> 0 bytes
 build/lisp.tcl                   |   6 +
 src/ejs/{ngame.272 => ngame.273} |   2 +-
 src/games/chase.79               | 414 +++++++++++++++++++++++++++++++
 4 files changed, 421 insertions(+), 1 deletion(-)
 delete mode 100644 bin/games/chase.fasl
 rename src/ejs/{ngame.272 => ngame.273} (99%)
 create mode 100644 src/games/chase.79

diff --git a/bin/games/chase.fasl b/bin/games/chase.fasl
deleted file mode 100644
index 29e9cb0b51b0ff485da2d62ba56aa48df9067746..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 13101
zcmb_jU2I&(b)LC*cexBn@h+E=sQ<eZC6SaUk*0o}$g=iV<Vqx$TrMq9gkef{;@X8J
zyS6I3hT}DyKn;xi6hR-0{MZT5`q58?TQo%r1VtL4Mf+0pp?!%1BdxNOmx>z}V9)nm
z?#%8jDGP8G;NZ-hGvAzZ=FFM7b1(1x_|DmmfrYecTNqw=enH7kU&zc)l`?tI^3(H`
zOr^32vW6<S0hOP>gjQ*rDrTqVXF*bgZJ=CG4yfoo6n9?TkeDx2<^tL2%+*3bWy<Bu
z;=)nU1HJTx;+2_&X^<WY{5lOah^h<VHc$~1L}>>R1*3x_qHxWy`9gMK0us7XD9@IQ
zAR((OpzzZ(g)5cZWTw2qm|G}S3Zl~R0_C#BiBix*s4D?ARjh2Z33VkvDU{1o#d)Bj
zn_HZjU8sy?a+Tr}nMxrL3EB#|$r42>#p%LGaYpodA~U6w51|8Nx2_Gy(8oErpa^#&
zBXaq|RA$j5jucT4dU&QZTN06=RZkT%PZUNjOl2mhcrlxqFOUL38BR`&Bp6+w+CX)K
zii1jkY6q1B)#XXypwMXBE`KVHq5}oziHx17wNcI%XzN6`U7+rQ+5>7E3XZ!E6o1|1
zqBuYbv$);N;%vDz@d(=WOs+JOyEWJuXyKtPg@XONIrmaiZ6*p()5V!$WyHqa{6e;@
zMvj3czu4-xMC43%S*fE^?O$?eVW&4r#!^J8s|k1gH)nhg^5TBT^&ERl%9?W5*8$Z&
zsyY>8v6J1_(x0raufD&rB0BwTf-+uO7AW~k)m1f!W3~3o%j@gDmsYBNsj77SYk8&p
zZjm`IZi>`9m3pe)+h~)yh`Fmj6FGn8MG2XH6i^(XU8^679aL!bmklc3rvkHlt1b;>
z5or3fXnJ+qqe?BIP?5BNf}*-G^#IlN6U)s?uH~d#&_hIm9@N<%RqAo8^JePC`#NKE
zcJF37+qSE&3`qmyec7Ogw%jvWOrA*Gw6^)%#3lEWRkgD#;wTT?X}@0r0@ULF3PXds
zeE7Ib<8jfnFR-mgy4570uWii2-z)7OpA>uH`!6Zs!Vv@3vG>1IRX1JbXcZoOysAnN
zKF!fUowB1LE_E>EBSJQf2E|wZuBzHwhdf@7^>+LKCMY{NKp$n>u~&txsXtZ+gViWC
zEop8h2zOrs^Q_8Vh^b>TpDw2RNA*i0B4SGC7RvLb@@#2d)ov<vXcIejO8E59^0`g8
zC3y0Cbw@(E9yz<dPGguZ>R+oU&8Y~Y*!@?f?|-+d{tOCDP?!1_K9uz#3P~=z?kImy
z%m>5i7ZFW`AUqQYW4SbsA>D$N0<Ue1Ayc;cZJBBRFgz*9E={e$)XHK>sZU}$rd?UJ
zN$W{YE$n!GleXJ_U+<;4kncA<4*v-<f<_&wsqd(RHQAJ2Le<S?E}fMfWxg;n29dQ)
zT6KF~zoYAtUb~lKo>HS1BxT4n>a(!&Dy>|S{M^nZc@<PmjcL~|Q|p&{hf;sZ9wO}i
zBCrxOxT4)3CV=-8xl*_<TP{@5*u?V1vXJ-xsj7xx`QJi~;j%1yrc=EzE8J08Tie0?
z_-eQ4!gbE1z~y{ZCas+bbTq!vEjgDJvlt9ZVr6@CN|Ru)D6)$Dc0x79#s^jPA8Xgs
zDzPNCwU1u(x!&~fTKXp{p_St+I)dXaMc}`@<WnkckpumHRaM&4>DXO5k?y3XHL)r=
zms^(D_(%+9o+JPmI$ydxqx?zbxc9xPIx3dy#Ae9Wa^mT@a@50GPW@CQue}z_b=#Jf
z(`Zi(i2va6&#?SwVmXaged=2IVJ)93T&QrmcgXH_Jps$dmoVqnoz4CehMnY^oLcmj
zGyVT3S&t;tfTPx~VWwrc_R&e1OU}YtR%UvsYfu&gf}fU;W~B<P?oy;lE0`M6%FboE
zI5Am~xr`++mm?3+mlk<AR6aO%Ll(8i9pAhEK~<L?)}mUEilt~)SSy5W$Rb(i`pKH_
ztFg_}!)BR5*1jH7>1Q01@7-TA0Wj-X|E)cfR!Pp=BQvt$ulNqPMSUw2@@sjKTk_Jf
z38SDe0_0YC@Ork33+IZg9yy38wG)KCT%4IHAib#Ca#fv>T~gojhb1f5d#Y-m813G;
zpQx%tJe~G&YH@O~@+}&;wk#pQu;sE38Tg6kjhTHx=S+rs#b!7_y+Z~P<H!2<vc2t=
zOZ{-15Axq>$#8v`g$bx3lOhQZ)upwZsG(GPIT6Zw$m5BoIWh?k?o4d976@fg?6N;K
zqx2J83tR?k*JVg%J?dgt0Ee{8Ue<!|QY3`DitwS=Ld#zD4fd!|)*}GZ9PGUrg3>zO
zuL8UW+H04+oF;UFTYd<t)!yf=scJH^k>ww3uQgTXBNm)bgS3PMu$jHq)X~`iJTJ=e
zoG6&z9b&I!pQpvyn<cjdlKF2(h0A=vS+!PfW?(3pV^-f-LZ)U$XL1V+>_AFGaziqA
zZFn;k1XfzDT9caxJE#@qn9?5H<9A_)v+eWS(VEgcta#cXS<2b|5G%ef?LQK%cv;xa
z3A5sF*_3AI5{bJ@o?YZ9X;KxYI~9t_tB|uPt+qSYn_^z0FjHCynW7%AsxjuUlUYFt
z<uE@lPZvmJN$KXsVbKv|QPSkFq|ISE@3`@nGn_MTQq`|)mIBl<GFId;ml4YSL(63j
z!}WvBVY?6vOVIvy<Iv{3Eqhr^!}6rfK0LW0p(HoUVch-fzOeCNA}6;Hie1x<-OqUq
z3%d(BEZI1@Ik%C+x@bO!WDZkuzA`5_=XMC$<gmbhRB}{jGdz`Ua&mKSH;!t~`xZ*Y
zI~~ui?k(-Lrs66=wh2inW{Ed>&Dtv)z4HT_dQbbleh7OThg9b_ygO=@Y|UX!_VQ54
z9OgzH*&siX)Y>?y2J^cE)BSVAebQP<UyYfgI96HG<gj3)-^{=*j^fTwvG!#`B~%&*
zG?~y2X$y|xNMy)iL3lTgGcuu8E0e><U<b{jR*ciev22STzcV{N{`_{B95xn_6>sf8
zM*7WXuXxX{cr5I%nic=wHiy|`88!#c24>^9<#um*EURfrUpC=MY`EP#j5SVQQf)nb
zF>~SRvkRH)hS=fmp;mbM>|*A!OPAG9<`O$xk3FPtZ`<4is6%8hb4g$K*OuGJTuo1(
z<ItcNI)B(WeYu0oT(Gw*l)3N()U{>iV)_ql)*%$Tl9{<=vvv<M#_`PA)i`~*AKJ*~
zkfF>)bwkL^T=W_p_TbD#fX3;|eau3IGS`;&T2n)r%R(_TSbJgW8Jfz>^$_+lb5T=f
zt`Kr?2Vml*X;N~_GNrAV%girMU+y%by=%+NHJ1~vdA{u0azZ!DT(I&Y9>kJN(v8!X
zOlVe8mCal>yc?%4_roTwHpyJn%FNpcsZD#B%=LNgSo-{SY?8UC71r<d&tCCOnF|a1
zAIyq>)n+bx`eNp?f!R1vxi_%qH9be!)0c|IdJ{Ht1<9!S%;ny&nG1JS``U+k#}bfx
z$&YNjSkQQf!l%#O%rBX#OnEvtRmxqeU6X592>-#So>Kch?W?L&(L`_lkiEW>92org
zQevlw1;1m+@@GIdG0;}(@0rZ=*>>+H+?x>jVu*n%UK6N&PwL9>_L}-WE^3vUhp-Or
z2<5(x8;h(bX}dC?E0qf%@!O9=mrNVFo%7JhU&@nrMR3yr|Dp){vM(Q~_cV*RMi{q_
z!9Y3F)@G<U-*}noJ|o;=+V+~ZsG+(H)otY3O<U5mb+p3YH4F=oFl~I_MEh*pHUk<=
zR89DS_MlR&@K%={1~kwG!bjK!YQ#`Oq@+pVaxrj|wc|u9{2n7RZo2I@ZQ8Wif$S{!
zhMO|f{)OR-<5uLLftoN>#!#nfqTYGvNGLfSDn+h5g>SqI<NUJPk8TuUM9CF(L)b9*
za&*8{i=+VML-;(3pv^E+Xyej2#5NXaE26k$s&o_8I83fE)nRgtNT|oOVbDPOkJ^{W
z0Ki~P3U-@go9RIV4?%=;sSRTSJpx@o&65E+SvCzPf(p7pggt^GQC(mUP(}Guhfy45
z8w*qiz_o7Y`k>`xSg6bFL17eg=zEN9t&Bx*17R{C=c7Qb2*TDH$T^xrk0lD59>*aZ
z?twNs@kz>|o7HL$s$nR!ak@`{ddia`7+eT-9Bl=*SuWd9SeJ|%5eD1{xYyXmLTc&&
z3ow{->=^VoUkisAW9VU>eZW99F@X1UE8`JU4I&IEe7nr`#(A^BkOM#vG@!n0`bw^q
zSEOhQ;K@L>gu;ed$}ldqGJ>@rvMPnbM*Fku5n`Zv(l8iT&jRl`wy{99DcaHF6d9lx
z?PCxLX3O+=5?q@A&YK>gskKXp%kLVx1^LB5(ZJuw7=a07py<2vM~?Tx+~ZE4>nN4L
zPS=A2h2pcVN)I}T#{2h(N~f3kP9UOr0PrtL6`S}Fit%(>;Jnzyu3eyZoyiMV4rGyC
z7>7Sj;AxPj(WYhW(IW$2QTkK)4uR=J%Lf4SmD;tcdcl`#!S=z<$}GQ8IMUjy{_(i#
z2zoVSgZ&C(%rzY5Ov^Ay+o3M69}<I|*(Pu+3-A-IvPl>+L>*9AS*YKHOQl!cLoRio
z(pENv3t4{Xv9(8F8&$=io4G(2BLllbs$y<>ajAcbr!hQq?&hHjRNL-Ozl(F-fhykx
z?380<<SdVoas&;2dZI8hzsOI1YR@WllaEjF?1hVcLPgJuaMZ_fGdLOz^Lrum#OsVl
z{Q=pnYf=-Gii{x<`4S&R?*H&Fu5z0Ux|Iu=d?k~eD##U?oY2@~I+H6iElUK-D{>Ss
z%b)rZ3UyEZT!ie*k>V@Y(W2+^P1M4?khN#4>J~eoSOmAV!;^AvdGQd%U`2+JjhUV1
zb(oKI=CK?05?FB-H7#FA%`eVWGFQ|m%3FRH;VHLh%OaAMLe8?0etRE87eWCI^OP$m
z(#O=0GZ4H#_8sX#?qv~Cc-njo0LSs=!4R)spwJ?hRag9ErboEZy_nM-nA0Iv36KE*
z9?#DKV4MJaT3<<JcV~d|G*Q^2{)MVK8UldNsKM(1c(f;y&E7RAxXp^Z&<ZdT0>}fv
zFFGl{qj?-C=ZqbAQyaN$0bs&*0(3<tdvM1Q-3xWw&@GE@<Hr2A&<&Rm8<yYe?a8Fj
zH)un*J?J*UZZsOBy<@x8Q}6X;jL|_idTpX%^cw(}G61yqPrcdPKzkF4c#TFk0Zak_
zL!Jk~90B~v!BiRA)9CM60Aq9$z*0klH&+IFdQ(7o!gnNh8uR}=oetiBZJ3Wo2)q!B
z?k&T0w1bfeHPQfBB7kwk2Nr-n@Sc<SvnT{$I>C@{0btnx&=G%402_Zm83_Tr-f%<)
z0ADsH95wOxQ>z9Y5dy$A!}xm}0M9f2fU?Ut;-3MqOSnyr2&y#UBmhkOWr1>&0LBsj
zZUN{BXs~NVLIZA(?j_18pkT<a1K<?{Ku7$d37`>DbVQRHrvZQ=a{zeFn80B8^}XKI
zdkKqT9MJ@Dx1qruiQ?!%`JgA7QW0OpgKwtBtEwA}6!P?Xkf(=Vl+E>9VgnLcj(3@T
zeZG$K^Bns{5TN>rGB&djL*0^~qT7h#$+&lUr{jCK@7R0j(Dy-deG`pCmOoG4-;3A#
zmC8e@U7y`wz6H~6Jt<!m)#DqV7HNA`(fH0Ms!vF&lv9Ab7gQNph7Cq!)qVhkS=-N9
z<Iag$`v$Za!;%|HbWP@X_~_#bq|>SQI)2FK1-lz!3+mwxSs#0^CubQpGWNh=jPVZJ
z0D6kMCeBJ7sr0fpifS9KbayiEGuv}l5UnC}c2_vo2dLgcqyw0a;JIG~#cPQ+So996
z=Rk2`Jr3$MwDIWw1}HvzwSh{5`xdASs5e1nL46$*PsVSfdI!Zfuxlpq$>wzaD?-XI
ziuMH*shavPej(+q$oWoQY)DXP3AAX5ArkuX$-XsX$hExrj}Ehk6tP}=y9}sBG6Xp`
zr15&rauJKcHxz5javjCN?K@ajLzmpZd)5rJy%p*-8Szfv_b}Q~%SE?a<ZgDGUUTIW
z29DP9Rv>!L478&a>P?lt?r3r`(1_*2qC6R}sOg2{gFYIIe$x!J(?Z1~F%K^=qeU~&
z3CoqXSYP7=6a8QbpRua6J{WxO344DObo;hMD8EO=bnD@QeAA5hy<q23r<Lncgp8|>
zKv}MJiCu?O4P(4-R2#FZLFX%EK*?QX$jRwi@XFYpoUn4gYu5<y%-3_V@!FX70#JS<
z1Mc4#(A{wRDXW@ZR<S+th(AV$J#Do5A~e`%<!Vwr3#gw{WW^iJBp`ACc;~Gg&uPf%
zJF)bi1H2D)|7FEXxCx-(^O)$r5d{DT0We_!&|?6Oc(Imnd*7uTL@q)2u$2SUG+t@*
z`B2YK6$-P+C*NGrq8rBe*o-j<fH~XODhbtAJe}`RzTD#P=W76a`Hv@!{SaBLyFXFq
zEcbp&T#T?t;wj@CMq4wZ4PmtTrqPb6n5y~jCW5$!-2PzB5m)%MHHV3sfaSvi73(li
zN4==Li|62@H^iU!|Fasq45Kg07)rN}5ofo1t~eUpa~y-n;?5?}W6*EW_N_Bs=t=kw
z!rexL5eP3?VJLZA;^m|ZO@o(XA{;vbxu>ig^ScdEClSy0^P*a8-nfN+Ff}Y6R6!#6
zbYDJkkcU2c+!M+{QoeEHWHOC*Za4f`YZwyD`wP8;bNz*lLY8H}Y`c7ZC_rSP7yW|Y
zAlAS9d@}A;-Rha&-uTDSocvorTFF;rzJIUk)PgovA<Wx~Fp7+EQT{gWEW;Xr;X`?<
zaR{SHhLN_iY9HXW0~rU=Hi-g1$~Sd8if(@b4ljhp`c?drxMD+lx#x0+uKkbfjoOOT
Q)L&tribo6g@P9J@2VJ#By#N3J

diff --git a/build/lisp.tcl b/build/lisp.tcl
index 4ac94427..9d2fa038 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -835,3 +835,9 @@ respond "*" "complr\013"
 respond "_" "games;_games;wa 10\r"
 respond "_" "\032"
 type ":kill\r"
+
+# chase
+respond "*" "complr\013"
+respond "_" "games;_chase\r"
+respond "_" "\032"
+type ":kill\r"
diff --git a/src/ejs/ngame.272 b/src/ejs/ngame.273
similarity index 99%
rename from src/ejs/ngame.272
rename to src/ejs/ngame.273
index 099050ad..9f7b339c 100644
--- a/src/ejs/ngame.272
+++ b/src/ejs/ngame.273
@@ -1482,7 +1482,7 @@ inctl:	.uai
 INDEV:	'DSK   '
 INFN1:	'CHASE '
 INFN2:	'INFO  '
-INDIR:	'GAMES  '
+INDIR:	'GAMES '
 
 outctl:	.uao
 outdev:	'TTY   '
diff --git a/src/games/chase.79 b/src/games/chase.79
new file mode 100644
index 00000000..32df1090
--- /dev/null
+++ b/src/games/chase.79
@@ -0,0 +1,414 @@
+(DECLARE (*EXPR INIT-MAZE PRINT-MAZE CHASE WINNER)
+	 (MAPEX T)
+	 ;(NEWIO T)
+	 (SPECIAL DEBUG NEXTCHAR BIGX LITX BIGO LITO TIME-INTERVAL
+                  INTERGAME-DELAY XSCORE OSCORE LEAVE-FLAG MAZE)
+	 (UNSPECIAL BIGXDIR BIGODIR LITXDIR LITODIR)
+	 (ARRAY* (FIXNUM (MAZE 24. 80.)))
+	 (FIXNUM X Y XSCORE OSCORE)
+	 (FLONUM TIME-INTERVAL))
+	 
+(FASLOAD STATTY FASL DSK LIBLSP)
+
+(SETQ MAZE (ARRAY NIL FIXNUM 24. 80.))
+
+(eval-when (compile eval load)
+	(defun newcopy (x) (append x nil))
+
+	(setq makeintern t)
+	(DEFUN MAKESYM (A) 
+	       ;; FUNCTION MAKESYM MAKES UP A GENSYM OF ITS ARG
+	       (PUTPROP A
+			(ADD1 (OR (GET A 'MAKESYM) 0.))
+			'MAKESYM)
+	       (SETQ A (MAKNAM (APPEND (OR (GET A 'EXPLO)
+					   (PUTPROP A
+						    (EXPLODE A)
+						    'EXPLO))
+				       (EXPLODE (GET A 'MAKESYM)))))
+	       (COND (MAKEINTERN (INTERN A)) (A)))
+)
+	
+	
+(DEFUN MAZE MACRO (X) (NCONC (NEWCOPY '(ARRAYCALL FIXNUM)) X))
+
+(SETQ DEBUG NIL TERPRI T NEXTCHAR '(BIGO BIGX LITO LITX)
+      ERRLIST '((INPUT-ACTIVATE NIL) (INPUT-ECHO T))
+      TIME-INTERVAL .07 INTERGAME-DELAY 10. *NOPOINT T LEAVE-FLAG NIL
+      IBASE 10. BASE 10.)
+
+(PROG2 (NCONC NEXTCHAR NEXTCHAR) T)
+
+(DEFUN INIT-MAZE (LIST)
+    (MAPC
+       '(LAMBDA (EL)
+           (COND
+	      ((ATOM (CAR EL))
+	       (DO ((I (CAADR EL) (1+ I)))
+		   ((= I (CADADR EL)))
+		   (STORE (MAZE (CAR EL) I) 95.)))
+	      (T
+	       (DO ((I (CAAR EL) (1+ I)))
+		   ((= I (CADAR EL)))
+		   (STORE (MAZE I (CADR EL)) 124.)))))
+	LIST)
+    (AND DEBUG
+       (DO ((X 0. (1+ X)))
+	   ((= X 23.) T)
+	   (AND (NOT (ODDP X)) (STORE (MAZE X 0.)  (+ 48. (REMAINDER X 10.)))))
+       (DO ((Y 0. (1+ Y)))
+	    ((= Y 79.))
+	    (AND (NOT (ODDP Y)) (STORE (MAZE 0. Y)  (+ 48. (REMAINDER Y 10.)))))) )
+
+(DEFUN PRINT-MAZE ()
+   (CURSORPOS 'C)
+   (DO ((X 0. (1+ X)))
+       ((= X 23.))
+       (DO ((Y 0. (1+ Y)))
+	   ((= Y 79.))
+	   (COND
+	      ((ZEROP (MAZE X Y)))
+	      (T (CURSORPOS X Y) (TYO (MAZE X Y)))))))
+
+(DEFUN CHASE ()
+(PROG (XSCORE OSCORE XLEFT)
+ (SETQ XSCORE 0. OSCORE 0.)
+ (INIT-MAZE
+  '(((6. 12.) 67.)
+    ((14. 16.) 58.)
+    (11. (56. 67.))
+    ((5. 13.) 15.)
+    (12. (6. 15.))
+    (14. (10. 18.))
+    ((15. 19.) 10.)
+    (22. (15. 22.))
+    ((15. 19.) 26.)
+    ((6. 20.) 17.)
+    (4. (15. 34.))
+    (11. (18. 28.))
+    ((5. 10.) 23.)
+    ((7. 12.) 28.)
+    ((5. 17.) 33.)
+    (15. (22. 30.))
+    ((13. 16.) 24.)
+    ((13. 17.) 44.)
+    (16. (34. 38.))
+    (16. (39. 44.))
+    (12. (38. 45.))
+    (6. (34. 41.))
+    (8. (38. 45.))
+    ((4. 9.) 44.)
+    (10. (34. 41.))
+    (10. (47. 54.))
+    ((8. 11.) 54.)
+    ((11. 16.) 51.)
+    (5. (45. 52.))
+    (0. (0. 80.))
+    (22. (0. 80.))
+    ((1. 24.) 0.)
+    ((1. 24.) 78.)
+    ((1. 3.) 20.)
+    ((3. 5.) 28.)
+    ((16. 23.) 64.)
+    (4. (66. 78.))
+    ((17. 23.) 14.)
+    ((19. 23.) 22.)
+    ((14. 20.) 60.)
+    ((14. 20.) 70.)
+    (13. (60. 71.))
+    ((5. 10.) 65.)
+    (7. (1. 11.))
+    ((9. 13.) 6.)
+    ((8. 11.) 10.)
+    (15. (52. 58.))
+    (19. (53. 60.))
+    
+			))
+  (PRINT-MAZE)
+  NEWGAME
+  (COND (XLEFT (SETQ XLEFT NIL)) (T (SETQ XLEFT T)))
+  (SETQ BIGXDIR NIL LITXDIR NIL BIGODIR NIL LITODIR NIL)
+  (COND
+     (XLEFT 
+        (SETQ BIGX (NEWCOPY '(2. 2.)) LITX (NEWCOPY '(20. 2.))
+              BIGO (NEWCOPY '(2. 74.)) LITO (NEWCOPY '(20. 74.))))
+     (T (SETQ BIGX (NEWCOPY '(2. 74.)) LITX (NEWCOPY '(20. 74.))
+	      BIGO (NEWCOPY '(2. 2.))  LITO (NEWCOPY '(20. 2.)))))
+  (SETQ ALARMCLOCK
+     (FUNCTION
+      (LAMBDA (FOO)
+        (SETQ NEXTCHAR (CDR NEXTCHAR))
+	(COND
+	   ((EQ (CAR NEXTCHAR) 'BIGX)
+	    (CURSORPOS (CAR BIGX) (CADR BIGX))
+	    (CURSORPOS 'F) (CURSORPOS 'X)
+	    (COND
+	       ((NULL BIGXDIR))
+	       ((EQ BIGXDIR 'UP)
+		(RPLACA (CDR BIGX) (1+ (CADR BIGX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGX) (CADR BIGX))))
+		       (AND (EQ (CAR BIGX) (CAR BIGO))
+			    (EQ (CADR BIGX) (CADR BIGO))))
+		   (RPLACA (CDR BIGX) (1- (CADR BIGX)))))
+	       ((EQ BIGXDIR 'DOWN)
+		(RPLACA (CDR BIGX) (1- (CADR BIGX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGX) (CADR BIGX))))
+		       (AND (EQ (CAR BIGX) (CAR BIGO))
+			    (EQ (CADR BIGX) (CADR BIGO))))
+		   (RPLACA (CDR BIGX) (1+ (CADR BIGX)))))
+	       ((EQ BIGXDIR 'LEFT)
+		(RPLACA BIGX (1- (CAR BIGX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGX) (CADR BIGX))))
+		       (AND (EQ (CAR BIGX) (CAR BIGO))
+			    (EQ (CADR BIGX) (CADR BIGO))))
+		   (RPLACA BIGX (1+ (CAR BIGX)))))
+	       ((EQ BIGXDIR 'RIGHT)
+		(RPLACA BIGX (1+ (CAR BIGX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGX) (CADR BIGX))))
+		       (AND (EQ (CAR BIGX) (CAR BIGO))
+			    (EQ (CADR BIGX) (CADR BIGO))))
+		   (RPLACA BIGX (1- (CAR BIGX))))))
+	    (CURSORPOS (CAR BIGX) (CADR BIGX))
+	    (TYO 88.)
+	    (AND (= (CAR BIGX) (CAR LITO)) (= (CADR BIGX) (CADR LITO))
+		 (WINNER 'X) (SETQ LEAVE-FLAG T)))
+	   ((EQ (CAR NEXTCHAR) 'BIGO)
+	    (CURSORPOS (CAR BIGO) (CADR BIGO))
+	    (CURSORPOS 'F) (CURSORPOS 'X)
+	    (COND
+	       ((NULL BIGODIR))
+	       ((EQ BIGODIR 'UP)
+		(RPLACA (CDR BIGO) (1+ (CADR BIGO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGO) (CADR BIGO))))
+		       (AND (EQ (CAR BIGO) (CAR BIGX))
+			    (EQ (CADR BIGO) (CADR BIGX))))
+		   (RPLACA (CDR BIGO) (1- (CADR BIGO)))))
+	       ((EQ BIGODIR 'DOWN)
+		(RPLACA (CDR BIGO) (1- (CADR BIGO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGO) (CADR BIGO))))
+		       (AND (EQ (CAR BIGO) (CAR BIGX))
+			    (EQ (CADR BIGO) (CADR BIGX))))
+		   (RPLACA (CDR BIGO) (1+ (CADR BIGO)))))
+	       ((EQ BIGODIR 'LEFT)
+		(RPLACA BIGO (1- (CAR BIGO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGO) (CADR BIGO))))
+		       (AND (EQ (CAR BIGO) (CAR BIGX))
+			    (EQ (CADR BIGO) (CADR BIGX))))
+		   (RPLACA BIGO (1+ (CAR BIGO)))))
+	       ((EQ BIGODIR 'RIGHT)
+		(RPLACA BIGO (1+ (CAR BIGO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR BIGO) (CADR BIGO))))
+		       (AND (EQ (CAR BIGO) (CAR BIGX))
+			    (EQ (CADR BIGO) (CADR BIGX))))
+		   (RPLACA BIGO (1- (CAR BIGO))))))
+	    (CURSORPOS (CAR BIGO) (CADR BIGO))
+	    (TYO 79.)
+	    (AND (= (CAR BIGO) (CAR LITX)) (= (CADR BIGO) (CADR LITX))
+		 (WINNER 'O) (SETQ LEAVE-FLAG T)))
+	   ((EQ (CAR NEXTCHAR) 'LITO)
+	    (CURSORPOS (CAR LITO) (CADR LITO))
+	    (CURSORPOS 'F) (CURSORPOS 'X)
+	    (COND
+	       ((NULL LITODIR))
+	       ((EQ LITODIR 'UP)
+		(RPLACA (CDR LITO) (1+ (CADR LITO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITO) (CADR LITO))))
+		       (AND (EQ (CAR LITO) (CAR LITX))
+			    (EQ (CADR LITO) (CADR LITX))))
+		   (RPLACA (CDR LITO) (1- (CADR LITO)))))
+	       ((EQ LITODIR 'DOWN)
+		(RPLACA (CDR LITO) (1- (CADR LITO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITO) (CADR LITO))))
+		       (AND (EQ (CAR LITO) (CAR LITX))
+			    (EQ (CADR LITO) (CADR LITX))))
+		   (RPLACA (CDR LITO) (1+ (CADR LITO)))))
+	       ((EQ LITODIR 'LEFT)
+		(RPLACA LITO (1- (CAR LITO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITO) (CADR LITO))))
+		       (AND (EQ (CAR LITO) (CAR LITX))
+			    (EQ (CADR LITO) (CADR LITX))))
+		   (RPLACA LITO (1+ (CAR LITO)))))
+	       ((EQ LITODIR 'RIGHT)
+		(RPLACA LITO (1+ (CAR LITO)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITO) (CADR LITO))))
+		       (AND (EQ (CAR LITO) (CAR LITX))
+			    (EQ (CADR LITO) (CADR LITX))))
+		   (RPLACA LITO (1- (CAR LITO))))))
+	    (CURSORPOS (CAR LITO) (CADR LITO))
+	    (TYO 111.)
+	    (AND (= (CAR BIGX) (CAR LITO)) (= (CADR BIGX) (CADR LITO))
+		 (WINNER 'X) (SETQ LEAVE-FLAG T)))
+	   ((EQ (CAR NEXTCHAR) 'LITX)
+	    (CURSORPOS (CAR LITX) (CADR LITX))
+	    (CURSORPOS 'F) (CURSORPOS 'X)
+	    (COND
+	       ((NULL LITXDIR))
+	       ((EQ LITXDIR 'UP)
+		(RPLACA (CDR LITX) (1+ (CADR LITX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITX) (CADR LITX))))
+		       (AND (EQ (CAR LITX) (CAR LITO))
+			    (EQ (CADR LITX) (CADR LITO))))
+		   (RPLACA (CDR LITX) (1- (CADR LITX)))))
+	       ((EQ LITXDIR 'DOWN)
+		(RPLACA (CDR LITX) (1- (CADR LITX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITX) (CADR LITX))))
+		       (AND (EQ (CAR LITX) (CAR LITO))
+			    (EQ (CADR LITX) (CADR LITO))))
+		   (RPLACA (CDR LITX) (1+ (CADR LITX)))))
+	       ((EQ LITXDIR 'LEFT)
+		(RPLACA LITX (1- (CAR LITX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITX) (CADR LITX))))
+		       (AND (EQ (CAR LITX) (CAR LITO))
+			    (EQ (CADR LITX) (CADR LITO))))
+		   (RPLACA LITX (1+ (CAR LITX)))))
+	       ((EQ LITXDIR 'RIGHT)
+		(RPLACA LITX (1+ (CAR LITX)))
+		(AND
+		   (OR (NOT (ZEROP (MAZE (CAR LITX) (CADR LITX))))
+		       (AND (EQ (CAR LITX) (CAR LITO))
+			    (EQ (CADR LITX) (CADR LITO))))
+		   (RPLACA LITX (1- (CAR LITX))))))
+	    (CURSORPOS (CAR LITX) (CADR LITX))
+	    (TYO 120.)
+	    (AND (= (CAR BIGO) (CAR LITX)) (= (CADR BIGO) (CADR LITX))
+		 (WINNER 'O) (SETQ LEAVE-FLAG T))))
+        (COND ((NULL LEAVE-FLAG) (ALARMCLOCK 'TIME TIME-INTERVAL))
+	      (T (SETQ LEAVE-FLAG NIL) (SETQ ALARMCLOCK NIL))))))
+  (ALARMCLOCK 'TIME TIME-INTERVAL)
+  (INPUT-ACTIVATE T)
+  (INPUT-ECHO NIL)
+  ((LAMBDA (READTABLE)
+      (SSTATUS MACRO 59. NIL)
+      (SSTATUS MACRO 39. NIL)
+      (MAPC '(LAMBDA (C) (SETSYNTAX C 1245184. NIL))
+	    '(/ A S D W F G H T /; /' /{ /[ /4 /5 /6 /8 /n /
))
+      (DO ((CH (READ) (READ)))
+	  (NIL)
+	  (COND
+	     ((EQ CH '/W)
+	      (COND ((EQ BIGXDIR 'RIGHT) (SETQ BIGXDIR NIL))
+		    (T (SETQ BIGXDIR 'LEFT))))
+	     ((EQ CH 'A)
+	      (COND ((EQ BIGXDIR 'UP) (SETQ BIGXDIR NIL))
+		    (T (SETQ BIGXDIR 'DOWN))))
+	     ((EQ CH 'S)
+	      (COND ((EQ BIGXDIR 'LEFT) (SETQ BIGXDIR NIL))
+		    (T (SETQ BIGXDIR 'RIGHT))))
+	     ((EQ CH 'D)
+	      (COND ((EQ BIGXDIR 'DOWN) (SETQ BIGXDIR NIL))
+		    (T (SETQ BIGXDIR 'UP))))
+	     ((EQ CH 'T)
+	      (COND ((EQ LITXDIR 'RIGHT) (SETQ LITXDIR NIL))
+		    (T (SETQ LITXDIR 'LEFT))))
+	     ((EQ CH 'F)
+	      (COND ((EQ LITXDIR 'UP) (SETQ LITXDIR NIL))
+		    (T (SETQ LITXDIR 'DOWN))))
+	     ((EQ CH 'G)
+	      (COND ((EQ LITXDIR 'LEFT) (SETQ LITXDIR NIL))
+		    (T (SETQ LITXDIR 'RIGHT))))
+	     ((EQ CH 'H)
+	      (COND ((EQ LITXDIR 'DOWN) (SETQ LITXDIR NIL))
+		    (T (SETQ LITXDIR 'UP))))
+	     ((EQ CH '/[)
+	      (COND ((EQ BIGODIR 'RIGHT) (SETQ BIGODIR NIL))
+		    (T (SETQ BIGODIR 'LEFT))))
+	     ((EQ CH '/;)
+	      (COND ((EQ BIGODIR 'UP) (SETQ BIGODIR NIL))
+		    (T (SETQ BIGODIR 'DOWN))))
+	     ((EQ CH '/')
+	      (COND ((EQ BIGODIR 'LEFT) (SETQ BIGODIR NIL))
+		    (T (SETQ BIGODIR 'RIGHT))))
+	     ((EQ CH '/{)
+	      (COND ((EQ BIGODIR 'DOWN) (SETQ BIGODIR NIL))
+		    (T (SETQ BIGODIR 'UP))))
+	     ((EQ CH '/8)
+	      (COND ((EQ LITODIR 'RIGHT) (SETQ LITODIR NIL))
+		    (T (SETQ LITODIR 'LEFT))))
+	     ((EQ CH '/4)
+	      (COND ((EQ LITODIR 'UP) (SETQ LITODIR NIL))
+		    (T (SETQ LITODIR 'DOWN))))
+	     ((EQ CH '/5)
+	      (COND ((EQ LITODIR 'LEFT) (SETQ LITODIR NIL))
+		    (T (SETQ LITODIR 'RIGHT))))
+	     ((EQ CH '/6)
+	      (COND ((EQ LITODIR 'DOWN) (SETQ LITODIR NIL))
+		    (T (SETQ LITODIR 'UP))))
+	     ((EQ CH '/n)
+	      (DO ((X 10. (1+ X)))
+	          ((= X 15.))
+	          (CURSORPOS X 33.)
+	          (DO (( Y 33. (1+ Y)))
+	              ((= Y 48.))
+	              (TYO (COND ((ZEROP (MAZE X Y)) 32.)(T (MAZE X Y))))))
+	      (RETURN NIL))
+	     ((EQ CH '/
)
+	      (SETQ BIGXDIR NIL BIGODIR NIL LITXDIR NIL LITODIR NIL)
+	      (ALARMCLOCK 'TIME -1)
+	      (PRINT-MAZE)
+	      (ALARMCLOCK 'TIME TIME-INTERVAL))
+	     ((EQ CH '/) (SETQ ALARMCLOCK NIL)
+			  (INPUT-ACTIVATE NIL)
+			  (INPUT-ECHO T)))))
+   (GET (*ARRAY (GENSYM) 'READTABLE T) 'ARRAY))
+  (GO NEWGAME)))
+))))
+
+(DEFUN WINNER (W)
+    (PROG ()
+       (CURSORPOS (CAR BIGX) (CADR BIGX)) (CURSORPOS 'F) (CURSORPOS 'X)
+       (CURSORPOS (CAR BIGO) (CADR BIGO)) (CURSORPOS 'F) (CURSORPOS 'X)
+       (CURSORPOS (CAR LITX) (CADR LITX)) (CURSORPOS 'F) (CURSORPOS 'X)
+       (CURSORPOS (CAR LITO) (CADR LITO)) (CURSORPOS 'F) (CURSORPOS 'X)
+       (MAPC '(LAMBDA (X) (CURSORPOS (CAR (EVAL X)) (CADR (EVAL X)))
+			  (CURSORPOS 'F)
+			  (CURSORPOS 'X))
+	      '(BIGX BIGO LITX LITO))
+       (TYO 7.)
+       (CURSORPOS 10. 33.)
+       (PRINC '|**************|)
+       (CURSORPOS 11. 33.)
+       (PRINC '|*            *|)
+       (CURSORPOS 12. 33.)
+       (COND
+          ((EQ W 'X) (PRINC '|*  X WINS!!  *|))
+	  (T         (PRINC '|*  O WINS!!  *|)))
+       (CURSORPOS 13. 33.)
+       (PRINC '|*            *|)
+       (CURSORPOS 14. 33.)
+       (PRINC '|**************|)
+       (SLEEP 5.)
+       (CURSORPOS 12. 37.)
+       (REPEAT 8. (CURSORPOS 'X))
+       (COND ((EQ W 'X) (SETQ XSCORE (1+ XSCORE)))
+	     (T (SETQ OSCORE (1+ OSCORE))))
+       (CURSORPOS 12. 35.)
+       (PRINC XSCORE)
+       (PRINC '|         |)
+       (CURSORPOS 12. (COND ((> OSCORE 10.) 43.) (T 44.)))
+       (PRINC OSCORE)
+       (CURSORPOS 1. 1.)
+       (SLEEP 5.)
+       (CURSORPOS 12. 34.)
+       (PRINC '|   READY   |)
+       (CURSORPOS 1. 1.)
+       (RETURN T)))
+
+;;; (C) Bill Kornfeld, 1978
+
+
+