Trailing-Edge
-
PDP-10 Archives
-
walsh_goodStuff_1600
-
more-games/dodgem.exe
There are no other files named dodgem.exe in the archive.
?p ?x I>$y6Kb)( <u%(` Oh F Q F: zkq) ?G?{r E@@ B 8
tv 2@f + + gg gg p -M *h N T 2@$ 2@$ x+ @ , GB` 8 ` gg 2@ IJNi98 ` gg Q 0 2@aKb ]8 \Y s , 1 Qp 6 ` 1 U V 2@=2@\`Kb M88 \y s , 1 T G ` T G M s u ( H u u x q 2@]4K.m{T b 5 @ h H V( Y ]0 H$ | $$ | | 0V( Y { B C 2@c3gg [w b 5 @ h H XH k c1 b|^. y h H XH k C
2@"a96 1 ~2@52@|2@C K XY
52@wKb q , d [( z z
2@$@aQ , ~2@"N 8 ! 1 ~ b|^. y h H Zh } C1 , @2@[' x7 , N 8 P h% . k *2 : 8 2@Hfghq ~ y
l ]H Hc ~$
j T ]H Dn]H 4 2 - C T U . BH$ 2@Q'[' < ~ y
l c(A Q%c(A I U Uc(A Q[ I0 v $ | 2 - . T .2@H3gl=Q ~
l
d h H eHS H1 b2@R-g4)Y
@
9
@ T fX R* 3 x hg N 2@H C T . B o T h@k R} Q% 2@SWghq v ~
@ T h@k SU C'6$
i R k Q% 2@WUgl=T2@Q'[' < ~ ~
@ T k Q% 8 2@C5gnH1 ( h )j l C1 C1 2@M7[' Y w h )j n` M5ghq Y $@ )# . .F O R < < !? ; a e Etm,f@ 8 INX I>$y6GB` @` @ 0 s "9Y@ 0 A *i g ? \[>p + N }xp ogg GB` H FZh }] c1^HGB` gg GB` ` *a 0E ? b * b 5 @ h qB )
0 O 2 r P g
t | < H1g6 q 0 2 X' @EN H b y } !+ E 9 ! 0! M2 f | (6gR] , , P g# H$ | 6$ | PggR ?8
READ FILE(TT) INTO(STR); haS<! Oy fO SYSIN xqI<T N( P p hxC2<X O PP HM7 N(y PTgR t( & IF STR='BOARD' THEN DO; hS<! r Rp K; SYSPRINT xI<T R Sh p % hC2<X Rp T0# H M7 R gRd XEQ; 0*6gR x MON; HxgR Y0 ON ATTENTION MON; HEg6$ XhT 2 ]` 3sIb HJg6$ X [ Ig HNg6 O k ]` 5g HSg6 n } Z@ >G @gR ]` RANDOM()=0; PugS< 2 2PARSE ERROR -- CAN'T RECOGNIZE ")" X\g6$ [P@:I$8 8mI$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 & H N;
* @810. END;
820. ELSE IF M=1 THEN DO;
830. IF I=SIZE THEN GO TO ILMOVE;
840. IF BD(I+1,J)^=0 THEN GO TO ILMOVE;
850. BD(I+1,J)=N;
860. END;
870. ELSE IF M=3 THEN DO;
880. IF I=1 THEN GO TO ILMOVE;
890. IF BD(I-1,J) ^= 0 THEN GO TO ILMOVE;
900. BD(I-1,J)=N;
910. END;
920. BD(I,J)=0;
930. GO TO MOVGEN;
940. ILMOVE: PUT SKIP LIST('ILLEGAL MOVE');
950. GO TO MOVE;
960. MOVGEN: NN=0;
970. DO I = 1 TO SIZE;
980. DO J = 1 TO SIZE;
990. IF BD(I,J)<0 THEN DO;
1000. OVAL = BVAL(I,J);
1010. CALL MVAL(1,0,RM);
1020. CALL MVAL(0,-1,DM);
1030. CALL MVAL(0,1,UM);
1040. END;
1050. END; u $gR ( P /* DODGEM.CPL -- WRITTEN BY JOHN XENAKIS, 1975 */; PegR sX p ?' 2 . . '; PUT SKIP; P
*g6$Cy p w H2 _ 0u;G @ gR RANDOM()=0; Pmg6$ w P h>p Ng Pvg
42 !^ H 2 >( Pl
READ FILE(TT) INTO(STR); P #g6$D@ ;0 2W Vs PgR l@ $
READ FILE(TT) INTO(STR); h^S<! + RANDOM x I<T J P +
@ ( {C47d
HLg6$ X P P H2 M' X OgR h p
DEFAULT (RANGE(*))'FIXED; P5g6$T@% "0 o 2dP @ "T P-gR x0 H @ RM=8;DM=4;UM=0; Pig6$Zpu #P 2^P @Vs PHgR =` P
ON ERROR GOTO GSIZE; Pfg6$3 ! 2D @Ng P 9G:A# s BOARD SIZE: X
g6$@
j @ g H2- A`7 x
h C2<X h N H ;gR p DECLARE BL(10); h US<! ' H t & BL x YI<T( h
{ h `C2<X P m X gg6$` w H21 &j= Q`><nqb x nI5R( a @ | p F(
l h sC25V H x fX: 8 H P
s H gR 1 ` DO I = 1 TO 10; % h +S<! !x
. RM x
I<T! "p
\ h
C2<X!x #8
PngR %0 .
IF M=2 & J=SIZE THEN DO; x gR 2@ 0 BL(I)=SUBSTR('05040302010000000000',2*I-1,2); Pg6$ /@ 2#pj h P g6$@ @ 2B ZPr8 X
!G:A#
05040302010000000000 h
3S<!
t(
@ <5 SUBSTR x
8I<T' (x
G P 4
@ h
?C2<X( )@
L 0 gR * END; H
Mg6$)`
} H21 >G h CS<!
+@
\ E DM x
TI<T*X ,8
c . h
[C2<X+@ -
h X
bg6$ < @ g H27@ !`7 x
U PNg6$ $p 2sH Z h
S<! Z`
{ 4 I x
sI<T.H 0(
@ h
zC2<X/0 0p " g6$ ( ` z H2A` @+R@ `A Qa7 `n"I` 8"hj8 0 g 4%
Fg6$$(
Q 0 g H2* @)P8 8b+R8
PgR A` P DECLARE ALPH CHAR(26); ALPH=SUBSTR(COLLATE(),'102'B3,26);
J h
iS<!
U5` . ] UM x &I<T4x 6X 5 a h -C2<X5` 7 : X 4g6$ o @ g H2 p `7 x ' Pwg6$ 3p 21he ^- x
rgR RP DECLARE BD(10,10),LIST(30,5),STR CHAR(100) VAR; P<gR u
@
?' 1 . . ';PUT SKIP; h ES<!
KS` " BD x RI<T:0 < a n h XC2<X; <X e h `S<! SU@
z @ h S<!
9M@
l - ALPH x xI<T? @x
R h C2<X@ A@
X
g6$3X
d P w H2L@ /f= !Q`o;G P~g6$ (P 2 P ^- HgR ( p DECLARE TT FILE; h
S<!
1 A TT x
I<TCP E0
+ h
"C2<XD8 Ex
/ xYI5RCP
#G
9 ( p 0 0 F(
? h
0C25VF GX
= H H
8M7 CP
1 p
>gR p @ OPEN FILE(TT) INPUT RECORD TITLE('TTY:');
S<! yJ
R cr COLLATE x
JI<TI8 K
Y P
Y @ h
QC2<XJ K`
^ @
XG:AR
4 0 @
g6$ g H2RP ` 0%g`
LN8 !Q`8`P g^8@/f8 x
cI5R?
N8
sA` F( h
kC25VM@ <X=` Oh
~ h
yS<! gW STR x
I<TP Qh
# h > Q`><a` g `<8
8 /8@'X2 TX ( F( h 2H 0
1 h H
( 8 h
\H. START x h
2a( M' x h; @
CG:A#
` TTY: ` @0uEth4}G] ^ X $ 2k a-@CHAP 8 @ G:A# T N P @ tC47d p gR k 0 PUT SKIP LIST('DO YOU WANT THE RULES?'); `gR e0
P IF STR^='N' & STR^='NO' THEN DO; @G:A# NO x&g6$d2
P 2D $ K
P z 2D7 o)b 01g 4% 6gR i8 ?'A PLAYING BOARD OF SIZE 3 STARTS OUT AS FOLLOWS:';PUT SKIP; 9G:A# ' A PLAYING BOARD OF SIZE 3 STARTS OUT AS FOLLOWS: `Bg6$g f $ 2|`7 @CHAPC 8 ( `G:A# DO YOU WANT THE RULES? hSg6$c ` 0 $ 2l a-@CHAPT 8 Xqg6$(+
% 2e0 @0u@4
Rg 7gR o ARETHEALETTERS, AND MINEHARETHEpDIGITS.';PUT?SKIP; eG:A# 3 . YOURSPIECESSARE;THE LETTERS,AAND MINE ARE THE DIGITS. `ng6$l`I A TURN CONSISTS `g6$ohN 0 $ 2yh7 @CHAP 8 0~gR X 0 END; b M HTG:A# C 2 . . `g6$
X= p $ 2wX7 @CHAP 8 H MG:A# 1 . . `"g6$9`.
@ $ 2u`7 @CHAP# 8 X'g6$ C
@ $ 2x07 @ a-@C Ab H G:A# # p .A B XBg6$ x 6$8 ?'OF MOVING ONE''S OWN PIECE, AS FOLLOWS.';PUT SKIP; xSG:A# OF MOVING ONE'S OWN PIECE, AS FOLLOWS. ( XJg6$ $ 2sX7 a-@C Ab (pgR P %?'YOU MAY MOVE UP, LEFT OR RIGHT. I MAY MOVE RIGHT, UP OR DOWN.';PUT SKIP; jG:A# \ YOU MAY MOVE UP, LEFT OR RIGHT. I MAY MOVE RIGHT, UP OR DOWN. `ug6$}8 P $ 2 `7 @CHAPv 8 Xg6$ W P $ 2
x7 a-@C Ab gR
x ?'YOU MAY MOVE YOUR PIECES OFF THE TOP OF THE BOARD.';PUT SKIP;
G:A# v YOU MAY MOVE YOUR PIECES OFF THE TOP OF THE BOARD. U `[g6$z@q $ 27 @CHAP\ 8 \gR ` p ?'I MAY MOVE MY PIECES OFF OF THE RIGHT OF THE BOARD';PUT SKIP; #G:A# I MAY MOVE MY PIECES OFF OF THE RIGHT OF THE BOARD `,g6$Hc p $ 2
07 @CHAP- 8 bgR
@ %?'AMOVEIS INDICATED BY TWO CHARACTERS.THE FIRST CHAR IS2THE';PUT SKIP; P;G:A# - X AMOVE IS$INDICATED7BY TWO CHARACTERS.b THEFIRST$CHARPISpTHE `Eg6$@h @ $ 2
7 a-@C Ab XOg6$ : @ $ 2(7 a-@C Ab 0+g 4% 1 X g6$ $ 2 7 a-@C Ab ggR ( ?'PIECE BEING MOVED, AND THE SECOND CHAR IS THE';PUT SKIP;
gR ` ?'DIRECTIONA(U,D,L,R FOR UP,DOWN, LEFT OR RIGHT).';PUTMSKIP; ~G:A# 2 E DIRECTION (U,D,L,RAFOR UP, DOWN,LEFT ORBRIGHT). `g6$xs ` $ 2 87 @CHAP 8 rgR x 0 ?'FOR EXAMPLE,}IFYOU MOVE"AU", THENTYOUGWILL';PUTASKIP; G:A# O FORIEXAMPLE,IFGYOU#MOVEH"AU", THEN YOUWILL ` g6$py 0 $ 2 7 @CHAP 8 Hg6$rP : 0 } 2f(7 >G vG:A# F PIECE BEING@MOVED,bANDXTHE6SECONDCHAR IS THE `1g6$p-@C Ab X&g6$ P 0 $ 27 a-@C Ab XOg6$ h $ 2 7 a-@C Ab mgR )` ?'YOU MAY SPECIFY IN THE RANGE 2 THROUGH 10.';PUT SKIP; X9g6$ $ 27 a-@C Ab gR $p p %?'WHEN IT IS YOUR MOVE, YOU MAY TYPE "RES" TO RESTART THE GAME,';PUT SKIP; G:A# F WHEN IT IS YOUR MOVE, YOU MAY TYPE "RES" TO RESTART THE GAME, ` g6$"0- p $ 2%P7 @CHAP 8 X&g6$ p $ 20p7 a-@C Ab ,gR 0p @ $?'OR "PASS" TO GIVE UP A TURN, OR "BOARD" TO GET A NEW BOARD.';PUT SKIP; 1G:A# OR "PASS" TO GIVE UP A TURN, OR "BOARD" TO GET A NEW BOARD. G:A# YOU MAY SPECIFY IN THE RANGE 2 THROUGH 10. `Eg6$ @! $ 247 @CHAPF 8
gR ,h !?'THE GAME IS WON BY THE FIRST PLAYER WHO MOVES ALL HIS';PUT SKIP; SG:A# < THE GAME IS WON BY THE FIRST PLAYER WHO MOVES ALL HIS `\g6$*@ $ 22(7 @CHAP] 8 hgR / ` ?'PIECES OFF OF THE BOARD.';PUT SKIP; `kG:A# ]
PIECES OFF OFTHEPBOARD. `rg6$-H ` $ 2/p7 @CHAPs 8 Xxg6$ - ` $ 2X7 / a-@C Ab ( `;g6$&(E: PUT SKIP LIST('BOARD SIZE:'); (W XMg6$ ' $ 2$p7 a-@C Ab `zgR 9p p GET STRING(STR!!' ') LIST(SIZE); P g/ 1H u u P+g/ !, u u @%G:A# ? h5S<! Y8A SIZE x9I<T7( 9H h@C2<X8 9PM hGg6$4h
/ p 2%p 48@MZ8gK@MjFCG 0g 4%; <xg A hC2<X< =@l H 4g6$Xr P 2?8 @Ib Hbg6 c P k h?8 5g Hqg6 { P } h>( >G Xlg6$ MXO % 29p @0u@4
Rg HNgR %p @ ON ERROR SYSTEM; h
.gR B IF SIZE<2 ! SIZE>10 THEN GOTO GSIZE; P MgR K8 =p
IF BD(I,J)<0 THEN DO; xg6$@X 2E@
Mj8 ` g "]' y8'$8 Pg6$ , 2E@ Ng 0RgR K( P END; > h >g6$ n $ 2=` a-@CHAP ? 8 HgR E@ ` DO I = 1 TO SIZE; &g6$Dx ` z 2M0n @+R@ `A Mj8[`87B8
GE Z z HmgR R 0 DO J = 1 TO SIZE; h3S<! :P 5 J ( x I5R;`II( @ 0 F('~ 0 h@C25VH IX ! @TgR J8 BD(I,J)=0; pNg6$IxZ g 2K(U
`7
t " '` Ax S H g6$CXb P } 2RU >G 0YgR L END; H^g6$Kpk } 2E@n >G HagR M0 p DO I = 2 TO SIZE; eg6$Lhz p z 2Hs @+R@ `A Mj8[`87B8
GE Z z 0jg 4% @rgR OG @ BD(I,1)=I-1; xug6$N`O @ g 2Yxs
. hC2<XP( Qh g6$F@S 0 z 2L U @Qb@ `A Mj8[`87B8
GE Z z @ygR Yx ! BD(1,I)=1-I; 0NgR Sx !` END; Hg6$SH !` } 2M0s >G @ gR H "0 CALL OBOARD; h#S<! 8h'~ Y[ OBOARD x'I<TU V`6 G h-C2<XUh W(: H gR dP # LLEFT,DLEFT=SIZE-1; h;S<! (XxG n LLEFT x@I<TX a
xg6$S ! g 2Sxs ! 8{ ( MOVE x[I<T[H ](j G hbC2<X\0 ]po @ /G:A# 6 MOVE: hpg6$ d #P $ 2l@ a-@CHAPq 8 xtI5R[Hc`0 @ 0 F( = 0 hzC25V8 `x u b hFC2<XXx ah h S<! Abp DLEFT xI<Tb ch c hC2<Xbp d0# p g6$WH 0 # g 2^P
Mj8 ` y`X^8`XB8 Pyg+ M TR='PASS' THEN GOTO MOVGEN; @0G:A# q PASS `6g6$f
o $p 2sH 48@Y\8d)a h:S<! \WX = tw MOVGEN x@I<Th ipO 6 hFC2<Xhx j8S `
ngR sH %@ IF STR='RES' THEN GO TO START; @TG:A# 7 RES @
G:A# [ BOARD S X{g6$H; $ % 2g0 @0u@4
Rg X,gR n@ &` CALL OBOARD; GO TO MOVE; END; P$g6$ + -P 2%0 ^- Phg6$my &` o 2o- @ "T Psg6$ ~ &` 2o`- Vs Hxg6$ D &` } 2u- >G h}gR xH '0 IF LENGTH(STR)^=2 THEN GO TO ILMOVE; P Pg/ V T T | Pjg6$ : *@ 2( fw P!:abh0! 6 $W H
gR P ) DO I=1#TOSIZE; `Zg6$jXU %@ 2t( 48@Zn8d)a `^g6$ Q8( & 2xH 48@Z~8d)a H!g6$ t & z 2xH- o)b 0'g 4% hS<! Avh6 Xz LENGTH x/I<Tv w`> @ h5C2<Xvh x(B h=g6$p(N '0 2
ELSE IF M=1 THEN DO; P gR -P 0`
ELSE IF M=2 THEN DO; PngR >@ 60
ELSE IF M=3 THEN DO; Pyg6$( ,0 2 ^- XmgR p (P
IF N=0 THEN GO TO ILMOVE; `xg6$
(P 2 P bh8 ` '$8 g6$s ) z 2~HQ @+R@ `A Mj8[`87B8
GE Z z HPgR )p DO J = 1 TO SIZE;
g6$P" )p z 2X @Qb@ `A Mj8[`87B8
GE Z z 0g 4%z XgR *@ IF BD(I,J)=N THEN GO TO FND; xg6$H *@ 2(
R+R8 8 .L8Nbh8d)a 0K03 v] INDEX x+I<TH
8S ` H(g6$- + } 2 >G [ xJI<Ty0 H 3 h?C2<X HL PGg6$ n '0 2
gg6${( ( g 2p /f8 GO TOILMOVE; hsgR ` - FND: M=INDEX('RUL',SUBSTR(STR,2,1)); P';g6$wH'F e 2x` A
42 h H 2 Z@ P(AgR iP DO J = SIZE TO 1 BY -1; P}g6$h@ - 2 @fw @ G:A# _ RUL h"S<! ] 2 6 M Hvg6$xt +` } 2 PQ >G x&I<Tp 9 h1C2<X `> 8g6$ % - g 2$P @e
8 )f8 hI`7 x' x?I5RXdP` @ 0 F((u 0 hHC25V P @ XOgR $P -P
IF M=0 THEN GO TO ILMOVE; " h!S<! ZI W FND x\I<TX 8k 2 hcC2<X @ p @igR ` .p LLEFT=LLEFT-1; `qg6$ .p g 2 j V8 ` y`Xb XugR /@ IF LLEFT=0 THEN GO TO YOUWIN; `{g6$ @
* /@ 2#pj V8 ` '$8 h S<! 'P(u nJ YOUWIN xI<T x "X * h
)gR #p 0 END; Hg6$#@m 0 } 2,Xj >G b `Vg6$po -P 2%0 e 8 ` '$8 x
g6$#Xe . 2-P
e 8 ` ' " ' "]' ~" aa `)gR 'X 10 IF BD(I,J+1)^=0 THEN GO TO ILMOVE; PgI$8 ABCDEFGHIJKLMNOPQRSTUVWXYZ 1g6$&(E 10 2)h* +R8 8 8
G` A S 8d1a P<g6$ N 10 2)h* ^- g @DgR )h 2 BD(I,J+1)=N; xIg6$)(Y 2 g 2+* 8 6 ` '$8 $ H*g6$ v . z 2?`j o)b 0dg 4% `ig6$}(& 0` 2+X e 8 ` '$8 XdgR / 3p IF I=SIZE THEN GO TO ILMOVE; `rg6$.0 A 3p 21he +R8 Mj8d)a ` @gR 1h 4@ IF BD(I+1,J)^=0 THEN GO TO ILMOVE; P2g6$ I 7 29" ^- P 'g6$E 8 < 2W @Z }g6$/h 4@ 2= e +R8 ` " '` A S 8d1a P
IFbI=1gTHEN'GO TOILMOVE; `,g6$5X 7 29" +R8 G ` '$8 hgR 9 7P IF BD(I-1,J)^=0THEN GO TO ILMOVE; P g6$A :` 2Ax @^- P>G:A# # ILLEGAL MOVE 8g6$7Q 7P 2F" +R8 ` " '` A S 8d1a PHg6$ 1 7P 2F" ^- @PgR F 8 BD(I-1,J)=N; 0 0gR G 8p END; 0 tg 4% H\g6$ x 3 z 2?`e o)b 0g 4% xg6$38o 5 g 2=xe
9@ g 2
`7
t " '` Ax S ! @}gR b : GOTO8MOVGEN; h gR 7x :` ILMOVE: PUTPSKIP LIST('ILLEGAL MOVE'); hCg6$ w :` $ 2x a-@CHAPD 8 x I5Ry0@CX 7x @ 0 F(I 0 h C25VB` D @ gR x ;0 GO TO MOVE; @vgR 1 < MOVGEN: NN=0; r Hsg6$ 3 60 z 2?`" o)b xUg6$:h 9 8 g 2G"
GE Z z 0 Eg 4%;X P g/ H T T $ Pg/ ` U U
x g6$A@ c =p 2] N
+R8 8 .L8 ` g$8 H Zg6$ =p z 2] g o)b 0 bg 4%Ih H fgR `P >@ OVAL = BVAL(I,J); H gR d ? CALL MVAL(1,0,RM); ! <g6$GX F <P z 2k ] @+R@ `A Mj8[`87B8
GE Z z h iS<! #mP&m Ek BVAL x |I<TOP Q0 h C2<XP8 Qx h
S<! }S 5Z OVAL x I<TR _h ~ 0 ZgR \ A END; W hS<! U * a NN x "I<TT8 V 1 h )C2<XU V` 6 X 0g6$ u < g 2NP `7 x # x 7I5RhGXP E1 @ 0 F( 0 h <C25VWX Y 8 H gR Z ?` CALL MVAL(0,-1,DM); p Jg6$Y8 [ ?` o 2[8 g
`8 `- "*g` a
H OgR [8 @0 CALL MVAL(0,1,UM); h Vg6$Zp b @0 o 2\ g `8 `8 - 8 aAb H g6$Sx i A } 2L0 g >G 0 agR ] AP END; H eg6$\h q AP } 2Hh N >G 0 hgR ^ BR END; H mg6$]` Z BS } 2NP] >G H pgR kA Bp IF:NN#= 0THEN DO; H Yg6$ 7 Bp z 2i@ o)b h C2<XS `0 $ p }g6$M( >@ g 2d g T+R8 8 st8g >Hg h nS<! GH#x ` } 2 >G 0 CgR i@ E0 ; H Hg6$i * E0 2u( M' H KgR u( F MAXVAL = LIST(1,5); 8 )gR x` FP MAXN = 1; ` tg6$^X z Bp 2i@ u8 ` '$8 H EgR lH G DO N = 2 TO NN; g6$l z G z 2{p l @bh@ `A u8[`87B8
GE Z z 0 cg 4% ` kgR o( Gp IF LIST(N,5) > MAXVAL THEN DO; P'gg6$}(T f@ 2
H @h x ng6$mx Gp 2z` l
bh8
8 h<y`ra` '$8 H yg6$ ~ Gp z 2z` o)b 0 g 4%mH H gR h H@ MAXVAL = LIST(N,5); 8 }gR X I MAXN = N; { 0 yg 4% h OS<!
sH q MAXVAL x I<Tr` t@ $ 8 h C2<XsH u ( p #g6$j F F g 2x`
`8 )`8 "sg^8`|X8 h TS<! w 8 ,L MAXN x 0I<Tv wx ? > h 7C2<Xw x@ D X >g6$jP d FP g 2lH `7 x 1 0 gR yh I` END; H Jg6$y8 V I` } 2p >G 0 MgR z` J0 END; H Rg6$z0 _ J0 } 2lH l >G H UgR {p K I=LIST(MAXN,1); p Yg6${( j K g 2}(
}F8 8 h<y`7 x
t H ^gR }( KP J=LIST(MAXN,2); p eg6$|` L KP g 2 @
}F8 8 h<y`7 x8 H igR @ L IN=LIST(MAXN,3); h pS<! 12 > IN : p g6$q H@ g 2 X
bh8
8 h<y`7 x X yh bh8g >Xg H KgR @ Lp JN=LIST(MAXN,4); h
S<! v@h # JN x I<Tx X #+ h C2<X` " p g6$0 5 Lp g 2P
}F8 8 h<y`7 x X #gR P M@ PUT SKIP LIST('MY MOVE IS'); H *G:A# / MY MOVE IS h /g6$0") M@ $ 2% a-@CHAP 0 8 ("# x uI<T~` X E h =C2<X` J p Dg6$~ $ L g 2@
}F8 8 h<y`7 x v 4gR % N PUT EDIT(-BD(I,J),SUBSTR('RDXU',-2*(IN-I)+JN-J+3,1))(F(1),A); P'mg6$}h(( g 2 6/ P'tg6$~X'z h0 2 @U! P(g
:H 8( 2 ( Pboabh z )d P!Naa k 0 P'0g6$v!" c0 ( !m !8%u b P!abh@!@ 6 - P jabh
P7I xO.H 0p 2 P"g6$# "k PP o 2-8 @ "T P"7g6$'"< Qp 2'H Vs P&Ug6$j`'8 d } !mlx >Ap } P#egR OX Vp
IF IN<=SIZE THEN DO; P0g/ u u P ~abhp!6 z (e P!0abh!; ). P!5abh` 6 *# P+gzw H
b 6
b P#1g6$ ! Q 2P ! Pg7 H b e P%GgR BVAL: PROCEDURE(IB,JB); P"@g6$(#r S 2>( @x1 P#g
:H !m 8$<GH2 >( $D P'Yg6${( u ep 2
H 6/ P!Sg6$@&g _ 2lx @su P&sg
:H f 8&@t02 lx &H h"(gR N` IF IN<=SIZE THEN BD(IN,JN)=BD(I,J); `!qg6$ !~ N` 2 p X8 Mj8dAa !wg6$ " N` g 2" +R8 8 .L8g "{`y`8 >iG `!g6$" O0 g 2" XB8 ` y`b b @"gR " P BD(I,J) = 0; p"
g6$!P! P g 2
`7
t " '` Ax S @"gR PP CALL OBOARD; X!gR -8 Q IF DLEFT = 0 THEN GO TO IWIN; 0! gR 'H R@ ; "h @ RG:A# 0 RDXU x"$g6$
0!x N $ 2 -@C>
t " '` A S Y`Q'!P"% Y`~a`.I` 1`y` 8 !` g d8 8 h'`Q')r> 'x>@gcPR @!DgR P Qp GO TO MOVE; H" g6$$!Y R@ 2>( M' `";gR S MVAL: PROCEDURE(IINC,JINC,MVAL); h!XS<! #$D"M <: IINC x"FI<T(p *P"U "b h"LC2<X)X +"Y h"TS<! "GEh"b q+ JINC x"ZI<T+8 =@#l "| #j `"g6$#@!E Q 2P XB8 ` '$8 H$CgR 1( S` DECLARE IN,JN,TVAL; h"pS<! "[A`"| KG TVAL x"uI<T.` 0@# %S h"{C2<X/H 1# X#g6$.#= S` w !^7X Xx8;qb x# I5R~` >2x#1( `$ h#C25V2 H # h$C25V@h H $( h"jS<! yH'L } IWIN x##I<T4H 6(#2 "M h#*C2<X50 6p#7 H$gR 7X T0 TVAL = MVAL - OVAL; h#8g6$7#H T0 g !^9 x08 tF8
8
G^8`X8 @#GgR :( UP JN = J + JINC; h#Mg6$9h#_ UP g !^;p Qb8!
n8
G^8a >8 `#QgR ;p V IF JN<1 ! JN>SIZE THEN RETURN; x#Xg6$;#f V !^OX
! >8 ` g "g "]' ~$ ia H#^g6$ $} V ( !^OX T' $z h"aC2<X, >#p `#kg6$ #
S # !^Y A
+8< \8 x#qI5Ra@ @ $ p F('L 8 h#wC25V? @H H #r x#I5Rx 3`# 1( `$ x# I5R.`"|BX$1( ` h$ h$-C25VEh $ x$5I5Ra@#xH@$D>( `# ( Eh h$;C25VGH # X%5gR J W@ IF BD(IN,JN)^=0 THEN RETURN; x$Ig6$I($W W@ !^L%6
VX8 V A.L8 ,` G$8 H$Og6$ $a W@ ( !^L%6 T' X$VgR L X
G^8a X8 0$`gR MH X` END; H$hg6$M$u X` } !^C@%6 >G @$kgR NP Y0 NN = NN + 1; `$pg6$N% Y0 g !^Q u8 ` y`T9b (%5 `!&g6$p$ Vp !^NP X8 Mj8dAa H$tgR Q Z LIST(NN,1) = I; p%g6$P8% Z g !^R8
+R8g "Qg` '` Ax g H%gR R8 ZP LIST(NN,2) = J; p%g6$Qp% ZP g !^Sp
Qb8g "Qg` G` Ax g H%gR Sp [ LIST(NN,3) = IN; p%g6$S(%* [ g !^U(
X8g "Qg` g` Ax g H% gR U( [p LIST(NN,4) = JN; p%%g6$T`%l [p g !^]H
! >8g "Qg` ` Ax g H%)gR ]H \@ LIST(NN,5)M=TVAL; %j 0$g 4% I 8%kgR WP ] RETURN; H%8g6$W! ] ( !^` T' 8%<gR ` ]` END<MVAL; 0! [p% h%YS<! %Lt0&Y % JB @')gR g0 P DECLARE J,VAL; &% p%0g6$V%= \@ g !^WP
! X8g "Qg` '` Ax g 4 8&zgR ^p ` VAL=80; X%rg6$^8& `J g !m` B`7 x&& H%vgR ` `p DOmJp=&1 TO JB-1; %{g6$H& `p z !mP& @Qb@ `A!8 ` x
!28 8 x.L8 ` '$8 &g6$ ' a@ g !mpp& !8!8 Qb8 x&%I<Tdh fH&4 )V h&,C2<XeP g&9 X&3g6$\x%w P w !m^p Qbdk\8 x&:I5RGi &Hg0 P' h&?C25Vh H ' x&GI5Rdh&-o0&{g0 P 8 tgR d END BVAL; x%`I<T\ l&a &- h&XC2<Xk lX&e X&`g6$ &; # !mw A2\w x&fI5ROP nH&t F(#x 8 h&lC25VmP o H &g h&MC25Vih H X&gR pp b IF BD(IB,J) < 0 THEN VAL = 0; x' g6$p' b !m|@&
!28 8 .L8 ` g$8 X'g6$ 'd b g !m|@& `7 x&& 'b x!lI5RYH%SsH' lx P'# ( h'C25VrP '* x'I5R\&Yu('*lx P&N ( rP h'"C25Vt0 &{ @'cgR P c0 RETURN(VAL); 0!!gR w dP ; H'4g6$vP dP 2x` M' X'7gR P e IWIN: PUT SKIP LIST('I WIN'); @G:A# "% I WIN h'Ag6$ !c e $ 2 0 a-@CHAP'B 8 x'EI5R4H#+z@'TP @ 0 F( 0 h'KC25VyH { 'F @'SgR 0 ep GO TO START; H tG:A# 'B YOU WIN (& H&"g6$d0 u b` } !m`& >G `!bgR nX f@ YOUWIN: PUT SKIP LIST('YOU WIN'); @({gR @ g GO TO START; 0 [gR g` ; H('gR
h0 OBOARD: PROCEDURE; H `g6$ ( h0 # f @ P.qb x'yI5RU . `(
0 F({ 8 h'}C25Vh ( H 'z @ egR i DECLARE I,J,N; X( g6$H(I i w f +RG8-qb x(I5R.H
{X( @
`(- h(C25V` H (4 0(Hg 4% (s H'qg6$~( a g` 2 M' x( I5RG&@H(4 @
`(; h(,C25VP H (B x(3I5R `((B @
` h(:C25V0 H g6$([ iP z f ($ @Qb@ Mj8 @8[`8g8D"' d8 HQ`E )b 8(#gR 0 j PUT SKIP; h']g6$ \ f@ $ 2 @ a-@CHAP'^ 8 X(Pg6$
(e j $ f
P($ a-@C Ab H(ZgR
P jp DO I=1 TO SIZE; (_g6$
)6 jp z f0(m @+R@ `A Mj8[`87B8
GE Z z 0(dg 4%@ @(lgR ` k@ N=BD(I,J); )3 x(SI5R xH(|nX @ 0 F(&m 0 h(tC25VP (T H)5gR x l IF N=0 THEN ?'.'; `)g6$0) l f@(m bh8 ` '$8 @)G:A# '^ . `)
g6$ ) l $ f@(m @CHAP)EN ?-N; `)g6$x)" l` f`(m bh8 ` g$8 `)g6$ ). l` $ f`(m @CHAZ Y`9R `)!gR ` m0 IF N>0 THEN ?SUBSTR(ALPH,N,1); `)'g6$ *# m0 f 0(m bh8 ` '$8 )q p(og6$ ) k@ g fx(m +R8 8 .L8g >- 0*"gR 0 n END; 0)rgR 0 nP END; H)?g6$ !J nP } f ($ >G @)BgR o END OBOARD; @!IgR @ op DO X=1 TO NN; h)JS<! &&`)V < X x)NI<Tx X)] * h)UC2<X` )b )\g6$8)w op z 2 Fx)l A&>@ `A u8[`87B8
GE Z z 0)cg 4% 8)kgR x p@ PUT SKIP; * H)<g6$P)C n } f
P(m >G X)ng6$ p* p@ $ 2"X)l a-@C Ab @)vgR "X q DO Y=1 TO 5; h)|S<! )O x* < Y x* I<T !p* h*C2<X x "8* *g6$ P*b q z 2&p* A(@ `A )a7 `n"I` 8"hj8 0*g 4% @ (*: )-g6$ )s m0 $ f 0(m @CHA y "-` '` a
9 8 @* gR , q` ?LIST(X,Y); 8*agR &( r0 END;END; H*.g6$%p*7 r0 } 2"X* >G H*1g6$ 7 r0 } 2 @)l >G h gS< 2 2END OF FILE ON DSK:DODGEM.CPL[10,3701] x**g6$%0*2 q` $ 2&(*
@CHA)O "
G` A g 8 0 g6 r0 >G 0 g6 r0 >G