(FILECREATED " 6-Aug-85 00:05:02" ("compiled on " {ERIS}SOLITAIRE.;4) " 5-Aug-85 23:07:51" recompiled changes: DEALDECK MOVECARD DOMOVE UPCARD NXTCARD POSTVALUE SHOWCARDSTACK SOLO HIST in "INTERLISP-D 5-Aug-85 ..." dated " 5-Aug-85 20:48:34") (FILECREATED " 6-Aug-85 00:04:43" {ERIS}SOLITAIRE.;4 22271 changes to: (FNS SOLO DEALDECK MOVECARD DOMOVE UPCARD NXTCARD POSTVALUE SHOWCARDSTACK HIST) (VARS SOLITAIRECOMS) previous date: " 5-Aug-85 23:56:40" {ERIS}SOLITAIRE.;3) CARDIMAGE D1 (P 2 RANKBM P 1 SUITBM P 0 BM I 0 C F 3 SpadesBits F 4 ClubsBits F 5 10Bits F 6 DiamondsBits F 7 HeartsBits) ll- @djSdkTdlVlW@l U6@dl lKdl lQl lJ@l0gl hddHhdddggn hddHkdll+ggj IjdHll hdgg JjdHlJll-Jlhdgg IjdHllhdgg H(354Q BITBLT 330Q BITBLT 260Q BITBLT 234Q BITBLT 207Q BITBLT 157Q GETCHARBITMAP 154Q FONTCREATE 56Q SHOULDNT 6 BITMAPCREATE) (350Q REPLACE 345Q INPUT 324Q REPLACE 321Q INPUT 306Q BITMAP 272Q BITMAP 254Q REPLACE 251Q INPUT 227Q REPLACE 224Q TEXTURE 200Q REPLACE 175Q TEXTURE 147Q HELVETICA 137Q CARD 77Q CARD 62Q CARD 12Q CARD) NIL COUNTCARDS D1 (P 1 S) !ljdIHJI غIkYJ(20Q TOPSUITSTACK) (23Q CARD) NIL CREATEHAND D1 (P 1 I I 0 F) =hl4@2IdHJlZl-ljh  K Lh[IkYL&(47Q GETCARD 43Q FLIPSTACK 40Q SHOWCARDSTACK) NIL NIL CREATESTACK D1 (P 5 J P 1 I I 0 N) Zh@ddklkBk]HI KLh[IkعMkذL&J@lklnjo l-jh (127Q FLIPSTACK 124Q SHOWCARDSTACK 105Q FMINUS 30Q GETCARD) NIL (102Q .667) DEALDECK D1 (P 0 I I 0 REDEAL F 1 SOLOW F 2 SOLITAIREWINDOW) @`Q6Rc1l l@nnho ccgl Q n@Q lg`djj lg kXl`Hd *Hk԰l (203Q CREATEHAND 166Q CREATESTACK 142Q ARRAY 127Q ARRAY 105Q CLEARW 101Q DSPTEXTURE 71Q DSPFONT 65Q FONTCREATE 51Q CREATEW 12Q SHUFFLEDECK) (206Q HAND 161Q STACKS 145Q STACKS 137Q POINTER 132Q SUITSTACKS 115Q CARDTYPE# 112Q POINTER 60Q HELVETICA 4 DECK) ( 46Q "Just waiting Patiently...") FLIPSTACK D1 (I 0 H) @ @d @(14Q PUSHCARD 11Q NXTCARD) NIL NIL GETCARD D1 (P 0 C I 0 I) ;`@(HHH Hll- HHh hH(45Q BITMAPCREATE 27Q CARDIMAGE) (60Q CARD 54Q CARD 36Q CARD 23Q CARD 13Q CARD 2 DECK) NIL GOODMOVE? D1 (L (1 BOT 0 TOP)) 4@ Al Akl@lAhNIL (53Q CARD 42Q CARD 25Q CARD 17Q CARD 6 CARD) NIL HTOS? D1 (I 0 H) @@ (12Q SEARCHSTACKS) NIL NIL MOVECARD D1 (I 2 Y I 1 X I 0 C F 0 SOLOW) i@"@@@ AB@ 1PAB@hdddgg @hdPABhdgg @A@B @(126Q BKBITBLT 76Q BKBITBLT 45Q DOMOVE) (142Q CARD 133Q CARD 122Q REPLACE 117Q INPUT 103Q CARD 72Q REPLACE 67Q INPUT 56Q CARD 37Q CARD 27Q CARD 21Q CARD 13Q CARD 3 CARD) () DOMOVE D1 (P 11Q OLDLOW P 10Q OLDLEFT P 7 YFC P 6 XFC P 4 XFP P 3 XWP P 2 YFP P 1 YWP P 0 N I 5 SAVE I 4 NY I 3 NX I 2 BOTTOM I 1 LEFT I 0 IMAGE F 12Q SOLOW) `CA DB dMM`k`XCAH[CAH\DBHYDBHZjd" AdCBDhA_B_AKNL^HNHܾbBIOJ_HOH_bEjdWOOll-gg WABEjdll-gg @jdWABll-gg (273Q BKBITBLT 245Q BKBITBLT 217Q BKBITBLT 16Q ABS 10Q ABS) (267Q REPLACE 264Q INPUT 241Q REPLACE 236Q INPUT 213Q REPLACE 210Q INPUT 36Q MaxCardMove 30Q MaxCardMove) () MOVEHS D1 (I 1 SN I 0 H) Ad@@d @@ A(27Q FLIPSTACK 17Q PUSHCARD) NIL NIL MOVES D1 (I 1 S2 I 0 S1) A@hA @h@ A(20Q FLIPSTACK 11Q MOVES1) NIL NIL MOVES1 D1 (I 2 S2 I 1 P I 0 L) @d@B @A B@ (26Q PUSHCARD 20Q UPCARD 12Q MOVES1) NIL NIL UPCARD D1 (P 0 DY I 1 Y I 0 X F 1 SOLOW) A}@ A @jdAjHll-Hgg Q@@ @jdll-Hgg @jdQ@@ ll-Hgg h(174Q BKBITBLT 127Q BKBITBLT 62Q BKBITBLT) (170Q REPLACE 165Q INPUT 152Q CARD 144Q CARD 133Q CARD 123Q REPLACE 120Q INPUT 103Q CARD 75Q CARD 67Q CARD 56Q REPLACE 53Q INPUT 36Q CARD 26Q CARD 14Q CARD 6 CARD) () MOVESSS D1 (P 1 STS P 0 TS I 0 S F 2 GAMEVALUE) ]@HdSHY k:`I@@dIkl`l(lZ *@@ Rlc i(131Q POSTVALUE 117Q FLIPSTACK 105Q MOVECARD 30Q TOPSUITSTACK) (70Q STACKS 45Q SUITSTACKS 33Q CARD 22Q CARD 14Q CARD) NIL NXTCARD D1 (I 0 S F 0 SOLOW) v@@@@ehddP@@@@l-؀jlj@gghP hddP@@@@ll-gghP (162Q BKBITBLT 156Q DSPTEXTURE 107Q BKBITBLT 103Q DSPTEXTURE) (151Q REPLACE 146Q TEXTURE 76Q REPLACE 73Q TEXTURE) () PUSHCARD D1 (I 1 C I 0 S) ;A@@d@@d  @A@(61Q MOVECARD) (46Q CARD 17Q CARD) NIL POSTVALUE D1 (I 0 V F 0 SOLOW) nl8P gl P hddPhP hP hP lhP gghP gP j@oP j@P o@j)@oP @P oP P  o(225Q \FZEROP 221Q DSPOPERATION 214Q PRIN1 203Q PRIN1 175Q PRIN1 144Q PRIN1 134Q PRIN1 117Q DSPOPERATION 110Q BKBITBLT 104Q DSPTEXTURE 64Q DSPFONT 47Q DSPFONT 42Q DSPYPOSITION 35Q DSPXPOSITION 24Q DSPFONT 20Q FONTCREATE 10Q MOVETO) (113Q PAINT 77Q REPLACE 74Q TEXTURE 67Q FONTDESCRIPTOR 52Q FONTDESCRIPTOR 13Q HELVETICA) ( 233Q "Dead even! " 210Q " " 171Q "Ahead by $" 151Q " " 130Q "Down by $") SEARCHSTACKS D1 (P 0 I I 0 K) $kXl`H(@ `H(Hkذh(24Q GOODMOVE?) (30Q STACKS 14Q STACKS) NIL SHOWCARDSTACK D1 (I 0 S F 0 SOLOW) K@dEhddP@@ll-ggn hddP@k@kll+ggn3 @(107Q BKBITBLT 44Q BKBITBLT) (100Q REPLACE 75Q TEXTURE 35Q REPLACE 32Q TEXTURE) () SHUFFLEDECK D1 (P 5 Y P 4 I P 3 R P 2 I P 1 S) ~g `Dl4g ljdIH+k[l `JkZ`dIdK*KkذIkY k\l4hkl4 `L`M(`M`L(**Lkذ(140Q RAND 25Q ARRAY 5 BOUNDP) (161Q DECK 155Q DECK 150Q DECK 144Q DECK 66Q CARDTYPE# 57Q DECK 30Q DECK 22Q POINTER 11Q DECK 2 DECK) NIL SOLITAIRE D1 (P 2 I P 0 GAMEVALUE I 0 REPLAY) @ mH klIJ`J(`J( J iJkٺh=` 5`d )kZl`J( J iJkذh` ` (177Q COUNTCARDS 171Q DISMISS 162Q FLIPSTACK 136Q MOVESSS 112Q MOVEHS 107Q HTOS? 76Q MOVESSS 50Q MOVES 45Q STOS? 14Q POSTVALUE 3 DEALDECK) (166Q WaitBetweenMoves 157Q HAND 131Q STACKS 103Q HAND 73Q HAND 40Q STACKS 33Q STACKS) NIL STOS? D1 (I 0 SN) &@"@d l h @  (43Q SEARCHSTACKS 37Q LAST 15Q LAST) (21Q CARD) NIL TOPSUITSTACK D1 (L (0 I)) `@(NIL (2 SUITSTACKS) NIL SOLO D1 (P 2 X I 0 SOLOW) gg "`l4jIH`Ij*IkYl5gjd n `J`J(k*`@o n (142Q DISMISS 133Q HIST 102Q DISMISS 73Q SOLITAIRE 61Q ARRAY 5 BOUNDP) (123Q SOLORESULTS 112Q SOLORESULTS 106Q SOLORESULTS 64Q SOLORESULTS 54Q FIXP 33Q SOLORESULTS 12Q SOLORESULTS 2 SOLORESULTS) ( 130Q "Number of cards up") HIST D1 (P 3 I P 1 VS P 0 HS I 2 L I 1 DS I 0 A F 4 SOLOW) hddTjdAg Ag ggj Ag l(@ Ag l(@ @ @ k@ KJphddAldAg l(lggn hddAldlAg l(ggn gl A Ag BhA llA BA ddAKHllHI@K(ggnZZ Kk[k(342Q BKBITBLT 303Q PRIN1 276Q MOVETO 264Q STRINGWIDTH 261Q DSPFONT 253Q GETWINDOWPROP 244Q DSPFONT 240Q FONTCREATE 230Q BKBITBLT 210Q GETWINDOWPROP 170Q BKBITBLT 146Q GETWINDOWPROP 116Q ARRAYORIG 107Q ARRAYORIG 103Q ARRAYSIZE 73Q ARRAYMAX 64Q GETWINDOWPROP 54Q ARRAYSIZE 45Q GETWINDOWPROP 36Q BKBITBLT 23Q GETWINDOWPROP 14Q GETWINDOWPROP) (333Q REPLACE 330Q TEXTURE 250Q WIDTH 233Q HELVETICA 221Q REPLACE 216Q TEXTURE 205Q HEIGHT 161Q REPLACE 156Q TEXTURE 143Q WIDTH 61Q HEIGHT 42Q WIDTH 31Q REPLACE 26Q TEXTURE 20Q HEIGHT 11Q WIDTH) () ARRAYMAX D1 (I 0 A) ,@ @ k@ jIHJ@I(@I(IkYJ(16Q ARRAYORIG 7 ARRAYORIG 3 ARRAYSIZE) NIL NIL SHOWCONFIG D1 (P 1 I) _o l ljIdHkYl#`o  k IkY`I(oI Ik԰(127Q PRINTCARDSTACK 124Q CONCAT 100Q SPACES 73Q PRIN1 70Q CARDNAME 65Q TOPSUITSTACK 61Q PRINTCARDSTACK 34Q TERPRI 14Q TAB 6 PRIN1) (112Q STACKS 52Q HAND) ( 120Q "Stack " 56Q "Hand" 3 "Suits: ") PRINTCARDSTACK D1 (P 0 J I 1 S I 0 X) GA o l o@ o @dH k (104Q TERPRI 74Q SPACES 67Q PRIN1 64Q CARDNAME 47Q PRIN1 37Q PRINTNUM 34Q LENGTH 21Q TAB 13Q PRIN1 3 PRIN1) NIL ( 44Q " down. Up: " 26Q (FIX 2) 10Q ":") CARDNAME D1 (I 0 C) @Hj HH o@djg!dkgdlglg@dkg%dl gdl gl g@h (205Q PACK 114Q SHOULDNT 26Q \FZEROP) (175Q CARD 170Q K 160Q Q 145Q J 132Q A 120Q CARD 110Q H 100Q D 65Q C 53Q S 41Q CARD 3 CARD) ( 34Q "None") (PRETTYCOMPRINT SOLITAIRECOMS) (RPAQQ SOLITAIRECOMS ((FNS CARDIMAGE COUNTCARDS CREATEHAND CREATESTACK DEALDECK FLIPSTACK GETCARD GOODMOVE? HTOS? MOVECARD DOMOVE MOVEHS MOVES MOVES1 UPCARD MOVESSS NXTCARD PUSHCARD POSTVALUE SEARCHSTACKS SHOWCARDSTACK SHUFFLEDECK SOLITAIRE STOS? TOPSUITSTACK) (FNS SOLO HIST ARRAYMAX) ( DECLARE: DONTCOPY (FNS SHOWCONFIG PRINTCARDSTACK CARDNAME)) (DECLARE: EVAL@COMPILE DONTCOPY (MACROS BOTTOM KINGP STACK TOP) (RECORDS CARD CARDSTACK) (CONSTANTS (Spades 0) (Clubs 1) (Diamonds 2) (Hearts 3) (CostOfDeck 50) (PayForCard 5) (NStacks 7) (NSuits 4) (CardsPerSuit 13) (TotalCards 52)) (CONSTANTS (BACKSHADE 52275) (BetweenStacks 3) (Overlap .667) (CardWidth 30) (CardHeight 45)) (GLOBALVARS STACKS HAND SUITSTACKS DECK SOLORESULTS) (GLOBALVARS MaxCardMove WaitBetweenMoves)) (INITRECORDS CARD CARDSTACK) (BITMAPS SpadesBits ClubsBits DiamondsBits HeartsBits 10Bits) (VARS (MaxCardMove 8) ( WaitBetweenMoves 10) (DECK) (SOLITAIREWINDOW)) (ADDVARS (IDLE.FUNCTIONS ("Solitaire" (QUOTE SOLO)))))) (/DECLAREDATATYPE (QUOTE CARD) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((CARD 0 POINTER) (CARD 2 POINTER) (CARD 4 POINTER) (CARD 6 POINTER) (CARD 8 POINTER) (CARD 10 POINTER))) ( QUOTE 12)) (RPAQ SpadesBits (READBITMAP)) (11 11 "@D@@" "@N@@" "AO@@" "COH@" "GOL@" "GOL@" "GOL@" "COH@" "@D@@" "AO@@" "COH@") (RPAQ ClubsBits (READBITMAP)) (11 11 "@D@@" "@N@@" "AO@@" "@N@@" "BDH@" "GEL@" "OON@" "GEL@" "BDH@" "@N@@" "COH@") (RPAQ DiamondsBits (READBITMAP)) (11 11 "@D@@" "@N@@" "AK@@" "CAH@" "F@L@" "L@F@" "F@L@" "CAH@" "AK@@" "@N@@" "@D@@") (RPAQ HeartsBits (READBITMAP)) (11 11 "@@@@" "CAH@" "GKL@" "DND@" "D@D@" "F@L@" "CAH@" "AK@@" "@N@@" "@D@@" "@@@@") (RPAQ 10Bits (READBITMAP)) (20 18 "@@@@@@@@" "@F@GL@@@" "@N@ON@@@" "GNALG@@@" "GNAHC@@@" "@FAHC@@@" "@FAHC@@@" "@FAHC@@@" "@FAHC@@@" "@FAHC@@@" "@FAHC@@@" "@FALG@@@" "@F@ON@@@" "@F@GL@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") (RPAQQ MaxCardMove 8) (RPAQQ WaitBetweenMoves 10) (RPAQQ DECK NIL) (RPAQQ SOLITAIREWINDOW NIL) (ADDTOVAR IDLE.FUNCTIONS ("Solitaire" (QUOTE SOLO))) (PUTPROPS SOLITAIRE COPYRIGHT ("Xerox Corporation" 1982 1985)) NIL