@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr A#}P` ~#Յ` ~#ʆՆ` ~#` ~#ʆ`ӹ 'Ӡ` H% P#L# H% Z#L# H% i#L# H% }q#L# H% ~#L# H% ~#L# S#L#Ԇ l#L#ֆՅL#ԆL#ԩ  $өӹ` H%H h $`  }$`ӹ 'Ӡ ` H% 7$Ș $өӬ`Hh $H $Ɖ }$h`Ӥ 'ӤL$ӤL$`8刅剅 8儥児`L^1 H}ӹ 'h` b%֦ե` ^%ե` Hөӱh h&`ӹ 'Ӡ`  }%`ӹ 'ӬԈԎ`өӠ ӢȘ h&`HhHH ,&Ɖ .&hh }l&`өӤLB& 'ӤL\&`ee` b% + H%L% b% + H%L% b% + H%L#% f% H }%L)% % H%L% % H%L%HH +hh &Ɖ &`Ӥ 'ӤL&ֹ 'ӤL'ԈԎ` }@  fڰ` `ڰ` ڰ ` (۰`L^1L^1w'x' #8w'x' %`w'x'HH R% R%mw }'mx'hhleԊeթL# b% (,L#HH + <,hh ,ԦL' ( *L^1` b% +Ӥ 'Ӡ}L# H%H 'Ӡ8ih` H%H 'Ӡih` b% -0 #8`` b%L+ `ԥ}Մ <,0 b% <, *`Lb% f% ( +L# b% /L# % (L`$ b%L# b%L# b%L#HH %hhL$HH b%hhԦդ}L$ b% -L# b% +L# f% +L# b% ,L# b% ,L# -L)$ + %Ԧ -L)$ b% % -L)$ + &.L)$ + v,L# + 9'L# + ,L# + }?'L# + B-L# + -L# + P,L# + \,L# + (,L# + -'L# + <,L# + 3'L# + .L)$ + L.L`$ + .L)$ + U-L# + h-L# %} b% 5.L#` + <, *LE + <, *?8 + <,03 *.' + <,"0 + <,0 + <, *L#L# 3'` + *;}4 + *1* + *0'% + *0 + *0 + *L#L# ` + *;4 + *1* + *'}% + * + * + *L#L# +D0: +-0- +90 +9L#}L# b% +Lb% f% Lf% % +L% % +L%`օՅԅ` ``I`8ԅԩՅթօ`}IԥIեI`H Dh`eԥeեe`8ԥե` h,` o,`&&`Fff` :/ Dڢ h, }/ (,`ՅԅՅԢ&& eԥe``Fff`fff`` ,]օ +H8} ,A- / , , , <, (,L+-A- 0/hE +`L^1%ԥ%ե%`ԥե`EԥEեE`}`` # {- , - v, + b%L<,`֥``H)hJJJ%'`.... -}.M..``Y`9`H)hJJJ=%'``m ʈ`L^1򩀅}`0:`8` {.AG`8`&&`օՅԤ .80  .ԅ`8`Lؤ-.+`.} .$ .  ذ u/ . +`&&```ԕ``u`6*}`D<8@(i /- D/ /% / N/ ^/ N/ ^/ %/ 0/`8`H + /h +`H + u/h +` :/ D} /uԕةCL}D:CARDDECK.NAR 0 000000 2ƥ`0`0`00x76X` }0x76X`h@1 1H ' h` S9 A# 06Q<70600`Q<0 VHQ<Ɲ0h0`0Q<!}8hh8JE" R% R%8 A# # 0Q<Q<ʆȠ # 61 # Z$ 6 7 62 # "}Z$ 6 7 6 6 7 0l Error # at #LS' ' #LH% ` 2i ĩ0i` ' Z$ % %2Ĉ`#} ' 'ƅ #Lz& 20 00 0 42 ]2Ly'L^1 ' ' # H%` 2 2 2 2  2 2 2Ʃ 0 $}%2 2ŝEĝDǝJB :1Ly'Ʃ 00 2"0 BL:1 2 2 2Ly'{a ` 2 2 *3ԢֆթLy' 2 2%} 2 23ED)IJԝKB :1Ly'S:3m3 2Tm3 2UV` HIHBhL:1 2}W 3L&}y' 2 3Ly' 2 3 2=4 3Ly' 2 3 2 3ԢֆթLy' 2 3=4 2 JKB :1Ly' 2 2=4Ly''}ԐeԪʈ`L^1.)e԰% Խ8`ԍ`  ' Z$ % +(} ' # ' # + Ԑ0`L^1 2 4 P4Ly' 2 4 4Ly' b% +L# f%)L# b% + v,L# f% )} 9'L#L^1 b% -L# b% -L#Ǎ55 b%Hֽ ' 2՝EԝD5I5HǝB :1h`> ' ' # H%Ʃ ' #*} ' #LH% 2 5 k5 2I5H5 Ly' 2 5 k5 Ly'ȄƠ Lk5 ݩL#HH b% 6hhL6HH f% 6hhL6L#H+}H % ;6hhL6HH % ;6hhL6-m6 2DEHI BL:1`L# H%666`6 6%60 86,}H `$h  b6 %` 6 b% /R< b%ԥR< 6 f% BL 7 6 %ȅ 6Lb6ȅ 2L3 6 H%L 7 6 b% -}Q7L 7FALSETRUEȄƠLk5ȩ0`ȅƪ0.0 2D7EHIB :1777`.} m777`/}7e77` (8 . :8L#L^1 I8Lz& I8L& I8L& (8 . :8 #L&L^1 (877ɛ e7 #Lz& (8 ۠ȱɛ0}m777 `$L& (8ɛȘL#Ƚ0L# 2L+ 2 ' ' 8 `: # &Ly' 2 8HH ' ' 1}# b%hh ;Ly'`E::өө@@<@ө`1<@ө`@é `H9 i`:өL2}^1™H9`H9ˆ`ii8倥偰 9`:ө L^1H908K9M9L9N9`H9֭J9խI9ԭH9 H9K9L3}9 9H9)H9I9eI9J9eJ9M9K9N9L9 K9 9`Ӎ: 9 9 9 9Ln: ::` 9 9H9%)Q9I9O9J9P9 4}9L:Q9H9`8`֍Q9ՍP9ԍO9 : 9`8ƅ;; Í;;ˆ`Í;;`;í;` :I9mK9O9J9m5}L9P9 :+K9Q9L9R9 : ; 9K9mQ9K9L9mR9L9 9 ;` 9 9H9%)I9mK9J9mL9 9Ld; ;` *H :6} ; a;h`L^1 2H D 9 9H90mK9ԥmL9 9L;hөLy' 2H D 9 9H908K9ԭL9ՐՆ 7}9L=L< 2 < ݰ-L< 2 < ްL< 2 ' # f% / Ly'L^1 2 ' # f% >= / Ly' 2 < =L< 2 < 9}=L< 2 < r=L< 2 < >L<)8?Ք FکLfLܩ)@0))Ԡߢ ޠ (`$)e>i (ې`8)@0+b;})e)e ݦ `F ݢ> `ڠw @ݠ`D'RFuCP?b9dYd<}`@W2@?tS)%@@e8`0?i (۩E< ݢb? `ڢE< ڢK< ݢE< (ۢK=}< `ڢl ڥK< fƢK< ݥ"8@Ji@)j `@Hֽ 'Ӡ >}Ԉh` 2 2 ' # ' # + h? Ly' 2 ' # b%Ly' 2Q<ԩQ<ֆLy' 2ԢֆթLy'?} 2Ly' 2 23 Hҩҩ 2hHԝҩ 2 H 2hheԝҩ Ly' .` 2 @}' Z$ % ' ' a@ # & ' ' # &Ly' Dک@H) @ "AhԬR< 0 L@-L@``;$ FڭRA}@|@tA&CJ}BlBAAtAA@@C@dC|@@dC6AlBD&C.BABdC>@lB.B.B@@B|@@CAtA6AC6A&CC>@@K}C@6ADNENE̠ᠠ 堠̠堈0DDDDDDDDDDDDDDDD@6AA&CL}o.BCAdC@BC>@B@&C|@tAtAAD@dC@lB>@@CBCB&C>@lBBA|@BlB6ACCAdCM}@|@AtA@C>@@  # S'j # S'j # #j # # # ) u) ' # N}) z& ' #rGLM3 # # z&/ #> # z&Ԡ #j # # z& ' # #j # # O}u) $GLYD # & ' ' ' # #HL?o # # z&Р # # z&Ly' # S'P} ' ' # z& # ' # # ' ' # z&Р # ' # # ' ' # z&Р # Q}' # # ' ' # z& ' # # # # u) $)ILYD # & ' #j # # u)R}E # ' # # ' # ) ' # ) # ) & ' # z& ' Z$ ( $âIL? # ' S}# ) ) k(LQK ' ' ' # # ' # z& ' ' # # ' # # f* u) ) z& 'T} ' # # ' # # f* ' #` # Z* ) u) )@ # ' # # Z* u) ) z& ' U}# ' # # ' # u) ) $JLYD # & ' ' ' ' ' ' ' # # ' &V} ' %(LILy' #? S' 'L{KD:CARDDECK.NARlK # Z$ (KLq2 'KL2JE # # z&4 #JW}E # # ) ) k(LM ' # H%ȩ '> \7E #> #LL8E # ' ' ' ' # z&E #X} ' ' ' ' # z&E # ' ' ' '< &E #E # # &JE # #4 # Z* b%Y}LLOE #JE # # # 'E # # &JE # %(LK 'ML3Ly' # S'JE #3 # z&Z} #JE # # ) $) ) k(LHN 'JE # # # ) $MLD # z& 'OE # ' # # [}' # &OE # ' # # 'OE #JE # # # ' # &OE #JE # # # ' ' \}# &JE # H(LTMLy' # S' 'X # #ME # # ' # u) )KE # # )( #NE # #]} ' # u)LE # # ) u) ) & ' # z& # ' # ) ) k(LOE # # ' # $/OL^}YD # &E # ' ' ' ' ' ' # # ' & ' ' #( # ) & ' %(LN_}Ly' # S' 'X # #ME # # ' # u) )KE # # )( #NE # # ' # u)LE # #`} ) ' # ) u) ) & ' ' # # ' # # #* u) ) # ) z& ' # z& ' #a} ' # ) ) k(L #XlL8gF #JE # # # }' # &.F #JE # # # ' #lL8.F #JE # # # ' ' ' # z&.}F #JE # # # ' ' ' # &.F #JE # # # ' ' ' # &JE # %(}LkxF # # &mLKfLy' # S' '.F #G # # # ' ' ' ' ' ' ' # z}&G # %(xF #xF # # #G # # u) ) # ) & # # z& # # z&ȩ}xF # # # 6gF # ' # # '.F #G # # # ' ' ' ' ' # &.F }#G # # # ' #E # # (oLS.F #G # # # ' ' ' H( #.F #G} # # # ' ' ' # u).F #G # # # ' ' ' # ) (.F #G # # # }' ' ' # ( # ( # (pLO.F #G # # # ' ' ' # # f* b%LLq.F }#G # # # ' ' ' ' ' # #.F #G # # # ' ' ' # # ) u).}F #G # # # ' ' ' # ) (.F #G # # # ' ' ' # (LqLONgF # }' # # ' #% # ( ' # (qLON.F #G # # # ' ' ' # # f* b%Lr.}F #G # # # ' ' ' ' ' ' ' # ' # #*.F #G # # # ' ' ' }' ' ' ' #gF # ' # # ' ' ' # # ) #* ) b%LrLmLr* # (ʢrLWYLy' }# S'.F #G # # # ' ' ' # # #* b%LCs # ( # (@sLsWLvE #.}F #G # # # ' ' ' ' ' # &gF #E # ' ' # # ' ' ' #E #} ' ' # ) # $) #* b%LssLmLv ' # z& ' # z&.F # ' # # ' '} ' # # f* b%LUu.F # ' # # ' ' ' ' ' ' ' #E # ' ' # #*.F} # ' # # ' ' ' ' ' ' ' #E # ' ' # # ) #* ) b%LFu ' # z&}LRu ' %(Lau ' %( ' # ' # # f* ) b%L!t ' # 6) b%Lu # ( # (Ģ}uLsWLv.F # ' # # ' #E # # (vLS.F # ' # # ' ' ' H(.F #}G # # # ' #E # #jvLiQ.F #G # # # ' ' ' %(vL}aLy' # S'JE} # ' # z& #JE # # ) $) ) k(Lw 'JE # # # ) $wLD # z& '{F #} ' # # ' # &{F # ' # # '{F #JE # # # ' # &{F #JE # #} # ' ' # &JE # H(LvLy' # S'G # H(G # # # Z* b%L'x$xLKfL| '} # $) z& ' # z& # ' # ) $) ) k(Ly.F # ' # # ' ' ' # # 0*} b%L]y ' %({F # ' # # '.F # ' # # ' ' ' ' ' # &.F #} ' # # ' #E # # (ZyLSLtx.F # ' # # ' ' ' # z& ' H(Llx }' # # $) #* b%Ly͢yLKfL| ' # (yLv ' # (yLv ' # z&G # # # #* b}%L{ ' # # ) # #* b%Lz.F # ' # # ' #{F # ' # # ' #}zLiQ.F # ' # # ' ' ' %( ' H( ' %(.F # ' # # ' #{F #} ' # # ' #?{LiQ.F # ' # # ' ' ' %( ' H( ' %( ' # # $}) f* b%L|.F # ' # # ' #{F # ' # # ' #{LiQ.F # ' # # }' ' ' %( ' H(.F # ' # # ' ' ' # # N* ' # # Z* ) b%L{} ' %(L{|L}aLy' # S'|L%XzF # # |(+ (* (- (= (L}zF # # (}LW}YL} (L5}2}LrL}r (R (L\}Y}LwL} (L}sF # # z&L} # (} # (}LsWLy'}LAisF # # 6) b%L}Ѣ}L|L}l آ 1L}}] La Belle Lucie by Joseph R. Chiko June of 1991 with CLSN Pascal Version 1.0This fasci}nating game is also knownas Clover Leaf, Midnight Oil, andThree Shuffles and a Draw.Layout: The computer deals 17 fans}of three cards and one with 1 card.The actual layout drawn isrepresented by capital 'F' for threecard fans and small 'f' f}or the onecard fan. The foundations arerepresented by the capital letters ofeach suit. F F F F F S } F F F F F H F F F F F C F F f DThe top cards in each fan are available for play on }either thefoundation or another fan. Thefoundations are built up to kingsfrom aces. The fans can be builtdown within su}it. Only one card can be played at a time. Fans which are removed are never replaced. Redeals: Two redeals are perm}itted.On the second redeal an extra fan iscreated by the computer. Normally,this would be done manually, however,doing i}t this way is cheaper interms of memory used by the programand it also places an added elementof chance into this game. }Scoring: Five points are earned foreach card placed on the foundationafter the initial deal. Three areearned on the fi}rst redeal and oneon the second. Computer play: The cursor is a single arrow. Place the arrow on thefan against whic}h play is to occur.The computer will first attempt tomove the card to the foundation. Ifthis can not be done, it will the}n search all the fans for the appropriate card and if availablemove it to the fan the arrow is resting on. The keyboard }arrows andreturn or the joystick can be usedto move the cursor. The remaining commands are input viathe keyboard. The}y are listed below: Esc - terminate the program R - redeal arrows - move cursor return - mak}e play stick - move cursor fire - make play;UPP]P_P_P_P_PWPUPuPPPwuPPUPUPP_P_PPUPUPPUPuPPPwuPPUP}UPPWPWWPUPuPPPwuPPUPUPWP_P_P_P_P_PWPUPuPPPwuPPUP}UPUPUPPWWPUPuPPPwuPPUPUPUPUPUPUPPWWPUPuPPPwuPPUP}UPP_P_P_P_P]PUPuPPPwuPPUPUPPPPPWWPUPuPPPwuPPUP}UPPWWWWWUUPuPPPwuPPUP UP}P}P}P}P}PuPUPuPPPwuPPUP }UPP_P_P_P_PPPUPuPPPwuPPUP UPP_P_P_PP_P_PUPuPPPwuPPUP }UPWP_P}PP}P_PWUUPuPPPwuPPUPUPPYPZPZPZPZPVPUPPPPePUPU}PPZPZPPUPUPPUPPPPePUPUPPVjPVVPUPPPPePUPUP}VPZPZPZPZPZPYPUPPPPePUPUPUPUPPVVPUPPPPePUPUP}UPUPUPUPPVVPUPPPPePUPUPPZPjZPZPZPYPUPPPPePUPUP}PPPPVVPUPPPPePUPUPPVVVVVUUPPPPePUP UP}iPiPiPiPiPePUPPPPePUP UPPZPZPZPZPPPUPPPPePUP UPP}ZPZPZPjPZPZPUPPPPePUP UPVPZPiPPiPZPVUUPPPPePUPUPP]}P_P_P_P_PWPUPPuuuPuPPUPUPP_P_PPUPUPPUPPuuuPuPPUPUPP}WPWWPUPPuuuPuPPUPUPWP_P_P_P_P_PWPUPPuuuPuPPUPUPUP}UPPWWPUPPuuuPuPPUPUPUPUPUPUPPWWPUPPuuuPuPPUPUPP_}P_P_P_P]PUPPuuuPuPPUPUPPPPPWWPUPPuuuPuPPUPUPPWW}WWWUUPPuuuPuPPUP UP}P}P}P}P}PuPUPPuuuPuPPUP UPP_P}_P_P_PPPUPPuuuPuPPUP UPP_P_P_PP_P_PUPPuuuPuPPUP UPWP_P}P}P}P_PWUUPPuuuPuPPUPUPPYPZPZPZPZPVPUPePPPPPePUPUPPZPZPP}UPUPPUPePPPPPePUPUPPVjPVVPUPePPPPPePUPUPVPZPZP}ZPZPZPYPUPePPPPPePUPUPUPUPPVVPUPePPPPPePUPUPUPUPUPUP}PVVPUPePPPPPePUPUPPZPjZPZPZPYPUPePPPPPePUPUPPPPPV}VPUPePPPPPePUPUPPVVVVVUUPePPPPPePUP UPiPiPiP}iPiPePUPePPPPPePUP UPPZPZPZPZPPPUPePPPPPePUP UPPZPZPZPjPZ}PZPUPePPPPPePUP UPVPZPiPPiPZPVUUPePPPPPePUPUP"""}"""""UPUTUUUUUTUUT_wt__wtWT}_UTUT$]UTWUTUTUutUWU_T}TUUT UUT_wtwtWT_UTUTUTuUTU]TU_TU_TU_T_T}_T_T_tUUT UUT_wt}}wt}WT}_}UTUTUTUUTUUTU_UU}t}T}T}T}tUUT} UUT_wt}}wt}WT}_]UTuUTUTWUTUTUwU]Uu}}}}_UUT UUT]_}wtwt}UWT_UT}UT_UTWUTUTUtU}U_WUW_}utUUTUUTVTZijijZiVTiUTiUTYUTVUTU}TUedUiUiiiiZVTUUTUUTVTZZZjijZVTUUTUTUTUUTUUTUUjUUVZTiT}TjUUTUUTVTZZjZjiZZVTZUTUTUTUUTUUTUjUUTiTTjUUTUU}TYVTZZZjZjZVTZUTZUTZUTVUTUTUTUTUTeTUUTUUTVTZUjjZZVTZ}UTUTUTUUTUUTUjUUTjUjUUTUUTVVTiZjjZZVTZUTUTUTUUTUUTUjU}UjVZTiTTUUTUUTVTZijijZiVTiUTiUTYUTUUTUUTUeTUiTUiTiTTiTiTj}UUTUUTVTZZjZjZZVTZUTUTUTUUTUUTUjUUjjUUTUUTVTZ}ZjZjZiVTUTUTYUTVUTUTUedUVUZTiTjUUT UUTVTZjjZVTUTUTUT}eUTUYTUZTUZTUZTZTZTZTZdjUUT UUTVTZijijiZiVTiUTUTUTUUTUUTUZUjUidiTi}TiTidjUUT UUTVTZijijiZiVTYUTeUTUTVUTUTUfUYUeiiiijZUUT }UUTYVTiZjjUZVTUTiUTZUTVUTUTUdUiUZVUVZiedUUTUUT""$""$""}$""$""$""$""$""$""$""$UUTE.GAM.HLPYSolitaire Games Ib A#|P` ~#Յ` ~#ʆՆ` ~#` ~#ʆ`ӹ 'Ӡ` H% P#L# H% Z#L# H% i#L# H% }q#L# H% ~#L# H% ~#L# S#L#Ԇ l#L#ֆՅL#ԆL#ԩ  $өӹ` H%H h $`  }$`ӹ 'Ӡ ` H% 7$Ș $өӬ`Hh $H $Ɖ }$h`Ӥ 'ӤL$ӤL$`8刅剅 8儥児`L^1 H}ӹ 'h` b%֦ե` ^%ե` Hөӱh h&`ӹ 'Ӡ`  }%`ӹ 'ӬԈԎ`өӠ ӢȘ h&`HhHH ,&Ɖ .&hh }l&`өӤLB& 'ӤL\&`ee` b% + H%L% b% + H%L% b% + H%L#% f% H}%L)% % H%L% % H%L%HH +hh &Ɖ &`Ӥ 'ӤL&ֹ 'ӤL'ԈԎ` }@  fڰ` `ڰ` ڰ ` (۰`L^1L^1w'x' #8w'x' %`w'x'HH R% R%mw}'mx'hhleԊeթL# b% (,L#HH + <,hh ,ԦL' ( *L^1` b% +Ӥ 'Ӡ}L# H%H 'Ӡ8ih` H%H 'Ӡih` b% -0 #8`` b%L+ `ԥ}Մ <,0 b% <, *`Lb% f% ( +L# b% /L# % (L`$ b%L# b%L# b%L#HH %hhL$HH b%hhԦդ}L$ b% -L# b% +L# f% +L# b% ,L# b% ,L# -L)$ + %Ԧ -L)$ b% % -L)$ + &.L)$ + v,L# + 9'L# + ,L# + }?'L# + B-L# + -L# + P,L# + \,L# + (,L# + -'L# + <,L# + 3'L# + .L)$ + L.L`$ + .L)$ + U-L# + h-L# %} b% 5.L#` + <, *LE + <, *?8 + <,03 *.' + <,"0 + <,0 + <, *L#L# 3'` + *;}4 + *1* + *0'% + *0 + *0 + *L#L# ` + *;4 + *1* + *' }% + * + * + *L#L# +D0: +-0- +90 +9L# }L# b% +Lb% f% Lf% % +L% % +L%`օՅԅ` ``I`8ԅԩՅթօ` }IԥIեI`H Dh`eԥeեe`8ԥե` h,` o,`&&`Fff` :/ Dڢ h,  }/ (,`ՅԅՅԢ&& eԥe``Fff`fff`` ,]օ +H8 } ,A- / , , , <, (,L+-A- 0/hE +`L^1 %ԥ%ե%`ԥե`EԥEեE`}`` # {- , - v, + b%L<,`֥``H)hJJJ%'`.... -}.M..`tm`Y`9`H)hJJJ=%'``m ʈ`L^1򩀅}`0:`8` {.AG`8`&&`օՅԤ .80  .ԅ`8`Lؤ-.+`.} .$ .  ذ u/ . +`&&```ԕ``u`6*}`D<8@(i /- D/ /% / N/ ^/ N/ ^/ %/ 0/`8`H + /h +`H + u/h +` :/ D} /uԕةCLܛ lsm_draw_player(player_3, single_width, 0, 189, 0, '||||||||FOUNDATIONS|||||'); lsm_in}itialize_blade_stack; for card_ndx := 0 to 17 do 0 000000 2ƥ` 0`0`00x76X`}0x76X`h@ca1 1H ' h` S9 A# 06Q<70600`Q<0 VHQ<Ɲ0h0`0Q<}8hh8JE" R% R%8 A# # 0Q<Q<ʆȠ # 61 # Z$ 6 7 62 # }Z$ 6 7 6 6 7 0l Error # at #LS' ' #LH% ` 2i ĩ0i` ' Z$ % %2Ĉ`} ' 'ƅ #Lz& 20 00 0 42 ]2Ly'L^1 ' ' # H%` 2 2 2 2  2 2 2Ʃ 0 }%2 2ŝEĝDǝJB :1Ly'Ʃ 00 2"0 BL:1 2 2 2Ly'{a ` 2 2 *3ԢֆթLy' 2 2} 2 23ED)IJԝKB :1Ly'S:3m3 2Tm3 2UV`  HIHBhL:1 2}W 3L}y' 2 3Ly' 2 3 2=4 3Ly' 2 3 2 3ԢֆթLy' 2 3=4 2 JKB :1Ly' 2 2=4Ly'}ԐeԪʈ`L^1.)e԰% Խ8`ԍ`  ' Z$ % +} ' # ' # + Ԑ0`L^1 2 4 P4Ly' 2 4 4Ly' b% +L# f%)L# b% + v,L# f% } 9'L#L^1 b% -L# b% -L#Ǎ55 b%Hֽ ' 2՝EԝD5I5HǝB :1h`s) ' ' # H%Ʃ ' #} ' #LH% 2 5 k5 2I5H5 Ly'^. 2 5 k5 Ly'ȄƠ Lk5 ݩL#HH b% 6hhL6HH f% 6hhL6L#H }H % ;6hhL6HH % ;6hhL6-m6 2DEHI BL:1`eL# H%666`s e6 6%60 86!}H `$h  b6 %` 6 b% /R< b%ԥR< 6 f% BL 7 6 %ȅ 6Lb6ȅ 2L3 6 H%L 7 6 b% "}Q7L 7FALSETRUEȄƠLk5ȩ0`ȅƪ0.0 2D7EHIB :1777`nd_tone(29, 1); #} Exit; End; if fan[crs_pos]^.lis^.card^.rank - 1 <> fan[cloned_pos]^.lis^.card^.rank then m777`$}7e77` (8 . :8L#L^1 I8Lz& I8L& I8L& (8 . :8 #L&L^1 (877ɛ e7 #Lz& (8 ۠ȱɛ%}m777 `$L& (8ɛȘL#Ƚ0L# 2L+ 2 ' ' 8 `: # &Ly' 2 8HH ' ' &}# b%hh ;Ly'_pos]^.tis)өө@@<@ө`1<@ө`@é `H9 i`:өL'}^1™H9`H9ˆ`ii8倥偰 9`:ө L^1H908K9M9L9N9`H9֭J9խI9ԭH9 H9K9L(}9 9H9)H9I9eI9J9eJ9M9K9N9L9 K9 9`Ӎ: 9 9 9 9Ln: ::`^ 9 9H9%)Q9I9O9J9P9 )}9L:Q9H9`8`֍Q9ՍP9ԍO9 : 9`8ƅ;; Í;;ˆ`Í;;`;í;`lo :I9mK9O9J9m*}L9P9 :+K9Q9L9R9 : ; 9K9mQ9K9L9mR9L9 9 ;` 9 9H9%)I9mK9J9mL9 9Ld; ;` *H :+} ; a;h`L^1 2H D 9 9H90mK9ԥmL9 9L;hөLy' 2H D 9 9H908K9ԭL9ՐՆ ,}9L=L< 2 < ݰ-L< 2 < ްL< 2 ' # f% / Ly'L^1 2 ' # f% >= / Ly' 2 < =L< 2 < .}=L< 2 < r=L< 2 < >L<)8?Ք FکLfLܩ)@0))Ԡߢ ޠ (`$)e>i (ې`8)@0+b0})e)e ݦ `F ݢ> `ڠw @ݠ`D'RFuCP?b9dYd1}`@W2@?tS)%@@e8`0?i (۩E< ݢb? `ڢE< ڢK< ݢE< (ۢK2}< `ڢl ڥK< fƢK< ݥ"8@Ji@)j `@Hֽ 'Ӡ 3}Ԉh` 2 2 ' # ' # + h? Ly' 2 ' # b%Ly' 2Q<ԩQ<ֆLy' 2ԢֆթLy'4} 2Ly' 2 23 Hҩҩ 2hHԝҩ 2 H 2hheԝҩ Ly' .` 2 5}' Z$ % ' ' a@ # & ' ' # &Ly' Dک@H) @ "AhԬR< 0 L@-L@``;$ FڭR6}}# H%` 2 D 2&B :1 2NԽLսM֩Ly' 2 D 2 2ԝN՝L֝M%B :1Ly'_tone(243, 2); end; End?}; (* tm_b_play_trefoil *)BEGIN (* main_driver *) tm_a_program_initialization; while not eoj do tm_b_play_trefoil@};END. (* ma_driveӠ레0堈0A} # S'j # #j # # # ) u) ' # ) z& ' #͢FLM3 # # B}z&/ #> # z&Ԡ #j # # z& ' # #j # # u) $EGLYD # & ' ' 'C} # #uGL?o # # z&Р # # z&Ly' # S' ' ' # z& # ' #D} # ' ' # z&Р # ' # # ' ' # z&Р # ' # # ' ' # z& 'E} # # # # u) $HLYD # & ' #j # # u)E # ' # # ' # )F} ' # ) # ) & ' # z& ' Z$ ( $IL? # ' # ) ) k(LJ ' ' ' #G} # ' # z& ' ' # # ' # # f* u) ) z& ' ' # # ' # # f*H} ' #` # Z* ) u) )@ # ' # # Z* u) ) z& ' # ' # # ' # u) )I} $VJLYD # & ' ' ' ' ' ' ' # # ' & ' %(L1ILy' #? S' 'LJJ}D:CARDDECK.NARǢJ # Z$ (JLq2 'JL2JE # # z&4 #JE # # ) ) k(L]L ' # H%ȩK} '> \7E #> #jKL8E # ' ' ' ' # z&E # ' ' ' ' # z&E # L}' ' ' '< &E #E # # &JE # #4 # Z* b%LLLOE #JE # # # 'M}E # # &JE # %(L,K 'kLL3Ly' # S'JE #3 # z& #JE # # ) $) ) k(LM N}'JE # # # ) $LLD # z& 'OE # ' # # ' # &OE # ' # # 'O}OE #JE # # # ' # &OE #JE # # # ' ' # &JE # H(LLLy' # S'P} 'X # #ME # # ' # u) )KE # # )( #NE # # ' # u)LE # # ) u) ) & 'Q} # z& # ' # ) ) k(LOE # # ' # $NLYD # &E # ' ' ' 'R} ' ' # # ' & ' ' #( # ) & ' %(LXNLy' # S' 'X # #MES} # # ' # u) )KE # # )( #NE # # ' # u)LE # # ) ' # ) u) ) & ' ' T}# # ' # # #* u) ) # ) z& ' # z& ' # ' # ) ) k(LPE # #U} ' # $?PLYD # &E # ' ' O # & ' ' #( # ) & ' %(L PLy' #V} S'E # # &Ly' # S'E # # # #* b%L QE # # QL8LFQE #E # #W} &E #E # ' ' # &E # ' ' ' # &E # ' ' # & ' ' ' #X} # #* b%LQE # ' ' # & ' ' 'E # # &LER ' ' ' ' 'E # # &Y}E # ' ' ' ' ' # & ' ' 'E # # &Ly' # S' ' # b%LHSE # Z}' ' ' # & ' ' 'E # ' ' # & ' ' ' # # #* b%LS ' ' '[} # &LES ' ' ' ' ' # &LTE # ' ' ' # & ' ' 'E # ' ' # &\} ' ' ' # # #* b%LS ' ' ' # &LT ' ' ' ' ' # &E #]}E # ' ' # &E # ' 'E # # &E #E # # &Ly'@Y3@Cwr # S' ' #^} # ( * b%LT ' # ( & ' # # ( * b%LV ' # ( & ' # #_} # # ' # u) # # # # ' # u) ) # # # ' # )fT # #`} ( ) & ' # ' # * b%LV ' # # # # ' # u) # # #a} # ' # u) ) # # # ' # )fT # # ( ) & ' # ' # * b%LV ' 'b} # ' # ) &LV 'lT # # ' # ) ' # ) &LULy' # S' ' # # N* b%LnWc} # ' # # #$WL@L-W?'W # #>WLrTEWL @LNW?HW # #_WLrT ' H(LVLy'^|* \d}_+ =- # S' $WL? # b%LWqF # $WLB # z&LX # # # ' # # #* b%e}LXqF # # z&L[XqF #uW #x # # # ' # # ' # z&qF # # # #* b%f}L|XLWLX?X # #XLrTM # # z&Ly' # S' ' # ( # ( # ( #"F #g} ' # # ' ' ' # u)F # # ) (( #"F # ' # # ' ' ' # u)F # q}JBBLUCIE GAMBBLUCIE HLPBCARDDECKNARBRUN CTLBSHAMROCKGAMBSHAMROCKHLPBTREFOIL GAMBTREFOIL HLP# ) ( # ( (YLGLy' # S' # (tF # # (YLXrF # #3 # #* b%LYy # (r} # (YLVLa ' # z& # ' # ) ) k(LZF # ' # # ' ' # $) zs}&F # ' # # ' ' # $) z& ' %(L*Z ' # z& # ' # ) ) k(L\"t}F # ' # # ' ' ' # # $) f* b%L\ '"F # ' # # ' ' ' # z&u}F # ' # # ' ' ' # z&F # ' # # ' ' # # $) #* b%L\Fv} # ' # # ' ' ' # z& ' %(LZ"F #tF # # # ' ' ' # # Z*w}F #"F #tF # # # ' ' ' # # ' ' # # $) #* ) b%L\ ' # z&x} ' # # #* b%L3] ' # $) z&tF # # $) z& '= # z&Lm] '"F #tF # # #y} ' ' ' # z& ' #- # #* ' #= # #* ) b%L^ ' ' # ' #= # #* ) ' #- #z} #* ) z& ' # # f* b%L^ ' # z& ' # # Z* b%LB^ ' # z&F # {}' # # ' ' # # $) f* b%L]tF #F # ' # # ' ' # z& '* # z&|}tF #tF # # ' #+ # #* ) ' #* # #* ) z&tF # #F # ' # # ' ' # f* b}}%L_tF #F # ' # # ' ' # z&tF # #F # ' # # ' ' # Z* b%~}L`tF #F # ' # # ' ' # z&"F #tF # # # ' ' ' # # $) f* }b%L^ # ( # ( # ( #"F #tF # # # ' ' ' # u)F # # ) (( #}"F #tF # # # ' ' ' # u)F # # ) ( # ( (aLGLy' # S'XF # }' # # ' ' ' # # #*XF # ' # # ' ' ' #XF # ' # # ' }' ' # #* ) b%Lzb 'XF # ' # # ' # &XF # ' # # 'XF # ' #} # ' # &XF # ' # # ' ' # &Ly' # S' # (tF # # (bLXmF # #} b%Lb # (sF # # (ݢbLXoF #oF # #4 # ) &rF # # $) z& cL3 # #} z& # # z&ȩF # Z$ 6 7 7 # # z&Lcscore = }c # Z$ 6 7oF # # # 6 }7cLrLcLrL ' # z& # ' # ) ) k(Ld"F # ' # # ' ' ' # # 0}* b%Ltd"F # ' # # ' #E # # (qdLlRLc ' # # Z* b%LdaF # ' #} # 'E # # & ' %(LcJE # # z& ' # z& # ' # ) ) k(Lg '} # z& # ' # ) ) k(LeXF # ' # # 'OE #JE # # # ' # &JE #} %( ' %(LHe # ( # (֢eL&a # ( # (eL&a ' # z& # ' # ) }) k(LAg"F # ' # # ' #XF # ' # # ' #xfLP"F # ' # # ' '} ' ' ' #"F # ' # # ' ' ' # # ' # u) ) ("F # ' # # }' ' ' # (2gLM ' %(L!f"F # ' # # ' ' ' # z& ' %(Le"F # }# # ' #OE #3 # # ' #ԢgLP"F # # # ' ' ' ' ' #"F #} # # ' ' ' # ("F # # # ' ' ' # (rhLM"F # # # }' ' ' # z&tF # # z&mF # # z& # (ݢhLYLy' # S'hLJ # ( # (}iLuFo #" # z&nF # # z&Ģ # # # ' # z&Ģ # # # 'D} # z&Ģ # # # ' # z&Ģ # # # ' # z&ME # # z&KE #} # z&NE # # z&LE # # z& # # z& # # z&ȩF # Z$ 6 7 7} # # z&Ljby Joseph R. Chikoj # Z$ 6 7 7 # # z&Ljwith CLSN Pascalݢj # Z$ 6 7 7} # (kLrT # ( # ( # ( # ( # (Ldk||||||||FOUNDATIONS|||||Kk # Z$ (|kLG}kLPJE # # z& #JE # # ) ) k(LmJE # # # Z* b%L?laF #JE # # #} '> #lL8aF #JE # # # ' # &"F #JE # # # ' #rlL8"F }#JE # # # ' ' ' #JE # # # ) u) z&"F #JE # # # ' ' 'J}E # # # ) z&"F #JE # # # ' ' ' # z&"F #JE # # # ' ' }' # &"F #JE # # # ' ' ' # &JE # %(LkmF # # z&tF # # z&}oF # # & nLbLy' # S'mF # # z&sF #tF # # z& # ( # (B # ( #"}F #sF # # # ' ' ' # u)F # # ) (( #"F #sF # # # ' ' ' # }u)F # # ) ( # ( (oLGLy' # S' '"F #tF # # # ' ' ' ' '} ' ' # z&rF # %(oF #oF # # # ) & # # z& # # z&ȩoF # #} # 6aF # ' # # '"F #tF # # # ' ' ' ' ' # &"F #tF # }# # ' #E # # (pLlR"F #tF # # # ' ' ' # #"F #tF # # #} ' ' ' # u) ) ("F #tF # # # ' ' ' # ( # ( # (MqL O"F #tF} # # # ' ' ' H("F #tF # # # ' ' ' # # $) f* b%Lr"F #tF }# # # ' ' ' ' ' #"F #tF # # # ' ' ' # #"F #tF # # }# ' ' ' # u) ) ("F #tF # # # ' ' ' # (rLMaF # ' # # ' #}% # ( ' # (rLM"F #tF # # # ' ' ' # # Z* b%LGs* # (GsLYLy' }# S'"F #tF # # # ' ' ' # # ) # f* b%Ls # ( # (ɢsLVLy}"F #tF # # # ' ' ' ' ' ' ' # # )"F #sF # # # ' ' '} ' ' ' ' # 0* b%Lt # ( # (tLVLy"F #sF # # # ' #E # # (}tLlR"F #sF # # # ' ' ' # #"F #sF # # # ' ' ' # u) ) ("F} #sF # # # ' ' ' # ( # ( # (uL O"F #sF # # # ' ' ' H}("F #tF # # # ' #E # #uLP"F #tF # # # ' ' ' %("F #sF }# # # ' ' ' # # $) f* b%L[w"F #sF # # # ' ' ' ' ' #"F #s}F # # # ' ' ' # #"F #sF # # # ' ' ' # u) ) ("F #sF # #} # ' ' ' # ([wLM"F #tF # # # ' ' ' ' ' #"F #tF # # #} ' ' ' # #"F #tF # # # ' ' ' # u) ) ("F #tF # # # ' '} ' # (AxLM # (sF # # (_xLX # (tF # # (}xLXtF #sF # # z&mF # # z&"F }#tF # # # ' ' ' # # $) f* b%Ly # ( # ( # ( #"F #tF # #} # ' ' ' # u)F # # ) (( #"F #tF # # # ' ' ' # u)F # # ) (} # ( (yLGLy* # (ӢyLYLy' # S'"F #tF # # # ' ' ' # # Z* b%}LLzy # ( # (IzLVL{mF # # 6) b%L.{E #"F #tF # # # ' ' ' '} ' # &aF #E # ' ' # # ' ' ' #E # ' ' # ) # $) #* b%L${{LoL}{L.{+{LnL{tF # #sF # # #* b%L{mF # # z& # (tF # # ({LXL{{LNsLy' # S}'{LWqF # # |(+ (* (- (= (L{qF # # ({LYL| (L||LyL|}s (S (L@|=|LbL| (Lh|nF # # z&L| # ( # (|LVLy'|Lh}nF # # 6) b%L||L{L|l آ 1L||; Shamrock by Joseph R. Chiko June of 1991 with CLSN Pascal Version 1.0Shamrock i}s a cousin of La BelleLucie. However, both the possibilityof winning and losing have increased.Layout: The computer de}als 17 fansof three cards and one with 1 card.The actual layout drawn isrepresented by capital 'F' for 3 cardfans and sma}ll 'f' for the singlecard fan. The foundations arerepresented by the capital letters ofeach suit. F F F F F} S F F F F F H F F F F F C F F f DThe top cards in each fan are available f}or play on either thefoundation or another fan. Thefoundations are built up to kingsfrom aces. The fans can be builtdow}n regardless of suit. Only onecard can be played at a time. Fans which are removed are never replaced.A fan can never ha}ve more than threecards.Redeals: No redeals are permitted.Scoring: Five points are earned foreach card placed on th}e foundation.Computer play: Since any given playcan mean up to 4 cards are eligible for play two cursor moving schemes}are used. For foundations, simplyplace the cursor on the fan with thecard to be moved to its foundation.However, to mov}e a card to anotherfan a two step operation is used. When return is pressed and the cardcan not be moved to its foundation}the cursor is cloned. The currentcursor's color is changed to green.When the cursor is moved the clonedcursor is red and} remaining stationary. The moving cursor is blue. After placing the blue cursoron the desired target press retu}rn asecond time. If the play is legalthe cards are moved. If not a tonewill sound. After play takes placethe cursor is} returned to it place oforigin. Esc - terminate the program S - shuffle a new game arrows - move} cursor return - make play stick - move cursor fire - make playUA#9~P` ~#Յ` ~#ʆՆ` ~#` ~#ʆ`ӹ 'Ӡ` H% P#L# H% Z#L# H% i#L# H% }q#L# H% ~#L# H% ~#L# S#L#Ԇ l#L#ֆՅL#ԆL#ԩ  $өӹ` H%H h $`  }$`ӹ 'Ӡ ` H% 7$Ș $өӬ`Hh $H $Ɖ }$h`Ӥ 'ӤL$ӤL$`8刅剅 8儥児`L^1 H}ӹ 'h` b%֦ե` ^%ե` Hөӱh h&`ӹ 'Ӡ`  }%`ӹ 'ӬԈԎ`өӠ ӢȘ h&`HhHH ,&Ɖ .&hh }l&`өӤLB& 'ӤL\&`ee` b% + H%L% b% + H%L% b% + H%L#% f% H}%L)% % H%L% % H%L%HH +hh &Ɖ &`Ӥ 'ӤL&ֹ 'ӤL'ԈԎ` }@  fڰ` `ڰ` ڰ ` (۰`L^1L^1w'x' #8w'x' %`w'x'HH R% R%mw}'mx'hhleԊeթL# b% (,L#HH + <,hh ,ԦL' ( *L^1` b% +Ӥ 'Ӡ}L# H%H 'Ӡ8ih` H%H 'Ӡih` b% -0 #8`` b%L+ `ԥ}Մ <,0 b% <, *`Lb% f% ( +L# b% /L# % (L`$ b%L# b%L# b%L#HH %hhL$HH b%hhԦդ}L$ b% -L# b% +L# f% +L# b% ,L# b% ,L# -L)$ + %Ԧ -L)$ b% % -L)$ + &.L)$ + v,L# + 9'L# + ,L# + }?'L# + B-L# + -L# + P,L# + \,L# + (,L# + -'L# + <,L# + 3'L# + .L)$ + L.L`$ + .L)$ + U-L# + h-L# %} b% 5.L#` + <, *LE + <, *?8 + <,03 *.' + <,"0 + <,0 + <, *L#L# 3'` + *;}4 + *1* + *0'% + *0 + *0 + *L#L# ` + *;4 + *1* + *'}% + * + * + *L#L# +D0: +-0- +90 +9L#}L# b% +Lb% f% Lf% % +L% % +L%`օՅԅ` ``I`8ԅԩՅթօ`}IԥIեI`H Dh`eԥeեe`8ԥե` h,` o,`&&`Fff` :/ Dڢ h, }/ (,`ՅԅՅԢ&& eԥe``Fff`fff`` ,]օ +H8} ,A- / , , , <, (,L+-A- 0/hE +`L^1n%ԥ%ե%`ԥե`EԥEեE`}`` # {- , - v, + b%L<,`֥``H)hJJJ%'`.... -}.M..` `Y`9`H)hJJJ=%'``m ʈ`L^1򩀅}`0:`8` {.AG`8`&&`օՅԤ .80  .ԅ`8`Lؤ-.+`.} .$ .  ذ u/ . +`&&```ԕ``u`6*}`D<8@(i /- D/ /% / N/ ^/ N/ ^/ %/ 0/`8`H + /h +`H + u/h +` :/ D} /uԕةCLt_x := 0; delta_y := 20; const_y := 0; txtrow := 0; txtcol := 11; writeln(title); } txtcol := 11; writeln('by Joseph R. Chik 0 000000 2ƥ`e0`0`00x76X`}0x76X`h@ 1 1H ' h` S9 A# 06Q<70600`Q<0 VHQ<Ɲ0h0`0Q<}8hh8JE" R% R%8 A# # 0Q<Q<ʆȠ # 61 # Z$ 6 7 62 # }Z$ 6 7 6 6 7 0l Error # at #LS' ' #LH% ` 2i ĩ0i` ' Z$ % %2Ĉ`} ' 'ƅ #Lz& 20 00 0 42 ]2Ly'L^1 ' ' # H%` 2 2 2 2  2 2 2Ʃ 0 }%2 2ŝEĝDǝJB :1Ly'Ʃ 00 2"0 BL:1 2 2 2Ly'{a ` 2 2 *3ԢֆթLy' 2 2} 2 23ED)IJԝKB :1Ly'S:3m3 2Tm3 2UV`s HIHBhL:1 2}W 3L}y' 2 3Ly' 2 3 2=4 3Ly' 2 3 2 3ԢֆթLy' 2 3=4 2 JKB :1Ly' 2 2=4Ly'}ԐeԪʈ`L^1.)e԰% Խ8`ԍ`  ' Z$ % +} ' # ' # + Ԑ0`L^1 2 4 P4Ly' 2 4 4Ly' b% +L# f%)L# b% + v,L# f% } 9'L#L^1 b% -L# b% -L#Ǎ55 b%Hֽ ' 2՝EԝD5I5HǝB :1h`+ ' ' # H%Ʃ ' #} ' #LH% 2 5 k5 2I5H5 Ly'it 2 5 k5 Ly'ȄƠ Lk5 ݩL#HH b% 6hhL6HH f% 6hhL6L#H}H % ;6hhL6HH % ;6hhL6-m6 2DEHI BL:1`.L# H%666`ion6 6%60 86}H `$h  b6 %` 6 b% /R< b%ԥR< 6 f% BL 7 6 %ȅ 6Lb6ȅ 2L3 6 H%L 7 6 b% }Q7L 7FALSETRUEȄƠLk5ȩ0`ȅƪ0.0 2D7EHIB :1777` : boolean; ndx } : shortint; BEGIN (* sm_b2_make_play *) if fan[crs_pos]^.tis = 0 then Begin m777`}7e77` (8 . :8L#L^1 I8Lz& I8L& I8L& (8 . :8 #L&L^1 (877ɛ e7 #Lz& (8 ۠ȱɛ}m777 `$L& (8ɛȘL#Ƚ0L# 2L+ 2 ' ' 8 `: # &Ly' 2 8HH ' ' }# b%hh ;Ly'ard to be aөө@@<@ө`1<@ө`@é `H9 i`:өL}^1™H9`H9ˆ`ii8倥偰 9`:ө L^1H908K9M9L9N9`H9֭J9խI9ԭH9 H9K9L}9 9H9)H9I9eI9J9eJ9M9K9N9L9 K9 9`Ӎ: 9 9 9 9Ln: ::` 9 9H9%)Q9I9O9J9P9 }9L:Q9H9`8`֍Q9ՍP9ԍO9 : 9`8ƅ;; Í;;ˆ`Í;;`;í;` :I9mK9O9J9m}L9P9 :+K9Q9L9R9 : ; 9K9mQ9K9L9mR9L9 9 ;` 9 9H9%)I9mK9J9mL9 9Ld; ;` *H :} ; a;h`L^1 2H D 9 9H90mK9ԥmL9 9L;hөLy' 2H D 9 9H908K9ԭL9ՐՆ }9L=L< 2 < ݰ-L< 2 < ްL< 2 ' # f% / Ly'L^1 2 ' # f% >= / Ly' 2 < =L< 2 < }=L< 2 < r=L< 2 < >L<)8?Ք FکLfLܩ)@0))Ԡߢ ޠ (`$)e>i (ې`8)@0+b})e)e ݦ `F ݢ> `ڠw @ݠ`D'RFuCP?b9dYd}`@W2@?tS)%@@e8`0?i (۩E< ݢb? `ڢE< ڢK< ݢE< (ۢK}< `ڢl ڥK< fƢK< ݥ"8@Ji@)j `@Hֽ 'Ӡ }Ԉh` 2 2 ' # ' # + h? Ly' 2 ' # b%Ly' 2Q<ԩQ<ֆLy' 2ԢֆթLy'} 2Ly' 2 23 Hҩҩ 2hHԝҩ 2 H 2hheԝҩ Ly' .` 2 }' Z$ % ' ' a@ # & ' ' # &Ly' Dک@H) @ "AhԬR< 0 L@-L@``;$ FڭR} # z&Ԡ #j # # z& ' # #j # # u) $٢GLYD }# & ' ' ' # # HL?o # # z&Р # # z&Ly' # S' ' ' # z}& # ' # # ' ' # z&Р # ' # # ' ' # z&Р # ' # # }' ' # z& ' # # # # u) $ILYD # & ' #j # # u)E # ' #} # ' # ) ' # ) # ) & ' # z& ' Z$ ( $IL? # ' # ) ) k(L@K} ' ' ' # # ' # z& ' ' # # ' # # f* u) ) z& ' ' # }# ' # # f* ' #` # Z* ) u) )@ # ' # # Z* u) ) z& ' # ' #} # ' # u) ) $JLYD # & ' ' ' ' ' ' ' # # ' & ' %(LIL}y' #? S' 'LjKD:CARDDECK.NAR[K # Z$ (KLq2 'KL2JE # # z&4 #JE # # ) ) k}(LL ' # H%ȩ '> \7E #> #KL8E # ' ' ' ' # z&E # ' ' '} ' # z&E # ' ' ' '< &E #E # # &JE # #4 # Z* b%LLOE #JE} # # # 'E # # &JE # %(LK 'LL3Ly' # S'JE #3 # z& #JE #  }# ) $) ) k(L7N 'JE # # # ) $xMLD # z& 'OE # ' # # ' # &OE #!} ' # # 'OE #JE # # # ' # &OE #JE # # # ' ' # &JE # H"}(LCMLy' # S' 'X # #ME # # ' # u) )KE # # )( #NE # # ' # u)LE #}# # ) u) ) & ' # z& # ' # ) ) k(LOE # # ' # $OLYD # &E #$} ' ' ' ' ' ' # # ' & ' ' #( # ) & ' %(LNLy' # S'%} 'X # #ME # # ' # u) )KE # # )( #NE # # ' # u)LE # # ) ' # ) &}u) ) & ' ' # # ' # # #* u) ) # ) z& ' # z& ' # ' # ) ) k('}L+QE # # ' # $ӢPLYD # &E # ' 'O # & ' ' #( # ) & (}' %(LPLy' # S'E # # &Ly' # S'E # # # #* b%LQE # #QL8L)}QE #E # # &E #E # ' ' # &E # ' ' ' # &E # ' ' # &*} ' ' ' # # #* b%LRE # ' ' # & ' ' 'E # # &LR ' ' ' +}' 'E # # &E # ' ' ' ' ' # & ' ' 'E # # &Ly' # S' ' # ,}b%LSE # ' ' ' # & ' ' 'E # ' ' # & ' ' ' # # #* b%LS-} ' ' ' # &LS ' ' ' ' ' # <E # ' ' ' # & ' ' '.}E # ' ' # & ' ' ' # # #* b%LpT ' ' ' # < ' ' ' ' '/} # &E #E # ' ' # &E # ' 'E # # &E #E # # &Ly'@Y3@Cwr #0} S' ' # # ( * b%LIU ' # ( & ' # # ( * b%L[W ' # ( &1} ' # # # # ' # u) # # # # ' # u) ) # # #2} ' # )T # # ( ) & ' # ' # * b%L[W ' # # # # ' # u)3} # # # # ' # u) ) # # # ' # )T # # ( ) & ' # ' # * 4}b%L*W ' ' # ' # ) &LXW 'U # # ' # ) ' # ) &L#VLy' # S' ' #5} # N* b%LX # ' # # #WL@LW?W # #ҢWLU٢WL @LW?ܢW # #WLU6} ' H(LlWLy'^|* \_+ =- # S' $,XL? # b%LYXiF # $PXLB # z&L?Y # # #7} ' # # #* b%LXiF # # z&LXiF # X #x # # # ' # # ' # z&i8}F # # # #* b%LYLXLY?Y # #*YLUM # # z&Ly' # S' # ( # ( # (c9}F # # (eF # # ( # ( (YL:HG # #3 # #* b%LYy # ( # (YLbWLea ':} # z& # ' # ) ) k(LZF # ' # # ' ' # $) z&F # ' # ;}# ' ' # $) z& ' %(LZ ' # z& # ' # ) ) k(L\ F # ' # #<} ' ' ' # # f* b%L[ ' F # ' # # ' ' ' # z&F # ' # #=} ' ' ' # z&F # ' # # ' ' # # $) #* b%L[F # ' # # '>} ' ' # z& ' %(LZ F #G # # # ' ' ' # # #*F # F #G # #?} # ' ' ' # # ' ' # # $) #* ) b%L\ ' # z& ' # # #* b%L]@} ' # z&G # # $) z& '* # z&L] ' F #G # # # ' ' ' # z& ' A}# # #* b%L]G # H( '* # z& ' #- # #* ' #= # #* ) b%L^ ' ' # ' #B}= # #* ) ' #- # #* ) z& ' # # f* b%L(^ ' # z& ' # # Z* b%L[^ 'C} # z&F # ' # # ' ' # # $) f* b%L]G #F # ' # # 'D} ' # z& '* # z&G #G # # ' #+ # #* ) ' #* # #* ) z&G # #F # ' #E} # ' ' # f* b%L_G #F # ' # # ' ' # z&G # #F # ' # F}# ' ' # Z* b%L`G #F # ' # # ' ' # z& F #G # # # ' 'G} ' # # f* b%L^cF # # F #G # # # ' ' ' # u)F # # ) &eF H}#( # F #G # # # ' ' ' # u)F # # ) & # ( # ( # (cF # # (eI}F # # ( # ( (eaL:HLy' # S'}aL3 # # z& # # z&ȩF # Z$ 6 7J} 7 # # z&Laredeals scoreڢa # Z$ 6 7 7 # # z&ȩG # # # K}6 # # z&ȩgF # # # 6 ' # z& # ' # ) ) k(LcVF # ' #L} # ' #% # (VF # ' # # ' ' ' # (cL>N ' %(Lb ' # z& 'M} # z& ' # z& ' # # Z* b%L$f F # ' # # ' ' ' # # f* b%N}Lf ' # F # ' # # ' ' ' # u) # ) z& ' # ' # )$ # f* b%O}LOd ' %( ' # z& F # ' # # ' ' ' ' # z& F # ' # # ' P}' ' ' # z&E # F # ' # # ' ' ' # &JE # # z&E # # # 0*Q} b%LeE # ' ' # #JE # # u) ' # ) ( ' # (eL>NJE # %(E #E # R}' ' # &Le ' ' # ' # ) z& ' #$ # f* b%Lf ' %( ' # z& ' %S}(LOc # (3fLFYLy' # S'gF #gF # #4 # ) &G # # z&fLMfLMJE # #T} z& ' # z& # ' # ) ) k(Ldi F # ' # # ' ' ' # # 0* b%LUg U}F # ' # # ' #E # # (RgLSLf F # ' # # ' ' ' # z&JE # V}#4 # Z* b%LUiOE #JE # # # ' ' ' # # f* b%Lxh F # ' # # W}' #OE #JE # # # ' #EhLXQ F # ' # # ' ' ' %(LhVF #OE #JE X}# # # ' ' ' # # 'OE #JE # # # ' # &JE # %( F # ' # Y}# ' ' ' # # N*JE # #3 # f* ) b%Lg ' %(LfG # # z&iLla # (Z}iLFYLy' # S'iLGK # ( # (ƢiL GbF # # z&Ģ # # # ' # z&Ģ[} # # # 'D # z&Ģ # # # ' # z&Ģ # # # ' # \}z&ME # # z&KE # # z&NE # # z&LE # # z& # # z& # #]} z&ȩF # Z$ 6 7 7 # # z&LKkby Joseph R. Chiko8k # Z$ 6 7 7 # # z&Lkwith^} CLSN Pascalzk # Z$ 6 7 7 # (kLU # ( # ( # ( # ( # (Ll||||||||FOUNDATIONS_}|||||k # Z$ (lL:H lL2QJE # # z& #JE # # ) ) k(LmJE # # # Z* b%L`}lVF #JE # # # '> #lL8VF #JE # # # ' # & F #JE # # a}# ' #mL8 F #JE # # # ' ' ' # z& F #JE # # # ' ' b}' # & F #JE # # # ' ' ' # &JE # %(LPlgF # # &mL:fLy' c}# S' ' F #G # # # ' ' ' ' ' ' ' # z&G # %(gF #gF # #d} #G # # u) ) # ) & # # z& # # z&ȩgF # # # 6VF # ' e}# # ' F #G # # # ' ' ' ' ' # & F #G # # # ' #E # f}# (soLS F #G # # # ' ' ' H( # F #G # # # ' ' ' # u) g}F #G # # # ' ' ' # ) ( F #G # # # ' ' ' # ( # ( # h}(ipLO F #G # # # ' ' ' # # f* b%Lq F #G # # # ' ' ' i}' ' # # F #G # # # ' ' ' # # ) u) F #G # # # ' 'j} ' # ) ( F #G # # # ' ' ' # (qL>NVF # ' # # ' #% # ( 'k} # (qL>N F #G # # # ' ' ' # # f* b%Ls F #G # # # ' 'l} ' ' ' ' ' # ' # #* F #G # # # ' ' ' ' ' ' ' #VF # ' m}# # ' ' ' # # ) #* ) b%L sLFnLs* # (sLFYLy' # S' F #G # # #n} ' ' ' # # #* b%Ls # ( # (sLbWLvE # F #G # # # ' ' o}' ' ' # &VF #E # ' ' # # ' ' ' #E # ' ' # ) # $) #* b%LTp}tQtLmLv ' # z& ' # z& F # ' # # ' ' ' # # f* b%Lu F #q} ' # # ' ' ' ' ' ' ' #E # ' ' # #* F # ' # # ' ' ' 'r} ' ' ' #E # ' ' # # ) #* ) b%Lu ' # z&Lu ' %(Lu ' %( ' #s} ' # # f* ) b%Lvt ' # 6) b%Lv # ( # (vLbWLv F # ' # # 't} #E # # (VvLS F # ' # # ' ' ' H( F #G # # # ' #E # #u}vLXQ F #G # # # ' ' ' %(vLlaLy' # S'JE # ' # z& #JE # # )v} $) ) k(L1x 'JE # # # ) $rwLD # z& 'jF # ' # # ' # &jF # w}' # # 'jF #JE # # # ' # &jF #JE # # # ' ' # &JE # H(L=wx}Ly' # S'G # H(G # # # Z* b%L|xyxL:fL| ' # $) z& ' # z& #y} ' # ) $) ) k(Ly F # ' # # ' ' ' # # 0* b%Ly ' %(jF # ' z}# # ' F # ' # # ' ' ' ' ' # & F # ' # # ' #E # # ({}yLSLx F # ' # # ' ' ' # z& ' H(Lx ' # # $) #* b%L%z"zL:fL||} ' # (9zLv ' # (MzLv ' # z&G # # # #* b%L{ ' # # ) # }}#* b%LE{ F # ' # # ' #jF # ' # # ' #zLXQ F # ' # # ' ~}' ' %( ' H( ' %( F # ' # # ' #jF # ' # # ' #{LXQ F }# ' # # ' ' ' %( ' H( ' %( ' # # $) f* b%L| F # ' # #} ' #jF # ' # # ' #N|LXQ F # ' # # ' ' ' %( ' H( F #} ' # # ' ' ' # # N* ' # # Z* ) b%L{ ' %(L{|LlaLy' # S'}L}XiF # # |(+ (* (- (= (Ll}iF # # (i}LFYL} (L}}L&sL}r} (R (L}}L8xL} (L}bF # # z&L} # ( # (}LbWLy'~LibF }# # 6) b%L)~&~L}L~l آ 1L},~5 Trefoil by Joseph R. Chiko June of 1991 with CLSN Pascal Version 1.0This fasci}nating game is based onLa Belle Lucie. The only differenceis that the aces are placed on thefoundation as the cards are d}ealt.Layout: The computer deals 16 fansof three cards each. The actuallayout drawn is represented bycapital 'F' for e}ach fan. Thefoundations are represented by thecapital letters of each suit. F F F F F S F F F F} F H F F F F F C F DThe top cards in each fan are available for play on either thef}oundation or another fan. Thefoundations are built up to kingsfrom aces. The fans can be builtdown within suit. Only on}e card can be played at a time. Fans which are removed are never replaced. Redeals: Two redeals are permitted.On th}e second redeal an extra new iscreated by the computer. Normally,this would be done manually, however,by doing it this wa}y is cheaper interms of memory used by the programand it also places an added elementof chance into this game. Scoring}: Five points are earned foreach card placed on the foundationafter the initial deal. Three areearned on the first redea}l and oneon the second. Computer play: The cursor is a single arrow. Place the arrow on thefan against which play is} to occur.The computer will first attempt tomove the card to the foundation. Ifthis can not be done, it will then search} all the fans for the appropriate card and if availablemove it to the fan the arrow is resting on. The keyboard arrows an}dreturn or the joystick can be usedto move the cursor. The remaining commands are input viathe keyboard. The are list}ed below: Esc - terminate the program R - redeal arrows - move cursor return - make play } stick - move cursor fire - make play1