@) U$%  g0} ]$)$$Ω `%@$e$$%`  R@W1    *  .`GH`N ,  LYLLL ǭ` L Թ< HH   ? 0,(h 0: < =;Ң79x 608:23%`hihiHHȱȱ`8Hh` &E…¦ &`L&` /&}"Ff ee&8LP& /&_Wń児0 &&86.ń児8}儅充FfFf8LP&p B V8l ' Vhhl'HHJJJJhh`hhl' `Hh`Hh}` B'IHiDiE B "'HI B "'`ԆՄ ؠ0ȑ8)ȑ`HhL'H Z' 'h}Lf' S'L'L' S'Lf'H` B VhKI JS:DEB "'`UVT`% ҩҥ)) ҥ` }`)x`)`ƢŢ8*8 %Ţ`` (ȥ`ȱ`Ƣ }ƣ8`HhL(Ƥƥ8`<>AZ =1>0 THEN 2d ;okayr$ 4 RETURN(kard) } ;done!r FI4 FIr) ELSEIF suit=club OR suit=dia4 THENqr chk=Chk_CD(rank,suit)O }r"  0 THEN  "  *  * ne!q'*v2r.*L<*fff }*"""""*(**"* **" "*"""** *"**" *""**"*""*""**""**jj}j((QDQDQDQD} +* *"""""*""* }* ** """"""""** *ZZVVVZZꪾjjZZj::::::::VUUU}}UU}Uppppp𰰰𰰰}UUpppppp<~~𪫯}?::::5575=575?=575ppp5575=57?EEEU}UU}UU:::::::?x`x`~<~~<0~0 ~ } (  } ~x|nf8x8}`L@.H ԩh@`LO.H ԭЩ h@`mLh.b.a.d.c.a..b...c..d.L.mc.d.L.`rL..͡.L.8}. : .( e..L. X(`k_L... .(.. e. X(`L. '(L/ hit trigger/  ' .M l(L"/} '(LJ/ /> '`ILX/T/T/T/Lm/T/T/`ODlL/*/z ( ) )L/ ) )}~/ )L/w/ ) )L?0 )z/t/ )iz/v/v/t/L90v/ )z/ )it/z/ )~/u/ )i~/ )~/ )i}u/~/w/ )L/w/IL/ ) )L#2 )~/u/ ) \&e '(u/L0L0 you 0 ' .L1}u/IL0L0plr $ 0 'L1u/IL0L0plr % 0֩ 'L1u/IL1L0plr & 0 'L1 1y/ x/u/*y/x}/ 'x/iy/it/8t/ t/x/iy/it/"s/ u/*L1x/iy/it/8t/ t/x/iy/it/}!s/cu/*L1x/iy/it/8t/ t/x/iy/it/ s/ ) \&es/ '(y/x/ ' )}LN0` R``L72 %$2,2-2LO2_2|2J m,2*(m-2Lu2_3|2ȑp m,2*(m-2L2_4|2} m,2*(m-2L2_5|2ȑ m,2*(m-2L2_6|2ȑ߈ m,2*(m-2L 3_7|3ȑ m,}2*(m-2L.3_8|3ȑ) m,2*(m-2LS3_9|3ȑN m,2*(m-2Lx3_10|3ȑs m,2*(m-2L }3_J|3ȑ m,2*(m-2L3_Q|3ȑ m,2*(m-2L3_K|3ȑ∑ m,2*(m-2L 4_A|4ȑ!}0212L(4_[|4ȑ# m02*(m12LM4;:4ȑH m02*(m12Lr4_\|4ȑm m02*(m12L"}4<=4ȑ m02*(m12L4_`]|4ȑ m02*(m12L4>-4ȑ܈ m02*(m12L5_{^|5ȑ#} m02*(m12L+5/.5ȑ& $2 &'2 '2 \&8$2宍(2'2 \&'2&2%2 '(-*,*$} '(2 m,2*(m-2+2*2&2i%2 '(+2*2 ')2)2L06'2m)2 m02*(m12+2*2&%}2m)2i%2 '(+2*2 ')2L5`L761616 \&263636L~63626 '(Lo6 6j '36LR616&}L6816)IL626 '(L66 '3636L63626 '(L6|6ѩ '36L626 '(L66 '16 L'}716i)IL726i '(L2770 '3636Lt726i36 '(Le7_7c '36L@726i(} '(L77 '`(7)=L77 ͙7L77͛7L77)77 \&7 42 e.7L77L7éP e.)}`inL8M c(77IL<8;)<) ;)<)0L98<);)Lp87I Lp88;);)<)<);)<)0Lp8<) ;) *}<);) \&&)eТ e. l(L8;))77IL87`cL88 ) )L9 ))8 )i)88ͽ8+}L98 )) )i8)8 )L88IL8`bL/9(9 (9 \&qe)e ) ( 8'),}) (* () ) )L9 ))IL9 )) &)9 )9 \&8 ))宍*9)9) ))M)L-}9') )L9 ) )L9: )) )})8 宮 )* ))L3:) )L:` L>::: :: \&qe)e) .}ᦡ (`FIaL: %y::::: :L;:)~:~:L; ~: &}: }: \&8~:/}|:y:M)L;}:M{:L;|:Mz:L;~:`L;y:M)L7;}:M{:L4;~:`L;y:M)L|;}:M{:Ly;|:z:Ly;:|::0Ly0};~:::|::L;y:M)L;}:M{:L;z:|:L;~:`L;y:M)L;}:M{:L;:|::0L;~:::|:::L:1}:~:~:`2`L;;;; ;L'<;)M;L!<;);L<;;););M)LH<)) ; &;;M)2}Lk<"););!)=)!);L<; ;L<;)M;L<; 46;);L< *m; *i*m;*i3}; 42 .: e.`DO!02 DO_L= %<<< < \&e)e = (< 4}<L=<)IL= <) &<<`<`^L>>")L)>`>L8>`)*L_>))IL_>')I6}L_>`)>) => >L>>i`)>) =>>L>>L>>i``L>>>>*L>))I7} )*L>`>>) =>>Lp?>*L?>i`Lm?))ILO?')ILG?)*LD?>i`LL?`Lm?8})*Lh?>i`Lm?`L?>*L?>i`L?>*L?>i`>>) =>>L?>*L?>i`9}))IL@')IL?>*L?>i`L@>*L@>L@>i`L(@>i``OL2@-@-@M)LH@`L@:})-@L@))L@')IL@))L~@-@i`L@`L@)*L@-@i`L@`-@)LA))IL@')I;}L@))L@-@i`L@)* L@-@i`LA)*LA-@i`)-@) =.@.@L4A-@i`LTA.@LTA)<}*LTA-@i`)-@) =.@.@LA)*LA`LA)*LA-@i`LA`LA.@LA)*LA-@i=}`LA.@LA-@i``)=SuitTLAAAAA A \&AAi AAALnBA)ALhBAA)>}LhBAA)A0LhBAA)AAAALB *mA *i8*mA*i8 '(LB?B '?} *mA *ii*mA*i8 '(LB?B ' *mA *i8*mA*ii@} '(LFC?CD ' *mA *ii*mA*ii '(LC?C 'A`LCCC͡CA}LCC) LCC)LCC)M)LCC)i C)CLC`rd,npLCC *mC *i8*mC*iiB} '(CLdDLND your dealDD ' e. .LzDLqD dealer Dg '4) (4)q () () (C}!)") u(CCiC)CDD)L)E )3 )L#E4 u(C )=)CC=)CCC=)C )=) )LD)LDD} ) )LECCCLpEC .(< e.8C CCLBE X(U e. )L.E )) )LECCLE E}C \&m)i )=)q) )CLE)LE )3 )LF . e. )LE) q) ( *mC *iF}8*mC*ii '(L`F FV '`DY(np)LsFjFkF)ILFmFmFLFmF)LFmFG}) :kFkFM)LFmF) :kFkF`mFLF u(mFoFoFLGmF U/mFmF)ILGmF) :kF H}mF \&8kF宍lFnFmFM)LkG")ILhGlF >nFnFLhGkF`LGmFM) mFM)LGmFlF >nFnFLGkF`LI}GmFM)LGlF /@nFnFLGkF`oFLFmFmF)LGmF U/mFmF)LGoFoFL$HoF)LHoF)mF)LHJ}oFmFoFLGoFoFL ImF)LHmFM) mFM)LHmF) :kF mF \&8kF宍lFnFmFlF >nFnFK}LHkF`LHmFM)LH)) :kF ) \&8kF宍lFnFlF /@nFnFLHkF`mF U/mFoFL)HoFL}oFLJmF)LImF) :kF mF \&8kF宍lFnFmFM)LI")ILIlF >nFlFLInFLIkF`M}LImFM) mFM)LImFlF >nFnFLIkF`LImFM)LIlF /@nFnFLIkFI1LIkF`mF U/mFoFLImFkN}FmF U/mFmFM)L7J")L7JmF U/mFmF)LmJmF) :kFkFM)LmJmF) :kFkFILJkF`QQINO}CLLJ~J}J ~J &J J \&8~J宍J J \&JJi J#)JJJ̓JLKKJ)JP}JILEK#)JͅJLEKJ͇JLEKJ͇JJ0LEKJJJJLJ J \&8J宍JJ)L[NJM)LK)Q}J) :JJILKJ`LK)) :JJ`L[NJM)LM))L L))) :JJILKJ`L L)) :R}JJ`#)ILJJL!NJ`L[NJJ) :JJILENJ`L[NJ) :JJ`))) :JJIW}L|NJ`))LN))) :JJILNJ`))LN1)LN)) :JLN)) :JJ` u(X}JJ̓JLQOJ U/JJ)LKO1)L5OJ) :JJ`J) :JJ`JLNJ` TOL]OYO 7WOY} WO &XO)ILOYOLOXOM)LO")LOYOLOYOYOLbOWO`bLLOOOO)LP 7O Z}O &OOMOLOOLP 7OOOLOO`NCLL&P P!P!PLSP!P)ILMP!P P!PL0P PLP P)[} P!P"P"PLP!P U/!P!P)"PLpP!P!PLP!P*!P})!P*!PLP`ard,dLP %P P &PP\} ͿPLBQP)MPLV;V;VLY) U/)) ,9)LY '(LtY your play Yh ' .>V O@V '(LY Y 'Ln}Y?V) J@V)@V ;) ;:;VL9Y>V A))M-)LY1)LY1))-)) C@ e.@ e.;V;VLZBVBVLo}Z *m;V *i8*m;V*i8mBV '(LzZ Zs 'BVL!Z;VLZ.ԩ (8* 7* (РЩ (r}Щ (%) (./* ( '(L[HI EF BC RS TU VW[ϩ ' '(L\ s c o r e s[ ' /`L\Щ s}( ' (L3\ \1 '/ (0i 1i (0i 1i (0i1it} (8 (8 (2 ( ( ( '(L\ \ ' '(L]u}]  ' '(L=] version 1.1]0 ' '(Ln]Ԉ End of Game Score]R '  '(L]Ԉ To Playv}] '  '(L]Έ To Exit to DOS] ' '(L]=> ]ש '() 'L] <=] '"/ (ILM^(w})i ()()L'^d() '(() 'L=^ ^; '' e.IL]^ '`IL^ Z GV / '(L^ ^| x}'ЭN.M.0i1i ( '(L^GAME OVER. Hit Ҡ^Ʃ 'L^ to play again.^ 'u0 e. y} e.M l(L _L\`L(_j (8$_$_j ( '$_$)$)ԩ ($_ \&9):):)9) (Р./ z}(o (Щ (Щ (Щ (Щ (9)i^:)i (9)i:)i4 (9)i {}:)i4 ($_i%)%) \&7)8);*:*8)7) ( )3 )L~` ) )=) )Le` \``|}%_4 ($_i%)%) \&7)8);*:*8)7) ( )3 )L~` ) )=) )Le` \``=== HEARTS ===Version 1.1SharewareBy Ray Borsick7 April 1992=== REQUIREMENTS ===Atari XL/XE/XEGS (48K)Joystick~}=== GETTING STARTED ===HEARTS is an Atari 8-bit adaptation of the popular card game. To run the program, boot DOS with Bas}ic disabled. Load the program using DOS Option L. The game will load and run automatically. HEARTS11.OBJ may also be renamed }AUTORUN.SYS to boot automatically upon startup.=== HOW TO PLAY ===Use the SELECT key to determine the end-of-game score.} Press START to begin the game.Your cards are displayed along the bottom of the screen, with Players 1, 2, and 3 at the 9, }12, and 3 o'clock positions, respectively.The object of HEARTS is to score as FEW points as possible. A hand consists of 13} tricks. A dealer is chosen randomly at the beginning of the game, with the deal passed clockwise from that point. Any card m}ay be led, except hearts cannot be led until the suit is broken (someone plays a heart during a trick).Players must follow }suit, however, if a player does not have the suit led, any other card may be played. High card of the suit led takes the tric}k and that player then must lead the next trick.In this version, you may lead the Queen of Spades at any time. Remember, ho}wever, that the Queen is NOT considered a heart.A hand begins with the cards shuffled and dealt. Your initial hand is displ}ayed along the bottom of the screen. At this point, you must select three cards which will be passed to the player on your ri}ght. Use the joystick and trigger to choose the cards. Pressing the [ESC] key at any time will allow you to begin again.Pre}ss START when you are satisfied with your selections.Your Atari opponents then make their selections and the cards are pass}ed. The three cards you receive from Player 1 will be displayed separately, before they are added to your hand.Play begins }with the player to the left of the dealer.After all cards have been played, the tricks taken by each player are tallied. He}arts taken count 1 point each and the Queen of Spades counts 13 points. Usually, the points are added to the appropriate play}er's score, except if a player takes all 26 points, his score for that hand is zero and the other 3 players are each assesed }26 points.The hands continue until a player meets or exceeds the SELECTed end-of-game score. The player with the fewest poi}nts wins the game.=== VERSION 1.1 NOTES ===This version of Hearts fixes a bug in the Atari Player's logic. Under a parti}cular set of circumstances -two suited, spades and hearts- an Atari player would lead a heart, even though hearts had not bee}n broken.The Atari players are now more likely to try to 'draw out' the Queen of Spades, so be forewarned.I've also added} a 'Quit to DOS' option at the title screen which exits the program with an RTS ($60) command.=== HINTS AND TIPS ===Be c}autious about taking the lead. Many times, especially towards the end of a hand, you'll wind up with the lead and discover th}at there is no way to relinquish it. This usually results in having to take many points.When following, consider throwing t}he King or Ace of Spades instead of a Heart when you don't have the suit that was led. This tactic may greatly reduce your ch}ance of getting the Queen of Spades dumped on you.Your Atari opponents play a pretty good game of Hearts and sometimes one }of them will attempt to take all the points. Remember that it may be better for you to take a point or two (or 13!) than to b}e assessed all 26!It may not seem like it sometimes, but I assure you that your three Atari opponents do not gang up on you}. That is, of course, provided you're not winning...=== OTHER NOTES ===A text area (underneath the scores) will prompt y}ou for input.Scores are sorted automatically from low to high at the end of each hand, making it easier to determine which }player currently is winning.This game is written in Action! The Action! language is (c) ICD, Inc.This program is Sharewar}e. Feel free to copy this program and pass it among your friends. If you enjoy the program, I ask that you send a small donat}ion along to help the author justify to his wife the time spent on "that &%@#! program!". All contributors of $10 (or more!?)} will receive a disk full of other Basic, Action! and Turbo Basic programs written by yours truly - and my undying gratitude!}If you have any questions or comments, you may leave E-Mail to CORPORAL AGARN (my handle) on the Moose BBS (716) 381-5139. }(Call the Moose anyway - it's a darn good BBS! - one of a dwindling number of 8-bit board still running.)Thanks to Dave and} Frank for their help.Enjoy !!Ray Borsick31 Parsons StreetNorwalk, OH 448577 April 1992nning.)Thanks to Dave andb44  4, 8 " ,P ҥ D X0ɀ7Ъ`# 21 4 2 r L1 ) 000} F 0 1 2 r 4 16` H < A CE0Z& 'L\䩏,,09$806LpLe1i1`}00) ߍҩҭҍ ) `H) 000ҩh `ҍ ҩ(ҩҩ`23`@1` } H h `1E1`@` $S    L 51 8F5j41*F8 H)} 1h  = 1I-Ӎө15)? @5,02424 2H h4 )IL]f | 2 p $% C9} C$%% ޠ0 %%$%15 DDЙ ` ( +}*)L *O(   | % i L | ) | %  i !" ! 2_('0v  T } 0   .B  % a ) C  S  [L>L | !'(}` S %&L08` I")B 5JJT   'y(y  L> tL }*` ("X%'8  HH`43{L #+) 0 +?8@  *!"ʎ 1 } F GG |L+0  LE0 *$  $ #! Eʈ E }ʽ E7EȩE, 0EȩE  ί`dJ ? ` + 7   % [C} ?C$ )(  [  CL °ELB,   [   '(',   L } % i '( x E` + L ,C  )C  방 ) ` |0?M$L# t}M&L%  N ! | |!N#L$ML 6  g) 0=I8j O Y }$ S  ) `I #'I0_G/IɛI0 I  L ) }ECȱE, CqECȊqEC  G LLP SROTCES EERF H0 C ) *,-,?, Gh)H<, GȽG }h>, GȄI  +d   GI`DC8C D 0IGIDC`$0Z:ȩ$.} ȩ "* ??/ɛ   Ýн .` | T p T  ih  }=H*"" h0Ch h0!)C)и?ٞЪ   T 08.`0 _  t0!T :&}GȽ%GȽ!G tL'( %&!:\8$#H hcLgД%&8`  u0!:G)&G)&ȱG%}ȱGH)h0})Hh `"!" |%#&$`8$ iiSE` dEE 8$EF h `}0(`( dEFEi ( ɃL |@ #H)h$7pH#^$ji "0 "hEEdEiE}ȱEiE`h`hQEEd ) E8EȱEE` 8E pQEEH.8 %%*&h%%  &` |.莇"}! s L!9 !0*&"  99 |! !EF :  .}"  |""GH`ʎc` .: c, +1    8 m}I0 `#$  U ɬ%X LJ p.(`SYS SODhChDC.C/`0." "} |}f   $+%RL`) %f    ~$ f H ^h0  }v0T B 509ͬ-ͭ(  510DE C,,HH0  bhh`ELL}D Й8HIHI V0,f0 LSlD:AUTORUN.SYS}  V` I x} D5FCE߈CECEDFF! I өύ @ԍ`ϩ q)` Ff } }CE ϼ  "4  ` L)#j|DFqCqE` 3  Ҭ@@@ό@(` } } ](`E:D1:SDUP.SYSHILV L n&  x` i B L2JBLVDE`ss}ssdex ;#@D:*.RAM,5:*AUX.SYS, DOS SYS}"15#W+'6'&''1,&-/,+',666666N666ppF  @  إ  Fʎ0ʎ##0 }!R%SٍH[% 2 s$,0EPL17 2 @ 21ɛDLw9'8A0Ũ# ""l`H 1h }!:! i1N 2 f1f /":*."" 2 n1 K1"Nf̈́ 2"8"L')" }DL2)9"`CEz DCH }hC ]DD C ?C; G%4C @ G%(C G%z lC G }% C G%C ]C$ Z0V  5!5 & 2 s$ 1 :%! i1L (*.RAM/N,5:*/N ҆@  @ (`}SUPERD }OS V4.4 (C) 1988 PAUL NICHOLLSA.DIRECTORY|F.LOCK FILE|K.BIN. SAVE B.CARTRIDGE|G.UNLOCK |L.BIN. LOAD C.COPY FILE|H.WRITE DO }S|M.GO ADDRESSD.DELETE |I.FORMAT |N.RESTOREE.RENAME |J.DUP. DISK|O.VERIFY=ON !h??R?@@"h??Z?D@!h??R?DA@ SEDXR }& 4&"54&"H 21, ,1hi`h`JK 5 ` 2  2191!55 K1 2  210V&55 Z }&H 2I ,1Jh &? 2H f1 S1 K1 ' 2 " 2# 2$H f1 K1h 2L# 2 f1 K1D 2L#! }fNѢ B 5 :1!5 '! B" 5!0V"""0 +! #50.#5 !#5 0?/5 2 } ,1Э"" 2 ^Lu' ^L#Ġ L2 2!0?2 a1""D /L(""" 'BϠ"  5"0 : }iL#"""" i +0", +"  5 " . 5Ƚ"  5 J* i/ 5  n* 2"H"H" } v*"h"h""DA (R *+!5 5L 2 v* K1 + *+ i/ *" *K n*" *" *0 K,"p }*" *""H"I V䌾"L2 e"!ɛ !,"P- "*," ( "" 2 fA ,"0" *" *" }HHIIH 2,"P i"0,"P" bL/ /* LT)" i" i 2,"-P /*L(( 2<296 2<0ƌ 0," } bL#fN 2! ,1 ` 2!-` 2L(("L2"!ɛ *" / *" *!!Ln1!:` f }A "L2 B""LC"fL@ ""`S KE` 2$ bL# #5`1:!5`"1:!5L }*ӍӬ(` ?+Z ?+L+) 25 ,1! +L;# 2B5 ,1( +_ \b \ 2 }&L# 2B( ) 0 3 K1DED E F  'SL@8j i WL tItP %,1&2&L;#N F` 2*+ }, 21,580" K1 2*+ ,1L# 2* 21H 2*#+Ӡ,  2 ^hYҢ (," 2"15 }:~00H;#κ0L@0D2:DOS.SYS 2 / f1 i/&fNIH K1h L2 2./ bL# 2! 1, 2H02?3 0 ~3 }" ~3" 0!5 3 " " " " " 3 ," 229 ,1" K1 i/L#"" 2<=, 21"E!F }Ef"0 /* /"Q/M/ͯ " "15,f0 .I"+I V/L*. V/1E . }m"m" ͮ ͯt  8fL-f,"0 "*,"9" H H"".. Z& & 2h h  }E!F" /"L+L-fL#""8" m#ۭ   2 2.1( 2 ,1(`" H  }*"*"h ʩL2" # $Lx 2467 ,1$DE1"586 2L# }"!"""`!* ? ɛ,` 2>3?AB00 f1fH" 3 38~0L#0& 3 } Μ0 3 κ0 K1fhAf 2 BIH,f H  2:HIHI   }0⪍ 00ઍ 0 bL#莮 L5 1B! ( 5ν"`' }!"""` 21Y` =1L;#`%H$H`,"L#"""L1" 0 2"" "!,;ɛ7!,"ɛ:ݛ!1 }!"!A"D""ݙ!"Dȩ:ȩf!ɛ,,(/+."" 2Dν"!,ɛ""`!f轙 }!hhȄDH)3CHhCICH)C"h "ȩ" 2Dh 2DeiHH`3H } BDEI V5`m"DiE` JB V 2 b 2CL#Ԇ ؠH)5h 5`"" }""!"ɛ<,8#<800& 0 8 0."." """ 2Eν"`""`򩙅! ذ 3 ٰץԦ`,"0!"! }D800 H 3h`"!ɛ,"`DUDIRECTORSEARCSPELISFILSELECITEORETURWHICDRIVTFORMA"YDIS }DENSIT(S,E,D,RENAMOLNAMNEUNLOCLOCNODELETSKEWERESTORCOPLONINOPTIOALLOWENCARTRIDGAADDRESWRITDO }INBALOASOURCSECTODESSTART,ENIF OBASIDESTROPROGRAAREINATIOENOUG ROORETRINSERBOTSAV()INIRUERROIN }VALIPARAMETEҠGIV2170 D5:h??R?@@ ;#PROGRAAREINATIOENOUG ROORETRINSERBOTSAV()INIRUERROIN 6ByAUTORUN SYSB&}HEARTS11DOCB$DOS SYSB&SDUP SYS