ldnnokjjܜܔԘ&]UUf@UUZfj EI bbRaRQQQnjjjfYfUdddhdddTTYZYZj)*)**VVfUfj@UVVf@@ogoggee嵦6FJww]WUppp`pPP`eeeYYUfUYY   wWUWUUwUb Pp5{W77?777;?sSsu5)*uVfZjj@@@ _B}?=>=pmeiif L)wLɠ )qLB}k ,%QJv+) lAJGL)nLQ)qȱ tȱ}h;)ȱ}h>,S $PԽqn2/M8 0zS)b#&,N0  sss}W@y{*iU?wW}??T?}]wUfZfjiUUVY0`,@`?:`0` @΍`?`$&9@gLh7@0 LਢYq#ԍ ԍԘ  UUVYjYjnVjVU%&&+&fTX  bQbarbUUfYfijUUUYei@@@@VVUVVfg&&UUVUfQaQQaQbaUUeYfZjkUYUYm@@fVVfVgg;7;777wdd\Uw]UUwu}}Yyu977UwfUWw] s7=p_?/wMx??|z 3t \\ 100edd *)*Zfj@@@UjiddhhdTYZjTU&&e@@  QaQaQQfZVYVUUdXfVUU&jiVZUbRfehdTfe&UUUYUUU@UTUUU@QePP`P```UVUYfjUjUUUYEFFEEEUVYfUfUTTTTUVZYfjYfjjVZVVVUEEFUYVfUUUUXTXTXXXjjn{n]wwZy{%fXܘ  aarrbsfYjjnooYm@};#&}>&L})稹b#&Lp&# ԙԙLV,tЦw!07>E P\[)2娱$0;)/ȱ$p LS8LL9>J)5Ș2$L/0;0JJJ)>JJJ)})稹bdd`@`hdjZiVUhdd&**UU@ QaaUYTdjU@ eZYj)%FJUYP``PdhdUfPP`PP``hUZfjTdUUef@@ RbQRaQQQffYZYjYj  ppppo~7@@@@ ssQ]dd{yYY*&*&VUUV@ ߟﯟw==>:=9=9MFFFpppp؜ؘYUUYppppp JGAR0 S)q q8VȘe0L||/ԩԢ0z#!&)zȱȘAi⭢` )t>);;{L⨽;窩{b8b&&8M{;M{>L0t#}]wUeZfUiUUVY?7??]C 5w? OebY`ȱYȱ\L{ɠ )hL)k)?_LY\e__L0 bȘ}YY+\LLn0í|V ,R0Snۼb}~e0J`}h)LL|}~ ȱqLȱqU]wQQsWufVfVVV@@@jYYjYYuY{no{;;?ddt   qqwU^Vv@@Y[w{7;?wqӳw_~~@@@[{{??7?T@7;>0pt000p|pC| _'<<<q} }1?,,,a <gq}҂EiZZVYUwW},QUZfjjjd UfUZYUUe%UeYf@@@TQaQaQUTTTU@VUVUVUQUTTTU@UVU*5fVfVu@hdhdUVfUej@UfjUUUUV&&UePPTUUeVUiQQQbQbabUUUeUeYfTTTUe@@@@Ue@@Vgg5777UUW]ww_u```pZZ^߯W]w}]vEɍUUwwuwwhdTeeUeUU]wvJJJKK]wZYul\d\||7??l|" a}80JfL2;)@#e#&e&Lj#8#&&5>J)5>8L8,N)9J$ G)JȱDȘGA}DiA,OR)M樱L=SPȘM PԽ#Խ&ԽAԙԆhdTU@feUU@PPTUYPUYU@fEIEIUijP` TdU@@PUeJFJFJJUVYfPUhdhUVYUfjUfUUUef%&UeTQaQaaaQaUYU@UUVUVVVf&&&&*VYjV W8XnYZ[\4 ]j ^ _ ` !a0!bx!c!d!e"fP"g"h"i#j:#kp#l#m$n6$ol$p$q$rD%sz%t%u &vR&w&x&y*'zr'{'|(}\(~((X)))T**+b++,p,,H--.h..@//*0011 L^p$Hl~ 2DVhz @dv*< ` r   &8\n "pp   "   " ?_?7?77]?Cs???7??77󳳳s+%&'*&w@@@w?] (:L^p  $ 6 H Z l ~          2 D V h z          . @ R d v      ! # $ % &* (< )N *` +r - .wyyyp yyyyy))))) " ) "yyy"ypyyypp yR"RR"""" "" "" """ "ppypypyppyyypy"  " Qppppppppppyppyyypppypy@h,DThx$08@DLT\`hptx  $$$(((,0004888<@DHLPTX\`dh l p t x|7Ҝ+E\s*<N`r66vv 6wVSVVS5w5Su55u55u555u5vv6sv6vw6cvvw666v6w25uuuwswuSssP wvwvu5uuwwwvwvvvu5uuwwvvvwv6vv666wvvv6v6555w6vv66wvv655wwvw6vvwvc6wc6cvv633swc6wc6v6wc33ww6vcv6w6cc66c666cc6c63www6c666vc6c333w6w6c6wc3w6sssw66wc66cc6ssww363c3w`Hm HmHFHjFHjFHjFHjFHjc` cc)`` U3>U?3* cN.CONV.V1.5 TLC/CNS RELOCATED WITH TTC'S PLAY-RELOCATOR V1.4! c]6 @`ff$( ) n8`oހoLn)nJo`#?i{ ieieiemm@ @<o`pqrstuvw=fHI SPEEDWAVE CONVER- TER V1.3/TLC * TTC PLAY RELOCATOR V1.4/C! * 92.06.jifYeUUUTdTddTTd&eU@jYfYUTTTffUVUTdYX7'''&'&&~w]WwV  EEEq|uUTXzYj7*uUe]ddhYYYiZ&&%ie@1|22x33t45566D77d899J::;T<==p>6??@A`B8C"D EEFGHIJL"MTNtOPQ@STUxWXlZ \]X_,acdfhkDmo rt.wy"4X| !"#$%&0'T(x)*+,-.,/>0b1t23456(7L8p9:;<=>6?Z@~ABCD EDFhGHIJK.LRMNOPQ*R`STUV ]\Tdd77)]vw@@wU}glddd@{yY7;;qssqsqq77;777;;ss}uy*&**&Vf@@@ / 0 1 3 4 5 6 7& 88 9J :\ ;n < = > ? @ A B C DE"F4GFHXIjJ|KLMNOP QR0SBTfUxV,>Pbt(:yppyyppypypppyyppyyypyyppyyyyyyyyyyyyypyyyyyyyyyyy) )) ) " "" "")"y)""" "yppp" "" "yppyr """ " " " " pp" "" &4AN[gr&~8J\n"4F Xj|#).4:?E JO0TBYT^fbxgkptx|,>Pbt3s3s3ssscsww 3sssc33s33wsSsSSssScwwS3Sccc63SwSSuu55S5S6vvvcwwSuu5Suuu56vv6Vu5S5wu5uu5uu5us5swuvwwwvww5wu5Swuu5vwwvwwsuuwtwtw twsSSS5uuuwttwwt wu5S5Sss:wMULTyppyypppypypppwyyyyypyyyyypyyyyUp~O'  UUU7H@(  q  $aN  3P3)`adbeifc`bȥab bibc`bȱb`bȱb`(bibc` #P4lP$X14f @;@<@=?<ҁ;<=Ҁ;<;h=;<ҁ;<=Ҁ;<;w6vv66vvv6v6vcvcvcSSuuu55uw555w555u5wg66w666wv666w66v666w6355wSS3wwSSSwSSSwSwg6c66v 6w6333w3w33sw3wc66c6cwcs33ws333w333w3w24#2#3w3w3cccwsssws3w3w3ssSsss3sS666wcwS6v6wUUdejUTd))UUVUVVVf@UUTdTddUUUTdUYVYYZYZjddXTdXjYijj&%&%&%eeUUf@@@@F  AQaQYVUUTTTeUeU%%iVYVURaQfUVUVUVUXTTfUVUUUYU@@|"p֕D,̮شP4\xx?  XoX nJpoꅑꅍ JpoꅝꅙJpoꅩꅥ`&n` )Ԋ8 A`AdA` _x> :; آCC A EB'MAA ,APA ?( ) F F@ G A 0AX @L@ [A@@ F A 0A`@<S -;`S@;,`A`                                                                                                                                                     M@ `K? EX> XL0 F` ? F`2$ F`A FOx>`K;x؍q? E>X L0 ? E> LҎ)&A*&A&A&A*&AA!)( Hx                                                 /7+.$5& 0* 7" 7,7,! -"# 0 7 7*6+*07(.4(6!5317(0# (&" 7(50 01/6)5"420-3&, ($705', & 5-2$(7.$26''5Q&CQB   ! BQ&CQB                                                           :600 B  :000 BQ CQCQCQ CQB  .:    B : 0 BQCQCQ ? >` `000ҩ 0`? ,B`?ԝ@ >`!1AAQaaqqqaaQQAA111!!EE`                      ` ` 9a a a8 a a)L>`ԼԪ Pc)M`) Lj`ԼԪ Pc)  0L` Pbb@i@@' `MA@' `` S;1AA`,A3` 9kk:0kjj:0ji`A,2B ,B9,],^ d+,,B,@ 5B``A0 cA,` P<2 ؍ B TB? E>  A `A,? zA P+,0F? ,E                                                                                                                                                                                                                                                                 BB       ,   BB   !!     ! BQ&CQB!         !BB..  !      BQ&CQ( Hx> ؍ 2RH@ I@L@                                                     EEEEɟ`E,0AB`? ``? ԝ@ ` G G FFG J``FF@F 2$ ? A F ,B @,5BA 2B`,B `1 ? GLF K?F F`Z@   8  2ꎎ```)`&Jyby b` `)`ـbb,H)ahi8bb`)`ـbb,H)gahi 8bb`a`) `>L ` >;,؍x>qK ΰB>LL1A` `00 A`A`        /! Q&CQB& BQ&CQB& BB  : BB& BB  : `BQ CQ CQ CQB  :03 B  0O+O+`O+ `?`6]0^0_`0`~  !     000 0 200Y ( $  BB A A $  BB A B $  BB A $  3 $ $ "2BRbrrrbR2""2BRbrbRB"2RRB2" Z[\]^_=<;<;=;<;<;;<<;;=<<;<<;<=;=<;<;<=<<<=;=<;=;<=<<=<<==<;;;=<<<;;<==<===;<<;;;<;=;=;=<<<;=<;;=<<<=;=;=<;;;=;=<;<;<;<=<==<<<=;<===<<=<<;;=;;;=<;=;<<=<<;;==<=;<;;=<<;=;;<==<=<<<=;;;=<;=<==<==;<=<=<;<;<;==;==;<<<;<=;<;;;==<;==;<;;;< B 2   :    B B$ B B 3      B B$ B B$ B B$ B B$ B B () 1995   &  B CQ$CQC000 0 2400A D 8x 8 B B$ B B()1995   &   B CQ$CQC000 0 2400 SE3Ûm5jb#f;=Q~ƮǫZQy:fQ{`)%lFrxd>\Gku3OSC_sYRC[?ŎQs|OpfBQ R?MzܸZ"kc@[:.82w*\%CY','%=%=!.i!uz HZ#X 0@P`p 0@P`p||||~ `` ~~ ||0>>UU 0 8(0 p88p^m}}y6>`~<<~<~ff~<ff<>>00//           .5. 6500     ,        !             !          ,      :4455576 Щ0Щ Щ8 ` 9 L L ?|f|fff||ffp``ffp```~~<<|`f||f|```|~         /     . '         :            ,  ' '.       ,         !      ,     $ $$$  %$$"=<<:::  && $$ $ $$2220000~  1`ɿL2 N :  .DIC @ - L     ,   !! - x> D; ة  t+D2 MՍX3H " D33 ȩ 3  3L33333  . ȩ L32 (( !11AAQQaaqaaQQAA11!x?qx;;> ؍>x$ % &',- . / ΍`?B? n4 @1X;؍xqM"B <;=;==;S ?:60:'0:0: 0`?2`?,,B` _,?_/9_^^/9^]]/`SS/5]^_ AB`LKA;AAcA<AAdA D )J&A*J***:::JJJZZZBBLBBBZZZJJ:::*** JJ"""22BBRRRbbbrbbbRRRBB22"" JJ& JJ"""22BBRRR2*J J 2J 2J 2J`*J"""22BBRRRbbbrJrrrbbbRRRBB22"" )J0 x?XX XL.+XL.+_XL0 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`pPQRSTUVWXY00>v66?333333   !    { CQ$CQC B$ B B 1    B B$ B   ! ... :xx: 88`x?  89 " (X: 8,#9L@`N9:A9`LJҪ  ! c<۠_sIa\=\"T|Z~|| |l8|~|0`<<000<<<< <<<~~< ffflllll||8p xJDL8  4109x; آ' Q?lxX zFIL N  N  N N N ' ( P ϼ' -( .>XL+/O P `-C   - I/D -L09L7h>)C$ +ȱ;0NB~4>8ԩԝhekJn}uzn>d>ZH)ɀhH)>h)J;Ўɠ h ;L+h)? @q?H)th)wz};;-;(i(+i+ .(1+a RE ARE OTHER GAMES WHICH HAVE NO TABLEAU. FTER ALL THIS COMPARISION, NOTE THAT THE SNAKE-LIKE LAYOUT IS UNUSUAL, AND STILL AM NO CLOSER TO FINDING OUT EXACTLY WHY LIKE THE GAME. H, WELL. HE FUN IS IN THE JOURNEY, NOT IN THE DESTINATION. ND DI ^ _ ^  e>D0D Lb} }h iDADzDw}q}tL8qt } }Le0KeLn0" }_ }bn(kIn0 8_ bnkEN IS LIKED BY SOME AND DISLIKED BY OTHERS. S A DEDICATED SOLITAIRE PLAYER LIKE MOST OF THOSE PUBLISHED THUS FAR, THOUGH THERE ARE SOME THAT DO NOT PLAY. ALSO SPEND A LOT OF THOUGHT ON THE SIMILARITIES AND DIFFERENCES OF VARIOUS GAMES. IS p@xXȹĘ0 .FvBp"A@;  @g  #&),/<BpBpڮȬګ  ڨڨڮȨAA@@A@@@AAAAAAAAAAA SUCCESS IS OBVIOUSLY THE WAY IN WHICH THE PLAYER HANDLES THE TWO WASTE PILES. SPEND A LOT OF THOUGHT ON WHAT MAKES A SOLITAIRE GAME INTERESTING, BUT HAVE FOUND VERY FEW ANSWERS. KNOW THAT LIKE TO WIN. KNOW THAT LIKE GAMES WHICH REQUIRE SKILL. ~~%   #&#&)*)/#&#&)*47     !$%$1+,3,$%$1+,58"'('0-.-2'('0-.69HKix4K]Pp6DXjw >\9d'Ngz    $'&$'&FC5        +++))))))0000~  """#$'0$'C$C'$' $''$'C$C'$'&   +++))),./02$'$C$$$(p-MUSIC BY ZONIX! PLAYER BY JCH!- (.+1 4 4y4m  + =5, .1;G `HHL[GL#GLG(+> (LL[JG>LD ԼHJMh)PSH)Yh)\VxehykJnbz >b >b_8ԝ8ԝ L[S=VY}SY\i\P!Y8SY\\MVIVbD ENJOY WRITING, AND PLAYING, AND STUDYING THIS LITTLE GAME. HOPE IT GIVES YOU SOME JOY, TOO. yՒ75|J{Y)v]9wy){)z\Ms_)r_)es䧹s]w\zJm\6J}5͗sYwe󒝗zJ{>JvWwMUzJ{>Jsv]-v]Wz^yΒ)vk)Jn}8YԽ\ԭ Խ ԽԽԽ A=L[0Lhh`'8K_s-NqBtZ,{'Q77 W N nhn9F "$'^)+r.81&4B7:>AEI NRW\pbLhnu|p@UNUSUAL IN THAT IT HAS 13 FOUNDATION PILES, EACH HAVING A DIFFERENT BASE CARD. N FACT THINK THAT THIS FEATURE HELPS MAKES THE GAME INTERESTING. HERE ARE OTHER GAMES IN WHICH THERE ARE MULTIPLE WASTE PILES (YOU COULD EVEN CALL THEM RESERVE PILES). HEAAAA!AAA%AAA)AAA-A36:A@@?A@@DA@@@@IQpP0 xX0j1  gggg~!g%g)g-158 <Aj!FOET, LIKE SOME VERY DIFFICULT GAMES, HATE SOME EASY GAMES, LIKE SOME MINDLESS GAMES, AND DISLIKE SOME GAMES REQUIRING SKILL. NE THING HAVE CONCLUDED IS THAT IT IS NOT MY JOB TO PROGRAM ONLY GAMES THAT LIKE. SUSPECT THAT EVERY GAME HAVE WRITT $'&$'&$'&$'&+++)))))))+++))))))00<>??ACCFFCCA<<>??ACCFC+++))))))  <>??A00000<>??ACC  'H''''H'H'~ HH""""H"H"HH""""H"H"  <>??AFFCCA<<>??AFF  CC$$$    200~~2220000~      & $$ $ $ && $$ NAKE HELP",DVJ A81:3020J MT57,"SNAKE HELP",DVJ "":12000:(142):MT9,208:K:K QUITK390:300:"E? CLEAR STAT FILELE@HI0:LO1000:G70:NW0:G80:MT6,208sEE65305,BD1:MT3,12,25,09,15,32,1EGX16:Y11:66:"STATS"EHYY2:66:"RESET"EKTTT(K3)O5262O5270OMD2: WGC(WG)OXX3:YY32I2:66:""O$(WG)PHI0:LO1000:G70:NW0:G80P5444-PMD5:KCC(KC)7P5266kPX121:X238:Y119:Y221:2100:XX12:YY11:66P"ENTER MONOGRAM"PA$:A$""537(1)17:X(2)3:Y(2)10CX(0)3:Y(0)17:X(MS)X(0):Y(MS)Y(0)5:X(1)09:Y(1)17:X(2)3:Y(2)10PCX(3)9:Y(3)10:I48:Y(I)2:X(I)5I5::I1216:Y(I)19CX(I)X(I8)::X(9)32:Y(9)8:X(10)25:Y(10)10:X(11)18:Y(11)13C"":53265,11C65MYY2:66:"7 PLAYMMT3,21,36,7,19,KT,SKNY11: X29:66:CA35:203:X31:66:CA11:203NX23:Y11:66:256VNCH$"1234567":20:I5310,5320,5330,5340,5362,5370, 5394NMD2:MUC(MU):XX3:YY32I2:66:O$(7MU):5444NMD2:SD ROGRAM BY AURICE ONES EXT BY AURICE ONES FOUND A DESCRIPTION OF THIS UNUSUAL SOLITAIRE IN BY AVID ALT. DISLIKE THE NAME AND WAS TEMPTED TO USE SOMETHING LIKE "ARK OF ORRO1 PLAYKYY2:66:"2 OPTIONSKYY2:66:"3 REPLAYKYY2:66:"4 QUITLCH$"1234":20:LN:,LO OPTIONS MENUTLPMT6,208:"":65305,BD:65301,113nLTMT3,0,39,0,24,KT,SKLVX13:X217:Y15:Y220:CLSK:2100LXXX1,CLI MT3,X1,X2,Y2,Y2,042,CL:MT3,X2,X2,Y1,Y1,036,CLJ MT3,X2,X2,Y2,Y2,043,CL:MT3,X1,X1,Y1,Y1,033,CL0J MT3,X1,X1,Y2,Y2,028,CL6J AB(0,X)B(0,X1):XX1:923ZAB(0,1)T6:I0:250:534`A:~A PLAY PILE FR TO PILE T2AFCB(FR,1):FVV(FC):FSS(FC)A270:PL984,94rNWNW1:WF15tX121:X234:Y12:Y206:CL2:2300*5vYY12:XX13:66:"YOUWIN ":05:C5 UPDATE STATSv5G7G71:T691:I003:T6T6C(I)::WF1T6915G8G8T6:AV(G8G7.5):T6LOLOT65T6HIHIT65WF0:5:5 SPREAVE. ";29XX112((AVE)):66:""AVE3<XX12:YY2:66:"GAMES";>3=XX112((G7)):66:""G7_3@XX12:YY1:66:"WINS ";3AXX112((NW)):66:""NW3F3H:3I CLEAR MESSAGE3JXX(MS):YY(MS): 66:MT3,X,X5,Y,Y,KT,SK: REDEAL= (RD1)WM4: 90:534>#K0NP:MM(K)C(K)::MT6,2245>$K1C(0):L1K1:K(L)B(0,L)::C(0)0:I0: 230L>&XX(0):YY(0):224r>(I113:KC(I)11: C(I)0816>,C(0)C(0)1:B(0,C(0))B(I,K):K:C(I)0>0MT3,X(I),X(I)3,Y(I),Y12760T22T23PL2:1PL1:T23TV1FVPL2:,1T23FV00TV12PL2:2181 :L1! PICK UP WASTEh1"YY(1):XX(1)NT1 :661&224:NTNT1:NT1NT11(I1:YY(1):XX(1)NT1:66:2021)1*:1+ PRINT STATS1,X12:X21FSS(FC);XIMS:65:"TO" <\CH$"HS01A23456789TJQK":20:330<^I56126<`I0610,611,4000,4004,1600E8C(0)0472]8XX(1)J1:YY(1):66:202e8:8XX(0):YY(0):MT3,X,X3,Y,Y4,KT,SK:4688:8 MENU OPENING850008I500,48686AWM3:90:534 BIFR:MT3,X(I),X(I)3,Y(I),Y(I)16,KT,SK:KC(FR)::I=1:GOSUB200(BC(FR)0::I=0:GOSUB250aBJ1K:C(T2)C(T2)1:B(T2,C(T2))B(FR,J):IT2:198:jB680pB:}B SCREENBX(0)3:Y(0)17:X(MS)X(0):Y(MS)Y(0)5:X(1)09:YAD GRAPHICS5K364426X1:Y2:J1K:66:C(I)J:202:XX1::447K6X1:Y2:J136:66:C(I)J:202:XX1::K72445|6X1:Y8:J37K:66:C(I)J:202:XX1::4476X1:Y8:J3772:66:C(I)J:202:XX1:6X1:Y14:J73K :66:C(I)JASTLE BOOT +4CASTLE+4CML.CASTLE CS.CASTLE_ 4 CASTLE HELP_ 5CASTLE.DOC - -------------- B.SNAKEDV(174):DV8DV8<"":65301,112:65305,112] 7168,0:44,28:43,1:56,208f"""LOAD"(34)"SNAKE+4"(34)","DV("RUN"Z1319,13:1320,13:239,2: - -------------- B.SNAKE  62158%DV(174):DV8DV8R65301,112:65305,112:5:1344,64:1400043115"CS.SNAKE",DV,0:2034,0:2035,0:2036,240:6549343115"ML.SNAKE",DV,0:2034,0:2035,0:2036,16:65493" PEACH LOOKS GOOD?I,X,Y,Y C,SK22,BD,FB,MU,WG,PK,RD,KC,KC(0) :2:RD0HT1WKTTT(K3):G70:RD1HT3:12000p"":1000:MU1482y500: BRANCHERI1:A$:A$""70I(CH$)20A$(CH$,I,1)II1:21: CHARGE+1,453,10:HOICE SOUND Z1,200,10 \T1100:H ]X1:Y24:66:WM$(WM);:K1300::N ^:c _ TONE & MESSAGEq `1,300,10 aK1350: b93 m: n SETUP oVA$(13),VB$(13),ST$(4,12),CO$(3),S$(3),S1$(3),S(NC),RD(NC),DR(17):JJ1 !p"","","\**+"_"uS(X)(X13):V(X)X13(X13):C(X)(X1)MD((X1)MD){"vF54272:MT4096:X(TI)"zST$(0,1)"ڒ":ST$(0,0)"Ԓ":ST$(3,0)"!"#{ST$(0,9)"ʒ":ST$(3,2)"":ST$(0,2)"ڒ"W$ST$(0,6)"ʒ":ST$(3,6)""$ST$(3,3)"":ST$(0,5)"ʒ"$ST$(3,5)"":ST$(0,4)"ʒ"$ST$(3,4)"":4:JA$"HELLO CONNECT":Q$(34):646,(53281):"":53272,23 K"P2048,0:P44,8:P43,1:P56,160:P55,0:CLR:L"Q$A$Q$","IAK"P53272,23:RUN:":631,13:632,13:198,2:J:A$"PRESENTER"J"":53272,23:186,8:2048,0:44,8:43,1)"WXYZ":ST$(2,0)"!ST"@&I23:ST$(I,10)")123456789":h&ST$(1,9)"߿"&ST$(1,8)"#$%&*+"&ST$(1,6)"\^<>"&ST$(1,5)"<>"&ST$(1,4)"()^_45[]:;"&(ST$(1,12)"0123456789"M(ST$(0,12)"()^_45[]:;"(ST$(2,12)"()^_45[]:;":ST$(3,12)ST$(2,12)(I23:ST$(I,11)"()>?45<=:;":(I012:VA$(I)::I012:VB$(I):0:SQ(I)18I:)SQ(11)0?*O$(0)"ON ":O$(1)"OFF":O$(3)"ONE ":O$(4)"THREE"a*O$(8)"MENU":O$(7)"GAME"*TT(1)0:TT(2)100:TT(3)128:TT(4)155:TT(5)157:TT(6)1:TT(7)3:LO1000:HI0*" UT MAN'S NO PEACH +" ILE COMPLETE "*,B(NP,NC),C(NP),MM(NP2),X(NP1),Y(NP1),K(NC): MSNP10,6,:w, 198-VERT STACK: 200-STACKED: 202-OTHER PLACE: 203-ANY CARD,C(I)1XX(I):YY(I)C(I)1:66:202,XX(I):YY(I):66:C(I)0224,CAB(I,C(I)):C(I)021,Y2,Y3,X1,X2,X3,WM$,WM,WG,WF,VC,VA,V,U2,TT,T6,T,SU,SO,S,O$,NW,MT} MM,MD,LO,L,K4,K1,JJ,J%,HI,G8,FV,FS,FR,FC,F,CL,CA,B,AV,A8 J,K,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,MS NC91:NP16:X(TI):63487,31:111 2,DV,2,"SNAKE.OPTS,P,R":2,K3,SD,SO,C1,596,10:1,685,15:1,739,29:1,685,10:1,739,3017?:F@ PRINT ATXAXX(I):YY(I)sB202,X:205,Y:55464:yD:E MULTITASKFJJNC2JJ1GJJJJ1:J%JJ((1)(NCJJ)):TEMPS(JJ):S(JJ)S(J%):S(J%)TEMP:20X: Y WRONG C","","","","","","","&","","",""m!qS$(0)"":S$(1)"":S$(2)"":S$(3)"":CO$(0)"":CO$(1)"":CO$(2)""!rCO$(3)"":S1$(0)"":S1$(1)"":S1$(2)"":S1$(3)""!s"","","","","","","","","","'","","","""tBK$"!##$"C#|ST$(0,8)"ʒ":ST$(0,3)"ʒ"#}ST$(3,8)"":ST$(0,7)"ʒ"#~ST$(3,9)"":ST$(3,7)""$ST$(3,1)"%ST$(2,9)"ABCDEFGHIJ":ST$(2,8)"ABKLMNOPIJ"x%ST$(2,7)"ABSTQRUVIJ":ST$(2,6)"ABSTQRIJ"%ST$(2,5)"ABQRIJ":ST$(2,4)"ABSTIJ":ST$(2,3)"ABIJ"&ST$(2,2)"WXSTYZ":ST$(2,124,SUS(CA):VAV(CA)-SO1220-3,1000,5:3,1000,0e-CO$(SU);VA$(VA);"";S$(SU);"   ";S1$(SU);-"";VB$(VA);"";ST$(SU,VA);:- ERASES CARD-TILE: 225-VERT STACK-MT3,X,X3,Y,Y4,KT,SK: \^"'ST$(1,7)"\^<>_="S'ST$(1,1)"":ST$(1,2)"\^"'ST$(1,0)"\^":ST$(1,3)""'I01:ST$(I,11)"()>?45<=:;":'ST$(0,10)"()^_45[]:;"'ST$(1,10)" )I051:S(I)I::I5290:S(I)S(I39):4)"  ITH LOTS OF FUZZ,x)JJJJ1:J%JJ((1)(NCJJ)):TEMPS(JJ):S(JJ)S(J%):S(J%)TEMP)JJNC2168)KC(1)101:KC(2)(47):KC(3)191:KC(4)124)SQ(16):I14:SQ(I)I8::I(5)0:I61 ND NEVER WUZ.":" URMA HAVE,+WM$(1)" EMPTY PILE "M+WM$(2)" PEAK FLAG OFF "m+WM$(3)" ILLEGAL PLAY "+WM$(4)" CLAIM FLAG OFF "+WM$(5)" FIRST DEAL "+WM$(8)" WASTE NOT EMPTY "+WM$(6)" P :"+"==:= THICK WINDOW=MT3,X1,X2,Y1,Y2,032,SK:MT3,X1,X2,Y1,Y1,35,CL4> MT3,X1,X1,Y1,Y2,106,CL:MT3,X2,X2,Y1,Y2,107,CLj> MT3,X1,X2,Y2,Y2,042,CL:MT3,X2,X2,Y1,Y1,036,CL> MT3,X2,X2,Y2,Y2,043,CL:MT3,X1,X1,Y1,Y1,033,CL 2,127,CL;;(:;3 THIN WINDOW<4MT3,X1,X2,Y1,Y2,032,SK:MT3,X1,X2,Y1,Y1,115,CL:<8MT3,X1,X1,Y1,Y2,099,CL:MT3,X2,X2,Y1,Y2,110,CLp<<MT3,X1,X2,Y2,Y2,114,CL:MT3,X2,X2,Y1,Y1,113,CL<@MT3,X2,X2,Y2,Y2,224,CL:MT3,X1,X1,Y1,Y1,117,CL :66:"2 SOUND "O$(SO)F,YY2:66:"3 SEE DEAL "O$(SD)F0YY2:66:"4 PEEK "O$(PK)$G8YY2:66:"5 CLAIM "O$(WG)GG<YY2:66:"6 GRAPHIC MENU "bG@YY2:66:"7 PLAY "GDCH$"1234567":20:I5280,5460,5290,5300, FILE9@HI0:LO1000:G70:NW0:G80:MT6,208:E53280,BD1:MT3,12,25,09,15,32,1:GX16:Y11:66:"STATS"7:HYY2:66:"RESET"V:JJ11000::MT9,208:534\:R:g:S OOPS:TI0NP:C(I)MM(I)::MT9,224:FR1 NTVC:X534::: 2: WGC(WG)DXX3:YY32I2:66:""O$(WG)DHI0:LO1000:G70:NW0:G80D5444EMD5:KCC(KC)E5266CEX121:X238:Y119:Y221:2100:XX12:YY11:66[E"ENTER MONOGRAM"oEA$:A$""5378EA$"A"A$"Z"5378EMT3,21 :Y(1)17:X(2)3:Y(2)108X(3)9:Y(3)10:I48:Y(I)2:X(I)5I5::I1216:Y(I)19K8X(I)X(I8)::X(9)32:Y(9)8:X(10)25:Y(10)10:X(11)18:Y(11)13^8"":53265,11853281,1:53280,BD:53272,19:MT3,0,39,0,24,KT,SK8I216:65:"" BY11: X29:66:CA35:203:X31:66:CA11:203BX23:Y11:66:256!CCH$"1234567":20:I5310,5320,5330,5340,5362,5370, 5394XCMD2:MUC(MU):XX3:YY32I2:66:O$(7MU):5444CMD2:SDC(SD):XX3:YY32I2:66:""O$(SD):5444CMD B(0,C(0))5XC(0)5X29315B(0,X)B(0,X1):XX1:9236B(0,1)T6:I0:250:5346:46 PLAY PILE FR TO PILE T2W6FCB(FR,1):FVV(FC):FSS(FC)l6270:PL984,986~6WM3:90:5346IFR:MT3,X(I),X(I)3,Y(I),Y(I)16,KT,SK:KC(F PLAY@YY2:66:"4 LOADSTAR@CH$"1234":20:@N:@O OPTIONS MENUAPMT6,208:"":53272,19:53280,BD:53281,19ATMT3,0,39,0,24,KT,SK_AVX13:X217:Y15:Y220:CLSK:2100AXXX12:YY11:66:" OPTIONS"AtYY2:XX2:66:" CONNECTHX15,DV,15,"S0:SNAKE.OPTS":15H]2,DV,2,"SNAKE.OPTS,P,W"Hb2,K3:2,SD:2,SO:2,CC:2,SKIl2,BD:2,FB:2,MU:2,WG:2,PK:2,RD1Ip2,KC:2,KC(0)8Iv2YI@I021:828I,8I::788,49tIJDV8DV29DV840030ITA(828):B(828DV > MT3,X1,X1,Y2,Y2,028,CL> > :> HELP? MT6,208 :"": 53280,0:53281,0:646,3:53272,23 ? A813014`? MT27,"T.SNAKE HELP",DV,32768,3,7," - AURICE ONES "o? A81:3020? MT30,32768,3,7," - AURICE ONES "? :9? CLEAR STAT 2:PKC(PK):XX3:YY32I2:66:""O$(PK):5444CMD16:CCC(CC):CC1CC2C5266DMD16:SKC(SK):MT36,KT,KT,SK:5270ADMD16:BDC(BD):53280,BD:5270^DU2K3:K3K31:K36K31lDKTTT(K3)DMT36,TT(U2),KT,128D5270DMD R)::I=1:GOSUB2006C(FR)0::I=0:GOSUB2507J1K:C(T2)C(T2)1:B(T2,C(T2))B(FR,J):IT2:198: 7680&7:37 SCREEN}7X(0)3:Y(0)17:X(MS)X(0):Y(MS)Y(0)5:X(1)09:Y(1)17:X(2)3:Y(2)107X(0)3:Y(0)17:X(MS)X(0):Y(MS)Y(0)5:X(1)09 COLOR "AxYY1:XX2:66:"1 DECK "A|YY1:66:"2 TILE "AYY1:66:"3 BORDER"BYY2:66:" STYLE"0BYY1:66:"4 TILEIBYY1:66:"5 DECKfBYY1:66:"6 MONOGRAMBYY2:66:"7 PLAYBMT3,21,36,7,19,KT,SK8):828,B:828DV8,AI^A$"PRESENTER":40040:A$"HELLO CONNECT"IhJ829:I(828J8):I14 Jr2:2,I,2:2:ST40070DJ|15:15,I,15,"R0:"A$"="A$:15,ER:15:ER6340090\J:A$"PRESENTER"J"":53272,23:186,8:2048,0:44,8:43,1  "":53272,19:MT9,208:?:? QUIT?390:300?5000:I500,4134,502,39000 @&5400:500@:@ MENUB@X121:X234:Y19:Y219:CLCC:2100g@XX12:YY12 :66:"1 PLAY@YY2:66:"2 OPTIONS@YY2:66:"3 RE Y(0)Y(I))3:66:MT6,208)V256 :MT9,208?)XX(2X(I)X(0))3:Y(2(Y(I))Y(0))3:66:MT6,208W)\256:MT9,208:200])hc)n:u)o DECLARE WIN)pSO026)rNWNW1:WF1)tX121:X234:Y12:Y206:CL2:2300)vYY12:XX13 12((T6)):66:""T6 '4XX12:YY2:66:"HIGH ";,'5XX112((HI)):66:""HIM'6XX12:YY1:66:"LOW ";n'7XX112((LO)):66:""LO'8XX12:YY1:66:"AVE. ";'9XX112((AVE)):66:""AVE'<XX12:YY2:66:"GAME C(T2)1:B(T2,C(T2))FC:C(FR)C(FR)1:IFR:200:FR16401|230 2IT2:200 2T22232:680)2230/2::2 WIN?Q2K03:C(K)0534W2f2368:4000l2:y2 REDEAL2 (RD1)WM4: 90:5342#K0NP:MM(K)C(K)::MT6,224 HT3 %XX(0)1:YY(0)2:66:"REDEAL"C% RERE1:XX(0)1:YY(0)1:66:""((RE),2,((RE))1)I% O% :`% WILL IT PLAYi%PL1%C(T2)8T23PL1:%FR1276%T22T23PL2:%PL1:T23TV1FVPL2:%T23FV0 6,224:VCNT/#I0594/$C(0)0WM1:90:534"0(450:I0:230:FR1:FCB(1,1):FVV(FC):600(0P:80Q FROM CARDR0RC(I)0WM1:90:5340TFRI: FCB(FR,C(FR)):FVV(FC):FSS(FC)0XIMS:65:"TO"0\CH$"HS01A23456789TJQK":20:3 OR ONE SPACE ONLY)*#K((C(I))):MT3,X(I)2,X(I)1,Y(I)3,Y(I)3,KT,SK:234c#K((C(I))):MT3,X(I)1,X(I)1,Y(I)3,Y(I)3,KT,SKq#C(I)0#XX(I)K1:YY(I)3#66:""((C(I)),K1):##:# PRINTS DECK AT I#65# I1NC:RD(I) S(I1)::C(0)NC:HT1.MT9,216: I1NP:C(I)0:*.I1NC:B(0,I)RD(I)::C(0)NCX.I410:B(I,1)I2:C(I)1:340:SD1200g.232: .I1116:B(I,1)I11:C(I)1:340:SD1200.232:.I0:250:230.K0NP:M  STACK: 200-STACKED: 202-OTHER PLACE: 203-ANY CARD:!C(I)1XX(I):YY(I)C(I)1:66:202\!XX(I):YY(I):66:C(I)0224y!CAB(I,C(I)):C(I)0224!SUS(CA):VAV(CA)!SO1220!F4,129:T115::F4,128:F5,0 "CO$(SU);VA$(VA); +:+ TURN FROM DECK:HT IS NUMBER,C(0)0C(1)090:,C(0)0260:.,UTNT:UT2460j,MT3,X(1),X(1)5,Y(1),Y(1)4,KT,SK:I1:200:M1350:~,NTHT:NT1464,NTHT:C(0)3NTC(0),I1: J1NT:B(1,C(1)1)B(0,C(0)):C(1)C ):34I213:B(I,1)B(0,C(0)):C(0)C(0)1:340:C(I)1:DR(I)0548200::B(1,1)B(0,C(0)):C(1)1:340:C(0)C(0)1:I1:200G4<I0:250:230j4@K0NP:MM(K)C(K)::MT6,224s4D534y4P:4Q PROMPT FOR SPREAD4RMT6,208:XX(MS):YY(MS):66:" :66:"YOUWIN ":):) UPDATE STATS,*G7G71:T691:I003:T6T6C(I)::WF1T691U*G8G8T6:AV(G8G7.5):T6LOLOT6f*T6HIHIT6q*WF0:w*:* SPREAD GRAPHICS*K36442*X1:Y2:J1K:66:C(I)J:202:XX1::44 S";'=XX112((G7)):66:""G7(@XX12:YY1:66:"WINS ";6(AXX112((NW)):66:""NW<(FB(H:V(I CLEAR MESSAGE(JXX(MS):YY(MS): 66:MT3,X,X5,Y,Y,KT,SK:"": (R:(S SEE THE DEAL(TSD1(UX(2X(0)X(I))3:Y(2 2$K1C(0):L1K1:K(L)B(0,L)::C(0)0:I0: 2303&XX(0):YY(0):224(3(I113:KC(I)11: C(I)0816S3,C(0)C(0)1:B(0,C(0))B(I,K):K:C(I)030MT3,X(I),X(I)3,Y(I),Y(I)6,KT,SK: I:I0:250:6532L1K1: C(0)C(0)1:B(0,C(0))K(L 0TV12PL2:%% :&! PICK UP WASTE&"YY(1):XX(1)NT1 :66:&&224:NTNT1:NT1NT1^&(I1:YY(1):XX(1)NT1:66:202d&)j&*:|&+ PRINT STATS&,X12:X215:Y18:Y219:CLCC:2100&.XX12:YY12&266:"PLAYED";&3XX1 300^I56120`I0610,611,4000,4004,16000b3000:600 1c850:60021dT2I4:C(T2)13T23WM06:90:534Y1hTCB(T2,C(T2)):TSS(TC):TVV(TC)n1p270:PL628,6321tC(T2)8T23WM6:90:6301uWM3:901vFR16001w5341xC(T2) SO1256$F4,129:T115::F4,128:F5,0:$646,CC:BK$:MT3,X1,X2,Y1,Y3,KC(KC),CC:@$:M$ REDEALh$HT1RE2 WM4:90:$XC(1):I1X:B(0,X)B(1,I):XX1::C(0)C(1):C(1)0$I1:200:65:MT3,X,X5,Y,Y4,KT,SK:I0:250$ M(K)C(K)::MT6,224.IMS:65:"FROM"/CH$"HSO 01"'/MT3,1,18,24,24,KT,SK:WM04/20:330A/I7544i/I890,0542,543,4000,4004,1600,1620x/3000:534/850:534/ I8I0:546/!II7/"K0NP:MM(K)C(K)::MT "";S$(SU);"   ";S1$(SU);=""";VB$(VA);"";ST$(SU,VA);:d" ERASES CARD-TILE: 225-VERT STACK"MT3,X,X3,Y,Y4,KT,SK:"MT3,X(I),X(I)3,Y(I)C(I),Y(I)C(I)4,KT,SK:":" PRINT COUNT AT I (232 F (1)1:C(0)C(0)1:CAB(1,C(1)),C(0)0472-XX(1)J1:YY(1):66:202-:J-XX(0):YY(0):MT3,X,X3,Y,Y4,KT,SK:468P-:c- MENU OPENINGm-5000-I500,486,488,39000-5400:500-WM5:90:5000:484-:- GAME- WHICH"4VCH$" 01A23456789TJQK":20:3304XPK1I4WM2:90:534 5ZI1I0%5^C(I)0WM1:90:534E5l65:MT3,X,X3,Y,Y4,KT,SKa5pKC(I):440:MT9,208:g5x:s5y CLAIM5zWG1WM4: 90:5345~368:40005I0:65:2245T6 7+X1:Y2:J136:66:C(I)J:202:XX1::K724452+X1:Y8:J37K:66:C(I)J:202:XX1::447_+X1:Y8:J3772:66:C(I)J:202:XX1:+X1:Y14:J73K :66:C(I)J:202:XX1:+XX(MS):YY(MS):66:"ANYKEY";:198,1:198,0:  STARTED 2/9/95,53281,0:53280,0EDV(186):DV8DV8o" PEACH LOOKS GOOD57812"SNAKE FONT",DV,0:780,0:781,0:782,8:65493I,X,Y,Y1,Y2,Y3,X1,X2,X3,WM$,WM,WG,WF,VC,VA,V,U2,TT,T6,T,SU,SO,S,O$,NW,MT3 MM, ߿")ST$(1,8)"#$%&*+"MST$(1,6)"\^<>"mST$(1,5)"<>"ST$(1,4)"\^"ST$(1,7)"\^<>_="ST$(1,1)"":ST$(1,2)"\^ #ST$(2,12)"()^_45[]:;":ST$(3,12)ST$(2,12)UI23:ST$(I,11)"()>?45<=:;":}I012:VA$(I)::I012:VB$(I):I051:S(I)I::I5290:S(I)S(I39):"  ITH LOTS OF FUZZ,JJJJ1:J%JJ(( "(ST$(3,3)"":ST$(0,5)"ʒ"dST$(3,5)"":ST$(0,4)"ʒ"ST$(3,4)"":ST$(2,9)"ABCDEFGHIJ":ST$(2,8)"ABKLMNOPIJ"ST$(2,7)"ABSTQRU T    &''& OTAL INES: URRENT: P/OWN - CROLL /Ғ - OP/OTTOMВ - RINT ђ - UIT EXTINGLE (TI)xF1,50:F24,12:F5,128XzST$(0,1)"ڒ":ST$(0,0)"Ԓ":ST$(3,0)"!"{ST$(0,9)"ʒ":ST$(3,2)""|ST$(0,8)"ʒ":ST$(0,3)"ʒ"(}ST$(3,8)" ƚw` ` Ω ή=n 3ϥόϩ & ̩- ϩ ͽ- ϭυυ T / }ΩΩ `FυGυ`)ϙ)_) mL `ιȾΈ  :n SETUPPoVA$(13),VB$(13),ST$(4,12),CO$(3),S$(3),S1$(3),S(NC),RD(NC),DR(17):JJ1p"","","","","","","","","","&","","",""qS$(0)"":S$(1)"":S$(2)"":S$(3)"":CO$(0)"":CO$(1)"":CO$(2)""rCO$(3)"":S1$(0)"":S1$ ):F4,33J1T((A$,I2,1)):.F4,0::4?:C@ PRINT ATUAXX(I):YY(I)pB211,X:214,Y:58732:vD:E MULTITASKFJJNC2JJ1GJJJJ1:J%JJ((1)(NCJJ)):TEMPS(JJ):S(JJ)S(J%):S(J%)TEMP:20X:Y WRONG CHOI "MENU":O$(7)"GAME"KTT(1)0:TT(2)100:TT(3)128:TT(4)155:TT(5)157:TT(6)1:TT(7)3:LO1000:HI0n" UT MAN'S NO PEACH" ND NEVER WUZ.":" URMA HAVEWM$(1)" EMPTY PILE "WM$(2)" PEAK FLAG MD,LO,L,K4,K1,JJ,J%,HI,G8,FV,FS,FR,FC,F,CL,CA,B,AV,A8_ J,K,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,MS NC91:NP16:X(TI):4095,31:111:788,52 2,DV,2,"SNAKE.OPTS,P,R":2,K3,SD,SO,CC,SK2,BD,FB,MU,WG,PK,RD,KC,KC(0) :2:RD0HT1 KTTT(K3 "ST$(1,0)"\^":ST$(1,3)""JI01:ST$(I,11)"()>?45<=:;":qST$(0,10)"()^_45[]:;"ST$(1,10)"()^_45[]:;"ST$(1,12)"0123456789"ST$(0,12)"()^_45[]:;" 1)(NCJJ)):TEMPS(JJ):S(JJ)S(J%):S(J%)TEMP#JJNC2168PKC(1)101:KC(2)(47):KC(3)191:KC(4)124SQ(16):I14:SQ(I)I8::I(5)0:I610:SQ(I)18I:SQ(11)0O$(0)"ON ":O$(1)"OFF":O$(3)"ONE ":O$(4)"THREE"O$(8) VIJ":ST$(2,6)"ABSTQRIJ"_ST$(2,5)"ABQRIJ":ST$(2,4)"ABSTIJ":ST$(2,3)"ABIJ"ST$(2,2)"WXSTYZ":ST$(2,1)"WXYZ":ST$(2,0)"!ST"I23:ST$(I,10)")123456789":ST$(1,9)"# SHEET OR RACTOR FEED? (//)SՕmRR=VST)JR)JR)JR)KJTԩ]N[*WR5)K%JJR)JR)JR)JR)JR+u^-͒es9J*J7|y*JR.ZUw)*]7Mu\6J\սkVͭ)*]U['U{WuJ\Jdv]J.2+{ݗJR+v]]s)J ":ST$(0,7)"ʒ"t~ST$(3,9)"":ST$(3,7)""ST$(3,1)"":ST$(0,2)"ڒ"ST$(0,6)"ʒ":ST$(3,6)" ```` Lͮ   ` ̩` ̩ ` ͈`HHH Ѝ"ϢH ^ŭM)J   Х@hhh"ύ `HHHH ^ŭM)J  hhh`N S/A KP R I N T I N G . . . (1)"":S1$(2)"":S1$(3)""Js"","","","","","","","","","'","","",""tBK$"!##$\**+"uS(X)(X13):V(X)X13(X13):C(X)(X1)MD((X1)MD)vF54272:IFF24:I,0::MT49152:X CE SOUND/ZF24,15:F8,4:F12,63:F13,17:F11,33G\T1100::F11,32o]X1:Y24:66:WM$(WM);:K1300::u^:_ TONE & MESSAGE`F24,15:F5,4:F6,12aF4,23:F15,100:F4,20:F1,30:K1350::F 6,0bF4,129 :93m OFF " WM$(3)" ILLEGAL PLAY "' WM$(4)" CLAIM FLAG OFF "E WM$(5)" FIRST DEAL "g WM$(8)" WASTE NOT EMPTY " WM$(6)" PILE COMPLETE " B(NP,NC),C(NP),MM(NP2),X(NP1),Y(NP1),K(NC): MSNP1 :! 198-VERT ):G70:RD1HT3&"":1000:MU1482/5005:D BRANCHERZI1:A$:A$""70kI(CH$)20A$(CH$,I,1)II1:21: CHARGEA$"251331421502421502"T87:F6,96:F24,15I1183F1,((A$,I,2) LAYER TO CHOOSE A SINGLE LETTER FOR THE CARD BACKS. HE NEW MONOGRAM IS SELECTED AS THE CURRENT CARD DESIGN AND IS SAVED IF YOU QUIT . 7 LAY - EALS CARDS FOR NEW GAME. ---------- ----- HE OPTIONS IN BOTH MENUS ARE SAASTLE BOOT +4CASTLE+4CML.CASTLE CS.CASTLE_ 4 CASTLE HELP_ 5CASTLE.DOC DV(186):DV8DV8?"":53280,0:53281,0:60000w 57812"MT.SNAKE",DV,0:780,0:781,0:782,192:65493 4096,0:44,16:43,1:56,128:55,0"""LOAD"(34)"SNAKE"(34)","DV("RUN"Z631,13:632,13:198,2:" ' " :Z$(1)"AURICE ONES"E Z$(2)"() 1995 BY & UBLISHING, NC."n Z$(4)"HIS PROGRAM IS NOT SHAREWARE Z$(5)"OR IN THE PUBLIC DOMAIN. Z$(6)"1-800-594-3370 OR 1-318-221-8718 214,12: I06:20((Z$(I))2))""Z$(I)::J LLBLLRLL1LLZLwLLcLLL*LlLyLL:LLLLɩ=ϩ:ϩE ØEϙ>E= HH@Ϡ >Ϭ?ϭB,:0DѭCϑ>A l L{ hh֩:Ll `)*L8 "ό# Ä`i FϠ"F "Ϡ; í'ύ< DϮ;ώEɑ /L*;ϭ;%T;L;ϭ;L¬%ψ;L­DEL­;m"Ϫ í&ύ< ­;i>ϩ?L ŭ"m;Ϫ í'ύ< ­"mEϪ í&ύ< L*¬#ϭ<ϑ0I$ #ϑѭ$00(eхѩe҅(eeLéL Ì" Ì#  é')"#ϑ0(eeLEĩ=ϩ:LL # Ø  ͽ  )B Lĩ L #Å " BH) ]>ϑѬ?ϑh>ϑLŬ?ϭBH) }hBH) @h>BH) mhhh lL ψ` ϙ` ÄFύGϠxt LwƥϥϩwXL :ŎόϠ^Ϙkϩ L ÌMόWϘ) LύL ÌRό] ;˩kϢN oŢS oŭ]ύ)9R COMPUTER BEFORE LOADING AND RUNNING ANOTHER PROGRAM. GAME. O BREAK OUT OF THE GAME USE THE /- COMBINATION. E AWARE THAT DOING SO WILL FAIL TO CLEAR SEVERAL POINTERS WHICH ARE RESET DURING THE GAME. OU SHOULD RESET OR POWER DOWN YOU Q`P Lƭk` KƢH noLWƆ_ψ ɭLύcϭMύd ɭgυhυ ȠiυjυM-8 DZ L^ȥiϥjLȭMύ)ǬHϮJ ȱ + M)ǩ QϰLȥgϥh` ȩkLHxth`HwXh`` VED TO DISK ONLY WHEN THE IS USED. HEN THE GAME HAS BEEN COPIED TO A DIFFERENT DISK (AS YOU ARE STRONGLY URGED TO DO) USING THE ENDING WILL ALSO RESET SEVERAL THE START AND END OF AND OTHER POINTERS. / HAS BEEN  L Ìc ÌdϬ_ϭcϑѭdϑ`` Kƭon FυGυLz8nnϭooϭonH ^ŭFυGυLzȢH lLWƆ_ψ ɩkϭLύcϭMύd ɩEϭgυhυ ȱ  EϭE ȥgϥhL ȭMύ) DV(186):15,DV,15,"S0:B.SNAKE":156 '"B.SNAKE",DV:x `"":Z$"  ":214,10: j" ":I08:Z$: t" " ~Z$(0)" Ǡ ȱ L8 "ό#ϮQ  Lϑ&Ǯnϭo ͽ"Ϭ#L KƩύϭFυGυ ȱ LU ȭ8 ϭLWƭυgϭυhϩEϠ ȱ  EϭE ȥgϥhL ȥGF xё !ȭ"ϑȭ#ϑwX#Ϯ"L) Äi xэE,) E) ѱ,)0 !ȱȱөw)XLlEύD ØEϙ"E # `H;Ϣ DFh` L "#` Ä Ä l #ÍEϭE " E` #EϠ"A "E` #ÍE")"E` Ø #ÍEJDϩ8Dυ lLGå8i؅х`)LW Ì" Ì# Ì$  é'"  Ș>ϩ?L F%zH{Hz{ ?ϑGȭ>ϑGh{hz` # Ø ÌFύGϦL>ψLc>ψLũ=ϩE ØEϙ>E= HH@Ϡ ì?ϭBH) nhBH) @h>BH) ph åAϰ ,^0\Ǎ\ϢX ^Ţ # é^ϢH ^ŮQ Q Rύp  lMύϭ ͽRύ֩ l婎 ֩ l婹 ʠ àP )ѭMϑFυGυgύhύnύonϭn z   Lɑ  LLɓ L  FυGυ KƢH ^ W zȭύnϭύoLKƢH ^ŭM)ǮJ ؠ ύ S TQ`ϭFυGυ }Ω   ΍΍ύϩ  %Φ  έ@ & ̩-  ͽ-  ̩ L LɩE ØEϝ_E`_Ϯaώe i(ii(i_ϱѱ`eϭebϰi(ѥii(iLɮbϬ_ Lì_Ϯbώe 8(8(_ϱѱ`eϭea8(ѥ8(LɮaϬ_ DISABLED TO REDUCE THE CHANCE OF ACCIDENTALLY ENDING THE GAME. O BREAK OUT OF THE GAME USE THE /- COMBINATION. E AWARE THAT DOING SO WILL FAIL TO CLEAR SEVERAL POINTERS WHICH ARE RESET DURING THE GAME. OU SHOULD RESET OR POWER DOWN YOU - --- ----- HE ACES ARE DEALT TO THE FOUNDATION PILES AND THE REMAINING CARDS ARE DEALT TO EIGHT TABLEAU PILES. ARDS ARE DEALT BY COLUMN WITH CARDS SPREAD SO THAT ALL ARE VISIBLE. HE FOUNDATIONS ARE BUILT UPWARD BY IVE TIME IT IS IN MEMORY. --- ------- 1 PENING - HOOSES BETWEEN MENU AND GAME. LEASE NOTE THAT THERE IS NO IMMEDIATE EFFECT -- OPTION IS FOR SUCCEEDING LOADS. F IS CHOSEN, WHEN PROGRAM IS NEXT RUN THE MENU ALLOWING , , E THAT AS IT MAY, HAVE NEVER PLAYED ANY OF THESE GAMES WITH CARDS, BUT HAVE GOTTEN HOOKED ON THEM AT MY KEYBOARD. NJOY. SE. HE PLAY OF THIS GAME REMINDS ME OF , A GAME WHICH LIKE VERY MUCH. HE CHANCES OF WINNING ARE PROBABLY SLI AT THE PROMPT. - OPS. AKE BACK MOST RECENT PLAY. AN BE USED AT PROMPT OR AT THE NEXT PROMPT, BEFORE PILE SYMBOL IS ENTERED. OR MAY BE USED BEFORE OPS. OT AVAILABLE DURING THE DEAL OF . - PREAD. XAMINE SHED. N THEORY, ONE CAN STUDY THE CARDS IN SUCH GAMES AND DETERMINE WHETHER OR NOT THE GAME CAN BE WON. CAN'T EVEN COME CLOSE. HE PLAY OF THIS GAME REMINDS ME OF , A GAME WHICH LIKE VERY MUCH. HE CHANCES OF WINNING ARE PROBABLY SLI  PILE TO BE PLAYED FROM. TURNS CARDS FROM DECK DURING DEAL OF . 1,2,3,4,5,6,7,8, - HOOSE PILE TO BE PLAYED TO. IS FOR OUNDATION; THE COMPUTER WILL DETERMINE PILE BY SUIT. 1 - ND GAME, UPDATE AND DISPLAY STATISTICS. 4 - ESET STAT  THAN ONE GAME, STATISTICS HAVE AUTOMATICALLY BEEN RESET WHEN THE PLAYER CHANGED GAMES. T OCCURRED TO ME THAT COULD GIVE THE PLAYER A CHOICE. HIS PROGRAM DOES NOT RESET STATS WITH A CHANGE OF GAMES. SE 2 AT ANY PROMPT TO ZERO THE NUMBERS. HE GAM S DISPLAYED AND NORMAL PLAY IS BEGUN. IS NOT AVAILABLE DURING THE DEAL, ALTHOUGH , AND ARE. - --- ----- S ABOVE, EXCEPT THAT ALL CARDS ARE DEALT TO THE TABLEAU AND PLAYER CHOOSES THE VALUE FOR THE BASE C TABLEAU AND ARE PLAYED AS AVAILABLE. - --- ----- AME AS ABOVE EXCEPT THAT AS THE CARDS ARE DEALT TO THE TABLEAU, THE DEALT CARD MAY BE PLAYED TO THE FOUNDATION IF LEGAL UNDER THE RULES. NLY THE MOST RECENT CARD IS AVAILABLE AND CE IN SPEED. 3 EE DEAL - OGGLES CARD MOVEMENT DURING DEAL ON AND OFF. OES NOT AFFECT THE WAY THE RESERVE IS DISPLAYED DURING THE DEAL. EAL IS CONSIDERABLY SLOWER WHEN ON. 4 ARIATION - OGGLES BETWEEN THE FOUR GAMES. TATS ARE RESET. 5 LAIM -  SUIT AND THE TABLEAU PILES ARE BUILT DOWNWARD REGARDLESS OF SUIT. NLY THE TOP CARD OF A TABLEAU PILE IS AVAILABLE FOR PLAY. MPTY TABLEAU PILES MAY BE FILLED BY ANY AVAILABLE CARD. HE GAME IS WON IF ALL CARDS ARE PLAYED TO THE FOUNDATIONS. INCE OR IS DISPLAYED. F IS CHOSEN, WHEN THE PROGRAM IS NEXT RUN THE CARDS ARE DEALT AND THE GAME IS STARTED. HE MENU CAN BE ACCESSED BY ENDING THE GAME WITH EITHER 1 OR 3. 2 OUND - OGGLE SOUND ON AND OFF. HERE IS ONLY A MARGINAL DIFFEREN THROUGH ALL COLORS EXCEPT WHITE. 2 ORDER - OGGLES BORDER THROUGH ALL 16 COLORS. 3 ILE - OGGLES COLOR OF TILES THROUGH ALL 16 COLORS. 4 ILE TYLE - OGGLES SEVERAL TILE DESIGNS. 5 ECK TYLE - OGGLES SEVERAL DECK DESIGNS. 6 ONOGRAM - LLOWS P PILE BY SPREADING THE CARDS ACROSS THE SCREEN. HE PROMPT APPEARS AND MUST BE ANSWERED BY ENTERING THE SYMBOL OF THE PILE (1,2,3,4,5, 6,7, OR 8) TO BE SPREAD. - ELP. HIS IS IT. HE FIRST TIME IT IS ACCESSED, IT IS LOADED FROM DISK. NY SUCCESS GHTLY BETTER THAN THE CHANCES OF WINNING EITHER OF THESE FOUR. TEND TO THINK THAT THE CHANCES OF WINNING GIVEN BY OOREHEAD AND OTT-MITH ARE TOO HIGH. S HAVE SAID BEFORE, BELIEVE THAT THE REASON IS THAT OUR 64 SHUFFLES A LOT BETTER THAN WE DO. ISTICS. CORE OF CURRENT GAME IS ALTERED; ALL OTHERS STATS ARE SET TO ZERO. 3 - ND GAME WITHOUT UPDATING STATS. 6 - LAIM A WIN. SED TO AVOID PLAYING ALL CARDS WHEN WIN IS OBVIOUS. AN BE USED AT ANY TIME. : OMPUTER DOES CHECK. NLY E IN PROGRESS BECOMES THE FIRST GAME COUNTED AND ITS SCORE IS NOT AFFECTED. HESE GAMES ARE THE TYPE THAT CALL PUZZLES, NAMELY THE TYPE IN WHICH ALL CARDS ARE VISIBLE. HERE IS A MINOR EXCEPTION TO THIS IN , BUT ONLY UNTIL THE DEAL IS FINI ARD OF THE FOUNDATIONS. FTER STUDYING THE LAYOUT, ENTER YOUR CHOICE. IS ENTERED FOR 10. F THE BASE IS NOT AN ACE, FOUNDATION PILES WRAP FROM KING TO ACE AND TABLEAU PILES WRAP FROM ACE TO KING. --- --- ---- 1,2,3,4,5,6,7,8 - HOOSE ONLY FOR PLAY TO FOUNDATIONS. SE THE TO TURN NEXT CARD AT THE PROMPT OR USE THE KEY TO PLAY TO THE FOUNDATIONS. S A RESULT OF THE PLAY, THE STACKS WILL BE UNEVEN AT THE END OF THE DEAL. HEN THE LAST CARD IS DEALT, THE PROMPT I LLOWS PLAYER TO CLAIM VICTORY AT ANY TIME. O CHECK IS MADE BY COMPUTER. 6 RAPHIC ENU - LLOWS COLORS AND TILE DESIGN TO BE CHANGED. 7 LAY - EALS A NEW GAME, USING CURRENT OPTIONS. --- ------- ---- 1 ECK - OGGLES DECK COLOR  THERE IS ONLY ROOM FOR 12 CARDS ON EACH TABLEAU PILE, ADDITIONAL CARDS WILL BE STACKED ON THE TWELFTH. MAY BE USED TO EXAMINE THE STACKED CARDS. - --- ----- OLLOW THE RULES ABOVE, EXCEPT ACES ARE DEALT TO THE  R, THEY'RE NOT. HIS SHOULD WORK FOR ANY ORDER OF AGIC QUARE, 4X4, 5X5, ETC. F A PROGRAMMER NEEDS A QUICK WAY TO DETERMINE IF A NUMBER OF SELECTED NUMBERS ARE IN A STRAIGHT LINE, JUST CREATE A AGIC QUARE "SHADOW" ARRAY THAT RELATES TO THE ORIG L ADD UP TO 15 8 1 6 T TOOK A MIND LIKE AURICE'S TO REALIZE THAT NOT ONLY DO THE ROWS, COLUMNS AND DIAGONALS ADD UP TO 15, BUT THAT YOU CANNOT PICK THREE NUMBERS THAT ADD UP TO 15 THAT ' IN A ROW, COLUMN OR DIAGONAL. NEVER THOUGHT OF VERSION. N HIS THINKING, HE CAME UP WITH SOMETHING THAT THOUGHT WAS IMPOSSIBLE -- A PRACTICAL USE FOR AGIC QUARES! ELL, AT LEAST PRACTICAL FOR PROGRAMMERS. AGIC QUARES ARE DISCUSSED IN DETAIL ON #72 AND IF THERE'S ROOM, HOPE TO UPGRA ROGRAM AND EXT BY AURICE ONES LUS/4 VERSION BY AMES EHL HEN READ THE DESCRIPTION OF ELEAGUERED ASTLE IN MY OOREHEAD AND OTT-MITH, KNEW THAT HAD FOUND MY NEXT PROGRAM. S BEGAN TO PLAN, EM SO FAR! UT IT'S NOT JUST HIS PROGRAMMING HISTORY THAT HELPS; AURICE HAS BEEN SOLVING PROBLEMS FOR YEARS. E WAS A TEACHER MOST OF HIS LIFE AND KNOWS HOW TO ANALYZE PROBLEMS BETTER THAN MOST. OR INSTANCE, HEARD ABOUT A SIMPLE SOLITAIRE GAME . AY BACK THERE WROTE ABOUT MY REQUIREMENTS FOR A GAME. SAID THAT BELIEVED THAT THE DEDICATED SOLITAIRE PLAYER WANTED TO BE ABLE TO PLAY HIS CHOSEN GAME WITHOUT HAVING TO RESPOND TO A LOT OF PROMPTS, MAKE SELECTIONS, ENTER NAMENEVER PLAYED ANY OF THESE GAMES WITH CARDS, BUT HAVE GOTTEN HOOKED ON THEM AT MY 64 KEYBOARD. NJOY. ' : S READ AURICE'S MUSINGS KEPT THINKING HOW WELL HE UNDERSTANDS THE DYNAMICS OF CARD GAMES ON COMPUTER. OST PROGRAMMERS ATTUT FOR THE TIME BEING, 'M PROUD TO BE ABLE TO TELL MY GRANDCHILDREN ABOUT THE DAY BACK IN '95 WHEN AURICE ONES FOUND A USE FOR AGIC QUARES. P TO FIGURE OUT A WAY TO MAKE ALL OF THAT STUDY USEFUL, IN A REAL SENSE AND NOT JUST FOR PROGRAMMERS. N THIS PROGRAM, THERE ARE OVER 45,000,000 COMBINATIONS POSSIBLE, YET BELIEVE THAT MOST OF US WILL PLAY OUR FAVORITE VERSION OVER AND OVER, NEEDING AT MOST ONE KEYSTROKE TO BEGIN. RARELY LOOK AT THE GRAPHICS MENU (REDUCING THE NUMBER OF CHOICES TINAL ARRAY, ADD UP THE NUMBERS AND SEE IF THE SUM EQUALS THE AGIC NUMBER. F IT DOESN'T, THE NUMBERS ARE NOT IN A STRAIGHT LINE; IF IT DOES, THEN THEY ARE IN ONE ROW, COLUMN OR DIAGONAL. CAN'T THINK OF A NON- PROGRAMMING USE FOR THIS "DISCOVERY" THAT. AVE YOU? HAT THIS MEANS IS THAT IF YOU HAVE NINE NUMBERS THAT CAN BE MADE INTO A AGIC QUARE AND YOU WANT TO KNOW IF THREE OF THEM ARE IN A ROW, COLUMN OR DIAGONAL, ALL YOU HAVE TO DO IS ADD THEM UP AND IF THEY DON'T EQUAL THE AGIC NUMBEDEAL (THE NEW WORE OFF), AND ALMOST ALWAYS WANT TO BE ABLE TO CLAIM A WIN. WAIVER BETWEEN HAVING THE PROGRAM START WITH A MENU AND HAVING THE CARDS DEALT WITH NO ACTION ON MY PART. F AM WRONG ABOUT THE WISHES OF THE PEOPLE WHO PLAY MY GAMES, LDE AND HAVE THE ARTICLE AND AGIC QUARE-MAKING PROGRAM ON THIS ISSUE. N SIMPLE TERMS, A AGIC QUARE IS A SQUARE MATRIX OF NUMBERS WHOSE ROWS, COLUMNS AND DIAGONALS ALL ADD UP TO THE SAME NUMBER. TYPICAL 3X3 SQUARE IS: 4 9 2 3 5 7 L READ ABOUT ITADEL AND TREETS AND LLEYS, TWO GAMES WITH THE SAME RULES. T ALSO OCCURRED TO ME THAT THERE WAS A FOURTH WAY OF PLAYING A SIMILAR GAME, WHICH CALLED HOICE ASTLE. O HERE ARE ALL OF THESE VARIATIONS IN ONE PROGRAM, WHICH CALL  FROM ETER OKITSKI (ANOTHER BRILLIANT PROGRAM DESIGNER WHO EDITED OFTDISK'S PPLE MAGAZINE) WHICH INVOLVED DEALING NINE CARDS IN A IC-AC-OE LAYOUT. DESCRIBED IT TO AURICE ON THE PHONE AND HE SAT BACK AND THOUGHT ABOUT IT BEFORE DECIDING TO DO A S, OR WHATEVER. O THAT END, ALL MY EARLY PROGRAMS CONTAINED EXACTLY ONE VERSION OF EXACTLY ONE GAME. Y BELIEFS HAVE NOT CHANGED BUT MY PROGRAMMING PRACTICES HAVE. F ONE CONSIDERS ALL THE CHOICES POSSIBLE IN BOTH THE MAIN MENU AND THE GRAPHICS MENU IEMPT A CARD GAME SOONER OR LATER BUT THEY NEVER STUDY THE "SCIENCE" OR "ART" OF CARD GAMES. HEY JUST PROGRAM THE GAME THEY'VE CHOSEN. AURICE'S PROGRAMMING HISTORY GIVES HIM A BIG EDGE WHEN DESIGNING A GAME -- AFTER ALL, HE'S DONE OVER THIRTY OF TH ET ME KNOW. S SEE IT, EACH PLAYER CAN PRETTY WELL TAILOR THE GAMES TO HIS ( REFUSE TO USE THE HIS/HER EVEN THOUGH AM AN ARDENT SUPPORTER OF WOMEN AND THEIR RIGHTS. Y FAVORITE PEOPLE ARE WOMEN.) OWN TASTES. N PREVIOUS PROGRAMS CONTAINING MORE O ONLY 64), AND GO TO THE AIN ENU MOSTLY WHEN TIRE OF ONE VERSION OF THE GAME. INCE ALL CHOICES ARE SAVED TO DISK EACH TIME QUIT, MAY SIMPLY START PLAYING AS SOON AS THE PROGRAM LOADS. ALWAYS LEAVE THE SOUND ON, ALMOST NEVER WANT TO SEE THE  BUT MAYBE YOU CAN? ANY INTELLIGENT PEOPLE HAVE SPENT TIME STUDYING AGIC QUARES -- ENJAMIN RANKLIN, TO NAME ONE -- AND IT SURE WOULD BE A COUP TO FIGURE OUT A WAY TO MAKE ALL OF THAT STUDY USEFUL, IN A REAL SENSE AND NOT JUST FOR PROGRAMMERS.  IVE TIME IT IS IN MEMORY. --- ------- 1 PENING - HOOSES BETWEEN MENU AND GAME. LEASE NOTE THAT THERE IS NO IMMEDIATE EFFECT -- OPTION IS FOR SUCCEEDING LOADS. F IS CHOSEN, WHEN PROGRAM IS NEXT RUN THE MENU ALLOWING , ,  ROGRAM AND EXT BY AURICE ONES HEN READ THE DESCRIPTION OF ELEAGUERED ASTLE IN MY OOREHEAD AND OTT-MITH, KNEW THAT HAD FOUND MY NEXT PROGRAM. S BEGAN TO PLAN, READ ABOUT ITADEL AND TR K THERE WROTE ABOUT MY REQUIREMENTS FOR A GAME. SAID THAT BELIEVED THAT THE DEDICATED SOLITAIRE PLAYER WANTED TO BE ABLE TO PLAY HIS CHOSEN GAME WITHOUT HAVING TO RESPOND TO A LOT OF PROMPTS, MAKE SELECTIONS, ENTER NAMES, OR WHATEVER. O THAT END, ER 45,000,000 COMBINATIONS POSSIBLE, YET BELIEVE THAT MOST OF US WILL PLAY OUR FAVORITE VERSION OVER AND OVER, NEEDING AT MOST ONE KEYSTROKE TO BEGIN. RARELY LOOK AT THE GRAPHICS MENU (REDUCING THE NUMBER OF CHOICES TO ONLY 64), AND GO TO THE ADISABLED TO REDUCE THE CHANCE OF ACCIDENTALLY ENDING THE GAME. O BREAK OUT OF THE GAME USE THE /- COMBINATION. E AWARE THAT DOING SO WILL FAIL TO CLEAR SEVERAL POINTERS WHICH ARE RESET DURING THE GAME. OU SHOULD RESET OR POWER DOWN YOU ALMOST ALWAYS WANT TO BE ABLE TO CLAIM A WIN. WAIVER BETWEEN HAVING THE PROGRAM START WITH A MENU AND HAVING THE CARDS DEALT WITH NO ACTION ON MY PART. F AM WRONG ABOUT THE WISHES OF THE PEOPLE WHO PLAY MY GAMES, LET ME KNOW. S SEE IT, EALAYER TO CHOOSE A SINGLE LETTER FOR THE CARD BACKS. HE NEW MONOGRAM IS SELECTED AS THE CURRENT CARD DESIGN AND IS SAVED IF YOU QUIT . 7 LAY - EALS CARDS FOR NEW GAME. ---------- ----- HE OPTIONS IN BOTH MENUS ARE SAAVE AUTOMATICALLY BEEN RESET WHEN THE PLAYER CHANGED GAMES. T OCCURRED TO ME THAT COULD GIVE THE PLAYER A CHOICE. HIS PROGRAM DOES NOT RESET STATS WITH A CHANGE OF GAMES. SE 2 AT ANY PROMPT TO ZERO THE NUMBERS. HE GAME IN PROGRESS BECOMES THE FI LLOWS PLAYER TO CLAIM VICTORY AT ANY TIME. O CHECK IS MADE BY COMPUTER. 6 RAPHIC ENU - LLOWS COLORS AND TILE DESIGN TO BE CHANGED. 7 LAY - EALS A NEW GAME, USING CURRENT OPTIONS. --- ------- ---- 1 ECK - OGGLES DECK COLORUDY THE CARDS IN SUCH GAMES AND DETERMINE WHETHER OR NOT THE GAME CAN BE WON. CAN'T EVEN COME CLOSE. HE PLAY OF THIS GAME REMINDS ME OF , A GAME WHICH LIKE VERY MUCH. HE CHANCES OF WINNING ARE PROBABLY SLIGHTLY BETTER THAN THE CHANCEOR IS DISPLAYED. F IS CHOSEN, WHEN THE PROGRAM IS NEXT RUN THE CARDS ARE DEALT AND THE GAME IS STARTED. HE MENU CAN BE ACCESSED BY ENDING THE GAME WITH EITHER 1 OR 3. 2 OUND - OGGLE SOUND ON AND OFF. HERE IS ONLY A MARGINAL DIFFERENEETS AND LLEYS, TWO GAMES WITH THE SAME RULES. T ALSO OCCURRED TO ME THAT THERE WAS A FOURTH WAY OF PLAYING A SIMILAR GAME, WHICH CALLED HOICE ASTLE. O HERE ARE ALL OF THESE VARIATIONS IN ONE PROGRAM, WHICH CALL . AY BAC ALL MY EARLY PROGRAMS CONTAINED EXACTLY ONE VERSION OF EXACTLY ONE GAME. Y BELIEFS HAVE NOT CHANGED BUT MY PROGRAMMING PRACTICES HAVE. F ONE CONSIDERS ALL THE CHOICES POSSIBLE IN BOTH THE MAIN MENU AND THE GRAPHICS MENU IN THIS PROGRAM, THERE ARE OVIN ENU MOSTLY WHEN TIRE OF ONE VERSION OF THE GAME. INCE ALL CHOICES ARE SAVED TO DISK EACH TIME QUIT, MAY SIMPLY START PLAYING AS SOON AS THE PROGRAM LOADS. ALWAYS LEAVE THE SOUND ON, ALMOST NEVER WANT TO SEE THE DEAL (THE NEW WORE OFF), AND9R COMPUTER BEFORE LOADING AND RUNNING ANOTHER PROGRAM. GAME. O BREAK OUT OF THE GAME USE THE /- COMBINATION. E AWARE THAT DOING SO WILL FAIL TO CLEAR SEVERAL POINTERS WHICH ARE RESET DURING THE GAME. OU SHOULD RESET OR POWER DOWN YOUCH PLAYER CAN PRETTY WELL TAILOR THE GAMES TO HIS ( REFUSE TO USE THE HIS/HER EVEN THOUGH AM AN ARDENT SUPPORTER OF WOMEN AND THEIR RIGHTS. Y FAVORITE PEOPLE ARE WOMEN.) OWN TASTES. N PREVIOUS PROGRAMS CONTAINING MORE THAN ONE GAME, STATISTICS HVED TO DISK ONLY WHEN THE IS USED. HEN THE GAME HAS BEEN COPIED TO A DIFFERENT DISK (AS YOU ARE STRONGLY URGED TO DO) USING THE ENDING WILL ALSO RESET SEVERAL THE START AND END OF AND OTHER POINTERS. / HAS BEEN  RST GAME COUNTED AND ITS SCORE IS NOT AFFECTED. HESE GAMES ARE THE TYPE THAT CALL PUZZLES, NAMELY THE TYPE IN WHICH ALL CARDS ARE VISIBLE. HERE IS A MINOR EXCEPTION TO THIS IN , BUT ONLY UNTIL THE DEAL IS FINISHED. N THEORY, ONE CAN ST THROUGH ALL COLORS EXCEPT WHITE. 2 ORDER - OGGLES BORDER THROUGH ALL 16 COLORS. 3 ILE - OGGLES COLOR OF TILES THROUGH ALL 16 COLORS. 4 ILE TYLE - OGGLES SEVERAL TILE DESIGNS. 5 ECK TYLE - OGGLES SEVERAL DECK DESIGNS. 6 ONOGRAM - LLOWS PS OF WINNING EITHER OF THESE FOUR. TEND TO THINK THAT THE CHANCES OF WINNING GIVEN BY OOREHEAD AND OTT-MITH ARE TOO HIGH. S HAVE SAID BEFORE, BELIEVE THAT THE REASON IS THAT OUR 64 SHUFFLES A LOT BETTER THAN WE DO. E THAT AS IT MAY, HAVE CE IN SPEED. 3 EE DEAL - OGGLES CARD MOVEMENT DURING DEAL ON AND OFF. OES NOT AFFECT THE WAY THE RESERVE IS DISPLAYED DURING THE DEAL. EAL IS CONSIDERABLY SLOWER WHEN ON. 4 ARIATION - OGGLES BETWEEN THE FOUR GAMES. TATS ARE RESET. 5 LAIM - p$REERPp P p pP pP Pp   pP Pp H00  8 1 1 0 6 11 9 0 1 0 0 3 0 141 PROMPT APPEARS AND MUST BE ANSWERED BY ENTERING THE SYMBOL OF THE PILE (1,2,3,4,5, 6,7, OR 8) TO BE SPREAD. - ELP. HIS IS IT. HE FIRST TIME IT IS ACCESSED, IT IS LOADED FROM DISK. NY SUCCESS - --- ----- HE ACES ARE DEALT TO THE FOUNDATION PILES AND THE REMAINING CARDS ARE DEALT TO EIGHT TABLEAU PILES. ARDS ARE DEALT BY COLUMN WITH CARDS SPREAD SO THAT ALL ARE VISIBLE. HE FOUNDATIONS ARE BUILT UPWARD BY THERE IS ONLY ROOM FOR 12 CARDS ON EACH TABLEAU PILE, ADDITIONAL CARDS WILL BE STACKED ON THE TWELFTH. MAY BE USED TO EXAMINE THE STACKED CARDS. - --- ----- OLLOW THE RULES ABOVE, EXCEPT ACES ARE DEALT TO THE p p p  p@ p @ p  p  @p  p @@@@ pp ONLY FOR PLAY TO FOUNDATIONS. SE THE TO TURN NEXT CARD AT THE PROMPT OR USE THE KEY TO PLAY TO THE FOUNDATIONS. S A RESULT OF THE PLAY, THE STACKS WILL BE UNEVEN AT THE END OF THE DEAL. HEN THE LAST CARD IS DEALT, THE PROMPT Iff pp   ?pp 0~ 0``|ff<~ f< pp ARD OF THE FOUNDATIONS. FTER STUDYING THE LAYOUT, ENTER YOUR CHOICE. IS ENTERED FOR 10. F THE BASE IS NOT AN ACE, FOUNDATION PILES WRAP FROM KING TO ACE AND TABLEAU PILES WRAP FROM ACE TO KING. --- --- ---- 1,2,3,4,5,6,7,8 - HOOSE9}})y11$H((U}9~z^~ISTICS. CORE OF CURRENT GAME IS ALTERED; ALL OTHERS STATS ARE SET TO ZERO. 3 - ND GAME WITHOUT UPDATING STATS. 4 - LAIM A WIN. SED TO AVOID PLAYING ALL CARDS WHEN WIN IS OBVIOUS. AN BE USED AT ANY TIME. : OMPUTER DOES CHECK. NLY#oʟfffUUS]>%UUU%?T,UU]S0ǻUT8 9836 ܐ <j?dhqbF&<0 ;xY08lH0 *@@*P#tixh90 >8)8+|# PILE BY SPREADING THE CARDS ACROSS THE SCREEN. HE PROMPT APPEARS AND MUST BE ANSWERED BY ENTERING THE SYMBOL OF THE PILE (1,2,3,4,5, 6,7, OR 8) TO BE SPREAD. - ELP. HIS IS IT. HE FIRST TIME IT IS ACCESSED, IT IS LOADED FROM DISK. NY SUCCESS SUIT AND THE TABLEAU PILES ARE BUILT DOWNWARD REGARDLESS OF SUIT. NLY THE TOP CARD OF A TABLEAU PILE IS AVAILABLE FOR PLAY. MPTY TABLEAU PILES MAY BE FILLED BY ANY AVAILABLE CARD. HE GAME IS WON IF ALL CARDS ARE PLAYED TO THE FOUNDATIONS. INCETABLEAU AND ARE PLAYED AS AVAILABLE. - --- ----- AME AS ABOVE EXCEPT THAT AS THE CARDS ARE DEALT TO THE TABLEAU, THE DEALT CARD MAY BE PLAYED TO THE FOUNDATION IF LEGAL UNDER THE RULES. NLY THE MOST RECENT CARD IS AVAILABLE AND  p  p@ p @ p  p  @p  p @@@@ pp S DISPLAYED AND NORMAL PLAY IS BEGUN. IS NOT AVAILABLE DURING THE DEAL, ALTHOUGH , AND ARE. - --- ----- S ABOVE, EXCEPT THAT ALL CARDS ARE DEALT TO THE TABLEAU AND PLAYER CHOOSES THE VALUE FOR THE BASE Cہ$fZ00x ?3 0` ?0xx03  30? `x00 3? 00 ?3 xx`00 3? 00x ?3 ```` pp  pp  PILE TO BE PLAYED FROM. TURNS CARDS FROM DECK DURING DEAL OF . 1,2,3,4,5,6,7,8, - HOOSE PILE TO BE PLAYED TO. IS FOR OUNDATION; THE COMPUTER WILL DETERMINE PILE BY SUIT. 1 - ND GAME, UPDATE AND DISPLAY STATISTICS. 2 - ESET STAT~۽~E= HH@Ϡ >Ϭ?ϭB,:0DѭCϑ>A l L{ hh֩:Ll `)*L8 "ό# Ä`i  FϠ"F "Ϡ; í'ύ< DϮ;ώEɑ /L*;ϭ;%T;L;ϭ;L¬%ψ;L­DEL­;m"Ϫ í&ύ< ­;i>ϩ?L ŭ"m;Ϫ í'ύ< ­"mEϪ í&ύ< L*¬#ϭ<ϑ0I$ #ϑѭ$00(eхѩe҅(eeLéL Ì" Ì#  é')"#ϑ0(eeLEĩ=ϩ:LL # Ø  ͽ  )B Lĩ L #Å "BH) ]>ϑѬ?ϑh>ϑLŬ?ϭBH) }hBH) @h>BH) mhhh lL ψ` ϙ` ÄFύGϠxt LwƥϥϩwXL :ŎόϠ^Ϙkϩ L ÌMόWϘ) LύL ÌRό] ;˩kϢN oŢS oŭ]ύ)Q`P Lƭk` KƢH noLWƆ_ψ ɭLύcϭMύd ɭgυhυ ȠiυjυM-8 DZ L^ȥiϥjLȭMύ)ǬHϮJ ȱ + M)ǩ QϰLȥgϥh` ȩkLHxth`HwXh``  L Ìc ÌdϬ_ϭcϑѭdϑ`` Kƭon FυGυLz8nnϭooϭonH ^ŭFυGυLzȢH lLWƆ_ψ ɩkϭLύcϭMύd ɩEϭgυhυ ȱ  EϭE ȥgϥhL ȭMύ) FυGυ KƢH ^ W zȭύnϭύoLKƢH ^ŭM)ǮJ ؠ ύ S TQ`ϭFυGυ }Ω   ΍΍ύϩ  %Φ  έ@ & ̩-  ͽ-  ̩ d$(6)"O SUBSCRIBE CALL 1-800-594-3370."0 214,12:Z I06:20((Z$(I))2))""Z$(I)::NC."(13) Z$(3)"HIS PROGRAM IS THE COPYRIGHTED WORK Z$(4)"OF & . T IS NOT" Z$(5)"SHAREWARE OR IN THE PUBLIC DOMAIN."" Z```` Lͮ   ` ̩` ̩ ` ͈`HHH Ѝ"ϢH ^ŭM)J   Х@hhh"ύ `HHHH ^ŭM)J  hhh`N S/A KP R I N T I N G . . .'DV(186):15,DV,15,"S0:B.CASTLE":15: '"B.CASTLE",DV:| `"":Z$"  ":214,10: j" ":I09:Z$: t" "4 ~Z$(0)" xё !ȭ"ϑȭ#ϑwX#Ϯ"L) Äi xэE,) E) ѱ,)0 !ȱȱөw)XLlEύD ØEϙ"E #`H;Ϣ DFh` L "#` Ä Ä l #ÍEϭE " E` #EϠ"A "E` #ÍE")"E` Ø #ÍEJDϩ8Dυ lLGå8i؅х`)LW Ì" Ì# Ì$  é'"  Ș>ϩ?L F%zH{Hz{ ?ϑGȭ>ϑGh{hz` # Ø ÌFύGϦL>ψLc>ψLũ=ϩE ØEϙ>E= HH@Ϡ ì?ϭBH) nhBH) @h>BH) ph åAϰ,^0\Ǎ\ϢX ^Ţ # é^ϢH ^ŮQ Q Rύp  lMύϭ ͽRύ֩ l婎 ֩ l婹 ʠ àP )ѭMϑFυGυgύhύnύonϭn z   Lɑ  LLɓ LL LɩE ØEϝ_E`_Ϯaώe i(ii(i_ϱѱ`eϭebϰi(ѥii(iLɮbϬ_ Lì_Ϯbώe 8(8(_ϱѱ`eϭea8(ѥ8(LɮaϬ_Ǡ ȱ L8 "ό#ϮQ  Lϑ&Ǯnϭo ͽ"Ϭ#L KƩύϭFυGυ ȱ LU ȭ8 ϭLWƭυgϭυhϩEϠ ȱ  EϭE ȥgϥhL ȥGF ƚw` ` Ω ή=n 3ϥόϩ & ̩- ϩ ͽ- ϭυυ T / }ΩΩ `FυGυ`)ϙ)_) mL `ιȾΈ  # SHEET OR RACTOR FEED? (//)T    &''& OTAL INES: URRENT: P/OWN - CROLL /Ғ - OP/OTTOMВ - RINT ђ - UIT EXTINGLET    &''& OTAL INES: URRENT: P/OWN - CROLL /Ғ - OP/OTTOMВ - RINT ђ - UIT EXTINGLE " :Z$(1)"BY AURICE ONES"i Z$(2)"() 1995 BY & UBLISHING, NC."(13) Z$(3)"HIS PROGRAM IS THE COPYRIGHTED WORK Z$(4)"OF & . T IS NOT" Z$(5)"SHAREWARE OR IN THE PUBLIC DOMAIN."" ZAl CASTLEC12ACASTLE BOOT C64_ 4MT.CASTLE_ 4CASTLE_ 4DCASTLE FONT_ 4 CASTLE.OPTST.CASTLE HELP_ 5T.CASTLE_  ----------------CASTLE BOOT +4CASTLE+4CML.CASTLE CS.CASTLE_ 4 CASTLE HELP_ 5CASTLE.DOC - -------------- SNAKE BOOTC64 MT.SNAKE SNAKE<SNAKE FONT SNAKE.OPTS T.SNAKE HELP-- -------------SNAKE+4 BOOTSNAKE+4:CS.SNAKE ML.SNAKE SNAKE HELP SNAKE.DOCCASTLE+4-2C---- -----------BRAINTECHm#!+MENU DV(186):DV8DV8S57812"CASTLE FONT",DV,0:780,0:781,0:782,8:65493~" HE QUEEN OF HEARTSI,X,Y,Y1,Y2,Y3,X1,X2,X3,WM$,WM,WG,WF,VC,VA,V,U2,TT,T6,T,SU,SO,S,O$,NW,MT  MM,MD,LO,L,K4,K1,JJ,J%,HI,G8,FV,FS,FR,FC,F,C 8253265,27: 500:) BRANCHER?I1:A$:A$""70PI(CH$)20eA$(CH$,I,1)sII1:21y: CHARGEA$"251331421502421502"T87:F6,96:F24,15I1183F1,((A$,I,2)):F4,33J1T((A$ 4:F12,63:F13,17:F11,33,\T1100::F11,32T]X1:Y24:66:WM$(WM);:K1300::p`F24,15:F5,4:F6,12aF4,23:F15,100:F4,20:F1,30:K1350::F 6,0bF4,129 :93m:n SETUPoVA$(13),VB$(13),ST$(4,12),CO$(3),S$ ,"","","","","'","","",""OtBK$"!##$\**+"uS(X)(X13):V(X)X13(X13):C(X)(X1)MD((X1)MD)vF54272:IFF24:I,0::MT49152:X(TI)xF1,50:F24,12:F5,128"zST$(0,1)"">~ST$(3,9)"":ST$(3,7)""vST$(3,1)"":ST$(0,2)"ڒ"ST$(0,6)"ʒ":ST$(3,6)""ST$(3,3)"":ST$(0,5)"QRIJ":ST$(2,4)"ABSTIJ":ST$(2,3)"ABIJ"qST$(2,2)"WXSTYZ":ST$(2,1)"WXYZ":ST$(2,0)"!ST"I23:ST$(I,10)")123456789":ST$(1,9)"߿"ST$(1,8)"#$%&I01:ST$(I,11)"()>?45<=:;":;ST$(0,10)"()^_45[]:;"bST$(1,10)"()^_45[]:;"ST$(1,12)"0123456789"ST$(0,12)"()^_45[]:;"ST$(2,12)"()^_45[]:;":ST$(3,12)ST"  OW LOVES THE KNAVE,GJJJJ1:J%JJ((1)(NCJJ)):TEMPS(JJ):S(JJ)S(J%):S(J%)TEMPYJJNC2168KC(1)101:KC(2)(47):KC(3)191:KC(4)124SQ(16):I14:SQ(I)I8::I(5)0:I610:SQ(I)18I:SQ(11)0O$(0)"ON ":OWM$(2)" PEAK FLAG OFF " WM$(3)" ILLEGAL PLAY "< WM$(4)" TURN A CARD "Y WM$(5)" BASE CARD "w WM$(7)" NEXT CARD " WM$(8)" DEAL FINISHED " B(NP,NC),C(NP),MM(NP2),X(NP1),Y(NP1),K(NC): MSNP1 220"F4,129:T115::F4,128:F5,0N"CO$(SU);VA$(VA);"";S$(SU);"   ";S1$(SU);~""";VB$(VA);"";ST$(SU,VA);:" ERASES CARD-TILE: 225-VERT STACK"MT3,X,X3,Y,Y4,KT,SK:"MT3,X(I),X(I)3,L,CA,B,AV,A86 J,K,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,MSe NC52:NP12:X(TI):4095,31:111:788,52 2,DV,2,"CASTLE.OPTS,P,R":2,K3,SD,SO,CC,SK2,BD,FB,MU,WG,PK,RD,KC,KC(0) :2:RD0HT1KTTT(K3):G70:RD1HT3"":1000:MU14,I2,1)):F4,0::?:(@ PRINT AT:AXX(I):YY(I)UB211,X:214,Y:58732:[D:kE MULTITASK~FJJNC2JJ1GJJJJ1:J%JJ((1)(NCJJ)):TEMPS(JJ):S(JJ)S(J%):S(J%)TEMP:20X:Y WRONG CHOICE SOUNDZF24,15:F8,(3),S1$(3),S(NC),RD(NC),DR(17):JJ1Sp"","","","","","","","","","&","","",""qS$(0)"":S$(1)"":S$(2)"":S$(3)"":CO$(0)"":CO$(1)"":CO$(2)""rCO$(3)"":S1$(0)"":S1$(1)"":S1$(2)"":S1$(3)""s"","","","",""ڒ":ST$(0,0)"Ԓ":ST$(3,0)"!"f{ST$(0,9)"ʒ":ST$(3,2)""|ST$(0,8)"ʒ":ST$(0,3)"ʒ"}ST$(3,8)"":ST$(0,7)"ʒ".ST$(3,5)"":ST$(0,4)"ʒ"OST$(3,4)"":ST$(2,9)"ABCDEFGHIJ":ST$(2,8)"ABKLMNOPIJ"ST$(2,7)"ABSTQRUVIJ":ST$(2,6)"ABSTQRIJ")ST$(2,5)"AB*+"ST$(1,6)"\^<>"7ST$(1,5)"<>"WST$(1,4)"\^"ST$(1,7)"\^<>_="ST$(1,1)"":ST$(1,2)"\^"ST$(1,0)"\^":ST$(1,3)""$(2,12)I23:ST$(I,11)"()>?45<=:;":GI012:VA$(I)::I012:VB$(I):\I051:S(I)I:}RD$(0)"BELEAGUERED CASTLE"RD$(1)"STREETS AND ALLEYS"RD$(2)" CITADEL "RD$(3)" CHOICE CASTLE "$(1)"OFF":O$(3)"ONE ":O$(4)"THREE"0O$(8)"MENU":O$(7)"GAME"TT(1)0:TT(2)100:TT(3)128:TT(4)155:TT(5)157:TT(6)1:TT(7)3:LO1000:HI0" HE KING RAN OUT" OF URMA HAVEWM$(1)" EMPTY PILE " :!! 198-VERT STACK: 200-STACKED: 202-OTHER PLACE: 203-ANY CARDS!C(I)1C(I)12YY(I):XX(I)C(I)1:66:202{!C(I)11XX(I)11:YY(I):66: 202!XX(I):YY(I):66:C(I)0224!CAB(I,C(I)):C(I)0224!SUS(CA):VAV(CA)!SO1 Y(I)C(I),Y(I)C(I)4,KT,SK:":-# PRINT COUNT AT I (232 FOR ONE SPACE ONLY)k#K((C(I))):MT3,X(I)3,X(I)1,Y(I)3,Y(I)3,KT,SK:234#K((C(I))):MT3,X(I)1,X(I)1,Y(I)3,Y(I)3,KT,SK#C(I)0#XX(I)K1:YY(I)3#66:"" C(1):C(1)0%I1:200:65:MT3,X,X5,Y,Y4,KT,SK:I0:250!%HT3 G%XX(0)1:YY(0)2:66:"REDEAL"% RERE1:XX(0)1:YY(0)1:66:""((RE),2,((RE))1)% % :% WILL IT PLAY%PL1:T28C(T2)0FVBVPL2:%T28C(T2 ):XX(1)NT1:66:202&)&*:'+ PRINT STATS,',X12:X215:Y18:Y219:CLCC:2100>'.XX12:YY12S'266:"PLAYED";t'3XX112((T6)):66:""T6'4XX12:YY2:66:"HIGH ";'5XX112((HI)):66:""HI'6XX12:YY1:66:" (I CLEAR MESSAGE)JXX(MS):YY(MS): 66:MT3,X,X5,Y,Y,KT,SK:"": )R:1)S SEE THE DEAL=)TSD1s)UX(2X(0)X(I))3:Y(2Y(0)Y(I))3:66:MT6,208)V256 :MT9,208)XX(2X(I)X(0))3:Y(2(Y(I))Y(0))3:66:MT6,208)G7.5):T6LOLOT6*T6HIHIT6*WF0:+:+ SPREAD GRAPHICS$+K36442T+X1:Y2:J1K:66:C(I)J:202:XX1::447+X1:Y2:J136:66:C(I)J:202:XX1::K72445+X1:Y8:J37K:66:C(I)J:202:XX1::447+X1:Y8:,X(1)5,Y(1),Y(1)4,KT,SK:I1:200:M1350:-NTHT:NT1464!-NTHT:C(0)3NTC(0)m-I1: J1NT:B(1,C(1)1)B(0,C(0)):C(1)C(1)1:C(0)C(0)1:CAB(1,C(1))}-C(0)0472-XX(1)J1:YY(1):66:202-:-XX(0):YY(0):MT3,X,X3,Y.BV0: RD1510,3400,3500,3400.J1/V(B(0,C(0)))0522C/FCB(0,C(0)):FSS(FC):T29FS:B(T2,1)FC:C(T2)1:IT2c/340:C(0)C(0)1:SD1200s/C(0)0530|/512/ C(J)C(J)1:B(J,C(J))B(0,C(0)):IJ:C(0)C(0)1:340:SD119808:5340 II7:C(I)0WM1:90:5341"K0NP:MM(K)C(K)::MT6,224:VCNT1P:$1Q FROM CARDQ1RFRI: FCB(FR,C(FR)):FVV(FC):FSS(FC)j1XIMS:65:"TO"1\CH$"HSO12345678F":20:3301^I66121`I 542,850,4000,4004,1600,161:66:2242|C(I)11XX(I)11:YY(I):66: 2243C(FR)C(FR)1:1983IT2:T28200:680(3198.3:93 WIN?P3K18:C(K)0534V3e3368:4000k3:x3 REDEAL3 (RD1)WM4: 90:5343#K0NP:MM(K)C(K)::MT6,224L):44I213:B(I,1)B(0,C(0)):C(0)C(0)1:340:C(I)1:DR(I)0458200::B(1,1)B(0,C(0)):C(1)1:340:C(0)C(0)1:I1:200F5<I0:250:230i5@K0NP:MM(K)C(K)::MT6,224r5D534x5P:5Q PROMPT FOR SPREAD5RMT6,208:XX(MS):YY(MS):66:((C(I)),K1):##: $ PRINTS DECK AT I$65!$SO1256H$F4,129:T115::F4,128:F5,0{$646,CC:BK$:MT3,X1,X2,Y1,Y3,KC(KC),CC:$:$ REDEAL$HT1RE2 WM4:90:$XC(1):I1X:B(0,X)B(1,I):XX1::C(0))0FV1TVPL2:&T28C(T2)0BV0FV0TV12PL2:)&T29C(T2)0PL2:K&T29BV0FV12TV0PL2:l&T29FV1TVC(T2)0PL2:r&x& :&! PICK UP WASTE&"YY(1):XX(1)NT1 :66&&224:NTNT1:NT1NT1&(I1:YY(1LOW ";'7XX112((LO)):66:""LO(8XX12:YY1:66:"AVE. ";<(9XX112((AVE)):66:""AVE](<XX12:YY2:66:"GAMES";~(=XX112((G7)):66:""G7(@XX12:YY1:66:"WINS ";(AXX112((NW)):66:""NW(F(H:\256:MT9,208:198)h)n:)o DECLARE WIN *pSO026*rNWNW1:WF1D*tX121:X234:Y12:Y206:CL2:2300j*vYY12:XX13:66:"YOUWIN ":p*:* UPDATE STATS*G7G71:T60:I912:T6T6C(I)::WF1T652*G8G8T6:AV(G8J3772:66:C(I)J:202:XX1:,X1:Y14:J73K :66:C(I)J:202:XX1:O,XX(MS):YY(MS):66:"ANYKEY";:198,1:198,0:U,:w, TURN FROM DECK:HT IS NUMBER,C(0)0C(1)090:,C(0)0260:,UTNT:UT2460,MT3,X(1),Y4,KT,SK:468-:- MENU OPENING .3200: MT9,216: 5000%.I500,486,488,390004.5400:500L.WM5:90:5000:484R.:]. GAMEy.I1NC:RD(I) S(I1):.MT9,216: I1NP:C(I)0:.I1NC:B(0,I)RD(I)::C(0)NC.:/ C(0)0530/JJ1:J9J1/512/:0K0NP:MM(K)C(K)::MT6,22400IMS:65:"FROM"J0CH$"HSO12345678"j0MT3,1,18,24,24,KT,SK:WM0w020:3300I75440I890, 542,850,4000,4004,1600,162003000:MT9,2201dT2I6:T209T209FS2hTCB(T2,C(T2)):TSS(TC):TVV(TC)2p270:PL628,630'2tWM3:90:534N2vTVBVT29C(T2)0 WM5:90:534m2wFVBVT29 WM5:90:5342xC(T2)C(T2)1:B(T2,C(T2))FC:IFR2zC(I)1C(I)12YY(I):XX(I)C(I) 3$K1C(0):L1K1:K(L)B(0,L)::C(0)0:I0: 2304&XX(0):YY(0):224'4(I113:KC(I)11: C(I)0816R4,C(0)C(0)1:B(0,C(0))B(I,K):K:C(I)040MT3,X(I),X(I)3,Y(I),Y(I)6,KT,SK: I:I0:250:6542L1K1: C(0)C(0)1:B(0,C(0))K( "WHICH"5VCH$"12345678":20:3305^C(I)0WM1:90:5346l65:MT3,X,X 14,Y,Y4,KT,SK76pKC(I):440:MT9,208:534=6x:I6y CLAIMb6zWG1WM6: 90:534q6~368:4000w6:6 CHEAT6C(1)0WM8:90:5346I0:65:224 :KC(FR):: I=1:GOSUB200:7C(FR)0:: I=0:GOSUB250*8J1K:C(T2)C(T2)1:B(T2,C(T2))B(FR,J):IT2:198:3868098:F8 SCREENY8"":53265,11853281,1:53280,BD:53272,19:MT3,0,39,0,24,KT,SK8I14:X(I)1:Y(I)6I5: T FILE9@HI0:LO1000:G70:NW0:G80:MT6,208:E53280,BD1:MT3,12,25,09,15,32,1 :GX16:Y11:66:"STATS"9:HYY2:66:"RESET"X:JJ11000::MT9,208:534^:R:i:S OOPS:TI0NP:C(I)MM(I)::MT9,224::\534:::: MEDIUM ;;(:;3 THIN WINDOW;4MT3,X1,X2,Y1,Y2,032,SK:MT3,X1,X2,Y1,Y1,115,CL0<8MT3,X1,X1,Y1,Y2,099,CL:MT3,X2,X2,Y1,Y2,110,CLf<<MT3,X1,X2,Y2,Y2,114,CL:MT3,X2,X2,Y1,Y1,113,CL<@MT3,X2,X2,Y2,Y2,224,CL:MT3,X1,X1,Y1,Y1,117,CL MT3,X1,X1,Y1,Y2,106,CL:MT3,X2,X2,Y1,Y2,107,CL`> MT3,X1,X2,Y2,Y2,042,CL:MT3,X2,X2,Y1,Y1,036,CL> MT3,X2,X2,Y2,Y2,043,CL:MT3,X1,X1,Y1,Y1,033,CL> MT3,X- AURICE ONES "? "":53272,19? ?~ :? OPENING MESSAGE-CASTLE SPEC? ""4@ 53281,09:53280,09:53272,19:MT3,0,39,0,24,191,07a@ X13:X236:Y14:Y220:CL7:2300:646,01@ X4:Y07 :66:" "RD$(RD)@ X4:YY2:66:" " AT ANY PROMPT FOR DIRECTIONS.A X4:YY2:66:" PLEASE PRESS ANY KEYB 53265,27:198,1:198,0B BF :+BG STREETS & CHOICEkBH K16:I18:B(I,K)B(0,C(0)):C(0)C(0)1:C(I)K: 340zBL SD1198BP :BT I12:B(I,7)B(0,CCx YY1:66:" CARD BYC| YY1:66:" ENTERINGC YY2:66:"A,2,3,4,5,D YY1:66:"6,7,8,9,T,$D YY1:66:"J,Q, OR KMD CH$"HA23456789TJQK":20:I33472cD I3470,4000,4004}D 3002:MT9,208:3440D BVI4:MT9,208:XX1,18,24,24,KT,SK:WM0E CH$"H F":HF1E 20:330E K0NP:MM(K)C(K)::MT6,224:VCNTF I33536F I3534,4000,40042F 3000:MT9,224:3516IF II3:I3540,3560\F JJ1:J9J1eF E30oF 3504uF :F END O DEALF SG PL3576,3580G WM4:90:3516G C(T2)C(T2)1:B(T2,C(T2))B(FR,C(FR)):E31HIFR:C(I)1YY(I):XX(I)C(I)1:66:224:*HC(FR)C(FR)1:1988HIT2:200BH3516HH:SH QUITaH390:300H5000:I500,4134,502,39000H&5400:56T6B(0,C(0))6XC(0)6X29316B(0,X)B(0,X1):XX1:9237B(0,1)T6:I0:250:5347:87 PLAY PILE FR TO PILE T2[7FCB(FR,1):FVV(FC):FSS(FC)p7270:PL984,9867WM3:90:5347IFR:MT3,X(I),X(I)3,Y(I),Y(I)16,KT,SK:I58:X(I)25:Y(I)Y(I4):9I912:X(I)18:Y(I)Y(I8)::X(MS)X(10):Y(MS)Y(10)589I1NP:65:""("12345678FFFF",I,1):f9646,SK:X39:Y0:66:"/":X(0)16:Y(0)21|9BMU1MT6,216:9D53265,27:MT6,216:9>:9? CLEAR STA WINDOW:MT3,X1,X2,Y1,Y2,032,SK:MT3,X1,X2,Y1,Y1,120,CL;MT3,X1,X1,Y1,Y2,119,CL:MT3,X2,X2,Y1,Y2,118,CLS;MT3,X1,X2,Y2,Y2,121,CL:MT3,X2,X2,Y1,Y1,125,CL;MT3,X2,X2,Y2,Y2,126,CL:MT3,X1,X1,Y1,Y1,123,CL;MT3,X1,X1,Y2,Y2,127,CL,X1,X1,Y2,Y2,116,CL > :> HELP> MT6,208 ? "": 53280,0:53281,0:646,3:53272,23? A813014g? MT27,"T.CASTLE HELP",DV,32768,3,7," - AURICE ONES "v? A81:3020? MT30,32768,3,7,"Ġ WITH THE CASTLE IN THE CENTER@ X4:YY1:66:" AND BESIEGERS BOTH RIGHT AND#A X4:YY1 :66:" LEFT, FAR AND NEAR, THE ARENAUA X4:YY1:66:" FOR THIS CASTLE GAME COVERSA X4:YY1:66:" THE ENTIRE SCREEN, SO ENTER HA X4:YY1:66:(0)):C(0)C(0)1:C(I)7: 340BX SD1 198B\ C` I56:B(I,7)B(0,C(0)):C(0)C(0)1:C(I)7: 340#Cd SD1 198)Ch 7Cl RD1530pCp MT6,208: X111:X223:Y113:Y222:CLSK:2100Ct XX11:YY12:66:"SELECT BASE(10)1:YY(10)1:66:D "BASE"("A23456789 JQK",BV1,1)D BV966:"BASE 10"D 530D : E CITADELE J1$E C(0)03548]E C(J)C(J)1:B(J,C(J))B(0,C(0)):C(0)C(0)1:IJ:198nE C(0)03550E IMS:65:"PLAY"E MT3, YSMT+3,X(J),X(J)+3,Y(J)-1,Y(J)-1,KT,SK:GOTO530F WM8:96F 530F :F PLAY TO FG E31WM4:90:3516PG FRJ:FCB(J,C(J)):FVV(FC):FSS(FC):T29FS:TCB(T2,C(T2)):TVV(TC)rG PL1:FVBVT28C(T2)0PL2G FV1TVC(T2)0 PL2 00H:H MENUHX121:X234:Y19:Y219:CLCC:2100HXX12:YY12 :66:"1 PLAY IYY2:66:"2 OPTIONS(IYY2:66:"3 REPLAYGIYY2:66:"4 LOADSTAR\ICH$"1234":20:bIN:uIO OPTIONS MENUIPMT6,208:"":53 2:66:" STYLE"JYY1:66:"4 TILEJYY1:66:"5 DECKJYY1:66:"6 MONOGRAMKYY2:66:"7 PLAY KMT3,21,36,7,19,KT,SKSKY11: X29:66:CA35:203:X31:66:CA11:203jKX23:Y11:66:256KCH$"1234567":20:I5310 C(SK):MT36,KT,KT,SK:5270LMD16:BDC(BD):53280,BD:5270LU2K3:K3K31:K36K31LKTTT(K3) MMT36,TT(U2),KT,128M5270*MMD2: WGC(WG)LMXX3:YY32I:66:""O$(WG)lMHI0:LO1000:G70:NW0:G80vM5444MMD5:KC 9,0,24,KT,SKNX109:X231:Y12:Y222:CLSK:2300:X3X114:Y3Y14N XX12:YY12:66:" OPTIONS"O$YY2:66:"1 OPENING "O$(7MU)>O(YY2:66:"2 SOUND "O$(SO)eO,YY2:66:"3 SEE DEAL "O$(SD)O4YY2:66:"4 VARIAT4:RDC(RD)PbXX12:YY32I :66:""RD$(RD)Pg5444P'DV(186):15,DV,15,"S0:CASTLE":15P'"CASTLE",DV:PV:QW SAVE OPTS - RECONNECT;QX15,DV,15,"S0:CASTLE.OPTS":15YQ]2,DV,2,"CASTLE.OPTS,P,W"{Qb2,K3:2,SD:2,SO:2,CC:2,SK,I,15,"R0:"A$"="A$:15,ER:15:ER6340070R|:"":53272,23:186,8:RQ$(34):646,(53281):"":53272,232S"P2048,0:P44,8:P43,1:P56,160:P55,0:CLR:L"Q$A$Q$","I\S"RUN:":631,13:632,13:198,2::2:ST40060Rr15:15p$REERPp P p pP pP Pp   pP Pp H00  .`pmm}m9m==mq9mm99maaa9aym99m9m91a}9m= 9=a==!}-919a9a9}1e=9}9~۽~PDCH$"1234567":20:I5280,5460,5290,5470,5350,5200,5394wPTMD2:SOC(SO):XX3:YY32I2:66:""O$(SO):5444P^MDQl2,BD:2,FB:2,MU:2,WG:2,PK:2,RDQp2,KC:2,KC(0)Qv2Q@I021:828I,8I:QJDV8DV29DV840030RTA(828):B(828DV8):828,B:828DV8,ASR^A$"HELLO CONNECT":J829:I(828J8):I14nRh2:2,I,2:2:ST40060Rr15:15p p p  p@ p @ p  p  @p  p @@@@ pp #oʟfffUUS]>%UUU%?T,UU]S0ǻUT8 9836 ܐ <j?dhqbF&<0 ;xY08lH0 *@@*P#tixh90 >8)8+|# 9}})y11$H((U}9~z^~ ff pp   ?pp 0~ 0``|ff<~ f< pp DV(174):DV8DV8<"":65301,112:65305,112] 7168,0:44,28:43,1:56,208f"""LOAD"(34)"CASTLE+4"(34)","DV("RUN"Z1319,13:1320,13:239,2: LL?LL-LxLLRLLLLtLLLLLL~LL/LRLY Y>Y HH@ >?BȭC>A Ll hhL``x?`>X`8 45 `iީ݅۩  ȑ ;;L>7;L>;m4 8< u,X0 ;i1'`4m; 9< u4mY 8< uL5<0I6`  䝥` , K"#`    Y" Y` Y"A "Y` Y")"Y Y>ȭBȭ?ȭC A' L rhhLإi(۩eɅܥi(ݥiޭ@ۭDȭAۭE݈` iP۩eɅܥiPݩeޠ'ȑ۱݈`Y Y>YHH Y>ȭGȭ?ȭHȭ@ȭIꈈ X Y " Și0' `Y   ۥ ٥    ڐِߩ L   ۥ ٥    LS  ==  " " )@A " " )@ p  p@ p @ p  p  @p  p @@@@ pp  L1Y00110 1110 110eۅ٭1e܅ڠ   `    )@B     LpQ L L 01 Y" Y0 V)V) I V V)@H V hеWMV Т )@ЙWWMWL >` ` )@B     LpQ L L 01 Y" Y0 62158%DV(174):DV8DV8R65301,112:65305,112:5:1344,64:1400043115"ML.CASTLE",DV,0:2034,0:2035,0:2036,16:6549343115"CS.CASTLE",DV,0:2034,0:2035,0:2036,240:65493" HE QUEEN OF HEARTSBI,X, SO,CC,SK62,BD,FB,MU,WG,PK,RD,KC,KC(0) :2:RD0HT1TKTTT(K3):G70:RD1HT3t"":12000:1000:MU1482}500: BRANCHERI1:A$:A$""70I(CH$)20A$(CH$,I,1)II1:21: CHARGE/1,453,10:1,596,10:1,685,15:1,739,29:1,685,10:1,739,30KJ1T((A$,I2,1)):QW?:f@ PRINT ATxAXX(I):YY(I)B202,X:205,Y:55464:D:E MULTITASKFJJNC2JJ1GJJJJ1:J%JJ((1)(NCJJ)):TEMPS(JJ):S(JJ)S(J%):S(ޠȭ4ȭ5 54L iީ݅۩  ۑȱޠȱ݅ȱ݅ LةYX Y4Y 4; 9< u ;Yɑ$ 7:X0-L;;7K;L>`X Y"A "ȩX")".X!X?X,X0Y`A "XY`  YJX8X L   L       )@ LY Y>YHH%ԥ L hhLإi(۩eɅܥi(ݥiޭAۭJȭBۭKȭCۭL݈i(۩e܅ܥi(ݥiޭDۭMȭEۭNȭFۭO݈` Ȫ'ꊑȥ L ix۩eɅܥixݩeޠ'ȑ۱݈`4 " " _ )@ " L )@L ` `  = ۥܮ=  2 \ ݩ؅ީ2) Y) Y 2>ީݩ32ۅ٥܅ک01ݍY0/ /(ڠ(e݅ݩeޅ2Ơ J%)TEMP:20 X:#Y WRONG CHOICE SOUND1Z1,200,10Y]X1:Y24:66:WM$(WM);:K1300::r` WRONG CHOICE SOUNDa1,200,10b93m:n SETUPoVA$(13),VB$(13),ST$(4,12),CO$(3),S$(3),S1$(3),S(NC),RD(NC),DR(17):JJ1 p"","","011`8>iȅ` - ONTINUE - UIT  J.D.HEHLALASKA94     WX S# WXW/XW D  L[` W V)@ ","","","","","","","&","","",""mqS$(0)"":S$(1)"":S$(2)"":S$(3)"":CO$(0)"":CO$(1)"":CO$(2)""rCO$(3)"":S1$(0)"":S1$(1)"":S1$(2)"":S1$(3)""s"","","","","","","","","","'","","",""tBK$"!##$ Y,Y1,Y2,Y3,X1,X2,X3,WM$,WM,WG,WF,VC,VA,V,U2,TT,T6,T,SU,SO,S,O$,NW,MT MM,MD,LO,L,K4,K1,JJ,J%,HI,G8,FV,FS,FR,FC,F,CL,CA,B,AV,A8 J,K,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,MS NC52:NP12:X(TI):63487,31:111 2,DV,2,"CASTLE.OPTS,P,R":2,K3,SD, "ST$(1,4)"\^":ST$(1,7)"\^<>_="qST$(1,1)"":ST$(1,2)"\^"ST$(1,0)"\^":ST$(1,3)""I01:ST$(I,11)"()>?45<=:;":ST$(0,10)"()^_ :VA$(I)::I012:VB$(I):I051:S(I)I:8RD$(0)"BELEAGUERED CASTLE"YRD$(1)"STREETS AND ALLEYS"zRD$(2)" CITADEL "RD$(3)" CHOICE CASTLE ""  OW LOVES THE KNAVE,JJJJ1:J%JJ((1)(NCJJ)):TEM "GAME"<TT(1)0:TT(2)100:TT(3)128:TT(4)155:TT(5)157:TT(6)1:TT(7)3:LO1000:HI0[" HE KING RAN OUTx" OF URMA HAVEWM$(1)" EMPTY PILE "WM$(2)" PEAK FLAG OFF "WM$(3)" ILLEGAL PLAY "WM$ !C(I)1C(I)12YY(I):XX(I)C(I)1:66:2026!C(I)11XX(I)11:YY(I):66: 202X!XX(I):YY(I):66:C(I)0224u!CAB(I,C(I)):C(I)0224!SUS(CA):VAV(CA)!SO1220!3,1000,5:3,1000,0!CO$(SU);VA$(VA);"";S$(SU);"#K((C(I))):MT3,X(I)3,X(I)1,Y(I)3,Y(I)3,KT,SK:234P#K((C(I))):MT3,X(I)1,X(I)1,Y(I)3,Y(I)3,KT,SK^#C(I)0v#XX(I)K1:YY(I)3#66:""((C(I)),K1):##:# PRINTS DECK AT I#65#SO1256#3,10066:"REDEAL""% RERE1:XX(0)1:YY(0)1:66:""((RE),2,((RE))1)(% .% :?% WILL IT PLAYc%PL1:T28C(T2)0FVBVPL2:%T28C(T2)0FV1TVPL2:%T28C(T2)0BV0FV0TV12PL2:%T29C(T2)0PL2:%T29BV12:YY12&266:"PLAYED";'3XX112((T6)):66:""T63'4XX12:YY2:66:"HIGH ";T'5XX112((HI)):66:""HIu'6XX12:YY1:66:"LOW ";'7XX112((LO)):66:""LO'8XX12:YY1:66:"AVE. ";'9XX112((AVE)):6\**+"_uS(X)(X13):V(X)X13(X13):C(X)(X1)MD((X1)MD){vF54272:MT4096:X(TI)xF1,50:F24,12:F5,128zST$(0,1)"ڒ":ST$(0,0)"Ԓ":ST$(3,0)"!"!{ST$(0,9)""1ST$(3,1)"":ST$(0,2)"ڒ"uST$(0,6)"ʒ":ST$(3,6)""ST$(3,3)"":ST$(0,5)"ʒ"ST$(3,5)"":ST$(0,4)"ʒ" (2,2)"WXSTYZ":ST$(2,1)"WXYZ":ST$(2,0)"!ST"^I23:ST$(I,10)")123456789":ST$(1,9)"߿"ST$(1,8)"#$%&*+"ST$(1,6)"\^<>"ST$(1,5)"<>45[]:;"ST$(1,10)"()^_45[]:;"DST$(1,12)"0123456789"kST$(0,12)"()^_45[]:;"ST$(2,12)"()^_45[]:;":ST$(3,12)ST$(2,12)I23:ST$(I,11)"()>?45<=:;":I012PS(JJ):S(JJ)S(J%):S(J%)TEMPJJNC2168AKC(1)101:KC(2)(47):KC(3)191:KC(4)124|SQ(16):I14:SQ(I)I8::I(5)0:I610:SQ(I)18I:SQ(11)0O$(0)"ON ":O$(1)"OFF":O$(3)"ONE ":O$(4)"THREE"O$(8)"MENU":O$(7)(4)" TURN A CARD " WM$(5)" BASE CARD "2 WM$(7)" NEXT CARD "S WM$(8)" DEAL FINISHED " B(NP,NC),C(NP),MM(NP2),X(NP1),Y(NP1),K(NC): MSNP1 : 198-VERT STACK: 200-STACKED: 202-OTHER PLACE: 203-ANY CARD   ";S1$(SU);*""";VB$(VA);"";ST$(SU,VA);:Q" ERASES CARD-TILE: 225-VERT STACKo"MT3,X,X3,Y,Y4,KT,SK:"MT3,X(I),X(I)3,Y(I)C(I),Y(I)C(I)4,KT,SK:":" PRINT COUNT AT I (232 FOR ONE SPACE ONLY)0,5:3,1000,0$1339,CC:BK$:MT3,X1,X2,Y1,Y3,KC(KC),CC:$:,$ REDEALG$HT1RE2 WM4:90:$XC(1):I1X:B(0,X)B(1,I):XX1::C(0)C(1):C(1)0$I1:200:65:MT3,X,X5,Y,Y4,KT,SK:I0:250$HT3 $XX(0)1:YY(0)2:0FV12TV0PL2: &T29FV1TVC(T2)0PL2:&& :*&! PICK UP WASTEF&"YY(1):XX(1)NT1 :66b&&224:NTNT1:NT1NT1&(I1:YY(1):XX(1)NT1:66:202&)&*:&+ PRINT STATS&,X12:X215:Y18:Y219:CLCC:2100&.XX6:""AVE'<XX12:YY2:66:"GAMES";(=XX112((G7)):66:""G7=(@XX12:YY1:66:"WINS ";^(AXX112((NW)):66:""NWd(Fj(H:~(I CLEAR MESSAGE(JXX(MS):YY(MS): 66:MT3,X,X5,Y,Y,KT,SK:"": (R:(S SEE THE DEAʒ":ST$(3,2)""a|ST$(0,8)"ʒ":ST$(0,3)"ʒ"}ST$(3,8)"":ST$(0,7)"ʒ"~ST$(3,9)"":ST$(3,7)" ST$(3,4)"":RST$(2,9)"ABCDEFGHIJ":ST$(2,8)"ABKLMNOPIJ"ST$(2,7)"ABSTQRUVIJ":ST$(2,6)"ABSTQRIJ"ST$(2,5)"ABQRIJ":ST$(2,4)"ABSTIJ":ST$(2,3)"ABIJ",ST$ :66:"ANYKEY";:239,1:239,0:+:, TURN FROM DECK:HT IS NUMBER.,C(0)0C(1)090:A,C(0)0260:U,UTNT:UT2460,MT3,X(1),X(1)5,Y(1),Y(1)4,KT,SK:I1:200:M1350:,NTHT:NT1464,NTHT:C(0)3NTC(0) -I -5400:500-WM5:90:5000:484-:- GAME.I1NC:RD(I) S(I1):7.MT9,216: I1NP:C(I)0:Z.I1NC:B(0,I)RD(I)::C(0)NC`.:.BV0: RD1510,3400,3500,3400.J1.V(B(0,C(0)))0522.FCB(0,C(0)):FSS(FC): :"FROM"/CH$"HSO12345678"0MT3,1,18,24,24,KT,SK:WM0020:330"0I7544J0I890, 542,850,4000,4004,1600,1620c03000:MT9,208:5340 II7:C(I)0WM1:90:5340"K0NP:MM(K)C(K)::MT6,224:VCNT0P:0Q FROM  :90:5341vTVBVT29C(T2)0 WM5:90:534 2wFVBVT29 WM5:90:53412xC(T2)C(T2)1:B(T2,C(T2))FC:IFRc2zC(I)1C(I)12YY(I):XX(I)C(I)1:66:2242|C(I)11XX(I)11:YY(I):66: 2242C(FR)C(FR)1:1982IT2:T28200:: C(I)08163,C(0)C(0)1:B(0,C(0))B(I,K):K:C(I)0*40MT3,X(I),X(I)3,Y(I),Y(I)6,KT,SK: I:I0:250:65X42L1K1: C(0)C(0)1:B(0,C(0))K(L):44I213:B(I,1)B(0,C(0)):C(0)C(0)1:340:C(I)1:DR(I)048200::B(1,1)B(0,C(0)):C(1)SK5pKC(I):440:MT9,208:5345x:5y CLAIM6zWG1WM6: 90:5346~368:40006:"6 CHEAT=6C(1)0WM8:90:534N6I0:65:224_6T6B(0,C(0))j6XC(0)w6X29316B(0,X)B(0,X1):XX1:9236B(0,1)T6:I0:250:534T2))B(FR,J):IT2:198:76807:7 SCREEN7""865301,113:65305,BD:MT3,0,39,0,24,KT,SKX8I14:X(I)1:Y(I)6I5::I58:X(I)25:Y(I)Y(I4):8I912:X(I)18:Y(I)Y(I8)::X(MS)X(10):Y(MS)Y(10)58I1NP:65:""L(TSD1)UX(2X(0)X(I))3:Y(2Y(0)Y(I))3:66:MT6,208/)V256 :MT9,208g)XX(2X(I)X(0))3:Y(2(Y(I))Y(0))3:66:MT6,208)\256:MT9,208:198)h)n:)o DECLARE WIN)pSO026)rNWNW1:WF1)tX121:X234:Y2:J1K:66:C(I)J:202:XX1::447(+X1:Y2:J136:66:C(I)J:202:XX1::K72445Y+X1:Y8:J37K:66:C(I)J:202:XX1::447+X1:Y8:J3772:66:C(I)J:202:XX1:+X1:Y14:J73K :66:C(I)J:202:XX1:+XX(MS):YY(MS)"9HYY2:66:"RESET"9JJ11000::MT9,208:5349R:9S OOPS:TI0NP:C(I)MM(I)::MT9,224:#:\534)::>:: MEDIUM WINDOWt:MT3,X1,X2,Y1,Y2,032,SK:MT3,X1,X2,Y1,Y1,120,CL:MT3,X1,X1,Y1,Y2,119,CL:MT3,X2,X2,Y1,Y2,118,CL1: J1NT:B(1,C(1)1)B(0,C(0)):C(1)C(1)1:C(0)C(0)1:CAB(1,C(1))-C(0)0472:-XX(1)J1:YY(1):66:202B-:q-XX(0):YY(0):MT3,X,X3,Y,Y4,KT,SK:468w-:- MENU OPENING-3200: MT9,216: 5000-I500,486,488,39000T29FS:B(T2,1)FC:C(T2)1:IT2/340:C(0)C(0)1:SD1200/C(0)0530/512^/ C(J)C(J)1:B(J,C(J))B(0,C(0)):IJ:C(0)C(0)1:340:SD1198n/ C(0)0530/JJ1:J9J1/512/:/K0NP:MM(K)C(K)::MT6,224/IMS:65CARD0RFRI: FCB(FR,C(FR)):FVV(FC):FSS(FC)1XIMS:65:"TO"+1\CH$"HSO12345678F":20:33081^I6612\1`I 542,850,4000,4004,1600,1620w1dT2I6:T209T209FS1hTCB(T2,C(T2)):TSS(TC):TVV(TC)1p270:PL628,6301tWM368021982:2 WIN?2K18:C(K)053423368:4000 3:3 REDEAL23 (RD1)WM4: 90:534U3#K0NP:MM(K)C(K)::MT6,2243$K1C(0):L1K1:K(L)B(0,L)::C(0)0:I0: 2303&XX(0):YY(0):2243(I113:KC(I)111:340:C(0)C(0)1:I1:2004<I0:250:2305@K0NP:MM(K)C(K)::MT6,2245D5345P:.5Q PROMPT FOR SPREAD[5RMT6,208:XX(MS):YY(MS):66:"WHICH"w5VCH$"12345678":20:3305^C(I)0WM1:90:5345l65:MT3,X,X 14,Y,Y4,KT,6:6 PLAY PILE FR TO PILE T26FCB(FR,1):FVV(FC):FSS(FC)7270:PL984,986 7WM3:90:534m7IFR:MT3,X(I),X(I)3,Y(I),Y(I)16,KT,SK:KC(FR):: I=1:GOSUB200:7C(FR)0:: I=0:GOSUB2507J1K:C(T2)C(T2)1:B(T2,C( ("12345678FFFF",I,1):81339,SK:X38:Y0:66:"/":X(0)16:Y(0)21 9BMU1MT6,216:#9D53265,27:MT6,216:)9>:?9? CLEAR STAT FILEi9@HI0:LO1000:G70:NW0:G80:MT6,2089E65305,BD1:MT3,12,25,09,15,32,19GX16:Y11:66:"STATS:Y12:Y206:CL2:2300*vYY12:XX13:66:"YOUWIN ":*:!* UPDATE STATSS*G7G71:T60:I912:T6T6C(I)::WF1T652|*G8G8T6:AV(G8G7.5):T6LOLOT6*T6HIHIT6*WF0:*:* SPREAD GRAPHICS*K36442*X1 :MT3,X1,X2,Y2,Y2,121,CL:MT3,X2,X2,Y1,Y1,125,CL;MT3,X2,X2,Y2,Y2,126,CL:MT3,X1,X1,Y1,Y1,123,CL3;MT3,X1,X1,Y2,Y2,127,CL9;?;(:Q;3 THIN WINDOW;4MT3,X1,X2,Y1,Y2,032,SK:MT3,X1,X2,Y1,Y1,115,CL;8MT3,X1,X1,Y1,Y2,099,CL:MT 4 1X2X11:"#";:<"$";:K41 Y2Y11:"";: =XX1:YY11:66:K41Y2Y11:"";:.="\";:K41X2X11:"*";::"+"4=:=:M= THICK WINDOW=MT3,X1,X2,Y1,Y2,032,SK:MT3,X1,X2,Y1,Y1,35,CL= MT3,X1,X1,Y1,Y2,106,CL:MT > A813014> MT57,"CASTLE HELP",DV> A81:3020> MT57,"CASTLE HELP",DV? "":12000:(142):MT9,208? $?~ :F? OPENING MESSAGE-CASTLE SPECO? ""? 65301,41:65305,41:53272,19:MT3,0,39,0,24,191,07? X13:X236:Y14:Y2 GAME COVERS