$ od -c -N 50000 [phylum]<LISPUSERS>koto>Pac-Man-Idle.tedit!2 0000000 X E R O X \t P a c - M a n - I d 0000020 l e \r 2 \r \r 4 \r \r 1 \r \r P a c - 0000040 M a n - I d l e \r 1 \r \r 4 \r \r B 0000060 y : s m L ( L a n n i n g 0000100 . p a @ x e r o x . c o m ) \r I 0000120 N T R O D U C T I O N \r T h e 0000140 p a c k a g e P a c - M a n - 0000160 I d l e d e f i n e s t w o 0000200 n e w I D L E f u n c t i 0000220 o n s , " P a c M a n " a 0000240 n d " S l o w F a d e " . 0000260 L i k e m o s t o t h e r 0000300 I D L E f u n c t i o n s , 0000320 t h e y t u r n y o u r 0000340 s c r e e n b l a c k e x c 0000360 e p t f o r s o m e r a n 0000400 d o m , m o v i n g f o r m 0000420 . U n l i k e m o s t o 0000440 t h e r I D L E f u n c t i 0000460 o n s , t h e y d o n ' t 0000500 t u r n b l a c k i m m e d 0000520 i a t e l y . I n s t e a d 0000540 , t h e y s l o w l y e a 0000560 t a w a y a t y o u r d 0000600 i s p l a y u n t i l i t 0000620 i s a s b l a c k a s c 0000640 e r t a i n h o l e s i n 0000660 C a l c u t t a . \r ( P a c - 0000700 M a n - I d l e w i n d o w 0000720 ) \t [ F u n c t i o n ] \r T h e 0000740 P a c - M a n - I d l e f u 0000760 n c t i o n s t a r t s a 0001000 l i t t l e p a c - m a n i 0001020 c o n e a t i n g a w a y 0001040 a t y o u r s c r e e n . 0001060 I t a l w a y s m o v e s 0001100 i n t h e d i r e c t i o 0001120 n o f t h e m o s t f o 0001140 o d ( = w h i t e p i x e 0001160 l s ) w i t h i n i t s h 0001200 o r i z o n . I t t a k e 0001220 s a b o u t 1 5 o r 2 0 0001240 m i n s t o e a t a w a 0001260 y a t t h e e n t i r e 0001300 s c r e e n . Y o u w i l 0001320 l b e l e f t w i t h a 0001340 r a t h e r h u n g r y p 0001360 a c 377 377 \0 357 $ \0 m \0 a \0 n \0 \0 0001400 i \0 c \0 o \0 n \0 \0 w \0 a 377 \0 n 0001420 d e r i n g a r o u n d y o 0001440 u r s c r e e n . \r ( P a c - 0001460 M a n - E a t - W i n d o w 0001500 w i n d o w ) \t [ F u n c t i o 0001520 n ] \r T h i s i s t h e s 0001540 u b f u n c t i o n o f P a 0001560 c - M a n - I d l e t h a t 0001600 a c t u a l l y r u n s t h 0001620 e h u n g r y l i t t l e 0001640 g u y a r o u n d a w i n 0001660 d o w l o o k i n g f o r 0001700 f o o d . Y o u c a n u 0001720 s e i t y o u r s e l f , 0001740 o n a w i n d o w o f y 0001760 o u r c h o i c e . \r p a c M 0002000 a n E a t M a s k \t [ G l o b 0002020 a l V a r i a b l e ] \r p a c 0002040 M a n I c o n \t [ G l o b a 0002060 l V a r i a b l e ] \r p a c M 0002100 a n M a s k \t [ G l o b a l 0002120 V a r i a b l e ] \r T h e s e 0002140 t h r e e v a r i a b l e s 0002160 d e f i n e t h e i m a g 0002200 e o f t h e p a c - m a n 0002220 i c o n . p a c M a n E a 0002240 t M a s k i s t h e m a s 0002260 k o f b i t s t h a t w 0002300 i l l b e c o n s u m e d 0002320 o u t o f t h e b a c k g 0002340 r o u n d w h e n t h e p 0002360 a c - m a n s t o p s t o 0002400 e a t . p a c M a n I c o n 0002420 a n d p a c M a n M a s k 0002440 a r e t h e i c o n i m a 0002460 g e a n d m a s k t h a t 0002500 d e s c r i b e t h e a p 0002520 p e a r a n c e o f t h e 0002540 p a c - m a n . T h e s e 0002560 v a r i a b l e s a r e d e 0002600 f i n e d a s I N I T V A R 0002620 S i n t h e f i l e , s 0002640 o y o u c a n o v e r r i 0002660 d e t h e d e f a u l t s 0002700 b e f o r e ( o r a f t e r 0002720 ) l o a d i n g t h e f i 0002740 l e . \r ( S l o w - F a d e 0002760 w i n d o w ) \t [ F u n c t i o 0003000 n ] \r T h e S l o w - F a d e 0003020 f u n c t i o n d e g r a d 0003040 e s t h e e n t i r e s c 0003060 r e e n b y b l t 377 377 \0 357 $ 0003100 377 \0 i n g a r a n d o m t 0003120 e x t u r e o n t o t h e 0003140 w i n d o w . A f t e r a 0003160 w h i l e y o u a r e l 0003200 e f t w i t h n o t h i n g 0003220 . S l o w - F a d e t h e 0003240 n d r o p s i n t o t h e 0003260 s t a n d a r d " B o u n c 0003300 i n g B o x " i d l e f u 0003320 n c t i o n . \r D e f a u l t - 0003340 S l o w - F a d e - I d l e - F 0003360 u n c t i o n \t [ G l o b 0003400 a l V a r i a b l e ] \r T h e 0003420 i d l e f u n c t i o n t 0003440 h a t S l o w - F a d e w i 0003460 l l r u n w h e n i t i 0003500 s d o n e f a d i n g t o 0003520 b l a c k . T h e d e f 0003540 a u l t v a l u e i s t h 0003560 e c h o s e n i d l e f u 0003600 n c t i o n a t t h e t i 0003620 m e t h e f i l e i s l 0003640 o a d e d . T h i s d e f 0003660 a u l t i s d e f i n e d 0003700 i n a n I N I T V A R S e 0003720 x p r e s s i o n , s o y o 0003740 u c a n o v e r r i d e i 0003760 t e i t h e r b e f o r e 0004000 o r a f t e r l o a d i n g 0004020 t h e f i l e . \r \0 \0 \0 \0 \0 0004040 003 ( L I S T ( ( P A G E N I 0004060 L ( F O L I O I N F O ( A R 0004100 A B I C ) S T A R T I N G P A 0004120 G E # 1 ) ( 0 0 6 1 2 0004140 7 9 2 ) ( ( F O L I O N I L 0004160 ( P A R A L O O K S ( Q U A 0004200 D \r C E N T E R E D ) C H A 0004220 R L O O K S ( S U P E R S C R 0004240 I P T 0 S I Z E 1 0 F A 0004260 M I L Y M O D E R N O V E R 0004300 L I N E O F F S T R I K E O 0004320 U T O F F U N D E R L I N E 0004340 O F F \r S L O P E R E G U 0004360 L A R W E I G H T M E D I U 0004400 M ) F O R M A T I N F O ( A 0004420 R A B I C ) ) ( 1 7 4 3 6 0004440 2 8 8 3 6 ) N I L ) ( H E 0004460 A D I N G N I L ( H E A D I 0004500 N G T Y P E \r R U N N I N G H 0004520 E A D ) ( 8 4 7 4 4 4 4 4 0004540 3 6 ) N I L ) ( T E X T 0004560 N I L N I L ( 8 4 9 6 4 0004600 5 6 6 0 0 ) N I L ) ) ) ( 0004620 P A G E N I L N I L ( 0 0004640 0 6 1 2 7 9 2 ) ( ( \r F O 0004660 L I O N I L ( P A R A L O O 0004700 K S ( Q U A D C E N T E R E 0004720 D ) C H A R L O O K S ( S U 0004740 P E R S C R I P T 0 S I Z E 0004760 1 0 F A M I L Y M O D E R 0005000 N O V E R L I N E O F F \r 0005020 S T R I K E O U T O F F U N 0005040 D E R L I N E O F F S L O P 0005060 E R E G U L A R W E I G H T 0005100 M E D I U M ) ) ( 2 8 2 4 0005120 2 7 2 3 6 ) N I L ) ( H 0005140 E A D I N G N I L ( \r H E A 0005160 D I N G T Y P E R U N N I N G 0005200 H E A D ) ( 8 4 7 4 4 4 4 0005220 4 3 6 ) N I L ) ( T E X T 0005240 N I L N I L ( 8 4 9 6 0005260 4 5 6 6 0 0 ) N I L ) ) ) 0005300 ( P A G E N I L N I L ( 0 0005320 0 \r 6 1 2 7 9 2 ) ( ( F 0005340 O L I O N I L ( P A R A L O 0005360 O K S ( Q U A D C E N T E R 0005400 E D ) C H A R L O O K S ( S 0005420 U P E R S C R I P T 0 S I Z 0005440 E 1 0 F A M I L Y M O D E 0005460 R N \r O V E R L I N E O F F 0005500 S T R I K E O U T O F F U 0005520 N D E R L I N E O F F S L O 0005540 P E R E G U L A R W E I G H 0005560 T M E D I U M ) ) ( 2 8 2 0005600 4 2 7 2 3 6 ) N I L ) ( 0005620 H E A D I N G \r N I L ( H E 0005640 A D I N G T Y P E R U N N I N 0005660 G H E A D ) ( 8 4 7 4 4 4 0005700 4 4 3 6 ) N I L ) ( T E X 0005720 T N I L N I L ( 8 4 9 6 0005740 4 5 6 6 0 0 ) N I L ) ) ) 0005760 ) ) \0 \0 \0 \0 \0 005 \0 \a \0 ( \0 \0 \0 \0 0006000 001 310 \0 021 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 \0 0006020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006040 \0 \0 \0 1 \0 \0 \0 \0 001 310 \0 \v \0 \0 \0 004 0006060 003 004 \0 \0 002 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 0006100 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006120 \0 \0 \0 \0 1 \0 \0 \0 \0 001 310 \0 \v \0 \0 \0 0006140 004 003 004 \0 \0 002 001 274 001 001 310 001 \0 \0 \0 \0 0006160 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006200 \0 \0 \0 \0 \0 ( \0 212 \0 212 001 8 \0 006 \0 \0 0006220 \0 004 002 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006240 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 0006260 \0 \0 001 310 \0 \v \0 \0 \0 004 002 004 \0 \0 \0 \0 0006300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006320 \0 \0 \0 \0 \0 ( \0 212 \0 212 001 8 \0 \0 \0 \0 0006340 \0 004 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 D \0 \0 0006400 \0 \0 001 310 \0 \0 \0 \0 \0 \0 003 004 \0 \0 001 001 0006420 310 001 \0 \0 \0 \0 \0 \0 \0 \v P A G E H E 0006440 A D I N G \0 \v R U N N I N G H E 0006460 A D \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006500 \0 \0 \0 \0 \0 004 \0 \a \0 027 \0 \t H E L V 0006520 E T I C A \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 0006540 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 0006560 \0 002 \0 \0 024 \0 006 M O D E R N \0 \f \0 0006600 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E R 0006620 N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M 0006640 O D E R N \0 006 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006660 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 0006700 \0 001 \0 \0 022 \0 004 L O G O \0 030 \0 \0 \0 0006720 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 0006740 005 \0 \0 \0 \0 \a \0 \0 \0 001 \0 \0 \0 \0 005 \0 0006760 \0 \0 \f \0 \0 \0 \0 004 \0 \0 \0 001 \0 \0 \0 \0 0007000 003 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 002 \0 001 \0 0007020 \v H R U L E . G E T F N 001 \0 024 \0 0007040 006 M O D E R N \0 \f \0 \0 \0 \0 \0 \0 \0 0007060 \0 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 0007100 \0 006 \0 \0 \0 002 \0 001 \0 \v H R U L E . 0007120 G E T F N 001 \0 024 \0 006 M O D E R N 0007140 \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 0007160 \0 \0 003 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 002 \0 0007200 001 \0 \v H R U L E . G E T F N 001 \0 0007220 024 \0 006 M O D E R N \0 \f \0 \0 \0 \0 \0 0007240 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 0007260 \0 002 \0 004 \0 \0 \0 \r \0 \0 \0 \0 004 \0 \0 \0 0007300 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R U 0007320 L E . G E T F N 001 \0 024 \0 006 M O D 0007340 E R N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 0007360 001 \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 006 \0 \0 0007400 \0 002 \0 001 \0 \v H R U L E . G E T F 0007420 N 001 \0 024 \0 006 M O D E R N \0 \f \0 \0 0007440 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 \0 \0 004 \0 0007460 \0 \0 \0 \0 002 \0 001 \0 \0 \0 \0 \0 \0 \0 003 0007500 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \f \0 \0 \0 \0 0007520 002 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 0007540 \0 005 \0 \0 001 _ \0 \0 \0 \0 003 \0 \0 \0 \0 \0 0007560 002 \0 002 \0 \0 \0 017 \0 \0 \0 \0 003 \0 \0 \0 006 0007600 \0 \0 \0 \0 006 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 0007620 \0 001 \0 \0 \0 \0 001 \0 \0 \0 \v \0 \0 \0 \0 003 0007640 \0 \0 \0 \0 \0 002 \0 003 \0 \0 001 025 \0 \0 \0 \0 0007660 003 \0 \0 \0 033 \0 \0 002 \0 003 \0 \0 \0 036 \0 \0 0007700 \0 \0 003 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 025 \0 0007720 \0 \0 \0 003 \0 \0 \0 006 \0 \0 \0 \0 006 \0 \0 \0 0007740 001 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 001 \0 0007760 \0 \0 \v \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 003 0010000 \0 \0 \0 251 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 0010020 002 \0 \0 \0 016 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 0010040 \0 \0 001 \0 \0 \0 022 \0 \0 \0 \0 003 \0 \0 \0 \0 0010060 \0 002 \0 002 \0 \0 \0 \f \0 \0 \0 \0 003 \0 \0 \0 0010100 001 \0 \0 \0 \0 001 \0 \0 \0 022 \0 \0 \0 \0 003 \0 0010120 \0 \0 \0 \0 002 \0 002 \0 \0 \0 \f \0 \0 \0 \0 003 0010140 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 022 \0 \0 \0 0010160 \0 003 \0 \0 \0 \0 \0 002 \0 003 \0 \0 001 211 \0 \0 0010200 \0 \0 003 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 \f \0 0010220 \0 \0 \0 003 \0 \0 \0 006 \0 \0 \0 \0 006 \0 \0 \0 0010240 001 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 001 \0 0010260 \0 \0 \v \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 003 0010300 \0 \0 \0 8 \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0 002 0010320 \0 003 \0 \0 \0 230 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 0010340 002 \0 002 \0 \0 \0 " \0 \0 \0 \0 003 \0 \0 \0 001 0010360 \0 \0 \0 \0 001 \0 \0 \0 022 \0 \0 \0 \0 003 \0 \0 0010400 \0 \0 \0 002 \0 003 \0 \0 001 016 \0 \0 \0 \0 003 \0 0010420 \0 \0 \0 \0 002 \0 003 \0 \0 \b 033 \0 O z 272 0010437