$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>SOLITAIRE.DCOM!1
0000000 ( F I L E C R E A T E D " 1 5
0000020 - J a n - 8 6 2 3 : 3 2 : 3 0
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P U S E
0000100 R S > K O T O > S O L I T A I R
0000120 E . ; 5 ) \r " 1 2 - N o v - 8
0000140 5 1 4 : 5 9 : 2 3 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 S O L O C A R D I M A G E C
0000220 O U N T C A R D S C R E A T E
0000240 H A N D C R E A T E S T A C K
0000260 D E A L D E C K \r G O O D M
0000300 O V E ? M O V E S S S N X T
0000320 C A R D P O S T V A L U E S
0000340 T A C K L O C C A R D N A M E
0000360 i n " I N T E R L I S P - D
0000400 2 2 - N o v - 8 5 . . . "
0000420 d a t e d \r " 2 2 - N o v - 8
0000440 5 1 1 : 3 2 : 5 8 " ) \r ( F I
0000460 L E C R E A T E D " 1 5 - J a
0000500 n - 8 6 2 3 : 3 2 : 0 5 " {
0000520 E R I S } < L I S P U S E R S >
0000540 K O T O > S O L I T A I R E . ;
0000560 5 2 3 4 9 4 c h a n g e s
0000600 t o : ( V A R S \r S O L I T
0000620 A I R E C O M S ) ( F N S S
0000640 O L O D E A L D E C K N X T
0000660 C A R D C A R D I M A G E C
0000700 O U N T C A R D S G O O D M O
0000720 V E ? M O V E S S S C A R D
0000740 N A M E C R E A T E H A N D
0000760 \r C R E A T E S T A C K S T A
0001000 C K L O C P O S T V A L U E )
0001020 ( M A C R O S K I N G P )
0001040 p r e v i o u s d a t e : "
0001060 1 5 - D e c - 8 5 2 2 : 0 1 :
0001100 1 8 " \r { E R I S } < L I S P
0001120 U S E R S > K O T O > S O L I T
0001140 A I R E . ; 3 ) \r S O L O D 1
0001160 \r ( P 0 X I 0 W ) \0
0001200 { 001 \0 \0 001 g \0 \0 \t \0 \0 225 ` \0 \0 005
0001220 006 255 l 5 g \0 \0 j d \f \0 \0 027 \0 \0 277
0001240 @ \t \0 \0 263 * n 002 262 n 002 I \n \0 \0 o
0001260 \0 \0 \0 \n \0 \0 b \0 277 n 004 @ @ \n \0 \0
0001300 277 g \0 \0 l 022 \n \0 \0 @ \n \0 \0 277 021 020
0001320 \0 @ \t \0 \0 270 n 005 334 \t \0 \0 277 ` \0 \0
0001340 H ` \0 \0 H ( k 330 * 277 ` \0 \0 @ o \0
0001360 \0 \0 \v \0 \0 277 n 005 334 \t \0 \0 277 260 324 \0
0001400 ( 1 6 6 Q D I S M I S S 1 5
0001420 7 Q H I S T 1 2 6 Q D I S
0001440 M I S S 1 1 7 Q S O L I T A
0001460 I R E 1 0 7 Q D S P F O N T
0001500 1 0 3 Q F O N T C R E A T E
0001520 7 2 Q D S P T E X T U R E
0001540 6 0 Q C R E A T E W 5 1 Q
0001560 G E T R E G I O N 3 6 Q W I
0001600 N D O W P 2 6 Q A R R A Y
0001620 5 B O U N D P ) \r ( 1 4 7 Q
0001640 S O L O R E S U L T S 1 3 6 Q
0001660 S O L O R E S U L T S 1 3 2
0001700 Q S O L O R E S U L T S 7 6
0001720 Q H E L V E T I C A 3 1 Q
0001740 S O L O R E S U L T S 2 1 Q
0001760 F I X P 1 1 Q S O L O R E S
0002000 U L T S 2 S O L O R E S U L
0002020 T S ) \r ( 1 5 4 Q " N u m b
0002040 e r o f c a r d s u p "
0002060 5 5 Q " J u s t w a i t i n
0002100 g P a t i e n t l y . . . " )
0002120 \r S O L I T A I R E D 1 \r ( P
0002140 2 I P 0 G A M E V A L
0002160 U E I 1 R E P L A Y I
0002200 0 S O L O W ) \0 207 003 \0 \0 002 @
0002220 \t \0 \0 A \t \0 \0 m 316 021 001 \0 H \t \0 \0
0002240 277 k l \a 021 002 002 I J 363 263 037 ` \0 \0 J
0002260 ( ` \0 \0 J ( \t \0 \0 \n \0 \0 224 J 265 \f
0002300 i 207 J m 377 324 272 260 340 h 022 263 = ` \0 \0
0002320 \t \0 \0 263 5 ` \0 \0 d \t \0 \0 \n \0 \0 263
0002340 ) 021 020 002 k Z l \a 363 263 025 ` \0 \0 J (
0002360 \t \0 \0 224 J 265 \n i 205 J k 324 260 351 h 022
0002400 246 ` \0 \0 \t \0 \0 227 ` \0 \0 \t \0 \0 260 222
0002420 023 \b \0 \0 020 \0 ( 2 0 4 Q C O U N
0002440 T C A R D S 1 7 6 Q D I S M
0002460 I S S 1 6 7 Q F L I P S T A
0002500 C K 1 4 3 Q M O V E S S S
0002520 1 1 7 Q M O V E H S 1 1 4 Q
0002540 H T O S ? 1 0 3 Q M O V E
0002560 S S S 5 4 Q M O V E S 5 1
0002600 Q S T O S ? 2 0 Q P O S T
0002620 V A L U E 7 D E A L D E C K
0002640 3 C L E A R W ) \r ( 1 7 3 Q
0002660 W a i t B e t w e e n M o v e
0002700 s 1 6 4 Q H A N D 1 3 6 Q
0002720 S T A C K S 1 1 0 Q H A N
0002740 D 1 0 0 Q H A N D 4 4 Q
0002760 S T A C K S 3 7 Q S T A C K
0003000 S ) \r ( ) \r C A R D I M A G E
0003020 D 1 \r ( P 2 R A N K B M P
0003040 1 S U I T B M P 0 B M
0003060 I 0 C F 3 S p a d e
0003100 s B i t s F 4 C l u b s B
0003120 i t s F 5 1 0 B i t s F
0003140 6 D i a m o n d s B i t s
0003160 F 7 H e a r t s B i t s )
0003200 \0 346 003 005 \0 001 l 036 l - \n \0 \0 @ 006 \0
0003220 \0 311 \0 d j 360 223 277 S 260 034 d k 360 223 277
0003240 T 260 024 d l 002 360 222 277 V 211 l 003 360 222 W
0003260 016 202 \b \0 \0 @ 006 \0 \0 311 002 l \n 360 222 U
0003300 260 6 @ 006 \0 \0 311 002 d l \r 360 224 277 l K
0003320 260 033 d l \f 360 223 277 l Q 217 l \v 360 222 l
0003340 J 210 @ 006 \0 \0 311 002 l 0 330 g \0 \0 l 022
0003360 \n \0 \0 \n \0 \0 021 003 002 n 377 377 H j d l
0003400 036 l - g \0 \0 \r \a \0 \0 j H k d l 034
0003420 l + g \0 \0 \r \a \0 \0 I j d H l 002 l
0003440 h d g \0 \0 g \0 \0 \r \n \0 \0 J j d
0003460 H l 036 J 006 \0 \0 310 004 331 l 002 333 l - J
0003500 006 \0 \0 310 003 331 l 002 333 h d g \0 \0 g \0
0003520 \0 \r \n \0 \0 I j d H l 021 l 003 h d g
0003540 \0 \0 g \0 \0 \r \n \0 \0 H 020 \0 ( 3 4 2
0003560 Q B I T B L T 3 1 6 Q B I
0003600 T B L T 2 4 6 Q B I T B L T
0003620 2 2 2 Q B L T S H A D E 2
0003640 0 3 Q B L T S H A D E 1 5 7
0003660 Q G E T C H A R B I T M A P
0003700 1 5 4 Q F O N T C R E A T E
0003720 5 6 Q S H O U L D N T 6 B
0003740 I T M A P C R E A T E ) \r ( 3 3
0003760 6 Q R E P L A C E 3 3 3 Q
0004000 I N P U T 3 1 2 Q R E P L A
0004020 C E 3 0 7 Q I N P U T 2 7
0004040 4 Q B I T M A P 2 6 0 Q B
0004060 I T M A P 2 4 2 Q R E P L A
0004100 C E 2 3 7 Q I N P U T 2 1
0004120 6 Q R E P L A C E 1 7 7 Q
0004140 R E P L A C E 1 4 7 Q H E L
0004160 V E T I C A 1 3 7 Q C A R D
0004200 7 7 Q C A R D 6 2 Q C A
0004220 R D 1 2 Q C A R D ) \r ( ) \r
0004240 C O U N T C A R D S D 1 \r ( P
0004260 1 S ) \0 ! 003 \0 \0 \0 l 003 j d
0004300 021 003 002 I H 363 263 024 J I \t \0 \0 006 \0 \0
0004320 311 002 324 272 I k 324 Y 260 354 J 020 \0 ( 2 0
0004340 Q T O P S U I T S T A C K ) \r
0004360 ( 2 3 Q C A R D ) \r ( ) \r C R
0004400 E A T E H A N D D 1 \r ( P 1
0004420 I I 0 F ) \0 C 005 \0 \0 001
0004440 h l 4 @ 021 2 004 I d H 363 262 277 J 022
0004460 ` \0 \0 k ( 002 002 001 l 033 l 024 j h 032 032
0004500 032 032 032 032 \t \0 \0 \t \0 \0 020 \t \0 \0 274 K
0004520 265 \r L h 032 [ 272 I k 324 Y 260 315 L & 273
0004540 260 367 \0 ( 5 5 Q G E T C A R D
0004560 5 1 Q F L I P S T A C K 4 6
0004600 Q S H O W C A R D S T A C K )
0004620 \r ( 2 2 Q S T A C K S ) \r ( )
0004640 \r C R E A T E S T A C K D 1 \r
0004660 ( P 5 J P 1 I I 0
0004700 N ) \0 Y 006 \0 \0 001 h @ d d k 331
0004720 332 l 002 333 k 330 021 B 005 k ] H 363 263 035 I
0004740 \t \0 \0 274 K 265 020 L h 032 [ 272 I k 324 271
0004760 M k 324 260 347 L & 273 260 364 J 022 @ l \a \n
0005000 \0 \0 n 001 302 j o \0 \0 \0 \t \0 \0 o \0 \0
0005020 \0 352 j 330 h 032 032 032 032 032 032 \t \0 \0 \t \0
0005040 \0 020 \0 ( 1 2 6 Q F L I P S T A
0005060 C K 1 2 3 Q S H O W C A R D
0005100 S T A C K 1 0 2 Q F M I N U
0005120 S 6 7 Q S T A C K L O C 3
0005140 0 Q G E T C A R D ) \r N I L \r
0005160 ( 1 0 6 Q 4 5 . 0 7 7 Q
0005200 . 6 6 7 ) \r D E A L D E C K D
0005220 1 \r ( P 0 I I 0 R E D
0005240 E A L ) \0 O 001 \0 \0 001 @ 225 ` \0 \0
0005260 005 006 243 \b \0 \0 277 l 004 g \0 \0 ` \0 \0 037
0005300 d j 024 002 277 j \f \0 \0 027 \0 \0 l \a g \0
0005320 \0 \n \0 \0 027 \0 \0 021 020 \0 k X l \a 363 256
0005340 ` \0 \0 H d \t \0 \0 * 277 H k 324 260 356 023
0005360 l 035 \t \0 \0 027 \0 \0 020 \0 ( 1 1 1 Q
0005400 C R E A T E H A N D 7 4 Q C
0005420 R E A T E S T A C K 5 0 Q A
0005440 R R A Y 3 5 Q A R R A Y 1
0005460 2 Q S H U F F L E D E C K ) \r
0005500 ( 1 1 4 Q H A N D 6 7 Q S
0005520 T A C K S 5 3 Q S T A C K S
0005540 4 5 Q P O I N T E R 4 0 Q
0005560 S U I T S T A C K S 2 3 Q
0005600 004 003 C A R D T Y P E # 2 0 Q
0005620 P O I N T E R 4 D E C K ) \r
0005640 ( ) \r F L I P S T A C K D 1 \r
0005660 ( I 0 H ) \0 020 \0 \0 \0 001 @ 002
0005700 001 264 \v @ d \t \0 \0 \n \0 \0 @ 020 \0 ( 1
0005720 4 Q P U S H C A R D 1 1 Q
0005740 N X T C A R D ) \r N I L \r ( ) \r
0005760 G E T C A R D D 1 \r ( P 0
0006000 C I 0 I ) \0 ; 001 \0 \0 001 `
0006020 \0 \0 @ ( 021 001 \0 H 006 \0 \0 311 004 263 033 H
0006040 006 \0 \0 H \t \0 \0 024 004 277 H 006 \0 \0 l 036
0006060 l - \n \0 \0 024 006 277 H 006 \0 \0 H 006 \0 \0
0006100 h 024 \n 277 h 024 \b H 020 \0 ( 4 5 Q B
0006120 I T M A P C R E A T E 2 7 Q
0006140 C A R D I M A G E ) \r ( 6 0 Q
0006160 C A R D 5 4 Q C A R D 3 6
0006200 Q C A R D 2 3 Q C A R D
0006220 1 3 Q C A R D 2 D E C K )
0006240 \r ( ) \r G O O D M O V E ? D 1
0006260 \r ( L ( 1 B O T 0 T O P
0006300 ) ) \0 4 \0 \0 \0 002 @ 265 \f A 006 \0 \0
0006320 311 002 l \r 360 020 006 \0 \0 311 002 A 006 \0 \0 311
0006340 002 k 330 360 264 027 l 002 @ 006 \0 \0 311 \0 361 l
0006360 002 A 006 \0 \0 311 \0 361 360 h 360 020 \0 N I L
0006400 \r ( 5 3 Q C A R D 4 2 Q C
0006420 A R D 2 5 Q C A R D 1 7 Q
0006440 C A R D 6 C A R D ) \r ( )
0006460 \r H T O S ? D 1 \r ( I 0 H
0006500 ) \0 \r \0 \0 \0 001 @ 001 001 264 \b @ 001 001
0006520 \t \0 \0 020 \0 ( 1 2 Q S E A R C H
0006540 S T A C K S ) \r N I L \r ( ) \r M
0006560 O V E C A R D D 1 \r ( I 2
0006600 Y I 1 X I 0 C F
0006620 0 S O L O W ) \0 i \0 001 \0 003 @
0006640 006 \0 \0 311 \b 262 " @ 006 \0 \0 311 004 @ 006 \0
0006660 \0 311 \b @ 006 \0 \0 311 \n A B @ 006 \0 \0 311
0006700 006 \r 006 \0 \0 260 1 P A B @ 006 \0 \0 311 006
0006720 h d d d g \0 \0 g \0 \0 \r \n \0 \0 277 @
0006740 006 \0 \0 311 004 h d P A B h d g \0 \0 g
0006760 \0 \0 \r \n \0 \0 277 @ 006 \0 \0 A 024 \b @ 006
0007000 \0 \0 B 024 \n @ 020 \0 ( 1 2 6 Q B I
0007020 T B L T 7 6 Q B I T B L T
0007040 4 5 Q D O M O V E ) \r ( 1 4 2
0007060 Q C A R D 1 3 3 Q C A R D
0007100 1 2 2 Q R E P L A C E 1 1
0007120 7 Q I N P U T 1 0 3 Q C A
0007140 R D 7 2 Q R E P L A C E 6
0007160 7 Q I N P U T 5 6 Q C A R
0007200 D 3 7 Q C A R D 2 7 Q C
0007220 A R D 2 1 Q C A R D 1 3 Q
0007240 C A R D 3 C A R D ) \r ( )
0007260 \r D O M O V E D 1 \r ( P 1 1
0007300 Q O L D L O W P 1 0 Q O
0007320 L D L E F T P 7 Y F C P
0007340 6 X F C P 4 X F P P
0007360 3 X W P P 2 Y F P P
0007400 1 Y W P P 0 N I 5
0007420 S A V E I 4 N Y I 3
0007440 N X I 2 B O T T O M I
0007460 1 L E F T I 0 I M A G
0007500 E F 1 2 Q S O L O W ) \0
0007520 300 \n 001 \0 006 021 ` 005 C A 331 \t \0 \0 D B
0007540 331 \t \0 \0 275 d M 361 241 277 M ` \0 \0 k 331
0007560 330 ` \0 \0 333 X C A 331 H 333 [ C A 331 H
0007600 334 \ D B 331 H 333 Y D B 331 H 334 Z j d
0007620 021 " \t A d C 360 227 277 B D 360 221 h 020 A
0007640 _ 020 277 B _ 022 277 A K N L 324 ^ H 333 N
0007660 H 334 276 324 324 b 002 277 B I O 016 J 324 _ 016
0007700 H 333 O 016 H 334 _ 016 277 324 324 b 004 277 E j
0007720 d W 024 O 020 O 022 l 036 l - g \0 \0 g \0
0007740 \0 \r \n \0 \0 277 W 024 A B E j d l 036 l
0007760 - g \0 \0 g \0 \0 \r \n \0 \0 277 @ j d W
0010000 024 A B l 036 l - g \0 \0 g \0 \0 \r \n \0
0010020 \0 277 260 201 \0 ( 2 7 3 Q B I T B L
0010040 T 2 4 5 Q B I T B L T 2 1
0010060 7 Q B I T B L T 1 6 Q A B
0010100 S 1 0 Q A B S ) \r ( 2 6 7 Q
0010120 R E P L A C E 2 6 4 Q I N
0010140 P U T 2 4 1 Q R E P L A C E
0010160 2 3 6 Q I N P U T 2 1 3 Q
0010200 R E P L A C E 2 1 0 Q I N
0010220 P U T 3 6 Q M a x C a r d M
0010240 o v e 3 0 Q M a x C a r d M
0010260 o v e ) \r ( ) \r M O V E H S D
0010300 1 \r ( I 1 S N I 0 H )
0010320 \0 033 \0 \0 \0 002 A d 262 027 @ 001 001 @ d
0010340 001 002 030 277 \n \0 \0 @ 001 001 243 @ \t \0 \0 A
0010360 020 \0 ( 2 7 Q F L I P S T A C K
0010400 1 7 Q P U S H C A R D ) \r N
0010420 I L \r ( ) \r M O V E S D 1 \r (
0010440 I 1 S 2 I 0 S 1 ) \0
0010460 024 \0 \0 \0 002 A 264 021 @ 001 h A \v \0 \0 @
0010500 h 030 @ \t \0 \0 A 020 \0 ( 2 0 Q F L
0010520 I P S T A C K 1 1 Q M O V E
0010540 S 1 ) \r N I L \r ( ) \r M O V E S
0010560 1 D 1 \r ( I 2 S 2 I 1
0010600 P I 0 L ) \0 031 \0 \0 \0 003
0010620 @ d 262 025 002 @ 001 B \v \0 \0 @ 001 A \n \0
0010640 \0 B @ 001 \n \0 \0 020 \0 ( 2 6 Q P U
0010660 S H C A R D 2 0 Q U P C A R
0010700 D 1 2 Q M O V E S 1 ) \r N I
0010720 L \r ( ) \r U P C A R D D 1 \r (
0010740 P 0 D Y I 1 Y I 0
0010760 X F 1 S O L O W ) \0 200
0011000 001 001 \0 002 A 264 } @ 006 \0 \0 311 \n A 006 \0
0011020 \0 311 \n 331 021 001 \0 @ 006 \0 \0 311 006 j d A
0011040 006 \0 \0 311 006 j H l 036 l - H 331 g \0 \0
0011060 g \0 \0 \r \n \0 \0 Q @ 006 \0 \0 311 \b @ 006
0011100 \0 \0 311 \n @ 006 \0 \0 311 006 j d l 036 l -
0011120 H 331 g \0 \0 g \0 \0 \r \n \0 \0 @ 006 \0 \0
0011140 311 004 j d Q @ 006 \0 \0 311 \b @ 006 \0 \0 311
0011160 \n l 036 l - H 331 g \0 \0 g \0 \0 \r \n \0
0011200 \0 h 020 \0 ( 1 7 4 Q B I T B L T
0011220 1 2 7 Q B I T B L T 6 2 Q
0011240 B I T B L T ) \r ( 1 7 0 Q R
0011260 E P L A C E 1 6 5 Q I N P U
0011300 T 1 5 2 Q C A R D 1 4 4 Q
0011320 C A R D 1 3 3 Q C A R D
0011340 1 2 3 Q R E P L A C E 1 2 0
0011360 Q I N P U T 1 0 3 Q C A R
0011400 D 7 5 Q C A R D 6 7 Q C
0011420 A R D 5 6 Q R E P L A C E
0011440 5 3 Q I N P U T 3 6 Q C A
0011460 R D 2 6 Q C A R D 1 4 Q
0011500 C A R D 6 C A R D ) \r ( ) \r
0011520 M O V E S S S D 1 \r ( P 1
0011540 S T S P 0 T S I 0 S
0011560 F 2 G A M E V A L U E )
0011600 \0 _ 002 001 \0 001 @ 001 001 021 021 001 H d 262 U
0011620 006 \0 \0 311 002 H 006 \0 \0 311 \0 Y \t \0 \0 006
0011640 \0 \0 311 002 k 330 360 264 < ` \0 \0 I @ 001 001
0011660 @ d 001 002 030 277 I k 330 l 004 \n \0 \0 ` \0
0011700 \0 l \a ( 002 002 002 001 l C 330 \v \0 \0 * 277
0011720 @ 001 001 244 @ \t \0 \0 277 R l 005 324 c 004 \t
0011740 \0 \0 i 020 \0 ( 1 3 3 Q P O S T V
0011760 A L U E 1 2 1 Q F L I P S T
0012000 A C K 1 0 7 Q M O V E C A R
0012020 D 6 7 Q S T A C K L O C 3
0012040 0 Q T O P S U I T S T A C K )
0012060 \r ( 7 2 Q S T A C K S 4 5 Q
0012100 S U I T S T A C K S 3 3 Q
0012120 C A R D 2 2 Q C A R D 1 4
0012140 Q C A R D ) \r ( ) \r N X T C A
0012160 R D D 1 \r ( I 0 S F 1
0012200 S O L O W ) \0 330 001 001 \0 001 @ 002
0012220 001 001 @ 002 @ 002 001 002 030 277 @ 002 001 222 261 \0
0012240 306 h Q \n \0 \0 Q @ 002 002 001 @ 002 002 002 001
0012260 @ 001 262 034 @ 002 002 002 002 002 001 021 001 \0 H j
0012300 360 265 \v H 005 003 264 006 H \t \0 \0 022 221 j 211
0012320 @ 002 002 002 002 002 001 l - 330 330 @ 001 262 033 @
0012340 002 002 002 002 001 021 001 \0 H j 360 265 \v H 005 003
0012360 264 006 H \t \0 \0 022 222 l 036 205 @ 002 002 002 002
0012400 001 @ 001 262 034 @ 002 002 002 002 002 001 021 001 \0 H
0012420 j 360 265 \v H 005 003 264 006 H \t \0 \0 022 222 l
0012440 - 210 j @ 002 002 002 002 002 001 331 g \0 \0 \r \a
0012460 \0 \0 277 @ 001 262 / h Q \n \0 \0 @ 001 \t \0
0012500 \0 001 006 \0 \0 311 006 j d @ 002 002 002 002 002 001
0012520 331 l 036 @ 002 002 002 002 001 331 l - g \0 \0 \r
0012540 \a \0 \0 277 020 \0 ( 3 2 4 Q B L T S
0012560 H A D E 2 6 2 Q L A S T 2
0012600 5 5 Q D S P T E X T U R E 2
0012620 4 3 Q B L T S H A D E 2 1 6
0012640 Q \ F Z E R O P 1 4 7 Q \
0012660 F Z E R O P 7 5 Q \ F Z E R
0012700 O P 2 7 Q D S P T E X T U R
0012720 E ) \r ( 3 2 0 Q R E P L A C E
0012740 2 6 6 Q C A R D 2 3 7 Q
0012760 R E P L A C E ) \r ( ) \r P U S H
0013000 C A R D D 1 \r ( I 1 C I
0013020 0 S ) \0 ; \0 \0 \0 002 A @ 002 002
0013040 002 002 001 @ d 001 227 001 001 006 \0 \0 311 \b 202 002
0013060 002 001 330 @ 002 002 002 002 002 001 @ d 001 227 001 001
0013100 006 \0 \0 311 \n 203 002 002 002 001 330 \v \0 \0 @ A
0013120 @ 001 032 030 001 020 \0 ( 6 1 Q M O V E
0013140 C A R D ) \r ( 4 6 Q C A R D
0013160 1 7 Q C A R D ) \r ( ) \r P O S
0013200 T V A L U E D 1 \r ( I 0 V
0013220 F 0 S O L O W ) \0 226 \0 001
0013240 \0 001 n 001 364 l - P \v \0 \0 g \0 \0 l 022
0013260 \n \0 \0 P \n \0 \0 h P \n \0 \0 P h P \n
0013300 \0 \0 h P \n \0 \0 h P \n \0 \0 \t \0 \0 331
0013320 n 003 350 h P \n \0 \0 \t \0 \0 g \0 \0 \r \a
0013340 \0 \0 g \0 \0 P \n \0 \0 j @ 361 262 031 o \0
0013360 \0 \0 P \n \0 \0 277 j @ 331 P \n \0 \0 277 o
0013400 \0 \0 \0 260 037 @ j 360 263 ) @ 005 003 265 037 o
0013420 \0 \0 \0 P \n \0 \0 277 @ P \n \0 \0 277 o \0
0013440 \0 \0 P \n \0 \0 277 P \n \0 \0 020 \t \0 \0 262
0013460 340 o \0 \0 \0 260 355 \0 ( 2 1 4 Q \ F
0013500 Z E R O P 2 1 0 Q D S P O P
0013520 E R A T I O N 2 0 3 Q P R I
0013540 N 1 1 7 2 Q P R I N 1 1 6
0013560 4 Q P R I N 1 1 3 3 Q P R
0013600 I N 1 1 2 3 Q P R I N 1 1
0013620 0 6 Q D S P O P E R A T I O N
0013640 7 7 Q B L T S H A D E 7 0
0013660 Q F O N T H E I G H T 6 5 Q
0013700 D S P F O N T 5 4 Q F O N
0013720 T D E S C E N T 5 1 Q D S P
0013740 F O N T 4 4 Q D S P Y P O S
0013760 I T I O N 3 7 Q D S P X P O
0014000 S I T I O N 3 1 Q D S P T E
0014020 X T U R E 2 4 Q D S P F O N
0014040 T 2 0 Q F O N T C R E A T E
0014060 1 0 Q M O V E T O ) \r ( 1 0
0014100 2 Q P A I N T 7 3 Q R E P
0014120 L A C E 1 3 Q H E L V E T I
0014140 C A ) \r ( 2 2 2 Q " D e a d
0014160 e v e n ! " 1 7 7 Q
0014200 " " 1 6 0 Q " A h e a
0014220 d b y $ " 1 4 0 Q "
0014240 " 1 1 7 Q " D o w n b y
0014260 $ " ) \r S E A R C H S T A C K
0014300 S D 1 \r ( P 0 I I 0
0014320 K ) \0 $ 001 \0 \0 001 021 020 \0 k X l \a
0014340 363 263 031 ` \0 \0 H ( 001 001 @ \n \0 \0 225 `
0014360 \0 \0 H ( 020 H k 324 260 345 h 020 \0 ( 2 4
0014400 Q G O O D M O V E ? ) \r ( 3 0
0014420 Q S T A C K S 1 4 Q S T A
0014440 C K S ) \r ( ) \r S H O W C A R D
0014460 S T A C K D 1 \r ( I 0 S
0014500 F 0 S O L O W ) \0 K \0 001 \0
0014520 001 @ d 002 001 262 E 277 h d d P @ 002 002 001
0014540 @ 002 002 002 001 l 036 l - g \0 \0 g \0 \0 n
0014560 377 377 \r \v \0 \0 277 h d d P @ 002 002 001 k
0014600 330 @ 002 002 002 001 k 330 l 034 l + g \0 \0 g
0014620 \0 \0 n 314 3 \r \v \0 \0 @ 020 \0 ( 1 0 7
0014640 Q B I T B L T 4 4 Q B I T
0014660 B L T ) \r ( 1 0 0 Q R E P L A
0014700 C E 7 5 Q T E X T U R E 3
0014720 5 Q R E P L A C E 3 2 Q T
0014740 E X T U R E ) \r ( ) \r S H U F F
0014760 L E D E C K D 1 \r ( P 5 Y
0015000 P 4 I P 3 R P 2
0015020 I P 1 S ) \0 ~ 006 \0 \0 \0
0015040 g \0 \0 \t \0 \0 226 ` \0 \0 005 006 263 D l 4
0015060 g \0 \0 \n \0 \0 027 \0 \0 277 l 003 j d 021 023
0015100 003 I H 363 263 + k [ l \r 363 263 036 ` \0 \0
0015120 J k 324 Z ` \0 \0 037 d I 024 \0 277 d K 024
0015140 002 277 * 277 K k 324 260 340 I k 324 Y 260 325 023
0015160 021 005 k \ l 4 363 221 h 020 k l 4 \n \0
0015200 \0 275 ` \0 \0 L ` \0 \0 M ( ` \0 \0 M `
0015220 \0 \0 L ( * 277 * 277 L k 324 260 331 \0 ( 1
0015240 4 0 Q R A N D 2 5 Q A R R
0015260 A Y 5 B O U N D P ) \r ( 1 6
0015300 1 Q D E C K 1 5 5 Q D E C
0015320 K 1 5 0 Q D E C K 1 4 4 Q
0015340 D E C K 6 6 Q 004 003 C A R D
0015360 T Y P E # 5 7 Q D E C K 3
0015400 0 Q D E C K 2 2 Q P O I N
0015420 T E R 1 1 Q D E C K 2 D
0015440 E C K ) \r ( ) \r S T A C K L O C
0015460 D 1 \r ( I 1 N I 0 I
0015500 F 0 S O L O W ) \0 036 \0 001
0015520 \0 002 @ P g \0 \0 \n \0 \0 A l 036 332 331 A
0015540 k 330 353 \t \0 \0 332 @ k 331 l 036 332 330 020 \0
0015560 ( 2 3 Q F I X R 7 G E T W
0015600 I N D O W P R O P ) \r ( 4 W I
0015620 D T H ) \r ( ) \r S T O S ? D 1
0015640 \r ( I 0 S N ) \0 & \0 \0 \0 001
0015660 @ 001 264 " @ d 002 001 263 024 001 \t \0 \0 001 006
0015700 \0 \0 311 002 l \r 360 h 360 264 \v @ 001 \t \0 \0
0015720 001 \t \0 \0 020 \0 ( 4 3 Q S E A R C
0015740 H S T A C K S 3 7 Q L A S T
0015760 1 5 Q L A S T ) \r ( 2 1 Q
0016000 C A R D ) \r ( ) \r T O P S U I T
0016020 S T A C K D 1 \r ( L ( 0 I
0016040 ) ) \0 \a \0 \0 \0 001 ` \0 \0 @ ( 020 \0
0016060 N I L \r ( 2 S U I T S T A C K
0016100 S ) \r ( ) \r H I S T D 1 \r ( P
0016120 7 I P 5 V S P 4
0016140 H S P 3 H M P 2 V M
0016160 P 1 W W P 0 W H I
0016200 2 L I 1 W I 0 A
0016220 ) \0 306 \b \0 \0 003 A g \0 \0 \n \0 \0 A
0016240 g \0 \0 \n \0 \0 h A \n \0 \0 \t \0 \0 l 004
0016260 330 021 023 003 J [ j A j d I H g \0 \0 \r
0016300 \a \0 \0 I K l 002 332 331 @ \t \0 \0 333 H J
0016320 l 002 332 331 @ \t \0 \0 353 021 002 005 @ \t \0 \0
0016340 @ \t \0 \0 k 331 330 @ \t \0 \0 021 002 \a O 016
0016360 N 363 263 & ` \0 \0 A K O 016 L 332 330 J L
0016400 M @ O 016 ( 352 j 330 g \0 \0 \r \a \0 \0 277
0016420 O 016 k 324 _ 016 260 332 023 023 K J I K 331 J
0016440 l 002 g \0 \0 A \r \a \0 \0 K J K H J 331
0016460 l 002 g \0 \0 A \r \a \0 \0 I K 331 B h A
0016500 \n \0 \0 \n \0 \0 331 h A \n \0 \0 \t \0 \0 l
0016520 002 330 A \v \0 \0 B A \n \0 \0 h 020 \0 ( 3
0016540 0 2 Q P R I N 1 2 7 5 Q M
0016560 O V E T O 2 6 6 Q F O N T D
0016600 E S C E N T 2 6 3 Q D S P F
0016620 O N T 2 5 5 Q S T R I N G W
0016640 I D T H 2 5 2 Q D S P F O N
0016660 T 2 4 1 Q D R A W L I N E
0016700 2 2 1 Q D R A W L I N E 1 6
0016720 6 Q B L T S H A D E 1 2 2 Q
0016740 A R R A Y O R I G 1 1 3 Q
0016760 A R R A Y O R I G 1 0 7 Q A
0017000 R R A Y S I Z E 7 7 Q A R R
0017020 A Y M A X 6 4 Q A R R A Y S
0017040 I Z E 5 2 Q B L T S H A D E
0017060 2 5 Q F O N T H E I G H T
0017100 2 2 Q D S P F O N T 1 5 Q
0017120 G E T W I N D O W P R O P 6
0017140 G E T W I N D O W P R O P ) \r (
0017160 2 3 4 Q R E P L A C E 2 1 4
0017200 Q R E P L A C E 1 6 2 Q R
0017220 E P L A C E 1 3 6 Q G R A Y
0017240 S H A D E 4 6 Q R E P L A C
0017260 E 1 2 Q W I D T H 3 H E
0017300 I G H T ) \r ( ) \r A R R A Y M A
0017320 X D 1 \r ( I 0 A ) \0 , 003
0017340 \0 \0 001 @ \t \0 \0 @ \t \0 \0 k 331 330 @ \t
0017360 \0 \0 j 021 003 002 I H 363 263 023 J @ I ( 375
0017400 363 223 @ I ( 272 I k 324 Y 260 355 J 020 \0 (
0017420 1 6 Q A R R A Y O R I G 7
0017440 A R R A Y O R I G 3 A R R A
0017460 Y S I Z E ) \r N I L \r ( ) \r S H
0017500 O W C O N F I G D 1 \r ( P 1
0017520 I ) \0 _ 002 \0 \0 \0 o \0 \0 \0 \t \0
0017540 \0 277 l \n \t \0 \0 l 003 j 021 002 001 I d H
0017560 363 262 034 023 \b \0 \0 021 020 001 k Y l \a 363 262
0017600 # 023 ` \0 \0 o \0 \0 \0 \n \0 \0 020 \t \0 \0
0017620 \t \0 \0 \t \0 \0 277 k \t \0 \0 277 I k 324 Y
0017640 260 316 ` \0 \0 I ( o \0 \0 \0 I \n \0 \0 \n
0017660 \0 \0 277 I k 324 260 305 \0 ( 1 2 7 Q P
0017700 R I N T C A R D S T A C K 1 2
0017720 4 Q C O N C A T 1 0 0 Q S
0017740 P A C E S 7 3 Q P R I N 1
0017760 7 0 Q C A R D N A M E 6 5 Q
0020000 T O P S U I T S T A C K 6 1
0020020 Q P R I N T C A R D S T A C K
0020040 3 4 Q T E R P R I 1 4 Q
0020060 T A B 6 P R I N 1 ) \r ( 1 1
0020100 2 Q S T A C K S 5 2 Q H A
0020120 N D ) \r ( 1 2 0 Q " S t a c
0020140 k " 5 6 Q " H a n d " 3
0020160 " S u i t s : " ) \r P R I N
0020200 T C A R D S T A C K D 1 \r ( P
0020220 0 J I 1 S I 0 X
0020240 ) \0 G 001 \0 \0 002 A \t \0 \0 277 o \0 \0
0020260 \0 \t \0 \0 277 l \n \t \0 \0 277 o \0 \0 \0 @
0020300 002 001 \t \0 \0 \n \0 \0 277 o \0 \0 \0 \t \0 \0
0020320 @ 001 260 025 d 001 021 001 \0 H \t \0 \0 \t \0 \0
0020340 277 k \t \0 \0 023 002 003 265 354 \b \0 \0 020 \0 (
0020360 1 0 4 Q T E R P R I 7 4 Q
0020400 S P A C E S 6 7 Q P R I N 1
0020420 6 4 Q C A R D N A M E 4 7
0020440 Q P R I N 1 3 7 Q P R I N
0020460 T N U M 3 4 Q L E N G T H
0020500 2 1 Q T A B 1 3 Q P R I N
0020520 1 3 P R I N 1 ) \r N I L \r (
0020540 4 4 Q " d o w n . U p :
0020560 " 2 6 Q ( F I X 2 ) 1
0020600 0 Q " : " ) \r C A R D N A M E
0020620 D 1 \r ( I 0 C ) \0 210 001 \0
0020640 \0 001 @ 006 \0 \0 311 002 021 001 \0 H j 360 265 \v
0020660 H 005 003 264 006 H \t \0 \0 022 224 o \0 \0 \0 020
0020700 @ 006 \0 \0 311 \0 d j 360 225 277 g \0 \0 260 !
0020720 d k 360 225 277 g \0 \0 260 027 d l 002 360 224 277
0020740 g \0 \0 212 l 003 360 223 g \0 \0 202 \b \0 \0 @
0020760 006 \0 \0 311 002 d k 360 225 277 g \0 \0 260 % d
0021000 l \v 360 225 277 g \0 \0 260 032 d l \f 360 224 277
0021020 g \0 \0 215 l \r 360 223 g \0 \0 205 @ 006 \0 \0
0021040 311 002 h 032 032 \t \0 \0 020 \0 ( 2 0 5 Q
0021060 P A C K 1 1 4 Q S H O U L D
0021100 N T 2 6 Q \ F Z E R O P ) \r
0021120 ( 1 7 5 Q C A R D 1 7 0 Q
0021140 K 1 6 0 Q Q 1 4 5 Q J
0021160 1 3 2 Q A 1 2 0 Q C A R D
0021200 1 1 0 Q H 1 0 0 Q D 6
0021220 5 Q C 5 3 Q S 4 1 Q C
0021240 A R D 3 C A R D ) \r ( 3 4
0021260 Q " N o n e " ) \r ( P R E T T
0021300 Y C O M P R I N T S O L I T A
0021320 I R E C O M S ) \r ( R P A Q Q
0021340 S O L I T A I R E C O M S ( (
0021360 F N S S O L O S O L I T A I
0021400 R E ) ( F N S C A R D I M A
0021420 G E C O U N T C A R D S C R
0021440 E A T E H A N D C R E A T E S
0021460 T A C K D E A L D E C K \r F
0021500 L I P S T A C K G E T C A R D
0021520 G O O D M O V E ? H T O S ?
0021540 M O V E C A R D D O M O V E
0021560 M O V E H S M O V E S M O
0021600 V E S 1 U P C A R D M O V E
0021620 S S S N X T C A R D P U S H
0021640 C A R D \r P O S T V A L U E
0021660 S E A R C H S T A C K S S H O
0021700 W C A R D S T A C K S H U F F
0021720 L E D E C K S T A C K L O C
0021740 S T O S ? T O P S U I T S T A
0021760 C K ) ( F N S H I S T A R
0022000 R A Y M A X ) ( \r D E C L A R
0022020 E : D O N T C O P Y ( F N S
0022040 S H O W C O N F I G P R I N
0022060 T C A R D S T A C K C A R D N
0022100 A M E ) ) ( D E C L A R E :
0022120 E V A L @ C O M P I L E D O N
0022140 T C O P Y ( M A C R O S \r B
0022160 O T T O M K I N G P S T A C
0022200 K T O P ) ( R E C O R D S
0022220 C A R D C A R D S T A C K )
0022240 ( C O N S T A N T S ( S p a d
0022260 e s 0 ) ( C l u b s 1 )
0022300 ( D i a m o n d s 2 ) ( H e
0022320 a r t s \r 3 ) ( C o s t O f
0022340 D e c k 5 0 ) ( P a y F o r
0022360 C a r d 5 ) ( N S t a c k s
0022400 7 ) ( N S u i t s 4 ) (
0022420 C a r d s P e r S u i t 1 3 )
0022440 ( T o t a l C a r d s 5 2 )
0022460 ) ( C O N S T A N T S \r ( B
0022500 A C K S H A D E 5 2 2 7 5 )
0022520 ( B e t w e e n S t a c k s 2
0022540 ) ( O v e r l a p . 6 6 7 )
0022560 ( C a r d W i d t h 3 0 )
0022600 ( C a r d H e i g h t 4 5 ) )
0022620 ( G L O B A L V A R S H A N
0022640 D \r S T A C K S S U I T S T
0022660 A C K S D E C K S O L O R E
0022700 S U L T S ) ( G L O B A L V A
0022720 R S M a x C a r d M o v e W
0022740 a i t B e t w e e n M o v e s )
0022760 ) ( I N I T R E C O R D S C
0023000 A R D \r C A R D S T A C K )
0023020 ( B I T M A P S S p a d e s B
0023040 i t s C l u b s B i t s D i
0023060 a m o n d s B i t s H e a r t
0023100 s B i t s 1 0 B i t s ) ( I
0023120 N I T V A R S ( M a x C a r d
0023140 M o v e 8 ) ( \r W a i t B e
0023160 t w e e n M o v e s 1 0 ) (
0023200 D E C K ) ( S O L O R E S U L
0023220 T S ) ) ( A D D V A R S ( I
0023240 D L E . F U N C T I O N S ( "
0023260 S o l i t a i r e " ( Q U O T
0023300 E S O L O ) ) ) ) ) ) \r ( / D
0023320 E C L A R E D A T A T Y P E (
0023340 Q U O T E C A R D ) ( Q U O
0023360 T E ( P O I N T E R P O I N
0023400 T E R P O I N T E R P O I N
*
0023440 T E R ) ) ( Q U O T E ( ( C
0023460 A R D \r 0 P O I N T E R )
0023500 ( C A R D 2 P O I N T E R )
0023520 ( C A R D 4 P O I N T E R
0023540 ) ( C A R D 6 P O I N T E
0023560 R ) ( C A R D 8 P O I N T
0023600 E R ) ( C A R D 1 0 P O I
0023620 N T E R ) ) ) ( \r Q U O T E
0023640 1 2 ) ) \r ( R P A Q S p a d e
0023660 s B i t s ( R E A D B I T M A
0023700 P ) ) \r ( 1 1 1 1 " @ D @ @
0023720 " " @ N @ @ " " A O @ @ "
0023740 " C O H @ " " G O L @ " " G
0023760 O L @ " " G O L @ " " C O H
0024000 @ " " @ D @ @ " " A O @ @ "
0024020 " C O H @ " ) \r ( R P A Q C
0024040 l u b s B i t s ( R E A D B I
0024060 T M A P ) ) \r ( 1 1 1 1 " @
0024100 D @ @ " " @ N @ @ " " A O @
0024120 @ " " @ N @ @ " " B D H @ "
0024140 " G E L @ " " O O N @ " "
0024160 G E L @ " " B D H @ " " @ N
0024200 @ @ " " C O H @ " ) \r ( R P A
0024220 Q D i a m o n d s B i t s (
0024240 R E A D B I T M A P ) ) \r ( 1 1
0024260 1 1 " @ D @ @ " " @ N @ @
0024300 " " A K @ @ " " C A H @ "
0024320 " F @ L @ " " L @ F @ " " F
0024340 @ L @ " " C A H @ " " A K @
0024360 @ " " @ N @ @ " " @ D @ @ "
0024400 ) \r ( R P A Q H e a r t s B i
0024420 t s ( R E A D B I T M A P ) )
0024440 \r ( 1 1 1 1 " @ @ @ @ " "
0024460 C A H @ " " G K L @ " " D N
0024500 D @ " " D @ D @ " " F @ L @
0024520 " " C A H @ " " A K @ @ "
0024540 " @ N @ @ " " @ D @ @ " " @
0024560 @ @ @ " ) \r ( R P A Q 1 0 B i
0024600 t s ( R E A D B I T M A P ) )
0024620 \r ( 2 0 1 8 " @ @ @ @ @ @ @
0024640 @ " " @ F @ G L @ @ @ " " @
0024660 N @ O N @ @ @ " " G N A L G @
0024700 @ @ " " G N A H C @ @ @ " "
0024720 @ F A H C @ @ @ " " @ F A H C
0024740 @ @ @ " " @ F A H C @ @ @ "
0024760 \r " @ F A H C @ @ @ " " @ F A
0025000 H C @ @ @ " " @ F A H C @ @ @
0025020 " " @ F A L G @ @ @ " " @ F
0025040 @ O N @ @ @ " " @ F @ G L @ @
0025060 @ " " @ @ @ @ @ @ @ @ " " @
0025100 @ @ @ @ @ @ @ " " @ @ @ @ @ @
0025120 @ @ " \r " @ @ @ @ @ @ @ @ " )
0025140 \r ( R P A Q ? M a x C a r d M
0025160 o v e 8 ) \r ( R P A Q ? W a
0025200 i t B e t w e e n M o v e s 1
0025220 0 ) \r ( R P A Q ? D E C K ) \r
0025240 ( R P A Q ? S O L O R E S U L
0025260 T S ) \r ( A D D T O V A R I D
0025300 L E . F U N C T I O N S ( " S
0025320 o l i t a i r e " ( Q U O T E
0025340 S O L O ) ) ) \r ( P U T P R O
0025360 P S S O L I T A I R E C O P
0025400 Y R I G H T ( " X e r o x C
0025420 o r p o r a t i o n " 1 9 8 2
0025440 1 9 8 5 1 9 8 6 ) ) \r N I L
0025460 \r
0025461