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