' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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((*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# d£àĠz# u`z#      ˯ˮʠҭӠIJʠϠ ŠŠ ŠŮàŠŮԠŠŮǠ@ŠҮʠ ԠǮʠ՗Հϟϓ׀Հ  ހaHOO5ՀՀ𼜜𜜜𼜜𜜜 ՀՀ     15:"[Y or N] [";::"Y";::"]";:2:1:70:A13A89OA89A78430c:A78Ĺ768,96iT6t::#hI(38295):I234I56ır23:3:"CAN YOUR COMPUTER DISPLAY LOWER CASE?":24:15:"[Y OR N] [";::"N";::"]";:2:1|70:A13A78A89A78380:A89Ĺ38295,6'23:3:"Do you want card sounds during game?":24:(T$(I),5)""F11:F2I1:I1000:23:17:"Done";:300T"23:17:I;:23:17,768:JJ:110::803,75:D$"CLOSE"F$".INST"6I11000:@16303,0::J0:I1F2:JJ1:T$(I);:(T$(I))40ĺJIF2Ă:34,0:220TJ20Ă:^J0:130.PROG":-::30:B$;::34,2::F11320803,2:22:6:"Loading..........instructions.":24:" (Press any key to skip instructions.)";:3:16368,0:D$"OPEN"F$".INST":D$"READ"F$".INST":804,T$(0):22:17:T$(0);<23:17:I11000:804,T$(I):RTER.OBJ":38224:T$(1000):20:360:420J 16297,0:16304,0:16368,0 24:1:"Do you need instructions? [Y or N] [";::"N";::"]";:2:1 70:A13A78 A89A78230:A78Ĺ16297,0:16304,0:1:104,64:16384,0::(4)"RUN"F$":D$"NOMONICO":(37):868:12:8)"JUST A MOMENT, PLEASE..."o D$"BLOADPACK/UNPACK.OBJ":D$"BLOAD"F$".PAC" 230,32:0,0:1,97:24576:16301,1:16297,0:16304,0( D$"BLOADSOUND2.OBJ,A$300":D$"BLOADINPUT ANYTHING.OBJ,A$324":D$"BRUNCASE CONVE4:4::"ESC";::" to play... ";::"ANY KEY";::" for more...";:2:1:70:A27ė:k 54915:::210 803,75:::I(218)(219)256:J(222):216,0:"ERROR #"J" HAS OCCURRED IN LINE #"I"!": 150> 38400:20:::230,32:62450::" INSTRUCTIONS"0 ((B$)40B$" "B$" ":40J 2(B$)40B$(B$,40)P <m FR(1):(16384)12870 PA$:A(A$):16368,0:A96A123AA32 Z dR(1):(16384)128ı n(16384)128ı x54915:D$"CLOSE"F$".INST":::210W 2ER/UNPACKER ROUTINE. THANKS TO DUNCAN MACGREGOR FOR: HIS INPUT ANYTHING ROUTINE. AND THANKS TO JIM WHITEHEAD FOR: HIS CASE CONVERTER ROUTINE. ________________________________ 160 D$(13)(4):F$"DOUBLE SOLITAIRE": B$F$j ________________________________ DOUBLE SOLITAIRE COPYRIGHT 1985 PAUL M. ZELMAN WRITTEN: 10 AUG 85 UPDATED: 15 NOV 85 ________________________________ ________________________________ THANKS TO DAV HOLLE FOR: HIS PACK    t(175)256(176)46) :D$(4)k10:"DO YOU WANT TO PLAY DOUBLE SOLITAIRE?";:"GET"A$"YN",3A$"Y"ĺ:D$;"RUN DOUBLE SOLITAIRE"(: GETGET.RM" ީ; = l݅ ;b {ݠ 5 P;@ LL      ՀÀ怀Հ Հ  5_K HՀ 瀪Հÿ  矀 ՀՀʀϿ 秧߀昘Հ  ՀՀကð𰀀 漘Հ 昘Հ򀀀Հπ̌̌׀憀ՀՀՀ̀瀪澆 Հÿ澶 倀矀 ՀՀϿǟ߀Հ ̌ Հ Հ  ̌Հ　Հ Հπ ׀Յ ä 쀀ՀՀ  Հ5OOH HU_5繹󀪪Հ À π ကՀ 쀀 漘Հ ހ Հ  漘Հ򀀀Հ瀀Հƀ̀枞Հʀ񱀀ϟ ̀׀ ՀǀՀ󜼜Հ῀ర 昘Հ 倀π ՀՀ ༀ ༀՀՀ  Հ 񳳱 󀪪 憆Հ ̌󠭠ݠݠݠݠݠ宍󺍍嬠䬠ᠢ٢΢ݠݠ殍ۿݠۯݠ堭Ӻݮ䬠ݮ嬠ݮ󩠨ݮ󩬠ݠݮݠ塩Ӻݠ䮍䠨ӠΡ󮍨򮍍䬍䍠䮍宍󺍍宍庠묠㩍򮍠ᩍ󮍍箠䮩󩮍󮍍破󮠨󩍍䠭堭󠭠򠣲廠󮍍笠䮍ɠ졍堭䮍嬍墠堢˯ˮʢ宍堢ԠǮʢ򮍍堢ŠҮʢ:62450:38400:54,240:55,253:1002:103,1:104,8:2048,0::(4)"RUNHELLO":xM>FL(4)1FL(4)2:420:CU(1)8:420:MHFL(4)2FL(4)1:420:CU(1)7:420:MMMR21:1::"ARROWS";::" Move pointer ";::"ESC";::" End this game";>N\:"G22:12:"[Y or N] [";::"Y";::"]":10L890?L A13A89TLA89A78760hL :A89Ľ:5050L*:62450:48:72110,90:16:73167,90:0:Y114:46128,Y:69138,Y:49148,Y:16297,0:16304,0:I110:803,175(I10):768:OM454915:370::(4)FL(2):FL(2)FL(3):FL(3)FL(4)K:54915:21:C$PL$(1)" and "PL$(2)" - another game?":270:22:12:"[Y or N] [";::"Y";::"]":1K890KA13A89KA78A89700K:A895220'L21:"Would somebody else like to play a game?"::21:C$"Do you want to end this game?":270:22:12:"[Y or N] [";::"N";::"]":1_Jv890nJA13A78JA78A89630J:A78ı!K21:C$"This past game will not count in the":270:22:C$"score because neither player won.":270:310:FL2)0:N(1)H%(FL(4),0,0)W%(FL(4),0,0)PO(FL(4),0)[I:N(1)9N(2)N(2)1:N(1)N(1)10:570IDYY(14FL(4)):L12:N(L)0N(L)41INN(L)1N(L)42IX:N(2)41XX4:N(1)X,Y:611IbN(2)X,Y:XX8:N(1)X,YIcN(1)41N(2)41ī5380IgVJl(HCU(1)CU(1)1:CU(1)1CU(1)8FL(4)1H550BHCU(1)5530fHCU(1)CU(1)2:CU(1)10CU(1)1oH550HCU(1)CU(1)1:CU(1)5ī550HCU(1)7:FL(4)2CU(1)8H&420:1I04:19:XX(14FL(4)):YY(14FL(4))Y(14FL(4))8:43X,Y::1:7:N((16384)128ı%GL450:16368,0:JGCU(1)4ĕ36X(CU(1)),Y(CU(1)):wGP%(CU(1),0,0)2ĕ36X(CU(1)),Y(CU(1)):G36X(CU(1))(16(P%(CU(1),0,0)1)),Y(CU(1)):G420:A11A21500GCU(1)6480GCU(1)CU(1)2:CU(1)7CU(1)4G550ANY KEY TO CONTINUE ":270::1:16368,0GF@R(1):(16384)128320WFJ16368,0:wFTGG1:S(FL(4))S(FL(4))1:F^H%(FL(4),0,0)W%(FL(4),0,0)PO(FL(4),0)05380FhFrL1150:400::F|L1300:400::FL1450:400::GR(1):_____________________________ Player Score ---------- ---------"::PL$(1);:20:S(1)::PL$(2);:20:S(2)E,"________________________________________":310::)F6:24:C$" PRESS D:I152:D%(I)DK%(I)::/DSU14:VD%(I)MDV13SUSU1:VV13:250SDuDK((40(C$))2)1:K:C$;:D:::" DOUBLE SOLITAIRE SCOREBOARD "::G0Ģ12:"No score - you haven't completed a game.":310::E"7:"___________84)128I101Ē0:245,I251,I:PC(16384)128I101Ē4:245,I251,I:I52:oC16368,0::JI50:I101:CIJ11:0:40,50I240,50I:3:40,102I240,102I:768:C4:245,J50251,J50:I1500:CI152:DK%(I)D%(J):JJ1:J53J1. Which [";::"?";::"]";FBxR(1):(16384)128120uBA$:16368,0:A$"1"A$"2"A$"3"110B:A$"1"40BA$"3"ĉ:62450:B::"Press any key to cut cards at the line.":16368,0:I52101:3:245,I251,I C(16350215(50K),I50:768:AZI125:0:266I,51266I,102:3:65I,5165I,102:0:14I,5114I,102:3:215I,51215I,102:Ad:34,20:16368,0(Bn1:21:" 1 - Shuffle again. 2 - Cut & deal. 3 - Dealp>,@ :(4)"BLOADSUPER-SHAPES,A2049":5000W@::62450:34,21::16:"Shuffling":q@I152:D%(I)I::50@(::34,21::16:"Shuffling":62450:@2K0:3@<I5211@FJD%(I):D%(I)D%(((1)52)1):D%(((0)52)1)JAPKK:15(50K),I                    ݠ笠䮍ľ,P%(CU(1),0,0),2)17ĭPA(1,2)15PA(1,2)17E8:5590:1440:y]PA(1,1)P%(CU(1),P%(CU(1),0,0),1)1E7:5590:1440:^420:I1PA(0,0):JP%(CU(1),0,0)1:4:KJ1:P%(CU(1),0,0)J:XX(CU(1))(16K):YY(CU(1)):VPA(I,1):SUPA(I,2):P%(CU(1),J,1)V:P%(1ĭI1IP%(CU(0),0,0)ĕ36X,Y(\:A\CU(1)CU(0)İ1440:S\CU(1)41580m\P%(CU(1),0,0)01540\P%(CU(1),P%(CU(1),0,0),2)14P%(CU(1),P%(CU(1),0,0),2)16ĭPA(1,2)14PA(1,2)16E6:5590:1440:=]P%(CU(1),P%(CU(1),0,0),2)15P%(CU(1),Y:768:SUX,Y:[P%(CU(0),0,0)PA(0,0):PA(0,0)0:I1P%(CU(0),0,0):P%(CU(0),I,1)PA(I,1):P%(CU(0),I,2)PA(I,2):XX(CU(0))(16(I1)):YY(CU(0)):4:40X,Y \7:VP%(CU(0),I,1):SUP%(CU(0),I,2):30X,Y:VX,Y:768:SUX,Y:CU(0)CU(1)ĭP%(CU(0),0,0))P%(CU(1),I,1):PA(I,2)P%(CU(1),I,2):P%(CU(1),0,0)1ĭI1IP%(CU(1),0,0)ĕ36X,YtZ30X,Y::P%(CU(1),0,0)0:[CU(0)4Ē7:PO(FL(4),0)1:PO(FL(4),1)PA(1,1):VPA(1,1):PO(FL(4),2)PA(1,2):SUPA(1,2):PA(0,0)0:XX(8FL(4)):YY(8FL(4)):30X,Y:VXYnPO(FL(4),0)0E4:5590:(Yx1290YCU(0)CU(1):4:CU(1)4PA(0,0)1:PO(FL(4),0)0:PA(1,1)PO(FL(4),1):PA(1,2)PO(FL(4),2):XX(8FL(4)):YY(8FL(4)):30X,Y:TZPA(0,0)P%(CU(1),0,0):IP%(CU(1),0,0)11:XX(CU(1))(16(I1)):YY(CU(1)):PA(I,1 ";:1:1]X(890:A8A10A11A21A19A68A801320rX2A19İ920:1320X<A8A10A11A21İ450:1320XFA80İ1440:XPA68İ1480:(CU(0)8FL(4)CU(1)6FL(4))FL(8)1ġXZXdCU(1)9E9:5590:1200WCU(1)4ī13809WP%(CU(1),0,0)0E2:5590:CW 1410W21:1:" ";::"ARROWS";::" Move pointer ";%X:"D";::" Drop cards at pointer ";::"P";::" Put cards back W%(FL(4),W%(FL(4),0,0),1):SUW%(FL(4),W%(FL(4),0,0),2):W%(FL(4),0,0)W%(FL(4),0,0)1:XX(6FL(4)):YY(6FL(4)):US0:VF(SU13)W%(FL(4),0,0)W%(FL(4),0,0)1:E3:5590:VW%(FL(4),0,0)0UVW%(FL(4),W%(FL(4),0,0),1):USW%(FL(4),W%(FL(4),0,0),2)W:PO(FL(4),0)0:US0:XX(8FL(4)):YY(8FL(4)):VF(SU13)PO(FL(4),0)1:E3:5590:dU7:US0Ē4U30X,Y:US0ĕUVX,Y:USX,YU560:XX(SU3):YY(SU3):F(SU13)F(SU13)1:7:30X,Y:VX,Y:768:SUX,Y:UW%(FL(4),0,0)0E4:5590:VVTt4:30X,Y:US01160CT~7:XX16:USX,Y:36X16,Y:36X,YTP%(CU(1),0,0)P%(CU(1),0,0)1:F(SU13)F(SU13)1:XX(SU3):YY(SU3):7:30X,Y:VX,Y:768:SUX,Y:TCU(1)91230TPO(FL(4),0)0E4:5590:TUVPO(FL(4),1):SUPO(FL(4),2)SBCU(1)411703SLP%(CU(1),0,0)0E4:5590:SVVP%(CU(1),P%(CU(1),0,0),1):SUP%(CU(1),P%(CU(1),0,0),2):US0:P%(CU(1),0,0)1US8P%(CU(1),P%(CU(1),0,0)1,2)S`VF(SU13)E3:5590:TjXX(CU(1)):YY(CU(1)):US0XX(16(P%(CU(1),0,0)1))12:H%(FL(4),0,0)1I2R.31X(4FL(4)),Y(4FL(4))::VH%(FL(4),H%(FL(4),0,0),1):SUH%(FL(4),H%(FL(4),0,0),2):H%(FL(4),0,0)H%(FL(4),0,0)1:PO(FL(4),0)1:PO(FL(4),1)V:PO(FL(4),2)SU:XX(8FL(4)):YY(8FL(4))S87:30X,Y:VX,Y:768:SUX,Y:1000:,0)1E1:5590:+QH%(FL(4),0,0)01060Q4:30X(6FL(4)),Y(6FL(4)):H%(FL(4),0,0)W%(FL(4),0,0):I1W%(FL(4),0,0):J(W%(FL(4),0,0)1)I:H%(FL(4),J,1)W%(FL(4),I,1):H%(FL(4),J,2)W%(FL(4),I,2)::W%(FL(4),0,0)0Q31X(4FL(4)),Y(4FL(4))R$I4:30X(I),Y(I):XX(SU3):YY(SU3):30X,Y:VX,Y:768:SUX,Y:F(SU13)2::dPPO(FL(4),1)1ıPVPO(FL(4),1):SUPO(FL(4),2):PO(FL(4),0)0:4:30X(8FL(4)),Y(8FL(4)):560:XX(SU3):YY(SU3):30X,Y:VX,Y:768:SUX,Y:F(SU13)2:QPO(FL(4)A32 O5OFL(7)FL(7):768,96:FL(7)0Ĺ768,169;OPO(16384)128ıyOA$:16368,0:A(A$):A27A19ıOA27İ620::22:C$PL$(FL(4))"'s turn":270:O920:OI14:P%(I,1,1)1Ă:NPVP%(I,1,1):SUP%(I,1,2):P%(I,0,0)0:";::" Get card from hand ";::"?";::" Instructions ";Nf:"F";::" Move card at pointer ";::"P";::" Pick up card(s) to foundation at pointer ";Np1:1:NzR(1):(16384)128890OA$:16368,0:A(A$):A96A123A22:C$PL$(FL(4))" wins this game!":270:62450::I1100VmJ((1)6)1:J45390mJ:X((1)280):Y((1)160):X(0),Y(0)X,Y:768::803,255:I15:16303,0:768:16297,0:16304,0:768::803,75:340:280:16297,0:16304,0:690m"850Mn2:560:FL(4)Il980lFL(8)0::22:C$PL$(FL(4))"'s turn":270:((PL$(FL(4)),8)E$(PL$(FL(4)),8)EE$)370:(PL$(FL(4)),8)E$(PL$(FL(4)),8)EE$İ5700:830:5340l5410l830:5340l END MAIN PROGRAM :m54915:803,10:::K,2)SU:J12:K1J2Lk31X(5(1(FL(3)2))),Y(5(1(FL(3)2)))::768kII1:240:KH%(FL(2),0,0)1:H%(FL(2),0,0)K:H%(FL(2),K,1)V:H%(FL(2),K,2)SU:J12:K1J2l31X(5(1(FL(2)2))),Y(5(1(FL(2)2)))::768::IFL(4):FL(4)1:560:FL(4)FL(2):FL(2)FL(3):FL(3)FL(4)::22:C$PL$(FL(2))" will deal this game.":270:I14:240:P%(I,0,0)1:P%(I,1,1)V:P%(I,1,2)SU:7:30X(I),Y(I):VX(I),Y(I):768:SUX(I),Y(I):kI551:240:KH%(FL(3),0,0)1:H%(FL(3),0,0)K:H%(FL(3),K,1)V:H%(FL(3),^ ^ ^ Hand Waste Pot <- These are the piles for "PL$(1)".":380:i21:" ^ ^ ^ These are the piles -> Hand Waste Pot for "PL$(2)".";:380::CU(1)1:420jFL(4)3X,123::0,124279,124h16:1:35144,149:48:35130,135:126,128148,128148,140126,140126,128:127,139127,129:147,129147,139h148,144148,156126,156126,144148,144:127,145127,155:147,155147,145:0:I510:32X(I),Y(I):xi21:" 8ĭ(B$)1B$"":51408gFA8B$(B$,((B$)1)):5140RgPA13B$B$A$:5140kgZPL$(I)B$:::R(0)gdI14:P%(I,0,0)0:F(I)1::I12:H%(I,0,0)0:W%(I,0,0)0:PO(I,0)0::PA(0,0)0gn20hx::62450::4:0,0:62454:7:48:124:X3233:4 #"I" type in your name, then press [RETURN]. (9 letters or less, please.)":B$"":16368,0f24:1:">"B$;:868:A$:A(A$):16368,0:(A64A91)(A96A123)A13A85160f5140f((A13A8)ĭ(B$)05140f2(B$)9ĭA13A85140g<Ald you like to play? 1 = Player against computer. 2 = Player against player. [1 or 2] [";::"?";::"]";:1:1e890eA$"1"A$"2"5100eA(A$):FL(1)A:A1PL$(2)E$[f :I1FL(1):768:21:1:"Player128,168,128,40,128,206,128,78,128,244,128,4,0,4,31,4,62,4,93,128,130,128,146d "n ace"," two"," three"," four"," five"," six"," seven","n eight"," nine"," ten"," jack"," queen"," king","spade","diamond","club","heart"e:21:1:" Which version wou,PA(12,2),N(2)c:D$(4):FL(2)1:FL(3)2:I016:X(I):Y(I)::I117:Z$(I)::FL(7)((768)96):232,1:233,8:0:1:I(38295):38224:38295,IcE$"Computer":EE$"COMPUTER":I6E$"COMPUTER":EE$"Computer"Ld 139,79,50,93,50,62,50,31,50,0,2,8,0:16301,1:I2::5050DbI1:J35J0:768:KK:K15030,5040Jbb16302,0:12:" Press any key to begin.":b16301,1::cD%(52),DK%(52),FL(8),PL$(2),F(4),P%(4,12,2),X(16),Y(16),H%(2,48,2),W%(2,48,2),PO(2,2),S(2),Z$(17),CU(1)ah560:FL(4)3FL(4):IW%(FL(4),0,0)1:W%(FL(4),0,0)I:W%(FL(4),I,1)V:W%(FL(4),I,2)SU:XX(6FL(4)):YY(6FL(4)):30X,Y:VX,Y:768:SUX,Y:560:FL(4)3FL(4):830:FL(8)1:b34,0::16368,0:J0:K1:803,75:I12:JJ1:L(1):(16384)127Ĺ16363FL(4),W%(3FL(4),0,0),1)ı`T:21::C$" BONUS TURN ":270::C$"Awarded to "PL$(FL(4)):22:270:370:W%(FL(4),0,0)W%(FL(4),0,0)1:W%(FL(4),0,0)0Ē4:30X,Y:1640`^30X,Y:W%(FL(4),W%(FL(4),0,0),1)X,Y:W%(FL(4),W%(FL(4),0,0),2)X,Y)8FL(4)E5:5590:1440:_@7:XX(6FL(4)):YY(6FL(4)):VPA(1,1):SUPA(1,2):W%(FL(4),0,0)W%(FL(4),0,0)1:W%(FL(4),W%(FL(4),0,0),1)V:W%(FL(4),W%(FL(4),0,0),2)SU:PA(0,0)0:30X,Y:VX,Y:768:SUX,Y`JV1W%(3FL(4),W%(3FL(4),0,0),1)V1W%(CU(1),J,2)SU:40X,Y^7:30X,Y:VX,Y:768:SUX,Y::PA(0,0)0:420:CU(0)6FL(4)ĕW%(FL(4),W%(FL(4),0,0),1)X(6FL(4)),Y(6FL(4)):W%(FL(4),W%(FL(4),0,0),2)X(6FL(4)),Y(6FL(4))^CU(0)4İ560^"350:^,CU(1)8E5:5590:1440:_6CU(0(1):CU(1)6FL(4):420:1480:}_________________________________ ANY COMMENTS? WRITE: PAUL M. ZELMAN 739 TIFFT ST. BUFFALO, NY 14220 DOUBLE SOLITAIRE WAS ~ WRITTEN: 8/10/85 ),2)15P%(LO,P%(LO,0,0),2)17)(SU15SU17))Ă:5950J|4FL(6)LO:LO4:\|>FL(6)05980|HCU(1)FL(5)İ420:CU(1)FL(5):420|R1410:420:CU(0)CU(1):CU(1)FL(6):420:1480:5790|\CU(1)8FL(4)İ420:CU(1)8FL(4):420}f1410:420:CU(0)CU20:CU(1)8FL(4):420%{ 1090:5700{FL(6)0:VPO(FL(4),1):SUPO(FL(4),2):FL(5)8FL(4):LO14:P%(LO,0,0)0FL(6)LO::5950{ P%(LO,P%(LO,0,0),1)V1Ă:59506|*((P%(LO,P%(LO,0,0),2)14P%(LO,P%(LO,0,0),2)16)(SU14SU16))((P%(LO,P%(LO,0,0,1,2)15P%(LP,1,2)17)Ă::5870izFL(5)LP:FL(6)LO:LO4:LP4:::CU(1)FL(5)İ420:CU(1)FL(5):420z1410:420:CU(0)FL(5):CU(1)FL(6):420:1480:5790z940:PO(FL(4),0)0İ1020:PO(FL(4),0)05700zVF(SU13)5910{CU(1)8FL(4)İ4%(LP,0,0)0Ă::58706yP%(LO,0,0)0LP4:::5870gyP%(LO,P%(LO,0,0),1)P%(LP,1,1)1Ă::5870y(P%(LO,P%(LO,0,0),2)14P%(LO,P%(LO,0,0),2)16)(P%(LP,1,2)14P%(LP,1,2)16)Ă::5870!z(P%(LO,P%(LO,0,0),2)15P%(LO,P%(LO,0,0),2)17)(P%(LP),W%(FL(4),0,0),2)13)Ă:5770*xb:5790CxlP%(FL(5),0,0)0Ă:xvP%(FL(5),P%(FL(5),0,0),1)F(P%(FL(5),P%(FL(5),0,0),2)13)Ă:xLO5:xCU(1)FL(5)İ420:CU(1)FL(5):420x1090:350:5700x940:LO14:LP14:LOLPĂ::5870yPle":B$"must be either a spade or club!":w:A$"Waste cards may not be [P]icked up!":B$"But you can play them to [F]oundations.":wD940:LO15:FL(5)LO:LO55740wNFL(5)6FL(4):W%(FL(4),0,0)0Ă:5790xXW%(FL(4),W%(FL(4),0,0),1)F(W%(FL(4nly be built onto one of":B$"the four tableau piles!":vA$"The next card on this pile":B$"must be either a heart or diamond!":v&A$"The next card on this pile":B$"Must be a"Z$(P%(CU(1),P%(CU(1),0,0),1)1)"!":*w0A$"The next card on this pidy contains a card!":B$"Play that card before turning another!":muA$"There are no cards here!":B$" ":uA$"The next card on the "Z$(SU)" foundation":B$"must be a"Z$(F(SU13))"!":uA$"There is no card here!":B$" ":8vA$"Cards may og the game without looking at the keyboard!"]t890:34,0:16297,0:16304,0::35,24:t:21::C$" ERROR ":270::"";:E5610,5620,5630,5640,5650,5660,5670,5680,5690t23:C$A$:270:24:C$B$:270:1:1:390:R(0):BuA$"The pot alrea your waste.";s890::" Helpful hint:"::::"If you place three fingers of your left hand on the [D] [F] & [G] keys and two fingers of your right hand on the"/t"[ARROW] keys and reach for the [P] key, before long, you will be playin pointer with the [ARROW] keys to where you want the card(s) dropped and press [D];";s" or, press [P] to put the card(s) back where you got them from."::"REMEMBER: To end your turn, (when you have no moves left) move the card from your pot toill be turned over to become the new hand.";:q890::"[F] will move the card you are pointing at, to the appropriate foundation (if legal)."::"[P] will pick up the card(s) you are pointing at.":Wr"Once you've picked up card(s), move the game.":Pp"The [ARROWS] will move the pointer from one pile to another.":0q"[G] will turn the next card from the hand and put it onto the pot (only if the pot was empty)."::"Note: If no cards are left in the hand, the cards in the waste wo35,19:::" INSTRUCTIONS FOR GAME CONTROLS "::34,2:20:1:"_______________________________________";:1527,159::16303,0 p"The [?] or [/] keys will bring you back to these instructions."::"[ESC] will let you quit the current ,890:A8A10A11A21A19A27A63A47A80A70A715420pn6A8A10A11A21İ450:5420n@A27İ620:5410nJA71İ1020:5410nTA80İ1270:5410n^A63A47İ5510:5410nhA70İ1090:5410nrA19İ920:5410n|o77..6?76%,-$,%%%$<<<$$<<<'$$$$5666.$$$$56666$$$$$5666666655566>>>76?7--$,6.%9'-%?'-%? $$$< ?<$$$$$$$56666665%<,<,<,<,<,<$66666666666$ )>.>.>.>.>.66666665757-$$$$$$$$$$$$$$,66666266.$$$$$$$$$$$$$$,666662666.$$$$$$$$$$$$$$,666666266$$$$$$566666666666666 $$$$$$$$$$$$$,2666666666666 166666666666666%$$ $$$$$->.>.>.>.>.>.>66666575757-$$$$$$$$$$$$$$,666666662666.$$$$$$$$$$$$$$,66666666626666.$$$$$$$$$$$$$$,.?.5?.5?.5?.5?.5?.5?.5?.5?.5?.5?.5?.5?.5;.6 16666.5556>55-,,<'?-? 6 $$,66& $$,6366$$$$$666666$$$$$$<2666666 $$$$$$366666&$$$$<266 16666626%$ $$$$$5666666626%$$$$$$$$,666666666.$$$$$$$$$$,57575757575757575>.>.>.%$$$$$$$$?*---?????*-----???????*------->???????.------->???????..,.,-6?*--',-.,., 166&! ;3& $$36666#$$$$$$36666666&#$$$$$<2666&#$<2$ 7+-.)7'?'<?*-+ 57;?>>6%%%-55><<>>. 5775-,,.,25?<75-5;><<<6)2'7?'),<,<<''??>66 !$$$$ 0666666 !$$$$$$$4 266666& $$$,26& --:??---5???7---5??- ) )-:??;??-------5???????7-------5;??;??- ) )5??*-- 266 $$$$$ 666666 $$$$$$,2666666 $$$$$$,666666 $$$$,266 )??*--???7---5?;7 )7+-?? .,->779>. 9,,557?>..%%? 9<,,55757=:'' )>7)>.>-- ''%'%')557575; -5;.>.>>''' 175757)-(<,<,?5) 666%$$, 9>>655- ?*-???*---?????*-----???????*------->???????.------->???????.-------????7 )-???6 16`I 1N]u+J h/:Qh  CWm+K]kmr.?Wh";Plh 66%$$ 6!$$66 ),557777-- ),55?*.>>''$ )>?*->7--5;-% ??.-5575;''% ).>>''%'%')55     `` (0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``ɀ  l݅ ,թ ` PI~67 8ݍ Ɋ ` 8 L  LAST UPDATED: 11/15/85 ~ o~ PROGRAMMED BY PAUL M. ZELMAND$#000L `K&.,.,.,.,2%.,2%..65.6.66;,<'<$'<<<<<> 7'7'77775%? ??????*------>??????------575  %<6>><2777777'7'><>><>><><><><2'><2'>>67>6>66 )<,%,$%,,,,,. 5%5%5555?-;------:??????.------??????7578$5N>7??<!'%')-55<56>'%'%#-<'- 8??75 57575757??<,<,<,<,7555 %%'%'%?;.>.6'%'%'%'%/ 57575?7-5?-56 %'$ ,<2?$75619?.$-<66%$$%')<75-:7166):??'%+-8'),-8')$$(<,<766>$$ $7666>$$$$76666---%$$$$$<36'$$$,665757 ?? $$-<'-8??65-%%'%'%'-8?...>'%'%'%'%/ 577?6 :??'%'%'%'%' (%?,!)>.>.>.>.;,<,<,<,<'%;$76576.$,)0.6%$$$<666< $$66757??<,<,<,< --6+-,<,??7666.$$$$ 57?-:?<,<,<,< --.>.+-,<,??75757575/ %;<<+-.? - ? - ? - ? - ? -5!>.>.>.>.>.>.>.>.>.>.>.>.>... 175757)%%'%'%; 1716-%#$$2'*->.>'%'-'%%%..>+-.>.??'%'%'%'%/)-.>. 7??<,<,<,< --.'%'%/)5557575;>?'%'--+- :??'%'%'%'%/)---9?66'$$%'%/)--/-5757??<,<,<,$$$$$$$$())))))))))))1666666666666666$$$$$$$$$$$$$$$,6+%?,%?,% ??? --? "<6'<6'<6#$$<26&#<*.+----%;???')--%;?')%;> 6$$ 666$5.-<'-<'-<'-<'-<'-<'-<'-<'-<'-<'-<'-<'-<'-<'-<'?- ' ? - ? - ? - ? - ? - 66666666666666666666666666!$$$$$$$$$$$$$ 66666666666666.,.$ $$$$$$$$$$$ 8?,-5266666:.-< $$$$$$$$$ 5%52622662.,.$ $$ 5%56666626:.,.$ $$ $$$$$ 5%-5?666666666666.,.,"$$$$$$$$$$$$$$6666666666666. $$$$6.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666. $$$$$$$$$$$$$?7--)))))))))->????7---)))))))-->??????7----)))))--->????????7-----)))---->??????????7------)----->???????????7)----------5;??????????6666666666666!$$$$$$$$$$$$$ 66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,6666666666666;?7-- )->?;?7--- ) -->????;??7----- )---->????????7------------>???????????7)----------5;??????????------------>???????????7----)---)--->?????7---)))-)))-->??7--)))))))))->??7--)))))))))->????7----)))))--->????????7-----)))---->??????????7------)----->???????????7)----------5;??????????------------>???????????7------------>????;????7----- ---->???;???7---- )--->???;???7----- )---->????;??7--- ) -->?????7----- )---->????????7------------>???????????7)----------5;??????????------------>???????????7------)----->??????????7-----)))---->????????7----)))))--->??????7---)))))))-->????7--)))))))))->????7---)))))))-->???66.$$$$$$$$$$$$$$,66666666666666&!%'%'%'%'%'%'%'%'%'%'%'%'%'------------>???????????7------------>??????????7----- )---->????????7---- )--->??????7--- )-->????7-- )->?;?7-- )->?;?7-- )->?? $'L@ @ $%($$ " ; , J+ $8d0 ˥opooȥoȥp$P  F `^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`Xĺ:D$;"RUN DOUBLE SOLITAIRE"(: GETGET.RM" ީ; = l݅ ;b {ݠ 5 P;@ LL