(FILECREATED "15-Jan-86 23:32:30" ("compiled on " {ERIS}KOTO>SOLITAIRE.;5) "12-Nov-85 14:59:23" recompiled changes: SOLO CARDIMAGE COUNTCARDS CREATEHAND CREATESTACK DEALDECK GOODMOVE? MOVESSS NXTCARD POSTVALUE STACKLOC CARDNAME in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED "15-Jan-86 23:32:05" {ERIS}KOTO>SOLITAIRE.;5 23494 changes to: (VARS SOLITAIRECOMS) (FNS SOLO DEALDECK NXTCARD CARDIMAGE COUNTCARDS GOODMOVE? MOVESSS CARDNAME CREATEHAND CREATESTACK STACKLOC POSTVALUE) (MACROS KINGP) previous date: "15-Dec-85 22:01:18" {ERIS}KOTO>SOLITAIRE.;3) SOLO D1 (P 0 X I 0 W) {g •`l5gjd¿@ ³*n²nI o b¿n@@ ¿gl @ ¿@ ¸nÜ ¿`H`H(kØ*¿`@o¿nÜ ¿°Ô(166Q DISMISS 157Q HIST 126Q DISMISS 117Q SOLITAIRE 107Q DSPFONT 103Q FONTCREATE 72Q DSPTEXTURE 60Q CREATEW 51Q GETREGION 36Q WINDOWP 26Q ARRAY 5 BOUNDP) (147Q SOLORESULTS 136Q SOLORESULTS 132Q SOLORESULTS 76Q HELVETICA 31Q SOLORESULTS 21Q FIXP 11Q SOLORESULTS 2 SOLORESULTS) ( 154Q "Number of cards up" 55Q "Just waiting Patiently...") SOLITAIRE D1 (P 2 I P 0 GAMEVALUE I 1 REPLAY I 0 SOLOW) ‡@ A mÎH ¿klIJó³`J(`J( ”Jµi‡JmÿÔº°àh³=` ³5`d ³)kZló³`J( ”Jµ i…JkÔ°éh¦` —` °’(204Q COUNTCARDS 176Q DISMISS 167Q FLIPSTACK 143Q MOVESSS 117Q MOVEHS 114Q HTOS? 103Q MOVESSS 54Q MOVES 51Q STOS? 20Q POSTVALUE 7 DEALDECK 3 CLEARW) (173Q WaitBetweenMoves 164Q HAND 136Q STACKS 110Q HAND 100Q HAND 44Q STACKS 37Q STACKS) () 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- @Édjð“¿S°dkð“¿T°dlð’¿V‰lð’W‚@Él ð’U°6@Édl ð”¿lK°dlð“¿lQlð’lJˆ@Él0Øgl nÿÿHjdll-g jHkdll+g IjdHll hdgg JjdHlJÈÙlÛl-JÈÙlÛhdgg IjdHllhdgg H(342Q BITBLT 316Q BITBLT 246Q BITBLT 222Q BLTSHADE 203Q BLTSHADE 157Q GETCHARBITMAP 154Q FONTCREATE 56Q SHOULDNT 6 BITMAPCREATE) (336Q REPLACE 333Q INPUT 312Q REPLACE 307Q INPUT 274Q BITMAP 260Q BITMAP 242Q REPLACE 237Q INPUT 216Q REPLACE 177Q REPLACE 147Q HELVETICA 137Q CARD 77Q CARD 62Q CARD 12Q CARD) () COUNTCARDS D1 (P 1 S) !ljdIHó³JI ÉÔºIkÔY°ìJ(20Q TOPSUITSTACK) (23Q CARD) () CREATEHAND D1 (P 1 I I 0 F) Chl4@2IdHó² ¿J`k(lljh ¼Kµ Lh[ºIkÔY°ÍL&»°÷(55Q GETCARD 51Q FLIPSTACK 46Q SHOWCARDSTACK) (22Q STACKS) () CREATESTACK D1 (P 5 J P 1 I I 0 N) Yh@ddkÙÚlÛkØBk]Hó³I ¼KµLh[ºIkÔ¹MkÔ°çL&»°ôJ@l nÂjo oêjØh (126Q FLIPSTACK 123Q SHOWCARDSTACK 102Q FMINUS 67Q STACKLOC 30Q GETCARD) NIL ( 106Q 45.0 77Q .667) DEALDECK D1 (P 0 I I 0 REDEAL) O@•`£¿lg`dj¿jlg kXló®`Hd *¿HkÔ°îl (111Q CREATEHAND 74Q CREATESTACK 50Q ARRAY 35Q ARRAY 12Q SHUFFLEDECK) (114Q HAND 67Q STACKS 53Q STACKS 45Q POINTER 40Q SUITSTACKS 23Q CARDTYPE# 20Q POINTER 4 DECK) () FLIPSTACK D1 (I 0 H) @´@d @(14Q PUSHCARD 11Q NXTCARD) NIL () GETCARD D1 (P 0 C I 0 I) ;`@(HÉ³HH ¿Hll- ¿HHh ¿hH(45Q BITMAPCREATE 27Q CARDIMAGE) (60Q CARD 54Q CARD 36Q CARD 23Q CARD 13Q CARD 2 DECK) () GOODMOVE? D1 (L (1 BOT 0 TOP)) 4@µAÉl ðÉAÉkØð´l@ÉñlAÉñðhðNIL (53Q CARD 42Q CARD 25Q CARD 17Q CARD 6 CARD) () HTOS? D1 (I 0 H) @´@ (12Q SEARCHSTACKS) NIL () MOVECARD D1 (I 2 Y I 1 X I 0 C F 0 SOLOW) i@É²"@É@É@É AB@É °1PAB@Éhdddgg ¿@ÉhdPABhdgg ¿@A@B @(126Q BITBLT 76Q BITBLT 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Ù ½dMñ¡¿M`kÙØ`ÛXCAÙHÛ[CAÙHÜ\DBÙHÛYDBÙHÜZjd" AdCð—¿BDð‘hA_¿B_¿AKNLÔ^HÛNHÜ¾ÔÔb¿BIOJÔ_HÛOHÜ_¿ÔÔb¿EjdWOOll-gg ¿WABEjdll-gg ¿@jdWABll-gg ¿°(273Q BITBLT 245Q BITBLT 217Q BITBLT 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 () MOVES D1 (I 1 S2 I 0 S1) A´@hA@h@ A(20Q FLIPSTACK 11Q MOVES1) NIL () MOVES1 D1 (I 2 S2 I 1 P I 0 L) @d²@B@A B@ (26Q PUSHCARD 20Q UPCARD 12Q MOVES1) NIL () UPCARD D1 (P 0 DY I 1 Y I 0 X F 1 SOLOW) €A´}@É AÉ Ù@ÉjdAÉjHll-HÙgg Q@É@É @Éjdll-HÙgg @ÉjdQ@É@É ll-HÙgg h(174Q BITBLT 127Q BITBLT 62Q BITBLT) (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) _@Hd²UÉHÉY ÉkØð´<`I@@d¿IkØl `l(lCØ*¿@¤@ ¿RlÔc i(133Q POSTVALUE 121Q FLIPSTACK 107Q MOVECARD 67Q STACKLOC 30Q TOPSUITSTACK) (72Q STACKS 45Q SUITSTACKS 33Q CARD 22Q CARD 14Q CARD) () NXTCARD D1 (I 0 S F 1 SOLOW) Ø@@@¿@’±ÆhQ Q@@@²@HjðµH´H ‘j‰@l-ØØ@²@HjðµH´H ’l…@@²@HjðµH´H ’l-ˆj@Ùg ¿@²/hQ @ Éjd@Ùl@Ùl-g ¿(324Q BLTSHADE 262Q LAST 255Q DSPTEXTURE 243Q BLTSHADE 216Q \FZEROP 147Q \FZEROP 75Q \FZEROP 27Q DSPTEXTURE) (320Q REPLACE 266Q CARD 237Q REPLACE) () PUSHCARD D1 (I 1 C I 0 S) ;A@@d—É‚Ø@@d—É ƒØ@A@(61Q MOVECARD) (46Q CARD 17Q CARD) () POSTVALUE D1 (I 0 V F 0 SOLOW) –nôl-Pgl P hP PhP hP hP ÙnèhP g gP j@ñ²oP ¿j@ÙP ¿o°@jð³)@µoP ¿@P ¿oP ¿P ²ào°í(214Q \FZEROP 210Q DSPOPERATION 203Q PRIN1 172Q PRIN1 164Q PRIN1 133Q PRIN1 123Q PRIN1 106Q DSPOPERATION 77Q BLTSHADE 70Q FONTHEIGHT 65Q DSPFONT 54Q FONTDESCENT 51Q DSPFONT 44Q DSPYPOSITION 37Q DSPXPOSITION 31Q DSPTEXTURE 24Q DSPFONT 20Q FONTCREATE 10Q MOVETO) (102Q PAINT 73Q REPLACE 13Q HELVETICA) ( 222Q "Dead even! " 177Q " " 160Q "Ahead by $" 140Q " " 117Q "Down by $") SEARCHSTACKS D1 (P 0 I I 0 K) $kXló³`H(@ •`H(HkÔ°åh(24Q GOODMOVE?) (30Q STACKS 14Q STACKS) () SHOWCARDSTACK D1 (I 0 S F 0 SOLOW) K@d²E¿hddP@@ll-ggnÿÿ ¿hddP@kØ@kØll+ggnÌ3 @(107Q BITBLT 44Q BITBLT) (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 ó³`JkÔZ`dI¿dK¿*¿KkÔ°àIkÔY°Õ k\l4ó‘hkl4 ½`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) () STACKLOC D1 (I 1 N I 0 I F 0 SOLOW) @Pg AlÚÙAkØë Ú@kÙlÚØ(23Q FIXR 7 GETWINDOWPROP) (4 WIDTH) () STOS? D1 (I 0 SN) &@´"@d³ Él ðhð´@ (43Q SEARCHSTACKS 37Q LAST 15Q LAST) (21Q CARD) () TOPSUITSTACK D1 (L (0 I)) `@(NIL (2 SUITSTACKS) () HIST D1 (P 7 I P 5 VS P 4 HS P 3 HM P 2 VM P 1 WW P 0 WH I 2 L I 1 W I 0 A) ÆAg Ag hA lØJ[jAjdIHg IKlÚÙ@ ÛHJlÚÙ@ ë@ @ kÙØ@ ONó³&`AKOLÚØJLM@O(êjØg ¿OkÔ_°ÚKJIKÙJlgA KJKHJÙlgA IKÙBhA ÙhA lØABA h(302Q PRIN1 275Q MOVETO 266Q FONTDESCENT 263Q DSPFONT 255Q STRINGWIDTH 252Q DSPFONT 241Q DRAWLINE 221Q DRAWLINE 166Q BLTSHADE 122Q ARRAYORIG 113Q ARRAYORIG 107Q ARRAYSIZE 77Q ARRAYMAX 64Q ARRAYSIZE 52Q BLTSHADE 25Q FONTHEIGHT 22Q DSPFONT 15Q GETWINDOWPROP 6 GETWINDOWPROP) (234Q REPLACE 214Q REPLACE 162Q REPLACE 136Q GRAYSHADE 46Q REPLACE 12Q WIDTH 3 HEIGHT) () ARRAYMAX D1 (I 0 A) ,@ @ kÙØ@ jIHó³J@I(ýó“@I(ºIkÔY°íJ(16Q ARRAYORIG 7 ARRAYORIG 3 ARRAYSIZE) NIL () SHOWCONFIG D1 (P 1 I) _o ¿l ljIdHó²kYló²#`o ¿k ¿IkÔY°Î`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ðµH´H ”o@Édjð•¿g°!dkð•¿g°dlð”¿gŠlð“g‚@Édkð•¿g°%dlð•¿g°dlð”¿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 SOLO SOLITAIRE) (FNS CARDIMAGE COUNTCARDS CREATEHAND CREATESTACK DEALDECK FLIPSTACK GETCARD GOODMOVE? HTOS? MOVECARD DOMOVE MOVEHS MOVES MOVES1 UPCARD MOVESSS NXTCARD PUSHCARD POSTVALUE SEARCHSTACKS SHOWCARDSTACK SHUFFLEDECK STACKLOC STOS? TOPSUITSTACK) (FNS 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 2) (Overlap .667) (CardWidth 30) (CardHeight 45)) (GLOBALVARS HAND STACKS SUITSTACKS DECK SOLORESULTS) (GLOBALVARS MaxCardMove WaitBetweenMoves)) (INITRECORDS CARD CARDSTACK) (BITMAPS SpadesBits ClubsBits DiamondsBits HeartsBits 10Bits) (INITVARS (MaxCardMove 8) ( WaitBetweenMoves 10) (DECK) (SOLORESULTS)) (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@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") (RPAQ? MaxCardMove 8) (RPAQ? WaitBetweenMoves 10) (RPAQ? DECK) (RPAQ? SOLORESULTS) (ADDTOVAR IDLE.FUNCTIONS ("Solitaire" (QUOTE SOLO))) (PUTPROPS SOLITAIRE COPYRIGHT ("Xerox Corporation" 1982 1985 1986)) NIL