IMD 1.18: 22/01/1996 4:42:51 micro cornucopia kaypro users group disk k3 games     -KAYPRO 003-README DOCADV-SAVEDOCBIO COMp CRC COMCRCK COM CRCKLISTCRC D COMGAMES COM !"#$%&'()*+,-./GAMES COM0123456789:;<=>?GAMES COM8@ABCDEFMAZE COMGHIMM C &JKLMNMM COM4OPQRSTUOTHELLO COMVWXYZ[\]^_`abcdeOTHELLO COM.fghijkKAYPRO USERS DISK FROM: MICRO CORNUCOPIA THE SINGLE BOARD SYSTEMS JOURNAL PO BOX 223 BEND, OREGON 97709 KAYPRO DISK # 3 GAMES ----------------------------------------------------------------------- From Big Board Users Group contributions PACMAN.COM PACMAN.DOC This game plays very much like the real thing! And on a system that has no graphics! Beware of this game if you have teens or pre-teens in the house. You might not ever see your KayPro again! ZCHESS.COM ZCHESS.DOC A reaOTHELLO DOClmPACMAN COMnopqrstuvwxyz{|}PACMAN COM~PACMAN DOCPRESSUP C @PRESSUP COM@WASH COMWUMPUS COMtWUMPUS DOCWUMPUS PAS[ZCHESS COM<ZCHESS DOCCAVE0 CAVE1 CAVE2 CAVE4 l honest-to-gosh, competent (at least more competent than I) chess game with a 1 to 6 level look-ahead. OTHELLO.COM OTHELLO.DOC Othello is a game you learn in minutes, and master after years of play. This version of Othello is quite competent and quite fast. It is the smartest and fastest version I've seen. GAMES.COM This is a group of 7 games all put together as one program. You select from a menu of: A LIFE B HORSE RACES C MAZE D PATTERNS E BLACKJACK F ANIMAL G GOCAVE5 MAST CATQCAT COMSUPERSUBCOMSUPERSUBDOC$UCAT COMUNERA11 HLPUNERA19 COM UNERA19 DOCUNLOAD COMUNSPOOL COM UNSPOOL DOCm  -BANG ----------------------------------------------------------------------- From the Pascal/Z users group WUMPUS.COM WUMPUS.DOC WUMPUS.PAS CAVE0 CAVE1 CAVE2 CAVE4 CAVE5 Wumpus is a classic computer game. You have a choice of caves as you enter and you can map them as you go through. This is also a good game for youngsters who are curious about the computer but aren't sure what to do with it. ---------------------------------------------------------------------------- From the BDith A>B:ADV. The com file on B will use the data on A, save will work, and the save file will wind up on A. Next time you've made it past the volcano, you'll be able to break for a sandwich. --Ezra Shapiro N.W. Kaypro Users' Group ve the present game status. (this adventure uses all 191K on the disk). -------------------------------------------------------------------------- *!-1J-* !-1B-* !-1:-* ".ë".É!FͽW oͲ.*i m !-R*!-R* !-R*  ^ͽS o  ^ͽO o  ^ͽK oͽ!E A".]a!A <ͽ!FͽAͲ.*i 8ͽ!< Aͽ!&!4 A͝.ͽ!/ As .ͽ!/ A͝.ͽ!* As .ͽ!* A͝ .ͽ!% AsSC Users group PRESSUP.COM PRESSUP.C Pressup is somewhat similar in play to Othello but is not as difficult to master. The directions are located at the beginning of the PRESSUP.C file. MM.COM MM.C This is the Master Mind game. You try to guess what characters the computer has chosen. It's best to make a table which you can check off as you play. The point of the game is to guess the characters in as few moves as possible. It takes some pretty decent powers of deduction. ---------L#"ɧ$*"+V+^"ýOtVNU!!S$͖LOM![$͖L!S$O![$ͱQJG2!$͙LhVM!$͙L!$tV!$SY~<ʴc3~#~#foL6+>ͥ7533>!>!>!>!>!>^#V#^#V#K>!>!`ÌRxT:L F>6æ 0,31,59,90,120,151,181,212,243,273,304,334ðQ 365ͽ! e2.! m!͖!͖ͽ! e! m!FACILITATING THE ADVENTURE GAME "SAVE" FEATURE ON THE KAYPRO The full Adventure game occupies exactly 191 k of disk space, which is--surprise!--all the room you Kaypro owners have to work with. If you've tried to save a game and failed, the reason is simple--Adventure tries to create a save file, and it doesn't have any room. So, put ADV.COM on the B drive and all the data files on A. That'll leave a whopping 36 k of space on A for save to use. Leave A as the default drive and access the program w  .ͽ!% As.& ͽ! eͲ.*Ͳ.*Ͳ .* sJc sBs s :  Ͳ.*Ͳ.*_Ͳ".*"i" eͲ.*v ͽ! eͽ! e]Ͳ.*v ͽ! eͽ! eð".A&*!*>i 1Ͳ***i*Ͳ.*i Ͳ.*!B1!*͝.Í Ͳ *Ͳ*&*.s Ͳ.*.*".*". ͽ!! AͲ-------------------------------------------------------------- N.W. KAYPRO USERS' GROUP BIO.COM Generates biorhythm charts. This handy program does it all, complete with a graphic display of the results. It is completely self-prompting, but be sure to notice that you input the dates as YYMMDD (YearYearMonthMonthDayDay). MAZE.COM Generates mazes. (Surprise!) ADV-SAVE.DOC This is just a little text file on how to run the 550 point adventure game on a KayPro disk and still be able to sa͖ͽ!m e! m!͖i5ͽ![ evv&!-1*!-1"!**-"!*!-1!-1!*".!>Ͳ.*i ".D!>Ͳ.*i7Ͳ*Ͳ*!B1!*͝.Ü !B1!*͝. iͲ*iͲ*  .*i ͽ! eͽ! Aͽ! A% ͽ! A!A% ͽ! A!&! A!&! A% ".| ͽ!! AͲ.*i l ͽ! eͽ!f Aͽ!F͚!b e". ͽ!! AͲ.*i ͽ! eͽ!+ Aͽ! Aͽ!b e". ͽ!! AͲ.*i ͽ! ë́!F}o|g<*2Ͳ2*6".^ ͽ!W AͲ.*i6N ͽ!b e".Î ͽ!! AͲ.*i ~ ͽ! eͽ! Aͽ! A% ͽ! Aͽ! A% ͽ!L Aͽ!: A% ". ͽ!! AͲ.*}_|W!s,~#fo>' at address|}B> ͂+> Â+!9"0*0!7 SN#"k!9"f"hy2j*C|ʏ*[!f"SA~#*g,~f!º́!ý͈!"ͬ*-*-*-*- *-͕*-*-*g,~#",f×~f!"S~,",#"~@@# /f"F#"x"[ [+~ Pyͧ'?Redo from Start *f!*k:jOÖ*h+~+ʳʳ +w µ++~#fo?"h!j5*f~2#~#^#V++͸͙):͐)͓) _"222 222222R2S 2#2&2)22,2U_!14?25*!9"8*^*Xʌ!6#}Œ|Œ6!>6#zŸ*\|>  6#s#r#=µ>22>25>2427":!-"EͲ' STO͹B*E.. . ........*S|:P`*N|`E*X s#r*X {w#6"Q*8*N>2PB'Error -!~<ʆ=ʆ#~#}r#-Syntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor S=͈!+:V*?g,~=Vg,~,9#"?ɧL*A"?+V+^"AVL%2>z>z>z>z>z>^#V#^#V#î+>ä>ä>ä>ä>ä>^#V#!]î+,^#V#Lm4ø^# ,þ,^#V#Ln5^# ,,^#V#L4 ^# ,6^#V#I,Ĺy~##++8>x,+V+^+l+r+s͂L?~#^#Vç*n&*q&̈́-͊-+*k{<Ү͖+{ʽ=> *î| }*kڽ<î}î| }î|!*k#n&͈^i ͽ! eͽ!͚! A!2 A!J5 PAGE = LEAD TO TROUBLE3O : CRITICAL DAYS TO AVOID SITUATIONS THAT MIGHT TIRE EASILY9 : LOW DAYS OF REDUCED EFFICIENCY, RECUPERATION,  AND HIGH ENDURANCE2 : HIGH DAYS OF FULL VITALITY, EFFICIENCY,  DATE :CRITICAL4. : LOW : HIGH :e :6i : P=PHYSICAL E=EMOTIONAL M=MENTAL  DAYS - DURATION  : DATE OF STUDY- : SUBJECT,  (PHONE 528-4438)4 : COMPUTERIZED STUD7+7+>ڻ8.a8e7E8>l7L7q7Q8:5)8>)8~%n8#8!ʀ8d)8D@8͉8>>>.9@8_{_88D8̋5>!6͆7> @8܉87>!6!7@8͉8>@8̹55>6V6=>P6368*MLnOLyOL̈́OLDOLnlLylL̈́lLzLnLyL̈́L-Ï-Ï"-ØH~# x2`:fFV#͘<͆~*#õV#~ *#>2`:fFF#~#fox̆ ~#ubscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro!9N#F*R~#~v~+|~#~v+^#V###T###T|ʈ~#fo!' Internal Error - No Line Number -*R~#$' at lineEB> < <0͂+# ,-',^#V#^#V#',,^#V#-',N6LI,i!-',Li!bm451^#V#L͕L͕Lzʯ|ʯ|n66^#V}^#V#ͺ6  ><_!45*"~#N#F#[5 s,yx@ +++6@#yw#xw+++6###!~6ĺ*#~#~V!*"~#^#V#s,Î|³Î++~_w#~Ww#Î́*DM~#^#V#%+z+{##{z~#qY OF BIORHYTHMIC CURVES BY ELMER $ -( P - E 2 M 7 : ? : D IH : N PR EV MZ ^ INVALID DATES p ENTER NAME OF SUBJECT  ENTER DURATION $ ENTER BIRTHDAY,CURRENT DATE (YYMMDD) plP8`@`H HC2|%I|>x{6 #zHQs@ 8e~`B~[[[[ BASLIB #900715 5.2 - OWNED BY MICROSOFT, 1979 <ÙÙogDM*"*##"t>22*^#V"##^#V" 2!!!""!n"k6#6P>2r>2q>2p* ø>"*G:jxʖ+*k+~ *>,*W*k#^ ̩ʣ+=ڣ͖+z{ڻ{_í!n"k!"C2f!i~6#w~!NVi& G~## ++#0:.Â+75L ͕->}Ĺ!+ͬ->}L  ->x,L~,"š#"~ʱʱ# V "·#+yͧ?*T^#V#{!V"?"A>2VN#F#*?~=}|  #p_yxDM~#YP+++"6@###{_zW+r+sɷt*|RV ^#V+"w#s#r+++r+s##!{*{z*?Җ}|~# œyG?xx,́8Â**͆,ͻ8͂### ' during G.C. - ' -' Internal Error - String Space Corrup#N#F*yx}*yx}++`i+V+^͆,##6+6+~6  >@++*"s#r+*#~_#~WҫVr+s##6"###!~#fo͆,¿<*"*}o|g6@#s#r#6"**"}w>0#& ';'60#='{ ;'/>x'>p#=o'!-} ë'P >͝ ̀ (?;'͋ /{_#zW#yO++ҿ'> #̀ p#ڱ'>'(>;'N#F#*-/}o|g("-p#=';'w1_cƤ~@zZrN vH Tʚ;@B''d #~: ʜ( ʜ( ʜ(0?<=:`(7-++͜(Y)O(H(+((Y!H##)(V Mp g J { #0_"S#!-Ͷ(3#:-4#yS#:-O#:-S#:-/S#Ó)#a#6+ s#6-g#60:cW:`%$#'!=F :c_ ʬ#x*¬#{¬#Aq͜(#E#D#0ʬ#,ʬ#.#+60{#+6${+p2c!=6 p *-*-2;͓$E~4$:$0$ #~$>DG$"-`i"-#~+{$-R$0OxG{$#~9$`xEp$y $$>2;À$|$$h$$$"-`i"-̀ #W͉&:;$ø$$Ҽ$('60̕ O'+~0$.ĕ $Ͷ(>"w#6+$6-/</ $:#p#w#6RͷRͪROR!H1b02-:-ͯ0&8x/F+N+=.!-.!->q#p#=.!-/",..#w##͆,++6+6 8~͂+#=-~͂+#-<B<ʰI!! {w:I-B͐B!! ~Ͷ(*-}/o|/g#"-|͹N6È!-~wɯ2-Ͷ(ͥ1͹*-͹N6Ͷ(ͅ1>>^!~#þW!->!--2# !-/!- ͗->> >|}+!y!/͋ 6+6!->H12-!u!4!q!/!-/~_#~W#~O8p4!:(m4 6^ ɇ<o&͹N6*-*-͎ "-`i"-!-^#V#N#F#!u!n5 8x{8!-66wg>j8&8 :`Gw#  !- -Ͷ(-Ͷ( *-||<Ͷ(*-!) )}0?)))صo)M!5)3)}Y)0? K)? ))))صo5)a{  Ͷ(:-:-J :92:29V V !"C!"ͯ):)'?)p*):*>\2*)ʿ)ͻ*+)~ͻ**+ͻ**ͻ*͸*!2***O):**>\ͻ*2*yʅ*̾*7 ʬ* ʅ* ?*)Å*̾*)]*)ͻ*> ͻ*>)g*>#)€*6͸*!** *x<>ʐ*yq#ͻ* *> ͻ**ʝ* **:̸*wBÂ+>^ͻ*@ͻ*͸*~ *> ͻ*ͻ*#* *k +#~+<+=!=#z~%& 'z&'{ =&͏#3%p#6!<#:a~ 8%*8%+L%͜(-+$0v%#͜(v%++wl%9%v%6%"&ʚ%>(%V#+6%V %ͺ ĉ&%_x&'O' ';' %_yĂ"%"%{_x%&'&&y?'O&GOO'&*a=&P)%ͣѯ(&ͺ 7ĉ&yĂ"OzWO"H&V&/<2`V ajX! L}͐Ͷ~)>29`hY!~&(-ʰ!+ʰ!+͜(ڗ".="e!E!͜(l!L!q!Q!:`">"~%J"#["!\"d"D"e"͜((͜( #"_{_t"" "gͶ(!e b!Ͷ( "e"ð!͜(!e ! "e"͜("̕ĬͶ( 2 =Ͷ(,  *~=t+*k!n"k*"k> *> *> > **ù+ G++~#fo+##+>+~+~?~++#,+ ,&))):^#V#!-',',w#w#w#w#TU!`S>-O,>-8, ~#=S,!8,#~ f, f,Ʌo$ɧGw#|,{zk,٬NytZB<(sfioS;5#-1]h!IͱRg\͈UïOͱRU͔R!MͽU!pSU͗\OW!4Mͪ  1 1ͮ.|1!-/ͮ.7ͅ1(1ͮ.|1͑.!-/y2-!-,~q+>1q_1NsY+T1J1 W~w+i1b1!-f1N6Å17!-w#‹1&8͜1}1ͥ1116!-F#^#V#Ný71}-~#¿1G++Ny.8-ý1!-7>2183 8!-66g>j8|ԣ6>1ak7!3m4(27x32"~x5656x4!q24]2!m24h3!q2m4h3!u2.4d&X4#]I72h3!h3QY 6ڬ2!2ͱ64 8 62!26!2m4ͱ6!2B44!2.4!34h3! 3m4׳]b5~P$L~yth file - ! ~T #M M 2 2 2 2 ! >2 3o: : @ ***No CRC Files found***$> ʉ ʉw#: <2 P6: .6@ Can not parse string ! ~ʽT #ñM ! > 6 #6^#6! ~T #! 4M #x] #e w~ T #>2 @ - s M@ File not found ! 4 >2 o: G: „: G: „@ *Match* 2 ! 4@ <-- is, was --> : ) > T : ) M 2 ! 4<2 ~# @ Not a space between CRC values<2 G-CATALOG???jSXF77JS\E!-7/Q8 P87>{_zW}o|g=G8|g}oy8CZQl8 o-yOzW{_xG|8-*-DM^#V#N#F#xy.8:-:-7|/G}/O!>Q8 P87>{_zW}o|g=G8|g}oy8CZQl8 o-yRROR++ <* |): o% |g}o" 2  ; 0T ~T #~A > T > _h : F{͇2h2|: ʲ !\   :\2 ! \  \ ! \  \! \  \<7=Ɓo&   ]  2h2|2   ~$#~# x  : F} *}= ">͇1 ]O!-~+>w&8QY76&8:-Ҽ3hڴ365Ɓʼ3ͱ64!3B4Jx5QY7&87ì7|Yt&wz^Pc|u~r173>2-! 4B46ogN6s4 }}{(qnz 6 8t5B4t56~#7=xq58s4M4`6p48&8:-7҃4/<ͱ6&86gj8!-4~_#~W#~Oҽ7#4ʬ7.̀8ý7G~_#~W#~Oܝ66`648&8>Os4`648ʑ6&8ȯG5"o-y2q-Foͨ@ ++ Now searching for "-CATALOG" file++ !  ) .) ! ”>.”#””͡”››tK››͸›* =: =͔="  ʳ ª~#.  ¿~  #~  .+~#0:0~#!A.O.Gy~#0M0 K MMɷ:m2 FSÄCRCKLIST$$$››tK›, › **}|!"*{z*~]*"Ü  DISK FULL: CRCFILE$!"*~#CRC.COM 5.0 6/18/82CRCKFILE???!9" 1 M @ CRC Ver 5.0 CTL-S pauses, CTL-C aborts :] O@ ++Searching for CRCKLIST file++@ Now searching for "CRCKFILE" file++ !  1 .) F!  ͡]͸! ͔0CRCKLIST???CRCKFILE???!9" M à*,*.}|ډ!".*,{z{** u*.".G*.",!".***,}>*.#".ɯ22)! ",". <  NO FILECRC FILE$!   >. @ Checking wi match - : ̓ : J M @ Quantity of lines failed parse test - : ̓ : ~ M @ Quantity of file(s) not found - : ̓ * d͔  ͔ 0T  Җ Wyʩ 0T 0ztiil6ͱ6!D*-:-O"5-4ʬ7:5J5g.*o-:q-Oz#5J5g.*-:-05x<=a5{_zWxG)yOHGý7`6q588&85y+F+F+Fw`h|ʾ5gyҢ5:-O|g}oxG-|–5}‘56ElaOÐ5!-~Gx5ƀ7w6w+ɷ77 8x{8!-66wg6z6 >j8|7{>2-6/))6 =6!-~7w?##wy7O*-*-"-"-a*#"ɯ2i2}! "!"]]2 s : ~# ++FILE NOT FOUND++$: F*}’">͇†]<  CANNOT CLOSE CRCFILE$CRCKLISTCRCSK FULL: CRCFILE$  w# !]͐ DONE$!e S!]Q !eZ @ --> FILE: XXXXXXXX.XXX CRC = oS) \<‘@ ++OPEN FAILED++ !" !" * | ʹ) \!~2 #" Ý: ) > T : ) @ ++FILE READ E  CRCK.COM 4.3 01/17/81 RBS!9")1)̀:] Y ++NO FILE NAME SPECIFIED++ To use this program: COMMANDS: CRCK [drive:] [F] Examples: CRCK MYFILE.ASM Check only MYFILE.ASM CRCK *.ASM Check all .ASM files CRCK *.* F Check all files and make file of results $sCRCK ver 4.3 - 24K Buffer - 01/17/81 RBS CTL-S pauses, CTL-C aborts :m2F¨CRCKLIST$$$ Check only MYFILE.A+` ^**}|N!"*{z@*S .DOC CRC = 9E 53 --> FILE: WUMPUS .DOC CRC = 31 ED --> FILE: WUMPUS .PAS CRC = 5F 29 --> FILE: CAVE0 . CRC = 50 42 --> FILE: CAVE1 . CRC = 99 C9 --> FILE: CAVE2 . CRC = 84 9B --> FILE: CAVE4 . CRC = 23 A5 --> FILE: CAVE5 . CRC = D0 46 --> FILE: MM .C CRC = 4A CC --> FILE: MM .COM CRC = 69 F5 --> FILE: PRESSUP .C CRC = B3 64 --> FILE: PRESSUP .COM CRC = 74 6C --> FILE: -README .DOC CRC = AF 8E --> FILE: -KAYPRO .003 CRC = 00  Hit Space: KK : k Used: /k Not used: k *% DMf : remain on 1 !9" ! J> # ->! . *ͪe> # < * v K  K  K !B r+s+p+qA ?  p*A *? :]$Ž l]Q !]6 !E 6!C 6 :C *C &l ~2D U¼:E 2 :D S:E 2:D F:E 2:D V:E 2:D P:E 2 :D N2E !*" +( DISK FULL: CRCFILE$!"**#"ɯ22!`"!"<¨ ( NO DIR SPACE: CRCFILE$1)ͦp:V++FILE NOT FOUND++$:Ff*}"><  CANNOT CLOSE CRCFILE$>CRCKLISTCRC DISK FULL: CRCFIL] w# N!I DONE$!e<ʨ!]K!eKsXXXXXXXX.XXX CRC = \<V++OPEN FAILED++$!"!"*| \\ !~200 --> FILE: OTHELLO .DOC CRC = 4D 02 --> FILE: CRC .COM CRC = B2 07 --> FILE: D .COM CRC = 66 48 --> FILE: CRCK .COM CRC = CB 3E --> FILE: WASH .COM CRC = 4B 2D --> FILE: WUMPUS .COM CRC = B9 96 --> FILE: CRCKLIST.CRC CRC = E4 51 --> FILE: ADV-SAVE.DOC CRC = FA 80 --> FILE: BIO .COM CRC = 4A 4F --> FILE: MAZE .COM CRC = 9C 1E --> FILE: OTHELLO .COM CRC = 8E 72 --> FILE: PACMAN .COM CRC = EF C5 --> FILE: PACMAN .DOC CRC = 2B 40 --> FILE: GAMES .COM CRC = DF BF --> FILE: ZCHESS .COM CRC = CD 91 --> FILE: ZCHESC 4Ø:!4:!5(  ! I3= : [= t:\a:\=_: :] t ?]\ : ҃! 6?Î : 2   ]Q  ?\\ : DM, Q ! "= *3 ##)*= "; */ &# "! *3 #"#  !! "% >!1 . 2' \: 2 : ʩ: ƀo&"* ~ʛ*# +"# ** DMY қ** DM  *; q#p* " . ** #DM*; -e**  *; w* #" )*= *; s#r*; "; : 2 !S 6!"V * "n >!S d*S &T ) ^#V"K O!l ^#V"M :S =2S M K  a*K "G *#"?(:\> ͇:\̀èV++FILE READ ERROR++$*|):oX|g}o"e n0Ç~͇#~t> ͇> _͛:F{2h2|:!\ K:\2!\ K\ !\ K\!\ K\<7=Ɓo& K] K2h2|2DD~$#~# xK :F°*}p">d<¨ è CANNOT CLOSE CRCFILE$ ++ABORTED++$ *)  M "I *K  )*= ^#V"O I G  *G )*= N#F*O ? J*G #"G (*I )*= ^#V*O DM? m*I +"I JI G  *G )*= ^#V"Q *I )*= *G )*= N#Fq#p*I )*= *Q s#r*G #"G *I +"I K I  G M   !M G  :S <2S O!T *G s#r*S &l ) *M s#r*I "M ^I K  X:S <2S O!T *K s#r*S &l ) *I s#r*G "K û!" "    #* #" )*= * #" )*= N#Fq#p   * )*= * ) *= ^#VN#F? H * #" )*= ^#V";  *; ^#V" * )*= !<| "{!Nw!l"{!l"{!l"{!l"{!l"{"!l"{%!l"{ͪt! Isͪt!P|!l%s!lIsͪt!P|!l%s!plIs!"$*$"$!k&ͪt!<|%s!ll%s%*$<|%s!<<|%s@*$<|%s!fl%s*$E}Is*$#"$*$*$z|&}|&ͪt!<|%s!ll%s!6<|%s!A<|%s!Ul%s!f$"{$!Ql͸y&͵n!$x|&)go@*$!$xzz&{zgo|g}o|­&ͪt!$Is!$xk{,'B-4=V@tLR!k'!T'*$E}*$)s#r*$#"$*$|d')8'*$#"$*$|{')2'ͪt! %s _{ozgO{ozgi`N#Fogo&og_{_z#W OK = Y -S {-_ ! s+p+q*  ͼ 2 <2 : ! ڗ  K ! 4Á ! 6: =! ڻ * & NK ! 4œ >3  03} Z; { ) # |ڐ+))*$#"$*$|ڧ+))!p,!Y,*$#"$*$#"$*$E}*$)^#V|+$!k"{-*$E}*$) ^#V"]%*]%s#r*$E}*$)^#V|=,!<|$"{-*$E}*$) s#r*$#"$*$|i,)ڶ+*$#"$*$|ڀ,)ڰ+!"$!="$$!k"{-_w$"{)ͪt!<|%s$!jk"{!"$!"$-!f$"{^k!$Hx"$*$##|zm!Ǐͺx|"$*$#k{,),'-%ͪt!<|%s!ll%s *$<|%s*$<|%s!$%s!Ê-*$)Ns#rps#rs#rs#rs#r*^#V"; *;  ͪ  *; q#pÝn* " ! p+q* )*= ^#V"; ! 6> ! i* &*; >OK : <2 E:/ *; ^#V*% DMf kK : *; Nf E*; ~ڻWK þE *; ~SK E = ! 6:! ':/ : = !: = : <2 * " !" >! .  * *&͵ "( * *&͵ > j*( #"( *DM*( V"( !" (   K!" }2 : <2 O:* * * "    >! = * DM** +" *( * " Ø* #" *&!'$!Ml"{*$|z"m!Ǐͳ|ͺxͳ|myXy'$!Il"{*$"$!"$-!="$-*$#"$*$|')ڍ'!@($!Ml"{*$|z"mͳ|!M%ͺxXy$($!El"{!"$*$"$-!"$-*$#"$*$|P()'!"$!"$$!l"{-$!k"{!"$-!"$"$$!k"{-!f$"{!<|!$ͽy)$!k͸y(*$|()(*$+"$$!k͸y(*$|()(*$#"$$!k͸y)*$| )))*$+"$$!k͸y8)*$|.))8)*$#"$$!k"{$!k͸y{)!<|!<|xw$"{*$E}*$)ds#r$!k͸y)!g%~w͖FogGͭUF*||_F**F"`i"!^#V#N#F#F: Gw#F!~7w?##wy7O!F G!FͭxUF!^FUFy!y0G#x+y+z+{z|_F`F}`F!F UF!^FUFO!y#-G+vGYG^Fͭ*: ʤG HýGGG!iOFFJ HýGD:2:dH:GGG|/g}/o#G!!{%im.m0mE%g%!<| "{$#"$*$|ښ-)H-!"$ͪt! %s!Ek%s͘r|"$_w!Bkͽy-ͪt! %s!)kIs!y.͘rzmy&m|"$!"$*$|zm!Ǐͳ|ͺxͳ|myXy.!"$*$)*$s#r|ͳ|*$!}o|g|yz|"$ͪt*$r*$s!%k%s*$@sͪt!lIs*$#"$*$|ډ.)-ͪt!j%s!fg"{d!j"{g!j"{j!j"{m!j"{ͪt! %s!jIsͪt!<|%s!/ͪt!<|%s!ll%s *$<|%s!o<|%s!El%s*$#"$*$|+/).ͪt!<|%s!ll%s!!<|%s! <|%s!í/ͪt*$s!g%s! <|%s! <|%s!fl%s!j%s! *( * " 3*1 #" " " *5 " > # R : B * +" ! +s#r( ! 6: " * ~2 * #" * +" > ʶ : 2 Ғ * +" : <2 O>ҳ ! 6* #" * ~2 p ̓: AOK = * Ͱ= * ͷ= * Ͱ= *# ͷ= * Ͱ= . g S -A >>!  ~?l W >#^ : /!:' —  ʑ #‹  W ʢ #™ i`N#FogDM!>))덑o|g =¼ DM!>)) = ^#V) ^#V|g}o <|kxw$"{*$E}*$)ds#rÏ(!"$!"$!<|kxw$"{-$!k"{$!k͸y,!×+!À+*$|"$*$#|"$;*$|<"$*$#|<"$*$E}*$)^#V"]%*$)^#V*]%"_%*$)^#V*_%*$E}*$)"a%^#V*a%*$)^#V*$E}*$)"c%^#V*c%*$)^#V*c%*$)^#V"$*$E}*$)^#V"]% *]%s#r*$|+)0+*$E}*$) s#r*$|T+*$E}*$) s#r*$|a+)|+*$E}*$) s#r*$#"$*$  <|%s! <|%s! <|%s! <|%s*$#"$*$|ڽ/)X/!"$͘r+y m//ͪt!<|%s!<|%s!jIsͪt!<|%s!0*$)ps#r*$#"$*$|"0)0͘rz*m!Ǐͺxy&m|"$*$)^#V|%0*$)p^#V|goE}g$"{*$))+++"$*$)N"_%^#V"]%p^#V*]%*_%s#r*$)"]%N^#V|0)0*]%p"_%^#V|0*_%s#r*]%^#V#s#r*$)"]%N^#V|1)51*]%p"_%^#V|51*_%s#r*$)N^#V"$*$"$3*$#"$$!j"{*$|zmͳ|!M%ͺxXy1$!m"{3!)^#V|:͘r{y&m!Ǐͺx|"$*$k{:R;*$*$}o|9*$|L%*$|ڳ?)go*$|?)?go|g}o*$|?)go|g}o*$|?)?go|g}o|N@!<|!=<|xw *$<|xw *$<|xw*$<|xw$"{ͪt!$%s*$+"$!4ͷ{$"{!4ͷ{$"{$!i"{$!i"{ !k{!i{xw !i{xw !i{xw$"{$!$xw!$xw!$xw$"{ͪt! s!iIs!"$"$ͪt!lIsͪt!lIs!"$!Jiͤr!$r$!Fiͽy%$!Qlͽy%!$x|"$*$|?A)ZAͪt! <|%s!<|%sAͪt!%iIsͪt!h%s%!h"{%!h͸yA_w%ä1*$)^#V|ʺ1*$#"$*$|ڴ1)ڊ1%0ͪt!<|%s!ll%s*$))<|%s!o<|%s*$#{!ͩz%s*$)s#r*$#"$*$s#r*$|&2)%0ͪt!<|%s$!qj"{!"$!"$3ͪt!lIs!~3!g3*$)^#V*$}o|c3!"$*$)^#V"$*$|zm!Ǐͳ|ͺxͳ|myXy2!"$*$|ͳ|*$!}o|g|yz|"$*$|2*$)^#VE}K"$3*$)^#VE}"$!ej͡t*$s*$s!`j͡t*$sͪt!%k%s!\j͡t*$s!Lj͡t*$|zm!Ǐ.s*$#"$*$#"$*$|w3)b2*$#"$*$|ʨ;*$E}*$)s#r;*$E}*$)s#r*$#"$*$*$U}#*$}o|O<÷5!"$*$E}*$)^#V|$<*$E}*$)s#r!"$L<*$E}*$)s#r!"$"$"$Ü5Y5*$"$!V=ͪt!El%s*$"$!í<*$E}*$)^#V|ڑ<)Ҡ<ͪt! j%sé<ͪt!fl%s*$#"$*$*$z|<}|p<ͪt!lIs*$"$!1=*$E}*$)^#V|go"]%|go*]%|g}o|$=ͪt!j%s-=ͪt!j%s*$#"$*$*$z|E=}|<ͪt!ElIs*$#"$*$*$z|j=}|[<ͪt!<|ixw%s!{9:*$*$}o|²7*$|9!"$7*$E}*$)^#V|9͘r{y&m!Ǐͺx|"$*$k{9R;*$+|+9*$E}*$)^#V|+9*$*$}o|8*$E}*$)^#V|8*$*$}o|d8*$|ʥ8!"$8*$E}*$)^#V|¥8͘rzmy&m!Ǐͺx|"$*$k{^::R;͘r{y&m!Ǐͺx|"$*$k{^::*$*$}o|8*$|^:!"$9*$E}*$)^#V|^:͘r{y&m!Ǐͺx|"$*$k{^:R;*$*$}o|ʹ9*$E}*$)^#V|¹9*$*$}o|{9*$|:!"$y:*$E}*$"{͘r|"$uAͪt!%Ish!%Hx|ʯA͞KI*$|ڿA)A$!$"{$!$"{IͬJ*$|A)Bͪt!hIs!A*$#"$*$/| B)A@ͪt!h%s*$@s!hͤr!$r$!QlͽyqL!$x|"$*$*$z|WB}|B*$|iBIòA*$|vB)҅Bͪt!hIsBͪt! Isͪt!h%s*$s!nh%s*$@sͪt!^h%s!P|!l%s!OhIs!"%"%" %ͬJ*$" %!" %ͪt!%%s$*$!z%s!P|!l%s!"$OKͬJ*$"$!"%*$|.C!"%%!%"{$*$!z%"{ͪt!:hIsͬJ* %#" %* %*$" %ͪt!%%s$*$!z%s!P||ڎ3)\2ͪt!<|%s!"$"$!<|!>jxw$"{3!f$"{$!:jͽyB-$!Qlͽy%ü3ͪt!<|%s!ll%s *$<|%s*$<|%s!$%sͪt! %s!"j%s͘r|"$_w!jͽy#4!"$! "$!Ï4!x4*$E}*$)s#rs#r*$#"$*$|ڈ4)P4*$#"$*$|ڟ4)J4ͪt! %s!"$"$͘rͳ|*$|zy&m!Ǐͺx|"$*$"$! 5*$*$}o|4ͪt!j%s5ͪt!j%s*$#"$*$*$z|5}|4ͪt!MlIs!"$*$)*$s#r*$#"$*$"$!"$÷5*$*$}o|•5*$*$}o|…5!"$"$Ü5!f$"{$!Ql͸y=ͪt!iIs%$!:j͸y=ͪt!iIsD4À=ͪt! %s!<|%s͘rzl!Ǐͺxy&m|"$i*$ͩzx"$͘rzly&m!Ǐͺx|"$͘rzly&m!Ǐͺx|"$͘rzm!Ǐͺx|"$*$|M>)=!"$*$"$*$"$ͦ?*$*$"$*$"$*$*$"$*$*$}o|g#Ù>ͦ?*$#"$*$*$z|>}|Ғ>*$*$"$*$*$}o|g"$*$+>ͦ?*$+"$*$*$zz>{z>*$*$}o|g"$"$*$*$}o|g"$*$+&?ͦ?*$+"$*$*$zz:?{z?*$*$}o|g"$*$*$"$*$*$}o|g#q?ͦ?*$#"$*$*$z|?}|  !l%sOKͬJ*$*$"$%!%"{$*$!z$"{ͪt!%%s!$Is*$|C!"%*%|HD*$|HDͪt!P|!l%s!*hs!%%s!%Is*$|,D* %|ʝDͪt! hIs*$*$}o|g"$F*$|D * %|oEͪt!P|!l%s!gs!%%s!%Is*%|©D*$|©Dͪt!gIsòAͪt!gIs*$|ͳ|*$|zly|"$F* %|oEͪt!gIsͪt!`g%s!f%"{Yg!%Hx#|zm!Ǐͺx|"$*$|Dͪt!%Is*$|jxw$"{3!f$"{$!:jͽyB-$!Qlͽy%ü3ͪt!<|%s!ll%s *$<|%s*$<|%s!$%sͪt! %s!"j%s͘r|"$_w!jͽy#4!"$! "$!Ï4!x4*$E}*$)s#rs#r*$#"$*$|ڈ4)P4*$#"$*$|ڟ4)J4ͪt! %s!"$"$͘rͳ|*$|zy&m!Ǐͺx|"$*$"$! 5*$*$}o|4ͪt!j%s5ͪ|ڐG)ҝG * %" %* %|H*%|Gͪt!f%s!"$,G*%|H*%|Hͪt!f%s!"$!{%im.m0mE%g%!<| "{!<| "{!Nw!l"{!l"{!l"{!l"{!l"{"!l"{%!l"{ͪt! Isͪt!P|!l%s!lIsͪt!P|!l%s!plIs!"$*$"$!k&ͪt!<|%s!ll%s%*$<|%s!<<|%s@*$<|%s!fl%s*$E}Is*$#"$*$*$z|&}|&ͪt!<|%s!ll%s!6<|%s!A<|%s!Ul%s!f$"{$!Ql͸y&͵n!$x|&)go@*$!$xzz&{zgo|g}$<|%s!o<|%s!El%s*$#"$*$|+/).ͪt!<|%s!ll%s!!<|%s! <|%s!í/ͪt*$s!g%s! <|%s! <|%s!fl%s!j%s! <|%s! <|%s! <|%s! <|%s*$#"$*$|ڽ/)X/!"$͘r+y m//ͪt!<|%s!<|%s!jIsͪt!<|%s!0*$)ps#r*$#"$*$|"0)0͘rz*m!Ǐͺxy&m|"$*$)^#V|%0*$)p^#V|goE}g$"{*$))+++"$*$)N"_%^#V"]%p^#V*]%*_%s#r*$)"]%N^#V|0)0*]%p"_%^#V|0*_%s#r*]%^#V#s#r*$)"]%N  t!j%s*$#"$*$*$z|5}|4ͪt!MlIs!"$*$)*$s#r*$#"$*$"$!"$÷5*$*$}o|•5*$*$}o|…5!"$"$Ü5!"$*$#"$Ü5*$#"$*$E}*$)^#V|Y5*$+|7*$E}*$)^#V|7*$+|6*$E}*$)^#V|6*$*$}o|P6*$E}*$)^#V|P6͘rzmy&m!Ǐͺx|"$*$k{9^::*$*$}o|u6*$|ʶ6!"$Ð6*$E}*$)^#V|¶6͘rzmy&m!Ǐͺx|"$*$k{9^:R;͘r{y&m!Ǐͺx|"$*$k{9^:*$*$}o|ʍ7*$E}*$)^#V|"$"$*$*$}o|g"$*$+&?ͦ?*$+"$*$*$zz:?{z?*$*$}o|g"$*$*$"$*$*$}o|g#q?ͦ?*$#"$*$*$z|?}|j?*$)=*$#"$_w!iͽyV>%*$|ڳ?)go*$|?)?go|g}o*$|?)go|g}o*$|?)?go|g}o|N@!<|!=<|xw *$<|xw *$<|xw*$<|xw$"{ͪt!$%s*$+"$!4ͷ{$"{!4ͷ{$"{$!i"{$!i"{ !k{!i{xw !i{xw !i{xw$"{$!$xw!$xw!$xw$"{ͪt! s!iIs!"$"$ͪt!lIsͪt!lIs!E}*$)s#r0;*$E}*$)s#r*$#"$*$*$U}#*$}o|O<7*$|;*$E}*$)*$s#r#"$^#V|ʨ;*$E}*$)s#r;*$E}*$)s#r*$#"$*$*$U}#*$}o|O<÷5!"$*$E}*$)^#V|$<*$E}*$)s#r!"$L<*$E}*$)s#r!"$"$"$Ü5Y5*$"$!V=ͪt!El%s*$"$!í<*$E}*$)^#V|ڑ<)Ҡ<ͪt! j%sé<ͪt!fl%s*$#"$*$*$z|<}|p<ͪt!lIs*$"$!1=*$E}*$)^#V|go"]%{Yg!%Hx#|zm!Ǐͺx|"$*$|Dͪt!%Is*$|)=!"$*$"$*$"$ͦ?*$*$"$*$"$*$*$"$*$*$}o|g#Ù>ͦ?*$#"$*$*$z|>}|Ғ>*$*$"$*$*$}o|g"$*$+>ͦ?*$+"$*$*$zz>{z>*$*$}o|gG)wG* %++++|Mzm|"$ͪt* %s!f%sͪt!f%s*$s!fIs*$*$U}*$"$ͪt!P|!l%s!%%s!%%s!fIsF*$|ʝG * %|ڐG)ҝG * %" %* %|H*%|Gͪt!f%s!"$,G*%|H*%|Hͪt!f%s!"$,Gͪt!f%s!"$,Gͪt!P|!l%s!%%s!%Isͪt!lIsͪt!Mg%s* %s!P|!l%s!fIsͪt!P|!l%s!%%s!%Isͪt!P|!l%s!%%s!$Is*$|ڋH)4I*%|H *$|ګH)H *$|ڿH)H *$"$4I!H*$#"$*$7|H)HͬJͪt!P|!l%s!#V|^:͘r{y&m!Ǐͺx|"$*$k{^:R;*$*$}o|ʹ9*$E}*$)^#V|¹9*$*$}o|{9*$|:!"$y:*$E}*$)^#V|:͘r{y&m!Ǐͺx|"$*$k{:R;*$*$}o|9*$|Lj%s!f$"{ͪt!$Is$!Ql͙y$!a͙y|g}o|%äSͪt! %s!taIs!ÔX$!ma"{*$++++{$wͪt!$%s!tX*$E}*$)^#V|Xͪt!ga%s*$E}*$)^#V|GXͪt!aa%s*$E}*$)^#V|pXͪt![a%s*$#"$*$|ڄX)Wͪt!lIs*$#"$*$|ڤX)W!"$!"$*$*$zzX{zX*$|X)X*$"$*$*5%z|X}| Y*$|Y  ]!P" %*$|]):]*$|%]):]*$|:]!("$*$|G])ڀ]*$|W])Ҁ]*$|g])ڀ]*$|w])Ҁ]!("$*$|ڍ])]*$|ڝ])]*$|ڭ])]*$|ڽ])]!("$*$|]*$|]*C%E}*A%))s#r*$|^!Q"$* %)#^#V*$)#^#Vz|'^}|1^* %"$*$)#^#V"]%| |u^*$| |u^*]%|l^)u^!J"$*$)#^#V"]%| |¹^*$| |¹^*]%|ڰ^)ҹ^!%"$*C%E}*A%)"_%^#V*$)#^#V"]%zz^{z^*]%*_%s#r*$S DOWN CARDgYOU BUSTED WITH A SCORE= *gyYnN^2gDO YOU WANT A HIT ? Ig OR PgYOU HAVE \gyYnN%cgDO YOU WISH TO PLAY ELEVEN AND ONE ? 2gDOUBLE YOUR BET IF YOU WISH TO PLAY ELEVEN AND ONEgBLACKJACK YOU WIN AT 1.5 TO 1gSTANDOFF WE BOTH HAVE NATURALS hDOWN CARD IShDEALER BLACKJACK YOU LOSE -hDOWN CARD IS =hFACE DOWN CARD AND RhDEALER SHOWS ahPLAYERS CARDSqh YOUR BET IS $hBETTING MINIMUM IS $1.00hHOW MUCH IS YOUR BET : hYOU HAVE $%hDO YOU WANT ME TO TAKE YOUR SHIRT TOOhyYhh%iY NOT TRY ANOTHER ANIMAL ?c ? #cIS IT A-c\Q!2cDO YOU WISH TO FINISH THE GAME ? VcLIST ]cARE YOU THINKING OF AN ANIMAL ? )cAND TRY TO GUESS WHAT YOU ARE THINKING OF/cTHINK OF AN ANIMAL AND I WILL ASK YOU QUESTIONSBcTYPE 'LIST' AT THE NEXT QUESTION TO SEE WHICH ANIMALS I KNOW ABOUT#dAEIOU+dWelcome to the game of ANIMAL/KdCHOICE TO PLAY ELEVEN AND ONE (DOUBLE YOUR BET)+}dSIX,SEVEN,EIGHT PAYS 2 TO 1+dTHREE SEVENS PAYS 3 TO 1+d7 CARDS TOTALLING 21 OR UNDER PAYS 8  #zH; *@L~ r[[[[ BASLIB #900354 5.1 - OWNED BY MICROSOFT, 1979 2mm2pm*^#V"nm##^#V"qm!3n"0n6#6P>27n>26n>25nmmmpmmm_TG!flG!"$,G*%|H*%|HͶG!fͼG!"$,GG!f!9"m*y%*s%Qn!6#}Qn|Qn6!n6#zdn*w%|ʅn> n6#s#r#=zn>2m>2m>2m2m"m!m" n͌mã STO͝qõn&r* n.. . .........͓*n|¼n:n*o*n|*o)q|_)#_*=%*$"=%*?%*$"?%Y*$|8_*$|8_*$|V_*$|V_!"$*$|p_*$|p_!"$*$|Ž_*$|Ž_!"$*$|¨_*$|¨_!"$*$|_*$|_!"$*$|_*$|_!"$*$|_*$|_!"$ Yͪt! Isͪt!lIsͪt!lIsͪt!lIsͪt!aIsͪt!`Isͪt!`Isͪt!lIsͪt!g`Is!f$"{äS͵nj`Hit any key to start.J`is to get five counters in a row - horizontally, vertically or diagonally.D`the same way, with X's and O's, but the board is DO YOU WANT THE RULES FOR THE CAME ? (iTO SHUFFLE CARDS BET 0 DOLLARSIi^8MiHOW MANY DOLLARS ARE YOU WILLING TO PART WITH TONIGHT : (i WELCOME TO THE CASINO BLACKJACK TABLEiSiCiHi10 iA234567891JQKii.:=-OX #%$I|+>2n&rError -!Wo~Input Past En?Bad Record Numbe@Bad Fi19 x 19 and the aimEaGO BANG is like a large game of noughts and crosses. It is played in ^a O da X ja . pa q at address|7w}7w&r> Ѝ> Ѝ!9"m*m)ڔr|*m*n{r))ܡr) )ܡr ܡr ܡr"n"mK!"ʏG]{r!JrL~2r#~#^#V++͉ڦn0r*n|r!ߙix%{*"n0rRs3t0r]s3t0rhs3 {2ʏ#n:ʏ{2ʏ#n0rR_{~##++ >͹+V+^+R{+r+sS0r%{~#^#Vxq{>2j{|¬{+})N#Ҩ{~#fo :j{›{!9"m!n4 ~ʹ#n0r {~n#~#fon&͉0rz{}~{s#{:rn"Ǐ0r>#|0rǏ>|0rÏ>͹21#~#-|xx|n0r!9>x+͝|*0n{ rwmw>xn0r͙w͙w͉͉~#~#fo͹d|ʳw+ Һw_{"w"w~w_*w o gC#~#fox͹͉*w*wx#N#fi>x~#N#fi͹ÉFO%xG#~#fo#~#fox͹y>xÉ6 #>xQxxnű\x y<2GxF~ڦxڦx#~#foyʹO #~#foxʪxšx#‰xêx!Gx4 †x2Gx͉͉*Gx&>.~͉o&~n#^#V++͉o&0r~>/~m#Ïm(!͏í>!͏Ï2# ³!͏@!͏͔؏>>ց>|}+!JH\+6!ɏ>͉2!F*!BH!͏H~_#~W#~Ogø!õh/ɇ<o&͊Ö*Ǐ*ɏ_"Ǐ`i"ɏ!Ǐ^#V#N#F#!FöUx{J!ˏ6*wg>ͲnØ:1Gw#˜í!͏Ǐ̓Ï̓*Ǐ||<̓*Ǐͧ!͡ͽm!:ɏ2ɏ:ʏ`n:t0r(s3t0rRsPt0r]sPt0rhsPt0rͺs^t0rRst0r]st0rhst0rͺstǏssÏss"Ǐ|sH~# tsx21:+n*ts©s#i<jt~ʥs<#Ùs#~ʥs <#ìs>21:+n*tF#~#foxsjtss~#" ,<W*0n#^ ̍tʇt+=ڇtz{ڟt{_Ñt0rͪtt!3n"0n!"n2+nv$Mt:rn:rn(n"{͉>2+n!!u",n:(nt2t2t^#V#0r}0r}0rz7}|7}|Ͷݗ^#V}^#V#U}GNʉ}yʉ}#~#fo~#fo’}#ʈ} x} yʒ}y<.ڜ})ʜ})͉͉cW !}}F}T}W}j}W}}}O}$}R}W}$}W}$l_!}4}5*}"}~#N#F#1~ ~ ʹ}yx~ }+++6@#yw#xw+++6###!}~6B~W~}͡~*}#~#~}:rn!*}"}~#^#V#ڞ~}~ʹd~|‰~d~++~_w#~Ww#d~W~*}DM~#^#V#~~ê~+zļ+{ļ##{z~#q#p_ʪ~y~x~DMê~~#~ê~YP+++͹6+iY}͉É>7y>7y>7y>7y>7y>^#V#!Ǐ>_y>_y>_y>_y>_y>^#ZǏ^#Z!Ǐu>Ûy>Ûy>Ûy>Ûy>Ûy>]}!+>ÿy>ÿy>ÿy>ÿy>ÿy>]}y~#fo##e^#V#0r͵y^#Zye^#V#0rͶz^#Zze^#V#0rl*z^#ZVz^#V#͗0ze^#V#0r*bz^#ZÎz^#V#͗hz|0rnBKzPY|n0rBK ҿz o_âzzn0rzz z_zo _ W}x͉DMe:ʏ |/g}/o*!`:ʏ3n"Ǐ>21'aj) L}a͇K>2 `h*~&ʞ-ʁ+ʁ+id.eʓE½ilʫLʫqʫQʼ:1փ>փ~%#*!+dփD탷2i͔iׄ탯_{_AQ8̓!63̓ 2Á#6˂탷2#f}̓h=̓ <‚u͉:tuX~#\v ªu ™uC>\v<_WvW~#!v#v&vʸv+>ʷu+~#.1v_ʧv\ʕu®u$ v*®ux#v~$> v v#Wiv~#..®u# iv~##Wx2tCxtzg."t`i"t2tv~#2t2tz>+@++*}"}s#r+͡~*}#~_#~W|:rnr+s##6"}###!}~#foʠǎ<*}"}*}}o|g6@#s#r#6"}**"}}w>#w##ǎˀ++6+6ɴ}}[~Ѝ#=~  y :ˏ:ɏ :ˏ/ `ͬ.6+͹@6-8#60:4W:1цɆҵʹ!F :4_ yx*y{yAqiʙEʙDʙ0y,y.œ+60{ʥ+6${+p24!6 A*Ï*ŏ2 `E~:0 #~҅>DGЅ"Ï`i"ŏ#~+H-0OxGH#~`xE=y >2 M|5"Ï`i"ŏQ#WV: {Å҉60f+~0ʘ.fʆ̓>"w#6+6-/</ ҽ:#p#w#6!#zKzɈʹ{ށ=Ɉ\p#ԏnO !v!ɏy#+n?v>Ɠ%ͽҐ!͏ʑ:ʏn:ԏ/͉2:Ïnx/6>4>?>=>:>7>5>2>3>@>C>:ro&n!"n!ߙ"ݙ:r?p4B:>\2( +<~ P+ P !ߙ2S4O:i>\ 2yӌ 7 ӌ ӌ « > >5µ>#<Ό6!ߙP Px<>ތyq# P> 4 PS:rYGn%|Yt&wz^Pc|u~r1G4v>2ʏ!Q͊2og͖û }}{(qnz 2Uͼ͊ü2~#>=x͹_ͻÕͨø_n:ʏG˕/<ngͲ!Ǐ~_#~W#~O#4.șG~_#~W#~OGͨ_n>Oûͨ-_ٗnȯG"y2Fo!D*Ǐ:ɏOjʏ4Â͒g.*:Ozk͒g.*Ǐ:ɏxx<={_zWxG)yOHGͨù_Jny+F+F+Fw`h|gy:ǏO|g}oxG-|ޖ}6! #:2~ *+i-+$0C#iC++w9C6%g Áu#+6%'^͋V_xɈو_yOQ{_xÇɈԇɈy OɈGO߇*2=ɈPtѯ͋7VyOOzWOQ#/<F+N+=!͏#!Ï>q#p#=&!ÏH" *%:ʏ%!ӏN#FrqʅGܷ͵x ne!ɏ͑}j0 TeB׳]h!I.k >Ɠ̑ͽ!͏Hv!ʏq#~++w+qnDNn"~`35zr1{r1h!InyO2ӏFn:ʏҐX/<Ґ9n:ӏOG2̏!ӏ͉:̏2x!͏Ïגҏ4͵:!ˏ~++wn!Ï4#¨4ґ+6!͏Ï# ɯ# ͒͒/!Oyw#蒯G:ɏ!Vww&rЍ>^ @ ~ -> #m*0n S#~+ <~=*0n!3n"0n<"0n> <> <> m> m*: G ~#fo##*>7~+~?~B+#O+ O&)))E!^#V#!Ǐuuw#w#w#w#>ÏÝ>Ǐ ~#=¡!Ʌo$ɧGw#½{zٖGElaOؖ!ʏ~Gx&ƀ$ww+ɷ%Ux{J!ˏ6*wgLzK >Ͳ|{>2ʏG/)) =!ɏ~7w?##wy7O*Ǐ*ɏ"ɏ"ǏajSX͎%JS\E!ʏ%/ />ͪE>ͪp#=nQY?\/{_#zW#yO++Ҍ#Qp#~>ú_>N#F#*Ǐ/}o|g͉"Ǐp#=ºw1_cƤ~@zZrN vH Tʚ;@B''d #~: i i i0?<=:1Ґ7-++i&OʯHʯ+ͻĊ*H#ʊ:rnM!܊ڊ}0?)))صo܊M!}z# x%!,xʏ!ʏw%Ï~w# .>ƓMͽ!͏@>ƓiͽҐ!͏0y2ӏ!ɏ~q+qڠNsY+•Ë W~w+ªã!ɏç͖Ɠ>!Ïw#̓nݓ}!ƏF#^#V#N}͏~#G++NyvÏ!Ǐ>>O-vg]U!ˏ6*g>Ͳ|>'ak>.n_ʾnƔ21h|JҚ!̫2*ͼ͔>O!ʏ~+>wnQYGٗn:ʏh2.Ɓ! ͊JQ  !ʏqx!ʏF#~怩OG 4go"Ǐ"ɏUs#r#q#pg_Jg"Ǐ`i"ɏ*Ǐ*ɏDM^#V#N#F#xyv:ʏ:ɏ7|/G}/O!>Ù Ҙ7>{_zW}o|g=|g}oCZQô o-yOzW{_xGęN#"ۙ!9"֙"ؙy2ڙ*n|* nw#~w#~w:>_!x -)  Y@K   :>+    ~}  Ç   :>g:=     0ګ:ҫOyOxGGëxOx!7~!7~w#~w#~w#~w:>_!x -)  Y@K   :>+    ~}  Ç   :>g:=     0ګ:ҫOyOxGGëxOx!7~!7~w#~   :>    ~A  K   :>+    ~}  Ç   :>g:=     0ګ:ҫOyOxGGëxOx!7~!7~w#~w#~w#~w:>_!x -)  Y@K   :>+    ~}  Ç   :>g:=     0ګ:ҫOyOxGGëxOx!7~!7~w#~/* Mastermind game, written by: Stephen A. Ward, January, 1980 Modified for BDS C by: Leor Zolman, February, 1980 Usage: mm [ -b ] [ -k ] [ -c# ] [ -p# ] where: -b tells # of possible solutions before each guess -c# sets number of different characters (e.g., "-c4" means A-D) (defaults to 6) -p# sets number of positions in solution string (defaults to 4) -k disables kibitzing (enabled by default.). Thus, for example, the invokation mm!؛"nA~#*ݙO~؛ʓ,R/Y"ݙUa}*ɏ*Ǐ*ŏ*Ïn˂*Ǐnf*ɏ*Ǐ*ݙOʆ~#"ݙ,؛ ~؛!"n~,"ž#"~ʲʲ# ¡؛"¸#"ݙx"͛ ͛+~ ›yxn?Redo from Start *͓֙!ͤr*ۙ:ڙO*ؙ+~+3%% +w '>++~#fo%{"ؙ!ڙ5*֙#~ N Ne^#V#0r͵y^#Zye^#V#0rͶz^#Zze^#V#0rl*z^#ZVz^#V#͗0ze^#V#0r*bzw#~w#~w:>_!x -)  Y@K   :>+    ~}  Ç   :>g:=     0ګ:ҫOyOxGGëxOx!7~!7~w#~w#~w#~w:>_!x -)  Y@K   :>+    ~}  Ç $ $ :$--:$ $ |$8080 MAZE PROGRAM $HOW WIDE? $HOW HIGH? $AGAIN? $w#~w#~w:>_!x -)  Y@K   :>+    ~}  Ç   :>g:=     0ګ:ҫOyOxGGëxOx!7~!7~w#~w#~w#~w:>_!x -)  Y@K   :>+    ~}  Ç   :>g:=     0ګ:ҫOyOxGGëxOx!7~!7~w#~ -c10 -p3 would simulate the game of "Bagels", where the layout is ten different characters in three positions. I don't think "Bagels" allows repetitions, though, so it isn't QUITE the same... */ #define NPEGS 10 /* Max NPeg */ #define MCOLORS 26 /* Max NColors */ #define NHIST 100 char Secret[NPEGS+2]; /* was CHAR */ char History[NHIST*NPEGS]; /* was CHAR */ int Jots[NHIST]; int guesses; int NColors, /* Number of colors */ NPeg; /* Number of pegs */ char KFlag, /1     >2;2<!@ 6#}!|!w  ;{J?<ͫ<    Y y    ͨ  )w2>  ͨ  )Ҡ2=:>_2?O6x~zW:==:;~zWy  ~zW:>=1  ~1zWz:5>2<_zSe[nқʒÛ~w~w:==ʆ~w>2;:?O ~w~w ~w :>ʼ~ҫ:=³:<>2<ó      :?    * Kibitz flag */ BFlag; /* Debug flag */ main(argc, argv) char **argv; { register int i,j; int ngames,ntries; ngames = ntries = 0; char *trial, *arg; NColors = 6; /* Number of colors */ NPeg = 4; /* Number of pegs */ KFlag = 1; /* Kibitz flag */ BFlag = 0; /* Debug flag */ for (i=1; i 0) score++; } return score; } int incr(tt) char *tt; { register int i; i = 0; while (i < NPeg) { if (++tt[i] < NColors) return 1; tt[i] = 0; i++; } return 0; } int Check() { char tt[NPEGS]; char *hh; register int i, j; int count; count = 0; for (i=0; i<ymbols)\n", Check()); else if (KFlag && guesses && Check() == 1) printf("\nYou should be able to figure it out now!\n"); if (!rguess("Your test symbol", trial = &History[NPeg*guesses])) break; j = match(trial, Secret); Jots[guesses] = j; printf( (j>>4 ? "\t\t\t%d hit" : "\t\t\tno hit"), j>>4); if ((j>>4) - 1) putchar('s'); printf ( (j & 0xf ? ", %d miss" : ", no miss"), j & 0xf); if ((j & 0xf) - 1) printf("es"); putchar('\n'); if (j == (N*K͞+'+FÎr ͖ 8{ Ăy0 2͵ ^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/ors > MCOLORS) NColors = MCOLORS; continue; case 'P': NPeg = atoi(++arg); if (NPeg > NPEGS) NPeg = NPEGS; continue; default: printf("Illegal option %s\n", argv[i]); exit(-1); } else { printf("Usage: mm [ -b ] [ -k ] [ -c# ] [ -p# ]\n"); exit(-1); }} printf("Mastermind game:\n"); printf(" I have a secret string of %d letters ",NPeg); printf("between A and %c.\n", 'A' + NColors - 1); printf(" Object: find it in as few guesses as possible.\n"); printf(" ForNPeg; i++) tt[i] = 0; do { hh = &(History[0]); for (j=0; j NPeg && !isspace(where[i])) { printf("Too many letters\n"); goto again; } if (i < NPeg) { printf("Too few letters\n"); goto again; } Peg << 4)) { printf("You got it in %d guesses!\n", ++guesses); ntries += guesses; ngames++; i = ntries/ngames; printf("Average for %d game%c is %1d.%1d\n", ngames, (ngames != 1) ? 's' : 0x80, i , ntries*100 /ngames %100); goto Game; }} Secret[NPeg] = 0; printf("My secret symbol was "); for (i=0; i2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#.¶66*>?w#> w#.7:77 each guess, I will tell you how many\n"); printf(" Hits (right letter in the right place) and\n"); printf(" Misses (right letter in the wrong place)\n"); printf(" you had for that guess.\n"); printf(" Note: letters may appear more than once in my strings.\n"); srand1("\nType any character to begin: "); getchar(); Game: for (i=0; i= NColors) { printf("Bad letter -- use A thru %c\n", 'A'+NColors-1); goto again; } } return 1; }   !a{   `OE!y6$ -7rBo&))T])))!y3͵(>3>@26;q *-;";.,4:+;2+;";|²!}£!9/,4ʹ!¦!90,4>G>)3þ!#'̓&)*͵(1!&,2#%!`/,4^(ͤ&&)*͵(y(~7#^#V#+"1))){S~+2G~`20;25;#~2/;~?>k"=2);#^#V#^#V#"1;^#V"3;:5;ʕ"*;!:0;@ʦ""3;*G;#w"G;*G;~""++21:+"G;*G;+"G;! >"ͼ`i^#Vr+s! ͤx ! 92ç!9DM! w#w! w#w͐ Ms͐ `i6! ^#Vr+sJ* ! s#r! w#w͐M`i͐ ,͐)*~#fo! ^#Vr+s! ~#foMs#rÊ! ^#Vr+s͐ ! s#r`i/|s͐!9/LÖÉü!9DM͐!BH%s: ͐ &#`is#r͐|q!Þ͐MҾ! ~#fo͐n&)|¾!öToo many letters 7͐M!Too few letters 7`iw#w͐Mͤ! F Note: letters may appear more than once in my strings. ͤ!Q p Type any character to begin: ͪͭ`iw#w͐Mҵ ͐*ͰMs`i^#Vr+s~ ! New game! ͤ*w#wk} ͳ!  (%d possible secret symbols) ͤj k}j M|j ͳ+|j !: e You should be able to figure it out now! ͤMM?* ! s#r! ã Your test symbolͶ|± ë*͐͹! s#rM)*͐s#r͐͐| ! n&0ͯ! n&9ͯ2tü!i9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{Z`in}%D! ! s#r! 6#6! s! s͐n}-½! ^#Vr+s! 4͐n&)}! ,!! s#r! ^#Vr+sn`is{.%! ,! s#r! 4! ^#Vr+sn`is`in&/}DQUʍXʖOʟCS.͐~#fo|! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 å! 6å! 6! ~#fo! n&! ^#Vr+s~#fo! &ѯgs#rÎ! ^#Vr+s! ^#Vr+sG;6!+>"I;*G;~*/;*I;s#r#*1;s#r#*3;s#r#*+;s#r#*-;s#r#:5;w#"I;w#*:;*I;s#r#*<;s#r#*>;s#r#*6;s#r#*8;s#r#:@;w#"I;w#|?‚#}ÿ^8)ç`!9DM! s#r! s#r*6#6*6#6*6*6`i6#6͐͐} ! ~#fo͐)~#fo! s#rn}-5 ! ^#Vr+sn}BbKmCʄPʽ*4q k}͝*sq ! ^#Vr+s͡*s#rMҺ*6#6q ! ^#Vr+s͡*s#rM *6 #6q ! ~#foҘ! ~#fo͐! ~#fo͐n&,s! s#6͐|U͐MڌMA+!fÃBad letter -- use A thru %c 7`i^#Vr+s!Þ!9!9DM! w#w`iw#w͐M͐)! w#w`i^#Vr+sý`iw#w͐MN!= ~#fo͐n! s!? ~#fo͐n}B! n&)! ^#Vr+s`i^#Vr+s`iw#w͐M!? ~#fo͐n! s!= ~#fo͐n}§! ~#fos#r! n&)! ^#Vr+s!! ^#Vr+s`i^#Vr+sT͐!99!9DM`iw#w͐ %d hit !  no hitͤ͐+|< !sͼ͐|g}o͐|g}o|o !b l , %d miss !u  , no missͤ͐|g}o+|ʦ ! á esͤ! ͼ͐M))))š*^#Vr+s! You got it in %d guesses! ͤ! ~#foMs#r! ^#Vr+s͐͐`is#r͐d?͐d͐͐+|]!s`!͐!lÎAverage for %d game%c is %1d.%1d ͤx *^#Vr+s M*6!My secret symbol was ͤ`iw#w͐M͐*ngA~#fos! ^#Vr+sÎ! n})! 6#6! ^#Vr+s~#fo! s#r͐n}ʎ͐|ʎ! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+sD͐6! ! s#r! n}! ^#Vr+s!! ^#Vr+s6 ê͐! ^#Vr+sns{! ^#Vr+s! n}+! ^#Vr+s!+! ^#Vr+s6 A! ^#Vr+s`insW! ^#Vr+s`insa͐6!9o`!9DM͐n}ʙ! ^#Vr+sn&lw!9DM! n&aͯ! n&zͯ!9DM͐͐  ͐^#Vr+s͐ )~#fo! $ Illegal option %s ͤ!ͧq !; d Usage: mm [ -b ] [ -k ] [ -c# ] [ -p# ] ͤ!ͧ`i^#Vr+s ! Õ Mastermind game: ͤM! I have a secret string of %d letters ͤMA+! between A and %c. ͤ! 6 Object: find it in as few guesses as possible. ͤ!A m For each guess, I will tell you how many ͤ!x å Hits (right letter in the right place) and ͤ! Misses (right letter in the wrong place) ͤ!  you had for that guess. MO! ~#fo͐4nM2!U! ~#fo͐6`i^#Vr+s!U!9d!9DM`iw#w! 6#6͐ n! s{ ʗ! n} ¥! ^#Vr+s{! n}-! 6#6! ^#Vr+s! ^#Vr+sn! sa|͐ ?! nѯg`is#r͐͐?!9'#i!y9DM! `i!`i$!9!9DM`iw#w! ^#Vr+sn}y`i^#Vr+sZ͐À!9!9DM! n} ͝ʸ! n} ͝ʸ! n} ͝Û!9DM! n&Ϳ|! n&! n&!9DM!    ͐0͐7s!&k͐ ͐͐ ͉͐`is͐ ͐͐ )͐`in&#&k!9z!9DM`iw#w͐~#fon&w}͐ ?͐^#Vr+snѯg`is#rÈ͐!9 i !xV ###"":wo2w&!o 5 . &*>HFF7*|g}o"zg{o"|g  z  ~_ Š 6  #F#xʾ~#ñ NE GAME.')(/,1X,'YOU PLAYED WELL; HOWEVER, YOUR LUCK WAS BAD AND',1X,'I HAVE WON. THANK YOU FOR A FINE GAME.')(/,1X,'YOU PLAYED WELL AND WE HAVE TIED. I WAS LUCKY.',1X,'THANK YOU FOR A FINE GAME.')(/,1X,'DO YOU WISH TO PLAY AGAIN? ')V!"!"!"*)"*!@*"!*s#r*}2*+}!2z*)"*!@*"!d*s#r*}2*+}!2*)"*!@*"!d*s#r*#> >*#> >!"`!"t!"b!"v[ڵ0ڮ:ڲ<7=:FG!o~6x̾P!^4!~ 2F:>/̀TC!6  6> :ͳ*͋&>2>2:2a2*"* "*""*""A B C D E F G H >YES NO Y N 3a_#*"3a_#*"E':=»;P 'y:=;P'y yѯͳ{y(0_:<ͳ,#!~wA47>':ay>':=ͳm>!b6 #=Nɯ2G ! rO!" * )++* " !* s#r* )++* " !* s#r* #>>n !* s#r!" !" * )" * !@* * ~#fo}2 =!" !" * )++" * ~#fo"" * * ~#fo"$ *" * "& *$ * "( *& )"* *( !@** * ~#foH@* >2 !", *, #", *" @* ". *, *$ @* "0 *. )" *0 !@* * ~#fo}2 *. )" *0 !@* * ~#fo}! AH_! A[! >YAH!H@!͢N![ͱN!>2 ![ͱN!>2 e!:*c"ici!*i}2 !ͱN͂=!o͢Nso!\ *k}2 ! AH*}=2 ! AH! ͱN<"! A! >SAH*"*#"!"*)""*.~#fo*{ozg}2*~#fo*{ozg}!2˜ *#*k{z" ! AH *i#"i!ͱN͂=!o͢N0!ci! !H@!͢N!:!"!"t*c#"ici!/////////,1X,'"OTHELLO" - DO YOU WISH TO GO FIRST ?',/,1X,'YOU ARE "X" IF YOU ARE FIRST. ') (A3)*c *"i0lkm(46X,'WHAT IS YOUR MOVE ? ')(1X,'EXAMPLE - UPPER LEFT CORNER IS A1 ')(A1,I1)(1X,'MOVE INVALID. PLEASE RE-ENTER. ')olc(1X,'I SEE NO MOVE FOR YOU, SO I WILL MOVE IF I CAN')i0lkmi0lkU(46X,'MY MOVE IS : ',A1,I1)Ul(1X,'DO YOU HAVE A MOVE? ') 2o(/,1X,'CONGRATULATIONS, YOU PLAYED WELL AND HAVE WON.',1X,'THANK YOU FOR A FI2 *. )" *0 !@* * ~#foH@* >2 y* +}2 j* ~#fo#* s#r!" * ~#fo)++* " ~#fo*, * s#r* ~#fo)++* "* ~#fo#** s#r* ~#fo)"4 ++* ~#fo"2 !<@*4 * "6 * *6 s#r* #>>* }2 =* ~#fo)++* " * * s#r* ~#fo)++* "* * ** s#r* #> > * #> > * ~#fo}=2 ‘!ͱN* >2 ‘8 !AH = ProcO - X ray Name MisusCOMMON Name UsagWrong Number of SubscriptArray Multiply EQUIVALENCEd Wit:F,uT:$3a'͞H:) 2GCͥ :I3EXUwͪ.!z͇B*=+V+^+͊?:I3qXUwͪ.!z"/͔I=gN*=: 2G2>2*2>2aU!N#Fͥ C !y w+y:I3 XUwͪ.> 3U!+~͇BPVE'!C yw+.:F 8a*"C^"]##>2aU:F,N"uT2A:o:Fš ʃaښ{Қ 2FAڤw  ! AH*i}2 A!\ *k}2² W!ͥ**U)"~#fo? "*.~#fo+"k! A! >SAH0!*i#"ici!w ! AH_! A[! >YAH![ͱN!>2w ![ͱN!>2w *k}2 !j!ͱN͂=!o͢No!j**{ozg}=Ɓ2h ! AHà **{ozg}2”  ! AHà n! AH! AH_! A[! >YAH![ͱN!>2![ͱN!>2C? nt  hin a GrouMultiple EQUIVALENCE of COMMOCOMMON Base LowereNon-COMMON Variable in BLOCK DATEmpty List for Unformatted WRITNon-Integer ExpressioOperand Mode Not Compatible with OperatoMixing of Operand Modes Not AlloweMissing Integer VariablMissing Statement Number on FORMAZero Repeat FactoZero Format A B C D E F G H Too DeeSMO(6X,'BOARD POSITION AFTER ',I2,' MOVES',' YOU HAVE ',I2,' PIECES, I HAVE ',I2,/)(24X,' 1 2 3 4 5 6 7 8')tioCode Outpu(24X,A1,2X,8(A1,1X))""`i"*~#fo*~#fo{oz IAGO2 FORw[ F80 COMF80 COMA !"#$%&FORLIB REL'()*+,-./0123456 IF(NAH.EQ.OC)SIGN=1.0 DO 10 I=1,NHD I1=NCORNI(I) I2=NCORNJ(I) 2za11/%/:a11U*]:J31ͯ.1:̯.Ŀ.aҧ1>2*Z|1]U>%3U.!2z*|2]U>?3U.!2z2* ͵B:bC2:F2*͊?͵B͵B*Y|w KP2 Program Unit Length Bytes Data Area Length Bytes Subroutines Referenced: Variables: COMMON Length LABELS: Warning(s) Issued Fatal Error(s) Detected :a=*]¿.<27**p͊?%/͊?>+3UR.2IAGO2 REL`KLMNOPQRSTUV`IAGO2 PRNIAGO2 FORw[3͔*ͫ< 8> ͫ<:8!8"9o>g6 #> w~# ʔ< ʔ< <#"9_*9+~ #+<#"9+~7ȷ> ͫ<> ë<4!"4!m3:C3 =3!"3!L3:E3<=~<=^=!I͢NOI*jU!ZAQG!Z>SAH!ZAH!"!"*)"*!@**~#fo##"*))"*!(@*{"*))ͱN*͢N*#> >j*#> >d!"*+"!ZA*)5"*!Z>SA!"*))"*!(@*{"*!Z>YA*#> >H*#> >."]"_`i"a!*as#r!"c!"e*c)"g*e!@*g*]~#foH@*_>2i*a~#fo#*as#r*e#> >*c#> > €/>]3Uÿ/!~:¼ 10 B(I1,I2)=SIGN*OC RETURN END ) 146 WRITE(1,147) 147 FORMAT(/////////////////////////) 100 RETURN END SUBROUTINE HANDI(B,NHD,NAH,OC) P=IAGO2 8?COMMAND ERRO?FILE NOT FOUN?CAN'T ENTER FIL~ͫ<#O9!9j9!-9j9!=9O9Ë9"3*+++"=3*3:G32@3*=3+<:8 ʋ92K32C [< AGO2 FORRECRPRηFORLIB REL1789:;<=L80 COM6>?@ABCDED4 COM0EFGHIJIAGO2 REL`KLMNOPQRSTUV~ c$` 2RУ. 43&P2 "kx)ȉ3 84kS,:eD8dF@&&`EXxR"Ā? b@ :m3<ʕ=!>> 3>> 3>>3>*44m3 >4m3Ì=:E3ʢ::L3=>͚>*33L3 >3L3Ì=|}>ƀ)`ij>> 3>> 3>> 3>:C3ʢ::m3<ʪ<?*4|b>#"44w4!m3>^? =j>!3>!L3j>:E3ʢ::L3<*3|=̏>#"33w:3<ʽ#"66<6>3= ?!=>!>?_!K3 0? .?<.?~=w4{ E?> 3>~7?H?7ȷ!~?O9@@o?> ͫ!rO*~#fo)++"*~#fo"**~#fo"*)"*!@**" *ͱN͂=<* s#r*~#fo)++*~#fo"!" *~#fo)"* !<@**~#fo" )++"*~#fo"**~#fo"!"*#"*@*"**@*"*)"*!@**~#foH@*͇>2‰*)"*!@**"*ͱN͂=<*s#r* #*{zad1J1^1:*^1/%/1U3a=1XU:7ʔ1!2zaڔ1Ž1/%/*] /]Uaw1XU:=1!32I32H32F32E32J3<2D3[9ů2<3:3Ͷ:3 9>2<3!L3ͪ:> 232323y,2E39:<32E3:3Ͷ:3:32B3 2A3::<3@2<3!m3ͪ:y=7: 7Ͷ:3F: 7!3ͪ::<3!L3܊:!m3܊::C3p::A3p::B32C3A=<<*=3##:D32@3G3 ~¤::w# š: #Ú: w#­::?3!3~ :w#: <:7>:x:͔:R7͔:> j;6 #=b;y.2?3 <3xڂ;ʏ;͔<Ã;y/y͔2X:*]*p*2$:* V+^+͊?:a*N@*7$ s#r#=2@:!$=ʔ@=~w@z@ʔ@!ڊ@ͣ@ړ@++ͣ@7͊?"p"]V+^s#r*@"@"@"@"y@"{^#V#>!>!>&2;y*Ay~A0G:;=AAx=@=@~Ax@@~A2o:2>&! WA>&NO*- WA2:;`eT2F2o!gA"^:;2U:F( ! ͳ!k ''LD:ʞA !** ***{ozg")**'*)" **)*!@* **~#fo}2*d/**)++*" *~#fo* *s#rt/**#**{z-**#*~#fo{z*!"*!"+***)++" **~#fo"** **~#fo" *!"*!"-*!"**-*)" ***!@* *"*"/****~#fo*/*s#r**#> >/*-*#> >/!"1*!"***)" *(~#fo"3** * )~#fo"5***)++"**"/****~#fo*5*{ozg}2**/*~#fo*3*{ozg}!*2*¥0**"1***#>>$0*"9**";**"?**"A**"C*7****ͱN͂=!I*͢N*"M**"W**"Y*M~#fo" ***}2***+++}!*2*Ÿ,* *}2** *+++}!*2*Ÿ,* *+++}2***+++}!*2*ʕ+!"** *}2***+++}!*2*+!"** *}2***}!*2*+!"** *+++}2***}!*2*/,!"***)" *=)~#fo"** *E)~#fo"***)"***!@***~#fo}2*ʟ,**)++*" *~#fo* *s#r**}2***++}!*2*-* *}2** *++}!*2*-**#"**3*}*#> >3*"**"**"***!{\ **}2*5!"}**}*)M)" *~#fo}2** *~#fo++}!*2*5*}*)u)" *~#fo}2** *~#fo++}!*2*55*}*#**{zD5**)++*" *~#foB* *s#r**#*E*{z@1**+}2*S7!"-**-*)" *(~#fo"** * )~#fo"** ***{ozg}2*****{ozg}!*2*7**)" ***!@* **~#foH@*͇>2*7!"y***)" ***!@* *"**y*!@**~#foH@*>2*7**)++*" *N#Fͥ :F.A*&B!^A+A2A)}~2#~2>& !z B+++A*:¸\ͳ>_:F.Ay.AAy*A2oA!>))FB =>BɯogG:I3•B:C3ʕB!x#sB~#jBdBXUwͪ.1UzÕBG:I3•Bxf.G*#"KxGK £B*****KA>             *I*!\ *E*}2*=1**)++*" *~#fod* *s#r8!"*!"-*!"**-*)" ***!@* *"*e"/***~#fo*/*s#r**#> >L1*-*#> >F1*ͱN͂=!I*͢N*"c**"e*a*'!k'*1*}2*2!"**1*)" *(~#fo"o** *M(~#fo"q**o*)"**q*!@***~#foH@*͇>2*‡2*1*)" *(~#fo"s** *}(~#fo"u*)"**s*!@***~#fo}2*ʇ2!Z"+***)" ** *!@* *e~#foH@*>2*2**)++*" *~#fo* *s#r!"**ͱN͂=!I*͢Nw*I*!{j*w*}=*)++*" *~#fo<* *s#r**}?2***+++}=Ɓ!*2*—-* *}?2** *+++}=Ɓ!*2*—-**)++*" *~#fo * *s#rt/**)++*~#fo"*!"***)" ***!<@* **~#fo"*)++"**~#fo"****~#fo"*!"!**!*#"!***@**"#**!***@* *"%**#*)" **%*!@* **~#foH@*>2*-*!*#"!***@**"#**!***@* *"%**#*)" **%*!@* **~#foH@*>2*.*#*)" **%*!@* **~#foH@*͇>2*d/Z.****{ozg"'~#fo* *s#r*y*#*E*{z6*-*#>>6**)++*" *~#fo*+*{ozg* *s#r!"-**-*)" *=)~#fo"** *E)~#fo"***)"***!@***~#fo}2*8!"y***)" ***!@* *"**y*!@**~#foH@*>2*8**)++*" *~#fo* *s#r*y*#*E*{z7**+}=Ɓ2*8* ***{ozg}2*****{ozg}!*2*8!"y***)" ***!@* *"**y*!@**~#foH@*>2*8**)++*" *~#fo* *s#r*y*#*E*{zt8*-*#>>V7**#*~#fo   *>sI/O ~͇B=#D>!c~#*r+sxRB͇BÇB>RB>RB>oRB>RB>RB>gRBʞH)GG:=™F:=EʜE:=FF=D2xD*KB|D- ҾDM>#ðD###|+++D}/+RB °Dù>SIqFù=*ʉD!~*ExE+E:D>k''C'BÇE*G*'*D:{I*C'2ZF+~9Ex==ʞH==*O)w)+&)wH*G*)FEx=""> !rO!"*!*s#r*~#fo}2*l9!"***)++" **~#fo"** **2**3**)++*" *~#fo8* *s#r8!"y*!"{**y*)" **{*!@* *"***!@**"/**{*!@* *e~#fo*/*s#r*{*#> >33*y*#> >-3!"}*!"**}*)" ***!@* *e~#fo}2*4*}*)" ***!@* *e~#foH@*>2*4!"o*!"!**!*#"!**o*)++" **~#fo*!*@*}*"** **~#fo*!*@**"***)"***!@**e~#fo}2*5**)" ***!@* *e~#fo}2*5**)" ***!@* *e~#foH@*>2*4*o*#>> 4**#> >  {z/!"*!"***)++*~#fo**{ozg}2*X9**)++*~#fo"****s#r**#*~#fo{z9g9B(1X,'DO YOU WISH TO BE GIVEN A HANDICAP? ')*(A3)S(1X,'DO YOU WISH TO GIVE ME A HANDICAP? '))(1X,'HOW MANY CORNERS? (1-4) ')(I1)99XU(/////////////////////////)"n9"p9>!r9rO!*t9s#rv9!YAH!9ͱN*r9>29;!*r9"9!9ͱN*9>29;9!YAH!*r9"9!9ͱN*9>29;! *r9"9!9ͱN*9>29;*n9ͱN͂=WWw# C:W7C:VO:V2W*V *VUCy2V"V:VO>2W*V*V UCy2V3C:WG:W=ҕC:WC:W2V>tH*VUC>tH:V2W*VUCw# YC*V+"V|UC<ڵC>G!V60#GN!W4:W0wEL»C"W~:C w+Cw!V|D}D!W4#"W|/W}/_*W"W>2W:WFbM:WG:W6Dx2 WͭC:WED2W͆I:WfD0I! W5wD 2W!ST"W!OP"W! "W2?7VZ@l?NʽNN?y+F+F+Fw`h|ʹ?gyҝ?:WO|g}oxG-|‘?}Œ?Ï@ElaOË?!W~Gx?ƀ@w@w+ɷ!A@Nx{ҽN!W6Awg?z? >NO|DA{>2W͏@/))@ =@go"W"W!W~7w?GGLHI4L Ix|CI*I3I2VxK2VOL!W~K<"99!SAH*t9~#fo}=29*t9~#fo+}!929;*n9"99*t9*p9.<<<*p9;*n9ͱN<"99!SAH*t9~#fo}=29*t9~#fo+}!929—;*n9"::*t9*p9.<:!! 2#!=<͏UW/"E*W"W!"WaI!W4E*W"WaI"E:WFbM:W)D!W/<)Dw!W~w2W!W~w<2WD2W2W>2W IjE*W*WDM*WE+|E"W"WOL*W*WFI*W#"W*W+"W|#£EOL!W:VO5E:VEE*V ~ 2W!Vq>E> EEE !W4E:WI@F:WF͏U!W$F͏U)F#F:W:M*W|/g}/o#"W:M>2V!W:WZF:WZF:Ww~/2WbM:W##wy7O*W*W"W"W:A͏UJ!Wqx!WDAF#~怩OúN 4%A#:>hA>hA>hA>2Ẅ́O͘O~#fo"W͘O"V*W"V:WʓACyAKyA͏U>2W2W<2WA>2WA2W2W2W2W~#fo"W!W"V~#+A!"W!9##"QA:W Bgo"W"W"W7B!W>rO*W~#Bgo"W*W~#-Bgo"W*W~#fo"W2W2W2W2W2W2Wgo"W"VbN*W|oB͆K*W"W(J͏U2V2V<2W:W>tH9NEB “B> LwÆB:W/L=B:WGILB!wK*V+"V|K:W´J*W|OL+"W:W2W2W2W2Vgo"W"W"W"W:W!Ww:WXK4*W:WG*VWjKW~#jK"VTK:WtH!"Vɯ2Vgo"W*W*W~# ʗK-®KV ×K"W2WG0K K*WT])))_ÌK*W|K#x:VKo>g"W|x!W~w+ KK!W~w+ L!WLLW!Ww#(L6 !W~w#;L4LGL͆K"WlL,OL/ʴJ)ʁJ' JPzL:W2WOL|L͏U!"W2W!MʣL# ”L͏UyO!&M:WʳL!M ^#V"WyL*W"W!"W͆KL͏U}2W2Wy L:W.M͆K*W}2W*W+"N/=N!W6Ag>NO|Ժ@>O!W~+>wNQYúN@N:W=h= A?Ɓ=@>!=\>Js?QYúNN@!A|Yt&wz^Pc|u~r1ͺN>͏U>2W!#>\> AogH@Í> }}{(qnz ANo?\>o? A~#ͱN=xl?N͍>g>Z@Ê>NN:WʺNҝ>/<@N@gNO!W>~_#~W#~O2A#4!A.dO2AG~_#~W#~Oܴ@Ï@Z@>NN>OÍ>!?> 2W!PC:W2 W2W͆IE G>00+G:+G02W>ɯ2W2WH-FG>2WKG+NGH:M!V5!W4G:W.sG>2W2WG:WFEʃGDˆGH+ʗG-œG>2VHy2W!V5!W4GGOx ڿG͏U> GêG:VxG/<2WG!W~wFG:WGͽH4L4LB4L:W!Ww#wHB!W:WwGE H:W2WHFF2WE@H:M!W~TH>T>Fw> #w#w#wB> nH> nH>O}2WO!N:WҙAʙA=_^#V ^#VHڪH*W|¶H͏U*W|¶H͏U*QA!WWw#H!WWH:W!VwʹJ:W>tH!W~ Ix8HG@  WJ͏UXH(AILEFGDNrEJB/G#H/G/G/G/G#NEJBFIHDD(ED:WG*VWLMWw#LM"V*W|OLJ!W~Mx2Vw:W=ʋM=ʋM+>2W>wâM!W~M/W+~/_s#r>2W7NH!V~wMMGNæMM!WWHGNҦM!WWH!W4/GK+¢M2V!Ww#M!W4>tH*WV|NNOL͏U :VOL I*W+"W|$NOL:WG:W2W!V>w!W5KͽHKB:V<2V!RV6P#6#"V6 :N=G!Ow#‚N2NT TQTTTT+P+P+P+P+PNs#r#q#pNNͽNN"W`i"W*W*WDM^#V#N#F#xyN:W:W7LͽHLBͽHL33B> P-K2BUVTs>L33B> PZ-K1BUVTs>L33B> PZ-K0BUVTs>L33B> PZ-K/BUVTs>L33B> PZ-K.BUVT8>L33B> PZ-K-BUVTs>L33B> PZ-K,BUVTs>L33B> PZ-K+BUVTs>L33B`=?@|V&*Vw"V S}R͏U:P?ɷ!O:W_~NS5!O/Ɓ_#>W2TEP2P>w7!O:W_~S4!O_#>WɇS> gS> gS>gS!O:W_~6?To&S6#<ôS+2TEP2P9Pww!O~{2WQ{ S~ (P2WbN9PuQEP w  T#wT:W_!N+Pp+q?T:W_!O^#VTTTTTT_T:NTʞT> TT2NT:NT*OT> T> T*5VsT|–T}ʙT"OT"5VÙA:NTT:V*V=> T~+T1T> TT> T~0T> T#~#T=T_>2NT͆TU"NO". Use upper case and spell out the words, otherwise the program will make some assumptions about what you want. For your first game, try the following to get the hang of it. Enter "NO" to all the questions the program asks. The program will move first and present you with a layout of the table. The computer will be "X", you will be "O". The computer will have four pieces, your will have one. Take heart. Just for starters, make the following moves, one at a time, when it's your turn. LBOLLL!W4|/G}/O!>5O 4O7>{_zW}o|g=+O|g}o]OCZQPO o-yOzW{_xG`O`iN#F#q#p#=uO2V"W"W`i"V2V:VҭO!W_O:V*VO_~#fo:V<2VW:VO>L33B> PZ-KqBUVTs>L33B PZ-KpBUVTs>L33WFORTDATÙAReR@RRR(PQ!O:W_~!P:W_^#V2P2P9PuQ@~Q:W_!O6*5VS|…P}ʈP"P"5VEP*W|ʚP+)|! w#w#£PdQ2T ͨV~+wU1bU> ͨVwU> ͨV~ wU0wU> ͨV#~#ͨV=yUs>L33B~#O!U ^#V"U!U6 #6 #6*#6*###6*#6*#6 #6 !U ~ͨV#U:V<2V7V7VIDF0MPIRFWITEXDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEFB2V2V!4V"5V*+`iQV!?V*5V>2W> ͨV> ͨVP 3B> PZ-K8BUVTs>L33B> PZ-K7BUVTs>L33B> PZ-K6BUVTTV_*V~ V#~"V RV!SV^#6 #> ͨVwB> PZ-K3BUVTs> C6 E6 C4 F3 D8 After each move watch to see what the computer's response is. Why did the computer move there considering the alternatives? Good luck, I think you'll have a lot of fun with this simple but very sophisticated game. David Thompson Micro C w2P*W}[Q+)LEP! y3QRQw7\P! ~<_Q9P_Q*W+}<_Q)yEP! !Q~P2T9P67TP*P!O:WO s#r!EPr+s6#Pw#œQ:WG 1wx ڵQ0#w> #w##Pw#Qw"P>wT] 69P(P6QSEP2T! w9P@QɯTP(w*V*V&.Rw#%REP77TP8w*VEP>2V?ɯTP2P:V*V~~4w:V~+ʨR1šR> gSèR0> gS> gS#=ʶR~gSèR> gS:P7:PR9PĜS9P2P<2P7TP w2V2P+S S)S*ed tokens turn into your tokens after you play. You can trap on a vertical line, a horizontal line, a diagonal, or even all three. You want to stay away from the positions 1 space in from the edge of the board because the edge positions are very important, especially the corners. If you place one of your pieces near an edge, the computer will make every attempt to put one of its pieces on the edge. When you begin the program you are asked a set of questions. Answer these questions with "YES" or   *K͞+GG7S'+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o ò *R~#fo~#fo+|5 ͳ*<~#fo#|5 ò ! 6#6! ~#fo|j ! ~#foͶ! ^#Vr+s> *<~#fo#|~ ò *@~#fo+|„ *D~#fo|© !ì ! *D~#fo!M * ͪ* !<!ͧ*D^#Vr+s!|҄ !S !-!ͧ*@w#w*R~#fow#w*R~#fow#w! w#w! ~#fo|҄ ! ~#fo k*6#6! ^#Vr+sD ͹*B~#fo|ҡ ͼ*<~#fo#|‰ !o !-!ͧ! !-!ͧ!Ϳ! ^#Vr+s! !-!ͧ!>#)f$>6:?6>{62͈7#)«$:?„$>}62i$:?$.́)$>&663i$:?$_,w#:>$h-_,$:?>$>6_,>6>@2?$*>">Zþ//â=0ï J00F1!9DM͡! 6#6! ~#fo| ͤ! !-!ͧ!$ !-!ͧ*B~#fo!1 ! ͪ! !9!ͧ*@~#fo+|b!5 !-!ͧ*86@#6*<w#w*>~#fo!A * ͪ* !-!ͧ`iw#w`i~#fo|`i~#fo(k*!`i~#foͧ`i^#Vr+só*F6#! ~#fo! ~#fo *R~#fo~#fo++s#rJ*R~#fow#wJ[! ~#fo|“! ! ~#fo! ~#fo *R~#fow#w`i6 #6[*86>#6! ~#fo(k*! ~#fo##n`is#r>.> > > >*> >%> >$ > B! ! ~#fo! ~#fo *R~#fo~#fo##s#rX*R~#fow#wX[`i~#fo>*m>ʔ>.y>ʔ>$…>ʳ>%‘>Ý*q ^#Vr+s*B^#Vr+sÝ*q ~#fos#rÝ!!-! *@6#6*D6#6*R~#fo#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77 !-! ͧ!9SCORE: gold left = %6dCOUNTDOWN: delay = %6d%2d%c   YOU ARE BEING EATENTHIS TAKES ABOUT 2 SECONDSTHE MONSTERS ALWAYS TRIUMPHIN THE END! ?40/5!9DM*>~#fo! s#r! ~#fo|! ^#Vr+s ! *R~#fo~#fo! s#r*R~#fo##~#fo! s#r! ~#fo(k*! ~#fo6 *R~#fo~#fo>‹>ʲ>—>z>£>B>¯>M[*86^#6! ~#fo+(k*! ~#fon`is#r>.>*> >6*H6#6*Jw#w*Lw#w*Nw#w*8~#fo*R~#fo~#fo*R~#fo##~#foͭ`iw#w`i~#fo! ~#fo+ҧ !@`i~#fo?!ͭ`i^#Vr+si *! s#r! w#w! ~#fo|~ ! ~#fo! ~#fo)s#r! ~#fo##6 #6! ~#fow#w! ~#fow#w! ~#fow#w! ~#fo w#w!M! ~#fo~#fo! ~#fo##~#foͭ! ^#V! r+s! ^#Vr+sþ *:w#w*:^#Vr+s! |¦ Ͱͳ*<~#fo#|½ ò ! w#w! ~#fo| ! ~#foͶ! ^#Vr+s *<~#fo#|6#6*R~#fo6#6*! s#r! w#w! ~#fo|Қ! ~#fo ~#fo+|{! ~#fow#w! ~#fow#w! ^#V! r+s! ^#Vr+s4Ý*! s#r! w#w! ~#fo|U! ~#fo~#fo*R~#fo~#fo+! ~#fo##~#fo*R~#fo##~#fo+! ~#fo *<s#r6*<w#w! ^#V! r+s! ^#Vr+sô*<~#fo#|ʚ*8~#fo*R~#fo~#fo*R~#fo##~#fo ! 9COUNTDOWN: ø0Í7!9DM*@~#fo+|*`is#r! w#w! ~#fo|`i~#fo!a{   `OE!y6$ -7rBo&))T])))!y":>""G #Ϳ,"x ..Ϳ,.ͭ'5':>?2>I#:>>2> *<-*N*l*2>ͻ':?[#7/ͽ6:>1$:>$:?$_,:>#)’#>66:?6#*?|£#2͈7#>66:?6>#6>66: ?6#*?">)#>6:?6>s6>@2>#2͈7#ͺ)#:>=2>))$>s6#́)($2:>"$2͈7#3͈7#*>">*?">:?ʒ$:>s$)f$>>6:?62͈7#2͈72*>*>*>%>*>$'>*a! ! ~#fo! ~#fo *R~#fo##~#fo+s#rw*R~#fow#ww[*86v#6! ~#fo#(k*! ~#fon`is#r>.¿>> >>*>>%>>$>)! ! ~#fo! ~#fo *R~#fo##~#fo#s#r?*R~#fow#w?[! ~#fo|…! ! ~#fo! ~#fo *R~#fo6`i6 #6[*86<#6! ~#fo(k*! ~#fo++n`is#r>.>> >>*>>%>>$>4!    ~#fo|µ! ~#fo)*6#6! `i~#fo~#fo`i~#fo##~#foͲ`i~#fo##6#6`i~#fo6#6`i~#fow#w`i~#fo6#6`i~#fo 6#6!M!!Ͳ`i~#fo!͵##s#r`i^#V! r+s! ^#Vr+s!9057!9DM! ~#fo k*! s#r! ~#fo~#fo! s#r! ~#fo##~#fo! s#r! ~#fo ~#fo+|*m ~#fo! s#r! ~#fo+|ʯ! ~#fo|*:~#fo+! ~#fo)*~#fo|! ~#fo(k*! ~#fon&! ~#fo! ~#fo! ~#fo! ~ ^#Vr+s! ~#fo|8! ~#fo)! ~#foQ`i~#fo)! ~#foQ!$9u{C7=G8?4þ/ >!9DM`iw#w!]`*86@#6*F*Rs#r!'*Tc!(*|c!>(*c!f(*c!(*c!(*c!(*Dc!)*lc!.)*c!V)*c!~)*c!)* c!)*4c!)*\c!**c!F**c!n**c!**c!**$c!**Lc,! ~#fo|,`i^#Vr+s)! 6#6! ~#fo++|ʁ!" ~#fo##n! s#r!|ʁ! ~#fo|ʁ`i^#Vr+s)! 6#6*m ~#fo+++|ʨ*m ~#fo++++|8!*q ~#fo8*R~#fo~#fo+|! ~#fo>>>>W>>ʗ>>!" ~#fo(n}#T!" ~#fo(n}-T`i^#Vr+s)! 6#6!" ~#fon}#ʔ!" ~#fon}-ʔ`i^#Vr+s)! 6#6!" ~#fo++n}#!" ~#fo++n}-`i^#Vr+s)! 6#6!" ~#fo##n}# !" ~#fo##n}- `i^#Vr+s. # . # *d c!"%J% # . # . . . . . . . . # . # * c!^%Æ%####### . # . ########### . # . #######* c!%%# . . . . . . . . ### . . . . . . . . #* c!%%# % ### . ##### . ### . ##### . ### % #* c!&:&# . . # . . . . . . . . . . . . # . . #*, c!N&v&### . # . # . ########### . # . # . ###*T c!&ò&# . . . . # . . . ### . . . # . . . . #*| c!&&# . ########### . ### . ########### . #* c!'#fo! ~#fo! ~#fos#r! ~#fo~#fo>=>d>I>ʆ>U>ʨ>a>! ~#fo+! s#r! ~#fo`is#r! ~#fo#! s#r! ~#fo`is#r! ~#fo++`is#r! ~#fo! s#r`i~#fo|`i6! ~#fo##`is#r! ~#fo! s#r`i~#fo|`iw#w! ~#fo(k*`i~#fon}.X X%X$X*Xö! ~#fo`i~#fos#r! ~#fo##! ~#fos#r! ~#fo*R~#fo##~#fo`i~#fo*R~#fo~#fo! ~#fo*<s#r! ~#fo)**q ~#fod͉#s!+*tc!6+*c!^+*c!+*c!+*c!+*<c!+*dc!&,*c!N,*c!v,*c!,*c!,*,c!,*Tc!-*|c!>-*c!f-*c!-*c!-*c!-*Dc!.*lc!..*c!V.*c!~.*c!.* c!.*4c!.*\c!/*c!F/*c!n/*c!/*c)! 6#6!* ~#fo*R~#fo~#fo! s#r!, ~#fo*R~#fo##~#fo! s#r! ~#fo|x! 6#6Ù! ~#fo|ґ! 6#6Ù! w#w! ~#fo|ڶ! 6#6! ~#fo|! 6#6! w#w! w#w! w#w! ~#fo`i~#fo *R~#fo~#fo|‹! ~#fo)! ~#fo! ~#fo[! ~#fo)! ~#fo! ~#foˆ! ^#Vr+s)! ! ~#fo)! ~#fos#r! ~#fo)! ~#fo! ~#fo! ~#fo)! ~#fo! ~#fo! ^#Vr+s)! ! ~#fo)! ~#fos#r!*'# . . . . . . . . . . . . . . . . . . #* c!>'f'#######################################* c*o w#w!f*>6#6*m w#wi*m ~#fo|¼'!lá'*B6#6*q w#wo!''.0r!9######################################## . . . * . . . . ### . . . . * . . . ## % ### . ##### . ### . ##### . ### % ## * . . * . * . * . . * . * . * . . * ## . ### . # . ########### . # . ### . ## . . . * # . . . ### . . . # * . . . ######## . ##### . ### . ##### . ###r! ~#fo+|U*<~#fo#|U! ~#fo|³*:~#fo! ~#fo)*~#fo|³! ~#fo~#fo+|ˆ!M`i~#fo! ~#foó*<~#fo+|ʳ!S`i~#fo! ~#fo!! 9bad directionÍ7!9DM`iw#w!, ~#fo(k*!* ~#fo!" s#r!( ~#fo~#fo! s#rzʀ!" ~#fon! s#r!|ʀ! ~#fo|ʀ`i^#Vr+s)! 6#6! ~#fo+|!" ~#fo(n! s#r!|! ~#fo|`i^#Vr+s)! 6#6! ~#fo+++|,!" ~#fo++n! s#r!|!#.## . ### . # . ########### . # . ### . #*$c!B#j## . . . . # . . . ### . . . # . . . . #*Lc!~#æ######## . ##### . ### . ##### . #######*tc!## # . # . . . . . . . . # . # *c!#$ # . # . ### - - ### . # . # *c!2$Z$####### . # . # # . # . #######*c!n$Ö$ . . . # # . . . * c!$$####### . # . # # . # . #######*< c!$% # . # . ###########   ##### # . # . . * . . * . . # . # # . # . ### - - ### . # . # ####### . # . # # . # . ####### * . * # # * . * ####### . # . # # . # . ####### # . # . ########### . # . # # . # * . . . . . . * # . # ####### . # . ########### . # . ######## . . . * . * . . ### . . * . * . . . ## % ### . ##### . ### . ##### . ### % ## . . # * . * . * . . * . * . * # . . #### . # . # . ########### . # . # . #### . * . . # . . . ### . . ! ^#Vr+s1*q ~#fo!42!! ~#fo1!!422!9 ___________________________ | || G A M E O V E R || || Game type: %1d || || Your score: %-5u ||___________________________|K4CC1!9DMB4|^45E4! s#r! ~#fo|g}o>S†4>15>D’4>H5>Ež4>_5>wª4>_5>X¶4>v5>x4>v5> 4>ʍ5>4>ʣ5>4>ʣ5>Q4>ʣ5>4>ʩ5>1##################################################################### . . . . . . . . ### . . . . . . . . ## % ### . ##### . ### . ##### . ### % ## . . . . . . . . . . . . . . . . . . #/ >!9DM! ~#fo! ~#fo/! ~#fo/0*=ßC!9DM! ~#fo! ~#fo0! n&0S0â=/!9DM*q ~#fo!0`iM0`i!4!P0*B~#fo!0`iM0`i!9!P0! 9%6d%6d!9DM! w#w! ~#fo|ҵ1`iw#w`i~#fo|ҧ1! ~#fo( There are gold coins scattered uniformly in the dungeon, marked by "+". One magic potion is available at each spot marked "%". Each potion will enable you to kill monsters by touch for a limited duration. It will also scare them away. When you kill a monster it is regenerated, but this takes time. You can also regenerate yourself %d times. Killing all the monsters results in further treasure appearing magically somewhere in the dungeon, marked by "$". There is a magic tunnel connecting the cen. # . . * . ## . ########### . ### . ########### . ## . . . . . . . * . . * . . . . . . . ################################################################################ . . . * . . . . ### . . . . * . . . ## % ### . ##### . ### . ##### . ### % ## * . . * . * . * . . * . * . * . . * ## . ### . # . ########### . # . ### . ## . . . * # . . . ### . . . # * . . . ######## . ##### . ### . ##### . ####### # . # . . * . . * . . # . # # . # . ### - - ### . # . # ####### . # . #  5>ʳ5>25>5>3"5>5>4.5>55*R~#fo6#65*R~#fo6#65*R~#fo6#65*R~#fo6#65*R~#fow#w5H45`i6#6^4*m 6#65*m 6#65*m 6#65*m 6#65^4!960/â=!9DM!!!5*R~#fo~#fo+|h7*o ^#Vr+sz“6* n}.m6*B^#Vr+s* 6$!$!! 5*o w#w!w7!-!6*o ~#fo!7* 6* !>!6! ~#fo k*`is#r`i~#fo##6k*T`i~#fon! s! ~#fo(k*`i~#fo! ns! ~#fo(k*`i~#fo! ns{*›1! ~#fo(k*`i~#fo6.`i^#Vr+s0! ^#Vr+s0*B6#6*>~#fo*>~#fo s#r!92F?4þ/*=;>r=!9DM!21!11*m ~#fo|B3! 6#6!! ^#Vr+s1!N32!! ^#Vr+s1!l32!! ^#Vr+s1!32!! ^#Vr+s1!32!! ^#Vr+s1*m ~#fo!32!! ^#Vr+s1!32!ter left and center right parts of the dungeon. The monsters know about it! Type: S to move left D to move right E or w to move up X or x to move down to halt Q to quit Type: 1 normal game 2 blinking monsters 3 intelligent monsters 4 blinking intelligent monsters !9DM`iw#w`i~#fo # . # . ####### * . * # # * . * ####### . # . # # . # . ####### # . # . ########### . # . # # . # * . . . . . . * # . # ####### . # . ########### . # . ######## . . . * . * . . ### . . * . * . . . ## % ### . ##### . ### . ##### . ### % ## . . # * . * . * . . * . * . * # . . #### . # . # . ########### . # . # . #### . * . . # . . . ### . . . # . . * . ## . ########### . ### . ########### . ## . . . . . . . * . . * . . . . . . . ########### #6`i~#fo! ~#fo)s#r`i~#fo w#w!M`i~#fo~#fo`i~#fo##~#fo5*q ~#fo s#r!n7!n7!9MONSTERS KILLED: %1dÓ7kG!9DM͐7`is#r`i~#fo! ~#fo)ú7!97/!9DM! ~#fo!-!7*s 6*t 6=*w 68þ/*=;> 8!!8!88!98!L98!98!98!!/:8!{:8!:8!;8!Q;8!x;8!;8!;8!;8!<8!2<8!X<8!<8!<8Attention: you are in a dungeon, being chased by monsters!   ! ~#fo?!=`i^#Vr+s!9DM! ~#fo *u s! ~#fo *v s*s -=~=*= >ÓG!!u=!=x=!{=.1è=i>!9DM! ͐ͥ=!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{==͐>!9>ßC!9DM͐n}9>! ^#Vr+sn& >>D>i> >!y9DM! `i>>`iA>!9x>AÂBñBC!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{A`in}%³A! ! s#r! 6#6! s! s! s͐n}-?! ^#VF |G""GG ! ###G""  Wait a few seconds, and type a CR: $*>HyGyG7*|g}o"zg{o"|g 7*+++:G_*DM!Go&}rB͐ C!9CLC!9DM! n&C|AC! n&FC! n&!9DM! n&aͯwC! n&zͯÁCC!9DM! ~#fo!~CåCC!9DM! ~#fo!͢CCC!CCC!CCÖGÓGßC!9DM!F! s#r! ~#fon}NUD! ~#fo! ~#fo#! ~#fo##sss! ~#fo6! ~#fo6!!C|tE!!C`is! ~#fon! s!|g}o|ʭD`in&|g}os! n&|g}o|D`in! ~#fon}DC"E! n&|g}o|"E`in} E! CURSOR OFF are: Address: 27DCH ====> First character (Currently ESC) 27DDH ====> Second character (Currently ".") 27DEH ====> Third character (Currently "0") The direction keys are located: Address: 347BH ====> Move LEFT (Currently "S") 34ABH ====> Move DOWN (Currently "X") 3493H ====> Move UP (Currently "E") 3487H ====> Move RIGHT (Currently "D") The QUIT character ("Q") is located at address 34E7H. r+s! 4͐n}0?! 4͐n&o>}5?! r>8?!! s#r! ^#Vr+sn`is{.€?! r>! s#r! 4! ^#Vr+sn`is`in&u>}Dʬ?U?X?O?C@@Sq@ÝA͐~#fo|?! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 @! 6@! 6! ~#fo! n&! ^#Vr+s~#fo! l>ѯgs#r@! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s@! n}„@! 6#6! ^#Vr+s~#fo! s#r͐n}@͐|@! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+sß@͐6! ! s#r! n(Updated and corrected 04/03/82) The compiled version of PACMAN (PACMAN95.OBJ) can be easily patched any terminal that has the following characteristics: 1. A CLEAR SCREEN command of 2 characters of less 2. A CURSOR ADDRESSING command that is of the form: with offset = 32 3. A CURSOR ON and CURSOR OFF command that is of the form: (This is not necessary however) The points to patch for CLEAR SCREEN are: Address: 2 ~#fo#6tE`in}"E! ~#fo#6tE! ~#fo##n}tE! ~#fo##6! ~#fo###`ins! n&|g}o|tE`in&!C! ~#fo>ˆE>ʻE>”E>ʾE> E>&F>¬E>VF>¸E>fFüFÿF! ~#fo#n}EEUD! ~#fo!C! ~#fo|F! ~#fon&|g}o|F! C! ~#foÿF! ~#fo##n}9FUD! ~#fo##6! ~#fo###n&ÿF! ~#fo##n&ÿF! ~#fon! s! ~#fo! ~#fos! ~#fo|g}o|²F! ~#fo#6! n&ÿFÿF!9Nonsense! #+|F'zF F This version is set-up to work with a TeleVideo 950 terminal. PACMAN89.OBJ is set-up to work with an H89 terminal. Both files are the same, except for the patching information. }@A! ^#Vr+s!@A! ^#Vr+s! n}7A!0:A! sA͐! ^#Vr+sns{iA! ^#Vr+s@A! n}ʚA! ^#Vr+s!ҚA! ^#Vr+s6 sAðA! ^#Vr+s`insA! ^#Vr+s`insç>͐6!9AA!9DM͐͐ .B͐^#Vr+s͐ B͐0#B͐7s!&yB͐ ͐͐ ͉͐A`is͐ ͐͐ )͐A`in&#&yB!9!9DM! n&0ͯڭB! n&9ͯ÷BÂB!9DM`iw#w͐~#fon&ʹB}C͐ ?͐^#Vr+snѯg`is#FDAH ====> First character (Currently ESC) 2FDBH ====> Second character (Currently ";") The points to patch for CURSOR ADDRESSING are: Address: 37F3H ====> First character (Currently ESC) 37FCH ====> Second character (Currently "=") The points to patch for CURSOR ON are: Address: 3D9EH ====> First character (Currently ESC) 3D9FH ====> Second character (Currently ".") 3DA0H ====> Third character (Currently "1") The points to patch for   /* Press-up game... pressup where may include -f Machine goes first -d n Search depth is n moves (default 3) (greater search depths take longer...but play better!!) -b Print machine's evaluation of its moves. THIS PROGRAM WILL ONLY WORK ON TERMINALS HAVING LOWER CASE CHARACTERS!!!!!!!!!!!!!!!!!!!!!!!!!! This excellent program was written by: Prof. Steve Ward Director, Real-Time Systems Group MIT Lab for Computer Sci3; for (i=1; i star) printf(" * "); else printf(" %c ",image[bp->board[n]]); } printf("| %c",letter++); if (i==0) printf("\tSearch Depth: %1d moves", Depth); if (i==2) printf("\tScore:\tBlue(me) Red(you)"); if (i==3) printf("\t\t %1d %1d", master.blue, master.red); if (i==5) { if (Helpflag) printf("\tYou've had help!"); if (Startflag) printf(FFlag?"\tI go first" :"\tYou go first"); Startflag = 0; ence Cambridge, Massachussetts, 02139 (slightly modified by Leor Zolman) The game of Press-Ups is played as follows: The board is a n by n array of pegs, each of which is standing up at the start of the game. Pegs come in 3 colors: Red (yours), Blue (the machine's), and white (periods, actually; they're neutral.) The first player to move must"push down" a neutral peg. Thereafter, players take turns pushing down pegs, where each peg pushed must be adjacent to the last one pushed)-j] = 1; initb.board[SIDE*j] = 2; initb.board[SIDE*j + SIDE-1] = 2; }; initb.star = -1; initb.red = 0; initb.blue = 0; bcopy(&initb,&master); pboard(&master); bcopy(&master,&savebd); for(;;) { if (FFlag) { FFlag = 0; goto Mine; } if (CheckWin(&master)) { asknew(); goto ngame; } i = getmove(); if (i == 'Q') { asknew(); goto ngame; } dmove(i); if (CheckWin(&master)) { asknew(); goto ngame; } Mine: printf("I'm thinking...\n"); r string[20]; CheckWin(bp) BBOARD *bp; { int i; i = search(bp,1,1,-32000,-32000); if (BestMove >= 0) return 0; if (i>0) printf("I win!\n"); if (i<0) printf("You win!\n"); if (i==0) printf("Tie game!\n"); return 1; } asknew() { printf("\nAnother game? "); if (toupper(getchar()) != 'Y') exit(); printf("\n"); } main(argc,argv) char **argv; { int i,j; char *arg; FFlag = BFlag = 0; image = ".rbXRB"; initw(Adj,"-1,-1,-1,0,-1,1,0,-1,0,1,1,-1,1,0,1,1"); Depth =  } printf("\n"); } printf(" "); for (i=0; i<(2+3*SIDE); i++) printf("-"); printf("\n"); printf(" "); for (i=0; iboard[i] = p1->board[i]; while(i--); p2->star = p1->star; p2->red = p1->red; p2->blue = p1->blue; } /* display move #n */ dmove(n) { move(&master,n); pboard(&master); bcopy(&master,&savebd); } move(bp. Pegs are named by giving a letter and a number, for the row and column of the desired peg. As soon as a player gets all of his pegs down, he wins. When there are no more legal moves to play, the player with the most of his own colored pegs down is the winner. Watch out...at search depths of 6 or more, this program plays a mean game!!! */ #define SIDE 7 /* Dimension of board */ #define HISFIRST (SIDE*2+1) /* His best first move */ #define MYFIRST (SIDE+SIDE/2-1) /* My best fii = search(&master,Depth,1,-32000,-32000); if (BFlag) printf("Eval = %d\n",i); dmove(BestMove); if (i > 500) printf("I've got you!\n"); if (i < -500) printf("You've got me!\n"); } } pboard(bp) BBOARD *bp; { int i, j, n; char letter; letter = 'A'; printf("\n\n "); for (i=0; iboard[n] += 3; if (type == 4) bp->red++; else if (type == 5) bp->blue++; bp->star = n; } search (bp,ddepth,who,alpha,beta) BBOARD *bp; { BBOARD new; int i,j,k; int myalpha,hisalpha,result,status; int best; int num; int bestmove, ii, jj, n; int SavStar; int SavBlue; int SavRed; int Save; char moves[9]; status = -1; best = -32000; num = 0; SavStar = bp -> star; SavBlue = bp -> blue; SavRed = bp -> red; BestMove = -1 { col = toupper(getchar()); if (col == 0177) { putchar(BACKSP); goto getrow; } if (col == '\n' || col == '\b') goto err; if (col < '1' || col > ('0'+SIDE)) putchar(BACKSP); else break; } col -= '1'; n = row*SIDE + col; dr = abs(row - star2/SIDE); dc = abs(col - star2%SIDE); if ((star2 < 0 && master.board[n] == 0) || (dr < 2 && dc < 2 && master.board[n] < 3)) return(n); err: putchar(BELL); printf(" Illegal! "); goto loop; } ve = moves[0]; for (i=0; iboard[moves[i]]; move(bp,moves[i]); k = -search(bp,ddepth,-who,beta,alpha); bp->board[moves[i]] = Save; bp->blue = SavBlue; bp->red = SavRed; bp->star = SavStar; if (k > alpha) alpha = k; if (k > best) { best = k; bestmove = moves[i]; } if (k>100) break; } BestMove = bestmove; return best; } Help() { printf("I'm thinking for you...\n"); Helpflag = 1; search(&master,Depth,-1,-32000,-32000); return BestMove!a{   `OE!y6$ -7rBo&))T])))!y3͵(>3>@26;q *-;";.,4:+;2+;";|²!}£!9/,4ʹ!¦!90,4>G>)3þ!#'̓&)*͵(1!&,2#%!`/,4^(ͤ&&)*͵(y(~7#^#V#+"1))){S~+2G~`20;25;#~2/;~?>k"=2);#^#V#^#V#"1;^#V"3;:5;ʕ"*;!:0;@ʦ""3;*G;#w"G;*G;~""++21:+"G;*G;+"G;! >"; /* No best move yet... */ if (SavStar == -1) /* special case opening moves */ { BestMove = HISFIRST; if (who > 0) BestMove = MYFIRST; return 0; }; if (!ddepth--) return(who * (bp->blue - bp->red)); if (bp->blue == (SIDE*2-4) || bp->red == (SIDE*2-4)) return(who*(bp->blue - bp->red)*1000); /* alpha-beta pruning */ if (who>0) { myalpha = bp->blue; hisalpha = bp->red; } else { myalpha = bp->red; hisalpha = bp->blue; } myalpha += ddepth; /* Most optimis*K͞+  !'+FÎr ͖ 8{ Ăy0 2͵ ^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o; } getmove() { int row, col, n; int dc, dr; int star2; star2 = master.star; loop: printf("\nYour move (z for help; p for board): "); getrow: for (;;) { if ((row = toupper(getchar()) ) == 'Z') { printf("\n"); return Help(); } if (row == 'Q') return row; if (row == 'P') { pboard(&master); goto loop; } if (row == 0177 || row == '\n') goto err; if (row<'A' || row> ('A'+SIDE-1)) putchar(BACKSP); else break; } row -= 'A'; for (;;)G;6!+>"I;*G;~*/;*I;s#r#*1;s#r#*3;s#r#*+;s#r#*-;s#r#:5;w#"I;w#*:;*I;s#r#*<;s#r#*>;s#r#*6;s#r#*8;s#r#:@;w#"I;w#|?‚#}m÷ïM å K tÿ5~!9DM*s*s!.rbXRB*s#r!&-1,-1,-1,0,-1,1,0,-1,0,1,1,-1,1,0,1,1* ͡*6#6`i6#6͐͐ W ! ~#fo͐)~#fo! s#rn}- ! ^#Vr+sn&ͤ}DʞFB! ~#fo`i^#Vr+s)~#foͧ*s#rK *4K *4K ! ~#fo͐)~#fo! Illegaltic estimate. */ if (myalpha > (SIDE*2-4)) myalpha = (SIDE*2-4); if (myalpha == (SIDE*2-4)) myalpha = 1000*(myalpha-hisalpha); else myalpha -= hisalpha; if (myalpha <= alpha) return best; k = bp->star; i = k%SIDE; j = k/SIDE; for (n=0; n<8; n++) { if ((ii = i+Adj[n+n]) < 0 || ii >= SIDE) continue; if ((jj = j+Adj[n+n+1]) < 0 || jj >= SIDE) continue; if (bp->board[moves[num] = jj*SIDE + ii] < 3) num++; } if (num == 0) return(who*(bp->blue - bp->red)*1000); bestmo#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#.¶66*>?w#> w#.7:77   argument: '%1s' ͪͭK ͐!) B Illegal argument: '%1s' ͪͭ`i^#Vr+sC*6*##w#w`iw#w͐1Ҙ ͐*+6`i^#Vr+so ! 6#6͐ ͐*+6!?+͐*+6͐?*+6͐?+*+6! ^#Vr+sá *\6#6*^6*_6*`*+Ͱ*`ͳ**`Ͱw}ʆ *6 *`Ͷ|ʝ ͹W ͼ`is#r͐Q¹ ͹W ͐Ϳ*`Ͷ| ͹W ! I'm thinking... ͪ!!! ͐,!!$ Illegal! ! 9AK å !9DM͐*`8*`;**`>Ç~!9DM!A 6#6!C 6#6!E w#w!d ~#fo1~#fo!O s#r!d ~#fo4n!Q s#6!d ~#fo3n!S s#6*)6#6͐O#|.*)6#6͐h(*)6 #6!Æ!f ^#Vr+s|o͐h!d ~#fo4n!d ~#fo3nѯgW?Æ!d ~#fo4n} ʕ!d ~#fo3n} ͐h!d ~#fo4n!d ~#fo3nѯgW??Æ͐h!d ~#fo4n!; s#6!d ~#fo3n!= s N `i^#Vr+s ! N `iw#w͐N!;=-N `i^#Vr+s(!TV N !ag N `iw#w͐Ң͐#!Ð%-3dN `i^#Vr+sr!ê N !÷ N !9~ï!9DM!!!!͐`is#r\)|!k͐(!#I win! ͐|F!7AYou win! ͐|e!U`Tie game! !k!9Ãï÷P M !Ú Another game? w}z}Yʰ̀!ø wï÷P ÏK Å !9DM\! s#r! Your move (z f͐n&###s`is#6͐++++|4! ~#fo34N͐N! ~#fo44! ~#fo1͐s#r!9s!9DM! p`is#r!ʮ! ^#Vr+s͐s#r{!9ýj!9DM! n&ͺ|! n&! n&Ù!9DM`iw#w! 6#6͐ n! s{ (! n} 6! ^#Vr+s ! n}-U! 6#6! ^#Vr+s! ^#Vr+sn! s|ʖ͐ ?! nѯg`is#rU͐͐?æ!9ø!y9DM! `iͲ`i͵!9!9DM͐|͐͐\*``is#rw}A ͐!0 ; Eval = %d ͪ\)Ϳ͐q !] l I've got you! ͪ͐ ҙ ! Ô You've got me! ͪq !9!9DM`i60#6! ~#fo͐! ~#fo͐ns`i^#Vr+sz´ ! ~#fo1! ~#fo1~#fos#r! ~#fo3! ~#fo3ns! ~#fo4! ~#fo4ns!9Q ï!9DM! 6A!e m N `iw#w͐Ҩ ͐#! Ö %-3dN `i^#Vr+sx ! ð N ! ÿ N `iw#w͐ ! -N `i^#Vr+s ! N `i#62!d ~#fo3n!; s#6!d ~#fo4n!= s#6!; ~#fo͐fs#r͐; ]!; 6 #6͐; ‰͐;͐=?!; s#rá!; ~#fo͐=s#r͐;͐jڸ͐CÆ!d ~#fo1~#fo!9 s#r͐9!5 s#r͐9!7 s#r!M w#w͐M͐5͐M͐M)* ~#fo!I s#rzF͐II͐7͐M͐M#)* ~#fo!K s#rz͐Kڈ!d ~#fo͐E!W ͐K?͐Is&n&!E ^#Vr+s!M ^#Vr+s͐E|͐h!d ~#fo4n!d ~#fo3or help; p for board): `is#r!ZI!<> ,͐Q]͐,͐Py*`͐ʓ͐ – ͐Aڰ͐Gһ!þ`i~#fos#r! s#6͐!͐ ͐ ͐11͐7<!?B! ~#fos#r͐?͐! s#r͐͐ ! s#r͐͐ ! s#r͐ |͐*`n}͐ ͐ ͐*`n&!9DM͐~#fon}"!a͐~#fo`is#r͐~#fon}Z͐^#Vr+sn},Z5͐a!9!9DM! n&aͯڕ! n&zͯ!9DM! n&0ͯ! n&9ͯ@Ù÷!i9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{`in}%! ! s#r! 6#6! s! s͐n}-b! ^#Vr+s! 4͐n&}! Â!! s#r! ^#Vr+sn`is{.! ! s#r! 4! ^#Vr+sn`is`in&}DU2X;ODCʊSʻ͐~#fo|w#w͐! n&! $ %c |N ! w#w͐ ͐?͐! s#r! ~#fo1~#fo‚ !v z * N ÷ *~#fo! ~#fo͐n&n&! ñ %c N ! ^#Vr+s2 ! ~4o&! | %cN ͐|\!  Search Depth: %1d movesN ͐++|D!$? Score: Blue(me) Red(you)N ͐+++|~w&w&!dw %1d %1dN ͐\|ʱ!ì You've had help!N w}w}! I go first! You go firstN *6!nѯgW??Æ!W n!G s#6!5 w#w͐5͐Eo!d ~#fo͐5!W n&n!U s#6͐5!W n&͐d́͐j͐l͐h͐f͐d̈́!9 s#r!d ~#fo͐5!W n&͐Us!d ~#fo4͐Qs!d ~#fo3͐Ss!d ~#fo1͐Os#r͐9͐j!͐9!j s#r͐9͐CQ͐9!C s#r͐5!W n!G s#6͐9dao!5 ^#Vr+s.͐G*)s#r͐CÆ!`9Øï~!øI'm thinking for you... ͒*##6#6!!!\*`͕\)!9DM! ~#fo  2! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 J! 6J! 6! ~#fo! n&! ^#Vr+s~#fo! ѯgs#r3! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s3! n}! 6#6! ^#Vr+s~#fo! s#r͐n}3͐|3! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+s͐6! ! s#r! n}v! ^#Vr+s!v! ^#Vr+s6 O͐! ^#Vr+sns{ʟ! ^#Vr+sv! n}! ^#Vr+s!! ^#Vr+s6 é! ^#Vr+s`ins! ^#Vr+s`ins  ͎ "  ́ * ́ ͙ List EmptyK>J>J>2 *  ͇ u  ͎ ! 6#ku ¢͙ ++ File Cannot Be Opened ++2 u ʵ!~_: O #ºæ*  ͇ u  ͎ ! 6#2 !!u  ͎ u B͙ ++ Source File Cannot Be Opened ++͙ Destination Drive ? ͮ Aһ<2 G:u ª͙ ++ Cannot Select Same Disk as Source ++ d ͙ Replace ? ͮ Y   ͙ ++ Destination Dier Drive sp or cr Forward to next file in List :] j:e j!_] ͎ j???????????2h2|\Ÿ͙ ++ Not Found ++K! " ƀo&:\¼:LCPHCSL ͙ ? d*  ́ ͙ Beginning of List *  " ͙ *+*+w!9*w##w!( F##N5 5 !^#V!{!! !!! !!!5ð0String too lonCall by reference precision erroIndex or value out of rangAttempted divide by zerMultiply overfloStack overflo -- statementFloating point overflow/underflo 2!!e3!!=e3nf  !e3n f  !e3,! 22!1u!1u!1u! 1u! 1u!1u! 6!9Å !9DM͐n}>! ^#Vr+sn&F@!9DM͐͐ Җ͐^#Vr+s͐ ҃͐0Ë͐7s!&͐ ͐͐ ͉͐C`is͐ ͐͐ )͐C`in&#&!9Ù!9DM`iw#w͐~#fon&}= ͐ ?͐^#Vr+snѯg`is#r͐D !9 :wo_ 2w&!o ‚  . &  Ÿ   ã _ ¯ rectory Full ++*+* ́  xd ͙ ++ No Memory Available for Copy Buffer ++i`" 2 !" * " * u ¬ * " * #" * ́ y ñ >2 * " * | +" * "  · ͙ ++ Disk or Directory Full on Write ++: m  ͙ ++ Destination Close Error ++͙ New Drive ? ͮ Aһ<2\> 2]2ez{}o|g~#Ž ~_#ʬ Ú `_ _ = : ; < > 7# Nwy# Directory Ful < * ͇ " >͙ * * ́ >͙ End of List ! " >*  ͇   ͎ ͙ New Name ?   ! F#~ͮ w! 6# 6 #”! N# ± ʻãi&6 Ͷ ڻ .w#»Ͷ  .! Ͷ  .w#! 6# !  G>w# : 2u  ! v ͎ ! 6#8u q͙ ++ Name Already Exists ++ d*  ͇ !  ͎  ͙ ++ Not Found ++*  ͇   ͎  ͙ ++ Not Found ++͙ Deleted*  ͇ " * ́ 1u!1u!22!gne3,!22!nf .!P! e3,!nf .! 22!29"!1s!22!29"!1s!22!29"rsnf͆7 66nftu!22,!Q!9 QU,9!gne3,,̀6(͝6ʰ0ʹ6gn!9w#YO!+yO!+NO!+nO!+!),)gn!9w#nO!+NO!+!),0 2]2ez{}o|g~#Ž ~_#ʬ Ú `_  !Y22!>NFݾ  W_go!>NFݾ +P@#>NFݾ  \1!9>NFݾ  Qesuap$!9!QL"!9>NFݾ  QESUAP$!9!QL"^!D.eunitnoc ot >ps< sserP!!9! ,>NFݾ 9!Ñ!Q!9>NFݾ  QU,>NFݾ  W_go!>NFݾ +P@#̀6(͝6ʰ0ʹ6Y!22!͝6ʰ0ʹ64# 4ò,!22,>cse< )m-s( evom ro toohS!!9!9,9,gnW^R·>NFݾ 6̀6(͝6ʰ0ʹ6gn}l|B = uoy!!9!!>NFݾ gn!! e3, = supmuw ! !9! !>NFݾ gn, = stip !!9!\!>NFݾ gn!!,e3!>NFݾ gn, = stab !!9!!>NFݾL nf1!8͂!1s̀6(͝6ʰ0ʹ64# 4M 6w6ݾ$ nf|7$ w6ݾ nf|7 nf1!8W^nf1!8W^R nf^VR w nf#tù6(͝6ʰ0ʹ6u nf#tù6(͝6ʰ0ʹ6Y ̀6(͝6ʰ0ʹ6ݾ !2supmuW eht tnuHINPROGREYOULOST YOUWON 2,>NFݾ gntuw6!V+^r7:w6++!V+^r7nf1~,^V!1!8W^n!22 )5-1( smoor fo .oN!!9!,  @# > OGV3+ rs!9 "rs̀6(͝6ʰ0ʹ6nfW_Rnfr7nf|7w6++nfV+^r76 # mooR!!9! ,  @# > OGV3+ rsnfW_R£!9 !# 8ң!9 !#80NFݾ gn,,̀6(͝6ʰ0ʹ6gn!9w#mO!+MO!+sO!+SO!+!),1gn!9w#SO!+sO!+!),0NFݾ gn1~,^V!1!8W^!1>NFݾ s>NFݾ gn>NFݾ W^R!uoy tog supmuW - ksT ksT ksT!!9!!,>NFݾ 6!2f1!>NFݾ RW^R nf!Rz !supmuW a llems I!!9!I , !R( !R¼ !tfard a leef I!!9! , !R( !R  !ybraen staB ! !9!  ,̀6(͝6ʰ0ʹ64# 4 ̀6(͝6ʰ0ʹ64# 4;å  mooR ni era uoY!!9!>!nf, ot dael slennuT!!9!x,w6!V+^r7nf1~,^V!1!8!W^,̀6(1)!8V+^nf++1)!8V+^R‡.moor rehtona yrt - dekoorc taht t'nera sworrA-!-!9!:-1,wݾڢ!gne3,̀6(͝6ʰ0ʹ6ݾ̀6(͝6ʰ0ʹ64# 4nf+tuw6>NFݾ gntuww6 !V+^r7ҫnf1~,^V!1!8W^nf1)!8V+^R‹6̀6(͝6ʰ0ʹ64# 4&ݾnf1)!8V+^rs͂rsnf>NFݾ W^y \10<_W!1s{ ,dnuof ton elif - rorre lataF!!9!,  ,̀6(͝6ʰ0ʹ6  gnidaer!!9!} !!9 ,y W_go! P@#6!W^r7҈ 6+!W^r7m y W_go!gn1~,W^!1!8<#̀6(͝6ʰ0ʹ64 ̀6(͝6ʰ0ʹ64 , ni era uoY ! !9!  !Q!9 Qd,,!22w6+!V+^r72ww!#!9f n66ww6 >OGV3+"V+^r7җnf 1!8W^!1sgn!9w#!90RM!+!),7nf#tunf$͆766̀6(͝6ʰ0ʹ6!9f n+++! #)rgn!0R#z*T!9f nwgn}-|aݾ^̀6(͝6ʰ0ʹ6ẁ6(͝6ʰ0ʹ6̀6(͝6ʰ0ʹ64# 4P!9f n+++!# 8nftuwwݾ!9f n+++>_!9f n  RU!UOY tog worrA !HCUO!!9!,>NFݾ 6nf>NFݾ W^R!supmuW eht tog uoY !ahA!!9!|,>NFݾ 6nf#tù6(͝6ʰ0ʹ6nf^V͆7>NFݾ gn}|>NFݾ gn}¿nfW_R”!!sworra fo tuO!!9!L,>NFݾ 6ùdessim!!9! ,!22>NFݾ gntuDͱ)x怴g3!39 ͋+ѯ#<#018Y#|\1Y#| l5f#.ʰ0-̙5l5ʰ0 > կN#T]F(###68;686+++ (ˆ#w+> ###68(G+++ˆ ˎ#Np+y ++Nwy+!#uRead beyond EO!PY9G!ݾ Afn( ~^(Vfnů͉1^ ѯݾ&z() ,F$4&̉$ %N'% r+sFfn\18(|(010n({(Y#018 Y#w+6 +Y#T( F( ('$$fnpGY#E ʹ64# 4èw,!!9!C ,,k )0POGV3+0POGV3+0POGV3+0ݮ w !9w !7(@! 7N+~( ! Ͷ7 ~( !Ͷ7~ݖ (GO*8yN+! N+yG(!4++~7 ?ot erehW ! !9! ,  @#w > OGV3+ rs!9 "rsnfW_R!w6!V+^r7 nf^V!1!~,^V!1!8W^R6̀6(͝6ʰ0ʹ64# 4 Únf^VR!6ݾR elbissop toN ! !9!) ,̀6(͝6ʰ0ʹ6ݾnftunf1>NFݾ u6nf>NFݾ W^RsupmuW a depmuB !SPOO ...!!9!,\1OG \18x018s(7+%Y# (] (Y (U (Q (M#(1_(-$(){8 [8:8%a8A8 0%W%zW>( (Y#3 Y#%(%fn~!9 G_~((BW>__{(+#ܯ>(#> + ٯgk9~fnw ''OfnF+ \18018Y# ( ( xOw+G #qF k&('!2'5fnqGk&fnp+qG!DY# (- + Y#:0%08!&&7:000⯸x/Gy/Oɯ e!2'5l5 !T]jjZj_ZfnV^\1####6++Fwx+0u!2!9!9!99Rc͋ E!̀6(͝6ʰ0ʹ6Ö! ͌̀6(͝6ʰ0ʹ6) H!̀6(͝6ʰ0ʹ6t E!̀6(͝6ʰ0ʹ6; &!û0!9N#F V+^++~+ AN+둾OyFwyHB+O#!9!O~82G>+ (<+(~<#_2!~w!22! f n Nq! 2͇" 2-͇"()$͇" ͇" ͇"8 ͇"07ɯ!9YX8FG+8  8 > >>#W_g>@oz*ZU| >8( ˺G:}!R! 4++~7!4++~7! 4++~7!  q+N+! Ͷ7N+ ͋+ѯݾ !9#ɯ#ɯw~(4+7 6v +75+5ɯݾ T! 9!7 (9;;;Ry(G#A~#0w+~wͨ7~w+99Ny+999BG>(33(7>ͨ7+9(  SxDM!=)#0 |z(z/W{/_|(|/g}/o#  -# zBKgo(0|r#x ygoR -F +-###gò- X/ X/#,>NFݾ gn}|mnf>NFݾ W^Ronf>NFݾ W^R!tip a ni lleF . . . EEEEIIYYY!!9!q",>NFݾ 6mnf>NFݾ W^Rnf>NFݾ W^Rm1!uoy rof elliverehweslE !hctans tab repuS -- PAZ0!0!9!04,w͂rs̀6(͝6ʰ0ʹ6ݾw!22w6w6!V+^r7nf1!8^V!1!8W^!1s̀6(͝6ʰ0w+z  z {$!'uType error on inpuError in number, try again 9Y# (-(+Y#Y#3Y#0':'Y#37.(7e(;E(708:8> 'DM#4 fnr+s+p+q@ H Y#37-(+ Y#394 ~+.(:e(DE(@ (85(#~0! 6+w+w+w+w ͋+͒*66=O~- O+ +~0+ +G+~ (0+ +WxGxA(DG~ݦ((G( DG(!9''! !))!  4+4+͒*4!   -F +-ˆ###1/gò-!9 PY FfnV goJ00| }~^(Vfn>͉1f(zȯF+.~.-̢-?. Fng)))V^Ny (#X/( X/F~+++NX/+G X/++ݾ~6.8 AOX/G X/TRUEFALSEF~+++N ( +NX/y(G++G X/V^!9 z(6-+goGRw+O'//d/ /E /G #~-   60 +A~8 ( W X/ N%6#6$7xc7$^$7|7R?|77R|77R?|7Rb$ɯ7E9#####~/w#~/+~w+ #~wɯ(#~+*^W#~!88#8888888888>7!9N^y8~ݶ 6~ݶ 6~G~ { ~ݾ ~ݾ >#y(?8>>OG F+N ngOG F+N F+n`OG F+N+~=(ۯOG F+N+~ =(rW+sɯRɯRn|(R0 ###Ϳ3ww##ݯ`iGO6# 6 #6#ͯ3(8#AGͯ30> :(*55*+Fx8 !^557c7w ͯ38(.(w#H (#c7l5a8{0_ +++f###%(6333c7y%45f4###$7"!5~< #5~< #5'"! 6!'!44~0#4 #4!!4 #4 #4! 6!!%66c7)~6<(3$7' "  Welcome to 'Hunt the Wumpus' The Wumpus lives in a cave of 20 rooms. Each room has 3 tunnels leading to other rooms. There are several caves that you can play in. With only a small change in the program, you can even invent you own cave! Hazards: Bottomless Pits - Two rooms have bottomless pits in them. If you go there, you fall into the pit and lose! Super Bats - Two rooms have super bats. If you go there, a bat grabs you and takes to some other room at randoX/++++!9ѯɯR0 >0w+ G fnN++d/| z ,  ʹ63>+++###J00 ###Ϳ3 ###s08686O8 ( (++q+6++++++ˎ#q#/###s08^I76+++ˎ˞˦J00 ###Ϳ3+++goJ00 | }!0uToo many open output file!60uBad output file nam#}( ##|#(}#7l50!9G AN5+ 543l5 }r+sPYO>x0l50#fn##|###Ŀ3!51d1 11!,5 9w*26*66E6/!22nfF:mtunfF:mtunf^V?r7Ҕ9nf^Vtuç9nf^Vtunftunf)tunf !@W_#)r!#)m!9nf!9+++#)r!9 ! 2|z(z/W{/_|(|/g}/o# ((!= t:goRW_= DM(go*7ɯt <)c7c7Yc7$7 5m. (which mignt be troublesome) Wumpus: The Wumpus is not bothered by the hazards (he has sucker feet and is too big for a super bat to lift). Usually he is asleep. Two things wake him up: $pause your entering his room or your shooting an arrow. If the Wumpus wakes he moves (p=.75) one room or stays still (p=.25). After that, if he is where you are, he eats you up and you lose! You: Each turn you can move or shoot a crooked arrow. Moving: You can go one roo/ R0ô6r7h`i|7h|7hPYr7h *~+ڢ7^#~ ʢ7æ7Fʦ7ß7ʦ7NŸ7æ7gi#9Al5 N5+ 5#`i###$7^(?"!5~< #5 #5'"xN2(  S_xDM!=()8 )0 0)+} E˸$}($0##0""L$q#s#r!(F!#6!*!!4 #4 #4!!%p 6 6++w+(c7˞c7 3 then wumpmove := -1 Else wumpmove := i; end { wumpmove }; writeln; 9:{ABORT} End{ of getacave }{ CLOSE(cavein) }; Procedure initsetup; var locatesunique : boolean; i, j : integer; begin Repeat for i := 1 to 6 do initlocate[i] := randroom; locatesunique := true; i := 1; while locatesunique and (i <= 6) do begin j := 1; while locatesunique and (j <= 6) do begin If (initlocate[i] = initlocate[j]) and (j <> i) then locatesunique := false Else j := j + 1; end; i := i; writeln; If (ch='y') or (ch='Y') then begin RESET('WUMPUS.DOC',Ifile); If not EOF(Ifile) then ShowInstructions Else begin writeln; writeln('Sorry, instructions not availiable yet.'); end; end End{of instruct}; Procedure getacave; LABEL 9;{ABORT} var i : room; { 1..20 } j : tunnel; { 1..3 } k : integer; CAVENAME : STRING 5; LINE : Dstring; cavein : text; ch : char; begin cavename := 'CAVE '; Repeat Writeln; write(bape then begin game := youlost; { EXIT(HuntTheWumpus) } goto 4; end; If ch = 'l' then begin write('you = ',locate[1]:3, ' ':8); write(' wumpus = ',locate[2]:3); writeln(' pits = ',locate[3]:3,',',locate[4]:3); writeln(' bats = ',locate[5]:3,',',locate[6]:3); writeln end; Until ch in ['m', 'M', 's', 'S']; WantToShoot := ch in ['S', 's']; 4:{EXIT} End { WantToShoot }; Pr; Function QUIRY(sign: Dstring): boolean; var ch: char; begin writeln; Repeat write(sign); KEYIN(ch);writeln(ch); writeln; Until ch IN ['Y', 'y', 'N', 'n']; QUIRY := ch in ['n', 'N']; end; Procedure Instruct; {* * Attempts to read in an external file to instruct the player * as to how to play the game. * Instruct will pause for console input whenever it finds the * string "$pause" in the first position of a line in the line. *} var line : Dstring;  + 1 end Until locatesunique End { initsetup }; Procedure HuntTheWumpus; CONST Title = 'Hunt the Wumpus'; TYPE long = real; VAR i : integer; game : (inprogress, youlost, youwon); locate : array[1..6] of room; Procedure warnings; var location, i, j: integer; begin writeln; location := locate[1]; for i := 2 to 6 do begin for j := 1 to 3 do begin If cave[location,j] = locate[i] then case i of 2: writeln('I smell a ell, 'Enter cave #(0-5) '); KEYIN(ch);Writeln(ch); Until ch in ['0'..'5']; cavename[5] := ch; (* OPEN file "cavename" for Read assign cavein *) RESET(cavename,cavein); fatal_error := EOF(cavein); If fatal_error then {ABORT} begin writeln; writeln('Fatal error - file not found'); {ABORT}goto 9; end; writeln('reading ',cavename); readln(cavein, line); for i := 1 to 20 do for j := 1 to 3 do read(cavein,cave[i,j]); writeln; writeln('You are in ',line)ocedure movewumpus; var i : integer; begin i := wumpmove; If i > 0 then locate[2] := cave[locate[2],i]; If locate[1] = locate[2] then begin writeln('Tsk Tsk Tsk - Wumpus got you!'); game := youlost end; End { movewumpus }; Function lint( s : alfa; var l : long) : integer; LABEL 3;{EXIT} var i, j : integer; negitive : boolean; ch : char; begin j := 0; l := 0; lint := -1; negitive := false; for i :Ifile : text; ch : char; Procedure ShowInstructions; begin CLEAR; Readln(Ifile,line); while not eof(Ifile) do begin If (line = '$pause') or (line = '$PAUSE') then begin Clearline(s_endlin); write('Press to continue.');KEYIN(ch); CLEAR; end Else writeln(line); readln(Ifile,line); end;{ While } End{ShowInstructions}; begin { instruct } CLEAR; write('Do you want instructions on how to play? '); KEYIN(ch);Writeln(ch)Wumpus!'); 3, 4: writeln('I feel a draft!'); 5, 6: writeln('Bats nearby!'); End{case}; end{ for j }; end{ for i }; writeln('You are in Room ',location:2); write('Tunnels lead to '); for i := 1 to 3 do write(cave[location,i]:3); writeln; End { warnings }; Function WantToShoot : boolean; LABEL 4;{EXIT} var ch : char; begin Repeat writeln; write('Shoot or move (s-m) '); KEYIN(ch);writeln; If ch = esc$  = 1 to length(s) do begin ch := s[i]; If ch in ['0'..'9'] then begin j := j + 1; If j > 36 then begin lint := -2; {EXIT(lint)}goto 3 end; l := l * 10 + (ord(ch) - ord('0')) end Else If ch = '-' then begin If negitive then {EXIT(lint)}goto 3 end Else {EXIT(lint)}goto 3; end;{ FOR } If l > maxint then lint := j Else lint := 0; If negitive then l := -l; 3:{EXIT} end{lint}; Pr If room = location then roomok := true; end;{ If i=0 } If not roomok then writeln('Not possible'); Until roomok; location := room; Repeat locate[1] := location; movefinished := true; If location = locate[2] then begin writeln('... OOPS! Bumped a Wumpus'); movewumpus end; If game = inprogress then If (location = locate[3]) or (location = locate[4]) then begin writeln('YYYIIEEEE . . . Fell in a pit!'); game := youlost f roomok then arrow := path[i] Else arrow := randroom; If arrow = locate[1] then begin writeln('OUCH! Arrow got YOU!'); game := youlost end Else If arrow = locate[2] then begin writeln('Aha! You got the Wumpus!'); game := youwon end; i := i + 1; Until (i > rooms) or (game <> inprogress); Case game of inprogress: begin If arrowcount=0 then begin writeln('Out of arrows!!'); game := youlost; end Else writel end; begin{ Main Program Wumpus } terminit; Instruct; Repeat getacave; If fatal_error then{ABORT}goto 99; Repeat initsetup; Repeat HuntTheWumpus; Until newsetup; Until newcave Until alldone; 99:{ABORT} End{of Wumpus}. ocedure doshot; var path : array[1..5] of integer; rooms, i, j, arrow : integer; roomok, targethit : boolean; l : long; ans : alfa; begin { program the arrow } Repeat write('No. of rooms (1-5) '); readln(ans); i := lint(ans, l); rooms := trunc(l); Until (i = 0) and (rooms >= 1) and (rooms <= 5); for i := 1 to rooms do begin Repeat roomok := true; write('Room # '); readln(ans); j := lint(ans, l);  end Else If (location = locate[5]) or (location = locate[6]) then begin writeln('ZAP -- Super bat snatch! Elsewhereville for you!'); movefinished := false; location := randroom end; Until movefinished; end { do move }; begin { HuntTheWumpus } arrowcount := 5; for i := 1 to 6 do locate[i] := initlocate[i]; game := inprogress; writeln; writeln(Title); writeln; {} REPEAT warnings; Case WantToShoot of TRUE: If game<>youlostn('missed'); MoveWumpus; end; youwon: {dummy}; youlost: MoveWumpus end{of Case}; end { doshot }; Procedure domove; var room, i, location : integer; roomok, movefinished : boolean; l : long; ans : alfa; begin location := locate[1]; Repeat write('Where to? '); readln(ans); roomok := false; i := lint(ans, l); room := trunc(l); If i = 0 then begin for i := 1 to 3 do If room = cave[location,i] then roomok := true;  roomok := (j = 0) and (l > 0) and (l < 21); path[i] := trunc(l); If i > 2 then If path[i] = path[i-2] then begin writeln('Arrows aren''t that crooked - try another room'); roomok := false; end; If not roomok then write(bell); Until roomok; end; { shoot the arrow } arrowcount := arrowcount - 1; I := 1; arrow := locate[1]; Repeat roomok := false; for j := 1 to 3 do If cave[arrow,j] = path[i] then roomok := true; I then Doshot; FALSE: If game<>youlost then DoMove End{of case}; {} Until game<>inprogress; If game = youwon then writeln('Hee Hee Hee - The Wumpus''ll getcha next time.') Else writeln('Ha Ha Ha - You lose!'); end{ huntthewumpus }; Function newsetup: boolean; begin newsetup := QUIRY('Same setup (y-n) '); end; Function newcave: boolean; begin newcave := QUIRY('Same cave (y-n) '); end; Function alldone : boolean; begin alldone := Quiry('Play again (y-n) ');%  _((~#~#> > _#7"6UAT@   2*:22NL (ʣ:($ʣ: Zox8 }£Ò}£Ò£:2:" /!,w#>2͹!,3:"(~=!4*qC:w9# :"!,3(FN* V"Bo(x0o xA(D_E xAO미( #(g+ɯ202,2-2.2/23!6>2*~!"w2 898$( :&8Àf( >~(>{^(s^ >~(>!,w!,w#͹!3:,!,w:"ͮ(5:"!!{ !-8"s*:ݾ 23!.8~s!/8w!"~z(D!0w:>>ɮ =2*F~2*N:2L 0:8 :(0#:̒x8.(# :[00!##!"^(   (:[00!# :!"~( =E*f~2*~2$:!YD !#:2:22:$2#:2*"6#6:"_:):O2*~ Qy*~ D:( \( ͹ 3:2! ؐ2!#6@!~q22#͂2/:-(=G:.(:/(=?!!~(D!0!2G>d_:,!1G:3(>dW{!!~ Dƀ2+*wxoDxɸx*##~2#~2#V*^j -{(+(6*s6r 1z!Pz(#wÙ!P{(#:wÙ!Nr(*x*##~2#~2#V*^j 3{(6(Ab )*szwr 8z!Pz(#:w˓ ˛!P{(#:w !Nr(ˣ@*K`iN#Fr+sC͞*K^#V( :+ݾ0p+qiÂs͘(2+ô:&>2(!"!"!]": 2!!S":'Gw#2122:,21::2xà[! R83*Ss#r!"^ !#6#6#:w#:w#:#w#6#"6#6+͘2)[*##s#r#"">2*~(( 2"!!z :o: :ķ* !,:#(_z( 4~(~(# o~g~oQO:!:C ~ (D ɯ2Nʧ2*~2"&  022!(42*V:(!'b*"*^#Vz(cS*s#r:(!'8&s͘( :(!' e:!͛(Zp*~(s!!>w !&4*~##w+":* :)>(+:&2%>:( *##~++:+!**83(1D#  w:( *":T !'55: !%5  !!>w(!&5*+"!(5*+V+^S+V+^"S!T6!2"!:  _G444444444*~( ("(#444ŠϠӡŠҠſĠՠŠϠŠοϠՠԠϠ٠ŠשҠˠ©Ġ٠ :1ݾ :2ݾ(^V("s͘ >"5 {a :W t=J_͆zo>g"ŗB(/*N^Vr($N^{   ` :((: ( ! !Zy> ~((@> >> y(y((O{!L!Z(c> xG(((!%!9(N>22P2*~(s:WY}|!~(> 9 (=-(EP(jNʿW(B "Q9! a Dodecahedron 02 05 08 01 03 10 02 04 12 03 05 14 01 04 06 05 07 15 06 08 17 01 07 09 08 10 18 02 09 11 10 12 19 03 11 13 12 14 20 04 13 15 06 14 16 15 17 20 07 16 18 09 17 19 11 18 20 13 16 19٠ſҠϭϠϭϭŠΠKQRBNPՠɠŠҠҠſӠӠԿԠˠĠŠŠӠԿĠ٠Π1!}"!9(Y2!͐ >2&!60#61#6 !!!!!!:  :> h(h:> (! > >:(4 60+4 60+4 61>02 !&4,!+!9(W(2 !!>2 !!!!9(!'6170w!!ZCHESS.DOC This chess playing program is definitely no slouch, even when looking ahead 1 level. (At least it's not as slouchy as I am!) Enter the program by typing: ZCHESS To the CP/M prompt and then answering the questions - white/black and how far it should look ahead. To move a piece, simply enter the position the piece presently occupies, a space, and then the position you want to move it to. i.e. c1 c3 move the piece at square c1 to c3. If that is an illegal move, it willNyO90(1q(:b(Ô!v!9(Nʒ͐!!9(!!!!!W,!!:  h(f(f9g9oͽ (!!! !:Ô>>!o0$~!N6#>2!N*~(#( ##:w: >2͸*":T ͣs͗x SY"4QY"1!1$H( !6P( !;!:!G2!͘x2!((:TC!@:Tͣ:&G:%