?p @ ?x [V>{8Kb)
= E
` Oh ~ Q F: { q) IH {r E@@ Kh y w] gg GBg @` Gp ? T x @ , GB` 8 ` gg 2@ IJNi98 ` gg Q 0 2@aKb ]8 \Y C f y Qp 6 ` y U V 2@=2@\`Kb M88 \y C f 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 [( z z
2@$@aQ f F2@"N 8 < 2 h H ] k( q z q | | z ] bE a* H$ < 2@C5gnH1 ~ b @{ h H Zh } C1 q h _(! iO e -2@aj[' {x P 9 :
y
y_8" ag2@AG[ t
P2@8 Y&t q y } q } aH3 82@<:Su
t * % n2@fgV L / # e b8 dG[$89 P @ n x cHC b h H c(A JV 2@^32@^32@b - - F g2@ 0G[$:( P2@UgV / e ` d8J S 2@pM2@pMKb Hw - - F g2@ PG[$Hw P n x hg N 2@C(2@C(aLh & h @ ihu C' 2@9$2@9.[' {x & - P @ l 9, 8 2@C52@C5gnH1 h @ l C1 2@D(ghq X
% h
W n` D& M M 2@Jegl=T X
% h
W t@K Jc $@ )# . .F O < < Y ; a e Etm,f@ 8 INX p GB` @` @ 0 z "9Y@ 0 A & w i S ? ([>p + dx( 'gg GB` H ~Zh }] c1^HGB` gg GB` ( 9 0} ? b * b @ h qB 5 % x O 2 r P g
+ 3 < H1g6 q 0 2 X' @EN H b E L } M2 _ 3 (6gR] `Go. 8 P g# H$ 6$ P
IF P(I,1) ^= -1 THEN DO; haS<! Oy fO SYSIN xqI<T N( P p hxC2<X O PP HM7 N(y P>g6$'xC 2(8" @I hS<! r Rp K; SYSPRINT xI<T R Sh p , % hC2<X Rp T0# H M7 R 2gRd XEQ; 08gR _ XEQ; 0(g6 @' HBg6$ X8 X @' 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 & !( HEND;
310. END;
320. END;
330. D n @O J = 1 TO 4;
340. IF P(J,1) ^= -1 THEN GOTO L470;
350. END;
360. PUT SKIP;
370. ?'YOU GOT THEM ALL IN',T,'TURNS'; PUT SKIP;
380. GOTO L580;
390. L470: END;
400. PUT SKIP;
410. ?'SORRY, THAT''S 10 TRIES. HERE IS WHERE THEY''RE HIDING:'; PUT SKIP;
420. DO I = 1 TO 4;
430. IF P(I,1) = -1 THEN GOTO L570;
440. ?'MUGWUMP',I,'IS AT(',P(I,1),',',P(I,2),')'; PUT SKIP;
450. L570: END;
460. L580: PUT SKIP;
470. ;
480. ?'THAT WAS FUN! LET''S PLAY AGAIN .....'; PUT SKIP;
490. ?'FOUR MORE MUGWUMPS ARE NOW IN HIDING'; PUT SKIP;
500. ;
510. GOTO L240;
520. L1000: PROC; DO J = 1 TO 2;
530. D 0 O I = 1 TO 4;
540. P(I,J) = 10*RANDOM();
550. END;
560. END;
570. RETURN;
580. END L1000;
q * gRd u 0$gR ( MON; P.abhep z U PUg6$*`Z ` 2+( @E= PBabhh0 z
B w 2( &u;G H^g6$ xw 2 3sIb Hmg6$ { 8 Ig Hqg6 r k 5g Hvg6 J } p >G Pzg
42 H 2 p gR P /*MUGWMP.CPL-- ADAPTED BY JOHN XENAKIS FROM A BASIC PROGRAM */; @ IgR ( RANDOM() = 0; HLg6$ Xn X2
BG:A#
< TURN NUMBER h x %I<T` @ 4
h +C2<XH 8 X 3g6$h
g 2!8 `7 h ab X 9gR !8 p
DEFAULT (RANGE(*)) FIXED; @ gR $X @ DCL P(4,2); H g6$P : P 2( M' P
qg6$B8 S
28 @0a P
o 2T @ "<G H
RgR DECLARE D FLOAT; h WS<!
q 2 D x \I<TP 0 k
h bC2<X 8 x o xhI5RP c y ?'THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWUMPS'; PUT SKIP; 0
% p w 2$X $-RP;^8 h DS<! &%8
+ 8 P x
I<T" #p
c h
C2<X"x $8
# `
g6$Xi @ w 2 x
$I5R"
&0
3$X F( q h
*C25V%8 *8 bP 8 H @ y ~G:A# THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWUMPS `
8g6$ x
H ` $ 2) @CHAP
9 8 X
Ag6$
M ` $ 2)X a-@C Ab ` g6$*x j 0 $ 2= @CHAP 8 @
2C47d
GgR )X 0 ?'HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION 0,0'; PUT SKIP; igR .( ?'ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH'; PUT SKIP;
`G:A# ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH `
ig6$, P $ 2: @CHAP
j 8 OgR 1 P ?'NUMBER BETWEEN 0 AND 9 INCLUSIVE. FIRST NUMBER '; PUT SKIP;
wG:A#
j NUMBER BETWEEN 0 AND 9 INCLUSIVE. FIRST NUMBER ` g6$/ U P $ 2:X @CHAP 8 8 GgR < @ PUT SKIP; L
VG:A#
9 HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION 0,0 TgR 5h ?'IS DISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER'; PUT SKIP; G:A# IS DISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER ` %g6$3P [ $ 2;0 @CHAP & 8 p ZgR 8 p ?'IS DISTANCE ABOVE HOME BASE.'; PUT SKIP; h 3G:A# & IS DISTANCE ABOVE HOME BASE. ` :g6$6H H p $ 29 @CHAP ; 8 X Ag6$ ` p $ 2< a-@C Ab ( h _ X
qg6$
$ 21 a-@C Ab X g6$ . P $ 25h a-@C Ab X -g6$ B $ 28 a-@C Ab X g6$2
4 @ $ 2F@ a-@C Ab 8
lgR A` 0 PUT SKIP;
) X Lg6$ r 0 $ 2.( H a-@C Ab OgR F@ ?'YOU;GET 10xTRIES.# AFTER EACH TRY, I WILL TELL'; PUT SKIP;
+ YOU HOW FAR YOU ARE FROM EACH MUGWUMP ` g6$?
m ` $ 2MP @CHAP
8 X eg6$<` N 0 $ 28 a-@C Ab H
gR h
L240: CALL L1000; h
S<! ]X` L240 x
I<TC N(
r
H P DOnT:=A1 TO 10; YOU GET 10 TRIES. AFTER EACH TRY, I WILL TELL `
*g6$=x$ 2Pp @CHAP
+ 8 @ gR G` PUT SKIP(2); X
9g6$G
P $ 2J
a-@C Ab p
=gR J p ?'TURN NUMBER',T,'. WHAT IS YOUR GUESS?'; ` G:A# ! . WHAT IS YOUR GUESS? p
Ig6$H8
g p $ 2Lp
@CHAP ! "F'f
OgR Lp
@ GET LIST(M,N); P*g6$ p 208" I h
VS<!
U 6 M `
@ 2]H
@KHAp
`#!pb X
g6$
` $ 2A` a-@C Ab h
C2<XCh Np
w h MS<!
D`& Q6 L1000 x
xI<TO Wx X
3g6$
$ 2A a-@C Ab h
%S<!
yR0 : T x
>
P z 2#
@42@ `A Qa7 `n"I` 8"hj8 x
0I<TL V h
``p 7 N h
~C2<XOx X@ x RI5RC
YX @ 0 F(& 0 h @
fgR ]H = 1ITO 4; h x h9 PZg6$ d 2
H B5 POabh z q U x b0 PgI$8 P,g :H 8 2 : PJg6$90P @ 2: @3e `gR s 0 IF P(I,1)=M & P(I,2) = N THEN DO; PxgR ?H !` P(I,J) = 10*RANDOM(); P=abhg`P z P PFg6$8p p 2: 0a Pg6$C87 $ } : >Ap
y P.aa / 0 PGabhi Z | abhpH Hg6$ b 0 z 2@V o)b T xlg6$ MX
6`8 8 h"` '68d1a @UgR l( P(I,1) = -1; p]g6$khv g 2n`V `- y`[`8 `8 >G hagR n` P ?'YOU HAVE FOUND MUGWUMP',I; PUT SKIP; `hG:A#
J YOUVHAVEFOUND MUGWUMP hog6$m| P $ 2oHV @CHAPp "lg$ ) Xug6$ P $ 2pPV a-@C Ab 0{gR pP END; Hg6$p
8$8 pXgR 0 @ D = SQRT((P(I,1)-M)**20+\(P(I,2)-N)**2); Peg/ M E E P`g7 H A ! D P8g/ a : : ; P=g/ 4, : , : PBg/ 9: : , : P
E= P)g/ E E 0$gR H ` END; 0Qg 4%r` 0
g 4%r` PBg6$8G 0 2x
@B5 P3g/ : ; : ; P g/ *H E E x2gR P ?'YOUARE',D,'UNITSFROMMUGWUMP',I;PUTSKIP; HjG:A# p YOUARE XrG:A# s UNITSFROMMUGWUMP xvg6$}8% $ 2XY 2! a-@C Ab @}gR ! DO I = 1 TO 4; g6$ @ z 2+(" @6`@ `A !a7 `n"I` 8"hj8 `!gR #X p IF P(I,1) = -1 THEN GOTO L570; p XYg6$ x $ 2 a-@C Ab xg6$"
[ p 208"
6`8 8 h"` '68d)a h S<! /) H P L570 h C2<X3X & 0 X]g6$ H $ 2y
a-@C Ab
ZgR 08 @ ?'MUGWUMP',I,'IS AT(',P(I,1),',',P(I,2),')'; PUT SKIP; @gR Q8 L570: END; H
g6$ U } 2! " >G xBI5R$P )xO Q8 @ 0 F( 0 hGC25V) *@ C HNgR
X ` L580: PUT SKIP; XTg6$ ` $ 22X a-@C Ab xYI5Rp5,xg
X @ 0 F(H 0 h C25V, -@ A Z 0fgR 2X 0 ; H6G:A# o MUGWUMP HqG:A# r IS AT( @vG:A# w A , @zG:A# { U ) H~g6$&x @ $ 22 " O@CHAPr "lfKIP; x,G:A# ` ` FOUR MORE MUGWUMPS%ARE NOW IN HIDING `4g6$5P P $ 2D @CHAP5 8 Hg6$3 4 2f@ M' @AgR f@ p GOTO L240; X3gR cp @
0{gR @x "0 END; Hg6$@H "0 } >y >G 0gR Ap # END; H g6$A@ # } :P] >G 8gR Bp #P RETURN; Hg6$B89 #P ( g T' @gR g $ END L1000; 3 X;g6$ B P $ 28( a-@C Ab xTI5RO
EX-cp P F(L 8 h%C25VD` F H P h Xfg6$ < $ 27H a-@C Ab P gS< 2 2END OF FILE ON DSK:X.CPL[10,3701] 0 g6 @ @CJ@ `A a7 `n"I` 8"hj8 WL w ( gR\]F