' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  L XLk gWJN L췩귍`鷍뷩0ᷭ HILéʮө $ ϛҧӠŠɠҧӠн`hh LڛlLѠӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( ŠɠӠˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`ӠҠҠ̠͠ϠҠϠנŠΠҬΠ`ĠŠԠ֠ɠϠ٠͠`ӍŠӠΠϠӠɠĠɠϠӠϠӾΠǠԠРŪӠΠϠȼàɠϠ͠ɠĠҠРՠ֠ϠˠϠҠàŠ̠Ԫ٠ǠԠՠՍԠŠŠ٠ԠΠ԰ŠΠɠ̠$ɠȪ٠`ӠàҠԠΠϠҠϠɠ0ԠˠӠààӯ͠ӠàŪ٠ĠŠϠ͠àϿƠˠ"ҍ̠ϠϠҠҠà֠ΠŠ͠ƠŠӠΠҠ"ҍ̠ӪРϠҠԪà֠׾ΠŠ͠ƠŠӠҠҠ̠͠ϠҠנŠΠҬӠ`ĠԠϠЪΠҠϠϠΠƪҠҠՠªŠϠ ҠϠ̠êΠҠΠժ֠ɠŠӠΠҠ͠ϠנŠΠӠϬӠ`ĠԠԠРϠ͠`ȍͪŠҠӠϠՠ$ɠ٠Ϡ(Ϡ̠ƪ٠ɠŠĪנɠՠР`àɪàΠĠ/ҠҠҠӠàŪϠԠŠϠͤàƠҠŠРӠҪȠՠ͠Ƞլ֠ŰŠàݪϠҠ̠ĠȠՠ֠ˠϠ ҠΠˠӠĠҠ٠Ԡ̠àŠɰɠҠŠӠӠԪǠՠԠŠŠԠΠϠΠ(̤ɠɠŠ̪נɠ٠`ӠҠנΰΠİĠҠ٠ˠԠƠΠԠˠĠàŠԠٰԠɠƠɳàɠɠҠŪӠƠΪԠĠҠҠҠӠҠŠҠŠӠϠՠà٠ˠӠϠĠŠ۪נԠàǠϠ٠ɠȠՠԠԠנɠҠՠР`à̠ɠàΠĠҠҠҠӠàɠϠԠŠàͤàƠˠЪ"ҠɠϠϠ̤ɠ̠ԠɠҠӠɠԠϠ ΠӠϠՠà٠ӯ͠ӠɠɪנԠȠǬϰ٠ɠݠҠϠנŠΠҬΠ`ĠŠԠ֠ɠϠ٠͠`ӍŠӠΠϠӠɠϠΠàŠԠɠҪנԠàȠǠϠ٠ɠȠՠŠ`ՠҠŠªŠϠƪϠҠנΰİҠՠ֠ԠƠ L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι Ll`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`LJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@ ( "I GET 1 POINT FOR LAST CARD". ; C0:S90G S1S11Y S11211450c 1650s Y542680y( 2 "I'LL GIVE YOU 1 POINT FOR LAST CARD"< F S2S21P S21211490Z C0:S90:G0d C$""n 2050x G11650  M502350 J91M5/ QI(20J9)24507$ J9N. H9M(Q,2)312450Z8 K9K91kB S9H9M(Q,2){L J(C)M(Q,4)` 3180j PP9P9Pt I(Q)P~ I(K930)Q Q62270 CC9 S9H9 K902840 C$"O"2590 G12600HS2S21RS21211490,\F0:C0:S906f1650Yp"I GET 1 POINT FOR LAST CARD"_zkS1S11}S11211450F0:C0:S901650K90:P90C9CCC1H9S9Q0QQ1I(Q)0QI12450QI22450 RDED THAT CARD - TRY AGAIN ";'1690K"ALREADY PLAYED - TRY AGAIN ";U1690"THAT TOTALS MORE THAN 31 - TRY AGAIN ";1690M542220 Y542720C$"O"1650 *F221604"YOU GET 1 POINT FOR LAST CARD"> Y51:I(10Y5)C6DCC10NJ(C)Y(C6,4)RXT1$(C6)" PLAYED "\b3180v"YOU PLAYED THE ";C$(Y(C6,1));" S=";S9;" P=";PF1S2S2P6400S21211490S9312050F0:C0:S90:G02050"YOU DISCA20::C$(X):C$"O"2050&17406"":C6X48LC61C661760n"INVALID PLAY - TRY AGAIN ";x1690C6I31990C6I41990Y501820J1Y5I(10J)C62010JS9Y(C6,2)312030&S9S9Y(C6,2)0Y5T1$(I)" ":I,"6400:F,********************`6* PLAY OF THE HAND *zJ********************^Y50:M50:C0:S90:G0hM02050rY541680|M5427202050"YOUR PLAY ";20:C$(X):C$"G"1720nx1420C"I HAVE ";S1;" POINTS - YOU HAVE ";S2;" POINTS"M1550S\260b}"I WIN ";S1;" TO ";S21520"YOU WIN ";S2;" TO "S1"WANT ANOTHER GAME (Y/N) ";UP$UP$"Y"200I16 11450X11180,650,1390'K145LV(B9,K)@J14RW(K,J)M(L,J)[J,Kq"MY CARDS ARE":|K14LW(K,1)C$(L) KW(5,4)T9C0(47002S1S1P<S11211450F:P;" POINTS":dX1650,870 Q16 T1$(Q)C1$(Q):Q* 6400E "HOW MANY POINTS ";P9P DPP9_ $D01090 ."NOT WITH THAT HAND! - TRY AGAIN" 8990 BS2S2P9 LS21211490 VD01170 `S1S1D j t"MUGGINS FOR ";D;" POINTS" ~S112  *P;" POINTS"! 4S1S1P3 >S11211450= H1390F RX13O \990W fK1b pI16p zII3950~ II4950 J14 W(K,J)Y(I,J) J KK1 I W(5,4)T9 C0 4700 384:"UP CARD IS ";UP$:380 155020 N"YOU SCORE FIRST "# XX11, b870B l"I SCORE FIRST "K vX12U 1180o "THE CRIB CARDS ARE"u  I14 C$(C(I,1)) I I14 J14 W(I,J)C(I,J) J,I C1 W(5,4)T9 4700  X1800,850I3I4I40I47(I4)I44601 "NOW REALLY ": 360D 6400P - CRIB[ J14n C(1,J)M(I1,J) C(2,J)M(I2,J) C(3,J)Y(I3,J) C(4,J)Y(I4,J) J - GENERATE THE UPCARD &4470 0- PLAY OF THE HAND :1590 DM060:5600 - SHUFFLE AND DEAL/ 5420:5860b "- FIND THE BEST 4 CARDS - DISCARD THE OTHER 2 ,:"I'M LOOKING AT MY HAND AND THINKING..." 63670 @- DISCARDS JI1V(B9,5):I2V(B9,6) ^ h"YOUR DISCARDS ";I3,I4 rI30I37(I3)I3&:::"C R I B B A G E"B:"CONTRIBUTED BY S.GREENFARB"Q 6170:200_16368,0|X(1):(16384)12830(16368,0:X(16384):X42Ā-(X);2:S10:S20- SHUFFLE THEN CUT FOR DEAL - LOW CARD DEALS 542          *M, dede*M6 dede*M@ de{deMJ dedeMT dede@M^ degdeMh deadeM r M6| cca() QM dedeM dede*M dede*M dede*M dedeUM dede*M dedeUM dede*M dedeM" deded dede*Mn dede*Mx dede*M dedeM dedeM dedeUM de{de*M detdeM deadeM detdede{de*M detdeM deadeM detdeM( dedeM2 dedeM< dedeMF dedeUMP dede*MZ dedeMede*M dede*M dedeUM dede*M dedeUM dede*M dedeM dedeM dedeM dedeUM deMB dede*ML dede*MV dede*M` dedeUMj detde*Mt de{deUM~ detde*M dedeM dede*M deMdedeMdedeMdedeMdedeM dedeM dedeUM dede*M$ dedeM. dedeM8 deMzdede*Mdede*Mdede*MdedeUMdetde*Mde{deUMdetde*MdeadeMdetdeMdetdĽ)FH(ν)FdedeM _*dedeM4dedeM>dedeMHdedeUMRdede*M\dedeMfdedeMpdede(g(htYZ yY_QTdede0dededededed ed e]d ed ed ededededeLdedede` M6_* q2?r q2?r a(?rr!.q1?rdedeM8q.?6@r`$8)Bq1?8rrq-rbI_$LLQUVW2VUVW[UVW `qf8r jghghg(h(4og(h(gh(g(hghdedededed ed e]d ed ed ededededeLdedede`)q82?rrq82?rrdedeMbIq.?6@r`$ $d6?eq82 rq]- rqa- rqg- rqm$4-rqt-rq{-rq:>-rq-rq-rq-rq-rq[H-rq-rq-rq-rq-rq-rq-rq2-rq4Tdede0dePa(Ԡ٠٠Ϡ٠)_0&`%[f--rrijk[<0`-r-r%[qgha()G-rq-rq [E -rq6-rq:-rq=-rqA-rqE-rqJP*-rqM-rqR- rqW-_dfqUVW-rq-rq\0Y`$fUVWUVW\0YZ_Xca(ՠԠԠΠ)FE(Ӡ)G`%a()G` %a()G7` %a()G`%a()Ga()0M6'kqUVW-rq\&YqIUVW q.?6@r`$d6?eqUVW-`<@*rr%Y` $-rqq]\&`$`%qYqLcUVW-rq/?rf-rijk'a()E@*#rGYyqca(ҠӠҠҠ)a(נӠҠŠĠ)a(ԠΠϠԠӠ)Ghq$qP bGfijŠŠԠԠӠϠŠͮ)dcca(ҠΠӭ)a(Ϡӭ)a(Ϡӭ)Ia(ŠΠӭ)M6Pa(Ԡ٠٠ϠΠ)qM6|`.?6@r$d6?e)G[a()G[a()G[a()G[a()G[a()G[a()G[ ,q 6q@`%_6J[XKM6a(ŠϠŠŠƠġ)cca(ՠӠŠŠӠ)Ha(ɠ̠ŠЮc a(ӠӠŠĮ١)#`.?6@r$d6?e_ a()G[a()G[a()G[a()G[ a()G[a()G[a()G[a()G[a()G[a()G[a()G[a(Π)E@E()cxa(٠ĠŠ)G}\a(ĠĠ)G\a()-a(Π٠ĠŠĠƠ)E@E()/ca@E()E@E()E@E(ԠԮ)c"a@E(ԠŠ͠Ԡ)E@c)a(ŠĠĠ)E@E(٠ٮ)cҠٮ) 1ccc2q/?r7q/?r<q/?rF\,0PKM6ca(ŠΠŠ)E@E(Ġ)E@Za(ԠϠŠ)G_\da(Π)E@E()G i\a()#nca(٠ĠŠԮ)4sca(ŠǬ٠ĠϠ)&@gcS(͠Ϡՠſ)&@cS(ԠŠՠĠƿ)&@cS(ԠӠҠŠҿ)&@((cS(ϠӠҠԠĿ)&@c')S(ԠӠҠŠĿ)&@"*S(ԠӠ٠ſ)&@,0ca(Ӭ)E@E(ŧӠϮ)a(); a(ϧӠӠ)a(ҠΠ)a()*ccS(ȠϠՠ)'`%_`%_`%_ `$L`$_ JKM6oPa(٪)ocS(ɡԧӠҠſ O4rD4rD4rD4rC@"r-rq-rq -rq-rq -rq-rq -rq-rq@p()C N@"rC@"rC@"rC@"rC@"rC@"rC@"rD4rI KM6oP a(Ӫ)ccca(     r88dr r [P*q`%qq88rrd888rrr [ŠΠ̠ؠؠŮȠŠӠ)Va(٠ŠԠҬȠȠԠΠĠŮŠ)Ua(ŠŠĬάĠ׬٠ƠŠĠή)_F3 q8d- rqE-!rqK-$rq6-%rq=-(rq7-)rq?:-,rq'--rq8-.rq9-/rqH-0rqJKeM6ca(ŠϠŠŠƠá)a(ϠՠԠӿ)GR@`@*#r9()$FcVa(àӠíq,-rq<f-rqF-rqL-rq--rqB-rq'-rq.-rq(-rq/- rq0f- rq:- rq1-rqC-rq(-rq2-rq'-rq3-rq4-rq;f-rq(-rq5-rqA-rq;-rq?-rq4-rqH-rqf-rq5-rq6-rqK-rq7-rqJ-rq-rq8-rq'-rq)q-rqD-rqG-rqI-rq*-rq>-rq+-rq@-rq(-rrqIf-rq-rq.-rq>-rqB-rqD-rq-rq/-rq:-rq<f-rq@-rq0-rqL-rq1-rqE-rq-rq2-rq=-rqAf-rqC-rq-rq3-rq93-rq@-rqC-rqD-rq4-rqLf-rq-rq5-rq6-rqJ-rq7-rqK-rq-rq8-rqf-rq)-rq*-rqG-rq+-rqF-rq-rq,-rq--_rq-f-`rqE-crq-drq.-erq9-frq:-grq=-jrq-krq/-lrq?f-mrqA-nrqB-qrq0-rrqH-urq1-vrqI-yrq-zrq2-{rq;f-|rq<-}rq>-rq-rqrqC-9rq -:rq5-;rq<q-<rqI-=rqJ-@rq6-Arq>-Drq7-Erq@-Hrq -Irq8-JrqD-KrqKq-LrqL-Orq-Prq)-Srq*-TrqF-Wrq+-XrqG-[rq-\rq,-=-rq+-rq?-rq -rq,-rqA|-rqG-rqH-rq--rq:-rq -rq.-!rq -"rq/-%rq0-&rqB-)rq1q-*rq;--rq -.rq2-1rq -2rq3-5rq4-6qqqqFUVWUVWUVW-rq-rqq'q-rqYq(qYqq Y-rq -rq)-rq9-rqE-rqF- rq*- rq-(rq-,rq YUVW@-rqY[-rq-rq- rq-rq-rq-rq-rq-rq[-&rq-'rq-*rq-+rq-1rq-4rq-=rq-@rq-rq -rq-rq -rqb-rq-rq - rq -rq-rqu-rq-rq- rq  -$rq -$rqY9vUVWUVW'-(rq-rYY@UV)W8UVW-8rrq(YY\UVW-rq-rq-rq -rq 8rb-rqrq-rq-rq-rq[b-rq&- rq'- rq*- rq+- rq1- rq4-rq=-rq@lUVW-rqYFnUVWUVW-8rrq8rYY7pUVW- rq%qqq888r rr` $`%q_q`0%q'ghghghgh&[7XO4@rD40rD4LrC@"rD4@rD40rD4r[]-rq-rq-rq -rq-q͵\-|\*a(ɠΠȠ٠ŠϠΠ)F8~S(٠ҠҠſ)&@`@*#r9()$KM6_FQ-ʹrqqʹ\&\*a(ɠŠϠΠ)F_Za(ՠΡ)_~f`-r%f Oq8r`-r-r-r `-r$`-r%͵qY`͵$mͳq_ ?mUVWq-8͵rr`-r$o͵q_poY.pa(٠ϠŠϠˠŠӬԮ)6r-͵rqq8͵rq͵88rr wq/?rʹq-r_ZS(Ҡ)'\ )i`A$na(̠)_Z/n`-r$xa(ՠΧԠŠš)_Zx-rq\͵qUVWLBq8rq-rq-rq-rq-r -rq-r -rq_Q$ST`$U\ -rq_SULfq9Wij'klm'nq`%q`'$W@XUVW@`-r%\Ya(ՠŠנĠɠ͠)]YS(ϠՠԠϠϠԿ)&@`@*#r9()$Z`$SKa(ϠՠԠנŠŠΧ)a(ϠŠΠĠŠŠç)%MR@`@*#r9()$UqqPa(ҠҠŠӠŠԠŠĠ٠ΠҠ٠ŠӠΠŠŠٮ)$QT`$S\ʹq_*`$(ͲqͲ8r_2)(q`%ͲqͲ2YC7`Ͳͳ$<`Ͳͳ$9`-r$<`ͷ$9`/?r$<9ͳqͲʹq`-r%ͷq<q-rY_FUVW@-rqY Hcqu_X]ŠƠ]٠Š]ҠJ]ĠΠƠ͠٠ȠǠΠ̠> qͷqUVW@`-r$<ͲqUVW-r:q-rq-r`$2`$               'UVW$X'UVW'lm'n 'YY'[']C Lf q' (\2Q'UVW&X&'UVW$'ij$k .'YY8'UVW B']ҠL'q8r V'lmn`']Ҡj'q8rt'lm'n~'Y']̠  Ϯ)}d"e_ YL\ `@9()$_ya(ؠӠԮ)\W JyL\  yqqzUVW_8DzԱqԲqa(ؠŠ׬ά̬Ω)G\5vzԱqԲqa(ϠŠ׬ά̬ԩ)G\zY:p{a(ŠҮ)IȱE(ҠؠĠ)FñE(Ӡ-rqzX@p()>XUVW@-rqY-rq-%rq-rq-$rqYñqȱqαqqY[08YqqS(ϠՠԠϠŠؠҠϠ)&@`Y`@9()$Y`@:()$8Y tYqq-YS(ϠՠԠϠϠԠ٠ҠΩ)&@"V`@9()@9()%Ӳq/?r W\W_8YsWq6qɴ-rqɴ-rq6ɴ-rq6ɴ-rq6ɴ-rqɴ-rqɴ-rqɴ-rqfRXʴ-rqʴ-rqʴ-rqʴ-rq6ʴ-rq6ʴ-rq6ʴ-rqʴ)COa(ԠϠԠҠŠҠҠҠ׬̩Ů)[Rca(ŠҠԠŬҠϠӠԠȠҿ)GS(ŠҠ)'R`$y3Ua(Ġɠ٠٠Ԡ٠٠ҠΩ)R@TV`@9()@9()%ӲqӠŠǠ)S~Oa(Ơ٠ӠĠԠȠĠ٠ӺؠӠ̠Р)BOa(ӠҠĠΠ͠ϠӬŠӺ)TOca(ՠԠŠΠҠΠƠԠӠŮƠՠΧԠĮ)UBOa(ӠĠΠŠԠŬ)a(ӠĠȠΠŠͮ)ILOca(ŠŠӠȠӠΠŠ)a(ҠΠӠκ)#`OPa(ؠ)cPa()WjOa(٠ϠŠҠŠϠԠԠҭ)a(ӠҠqqԱqԲqɶqʶq3NO4ArDɴ4rDʴ4rC@"rC@"rC@"r,NKM6oa(Ӡ͠)/Nca(ϠՠԠΠ٠ҠΩ)GR@O`@9()$R.O`@:()$N-8Oca(ϠӠĠΠjkb ijkg ghgh_ l qqn f(q ghghgh!v ghgh Y `$F  [ Q' N]ԠРӠĠ2RNq àĠŠƠǠ) ! d"e " ccc0 f: UVW'ij'kY!< fUVW(XghY D q F qG UVWI q-8rrN `$ S `$l X fZ qq] i)G ñq1?ñȱr. ñq8@ñrα8 a(ԠӠ)GB `ñ $ L `ñ$ V `ñ'$ ` `ñ5$~ j a(ԠŮ)Gt _ ~ a(ٮ)G _  a(Ԯ)G _  a(Ԡš)G _  a(ҡ)G Q2 oa(f`ñȱ$p`α@$z[]ĠƠŠ`$p{,a(ՠŠ)FȱE(ӠĠɠŠ)Fñ d"e`ȱñ$`ȱñ$  a(٬ɠΠԠŮ)G_ a(Š)G_  a(ՠΠˠ׮٠ή)_']Ǡ̻ŠΠ q%a(ԠӠՠ)FӱE(Ӯ) q \@!`$*`Ա$*#ȱqȱӱñqñӱ_>*ȱqȱӱ 4ñqñӱ >αqα\]ԠҠĠƠ٠Į)Ga(٠ή)Gb_l]ˠҠ̠v\x`Ʊ$Ea(٬ՠŠԠԠϠŠƠ)a(Ӯ٠ή)G_]ˠƠ̠q6\@`ӱ$+a(ԠΧԠǠҠſ٠ҠΩ)R@`@:()$`$ q `$\[UVW&`@*#r9@$N0Y.:a(̠ΠҮ٠ή)_D]ˠƠN`-8rr$vCXa(٬ԠŠԠӠŠ)FӱE(ƠҠӮ)r]ԠҠĠƠ|`ȱ$`α@$]ΧӠ \_ԱqԲq+a(ҠŠ׬ά̬ԩ)G T&@`$`$`$/a(ŠՠŠĠŠϠǿ`±$ ] a(ɠŠϠԠ٠)`$ q_]Š q)a(ɠ̠ŠϠ)FɳE()E@*ʳ#ʳrqɳqʳ q\@"ñqñӱ ,ȱqȱӱ 6αqα,@a(ӲӲӲӲӲ_%]ӠӠŠԠĠϠҿ&ӱqӱӲӲ`%ӱqӱ`ӱ±$d`ӱ±$<]Ż͠ q/?r(`$d 2] <±qӱFɳqPʳqdYga(LJ)In`$.x]$ `$ `$`$ӱqӲ_]ϠŠϠ(q`%\`$`%\`$ӱqӱӲӲӲ_]ӱӱqӱΠҠˠ )q .q8UVW#Bq8r`-r$dL]Ġˠ(V]ӠԠŠҠԿ`\zj`Ʊ$d%t]ĠΠԠӠ q6\@`ӱ$d`rԲ$_ q;q`$`-r$`-rԱ$_ q;q`@$`-rԱ$`-r$_ q[q[]ҧӠ ±q6ɳqʳqԱqԲq$]5`-rԱ$V_3 DqBFq` A$U`-r$U`-rԱ$V_F Uq[Vq[`$q[8qq`-rԲ-rԲ$_9`-rԲ-rԲ$`-_KfghghghghghɶqɶɵʶqʶʵY˱Y[=qq`-rԲ$2`-rԲ$D_V2`-rԲ$Vq/3q`8$U`-r$UԱ$`-r$j_`,ӱqӱӳ`$ɶqʶqU˱VWӳ_-8ɶrʶrqԱqʶqɶfUVWijkYV`Ա$fijkijkghgh`- rԲ$ Ʊq['@ӱqUVWɵqɴ-rʵqʴ-r;Tɶqɵʶqʵӳq`ɶɶʶʶ$^`-8ɶrʶrԲ$`ӳqӳɶqɶɵʶqʶʵTh`ɶɶʶʶ$q8ɶrʶ`-r_ N]]Ġ٠ˠ]͠Šxq8rLzƱq`$`-rԲ$`-rԲ$`- rԲ$E`-rԲ$`-rԲ$`0$`-rԲ$'`-rԲ$               ŠǮ) F d6?eP q.?6@r`$P Z `<()r$ d `<()r$P n qq'x ca(ӮՠΧԠԠӮ) UVW Y q _ M6_  a(̠ҠΠҮ) UVW Y c, a(ɧ͠ǠԠƠήƠՠΧ)+ a(Ԡ׬ɧ̠٠ŠҮ) UVWY,( ca(ԠӠΧƠՠ̠Ԡ)(2 a(ЬĠ٧Ơէ̠Š)"< a(ԠĠa()Ga()S o P a(ŠĠ)G`%a()G`%bGa()G`%a()Ga() _ `$ . oa(Ϡՠ٠ԠϠԿɠӠ) a(ǠϠ٠Ԯ) UVW Y c* a(٠էŠԠǠ٠)B qqqL q.?6@r`$L  V d6?e` `<()r%qj a()t _~ _ Q oP a(ɠΠ)G`%a()G`%bGa()G`%a()Ga()S o P a(ՠΠ)G`%a()G`%bGa()G`%̠ɧ͠٠ή)) ca(ΠէŠ٠ϠԬ) a(Ӡ٠ٮ)-$ ca(ЮӮՠΠӠ٠٠Ϡά)S. a(ԠɠŠŠҠڧΠԬ)a(ƠՠӠڧԠӠŠ)*8 a(ɠΠŠĠӠҠŮ)Ԭɧ)*a(ŠΠҠ٠ӬĠ)a(̠ŠŮ).ca(Ġˡէ̠ĠԮɠΧ))a(ԠŠŠɠԠŠӠ),a(ĠϠŮԠΧԠΠ))a(ΧԠŠŠΠŠŮ)# a(ҠUVW2YZUVWY KM63a()ca(ŠϠííŮՠΠ)*a(ԬҬƠՠԬɠ̠)-a(ԮŠԠҠ̠Šا))a(ĠŠҠҠ̠Š)'ca(ϠҠϠӠijk"lm!nlm!nN>f ij!kg!hijkij!k"lm"ng!h!!HoPa(٠ˠ)RUVWXY\f fq#)pUVWghqUVW2YZ1zqUVW#ghqijklmn pflmnlmnlmnijkijkijklmnijkA fij!kij!klmng!hg!h"*fijklm"n <4f ijk١)UVWY M6.UVW Yqqd6?e_M6a()L"fijklm n /fijkijk lm nAf ij!kij!k lm ng!hg!h " fΩ)Nq.?6@r`$N Xd6?e#b` 1?r%ql`%qv`6%q`<()r$`<()r$N_ KM6KM6_~ (UVWpYM6o Pa()!o P a(Š%\%\`6$0` $D$\\`$:` $D&_?0M6oa(ӡՠΡҠŠ٠ҠΩ)_N9:\oa(ɠΡҠŠ٠ҠΩ)_N3DM6ca(ŮҠŠ٠%\`%\_2q/? r` $_`-r$`- r6$`-r6$`-r6$` -r6$+q-rq\,q`%\`\,q\h\r`$|q/?r`$ q/? r`-r$!-rqq\,q `%\`%\_7`-r%q`-r6$`-r$>-rqq\,q`)*UVW -rqYqq qq.?6@r`$ d6?e"`<()r$h,`<()r$6`$^@q/?r`$^:Jq/? rqq-rq\,q\T_h,^-rqqq1?-r-r-r-rr$x`$x.`-r- r6-r-r6$x+`-r%qq-rq\, q`%\`%\\[7M6ca(̠ՠŠԠƩҠĠөr%q<`-r%qF`-r%qP`-r%qZ`- r%q d_$n` $.x`-r-r%q8/?rr.`-r-r%q8/?rr_5``ԵԹ$`Ա%q`$`ԳԵ$`Է%q`$`ԵԷ$`Գ%q`$`$qq6 _f`-r%q`-r%q(`-r%q2`-L`Զ%q`$V`ԴԵ$j``Զ%q`$j`ԵԶ$~t`Դ%q`$~`ԲԵ$`Ը%q`$`ԵԸ$`Բ%q`$`ԱԵ$`Թ%q `$$`ԱԴ$`Է%q`$`ԴԷ$`Ա%q`$`ԱԷ$`Դ%q`$`ԳԶ$.$`Թ%q `$.`ԶԹ$B8`Գ%q`$B`ԳԹ$V$zp`Գ%q`$z`ԱԳ$`Բ%q`$`ԲԳ$`Ա%q`$`ԷԸ$`Թ%q `$`ԸԹ$`Է%q`$`ԷԹ$`Ը%q`"k[ ij"k[*lm"n [4lm"n[>lm"n[HUVW"ghY[RUVW"gh(Y[q\qqԱq-rԲq-rԳq-rԴq-rԵq-rԶq-rԷq-rԸq-rԹq- rqf`ԱԲr-r-r -rq-r-r-r -rq-r-r- r -rq-r-r- r -rq-r-r-r UVWq-rq`1?r$Y[f_8 r ij"k [ij&d6?eq0` $:`-r$ DM6 NqX-rq6\,b`%\l`%\v\[ -rq-r-r-r -rq-r-r-r -rq-r-r- r -rq-kijklmnlmn[`%f`%fqqUVWghqYUVWghqYfgh[ M60oa(ӠŠҠՠԠϠ)q.?6@r`$qq_^qqqq_hqqqq_rqqqq_|qqqq_qqqq_fUVWlmnYf q[`%f`%f$ijٱmnlm!nlm n^lmnlm!nlmnlmnlm n lmn lm!n "_,_,8 r6qqqq_@qqqq_Jqqqq_Tqqijkij kijkij kQijkij kij kijkij kijkij kijk!@lmnlm n lm!n lmn g hDlmn l m nl -rqYqqM6` %q-qq qqqq!L<f lm"nlm"nij"kij"kf7ijkij kijk ij k Qijk ij k ɠŬ/Z]ɠŠ d]ɭ n]ɠ8x]O4 rD4 rqd6?e_ M6*UVW ] ]ɠ ]ɠӠ͠Π (]ɠĠԠ*2]ɠه <]ɭ-F]ɠ҇ɇǡÇχ··χ̇̇٠ P]                    f i jki jkl mnl mn-#a(Ԡ̮àĠŠ)<2#fij'kij'kij'k'ij'k%7#UVWXY<<#flm'nlm'nlm'n'lm'n% F#L_(#'Ql mn_d'fi jklmn _d'fijklmn_d'fijklmn_d'$fi jklmn _d'.fijklmn_d'8fijklmn_d<(#$`$`$`$`$`$$`$.` $8` $  ` %a(ҠŠӡ)_(#'fi jk l mn _d'fijk l mn_d'fijk fijklmn+_b"0fi jklmn 5_b':fijklmn_b'Dfijklmn_b"Nfijklmn#ba(ҠԠӠҠ)GlTv`$` ` %a(ҠϠӡ)` $ _(#'fi jk l mn _b"fijk l mn_b'fijk l mn_b'fi jklmn _b'fijklmn_b"&٠Ԡ)L(f 2i jk<i jkFl mnPl mn#da(ҠԠӠҠ)GnTx`$`$`$`$`$`$&`$0`$:` $N a(àà)!a(٠Ԡ)%a(ƠՠȠϠŠРŠ),a(ĠƠҠԠӠՠŠ)&a(ĠŠƠԠӠԠ)UVW'XY_ a(àà)a(I WIN !!!!!!!"T "DO YOU WANT TO PLAY THIS AGAIN? ";A$:A$"Y"5Z  F(1)4:F(2)12:F(3)30:F(4)90:F(5)10000:G(1)4:G(2)12:G(3)30:G(4)100:G(5)100000: "? 24:"GAME IS DRAWN!!!!!!!!! "w "DO YOU WANT TO PLAY THIS AGAIN? ";A$:A$"Y"5} B(I1)2:R((I11)10)1:CI110(R1) 21:2:"MY MOVE IS =";R;",";C 1:C27,R27:"" B1045 24:10:"IS AGAIN? ";A$:A$"Y"5 0 N(3)41759 B11J N(2)0185_ EG(N(3)1):190o EF(N(2)1) J22:TIJI1 B(T)0205 V(T)V(T)E J I11:V1V(1):J2100:V1V(J)225 I1J:V1V(J) J V142505 iD2120 nI111:125+ sI29:125: xC:R:215O }J13:N(J)0:Jx J22:KB(IJI1)1:N(K)N(K)1:J N(2)0N(3)0145 N(2)5165 24:10:"YOU WIN!!!!! " "DO YOU WANT TO PLAY TH" (M070, -21:22:"YOUR MOVE =";R,CE 22:C27,R27:""V 7T(R1)10Cf <B(T)045q AB(T)1 FI1100:V(I)0:I KV(55)1:R110:C110 PD0:I(R1)10C UC3C895 ZD1:I11:125 _R3R8105 dDD1:I110:12#B(100),N(3),V(100),F(5),G(5)U::24:" HIRO'S JAPANESE STYLE GO GAME"^285uI1100:B(I)0:I12:I9272:J9272:J,I:J,I #21:"ENTER 1 TO MOVE FIRST, 0 TO OTHERWISE. ";M:21:"      AMES". ADAPTED FOR APPLE II BY ROBERT H. ABBOTT 1979JAN07v A CONTRIBUTION FROM THE AKRON, OHIO APPLE USER'S GROUP1(7DN)1COCN:DODN:TTNIZ(16287):Z127Č198:I1100:I:wZ(16384):Z127Ĺ16368,0:C1:198:64030CC((0)4)C((CC8(CC8))8)D((0)32)9 ORIGINALLY FROM CREATIVE COMPUTING'S "BASIC COMPUTER GI1J:I,I1J27X S(X,Y)2Ġ12:I,I1J:I,I1J2]b S(X,Y)0Ġ15:J,J2I:J,J2I1fl X,Ylv z16368,0CO0:DO7:T04500CNC:DNDCOCNDODN4100T:4CO1,5(7DO)1TN4CN1,5(7DN)1) 6:4CN1,51:I,I1J:I,I1J2= S(X,Y)2Ġ12:I,I1J:I,I1J2c S(X,Y)0Ġ15:J,J2I:J,J2I1l X,Yz Y712& X1720 I4X1:J5(7Y)1: S(X,Y)1Ġ1:J,J2I:J,J2I1D S(X,Y)1Ġ12:J,J2I:J,J2I1N S(X,Y)2Ġ1:I,I4X4308X,X3Y* X,Y,I9I53910F YII4T*X0308a4X,X3Yl>X,Y,IrH Y602 X062 I4X1:J5(7Y)1 S(X,Y)1Ġ1:J,J2I:J,J2I1 S(X,Y)1Ġ12:J,J2I:J,J2I1 S(X,Y)2";:4000:A1C:B1D:A10B1018101 A1;",";B1] S(A1,B1)0(A1A)2(B1B)21802EA:HB:AA1:BB1:II15:1750B7S(A,B)2&230XI180:J1I:J:Z(16336):Ib::"YOU WIN!"l15I03910YIN EMPTY SQUARE, TRY AGAIN":198:1595BT" TO ";:4000:AC:BDT^A0B01580`hA;","BlXA:YBS(X,Y)0(AE)2(AE)(BH)1700198:1620I46S(A,B)S(E,H):S(E,H)0:(EA)21810S((EA)2,(HB)2)0" "+TO &ZUXA:VYB:U0U7V0V71400JdS(U,V)0S(XA2,YB2)0İ910PxZ,3000p6::"YOUR MOVE?"~;"FROM ";@4000:EC:HD:E0H0ī1580EE;",";HJXE:YH:S(X,Y)0ĺ"PLAY YOUR OWN PIECES!":198:1595&OS(X,Y)0ĺ"THAT'S A,R(2))6S(R(1),R(2))0:(R(1)R(3))2İ3000:1590[2S((R(1)R(3))2,(R(2)R(4))2)0<XR(3):YR(4):S(X,Y)1B2:A224:1370FS(X,Y)2āA224:B224:1370BPA:R(0)99ĺ" TO ";R(3);",";R(4);:R(0)99:1240U3000:15904S(UC,VG)0(S(UC,VG)0(UCXVGY))QQ2f8C:QR(0)R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)VpLQ0:tR(0)991880:"I MOVE FROM ";R(1);",";R(2);" TO ";R(3);",";R(4);:R(0)99R(4)0S(R(3),R(4))2:1310S(R(3),R(4))S(R(1) S(U,V)08707 UUA:VVB:U0V0U7V7870J RS(U,V)0İ910P fi V0S(X,Y)1QQ2} (YV)2QQ5 Y7QQ2 Y0U7QQ1 C112:UC0UC0VG01080 S(UC,VG)0QQ1:1080 UC0UC7VG71080% "DO YOU WANT TO MOVE FIRST? ";A$; (A$,1)"Y"1590\ X07:Y07:S(X,Y)1350 6S(X,Y)1āA112:BG:650:A JS(X,Y)2āA112:B112:650:B,A ^Y,X:3000:1140 UXA:VYB:U0U7V0V7870 S(U,V)0İ910:870E BEGINNING OF AN":"INCORRECT MOVE, PRESS ANY KEY TO CLEAR."\ F:"HIT 'RETURN'";A$:936{ PR(4),S(7,7):G1:R(0)99 Z 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 xX07:Y07:J:J15170 S(X,Y)J:175 :S(X,Y) Y,X 2000:3000E."& ("REPEAT FOR THE 'TO' SQUARE. T -"THE MOVE COORDINATES WILL BE DISPLAYED"x 2"AT THE BOTTOM OF THE SCREEN." 7:"THE COMPUTER WILL TYPE '+TO' WHEN YOU" <"HAVE ANOTHER JUMP. PRESS ANY KEY IF YOU":"CANNOT JUMP."= A:"IF YOU ENTERED TH*********************"- I12000:I:936V :"THIS IS THE GAME OF CHECKERS.": "THE COMPUTER IS GREEN, AND YOU ARE RED." :"TO MOVE, MOVE THE CURSER TO THE 'FROM'" "SQUARE USING PDL(0). PRESS PDL(0)" #"SWITCH TO REGISTER YOUR MOVw  CONTRIBUTED BY WM.R.DIAL334,0:936:8" **************************************":" * *" " * CHECKERS *" " * *":" *****************     4ȱuȱvXP- % ) _$! $ȱȱж _L枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzWș Нƹ`ghȥQћ Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQ egh^_^ ijL< ȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІ۵ {h0hhpo`M$L*  ]` H _h P =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnijERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H HANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEC" t5v5x5z5|5~555D444X( J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXI44 J44 z#   Ũ©) ϧӠϨĠԩààŠ٠̠3 ààŨ٩ Ϩө ΠĠ èש ήˠ  ϨөӠ ɠӠ$Ӡ4Ψ̩ Ϩǩ2Ө̩ŠɠӠˠ       -t`  Š͠Ϡ"Šɠՠ  IF THIS POINT REACHED(rB9(J(1))15|B9I(B9);t- BEST HAND WILL BE WHICHEVER HAS MOST OF CARD "C9"}P90I115J(I)0IIIJK14LV(I(I),K)M(L,4)C94340J(I)J(I)1K J(I)P9P9J(NGLE BEST HAND. SEARCH FOR KEY CARDS9- CHECK FOR 5'SHC95:4240]- CHECK FOR 8'SlC98:4240- CHECK FOR 7'SC97:4240- CHECK FOR JACKS"C911:4240@- CHECK FOR ACESJC91:4240h- RANDOMLY CHOOSE A BEST HAND UATE THE HANDC04700- V(Z9,7)P<PP9P9PDZ9n(- FIND ALL HANDS WITH MAX SCORE (P9)v2J0<I115FV(I,7)P93940PJJ1ZI(J)IdInJ13990x- THIS IS SINGLE BEST HANDB9I(1)$- NO SIVFIND BEST 4 CARD HAND6`*********************?jP90LtZ9115[~I1V(Z9,1)jI2V(Z9,2)yI3V(Z9,3)I4V(Z9,4)J14W(1,J)M(I1,J)W(2,J)M(I2,J)W(3,J)M(I3,J)W(4,J)M(I4,J)W(5,J)25J - EVAL  PPR9  J1C1 J(J10)J(CJ1)8 JE K1I1R LK1Il J(K10)J(L10)3580z XJ(K10) J(K10)J(L10) J(L10)X L,KK1I1$J(K10)J(K11)13650.K8R9IBL********************* OR 31 OR 2,3,4 OF A KIND AND RUNS> **********************F P0T C13480k S915S931PP2 FT2:(C2)2FTC2 ICFT1 J(I)J(I1)3390 PP2(CI1)4 I> RUNSR C23480\ R90p I3Cz 3490 I(M520)I9 J(C)M(I9,4)- S9S9M(I9,2)b "MY CARD IS THE ";C$(M(I9,1));" S=";S9;" P=";P9j F2w& S1S1P90 S11211450: S9313160D F0:C0:S90N 1650X C$"O"2050b 1650l **********************"v * CHECK FOR 1513010@ Q0J QQ1(T I9V(B9,Q)D^ - DON'T PLAY A 5 FIRSTXh M(I9,2)52980hr I(M520)I9y| J(C)M(I9,4) P90 S9M(I9,2) 3080 Q42890 I9V(B9,1) 2930 J91K9 I9I(J930) I(I9)P93050 J9  I"GO"  G1 1650% F02820+ 9 F12790\ "I GET 1 POINT FOR LAST CARD"h S1S11y S11212820 1450 "YOU GET 1 POINT FOR LAST CARD" S2S21 S21211490   CC1" M5M51, C130106 M5. BOX 17467 ** DENVER-COLORADO 80217 ** *****************************8 DENVER-COLORADO 80217 ** *****************************AAPPLE PI USER'S GROUP ** P. O. BOX 17467 ** DENVER-COLORADO 80217 ** *****************************i *********************** ** ROBERT GAISER LIBRARIAN ** APPLE PI USER'S GROUP ** P. Ok :4"BLOAD UNCLE SAM HELLO,A$4000"FPAUSE12000Q(PAUSEY<:{F5:8:"APPLE PI - GAME DISK"KPAUSE1500:P"BRUN APPLE PI MENU" Pò*********************** ** ROBERT GAISER LIBRARIAN **   40.J36350(.;20);T1$(I):63605.T1$(I);<.IF.380x." I HAVE ";S1;"- YOU HAVE ";S2;" "~..CP(37)1:37,0:T3$:TS0:BS5:6430:6240.TS5:BS23:6430:37,CP:T3$:.32,0:33,40.<34,TS:35,BS.FT" OF DIAMONDS",->C$(I26)C$" OF HEARTS"I-?C$(I39)C$" OF SPADES"P-@If-BI152:Z(I)I:Il-Lr-Vz-`J0-j" YOUR CARDS ARE "-t384-~I16-II3II46360-JJ1-J26330-J16350.636),C1$(6),Z(52)B,T3$" "Z,I1:K15:LK16i,"M0:J16{,$JKJL6185,&MM1:V(I,M)J,)J,.V(I,5)K:V(I,6)L:V(I,7)0,8II1:L,K,:I113,;C$,<C$(I)C$" OF CLUBS"-=C$(I13)C$I;") ";C$(Y(I,1))3+T1$(I)(I)" = "C$(Y(I,1))I+C1$(I)C$(Y(I,1))P+IV+|+ "A","2","3","4","5","6","7","8"+ "9","10","J","Q","K"+11:5:"I AM SHUFFLING...",D(52,4),I(52),W(5,4),M(6,4),Y(6,4),C(4,4),V(15,7),J(52),C$(52),T1$( *************!*M059109*"YOU ARE DEALING "C* 5920X*"I AM DEALING "b* M1Mh*4~*>"YOUR CARDS ARE"*H*f COMPUTER'S HAND 1-6*p PLAYER'S HAND 7-12*zI16:J14*M(I,J)D(I,J)*Y(I,J)D(I6,J)*J+"(";)JI1,)D"YOUR CARD IS THE ";C$(D(I,1))O)l" MY CARD IS THE ";C$(D(J,1))g)vD(I,4)D(J,4)5820)D(J,4)D(I,4)5790)"CUT AGAIN ")5630) - COMPUTER DEALS)M0)) - PLAYER DEALS)M1))************* DEALD(I,3)((J1)13)10(D(I,4)J13((J1)13)W(D(I,2)10:D(I,4)10D(I,2)D(I,4)^(Id(|(******************(** CUT FOR DEAL **(******************("HIT ANY KEY TO CUT FOR DEAL":20:(X(X(16384))(I(50(1)2)P4:'PP3:)'J(1)1J(2)15370A'J(3)1J(4)15370G'a'"********************{',* SHUFFLE THE DECK *'6********************'^I152'hJ(52(1))1'rXZ(J):Z(J)Z(I):Z(I)X'|I'I152'JZ(I)'D(I,1)J(00&dJ(2)1J(3)153802&nJ(1)1J(4)15370J&xJ(1)1J(4)15340X&S45330f&S35320~&J(1)0J(2)05310&J(2)0J(3)05310&J(3)0J(4)05310&PP12:&PP9:&PP8:&PP5:&S35360&PP6:'P SORT HAND INTO ASCENDING ORDER*%I147%JI15P%W(I,4)W(J,4)5140]%XW(I,4)o%W(I,4)W(J,4)|% W(J,4)X%J,I%- CHECK FOR RUNS%(S0:I14%2J(I)W(I1,4)W(I,4)%<J(I)1SS1%FI%PS25400&ZJ(2)1J(3)154VS15PP29$`- CHECK FOR 2/3 CARD 15 SUMS AND PAIRSD$jI14Q$tJI15m$~W(I,2)W(J,2)15PP2$SW(I,2)W(J,2)15PP2$W(I,4)W(J,4)PP2$J,I$- CHECK FOR 4 CARD SUMS OF 15$I15$SW(I,2)15PP2$I%-#W(I,3)W(I1,3)4930"#IK#- CRIB SCORES ONLY FOR 5 CARD FLUSHZ#C04910d#PP4}#W(4,3)W(5,3)4930#PP1#$4930#.W(4,3)W(5,3)4930#8PP5#B- CHK FOR 5 CARD SUM OF 15#LSW(1,2)W(2,2)W(3,2)W(4,2)W(5,2) $THE 5 CARD HAND*"f*********************h"p- CHECK FOR A JACK OF SAME SUIT AS UP-CARD (EXCEPT CRIB)p"zP0~"C14810"I14"W(I,4)114800"W(I,3)W(5,3)4800"PP1"4810"I"- CHECK FOR 4 OR 5 CARD FLUSH#I13$(D(13,1))!I14(!W(5,I)D(13,I)/!I=!T9W(5,4)R!W(5,4)114680`!M04650x!"2 POINTS FOR ME "! S1S12!S11211490! !*"2 POINTS FOR YOU "!4S2S22!>S21211490!H!R*********************"\SCORE I) I K0 I1J/ &J(I)P944209 0KK1E :B9I(I)L DI[ NK14450c X:i b l******************** v* GENERATE UP CARD * ********************  384:"THE UP CARD IS THE ";C$(D(13,1)):380  !UP$CVE T(FER M(RNM D(EL C(AT K(LOK U(NLK V(ERF X(ALL Q(UIT ----------------------------------------VOL PG OF SECT-FREE N(DRIV ---------------------------------------- $% 0 4'  `` C iiLح) 0JJJJ 0 0`% $ B2 3 3 Hi&eh Li`$3  ɍ ` X̅0 ` APPLE PI PROGRAM LIBRARY L(OAD R(UN S(ARIFY\  2m2R&QPNQmRJnPmPee2`8322 ` :` 3^څ6789 Q H Ȓ @^38JJJJi 0`6798 Q`Hɍ3h`` 6  H5/5 s r > a ` `$$(ɠ$I $4 ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START A$\ LENGTH L$\,D\I/O ERROR\VELLx4 6 s j S5 B ꐭ5 L L P65 s j00   L222  Lx SO qLЪVТ2'56 s j S" $ j q L :L9% 5 I8Mt;=CH?JÍ QVQT_ɔ%8^7Z9[:^Z_[ 04 q1  )ȹ)ȹ)   L jɠ 0   LL M4'4В  X5 QLi\ Ot `в%_ `%_ `б%_ fijk%ijk&_ ~ _  q\@ , qqвq`%__  qвqв _t = `%_ S(ȠҠӠ)&@\T q`@9()%_j _  ]q\n q\ qq 8 \n бqбq\ BB `б%_V `%_L q\@ qqбq_` L qбqб _B 8V `%_` S(ȠҠӠ)&@\T q`@9()%_8 ` qqj \n вqвqΠԠ)UVWY\T RS(ȬӬĠҠؠ)&@\T `@:()%_ qq\n бqбq\ #`б%_ `%_ _  qбqб _  ] `@9()%_ $ `@:()%_ C. `%_бqбвqбq `%f`d%fDijklmnijklmnijkq.?6?r.?6?r^lmnlmnijklmnijklmnijkY\@ _  ]0oa(ՠſٽӠν)R@f\T 2p`@:()%_`%_zqq\@ _,zqoa(ՠԠŠ)UVWY\T  `%_qq\@ qqq\ _ -`б%_qqUVWd$fбqвqqqqq>]ӠϠUHqq\n qqq\ q\n qqqqq >R\n `%qбqбq\ q`%_R=\`%_oa(ϠՠԠ<a(Р)GYcUVWY_9`$h Loa(ŠӠ)FE(ҠҠԠ)G UVWq.?6?rYT`$r `%Q& \T fUVW&ij'kY9*fij'kij'k'UVW4-rqY54q)YO44rKM6oP a(ŠϠ)ca(ŠŠǠ)cSa(Ƚ)a(ӽ)a(Ľ)a(ؽԨŠĩ)a(ϠԠӠ)'ca(ŠԠҠ̠)GT`d$`%Q>M6UVW@}*U*ujU*+U`say@s~?@@O(@@@X@@P*U*}+U*U*U`vp~ pp@0 @`2@qn@3fpD3x_x>`@aO@`Ah|anp3?6@fL3~Icc, hByG~ @?||d o_3 `?Fתժ?s `x?xs1&LyOq_ 3z3pLjF|@?w~`x?3dlO_e3vժժp> ` 8`?{fL~|G}C|wsC|gyG}ws?~|yy~?3D)? 3fժժ~?`s8|GvMxa<22fLL3fL3&2_?`f`\ 3d|ժ|C3fLfLw|oy~p~wtOpq~gg fLc?fLiy~`@o@` `~@Ox;>f f |3fL)hl{~@x|Co_`_fL!fDhYתժt~?xwgL3zgwfL9x??pY?v~?rxogLcNegLժժp> ` x@f8p3fL3&@CgyOgyosgygyOos|x|Cx?eL s,?PLiժժ~?`at3rO/xa f@3&~ fL3ZLcc /?|gc]D<9fL%`Lyժ|;dL3&@3b @?w?_w|`Os@3f _3`>z~`@po@`<0|y>@f@3xCd *h  x_fL3@`xgyOgGqggyOGq?~x?~~G{?3f ?p3fժժՇ?`|sG /&/~A7PfL| <0FA1?qo?fl]~1;3D3B|3fL#bL `s_sQ8           ZQZ Ȓ :L s ?LُL7^8_9Z:[`1'8tp`8M``i^j_kZl[`28tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?ՠ)~~>@f3dOfL|w'~~@?@`o oS7cLsMs?@36x 2>~s@Pds?0fLM|y~_3zdpψF@b 0~?><|O3FL|_3| y`?NfLIfDf `?|gc|x@?@`oMpoy7f3fd1fdC4 I\~s @ yC3 ~x~fLy[fppY@?l X~??||fL3xfL|xa`@#||x?~y` eo?|OLiժժ0 ?fx0~c||y?fL,&>`Yժժ~?`gt[0|?JGLL||0fL3FD& c?pggL.~>@lxcL1&|ժժ8<'FL3f@f|gygys}gygyOs}?~?|?fp@3?3fL3r`o+|p@@`M/@77f&BC}McgL02@?XR|g~ @~<|fL^?~~_3rY3p_F`@?s F??ty?3FLy_3|"xÈfp@Oq~x~| f`o?x3fժժ ` x?{L@cg?|?g{|||x@?3&F?`Fժժ~?`sLaS_I3V0fLqL3fL3d2gx?pp1fl>~Mp32qժժ>`|G3fL9f ~Gyrgxs{gxGyOs{|DhN|fL1|HfLy`OI}`@_@`H!_7wf&f 1fl#`hC\}G~ @~|?3N`?~_eLaf pYߪݪ`?t @s??|{dL3z|&x?0xix@w@x?>~3 hO`qoLqժժp> ` p?fx3x~~~x~Cq~x|9~s<~?cL3"?`cLIժժ~?`gt@adW]a,8 &H3F3fL3VD` G`Ci?>^edL!fDժժ|7bL3f3`|#xGp|x|#x|x?~Π`$]ŽԠ`$)q/?dr`2$qqq0]ƠŠΠԠ͠ƠŠƠŠqqqY`$_h`$0$]ϠɠŠŠž `÷ӠŮƠϠŮ`$ q6$]ƠѽΠԠŠ7]ˠϠŠƠΠԠ٠ӮƠϠ]ԽҠƠ\`$q.?8rr(]ԽǮԽԫq6qqU]ŽǠƠV]ج٠̠W]ԱҠԲ^q hqrUVW|`-8rr$=}]ˠϠŠƠŠӠŠԠج٠ƠԠ\V;]ˠƠԠϠŠƠӠͽҠƠӠΠŠqqqK=`%\n`÷$a(ՠŠˠĠՠϠ)`7%\Z_ "`÷$(,a(ŠҠӠLJ)6\]7`7÷$J`$T @q JԱqԲqT-rqY#-rqUVW-rqY-rq-rq-rqUVW-rqY%-rq-rq@p()UVW@-rqY'-rq-%rq-rq-$rqqqqF]нͮӠнͮ%÷q$]Ơ÷ΠРӠJ]ƠͽΠӠЮӠΠƠͽΠӠРӠq6q@p(®)]ˬ?]ӠŠح٠ӠӠР#-rqUVWi]j]SnLfUVW'lm'nYfUVW'Xlm'nij'kYo]נx\^\x[aa(ϠՠԠϠȠŠ)S(٠ƿ)&@`7;@r%@p()`@*#r9())o Pa(٠Š)od"eFZoS(ϠՠԠӿ)&@`7;@r$Z`@*#r9()%q0dO4@rD4rD4rC@"rC@"r_e]ԮԮf]Ԯآ٢Ԯg]ŠƮ h]Ϡe.? rYE2dedeFde_dePUVWde.?rYE<deddeFdePdeUVWde.?rYFUVWd e.?rY,K]ӠŠΠJPoP a(Ϡ]Ϡ]Π٠Š̮]ź] KM6N@"rqqq EdededededUVWde.?rYE(ded ed eFd eFUVWd       @l> fLp'f fhdw'~?@`g,o[7 f\ 3fx1ft!d ?~{pwL3`ys?bLyIyNpYl x@|>y'fL 3~fLy<|q~`@D@px?~xOsdLO?xGLiժժ<@<et/`s/xswy?&@ f`YժժOtgGocMF;oLfL~xׯ| fL3FLL `?pwoL cox<cL1rժժ0 &L3f #f~gyOpgyOp5`-r$deded ede5`-r$dededede5`-9r$d0ed1ed9ed*e5`-@r$d>ed6ed7ed-e[]ĠƠ ]<ijklmnlmnghghf&ijklm"ngh=fl#m'nl#m'ngh#gh%gh'[2@p@*#rq<@r<()r`$[ w_]̠Šrf |ijkgh&ijkghijk fijk l mngh ijkf&lmnlmnghf<ijkghijkghijkfө(`-8rr$q_" q9"fѹq88rrѰq88rr\[,q8rf-]נӠ+6ijk`#%[ijk[^f&hlmnghijkԠӠ)E@E()FE()G`%a()Gc`$_+`%@p()`%@p()[K`%q`%q\a@E(ӠŠ)oa(ĭ)Q&UɹVWiѹjѹkѰɹYɹ[.]Ӡנqq\" M6<a()GUڱVWa@*ڱ#ڱrE()GYڱccd"e[q_")\a@E(ӠLJ)_6 \a@E(Ԡ)_,\a@E(̠Š)FE()E@*#rUVWY_NHa(ԱWa@*ڱ#ڱrE()GYڱce]ԠԠĠԩXnUڱVWbڱGUڲVWa()Gq-ڱڲra@*#rGYڲcYڱc[xqqq\""y]נ̠Ӡөqq\"qqq\"$F`-8rrԱ$`-8rr$F_ qӳ`$F qqU˱VWӳ-8rrqԱ(`%\,`%\2qq<Y˱FYP[Zc,da()GUڱVq_t q$UVWq-rq-r5] ϠԠҠƠӠԠΠŠqqӳq$`$F`-8rrԲ$F#ӳqӳqq$`oa(ӠҠŠ)Q'VqUرV6WUٱV6WIW] ϠˠƠԠϠŠӠŠƠŠΠ̽,``ررٱٱ$t$j`-8رr8ٱrrԲ$~ tYٱZر[ ~رqٱqq q_"UʹVWYʹKM6o P a(ŠҠ)o `÷$6a(ՠŠ)FE(ӠĠɠŠ)FE()`$8$`$B .a(٠ɠΠԠ)_ 8a(š)_LBa(ՠΠ)!Lf`$z4pa(Ԡŀ΀Ԡˠ)UVWY_ zq `÷$)a(ԠӠՠ)FE(Ơ٠) q\%qqq `7%\Z`@$]ˠҠĠƠq]ӠԠ5*a(٠ԠԠӠ)UVWY_4\V>`$R(?]ӠԠԠϠŠƠЮӿ6Ha(ԠԠϠŠƠ٠)UVWY_ Rq6>\\]נ٠ӠΠŠԠƠΠ̠ԠŠR@`;@r$\@p@*#r`$5S(ŠՠǠҠο)&@`7;@r%@p()`@*#r:()$ `$ qq_")qq<@r<()r`$ `-8rr$4!%bqqq l`÷$*va(ԠӠŠ)FE(ƠҠ) `$\Z`@$]ˠҠĠƠ ԱqԲq`÷%q `÷$"!a(ҠŠ׬̩)G)]ΠǠŠ$"a(ɠŠϠԠ٠Ň)2]ƠڽΠΠԠĠĠĠ`$q&_ 0q :`÷$(Da(ɠ̠ŠϠ)FE()E@*#rNqqq\X`$z-Y]ˠנ٠ӠΠŠԠج70/((AE)2) (S((AE)2,(BH)2)0)1750C (AE)11750u"YOU CAN ONLY JUMP YOUR OPPONENT (ME)":1630S(A,B)S(E,H):S(E,H)0XE:YH:1900XA:YB:S(X,Y)1İ1950S(X,Y)2İ3000(EA)21810 X(EA)2:Y(HB)2:S1670#^ (7)(11);:1590 : "TO";A,B:XA:YBQS(E,H)2YH1675t"YOU MUST MOVE FORWARD":1690 X99Y991630 X0X7Y0Y71690S(X,Y)0(AE)2(AE)(BH)1700 (7)(11);:16X20X27Y20Y271500.S(X2,Y2)0ī1465DX:S(I,J)1Y1KYTJ,IbE11590E$"00520052005100520082007100720051005200310053":MS$"ZAP - YOU LOSE!":EN1:18826"FROM";E,H:XE:YH:X0X7Y0Y71630;S(X,Y)01630@1400)dS(U,V)0S(XA2,YB2)0İ910/x5=E0^I07:J07:S(I,J)11520Y112:X112:X1IX:Y1JY:X10X17Y10Y171500S(X1,Y1)0ī1470E1:J7:I7:X1:Y1:1500S(X1,Y1)01500X2X1X:Y2Y1Y:)R(3))214209(X(R(1)R(3))2:Y(R(2)R(4))2:1900F2S(X,Y)0x<XR(3):YR(4):S(X,Y)1B2:A224:1370FS(X,Y)2āA224:B224:1370:BPA:R(0)99ĺ"TO"R(3);R(4);:R(0)99:1240U1420ZUXA:VYB:U0U7V0V7(3):YR(4):2050:S(X,Y)2:1310>S(R(3),R(4))S(R(1),R(2))VXR(1):YR(2):1900hXR(3):YR(4)}S(X,Y)1İ2000 S(X,Y)2İ2050XR(1):YR(2):1900XR(3):YR(4) S(X,Y)1İ2000!S(X,Y)2İ2050"S(R(1),R(2))0:(R(1UC0UC7VG71080LS(UC,VG)0(S(UC,VG)0(UCXVGY))QQ2~8C:QR(0)R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)VLQ0:tR(0)991880(30)"FROM"R(1);R(2)"TO"R(3);R(4);:R(0)99 XR(1):YR(2):1900R(4)0 1250 XRS(U,V)0İ910:870)S(U,V)0870NUUA:VVB:U0V0U7V7870aRS(U,V)0İ910gfV0S(X,Y)1Q Q2(YV)2QQ5Y7QQ2Y0U7QQ1C112:UC0UC7VG01080 S(UC,VG)0QQ1:1080) S(X,Y)1İ1950* S(X,Y)1İ20003 Y,XE PC0 1420f X07:Y07:S(X,Y)1350y S(X,Y)1350 6S(X,Y)1āA112:BG:650:A JS(X,Y)2āA112:B112:650:B,A ^Y,X:1140 UXA:VYB:U0U7V0V7870 f34,21: 2,352 : 2,3535: 2,352: 2,3535D h I13 32 4V jC11C10C1` lA1C1t n J13 32 4 pA11A10A1 r A1 t K10 3: I1,I13J1K1 v K1,J1,I1 x X0 7:Y07:J:J15180 S(X,Y)J:190 :S(X,Y91,5:792,206:793,36:794,3:795,240:796,6:797,206:798,9f b799,3:800,76:801,10:802,3:803,96w c : 5:A$: dPC1PC0:CC6:"YOU ARE BLACK AND WILL GO FIRST":; ePC2PC6:CC0:"YOU ARE BLUE (RED WON'T SHOW)":"AND I WILL GO FIRST";0PC1PC2700 P R(4),S(7,7):G1:R(0)99\ Z 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 _A$" 0 1 2 3 4 5 6 7" `778,173:779,48:780,192:781,173:782,8 :783,3:784,32:785,168:786,252:787,173< a788,9 :789,3:790,208:7E LOWER RIGHT CORNER"< <"(7,7) IS THE UPPER RIGHT CORNER"` ="THE COMPUTER WILL TYPE '+TO'" >"WHEN YOU HAVE ANOTHER JUMP." ?"TYPE TWO NEGATIVE NUMBERS IF" @"YOU CANNOT JUMP." A::: F"ARE YOU PLAYER 1 OR 2 (1 GOES FIRST)": PC G :::) 11);"CHECKERS"3::Y "THIS IS THE GAME OF CHECKERS."}#"SQUARES ARE REFERRED TO BY A"("COORDINATE SYSTEM AS FOLLOWS:"-"(0,0) IS THE LOWER LEFT CORNER"2"(0,7) IS THE UPPER LEFT CORNER" 7"(7,0) IS TH        Ϡ]Π٠Š̮]ź]Ԡ]ҠҠ]Š]̠Π]Šө-rq -rq -rq 1ֹq6'ɹqUشVWθδqƴq-شrd%Դq-شrƴdƵq-ƴrԵq-Դr,]ĠӠŠΠԠή qƴ\@-Դrq-ƴr-ƴrq\(#`δֹ$ֹqδ-rq-rq -rq S-rq -rq -rq -rq S- rq- rq- rq - rq S- rq r$θqθ-θrq-رr-rq-rYرY"UVWc`-r6$\@`ι$7UرVWιq-رr-رrdd-rq-rYرY_ ]Š]̠Ǡ̠S-rq ƲԲq Բ\h\_dx]̠̠zθqqR}UرVWc-رrq-رrq`-رr%qر`-رr6%qرYر;UVWc`-r$`-r$\@`ι$4UرVWιq-رr-رrdd`-$Z1U-rq-rq-_rq6-`rq6Z\']UVWx-rq-rqY_`$dԲq_d]Še\ iڹqn\hs\`$t͹q͹`͹$xu`Բ$x`%_x&vƲq- rq6 - rq6 - rq6 - rq - rq -rqH2-rq-rq6-rq -rq6 -rq-rq6F7-rq-rq6-rq-rq -rq-rq$<-rq-rq-rqP`ϲqF-˲rq6-rYE-rq -rq-rq -rq-rq-rqE#-rq-rq-rq-rq-rq -rq S(-rq6-rq-rq -rq6 -rq-rq-rq6S--rq rp()@Brp()@Brp()@p()-UVW˲qc-rq-˲rqY.UV W'˲q2-rq-˲rq6Y[-rq-rq-rq-rq-rq-rq-rq-rq&UVWD4r O4dr UVWx-rqY#UVWc-rq-rqY8UVW رq زqر-رrq-زrqY$N@" rC@"rC@"r{@Brp()@Brp()@Brp()@Brp()@Brp()@B"\'LS(ϠՠԠӠ٠ҠΩ)&@`@:()@:()$`@9()%\0uqM60S(ҠϠ٠ŨҠ˨)' qO4crD4crO4rD4rD4rO4r O4Fr O4xrD4xrD4xr           255)1:778:H0CR(16(1)): R: 0,39J:R(16(1)): R: 0,39J:\DII1II39(II39):JII:17200:17000:J39II:17200:17000:MMMM1:MM30ıpD17500 1X1,1Y1: 11: X11,Y1: X1,1Y1:5 PC:2060?X48:Z1(E$)4:I03:R(I)((E$,ZI,1))X:I:Z1R(0)R(1)R(2):Z240Z1:776,Z2:777,40:804,R(3) ?(778):Z:hBH3(30(1)):THH5H2670:V32767T:776,H:777,V256(V256):804,(V36,13:MS$:50,255:EN1İ16150:1890;_ I04000:II:IVb1233:936:50,255:d48 11r48 11zl 1vY17Y:J101: 4X4,5X4J14Y14:J1: PC:Y17Y:1910 CC:1910 CC% X14X4:Y14(7Y)4: X1,Y1:( A1A)11890> "YOU CAN ONLY JUMP YOUR OPPONENT (ME)"J1840 mEA:HB:AA1:BB1:II15:1750{B71815230XA:YB:3000:S(X,Y)2&2300(7)(11);:1800XMS$"YOU HAVE WON !!":EN0Z17500%]936:50,127:::(X,Y)0:1900 B7 18000XA:YB:3000M"+TO";A1,B1: A101810e S(A,B)2B1B1803 "YOU MUST MOVE FORWARD":1840 A17B10B171840 S(A1,B1)0(A1A)2(B1B)21840 ((A1A)2)(S((A1A)2,(B1B)2)0)1809qι-ιrqdɶ ɱqɶ `-ɱr6-r$_`-ɱr-ɱr$ιqι-ιrqdɱCɱqɶ `-ɱr$ιqι-ιrqdɱɱqɶ"`-ɱr -ɶr$ιqι-ιrr`-·r$:%ɸqɸ˸q-ɸr`-ɸr$  YL[?@`-r%[`-r%[ιqԱq1?-rrɸq-Աr˸q-ɸr&^`Ա$ ɶq-rԱɱqɶ r`-ɱr6-ɱr$|v_&|`-ɱr-ɱr-r6$"¸˸`¸$`-¸r$4`-¸r$!.6q1?-¸rr`$8`ɸ $87`ɸ $8_#8q-¸rq6˸·q:·q·`-·r$8<`$>-·rq-·r`-·r$:_$>-·rq-a()G YZcca( àĠŠƠǠ)cc[!L]ŠӠנĠ N]̠Ӯ"W]ŠӠ׫ ҠXUV6WXɸq-r˸q-ɸr*`6%qƴ`%qԴ ¸q'!¸q)G`%a()G_`$,`-r%a()G`-r%a()G_'`-r%a()G`-r%a()Gq1?-rr`%a()G`%a()G`%a()G`%a()G`%a()G`%qԱ8 Բr |-Թrq-ƹr -ƹrq[]Ԡ M6UVW ccb GUV W  `-r$`$6`%a(ؠ)G`%a()G_6`%a(`rq-crq-brq6-arq6 [1-\rq-_rq-^rq6-]rq6[6`$J1;-`rq-\rq-_rq6-^rq6=[1J-_rq-crq-`rq6-arq6L[hƹqƱ8 Ʋr r԰`;@r$UVW%`@*#r9@*#r%Ʊq%`@*#r9@*#r%Ʋq%`@*#r9@*#r%Աq%`@*#r9@*#r%ԲqY$`ƱƲԱԲ$[`$1 -'Ʋ'Ա'Բ`ƱƲ%_\h\_&]ԠŠΠàa(Ҡ)a(ح) R@`;@r$,`;@r$`@*#r9()$6+`;@r$`@*#r9()$ƱqƲqԱqԲq-r$H  `-r-r$H  q A -rq-rq-rq-rq\a()_d'H `%q_]ĠUVW&q.?6?r.?6?r.?6?r.?6?r Y[TƱqA& -rq-rq-rq-rq\a()_d `$  `-r-r$H  `-r-r$  q@ -rq-rq-rq-rq\a()_d `$H  `-rr$  `-r-r$H / -rq-rq-rq-rq q \a()_d! ]ˠҠΠŠ  `-r-r$H ! `$H )# `-r-r-r$H  $ _d ] `͹%_H  q A UVWcq-r`%q`%qY `-r$H  `-r$H  `$ ]Š ]ˠҠǠŠ `$  `-r-ƲqԱqԲq_`͹$$ ƱqƲqԱqԲq_`͹$$ƱqƲqԱqԲq_`͹$$]ŠǠ$ ƱqƲqԱqԲq\h !ƱqԱq\h\_d$_d\h\q`-Աr%q`Ʊ%q`Ʊ%q6a(͠)FƶFƷE(Ϡ)FԶFԷ7\8c@_d`Բ$x͹q͹`͹$x`͹$$ƱqƲqԱqԲq_`͹$$ƱqƹqƴԹqԴ-ƴrqƵ-ԴrqԵ<ڹqڹ`ڹ%ڹqPoڹbƴE()FԴE(ֽ)FδYشkƱqƹԱqԹ-Աrq-Ʊr-ƱrqƶqƱƱ  Ʒq Ʊ ԶqԱԱ  Էq Ա `Ʊ%q`Ʊ%r Ųr1? Ųr%ұqұ`1?-r ųr1? ųr%ұqұJ`-r%ұqұ9T`ұ%[`ұ/?r%[UVW -rq-rYqұ[ ]UVW#-rqY\@qqqбqвqd"-ӱr8-Ӳr-Ӳrr$"ҳqd`-ӱr%ҵq9"YѱYұqұҲҳҴҵ`-r-r%ұqұW,`1?-r-rr$6UͱVW`-8-ͱr-ͱrrr%ұqұYͱ,6`в-rб%ұqұұqұ/?r _@`1?-%ұqұ_,@ҲqҳqҵqӱqUVW XUѱVW6X6Jӱqӱ`-ӱr6$"Ӳq-r8ѱr`ӲӲ#Ӳ $"I`ѱ-r-r $`8-ӱr-ӱrr-Ӳr%ҲqW`ѱ-Ӳr$"`ӴqӲ¹q-r?UѱV¹W`8-Ӵr-Ӵrr-ѱrӴ-r$5ӵqӴ-ѱr`ӵӵ#ӵ ӵ-r$IӶqӵ-ѱr`ӶӶ#Ӷ $`-ӵr-Ӷr%ҷqdYѱ7Y`ҵ$ұqұҵҷ`-r$8`ӱ-r%-rq`Ӳ-r%-rq_I`ӱ8-r-rr%-rq`Ӳ8-r-rr%-rqM`8-r-rr-r$`-r-r$_+ҵqd`-r$Ӵqӱ¹q-r_ȟ2 _(#d]Š7nqұ`%q`ұX%[ҵqҷq`ӲӲ$Ӳ %-rq-Ӳr`1?-r-rr               ̠ӠĠ٠٠)a(ŠŠӠϠή)Guc(Hua(Ӡ٠٠ϠŮ)c\g+ Ju`.?6@r$Jud6?e[wQӠŠԠΠԠƠ)a(ЧӠή)T:ua(ϠŠΠŠǧӠŠ)a(ՠĠϠӠŠϧ)eDua(ĠΠŠΧӠŬ)a(ϧ)a(ŠҠӠԠˠ)VFua(ɠӠŠĠӠŠ)a(ˠƠŠǠά)T6ua(ΠŠĠˠƠŠ)a(ήԠŠ)U8ua(ŠǠĠŠǠϭ)a(ӮҠŬ±ó)E9ua('c''a(ҠӠ)'c'\g+'c$'[g+UVW&a()GYa()[:.]ŭàӠ٠ˠΠ70uM6\g+ca(ӠӠŭàӠ)*2ua(ˠήŠӠŠŮ)S4ua(rY $]ӠҠĠҮA $δqδ-7r-8r-Ar-Br-7r-8r-Ar-Br$]ԡ$`-r%δqδ$`-r%δqδ$`-r%δqδ"$`-r%δqδT$['Q 'M6'\g+$#`Ե$#,#`-Դ r6-Դ r6%δqδ#δqδ-1?Եrr#`Ƶ%δqδ#`Ƶ%δqδ  #δqδ >#]ӠҠǠӠĠŠӮ#UVWq-r#δqδ-r-$##`-رr$#I#`-ر r6%δqδ--رrr`-ر r6%δqδ--رrr)#`ö-رr%δqδ-6-رrr(#`ö-رr%δqδ--رrr#`-رr$#-#`-رr%δqδ`-رr%δqδ2#Yر#`q-رrYر97#UرVWιq-رr-رrdd-rq-rYر <#qԴ\@9A#UرVWιq-رr-رrdd-rq-rYرF#\X$#UرVWcq-رr`$#(#`-رr-رr%-رrq-رr#öq-رr-رrδqδö#`qdɱ[ ¸q ¸q¸˸`-¸r$   `¸c¸-¸r$ + ιqι-ιrqd¸'2 `-¸rԱԱԱ$ : _ % ɸqɸ˸q-ɸr`-ɸr$ 4!['#]Π-(#UرVWc-رrq-رr-رr-ѱrѱ$ -rqѱ84 UĶVW°q-r-Ķr`# $ ]> `8-r-rr8-r-rr8-r-rr$ `-r-r$ PH ѱq-Ķr`ѱ-r$ `ѱѱ#ѱ $ `-ѱr$ -rqѱ8R-r$ 6 `ѱѱ#ѱ $ `-ѱr$ -rqѱi UĵVW°q-r-ĵr`# $ `8-r-rr8-r-rr$ R `-r-r$ ѱq-ĵr`ѱ-r$ `ѱѱ#ѱ $ * `# $ `-r-r$ U ѱq-ijr`ѱ-r$ `ѱѱ#ѱ $ `-ѱrѱ$ -rqѱS UĴVW°q-r-Ĵr`# $ `8-r-rr$ 4 `-r-r$ ѱq-Ĵr`ѱѱ-r$ `ѱѱ#ѱ $ `-ѱr$ -rqѱO UIJVW°q-r-IJr`# $ `-r-r$ P ѱq-IJr`ѱ-r$ `ѱѱ#ѱ $ `-ѱr$ -rqѱO UijVW°q-r-ijr`qİq-r-İr`# $ `-r$  -rqұqd\d_ I `-r$ q-İr`# $ `-r$ -rqO UıVW°q-r-ır`# $ `-r-r$ P ѱq-ır`_ al ҵqd`-ӱr%ҶqUѱV-ӲrWӵq-ѱr`ӵӵ#ӵ ӵӱ$ ?v Ӷqӵ-ѱr`ӶӶ#Ӷ $ `-Ӷr$ ҷqd Yѱ YҴqҴҵҶҷ: UVW -rqY-rq°q-rİqA İ`-r$N ҴqҴ2`%ҴqҴ )N `%ҴqҴҵqҶqҷq_X UVWӱq-r`ӱӱ#ӱ $ Ӳqӱ-r`ӲӲ#Ӳ $ Eb `-r-Ӳr$ `-ӱr8-Ӳr-Ӳrr$l _: > Ҵqd`-r%Ҷq`-ӱr$ ӴqӲ¹q-ӱr_  Ӵqӱ¹q-ӲrE UѱV¹WӵqӴ-ѱr`ӵӵ#ӵ ӵ$0 I& Ӷqӵ-ѱr`ӶӶ#Ӷ $0 `-ӵr-Ӷr$0 ҷqd0 Yѱ: YҴqҴҶҷ;D ŲqŲűųqųű' UVW -rqYq6q. q`-r$ ҴqҶqҷqX UVWӱq`ӱӱ#ӱ $: Ӳq`ӲӲ#Ӳ $: F `8-ӱr-ӱrr-Ӳr$ `-Ӳr-ӱr$  _ 0 `ӱӲӱӲ ӱӲӱӲ $  `-8ӱӲrr$  _   KM6Q ]ŧӠ űqŲqųqq` UVW#`-r-r$ ŲqŲ ųqų űqű`-r%q Y-Ӳ r-Ӳr$ d _  ]Š$ `.?6?r$ UVWY qӲq-ӲrӱqӲ/ a(ՠŠҠРŠŇ) q\ Ӳq `- r$  `-ӱr$  `ӱӲӱӲ $  q` $ `Ӳ $< 1 `8Ӳr -Ӳr-Ӳr$ ( `Ӳ $< 12 `8Ӳ r -Ӳ r-Ӳr$ < `-ӲrӲ$ 1F `8Ӳr -Ӳr-Ӳr$ P `Ӳ$ 1Z `8Ӳ r ӱr-ӱrqt `Ӳ-Ӳr$ ~ -Ӳrqq q\ c _  ]Ġ -Ӳrq-ӱr-ӱrqq `Ӳ-Ӳr$  -Ӳrqq qq-Ӳr\ q8ӱӲr-rq q \c $U°VW-rq-°r`# $z@fѱq-°r`ѱѱ#ѱ $z`-r-ѱr$zQpa(ŠӠէŠĠϠС)q \qq\_zY°`#$\` ]Ġj -Ӳrq-`-r$0 a(ՠΧԠŠԠҠ)_*qq-rӱqc4q\ Ӳq>`- r$R2Ha(٬ԠŧӠ٠ć)_4)R`1?ӱӲr$ q\cqX\q`-r-reoLq7`$'Va(ԧӠ٠ΠϠŠԇ)_ a(ԧӠҠŮ)]ҧӠqq\ q>qq-r`# $`-r$ 'q-r`# $ `7-r$*>r-r%qS: qq`%q6`%`=>r-r%q6H? `%`=>r-r%q6qq(D `=>r-r$N ]F `6%q! q2?r`1?r%qk& q q@q`7$N q q `%q)0 q6`%q`7$: _5 `%`=>r-r%q`%`=|[]Ԡ9q8r q f-r5ijkijkijk` $4fghghghgh[ ]à! q2?r`1?rqq`^lmnlmnlmnlmnlmnYZHhqUVW-rq\YUV W -rq\YHrqUVW-rq\YUVW#-rq\YҬ)cc,\a(ՠΠ)FDzca(ɠΠ)FDZo=fS(̠ՠ٠Π)&@`@9()$z`@*#r9()%Qa(ɠΠ) Hco ERa(ԠƠ)FDZDzE()G`DZDz%a()Ga(ĠϠTa()G_r^a(Ԡ)G_rha(Ԡ)G rUVWa()GY[X]ҠӠbqa()_]ĠƠ a()GUVWY KM61a(ŠŠӠҠŠŠŠӺ)c+a(Π)Fca(a(Ϯˮ)G[a()G[a(Ơ)G[a(Ӭġ)G[a()G[a()G[a(٠Կ)G[a(̠)G[]š "ôqô_" ô,a()G_r6a()G_r@a(Ԡ)G_rJa()G_r Zòqò_Z òda(ͮ)G[na(ȡ)G[xa(Ơՠ)G[a(ԧӠԠš)G[a(ԠΡ)G[a(נԠԠԡ)G[a(ΧԠȡ)G[a(ԠϠԡ)G[]Ġ óqó_ ón$P`L$_]Ġ ñqñ_ ña(ȡ)G[ a(Ԡԡ)G[a(ՠԠš)G[a(ՠԠŠΡ)G[(a(١Ϡҡ)G[2a(ȡ)G[<a(ӡ)G[Fa(Ȭϡ)G[P]ҠִT'Jq-r`# $^T`7-r$^`±$@h`#$6c,rS(ՠΧԠŠϠՠŠ)&@#|`@9()$X`@*#r:()$X3a(٬ՠŠϠŠɠΠ)_]Š)`7$` qӱ\"q-ӲrqqӲ\`1?Ӳӱr$"&q q8ӱӲr\q"Yͱ(,бq-rвq-r` $q,6q±q-r`±±$hq=@qq-r`# $^`-r$ՠΠ)q_\a(٠ź)G4UͱVW `-ͱr$`ͱ%a()Gb-ͱrGYͱcUVWY1UͱVW ӱq-ͱrӲq-ͱr`Ӳ$,L-Ӳrq-ӱr`1?Ӳӱr%-8ӱӲrrq-ӱrq`Ӳ%-Ӳrqq ұq \d Yĸұq \d Yķұq( \d YĶұq` \d Yĵұq\d YĴұq\d Yijұq\d YIJұq@\d Yıұqx\d `İ°$  `#$ ]Š`-r$ a(ɠΧԠŠϱ8p UĸVW°q- r-ĸr`# $ wz `8-r-rr8-r-rr8-r-rr8-r-rr$ `-r-r$ P ѱq-ĸr`ѱ-r$ `ѱѱ#ѱ $ `-ѱr$ - rqѱ UķVW°q-r-ķr`# $ w\ `8-r-rr8-r-rr8-r-rr8-r-rr$ `-r-r$ Uf ѱq-ķr`ѱ-r$ `ѱѱ#ѱ $ `-ѱrѱ$ - rqNS:":8 P"WHEN ASKED FOR A LETTER, KEY IN YOUR GUESS AND HIT RETURN. IF YOU WISH TO GUESS THE WORD, HIT 0 (ZERO) AND RETURN WHEN ASKED FOR A LETTER. THE PROGRAM WILL THEN ASK FOR YOUR WORD GUESS." Z1410 d i nR(50(1)1) xA1Rf!**************************@ADAPTED FOR THE APPLE BY:RJEFF FRANKELg338 FUNSTON AVESANFRANCISCO, CA. 94118 (415) 221-9796 ************************** 1300(Z$(25)2C$(25)< F6:"INSTRUCTIO         (]ŠӠ(]ŠҠԠ(]ŠĠΠ(]ƠȠؠ٠(]͠ΠĠŠZ(]ǠǠԠd(]ŠӠn(]ƠǬx(]ŠŠ(]ҠǠ(]ƠРӠ(]ҠȠŠ(]Ҡ٠ǠʠĠŠ (]ŠׯĠ(]ŠӠ(]ƠǬ((]ŠԠƠӠ2(]ƠӠҠ<(]Š٠͠F(]ƠǬP(]ɸԠ']àԠ']Ġ']Ŭ']Ӡ']']ŠǠӭ']Ӡ']ƠǬ(]j']Ġt']Š~']ŧӠԠ']Š']Š']ŠРî٩']٠']ԠРŠ']-rq-r-rq#_']']ӠĠ$']ĠҠˠŠ.']ϠŠ8']B']ŠŠL']άŠV']ԠҧӠ`']ĠֱW f-rijk$ijk%#PbGYccc #d"e6#S(ȠҠϠՠŠ)'` $###q8r UVWY3#a(ɠŠҠҠ)FGUVWY##q-rò)GXn#a()G0x#a()G#M6|M6%#f- rUV#W&ij'kYG#UV?<#-rq-rq-rq6-rq6DZqDzq{F#-rq-rq -rq -rq -rq-rq -rq-rq- rq- rqP#- rq- rqZ#LM6oXd#a(q`%`=>r$*!:!q`$ !q`(%`=>r$*!%!q`%`=>r$*! !YZ0*!qqqqq=>r[(#]72#O4rD4#rD4rD4 rD4 rD4 rC@" r : q`$ q`(%`=>r$*!% q`%`=>r$*!: q`'$ q`(%`=>r$*!% q`%`=>r$*!: q`'$!q`(%`=>r$*!% hUVW(`.??r$v YAb q`%\fghUVW`.??r$v Y#l `.?6@r$ d6?e_Xv q `%\fgh q [ ]Ġ) UVW#XUVWX6%`=8r>8rr- r$J LH `8r8r$N q6qq_D J qqGN qqq=>rq-r`7%\ BX q `%\fg 0'xA(20,20),I4(8),J4(8),C$(8),D$(2)3}X$(10)@:10:5b"GREETINGS FROM OTHELLO"::"DO YOU WANT INSTRUCTIONS (Y OR N) ";X$X$"N"390X$"Y"160"OTHELLO IS PLAYED ON AN 8 X 8 CHECKER BOARD."% :"ROWS !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     CISCO BY THE AUTHOR. JEFF FRANKEL...1K LAST MOD. JULY 1979Qd  'HANGPERSON'(AS, FANTASTIC, THOUSAND, WHEAT, GREASE, MEADOW, OCILLATOR, CASSETTE, DICTATE, BLANKET, MARBLE, PAPER, APPLE, SYNTAX, ATLAS, LINEAR, MICROWAVE HANGPERSON, BLINDFOLD, GALLOWS, PLATFORM, FINANCIAL, SECTION+ GIVEN TO APPLE CORE OF SAN FRAN;:N$: THUMB, MUSHROOM, AMERICA, COMPUTER, TELEVISION, ATLANTIC, GAMES, HOUSE, PACIFIC, BOTTOM, SEVERAL, ORANGE, CREAM, RECIEVER, INTEGRATED, PRETZEL, VITAMIN, CONTAINER, DEXTROSE, FAMILY, BASIC EXIT, EXCECUTE, PURPLE, SANITY, WIDOW, TREMENDOU **BY**"5<" *JEFF FRANKEL*?F::eP" **FROM THE TAB BOOK**"Z" -24 READY TO RUN PROGRAMS IN BASIC-"d" **BY KEN TRACTON**"nA16000:Ax17" ***HIT ANY KEY TO CONTINUE***"E PRACTICE":"DO YOU WANT TO PLAY AGAIN (Y OR N)";:X$KX$"Y"ī100Q"THE HANGPERSON THANKS YOU, GOOD BYE FOR NOW" ::::::" ***WELCOME TO HANGPERSON***"::(" ***ADAPTED FOR THE APPLE II***"2" EXCELENT! YOU BEAT THE HANGPERSON AND ONLY MADE ";;P;S" GUESSING ERRORS"]1250"THAT WAS VERY GOOD! YOU ONLY MADE ";P;" GUESSING ERRORS"1250 "THAT WAS O.K. BUT THE HANGPERSON THINKS THAT YOU MAY NEED A LITTLE MOR"WOULD YOU LIKE TO KNOW WHAT THE WORD WAS (Y OR N)";:O$l8O$"Y"ĺ"THE WORD WAS ";::W$::A13000:ArB|L:10VP2ī1160`P4ī1200jP6ī1240t"THE HANGPERSON THINKS YOU MAY NEED SOME MORE PRACTICE"~12503"THAT WAS 34,3520::9"YOURE IN TROUBLE NOW!"B500Q LEFT LEG_25,2826m25,2629w::"THIS IS YOUR LAST CHANCE"500 RIGHT LEG25,283030,3129::$"YOU HAVE BEEN HUNG"9.1625,312517,2425,17,24316*::[4"PUTTING ON A LITTLE WEIGHT?"d>500sH LEFT ARM~J24,17L23,18N22,19P21,20R22,20f::p"OH! OH!"z500 RIGHT ARM32,1733,1834,19; lD$v340"PP1BP720,780,840,900,960,1020M HEADT0a26,309o10,1326}10,133026,301425,1031,1025,1131,1128,15::"THAT'S ONE!"500  BODY25,31L A$Z$(A)C$(A)A$ A* A1L= A$Z$(A)ī500D AM 700^ A11500:Ai S$"-"t E$" " A1L ALĺC$(A)E$ ALĺC$(A)E$; &A 0A1L :ALĺS$E$ DALĺS$E$; NA Xb"LETTERS GUESSED "LA XA$(D$,A,1)ĺ:::A$;:" HAS ALREADY BEEN GUESSED":500H ZA ^(A$)1ĺ:::"ONE LETTER AT A TIME PLEASE":500 hA$"0"D$D$A$:430 r"WHAT IS YOUR GUESS";:B$ |B$W$ī1090 "SORRY THAT WAS NOT THE WORD" 500 A1FCHARACTERS GUESSED---A=GENERAL COUNTER---MORE TO FOLLOW AS PROGRAM EVOLVESW L(W$)_ P0j "A1L~ ,Z$(A)(W$,A,1) 6C$(A)" " @A J MORE STRINGS A$=GUESSED LETTER---B$=GUESSED WORD---W$=WORD P500 T"PICK A LETTER";:A$ VA1 W$ A DRAW GALLOWS& , 3 1? A039K 0,39AR AZ 12 8,3139:8,3138:8,3137:1,397:8,311:2,828:8,7:9,6:10,5:11,4:12,3:13,2K VARIABLES---L=LENGTH OF WORD---Z$=CHARACTER ARRAY---C$=RUNNING ARRAY O0 @$ C1C1. C1(64C1)N128 "THAT WAS A ";BB C1112490RL C1252470bV C1392450r` C1532430j "PERFECT GAME"t 2500~ "WALKAWAY" 2500 "FIGHT" 2500 "HOT GAME !" 2500 " A SQUEEKER !!" , " END OF GAME WRAPUP0"YOU HAVE ";9H1;U" PIECES AND I HAVE ";]C1n" PIECES--"~H1C12290H1C12310"SORRY, I WON TAHT ONE."2320"A TIE !!"2500 "YOU WON IT!!!" C1C1H1  C10235ERYTHING LEGAL MAKE HMAN'S MOVE(Z0@"THAT GIVES YOU ";IS1;^ " OF MY PIECES"fU1p 2820*H1H1S114C1C1S1>N1N11H PRINT OUT BOARDR3100\ TEST FOR END OF GAMEfC102190pN1642190z1000 FOR LEGAL NEIGHBORv2620,F111970`"SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES;"r" TRY AGAIN"|1720 CHECK IF LEGAL RUN U12820S102030"SORRY, THAT DOESN'T FLANK A ROW; TRY AGAIN"1720  EV YOU FORFETRING YOUR TURN (Y OR N) ";-X$?X$"Y"1710MZ12190UZ1_1000jJ18}&C$(J)X$18700J:1720D CHECK IF BLANKNA(I,J)01910X"SORRY, THAT SQUARE IS OCCUPIED; TRY AGAIN"b1720l CHECK JS1; T" OF YOUR PIECES"6^ PRINT OUT BOARD@h3100\r TEST FOR END OF GAMEk|H102190{N1642190 HUMAN'S MOVET1HT2C"YOUR MOVE -- (ROW,COL) ";I,X$I01720I81720I01820%"ARE01480("I HAVE TO FORFEIT MY MOVE"6Z12190>Z1H1690] MAKE THE MOVEeZ0}"I WILL MOVE TO ";I3;", ";C$(J3)II3JJ3U12820"C1C1S11,H1H1S16N1N11@"THAT GIVES ME "; S1S1S27 IS THIS BETTER THAN THE BEST SO FARGS1B11380WS1B11340t A TIE; RANDOM DECISION  THE NEXT EXECUTABLE STATEMENT CAN BE DELETEDR(1)(R.51380<B1S1FI3IPJ3JdJnII1:I91070B1`2620jF101380<t FOUND AN OPPONENT OR A NEIGHBOR_~ HOW MANY PIECES CAN WE FLIP?w (DON'T DO IT NOW)U12820 EXTRA POINTS FOR BOUNDRY POSITIONS101380(I1)(I8)01230S1S1S2(J1)(J8)01260 31001690( COMPUTERS MOVE7F201020?X$IB11WI30:J30`T1CiT2H$ SCAN FOR BLANK SQUARE)I1.8J18BA(I,J)01380L FOUND A BLANK SQUAREV DOES IT HAVE AN OPPONENT AS A NEIGHBOR?  *N144Z0&> HUMANS CHOICESIH"DO YOU WANT TO HAVE X OR O";QRCWY\HBafX$qpX$"X"920zX$"O"870CBHW"DO YOU WANT TO GO FIRST (Y OR N)";X$X$"N"1020X$"Y"930 PRINT INITIAL BOARD1,-1,-1,0,1,1,1  bK18& lJ4(K)- vKF  1,1,0,-1,-1,-1,0,1Q K18\ C$(K)c Ky  A,B,C,D,E,F,G,H I1  JO9 A(I,J)0 J II1:I10700 A(4,4)W A(5,5)W A(4,5)B A(5,4)B C12 H12 X$"N"460 X$"Y"410) F21\ :"SHOULD I PLAY MY BEST STRATEGY (Y OR N) ";e S20m X$} X$"N"520 X$"Y"480 S22 B1 W1 D$(B1)"X" &D$(O1)"." 0D$(W1)"O" :K18 DI4(K) NK X 0,-T LEAST ONE OF MY"H T:"PIECES IN THIS WAY IF IT IS AT ALL POSSIBLE." ^:"IF IT IS NOT POSSIBLE, YOU FORFEIT YOUR TURN BY" h:"ENTERING 0,0 FOR YOUR (ROW,COL) MOVE." rA$ "SHOULD I WAIT BEFORE MAKING MY MOVES (Y OR N)"; F20 X$ THAT IT 'OUTFLANKS'"H ":"MINE. CREATING A HORIZONTAL, VERTICAL, OR" ,:"DIAGNAL RUN OF MY PIECES BOUNDED ON EACH END " 6:"BY AT LEAST ONE OF YOURS. THIS WILL FLIP MY" @:"PIECES, TURNING THEM INTO YOURS." J:"NOTE: YOU MUST CAPTURE ANUMBERED 1 TO 8 AND COLUMNS A TO H."Y :"THE INITIAL CONFIGURATION IS BLANK, EXCEPT" :"FOR THE FOUR CENTER SQUARES,WHICH FORM THE PATTERN." " 0 X" " X O" "HIT ANY KEY TO CONTINUE":A$ "TRY TO PLACE YOUR PIECE SOXF2S2BWKIJ C1H1@N1@ZCHT1T2I1J1F1US1I5J5I6`J6@S3K1B1I3J3AD$(A(I,J)1);b Jl !v I' - 3 T DONATED BY KEVIN ARMSTRONGZ ZD  S1S1S3 U13070- UPDATE BOARD6 I6I? J6JL K10S3\ A(I6,J6)T1i I6I6I5v J6J6J5~ K1 K  SUBROUTINE PRINT-BOARD :& " A B C D E F G H"0 I18: I;D J18N " "; X # SUBROUTINE SCORE-AND-UPDATE, S107 K18D I5I4(K)Q" J5J4(K)], I6II5i6 J6JJ5r@ S30J A(I6,J6)T23070T LOOP THRU THE RUN ^ S3S31h I6I6I5r J6J6J5| A(I6,J6)T12970 A(I6,J6)03070 2910 DO YOU WANT TO PLAY ANOTHER GAME (Y OR N) ";4 X$E X$"Y"ī690W X$"N"2520q "THANKS FOR PLAYING"w < I111F J111P A(II1,JJ1)T22710Z J1d I1n NO T2 FOUND FAILUREx F10  SUCCESS F11