X'0 [ȹ'$ LŠŠˠŠΠҠˠ ΠӠݺpypw~~~*!UG???#218U |zR U * *FgN"8* ~ * U ~>~Uq>8p~``|UT"U *gg\`|x*8 8 *rp* U <??*  *( ***L Lcp|pc~x~xp* JB*UWOo~~>UgsUUnnjnncaxUuuUUuu ?U*z|~_ogqpx *02*cc*ggGccOppp*Z^:Z: ~wV6*U_CA*ppxx||> * vf *rss*'''wwuww*_???===?_x~Ff@*UCUUUWUWUrvACpIAw``UUddHgU*KA``ppxx| *(#(*<*CxwwWwwxGGFGGG*jo|dio*U_CAaU76U|y|Uyya * ( *,,|*}}|&f** cw;*UWUTAUFFUYYqU  orxgU_e gG8U* xpx *"?*Y*LLG*///)/,/ (*WWW_cs *UTQSSaU@A0@U}UU*j{#s33U9L#@gas33s$U!*&>p~~~|~?ff$*UAAa`pp`UA}UY1EU8___E||$0L$U*//' G~*  * F *'gB?? ?&>*** *Uuxx||>U33U?e?UC/~~&&pU~~^BffN^^~~U*Kaappxx||***Yxypgf* F#?F**?>;*.;,3/?>?>>2?? * U|y|U ~qpc#%U * + *bqxGb%* Uc1D#%U *%* U@P%U`*"U$U!*|L L|<\L |$*!Udg&'@G''CfU *9c?asss%*A_o>?2* UrG~999UUUw@px|fpx~?|U *\|~@rvN*x|<?~~2* Ussapyy9U0 Axq"xxx@@UU|rVM3mW~|U * U *gggC@|||*x 1**rp* UC<<U@Gb_XP\Z` F#UU??c` U *ggsfg*gGqn L**o/%/eoox* U<`<|y|yUccqxf`q@UUyxxUUUea!aaUU]wVlnnnzm.onno.n{zU*/()**()*'+*(*++*q1c?D** RY]~* UG??7?"18UU {w| U * *Fc3 F0** z~ * U~>~Ux<``~p>~`UUWVWTWPTU*||~>?****) ***HL axxa||x**JB*UPWO~>UUccUUUUnnjnncpUUuUUuu _?**_WW__s0**USA`UUU?UTGUUUUU.*j{333UU*pxx||>> **FF*33***'''wwuww**`?==?`~"ff**UCUUUUUPUUUsracUUd UU*Ka``ppxx| C~p&&UU~~~ ^~ffN~^^~U*KAa`ppxx|** **'#'* , ***H} ~f&**w7**UWT`UU~V~UAYUUUs1oooooogxrUU?o g8UU*pp|(**>**X*LL*** //,/)///./././././(`"U%U *|L|L\< |%* Uag'%''ddIgs33y%U *p .~|Bff%*UAAa`pp`AU~UAeUUU_PCc|L0$%U*//' *&~&* LC*gg~8?G?0 .*** *Uuxx||>?UsssU@aa@UUU      STRUCTIONS"+ ((B$)40B$" "B$" ":40E 2(B$)40B$(B$,40)K <h FR(1):(16384)12870 PA$:A(A$):16368,0:A96A123AA32 Z dR(1):(16384)128ı n(16384)128ı x54915::(4)"CLOSE"F$".INST":::210[ 24S IN LINES 2, 20 & 21 FOR NEW PROGRAM K "PRINT U/C",0::T$;::950:n "PRINT U/C",0::T$;::950: R(16336)(16336): F$"WEDDINGS":FF$"WEDDINGS": 104,64:16384,0::(4)"RUNWEDDINGS.PROG": TF1:T$(A): B$FF$" IN________________________________ THANKS TO DAV HOLLE FOR HIS PACKER/UNPACKER ROUTINE. THANKS TO ROGER WAGNER PUBLISHINGFOR THE USE OF "TOOLBOX SERIES" AMPERSAND ROUTINES. ________________________________( 16384:160: CHANGE PROGRAM NAMEM7(175)256(176)46:(637)223į"PRINT U/C",1________________________________ WEDDINGS COPYRIGHT (C) 1987 - 1988 PAUL M. ZELMAN 739 TIFFT STREET BUFFALO, NY 14220-1814 WRITTEN: 3 MAR 87 ________________________________       LNLL`LL l<KE%33 GP~ ACANCEOA M* Т IN L L, MLl B``9Ly  r r(03 P rŠ)JJ & & f)``67L)L o~**kIv>I*|||*UPWTUUWPTUPWTU`* O**9+;{W ww*Uq^^\\]+*/UI Ls33s@@@UUk]*~~ ~~U*a]]x*p9I<>>?s~+/wU>s?**@ mU???;?? *Uy||~|gp(*2UU`? *[U@@@xo****~~ U*Gt`UDsONOg9<_AUP**-/{@ u?DklG*G}9sUU?elSW`G`*UB*j*? f38+ rr~UUWW ~ ^^ U~|O7J?j{~xU*{yy|||~Lbn|yyU""`~pr`#"""$U *( +( *DDFq@GbDDD$*!U"Gc8F#"""$U!*DC_X\__^ODDD$*!UBHBHBHBHBHBHBHBHBHBHBHBHB@P$U`**gg~8?G?0 .*** *Uuxx||>?UsssU@aa@UUUpxLry|~_|U *~|^p^@*DDax}=| |}|}|=|yDDD*OSU_Wutwvx~??~~3* UasssyyyU""qc0xzxBH"U~zlgx;N?|U *yyyggfB*D F#bCGD*?=57=69'?>??>>3?? * U?c``1U *0gpggffC*G#q;F*oo///%//oox<>* Ullyy|sUcqxxGbqs@U @xxxU *y9ssa$*"*op~??2* Usr989U!            Uw_78230G:A78Ĺ16297,0:16304,0:"PRINT U/C",0:"AMP":1:1:21n:30:T$B$:9::34,2::F1132022:6:"Loading..........instructions.":24:" (Press any key to skip instructions.)";:3:16368,0:20:(4)"OPEN"F$".INST":145N.UNPACK.OBJ"::(4)"BLOAD",F$".PAC"s230,32:0,0:1,97:24576:16301,1:16297,0:16304,0:360::950:420:16297,0:16304,0:16368,024:1:"Do you need instructions? [Y or N] [";:T$"N":8:"]";:2:170:A13A78A89A150% 20:::230,32:62450:: 10:" This program incorporates portions of The Toolbox Series, a copyrighted product of Roger Wagner Publishing, Inc.":I13000:$23:8)"Just a moment, please...":"PRINT U/C",0:1::(4)"BLOADPACK:2:T$"ESC":9::" to play ";:T$"ARROWS":9::" page through text";:2:1:70:A27ıo 54915:::210 :(4)"CLOSE" 54915:::I(218)(219)256:J(222):216,0:"PRINT U/C",0:"ERROR #"J" HAS OCCURRED IN LINE #"I"!":"AMP": 衍庍宠笠󮍍㩠쮠嬠宠䍍쬠ɠӠӮ砵Ӡɠ堠䬠Ӡ쮠Ӡ쬠Ӡ󮠠笠Ӡ蠵卍àӠ󮍍Ӡ젠蠵卍堠嬠ìà젠蠵卍à笠宍àɠɬɠ嬠ɯϠ宍ɠ堠䍍󮍍堠쬠㬠嬠䬠󮠠䮠嬠䬠󺍍堠䬠箠宠ɠ󮍍箠䬠쬠ɠ󮍍堤렠ɠ󮠠宠Ӡ笠謠ɩ󠠤󠠳䍍󮠠쬠àᠳ󿠠Ѡ򮍍Ѭ뮠àĠ̠̭򮠠ɠ堢좠嬠ѠѠ笠Š󮍍Ѡ堠򠠲ɠ󮠠Š嬠嬠宠嬠򮠠젠䠠堶ɠ堶ŠӠ򮠠䬠ᠳӠӠ報øӠ宠Ӡ󮠠Ӡ䬠ӠӠӬӠ쬠󮠠젶ӠӠɬӠɠӠ堲󮍍Ӡ堠ᠳ堲ӠР䬠ɯϠ󮠠򮠠報ɠɠᮠ򠠴卍󮠠繵򠠲嬠ɠɯϠ󮠠󮍍 ͠Ű䠤ű䮍堠䮠堤ðɯϠ嬠ɯϠ󮍍堠򠠳ͭ嬠󮠠ɠ󠠠렱宠󮠠묠®󿠠￠宠àɠ򮠠宠ƶ嬠̠ɧ󮠠䮠栲宠堲ɠà䬠ɯϠ󮠠ɠ󮠠ɠɠɠ               (,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $ͦ p  p Щ p  p `  pȦ p( ٢ p  p `ri `L`(`?~|xp`@((((((((ɦ p  p ` PL# `ʆ p p p p(٠ͦ p  p Щ p  p  p  p ` PL `ʆ p p p p(٠Ф p ȑ` ' p p `  p p(٦ p Ģ p  p `  p p( p 8' L  `  L? p LQ ȥץ Lh © p L Ж p`  pȑש pȑ1 ԩ L# н`   p11 p11̩(кР`  ɿPL _' p p L & L ' L L+ Lj L L L L+` p` pL} 1L 1Υ пб` p p ` pL 2 XiiL`  LH Le Le Le Le L L L L L* L ' L) ' L) &      the hires screens. It can be used with HGR or HGR2."' " The first nine erases are the most versatile. They allow you to erase all or any portion of the screen you choose to erase."o( " The last 12 are used to erase the entire mixed or full &h12,5213,2719,2719,3246,30O&r13,279,1814,1914,2119,2117,1345,15}&|46,11235,11030,10518,1009,8011,52:5' " Welcome to F.E.S.S (The Fancy Erasure Screen System). F.E.S.S is an amperstand program which gives you 21 ways to erase79,8881,64108,652%,81,6473,6373,38109,40b%673,4067,4061,3361,2356,2054,15110,19%@77,12065,12046,11251,10349,9453,9455,8680,88%J55,8657,5673,56%T56,5643,5447,3545,3046,1553,15%^43,549,52:24,5321,7250,96!07,63116,64116,71149,714$116,71117,89153,89m$117,89110,89110,93126,93126,104140,108154,108$110,93109,12090,12097,12797,131107,137110,132115,131128,150140,155141,144160,132$90,12080,12080,12277,12279,88110,89%"32162,124160,120157,113172,112M#157,113157,110155,110152,92178,90n#152,92150,73146,68167,68#146,68142,55142,50167,50#142,50138,18147,18169,22160,31#138,18110,18109,35140,35#109,35108,52140,55$108,531204,56206,48204,42202,45200,36192,36190,40190,46192,54189,58"180,87174,81174,78167,69169,67169,64170,61171,56183,54185,60"183,60181,37179,34167,30159,32157,42165,49171,56"#182,127180,130185,135172,133171,132160,195,126190,126188,99200,98`!Z190,126182,127180,124170,124173,119171,112176,100188,99{!d176,100180,90210,87!n180,90180,87186,83193,83200,75212,77!x200,75197,57204,55210,57217,53219,50!197,57185,60188,73186,82E"0243,71F (220,86211,92205,98216,95229,94240,100249,88247,80a 2211,96228,111242,99 <228,111228,122209,122206,121206,116207,112200,99207,97 F228,122241,143241,150237,151222,138222,134213,126195,126195,123207,121!P12251,57253,63248,65245,62247,58245,50S221,49219,50219,52221,63245,61t247,63250,69246,69245,63 248,69250,71247,72237,67225,67225,64219,61213,69211,75213,80217,81225,79227,73230,71235,68 215,80210,87247,810*256,25254,27252,40260,38262,35K254,27248,29250,41252,40z250,40251,45259,44261,47263,47260,38251,45252,50260,48:256,45256,48248,29240,31235,41223,43225,45225,47221,49221,51243,48252,52252,50+253,580:160~ WIPE 21' COLUMN WIPEuA21:220:1190:T0:B0:L0:R0:E0:S40:M0:180:160:230:M1:180:160::16303,0:16302,0:16300,0:768:7:0,0279,0279,1590,1590,0259,10257,25261,35269,22270,19268,17265,8259,. SCROLL DOWNI8A18:220:1190:T0:B0:L0:R0:E0:S0:M0:180:160WB WIPE 19nL CENTER UP SCROLLVA19:220:1190:T0:B0:L0:R0:E0:S0:M0:180:160` WIPE 20j CENTER IN SCROLLtA20:220:1190:T0:B0:L0:R0:E0:S0:M0:10:M0:180:160 WIPE 16, DOT WIPEgA16:220:1190:T0:B0:L0:R0:E0:S60:M0:180:160230:T0:B0:L0:R0:E0:S60:M1:180:160 WIPE 17 SCROLL UPA17:220:1190:T0:B0:L0:R0:E0:S0:M0:180:160$ WIPE 18 WIPE 13 SCROLL LEFTVA13:220:1190:T0:B0:L0:R0:E0:S0:M0:180:160e WIPE 14} LEFT-RIGHT SCROLLA14:220:1190:T0:B0:L0:R0:E0:S0:M0:180:160 WIPE 15 CENTER SCROLLA15:1190:T0:B0:L0:R0:E0:S90:M0:180:160:230:M1:180:1601H WIPE 11DR DIAMOND WIPE\A11:220:240:T0:B0:L0:R0:E0:S80:M0:180:160:1190:180:160:230:M1:180:160f WIPE 12p SCROLL RIGHTzA12:220:1190:T0:B0:L0:R0:E0:S0:M0:180:160 :E0:S40:180:160e240:A9:T20:B80:L28:R0:E4:S40:180:160:T0:B160:L39:E255:180:160 1190:T3:B157:L38:R0:E0:S40:180:160* WIPE 104 UP-DOWN COLUMN WIPE#>A10:220:240:A10:T0:B0:L0:R0:E0:S0:M0:180:160:11:E40:180:160?1190:T3:B157:L1:R0:E39:S40:180:160L WIPE 9f RIGHT TO LEFT WIPE WIPE TYPE: R=0 FANCY, R=1 PLAINA9:220:240:T20:B80:L28:R1:E4:S40:180:160:T0:B160:L39:E255:180:160 1190:T3:B157:L38:R1 LEFT TO RIGHT WIPE: WIPE TYPE: R=1 FANCY, R=0 PLAINA8:220:240:T20:B80:L6:R1:E34:S40:M0:180:160:T0:B160:L0:E40:180:1601190:T3:B157:L1:R1:E39:S40:180:160240:T20:B80:L6:R0:E34:S40:180:160:T0:B160:L0:S60:200:160:T100:B150:L3:R25:E(((BT)2)T1):S100:200:160:T10:B130:L32:R36:E(((BT)2)T1):200:160T0:B160:L0:R40:E(((BT)2)T1):S60:200:160:1190:T3:B156:L1:R39:E(((BT)2)T1):S80:200:160 WIPE 825:E150:S100:180:160:T90:B91:L32:R36:E133:180:160lT79:B80:L0:R40:E160:S60:180:160:1190:T78:B79:L1:R39:E156:S80:180:160v WIPE 7 MIDDLE DOWN - UP SCREEN WIPEyA7:220:240:T20:B80:L6:R12:E(((BT)2)T1))(R2)1:S20:190:160DT0:B160:L0:R39:E(L2)(R2)1:S40:190:160:1190:T3:B156:L1:R38:E(L2)(R2)1:190:160N WIPE #6X MIDDLE UP - DOWN SCREEN WIPE=bA6:220:240:T40:B41:L6:R12:E62:S60:180:160:T120:B140:L3:R190:T3:B156:L1:R38:E(L2)(R2)1:190:160? WIPE #5g& SIDE TO CENTER REVERSE BYTE WIPE0A5:220:240:T87:B150:L7:R14:E(L2)(R2)1:S80:190:160:T20:B80:L15:R24:E(L2)(R2)1:S140:190:160:T3:B45:L3:R11:E(L2ER SMOOTH SCREEN WIPEA4:220:240:T87:B150:L7:R14:E(L2)(R2)1:S80:190:160:T20:B80:L15:R24:E(L2)(R2)1:S140:190:160T3:B45:L3:R11:E(L2)(R2)1:S20:190:1601T0:B192:L0:R39:E(L2)(R2)1:S40:190:160:1PEA3:220:240:T87:B156:L7:R8:E12:S80:180:160:T20:B80:L27:R28:E34:S140:180:160:T8:B65:L6:R13:E15:S30:180:160T0:B160:L19:R20:E40:S40:180:160:1190:T3:B156:L19:R20:E39:180:160 WIPE #4 SIDE TO CENT0:T87:B154:L7:R8:E12:S80:180:160:T20:B80:L27:R28:E34:S140:180:160:T3:B45:L6:R11:E14:S20:180:160T0:B160:L19:R20:E40:S40:180:160:1190:T3:B156:L19:R20:E39:180:160 WIPE #3 CENTER TO SIDE REVERSE BYTE WI0:180:160:T49:B90:L13:R12:180:160T3:B155:L34:R4:E0:S0:180:160:T140:B145:L1:R7:180:160:T0:B160:L0:R40:180T5:B157:L1:R38:E0:S0:1190:180:160 WIPE #2 CENTER TO SIDE SMOOTH SCREEN WIPEwA2:220:24,39Y):(TE$)(A$)350. ,(TE$,1)" "320= 6YY1:290P @(TE$,391):l JT(A$)(TE$):T0350 TA$(A$,T):280 ^A$:250:I h WIPE #1 r FAST WIPE OF FULL SCREEN OR PORTION OF SCREEN)|A1:220:T33:B45:L5:R22:E0:S0:24):KB1551180::A$"WIPE #"(A)::22:(42(A$))2:A$:[ :16302,0:7:1,1:62454:r :7:1,1:62454: 24:3::" [RETURN TO CONTINUE] ";::T$:T$(13)ĺBL$;:250  I13:A$(I)::10:A$A$(I) Y0 "TE$(A$rry Sage":I239:I:"-";::34,5:2708 J1400::R * AMPER SETUP *k A,T,B,L,R,E,S,M,P: A,T,B,R,L,E,S,M,P: A,B,T,L,R,E,S,M,P: : KB(49152" x:(4)"BRUN F.E.S.S.OBJ"F }(1101)6ĺ:(4)"BRUN LC.CONV" P1: P sets erase routine to work on HGR or HGR2. If P = 2 it will point to HGR2. If not set problems will arise.' 1:12:"UpTime Presents:":3:11:"F.E.S.S":4:21:"By: Lafull), P = page (HRG/HGR2)J F Relocate Basic program above HGR page 1 P Relocate above HGR page 2--POKE 104,96: POKE 103,1: POKE 24576,0 U42739,94:42740,166:0:::1002 Z(104)64120 d16384,0:103,1:104,64 n:(4)"RUN F.E.S.S.p - F.E.S.S--Fancy Erasure Screen SystemB By Larry Sagep Copyright (C) 1988 UpTime & Larry Sage( Variables2 A = # of wipe, T = top line, B = bottom line, L = left side, R = right side, S = speed, E = end < M = screen (mix/           225,64K219,61213,69211,75213,80217,81225,79227,73230,71235,68l215,80210,87247,80243,71(220,86211,92205,98216,95229,94240,100249,88247,802211,96228,111242,99 <228,111228,122209,122206,121206,116207,112200,9256,48Y248,29240,31235,41223,43225,45225,47221,49221,51243,48252,52252,50253,52251,57253,63248,65245,62247,58245,50221,49219,50219,52221,63245,61247,63250,69246,69245,63 248,69250,71247,72237,67225,67ENU"*:7:0,0279,0279,1590,1590,0f259,10257,25261,35269,22270,19268,17265,8259,10256,25254,27252,40260,38262,35254,27248,29250,41252,40250,40251,45259,44261,47263,47260,38251,45252,50260,48:256,45D' 42739,94:42740,166:0:::1002B(4)"RUN WEDDINGS.ST"  ȱ^8e^^_ , l^ưȭ氩L8ˍ`w1^ȥ7^h67ɾa^6ȱ^7L<2H<)۰ "F11:F2I1:IA:23:17:"Done";:300"23:17:I;:23:17,(0)15:JJ:110:::(4)"CLOSE"F$".INST":1506I1190:T3:B156:L19:R20:E39:180:1605 WIPE #3] CENTER TO SIDE REVERSE BYTE WIPEA3:220:240:T87:B156:L7:R8:E12:S80:180:160:T20:B80:L27:R28:E34:S140:180:160:T8:B65:L6:R13:E15:S30:180:160:T0:B160:L19:R20:E0:1190:180:160! WIPE #2J CENTER TO SIDE SMOOTH SCREEN WIPEA2:220:240:T87:B154:L7:R8:E12:S80:180:160:T20:B80:L27:R28:E34:S140:180:160:T3:B45:L6:R11:E14:S20:180:160'T0:B160:L19:R20:E40:S40:180:160: FAST WIPE OF FULL SCREEN OR PORTION OF SCREEN |A1:220:T33:B45:L5:R22:E0:S0:240:180:160:T49:B90:L13:R12:180:160 T3:B155:L34:R4:E0:S0:180:160:T140:B145:L1:R7:180:160:T0:B160:L0:R40:180T5:B157:L1:R38:E0:S쬠砳ĠϠ𡍍议堠䮠쬠Š嬠鬠䬠묠֬ 箠Ӯ򠳰򡍍ﮮɧŬɮ嬠箍ӠӠ卍Ӡᠳɠ宠򠴰ξ宍ӠӠ󮠠󮍍 ɧ󮍍ӫӫ宠報ɼ讍뭭뮠ɠ󮠠嬠ɠ˭嬠宮ծӮ堤宍ɠɠ͠䮠Ӡ      screen. To start the erases press and then just watch the screen. Exit at any time by pressing [ESC]."( Variables2 A = # of wipe, T = top line, B = bottom line, L = left side, R = right side, S = speed, E = end < M = screen (mix/& L ' L L+ Lj L L L L+` p` pL} 1L 1Υ пб` p p ` pL 2 XiiL`  LH Le Le Le Le L L L L L* L ' L) ' L) &ˠ󡍍ҠӠͧ褐󡠠۰ݠ宍Ӡ%$ "d `%$ "d a a a `%$ "d a a a `%$ "d `%$ "d `ӺӠŠ̠Šɭź%$ " a `%$ " a `AAAA٠L.kkYlllnbbbL`%$ "I Lmþ̠ɛ LaLl%$ "  L$ "͓ `ϠՠȠϠԿٯΩō ŠϠ ZZZZZZZV H ZZZZZZZZZ H ZZZZZZZV AAAAAAA H  ZZZZZZZV AAAZZZAAAAAAAAAAAAA H ZZZ H AAAAAAA ZZZZZZZZZZZV ZZ AAAAAAV AAA AAAAAAV ZZ AZZZZZZZZZZZZV AAAAAAA H ΂L I΂hhhLmm`%$ "q o$ " a a a `ɭō` % $ "qŅLoŠq܅ o`ԠԠȠ̿L%$% < h$i$( $%i%L"m`L8꩒67LɟLH8頍HH$% <2?L  (2     666??33 33> (  ?? 00     ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?"""$$$$$$$$$$$$$$&&&&&&&&&&&&&&((((((((((((((`  """""""""""PQL/ Ӄ I ` `ӍЬԱԲĬج٬΍Ŭج٬΍جج٬΍Ĭج٬΍ `` `DL3 ꆡ ` m`WL R^  L L L L 8WHȑ Wh `  L L L L WHȱ Wh `H% 1 ,P,W,T`2 ,P,W,U`O g R祥 ` L L g RPQ``G LSL B2 2  Lc `LB 2 (2 `RF 2 (2 mm`&   ȱȱe `E%  `X- Q `B D ӃLӂE ӃLOXW ӃLx ȱibd`LWw<`dFo`H8 hTy R5 L L L L犨 8,0`X` L L L L犨 8,0`P L L  `DLB  ` +Fa| ́ / / X @ k c` laLa```2`%````aaaaa a aa i a aحaLk e c Lh c c d @d kd d d d d e ^f n n,`` a ɍHa͍IaʍJaˍKa aaaaGaLRaՂ𪽀ՂԊԊЪՁЪՆ܀՚܀ktT U*ժU'C00 xb@@@)?(JC00 xb Y`hC Q@PZRQ.Lj}}}}}}}P"D (Q(  @*P E"P  D(A U @D(" T(T PD D(P"Q (@@@"T @ E*  @"@@Q**@(".Lj|||||||"(UT AA*P  P ETP *A(@ D@P @ (  D T@**P D (D(P"*(AU @ @" @ (  @TP"@* @("P @.Lj{{{{{{{ (T D(D  ""P*@ AP( QA( P @ AETT D  A*""PP (  P (P@ @ D(D T(@ P @"**"P@  @@ ((@@@ @(@ @@@@@.Ljzzzzzzz T (QAA A*@P(T E( @ P   Q  *AAAE T(@ @ P  ( *P"@T (P(@  P@@ @ @ @"*  (@ "+4=Fyyyyyyy 00@`` NE QE n HE m QECE `d  QE n KE QE I I QE H] QE @Z QE kLPy%% %%        #   挀ך֎̙̙́́́́Վ׆  $  $  !                "" %   ! !                   !!                   *U*U  # # #  "              "      "   d                                 Z ! ! !  !6U@w Up(U תժT*U*@W*p(( U XXT^U @ U*ުժP*U*^*U@ U U*````P xT*U*ժՀ@xHsssttuu 0000(<*@*Uժժ U*U*UU>::6>>a` ai a i a ai aح a aaa3aQa aaia`ada`a2`a a jda<a m h d2 aaƩ'i :i WȢi :Lbh q ` ` ` ` ` `` ` ` ` ` ` ` ` d e d n ^f``,`am aaaia aia`Gaaa,0` k q'$ p` ia a   Wi :i WȢi : i WȢaia aaaaa j`i``2`2`ʝ2`ʝ2````ʝ`ʝ` a8 aa d h d p ^f na``a da`a2`a a jada 7haa X @ k`a8a a a8 a i a c la e Lh c c d kd d p @d d -x<}j#K,hl.Y/Ŝs60yc&@@@@@DDDDEFFFGGGGHHIJKKLMMNNOPPUUVWWXXYZ[\]]^uuvwwaaBaCaaa qL^faia qL^f daa aia ajYaaaa !jaa m`a`Ljga(a m daa %$ " a `%$ " a `ae+f0 qa q qa q q da`aa L*eJ qa qLa qOa q q dLaOaLa,OaLaLeOa,aLa L*e qa qMa qNa q q dMaNaMa-NaMaLeNa-aMa (L*e`%$ "d `%$ "d a a a `%$ "d a a a `%$ "d `%$ "d `ӺӠŠ̠Šɭź%$ " a `%$ " a ```2`2`ʽ`蝗```` 2`m`2`L4c2`82`` `m``LQc`8` d```ajU2`a`a !j`٩aja`2` qa`a2`a !j` d#, #,& '- (#'- (`%$ "d bd``a a 7h` Pb b f ej m 5n naa 7ha L'bJa ```Ka ```Ha ```Ia ```ɛ,ɛ,`ɓGa Ga,`Ga,`ɒhh kaLRa d`a2`a`a j`8    % / X @ k c` laLa```2`%````aaaaa a aa i a aحaLk e c Lh c c d @d kd d d d d e ^f n n,``   a ɍHa͍IaʍJaˍKa aaaaGaLRa  Ն܀՚܀ktT U*ժU'C00 x%%%%%%%%"##$$$$$$$$$$$$$$$#""""""""0 xb Y`hC Q@PZRQ                  t  # # #  "              "      "   d                                          L $ $  $$ $  #    "$ $!!$$!" """""  !!!!         "                       ] l  " "  " "    8                !# !  e           !! !    ! ! ! !     "Q " "  !"  #            $ $   # ! !                     !!$$!$   !                                 # # "    "  " #"     ""     ""  "  "   " !!    !!     ! !   !       !!  $$$  $    $$!!  !!$$  "      "                           $ $ %  %     ! # " ! !            ! # #   $$ $$  "" "  "                                                     ! ! $ $   !!$$    *E"U*"U* U** *U**U**U*"U* U*  *U*E (U*E (U*E U*QL{V CAB 0  (%  (%  (%  CC CC0 (% C 3ЀЪЪТ@*ՀP,P P T*U* U (((E*(U*"U*"U* U** *U*(*U**U*"U* U*  *U*E (U*E (U*E U*Qؠ?̍ҠԍӍà ̿ ؠ `iC`8C`iC`# 3ЂЪЪТ@*ՀP,P P T*U* U (((E*(U                   "  "#   #  # "                                                                                             ! !                                                      " "            " ! !   # # # !# !  !!$$$!!  $ $  !!!!!  !#! !    !               # # #  #  #  # # # # # # #             "!!    $$$$!!#!#!!     """% %      " % %  " "  "           %""      "         """"         #""   ؍                   ""                           ҍ                          àŲȍōҠčŲӍԍԍŠΰӍΰ؍αؠ!! %%% ## #  " "" % %   $$$ԴԳ֬؍Íà٬؍٬؍Դ !!"" "    ##" #      " #!    ! #    !!  """ !! "! !#     " Ҡ  !       !!             !        !         ŠıбıвӍıà Կ ؠſӍѠ˱Ӎ˱؍˲؍ҍŠ˳؍˳ōȍҠčōL`   " " "   ""  "!!!     """ " $ $ $ $ $  ٍٍ̩ĈĈժժժժƁĂ㿀ªՊÁ̙㘰ကժՂժժժժժȈ҂€ĈĈժժʪժժƇLJȇ⡀㣞LJ(U"U*U"U ԪժժʀժՀ"D"D"D"D"D"D"D"D"D"ĈĈժժʪԪժĀ*ĂԪժጆ@*E*Q*ĈժժԪ㰀濰Ъժժժժ̙ժժԪժЪժՊ́ժՊЪՊՀժժժժժLJȇLj᱃€ЪժժժՀժժժժժ(U"U*U(U ժժժժժՀD"D"D"D"D"D"D"D"D"D"ժժժժժʪԪժď*ժժ**T*ԪժժժժЪఆఘ昀Ù怰РzFb# X'0 [ȹ'$ LӠӠ   !ٮʠvƮŮӮӮ"ƮŮӮӮʠ ˠŠŠĠ1 Ӡ ŠŠ̠  ӮԠӮàӮԠ ӮǠ#ҮӠ!ˮˮʠ! ٠  ٠ɠӠנ%ŠŠנ#̮ΠӠ Ӯؠ٠ؠ ƮŮӮӮؠҠ î֠ˠų̠ӠΠŠ Ҡ٠ӠӠ宠䠤򠤲᩠ﺍ卲宍ﬠ䡍庠Πخ砵󺍍Ӡ堳Ԡ䮠Ӡ堵󮍍砳󺍍󺍍󺍍Ġ뮠ݭݠݩ󠱳򮠠̠Ӡ뮍ՠԠĠ̠ŠĮҠ報ԍ堲Ӡ堳︰ź  Ԡ󿠢ΤĤŢΤ̤¢čԠҠӠĠ̠ŠŠˠΠŠŠϠŠĠĠŠ͠ݮԠؤԠΤҺŠŠĤĢΤĤΠˢ  ݢԠؤݭݠݩ纍ŠЍĤҤź宍󮮮󮠠򮍍宠ɫР嬠٠Š宩嬠ݭݠ纍נݍŠŠȠˠ˩ԠϠ報嬠ݭݬ堢ң󮍍Ӡ뺍묠ݩɮ庍캍묠危宍ɠɠ򍍨뮠嬠䬠     ݠߍ۠ݠߍƮŮӮӮ۠ݠߍ砍󠠠۠ݠߍ󠠠۠ݠߍӮͮ۠ݠߍ۠ݠߍ󠠠۠ɠ報퍱Ң䮍砠ᠠ۠ݠ ԩ嬠ɠ根Ԭ쬠ɠӠ堳Ӡ宠̠Ӡ宍ӨӠ䠤ﺠҬ㮬󮠠㮠㮠宠캠ծӮ䠢󢮠㮠䠠젱宍卍쮠宠宠䮠ﮠ宍䠤ЮϮƮЮϮ̠ϺŠЮϮ箠ŠЮϮɠɠ忍󠨳󩠠󠠠󩠠󠨱򩠠󿍍󮠠䬠󮠠Ӡ̠忍򮮮殮򮮮򮮮箮     󮠠Ӡ󮠠򡠠ɠ󮍍ɠ뮠󮠠󡠠嬠͠󮠠ɠ󮠠ɠ򮠠栠󮍍宠󮠠͠宍ɠ墠뮠嬠󮠠ɠɠ宠ɠ䬠󮠠迠ɠ報󮠠᫫ɠĮﬠ宠             ߍﺍЮϮɠ۠ݠߍ砠۠ݠߍߍߍ߬ߠߍ堣ߍ젠۠ݠߍ堍䠠۠ݠߍ󠠠۠ݠߍ䬠󮠠箠䮠䬠䬠䮍ɠ宠󮠠Ӡﮠɠ󠴬䠷宩墠뮠ɠڭ͠㮍󿍍쬠뮠宠Ӭ򠱲ج報͠堳嬠峮堵󮍍宠嬠ɠ󮍍󠸮󠳮󮠠ɬɠ򮠠ɠӠЯ͠󮍍󮠠ɠɠ򮠠堳󠱲ɠ򮠠堳ɠ󮠠ɠﮠ󮍍󮠠Ӡ󮠠멠뮠堢ӠӮ묠묠嬠嬠󮠠򮠠䮠䮠箠ؠ٠󮠠쮠嬠箍嬠󮠠쬠宠뮠嬠⮍䠢宠묠宠򮠠諫ɠĮ򍍍宠          ŠŠԠ̠ԠŠîӮ׮䬠Ҡ̺ٺɬɫ嬠㬠Ӡ򠱲䠱؍ﮠﮠ嬠򮠠ɠ宠󮠠ɠ󮠠ɠ塍䮠ɠ󮍍󮍍Я͠󮠠ɠɠڭ͠㮠ɠ宠󮍍ɠ쮠嬠򡠠宠ɠ䩠󮠠ɠɠɠ宠宠堢󮠠ɠɠɬ󮠠󮍍䮍嬠쮠ᠳ쮠󮠠宠婠宠宠宍󮠠󮍍󮠠箠䮠笠䮍䬠ᮠ宍宠󮠠嬠뮠宠ﬠ򮠠䬠嬠塠٩򮠠宠ѭ묠𮠠宠䠢墠卍宠謠宠宍̠λ󢠭婠ﺍĠǠӍϠӮ̠Πֱ̠Πֱ̠λ󢠭堵𠤱ᵶ󮠠嬠卍쬠󠹠̠Ġ٠ō٫Ӫ̠̠΍栢嬠󮍍嬠卍㮍ﬠᠹ㮍ŠŠԠΠԺɠ̺㬠嬠䩍ٺ㮍宠䮠󮠠򮍍󮠠宠󮠠󮠠宠󮠠宠宠宠宍嬠ɮ嬠嬠塠宠嬠宠򮍍嬠報㮠宠嬠㮠箠򮍍ɮ嬠㮬젱宍宠堫٠嬠뮠宠 亍ӮԍӮÍӮԍӮǍҮӍˮˮʍӠϠŠӠŮ󮠠󠤲讠ﺍŠЮϮɠ砨宬嬠ʠͬ堲ͮ󺍍蠠󠭠󠭠砨󠭠퍍լ󮠠嬠ﮠ䮠򮠠󺠠Š堨詮庍ԍﮍЮϮˠ蠶򠭠Ԡͩ󡠠宠àǬӠ٬ŬˠŠ婮󠤱䮠󮍍Ԡ䮠ŠԠӮӮŮﺍǠ̠ЍﬠΠӠ󩮍庠ҠĠƠ٬ŬŠԬ㮠ֱˠﺍӠōîϮĮ캠䠤Š΍Ǡ򠫫Ҡؠ䠶堨嬠宍     DPACK.UNPACK.OBJ"::(4)"BLOAD",F$".PAC"x"230,32:0,0:1,97:24576:16301,1:16297,0:16304,0:540::850:630:,16297,0:16304,0:16368,0624:1:"Do you need instructions? [Y or N] [";:T$"N":50:"]";:2:1@150:A13A78JA 240* 80:::230,32:62450:: 10:" This program incorporates portions of The Toolbox Series, a copyrighted product of Roger Wagner Publishing, Inc.":I13000:)23:8)"Just a moment, please...":"PRINT U/C",0:1::(4)"BLOA24:2:T$"ESC":60::" to play ";:T$"ARROWS":60::" page through text";:2:1:150:A27ıt 54915:::300 :(4)"CLOSE" 54915:::I(218)(219)256:J(222):216,0:"PRINT U/C",0:"ERROR #"J" HAS OCCURRED IN LINE #"I"!":"AMP":STRUCTIONS", x(B$)40B$" "B$" ":120F (B$)40B$(B$,40)L j R(1):(16384)128150 A$:A(A$):16368,0:A96A123AA32 R(1):(16384)128ı (16384)128ı 54915::(4)"CLOSE"F$".INST":::300` S IN LINES 2, 20 & 21 FOR NEW PROGRAM K 2"PRINT U/C",0::T$;::850:n <"PRINT U/C",0::T$;::850: FR(16336)(16336): PF$"WEDDINGS":FF$"WEDDINGS": Z104,64:16384,0::(4)"RUNWEDDINGS.PROG": dTF1:T$(A): nB$FF$" IN________________________________ THANKS TO DAV HOLLE FOR HIS PACKER/UNPACKER ROUTINE. THANKS TO ROGER WAGNER PUBLISHINGFOR THE USE OF "TOOLBOX SERIES" AMPERSAND ROUTINES. ________________________________( (16384:250: CHANGE PROGRAM NAME27 (175)256(176)46:(637)223į"PRINT U/C",1________________________________ WEDDINGS COPYRIGHT (C) 1987 - 1988 PAUL M. ZELMAN 739 TIFFT STREET BUFFALO, NY 14220-1814 WRITTEN: 3 MAR 87 ________________________________ 쮠ӮԠӮӮӮƮŮӮӮ͍ƮŮӮӮ͠宠ź̭Ԡ䮍亍ƮŠƮŮӮӮ묠̭Ԡ堨󩠢ĠƮŮӮӮݬԢݮƮŮӮӮ󮠠ƮŮӮӮ嫫퍨ƮŮӮӮ卍묠ƮŮӮӮƮŮӮӮ蠲    à庍ɠ͠ʠˠźӠ殠宠嬠󮍍ހ Հ ῁̌ 󀪪憀Հ՗Հϟϓ׀Հ aGKK5ՀՀ𼜜𜜜𼜜𜜜 ̌ՀՀ      ȱ^8e^^_ , l^ưȭ氩L8ˍ`w1^ȥ7^h67ɾa^6ȱ^7L<2H<)۰ A78770H:R(1)1į"PRINT U/C",1:J1:J61J1::::::M19);T$(I):::(4)"PR# 0":850:35,24::300:22:1:" Enter printer slot number. [0-7] [";:T$"1":50:"]":24:" (Default=1) (Instructions to screen=0)";:5:1 150:A13A49A48A55780l ZA48::A$9690A89ė:&770:Z0ė:p:54915:24:9:T$" TURN ON YOUR PRINTER ":50:12:1:"PRINT U/C",0:(4);P$:" "::35,18:110:19);B$:::J0:I1(T$(0))1I58ĺ::::::J1:760Jg game?":24:15:"[Y or N] [";:T$"Y":50:"]";:2:1J150:A13A89_A89A78640u:0,1:A78Ĺ0,0{16297,0:16304,0:16368,0::22:3:"Do you need a printout? [Y or N] [";:T$"N":50:"]";:12:1150:A13A78A8YORK STATE)":"PRINT U/C",1,I:"2 = Inverse (Example: New York State)":"PRINT U/C",0X24:10:"WHICH? [1 OR 2] [";::"1";::"]";:12:1b150:A13A49A50610lA(A49)(A13)(2(A50)):1,A:6v23:3:"Do you want card sounds durin:(637)223ır&23:2:"CAN YOUR COMPUTER DISPLAY LOWER CASE?":24:15:"[Y OR N] [";::"N";::"]";:12:10150:A13A78:A89A78560D:A89Ĺ1,0:VN21:2:"HOW DO YOU WANT UPPER CASE DISPLAYED?":"1 = NORMAL (EXAMPLE: NEW 240I1500:0680:16303,0:I1F210?JI0I9ZT$(J):(T$(J))40ĺjJF2JI9p210:A8A10A11A21480I1ĭA10A21480I10F2ĭA8A11480A10A21II10:440:1,0230X|:(4)"READ"F$".INST":"INPUT",A$:A(A$):TF0100:80:22:17:A$;:T$(0)A$23:17:I1A:"INPUT",T$(I):(T$(I),5)""F11:F2I1:IA:23:17:"Done";:41023:17:I;:23:17(0)70:JJ:190:::(4)"CLOSE"F$".INST":Ӡݭݬ̠̠ĠǠƠӠ亍٠ٮʍ󠭭䠵󮠠堳宍      ՀÀ怀Հ Հ  5Ҁ H Հ 瀪Հÿ  矀 ՀՀʀϿ秧߀ Հ ̌  Հ  ՀՀ򀀀π׀Հ  Հ ՀՀ ̌ ၁  瀪 Հ ÿ 倀矀 ׀Յ ߳ՀϿ!ǟ߀Հ "   ÀG Hǀ5 Հ  Հ　Հ Հπ  ̀ä ՀՀ  怀Հ5KK ᳳ繹󀪪Հ 　 π 　Հϟ׀ 憀Հ 쌌ހ ՀՀՀ򀀀 ՀϏՀʀՀÀՀကՀ󜼜 ̀ 󳳁̌倀̼πՀQuit ";? P(CU,0)0ĺ" ";:225 A(6)32:T$"SPACE":9:P(0,1)CUĺ" Remove frame ";:225 P(0,1)0ĺ" Frame card ";:225 " Frame & discard cards "; 29:T$"?":9:" Help ";L F(5) dR(1):(16384)128100K iA$:16368,0:A(A$):A96A123AA32Z nA90A10i sA65A11x xA63A47~ } A(0)8:A(1)10:A(2)11:A(3)21:A(4)27:A(5)47:A(6)0:A(7)0:21:1:T$"A&Z/ARROWS":9:" Move pointer ";:T$"ESC":9:" ,20,20 32 <Z125:L(16336)(16336)::Z A(0)066:R12:60:"TONE",0,5:` B{ F(0)071:"TONE",J,5 G K(0)076:"SOUND",0,0 L P(0)081:"TONE",255(X2),3;0,1;255(X2),3 Q Z(0)091:"TONE",I10,5 [9)256:J(222):216,0:"PRINT U/C",0:"ERROR #"J" HAS OCCURRED IN LINE #"I"!":"TONE",54,10;0,1;54,10:"AMP": "PRINT U/C",0::T$;::950: "PRINT U/C",0::T$;::950: 16368,0:2039,107:100:2039,160:16368,0: 2(0)051:"SOUND"&! (175)256(176)46:950 WEDDINGS COPYRIGHT (C) 1987 - 1988 PAUL M. ZELMAN 739 TIFFT STREET BUFFALO, NY 14220-1814 WRITTEN 3 MAR 87 :(4)"BLOADSUPER.SHAPES,A2049":232,1:233,8:1:0:1000:610000o ::12:I(218)(21          ӮÍӮԍӮǍҮӍˮˮʍľ󠭭宍庍ӠΠ멮庠ݠ占宠󍠠占宍ݍ󮠠䮠ݠݠРݬݠΠݩݠ䬠䮍ݠ󠭭ۿݠۯݠ宍ݠ宍گݠݬݬۼݬۭݬРݠΠ䮠䬠嬠䮍堳뮍䮠嬠讍嬠宠ﮠݮ嬠썱宠뮠嬠1)P(Q1,1)F(3)1:1425LQ25ĭP(Q6,0)1ĭP(Q,1)P(Q6,1)F(3)1:1425Q24Q6Q12Q18ĭP(Q7,0)1ĭP(Q,1)P(Q7,1)F(3)1:1425Q25Q1Q7Q13Q19ĭP(Q5,0)1ĭP(Q,1)P(Q5,1)F(3)1:F(3)1ı-:22:T$" N-CC1:900:P(H,0)1:P(H,1)V:P(H,2)SU:XX(H):YY(H)::I12:31X(31),Y(31):C104H30:I22:104C742100:7:30X,Y:VX,Y:50:SUX,Y7<1400:xF(3)0:Q129:F(3)1P(Q,0)0Q29:1425}Q6Q12Q18Q24ĭP(Q1,0)1ĭP(Q,P(H,0)013153F(2)F(2)1:F(2)31H28:1315IP(F(2),0)01305 P(H,0)1:P(H,1)P(F(2),1):P(H,2)P(F(2),2):4:30X(F(2)),Y(F(2)):P(F(2),0)0:7:XX(H):YY(H):30X,Y:P(H,1)X,Y:50:P(H,2)X,Y#:C1041340(H130:P(H,0)11335^111235A81245GCUCU1:CU7CU13CU19CU25CU31CUCU6Q1250kCU24CUCU24:1250}CUCU6:1250CU7CUCU24:1250CUCU6:1250CUCU1:CU0CU6CU12CU18CU24CUCU61100:F(5)0:H128:F(2)H:0::16368,0:J0:K1:I12:JJ1:L(1):(16384)127Ĺ16368,0:16301,1:I2::~I1:J35J0:50:KK:K11015,102016302,0:12:" Press any key to begin.":16301,1::L36X(CU),Y(CU):1100:A101225A152::22:T$" NOW FIXING DECK AFTER CUT ":9c4I1104:D(I)DK(J):JJ1:J105J1i9q>:SU18:VD(C)V13SUSU1:VV13:910(1)1į"PRINT U/C",1:(1)2į"PRINT U/C",1,I:"PRINT U/C",0:T34,I1104:DK(I)D(I)::A49ĉ:62450:710k22:1:"Press any key to cut cards at the line.":16368,0 I52152:3::245,I250,I%(16384)128I152Ē4:245,I250,I:*(16384)128I152Ē4:245,I250,I:I51::/:16368,0:JI50:I,154:L1500::16368,0:21:1:" 1 - Shuffle again 2 - Cut and deal 3 - Deal Which? [";:T$"?":8:"]";:5:1100:A49A51775 16368,0:1:A51ĉ:62450::830+"Shuffling"C10411NRD(C):D(C)D(((1)104)1):D(((0)104)1)RWJJ{15(50J),C50215(50J),C5050::L1500:I1250:266I,51266I,1543:65I,5165I,1540:14I,5114I,1543:215I,51215I48:72110,90:16:73167,90:0:Y114:46128,Y:69138,Y:49148,Y:16297,0:16304,0:I110:90:I13000::::62450:"PRINT U/C",0:"AMP":103,1:104,8:2048,0:::768::C1104:D(C)C:C52D(C)C52 ::62450::3:22:16:]100bA13A78*gA78A896058l:A78ıE54915:22:1:" Would you like to play another game? ":23:12:"[Y or N] [";:T$"Y":8:"]":5:1:16368,0100A13A89A89A78660:A8910000e:62450: to fill the spaces. ([RETURN] is active during easy game only!)"s100:34,0:16297,0:16304,0::35,24::1:(T$)37Ė20(((T$)2).5)X:22:" Do you want to end this game? ":23:12:"[Y or N] [";:T$"N":8:"]":1er will 'wrap around' when moved off an edge."::"[SPACE] frames the card at the pointer, or if the card at the pointer is alreadyframed, that frame will be removed."C100:::"[RETURN] closes up the tableau then deals cards from the deck:34,2:20:"_______________________________________";:1527,159::16303,0"[?] or [/] shows you these instructions."::"[ESC] lets you quit this game.":2:"[A&Z/ARROWS] move the pointer from card to card (all four directions). The point" = "104C" ";:5:1:],:"TONE",54,10;0,1;54,10:LE310,320:22:"CENTER",A$:5:10::6A$"These two cards are not adjacent!":@A$"These two cards are not of equal rank!":L34,0:35,19::T$" INSTRUCTIONS FOR GAME CONTROLS ":91C104A(7)13:T$"RETURN":9:" Close up & deal ";:240 F(5)1A(7)13:T$"RETURN":9:" Close up tableau ";:240 " ";" ";:T$"DECK":9: .,->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           !ȭ氩L8ˍ`a`H<)۰ %ʊ [ >${ = ;LLLL+AMPRESTORE AMPERSAND.TBưȱ`YTONETONE.TB6 ;6 < 16368,0)%L'100:A78A89A1310060=%V':A89F(1)1F%`'200%j'100:AA(0)AA(1)AA(2)AA(3)AA(4)AA(5)AA(6)AA(7)10090%t'AA(0)AA(1)AA(2)AA(3)İ1200:10080%~'AA(4)İ600:10080%'AA(5)İ400:10080 &'AA(6)301,0:16300,0:16297,0:16304,0:7:X7:T$"WEDDINGS":1700t$8'Y34:16:92:I13:X014:43X,Y:80:::0:1%B'31X(31),Y(31):CU1:1100:1320:C30::22:"CENTER","Do you want to play the easy game? ":15:"[Y or N] [";:T$"N":8:"]";:5:1: 139,79,22,1,60,1,98,1,136,1,174,1,212,1,22,33,60,33,98,33,136,33,174,33,212,33,22,65,60,65,98,65,136,65,174,65,212,65,22,97,60,97,98,97,136,97,174,97,212,97,22,129,60,129,98,129,136,129,174,129,212,129,254,65,0,0,279,159>$.'700::::4:0,0:62454:16YY(F(4)):32X,Y:L"7:XX(CU):YY(CU):32X,Y:P(0,1)0P(0,1)CU:2015y"CUP(0,1)P(0,2)P(0,1):P(0,1)CU:2015"P(0,2)CU""424:36:104C" ";:5:1:"':D(104),DK(104),X(33),Y(33),A(7),F(5),P(30,2)"'I033:X(I),Y(I):#$'00:18606!5P(P(0,1),1)P(P(0,2),1)LE2:300:1860!:4:QQ12:F(4)P(0,QQ):XX(P(0,QQ)):YY(P(0,QQ)):P(P(0,QQ),0)0:P(0,QQ)0:30X,Y:1865!DQQ12:F(4)P(0,QQ):P(0,QQ)0:1900::1870!I1900::1500:F(5)1:F(1)1300!N"l4:XX(F(4)):6P(0,1)12P(0,1)18P(0,1)24ĭP(0,2)P(0,1)11845^ P(0,1)25ĭP(0,2)P(0,1)61845 !P(0,1)6P(0,1)12P(0,1)18ĭP(0,1)24ĭP(0,2)P(0,1)71845 &P(0,1)1P(0,1)7P(0,1)13P(0,1)19ĭP(0,1)25ĭP(0,2)P(0,1)51845!+LE1:31610"E((T$,Q,1))20X,Y:50*J:zY68((11((T$)1))2):Q1(T$):YY11:71X,Y:(T$,Q,1)" "İ75:1710((T$,Q,1))20X,Y:50:P(0,1)0ĭCUP(0,1)F(4)CU:1900:P(0,1)0:1870 2000P(0,2)018709 P(0,1)Y80))(Y(33)(Y79)):JI1:70:WY79:4:T$" EASY GAME ":F(1)1T$" HARD GAME "1600:X139:4:T$" YOU WON ":1700:F(1)1Ģ22:T$" OUTSTANDING! ":500:810::650@X130((9((T$)1))2):Q1(T$):XX9:71X,Y:(T$,Q,1)" "İ75:O MOVES AVAILABLE ":8:65:10:650=C1041510CfQ130:P(Q,0)1Q30::1505::::I175252R((1)6)1:R:R41520!X((1)280):Y((1)160):X(0),Y(0)X,Y:JI:70:(X(32)(X140))(X(33)(X139)),(Y(32)(>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-- )->??77..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+-??ĈĈ怀ժժʪժՊ́ȏȏ򣀠ĈĈĈՀժժժժĈĈĈ񑞀ၠĸĈĈժժժҪժĈժժժժժȌ⃠Ђ€T*Q*E*Ĉªժժժ U(U*U UԪժժ҂ʪ*U*U*U*UȪժĈĈĈĈĈĈĈĈĈĈPԪժ㘀怆ЪժժժՀժժʪժժȈȈĈЪժժժժժժժժժժժժժժԪժχЪՀՀժժժժժȈӂ€P*A*Q*ЪժժժժԪ(U(U*U"U ԪժժҀҪՀtL@*U*㿀ժժြ𱼜ԪՀ*އժժጆ!!!!!!!!""" " " " " """""""""                                            viB+  v vL$l` H```1Tw / ,R  ,, Lٮhj  v/.ڭ vLdLȱȱȱȱ) L v ȱ! ! `` (0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``ɀ! ! .,.,.,.,2%.,2%..65.6.66;,<'<$'<<<<<> 7'7'77775%? ??????*------>??????------575  %<6>><2777777'7'><>><>><><><><2'><2'>>67>6>66 )<,%,$%,,,,,. 5%5%5555?-;------:??????.------??????7578$5ĈĈ̙ժժԪժĈՊჰՊժՊÁ΃ĈĈժժժժժ€ĈժժժժժĈĈĈ(U U*U(U ժժժժժՀ"D"D"D"D"D"D"D"D"D"D*U*U*ĀժժՊЪժȀ*U**Ъժ(*T*Ĉժժఆఘ挀Ù怰ЪժժժՊჰ̙簌ժժҪժǁЪժՂ̙̙ρժժժЪЪժѪՀժժժʪժ〈ЪѪՀ࿃ժժժժժ(U U**U ժժժժժՀ*U*U*(ժժԊЪժP*U**@*U*ժժUUժժժժժԪఘ㇀ٍ̙ĈĈ̱̙쌀ժժҪժՀƈψãΈĨՂ̙̙࿃ЪժժժĈҪҪժʪժĀ߃ժժժժժ U*T**UԪժժժ*U*U*ЪժժԂժP*U**T*U*UĂҪժUUժժЪጀطఆఘ̱ЪժժժՀƇLJժժҪժՂßɈȀȀĈɈЪժժժժՀÁ񇀀࿃ԪժժժćϏĈժժժԪʪժҪժЪՀՀժժժժժƈȓⓒ฼U*T*E*Uժժժժժ*U*U UЪժժ҂ʪP*U*UT*U*UժժĈĈĈĈĈĈĈĈĈĈT"ժժЪጀఆఘ挀ù怆