Y"0$'8)_'$!. x!a")Gp5CU sd})  -   $     " # !  0Q  N  *)   Yn  @J 5  '%@ Q (@ Q @ Q @ Q @ Q @ Q@ Q@  Q @  Q @  Q @  Q @  Q$ @ Qc% Q R @QQ QQ 3h ; %9X p3@% @% @% @% @% @% @% @% Q~Q aQ Q aQ Q a #NQQ $NaQnQ a+Q Q a;Q Q aK" #NQQ I$Nb@% @% @% @% @% @% @% @% aYQQ ahQ RQ axQ Q a#NQQ [$NaQQ aQ V Q daQ Q ma< #N@ Q@  Q Q v$Nv3 h( f 3h(  3h(  3h( 3@ s( jh(  as( j.h(   h  &h } /h 8 @h   3q}h)h3##D.!MQ C Q  QQ V% Q E f h@ !Q_ aQ p Q @QQ QQ Q) Q % Q / (  ( @% Q G@QT' Q tQP ' q QwQ Q Qh Q d 2@@& #@& @& a3h _  j  t X@3h L  8<@3h _ U Bd PQ@ @(Q Q B d@ ! Q Q :Q  dK Qa+ Q93h  3h N X da QY 2a & L O3  0/ ' c,( '  Q 3h '   Qq2 #3$3 /"E/ aQ $/ bQ4Q~Qq2$3p/ Q3@h   @h g q { #cd d $#$& #dd& d(* & + *Xd& + (-,"dQ*Qa&    d + @& Q & &*@ Q %#& &  Q @Q' qQBQ3#@ #h @@3h a@ @3h n@ @3h {@ 3# jh 3hZQp _ w@!@3h [@@3h O@3h3hv"s@  #@Q U@3d3j3hg@   #@Q ^@3d3j3hn @   #@ Q :@  3d3j 3hu  a  #@ Q L@ 3d3j3h| C3h 8 uqv|wf 3"  P2  3h  3# h  s&j h3 h     P3 @3@3@3Q  QQ @Q ( Q 4QQQ f 3 f  P  Q -GP]] 3@Q 'Q&@ &'@@ $Q 5'Q "2M'rG#@@@L Q #@Q A'QJ# Q "  & e Й$3& (W& 0& '#3 3 h #ALh2" z"LhX- \']] dh- $A3& & h $Be I4 Q & & 4 "4 Q &  % #q r Z#3$3#3 #hHLT$b$s$h2$%$=$$3 $#h$@"# """ "hh#"# h"##$sJjY#Q&h.1# $z !#A3y/h $A "-  Q Q G  s}R- [ckT3h-iqr 1#0 S#, Szp0 , 3qr 3A3#Ax|y@ Q @Q  Eh$A ((S(Xh2.dhh   h  eљ e @a  *X* Q{  *Xff 2      Q3h  !:"V! Q K Q [ U X  +n 3dQT@dQu dQdQ dQuh.  #%#QCQh.  "# QeQIh.  "1 S QQZh.  1# #.#3h  %$3Q Qkh.  #s# Q_ Q 3h.  $d #A  ! Q 1 Q  QY3*h %!'! "Q Q j$Q$3*h %%#$&%Q %Q %T%Q7%3 N*h &%$%%r%NQ %3Q H%  e ЙQ^ Q} @! "@ h @@ h {@@ h ^@h " hA@ " @ @  @"h   @ @"h ;  Z @ @"h   z @ @"#h   !- h Q Q a.N @ @ @ h =  @  h    Q Q Q #| h % + Q ' Q   Q33$ 3333#e3 h 1Q g  F d  QH   a   ( 2 pa " X  " X   " X  ya d0 4 7 <7 < > C H(2  0f <**&X|QQQ fl$ 4  C r  (l "13 32  (*1# # 3$     L M O 9       . * d !V 6~   ?         ( 0:  OX`u     ! " # $  %& ' ( ) *+ , -S./ +0 LeftEdgeNormalCursorRgtEdgeMsgTopMsgFlagRestoreMsgAreaMsgAreaX0MsgAreaY0RestoreMsgAreaBoxColorRestoreMsgAreaInitCenterMsgAreaInitCenterMsgAreaInitCenterMsgAreaCardBackAceCreditUnDoDebitFlopDebitXY0 (MsgAreaX0 MsgAreaY0 0)DoCrampDoCrampInitCenterMsgAreaHooplaDelayGoldBagOnlyInitEquatesInitEquatesUpButtonDownButtonYesButXShowPlayerTextYesRegionNoRegionNoButXSetButtonRegionWkgRegSetButtonRegionButtonHgtButtonWidthHalfButtonWidthHalfButtonHgtYesNoButYNewPlayerFlagShowOldPlayerShowOldPlayerClearPlayerAskSetYesNoRegionsAwaitReleaseShuffleSoundDoOpeningDoOpening...must do this way to protect callers XY0AwaitReleaseWONsoundsWONsoundsWONsounds2WONsounds2AwaitReleaseStakeLostSounds=========== end of test stuff =======Ace`RowYes NoAre you(player name here)Are you a new player? `Time to streeeeetch!!!YOU WON!! --------------------------InitCenterMsgAreaAwaitRelease `Lead Trail~You`are`lastMatchColorMatchRecoveryMsgShowRankingPlate. `.. `....plot plate 'nailheads' (dots).........................................................StampATieStampATieStampATieStampATieStampATie`1st`by`2nd`by`3rd`by`4th`by `a`tie.................................................................just loop back here til RND1 = 1 `Oh Hum, just another fine win!MsgRankGainingSoundLosingSoundGainingSoundLosingSoundShowLowerRankShowHigherRankShowHigherRankShowLowerRank FellowPlotNailheadsPlotNailheads Bronze `Silver Rookie `GoldSayBronzeSayBronzeSayRookieSayRookieSaySilverSayGoldSaySilverSayGoldSayRookieSayRookieSaySilverSayGoldSayFellowSayMaster `MasterSayWizardSayFellowSayBronzeSayMasterSayWizardSayWizardSayWizardSayGoldSaySilver WizardSayMaster========= for testing ========== `Can't stop you from winning! `=========================== `======( Click Anywhere )====== `======( Click Anywhere )====== `===========================You`are 1st 2nd 3rd `th...overprint nextDrawASideBoxDraw2LineTopBoxDraw2LineTopBoxDraw4LineBtmBoxDraw4LineBtmBoxDraw24SideBoxesDraw1LineTopBoxDraw5LineBtmBoxDrawASideBoxDrawASideBoxDrawASideBoxDraw1LineTopBox`and Trail..`and Lead.. `GreenSayGreenSayGreenSayGreenSayRookieSayFellowSayBronzeSayFellowSayFellowSayGreenSayMasterSayGreenSayWizardSayMasterSaySilverSayGold...Gold Ranks are Outlined...Gold Ranks are Outlined...Gold Ranks are Outlined...Gold Ranks are OutlinedSayBronzeShowLeadTrailDataShowLeadTrailDataShowMatchStatusRankYRankY2AwaitButtonReleaseAwaitButtonReleaseDuelColorShowMatchStatusShowRankingPlateActiveCursorQuestionCursorgiven you a TOP on this match! Winning this hand may haveThose four kings are proof thatyou're become very good at this.the right time is playing smart.Another hand won! Keep piling those cards to the Ace row. Click AnywhereDuelingSW = 1Draw15SideBoxesShowScoringTextShowScoringTextDraw5lineBtmBoxInitSideBoxesInitSideBoxesInitSideBoxesShowGameRankGradeShowGameRankGradeDraw1LineTopBox2DrawASideBox2DrawASideBox2ShowPracticeTextShowPracticeTextShowPracticeBoxesShowPracticeBoxes PracticeMatchRecoveryMsgInitCenterMsgAreaTableColor Click Anywhere This was a >>VERY<< unusual hand `Welcome to the Magic`500 Club!!AwaitReleasePriorGrade = #24ShufflePitchNoteDelayInitCenterMsgAreaAwaitRelease Finding the right play at justWONsounds2AwaitRelease `Click AnywhereWONsounds2Magic500SoundMagic500SoundCrampSoundCrampSoundShowMagic500Msg...here only if SOME special match bits setShowSpecialMatchMsgsShowSpecialMatchMsgsShowSuperMatchMsg Click AnywhereShowSuperMatchMsg Click Anywhere Click AnywhereShowBestWinMarginShowBestWinMarginShowBestComebackShowBestComebackShowRedWinnerMsgShowRedWinnerMsgBB: Dont forget the PAUSE before exit!! You've just improved your Click Anywhere best winning margin!! You've just improved your best comeback!! `You've just WON ALL 6 HANDS!! (a VERY RARE accomplishment) (a VERY RARE accomplishment)TextLeftWait (0 100 0)InitCenterMsgAreaSpecialMatchSoundSpecialMatchSoundRED WINNER!!`You've just completed aInitCenterMsgAreaInitCenterMsgAreaInitCenterMsgAreaSpecialMatchSound&WaitSpecialMatchSound&WaitSpecialMatchSound&WaitSpecialMatchSound&WaitSpecialMatchSound&WaitSpecialMatchSoundAwaitReleaseCreating your playing files A beautiful win! You're GOOD! Practice CAN make perfect! Congratulations on winning!! Keep up those winning ways!! You found the winning combo!...VC (Rnd2) must be = 3 here!!...common from 1, 2, 3...select a Practice Win msg here...select a MatchPlay Win msg here...just the "Click Anywhere" here...Won enuf hands (9) so its boring (Boering?)...now show hand wins count & ratio...next shows Hands Won count & Win Average-`Scoring`-DrawNuggetCountDrawNuggetCountDrawNuggetCountRecoverySoundRecoverySoundDrawNuggetPileDrawNuggetPile `nuggets `nuggets You `lost YouDraw5LineBtmBoxDrawNuggetPile...at btm of MatchBoxDrawNuggetPileDraw5LineBtmBoxNuggetsDiffStartNuggetsDiff...NuggetsLineY is presetNuggetsLineY Click AnywhereDraw5LineBtmBoxfollowing will fuck youl uP!Nuggets = 2Rank = #15PriorRank = #15GOSUB Draw5LineBtmBoxWindow (RgtEdge 4 0)GOSUB Clear3LineBtmBoxPause (0 0 0)Clear (0 Green 0)ActiveCursor = 5LeftEdge = #15TableColor = GreenCardBack = #71SayMatchOverAndWaitSayMatchOverAndWaitNuggetsLineXClearSomeOfMatchBoxClearSomeOfMatchBox...Y12 presetClearSomeOfMatchBoxGoldLeafAwardSoundGoldLeafAwardSound...Player has earned a NEW RANK!!ShowNuggetsChangeShowNuggetsChangeDraw1LineTopBoxDownCount100NuggetsDownCount100Nuggets`WHOOPEE!! gainedClearSomeOfMatchBoxShowGoldBagShowGoldBag...display the GoldBag just earnedConvertingnuggets toa`Gold Leaf Gold Bag `your Filling...Gold Wizard has earned a GOLD LEAF!!!DownCount100NuggetsShowGoldLeaf...display the Gold Leaf just earnedStompAwardIconStompAwardIconAwardIconStompAwardIconShowGoldLeafThis`matchis history!DrawNuggetCount...keep around even tho not usedPromotionSoundPromotionSound...Nuggets have just been counted up or downShowMatchBoxWordMatchBoxDraw5LineBtmBox...draws "Master" (or?) in color + nugget countDrawRankAndNuggetsDrawRankAndNuggetsShowCreatingYourFilesSavePlayerAskTurfPastePlayerAskTurfPlayerAskX0PlayerAskY0 used?????????Spread -20...WHAT IF PLAYER HASN'T GIVEN NAME YET???????Welcome to Duplicate Solitaire ( click anywhere )..................................................................................Clear (255 Green 0)TextOutline = 1ColorX = YellowStampedText (0 #50 0)! Klondike ProStampedText (0 #70 0)! KLONDIKE PROTextDoubleWide = 1StampedText (#88 #90 0)! Klondike ProStampedText (#80 110 0)! KLONDIKE PROTextDoubleWide = 0PutPic1 (0 0 0)TextOutline = 0@ KPROWIDEPause (#55 5 0)AwaitPlayerPickYouWONYouWONYouWONYouWONWhoop3TimesWhoop3TimesFlop`charge`+1 by pass...Green Rookie...Bronze Rookie...Silver Rookie...Gold Rookie...Green Fellow...Bronze Fellow...Silver Fellow...Gold Fellow...Green Master...Bronze Master...Silver Master...Gold Master...Green Wizard...Bronze Wizard...Silver Wizard...Gold WizardSayNLeafSayNLeaf Leaf Leaf...show rank...show loose nuggets...show rank-class "cap"ShowClassCapShowClassCapPackRankCardCardFaceCARDSET1CARDSET2CARDSET3GetCardset...CardFace presetGetCardsetAskNewPlayerAskNewPlayer8- Simply stomp RankCard (needn't generate here)PutPic1 (0 0 0)@ KLONPIC0.LBM9- SOMEthing here but dont know whatInitCardsetInitCardset1- The BAD, BAD bootup bug at DoOpening2- Bug in Matchbox showing Gold leaves >9PaintValue (#25 0 8) (bug: left in till V 1.2)Draw5LineBtmBoxDraw1LineTopBoxDraw5LineBtmBoxSideColorInitSideBoxesInitSideBoxesClearSideTopBoxClearSideTopBox3- Fcn15 to ClearSideTopBox (for alarm)...promoted to a new rankNuggets100PlusMsgInitCenterMsgAreaSpecialMatchSound&WaitNuggets100PlusMsg You've reached 100 Nuggets! match to earn your new rank. BUT, you must avoid losing thisDraw1LineTopBox2...draws "Nuggets nn" (0-99)ShowMatchBoxFinishShowMatchBoxStatusShowMatchBoxAwardNuggetsAwardNuggetsAwardPromotionIfAwardPromotionIfShowMatchBoxFinishShowMatchBoxStatusShowMatchBox...NOT the first handKlondikeDraw1LineTopBoxShowMatchBoxWord...ready for next match: reset the "priors"InitSideBoxesDraw15SideBoxes`No gain or loss of `nuggetsMsgCodeMsgCode = #18MsgCode = 1CongratsMsgCongratsMsg - renumber MsgCodes (coordinate w/main score)PackRankCard...fcncode=8: NOT the end of a match!...fcncode=11: award nuggets & maybe promotionGOTO 1 IF DuelingSW ON `Click anywhere to continue5- kill multi-player stuff4- start version 2.1ClickAnywhere...first handMatch`Play was interrupted! The hand `is scored for a "done" at that point. Click Anywhere Note: loop will restore PlayerNuggets 1 by 1KlonMsgs6- add Registration stuffKlondike ProClickAnywhereHowToRegister Brooke W. Boering 718 Encino Drive Aptos, CA - 95003 USATo register, send $20 alongwith this number (_____) to:HowToRegisterThank you for registeringThankYouMessageThankYouMessageTell me how to return your Key#(email address, snail mail, phone)When you receive your Key#enter it here _____ or justKlondikeInvalidKeyInvalidKey..."Number" = 1,2,3...describe registrationPlease try again or justhit "Enter" to continue- Wrong Key# -- Need 5 digits -- Digits only -hit "Enter" to continue. On with the game!ShowRegisterSoonShowRegisterSoonInitCenterMsgArea Mail the $20 shareware fee now soAwaitRelease you can keep playing past that point.InitCenterMsgAreaAwaitReleaseShowRegisterNOWShowRegisterNOW with MatchPlay (see opening screen). `the $20 shareware fee to continueRecoverySoundRecoverySound Free play has ended!! You must mail Free play ends at your next Rank.GOTO B IF Editor ON...check for any .YOU file tampering...tests for CHXSUM, DROPBACK, HANDCHECK...(KLON.COD calls MSGR.COD to post msg if need)ShowBacks&Faces...show backsShuffleSound...show facesShuffleSoundShowBacks&FacesShowBacks&FacesWelcomeLinesWelcomeLines...got usernameWelcomeLinesWelcomeLines...collect key#Version 2.1.4