$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>SOLITAIRE.TEDIT!1 0000000 X E R O X \t S O L I T A I R E \r 0000020 2 \r \r 4 \r \r 1 \r \r S O L I T A I 0000040 R E \r 1 \r \r 4 \r \r B y : B e 0000060 a u S h e i l ( S h e i l . 0000100 P A @ X e r o x . C O M ) \r 0000120 T h e S O L I T A I R E p a 0000140 c k a g e i a a s i m p l 0000160 e g r a p h i c s d e m o n 0000200 s t r a t i o n p r o g r a m 0000220 t h a t p l a y s a n d 0000240 a n i m a t e s t h e s o l 0000260 i t a i r e c a r d g a m e 0000300 ( k n o w n a s ~ P a t i 0000320 e n c e ~ i n E n g l i s h 0000340 s p e a k i n g c o u n t r 0000360 i e s ) . S o l i t a i r e 0000400 i s a g a m e f o r o 0000420 n e , s o t h e r e i s 0000440 n o w a y t o p l a y ~ 0000460 a g a i n s t ~ t h e m a c 0000500 h i n e . S O L I T A I R E 0000520 i s m o s t e f f e c t i 0000540 v e a s a b a c k g r o u 0000560 n d a c t i v i t y w h e n 0000600 t h e m a c h i n e i s 0000620 d o i n g n o t h i n g e l 0000640 s e , s o i t i s f r 0000660 e q u e n t l y u s e d a s 0000700 a n I D L E h a c k . 0000720 \r T O U S E \r T o p 0000740 l a y o n c e \r ( S O L I T A 0000760 I R E S O L O W R E P L A 0001000 Y ) \t [ F u n c t i o n ] \r P l 0001020 a y s o n e h a n d o f 0001040 s o l i t a i r e , w h i c h 0001060 i t w i l l a n i m a t e 0001100 i n t h e w i n d o w S 0001120 O L O W ( w h i c h s h o u 0001140 l d b e a t l e a s t 7 0001160 0 0 b y 7 0 0 , a l t h o 0001200 u g h t h e p r o g r a m 0001220 w i l l d o i t s b e s t 0001240 t o a d a p t ) . I f 0001260 R E P L A Y i s T , S O L 0001300 I T A I R E w i l l u s e 0001320 t h e d e c k f r o m t h 0001340 e p r e v i o u s s h u f f 0001360 l e , e l s e i t w i l l 0001400 d e a l a n e w h a n d 0001420 . \r T o p l a y r e p e a t 0001440 e d l y \r ( S O L O S O L O 0001460 W ) \t [ F u n c t i o n ] \r C a 0001500 l l s ( S O L I T A I R E 0001520 S O L O W ) r e p e a t e 0001540 d l y . \r T h e r e s u l t s 0001560 \r S O L O k e e p s a r e 0001600 c o r d o f t h e f r e q 0001620 u e n c y o f e a c h o f 0001640 i t s r e s u l t s i n 0001660 t h e a r r a y S O L O R E 0001700 S U L T S [ 0 . . 5 2 ] w h 0001720 i c h i t p l o t s a t 0001740 t h e e n d o f e a c h 0001760 h a n d . \r A s a n I D L E 0002000 h a c k \r L o a d i n g S O 0002020 L I T A I R E a u t o m a t i 0002040 c a l l y a d d s S O L I T 0002060 A I R E a s a n o p t i o 0002100 n t o t h e I D L E m e 0002120 n u . I f c h o s e n , i 0002140 t w i l l b e g i v e n 0002160 t h e ~ w h o l e s c r e e 0002200 n ~ c o v e r i n g w i n d 0002220 o w o f I D L E a n d w 0002240 i l l u s e a b l a c k 0002260 b a c k g r o u n d , r a t h 0002300 e r t h a n i t s u s u a 0002320 l s h a d e d o n e , t o 0002340 p r e s e r v e t h e s c 0002360 r e e n p h o s p h o r . O 0002400 t h e r w i s e , i t s o p 0002420 e r a t i o n i s c o m p l 0002440 e t e l y n o r m a l . \0 \0 \0 0002460 \0 \0 003 ( L I S T ( ( P A G E 0002500 N I L ( F O L I O I N F O ( 0002520 A R A B I C ) S T A R T I N G 0002540 P A G E # 1 ) ( 0 0 6 1 0002560 2 7 9 2 ) ( ( F O L I O N 0002600 I L ( P A R A L O O K S ( Q 0002620 U A D C E N T E R E D ) C H 0002640 A R L O O K S ( S U P E R S C 0002660 R I P T 0 S I Z E 1 0 F 0002700 A M I L Y M O D E R N O V E 0002720 R L I N E O F F S T R I K E 0002740 O U T O F F U N D E R L I N 0002760 E O F F S L O P E R E G U 0003000 L A R W E I G H T M E D I U 0003020 M ) F O R M A T I N F O ( A 0003040 R A B I C ) ) ( 1 7 4 3 6 0003060 2 8 8 3 6 ) N I L ) ( H E 0003100 A D I N G N I L ( H E A D I 0003120 N G T Y P E R U N N I N G H E 0003140 A D ) ( 8 4 7 4 4 4 4 4 0003160 3 6 ) N I L ) ( T E X T N 0003200 I L N I L ( 8 4 9 6 4 5 0003220 6 6 0 0 ) N I L ) ) ) ( P 0003240 A G E N I L N I L ( 0 0 0003260 6 1 2 7 9 2 ) ( ( F O L I 0003300 O N I L ( P A R A L O O K S 0003320 ( Q U A D C E N T E R E D ) 0003340 C H A R L O O K S ( S U P E 0003360 R S C R I P T 0 S I Z E 1 0003400 0 F A M I L Y M O D E R N 0003420 O V E R L I N E O F F S T R 0003440 I K E O U T O F F U N D E R 0003460 L I N E O F F S L O P E R 0003500 E G U L A R W E I G H T M E 0003520 D I U M ) ) ( 2 8 2 4 2 7 0003540 2 3 6 ) N I L ) ( H E A D 0003560 I N G N I L ( H E A D I N G 0003600 T Y P E R U N N I N G H E A D 0003620 ) ( 8 4 7 4 4 4 4 4 3 6 0003640 ) N I L ) ( T E X T N I L 0003660 N I L ( 8 4 9 6 4 5 6 0003700 6 0 0 ) N I L ) ) ) ( P A G 0003720 E N I L N I L ( 0 0 6 0003740 1 2 7 9 2 ) ( ( F O L I O 0003760 N I L ( P A R A L O O K S ( 0004000 Q U A D C E N T E R E D ) C 0004020 H A R L O O K S ( S U P E R S 0004040 C R I P T 0 S I Z E 1 0 0004060 F A M I L Y M O D E R N O V 0004100 E R L I N E O F F S T R I K 0004120 E O U T O F F U N D E R L I 0004140 N E O F F S L O P E R E G 0004160 U L A R W E I G H T M E D I 0004200 U M ) ) ( 2 8 2 4 2 7 2 0004220 3 6 ) N I L ) ( H E A D I N 0004240 G N I L ( H E A D I N G T Y 0004260 P E R U N N I N G H E A D ) 0004300 ( 8 4 7 4 4 4 4 4 3 6 ) 0004320 N I L ) ( T E X T N I L N 0004340 I L ( 8 4 9 6 4 5 6 6 0 0004360 0 ) N I L ) ) ) ) ) \0 \0 \0 \0 \0 0004400 005 \0 006 \0 ( \0 \0 \0 \0 001 310 \0 021 \0 \0 \0 0004420 004 002 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004440 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 1 \0 \0 \0 0004460 \0 001 310 \0 \v \0 \0 \0 004 003 004 \0 \0 002 \0 \0 0004500 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004520 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 212 0004540 \0 212 001 8 \0 006 \0 \0 \0 004 002 003 \0 \0 \0 \0 0004560 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004600 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 310 \0 \v \0 \0 0004620 \0 004 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004640 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 212 0004660 \0 212 001 8 \0 \0 \0 \0 \0 004 002 004 \0 \0 \0 \0 0004700 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004720 \0 \0 \0 \0 \0 D \0 \0 \0 \0 001 310 \0 \0 \0 \0 0004740 \0 \0 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 0004760 \0 \v P A G E H E A D I N G \0 \v R 0005000 U N N I N G H E A D \0 \0 \0 \0 \0 \0 0005020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 \a 0005040 \0 027 \0 \t H E L V E T I C A \0 \n \0 0005060 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E R 0005100 N \0 \n \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M 0005120 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 0005140 024 \0 006 M O D E R N \0 \f \0 \0 \0 \0 \0 0005160 \0 002 \0 \0 024 \0 006 M O D E R N \0 006 \0 0005200 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E R 0005220 N \0 \n \0 \0 \0 \0 \0 \0 001 \0 \0 022 \0 004 L 0005240 O G O \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005260 \0 \0 002 \0 006 \0 \0 \0 005 \0 \0 \0 \0 \a \0 \0 0005300 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0 \0 003 0005320 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 002 \0 001 \0 \v 0005340 H R U L E . G E T F N 001 \0 024 \0 006 0005360 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 0005400 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 0005420 005 \0 \0 \0 002 \0 001 \0 \v H R U L E . G 0005440 E T F N 001 \0 024 \0 006 M O D E R N \0 0005460 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 0005500 \0 003 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 002 \0 001 0005520 \0 \v H R U L E . G E T F N 001 \0 024 0005540 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 0005560 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 0005600 002 \0 003 \0 \0 \0 \n \0 \0 \0 \0 004 \0 \0 \0 \0 0005620 \0 002 \0 003 \0 \0 \0 002 \0 001 \0 \v H R U L 0005640 E . G E T F N 001 \0 024 \0 006 M O D E 0005660 R N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 0005700 \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 0005720 002 \0 001 \0 \v H R U L E . G E T F N 0005740 001 \0 024 \0 006 M O D E R N \0 \f \0 \0 \0 0005760 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 \0 \0 004 \0 \0 0006000 \0 \0 \0 002 \0 001 \0 \0 \0 ' \0 \0 \0 \0 003 \0 0006020 \0 \0 \0 \0 002 \0 004 \0 \0 001 205 \0 \0 \0 \0 003 0006040 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 \a \0 \0 \0 \0 0006060 002 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 \r \0 \0 \0 0006100 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 \f \0 \0 0006120 \0 \0 003 \0 \0 \0 \f \0 \0 \0 \0 006 \0 \0 \0 001 0006140 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 0006160 \0 \v \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 004 \0 0006200 \0 \0 A \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0 \0 \0 0006220 006 \0 \0 \0 \ \0 \0 \0 \0 003 \0 \0 \0 006 \0 \0 0006240 \0 \0 006 \0 \0 \0 \ \0 \0 \0 \0 003 \0 \0 \0 \0 0006260 \0 002 \0 004 \0 \0 \0 023 \0 \0 \0 \0 002 \0 \0 \0 0006300 \0 \0 002 \0 002 \0 \0 \0 \a \0 \0 \0 \0 003 \0 \0 0006320 \0 005 \0 \0 \0 \0 006 \0 \0 \0 001 \0 \0 \0 \0 003 0006340 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 \v \0 \0 \0 0006360 \0 003 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 023 \0 \0 0006400 \0 \0 003 \0 \0 \0 005 \0 \0 \0 \0 006 \0 \0 \0 017 0006420 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 0006440 \f \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 004 \0 \0 0006460 \0 205 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 004 \0 0006500 \0 \0 020 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 004 0006520 \0 \0 001 ' \0 \0 \0 \0 003 \0 \0 005 - \0 > z 0006540 272 0006541