$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>MAGNIFIER.DCOM!1
0000000 ( F I L E C R E A T E D " 1 8
0000020 - M a r - 8 6 1 0 : 5 3 : 3 3
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < B U R T O
0000100 N > M A G N I F I E R . ; 1 0 )
0000120 " 1 - M a r - 8 6 0 1 : 2
0000140 9 : 1 0 " \r r e c o m p i l e
0000160 d e x p r s : M A G T R A C
0000200 K i n " X e r o x L i s p
0000220 1 - M a r - 8 6 . . . "
0000240 d a t e d " 1 - M a r - 8 6
0000260 0 1 : 4 2 : 0 1 " ) \r ( F I L
0000300 E C R E A T E D " 1 8 - M a r
0000320 - 8 6 1 0 : 5 3 : 0 0 " { P
0000340 H Y L U M } < B U R T O N > M A
0000360 G N I F I E R . ; 1 0 1 0 0 8
0000400 2 c h a n g e s t o : ( F
0000420 N S M A G T R A C K ) \r p r
0000440 e v i o u s d a t e : " 1 4
0000460 - M a r - 8 6 1 6 : 2 0 : 1 4
0000500 " { P H Y L U M } < B U R T O
0000520 N > M A G N I F I E R . ; 9 ) \r
0000540 M A G N I F Y W D 1 \r ( I 0
0000560 W I N ) \0 7 \0 \0 \0 001 @ \t \0 \0
0000600 263 025 l 034 d h g \0 \0 \f \0 \0 h l \f \v
0000620 \0 \0 b \0 277 @ g \0 \0 g \0 \0 \v \0 \0 @
0000640 g \0 \0 g \0 \0 \v \0 \0 n 377 377 @ \n \0 \0
0000660 h 020 \0 ( 6 3 Q D S P T E X T U
0000700 R E 5 4 Q P U T W I N D O W
0000720 P R O P 4 2 Q P U T W I N D
0000740 O W P R O P 2 5 Q C R E A T
0000760 E W 1 7 Q G E T R E G I O N
0001000 3 W I N D O W P ) \r ( 5 1 Q
0001020 O N F O U R G R I D 4 6 Q
0001040 N E W R E G I O N F N 3 7 Q
0001060 M A G T R A C K 3 4 Q B U T
0001100 T O N E V E N T F N 1 4 Q O
0001120 N F O U R G R I D ) \r ( ) \r M A
0001140 G S H O W D 1 \r ( I 6 E X
0001160 P A N D E D B I T M A P I 5
0001200 N E A R C U R S O R B I T M A
0001220 P I 4 H G H T I 3 W
0001240 I D I 2 Y I 1 X I
0001260 0 W I N ) \0 036 \0 \0 \0 \a ` \0
0001300 \0 A B E j d C D \r \b \0 \0 E F \n \0
0001320 \0 j d @ j d \r 006 \0 \0 020 \0 ( 3 3 Q
0001340 B I T B L T 2 2 Q \ E X P
0001360 A N D B I T M A P B Y 4 1 5 Q
0001400 B I T B L T ) \r ( 2 S c r e
0001420 e n B i t M a p ) \r ( ) \r M A G
0001440 T R A C K A 0 0 0 2 A 0 0 0 3
0001460 D 1 \r ( N A M E E R R O R S E
0001500 T L ( 0 N I L ) F 2
0001520 L F T F 3 B T M F 4
0001540 W I D T H F 5 H E I G H T
0001560 F 6 C U R X F 7 C U
0001600 R Y F 1 0 Q M O U S E B E
0001620 E N U P F 1 1 Q M A C R O
0001640 Y F 1 2 Q W I N F 1 3
0001660 Q N E A R C U R S O R B I T M
0001700 A P F 1 4 Q E X P A N D E
0001720 D B I T M A P ) 001 003 002 \v 002 \0 W
0001740 020 262 " \b \0 \0 277 ` \0 \0 l \a 345 021 001 \0
0001760 H j 360 265 \v H 005 003 264 006 H \t \0 \0 022 h
0002000 360 260 $ \b \0 \0 277 ` \0 \0 l \a 345 021 001 \0
0002020 H j 360 265 \v H 005 003 264 006 H \t \0 \0 022 232
0002040 i c 020 277 h 224 h c 022 i 020 V ` \0 \0 360
0002060 227 W 016 ` \0 \0 360 263 250 R 262 ! R l 002 325
0002100 S l 002 325 R T l 002 324 324 S U l 002 324 324
0002120 \b \0 \0 n 377 377 \r 006 \0 \0 277 ` \0 \0 c \f
0002140 277 ` \0 \0 c 016 277 ` \0 \0 T 325 V T l 002
0002160 333 325 021 002 001 H d I 361 221 277 I 022 021 001 \0
0002200 j H 361 241 H 200 j 022 c 004 277 ` \0 \0 U 325
0002220 W 016 U l 002 333 325 021 002 001 H d I 361 221 277
0002240 I 022 021 001 \0 j H 361 241 H 200 j 022 c 006 277
0002260 R l 002 325 S l 002 325 R T l 002 324 324 S U
0002300 l 002 324 324 \b \0 \0 n 377 377 \r 006 \0 \0 277 W
0002320 024 R S T U W 026 W 030 \r \a \0 \0 277 261 377
0002340 001 \0 ( 3 7 5 Q M A G S H O W
0002360 3 5 6 Q D R A W G R A Y B O X
0002400 3 4 7 Q S C R E E N B I T M
0002420 A P 1 7 2 Q D R A W G R A Y
0002440 B O X 1 6 3 Q S C R E E N B
0002460 I T M A P 7 6 Q \ F Z E R O
0002500 P 4 6 Q G E T M O U S E S T
0002520 A T E 3 6 Q \ F Z E R O P
0002540 6 G E T M O U S E S T A T E )
0002560 \r ( 2 5 6 Q S C R E E N H E I
0002600 G H T 2 1 2 Q S C R E E N W
0002620 I D T H 2 0 4 Q L A S T M O
0002640 U S E Y 1 7 6 Q L A S T M O
0002660 U S E X 1 2 6 Q L A S T M O
0002700 U S E Y 1 1 7 Q L A S T M O
0002720 U S E X 5 2 Q L A S T M O U
0002740 S E B U T T O N S 1 2 Q L A
0002760 S T M O U S E B U T T O N S ) \r
0003000 ( ) \r M A G T R A C K A 0 0 0 2
0003020 D 1 \r ( N A M E E R R O R S
0003040 E T P 3 R E S E T S T A T
0003060 E P 2 M A C R O Y P 0
0003100 O L D V A L U E F 4 R E
0003120 S E T V A R S L S T F 5 E
0003140 M P T Y C U R S O R ) \0 < 004 002
0003160 002 \0 U \t \0 \0 021 1 003 g \0 \0 H h 032 032
0003200 h 032 T 032 c \b 271 o \0 \0 \0 g \0 \0 \n \0
0003220 \0 243 g \0 \0 273 I 002 c \b 277 g \0 \0 I 001
0003240 001 002 \n \0 \0 277 K 222 \b \0 \0 i 020 \0 ( 7
0003260 0 Q E R R O R ! 6 2 Q A P
0003300 P L Y 3 6 Q M A G T R A C K
0003320 A 0 0 0 2 A 0 0 0 3 3 C U R
0003340 S O R ) \r ( 5 3 Q C U R S O R
0003360 4 2 Q E R R O R 3 3 Q I
0003400 N T E R N A L 1 1 Q C U R S
0003420 O R ) \r ( 3 0 Q ( M A G T R
0003440 A C K A 0 0 0 2 A 0 0 0 3 ) ) \r
0003460 M A G T R A C K D 1 \r ( P 1
0003500 3 Q M O U S E B E E N U P P
0003520 1 2 Q B T M P 1 1 Q L
0003540 F T P 1 0 Q C U R Y P
0003560 7 C U R X P 6 E X P A N
0003600 D E D B I T M A P P 5 N E
0003620 A R C U R S O R B I T M A P P
0003640 4 H E I G H T P 3 W I
0003660 D T H I 0 W I N ) \0 r \r
0003700 \0 \0 001 h @ \n \0 \0 021 301 \f ` \0 \0 l \a
0003720 345 _ 030 j 360 263 ] O 030 005 003 226 O 030 \t \0
0003740 \0 263 Q @ \t \0 \0 H 002 002 001 Y l 004 327 [
0003760 H 002 002 002 001 Z l 004 327 \ \n \0 \0 ] I J
0004000 \n \0 \0 ^ o \0 \0 \0 i \n \0 \0 O 024 264 %
0004020 O 022 l 002 325 O 024 l 002 325 O 022 K l 002 324
0004040 324 O 024 L l 002 324 324 \b \0 \0 n 377 377 \r 006
0004060 \0 \0 h 020 \0 ( 1 5 6 Q D R A W G
0004100 R A Y B O X 1 4 7 Q S C R E
0004120 E N B I T M A P 1 1 0 Q M A
0004140 G T R A C K A 0 0 0 2 7 7 Q
0004160 B I T M A P C R E A T E 7 1 Q
0004200 B I T M A P C R E A T E 4 3
0004220 Q C L E A R W 3 5 Q \ F Z
0004240 E R O P 4 D S P C L I P P I
0004260 N G R E G I O N ) \r ( 1 2 Q L
0004300 A S T M O U S E B U T T O N S )
0004320 \r ( 1 0 4 Q ( M A G T R A C
0004340 K A 0 0 0 2 ) ) \r O N F O U R G
0004360 R I D D 1 \r ( L ( 1 M O V
0004400 E P T 0 F I X P T ) ) \0 /
0004420 \0 \0 \0 002 A 265 030 @ d 001 @ 001 l 003 345 325
0004440 030 @ d 002 @ 002 l 003 345 325 031 @ 020 d 001 A
0004460 001 l 003 345 325 030 A d 002 A 002 l 003 345 325 031
0004500 A 020 \0 N I L \r N I L \r ( ) \r \ E
0004520 X P A N D B I T M A P B Y 4 D
0004540 1 \r ( P 5 C P 4 I P
0004560 2 N U W P 1 B M W P
0004600 0 B M H I 1 T A R G E
0004620 T I 0 S O U R C E ) \0 230
0004640 006 \0 \0 002 @ 006 \0 \0 310 003 @ 006 \0 \0 310 004
0004660 021 022 002 I l 004 332 Z H k 331 j d 021 003 005
0004700 L K 363 263 v @ 006 \0 \0 311 \0 H L k 330 331
0004720 @ 006 \0 \0 310 002 332 320 A 006 \0 \0 311 \0 A 006
0004740 \0 \0 310 003 M k 330 331 A 006 \0 \0 310 002 332 320
0004760 A 006 \0 \0 310 002 ` \0 \0 006 \0 \0 311 \0 \f \0
0005000 \0 277 A j M A j M k 330 J k g \0 \0 g
0005020 \0 \0 \r \n \0 \0 277 A j M A j M l 002 330
0005040 J l 002 g \0 \0 g \0 \0 \r \n \0 \0 277 L k
0005060 324 274 M l 004 324 275 260 211 A 020 \0 ( 2 1 0
0005100 Q B I T B L T 1 6 1 Q B I
0005120 T B L T 1 3 4 Q \ F F A S T
0005140 4 B I T ) \r ( 2 0 4 Q R E P L
0005160 A C E 2 0 1 Q I N P U T 1
0005200 5 5 Q R E P L A C E 1 5 2 Q
0005220 I N P U T 1 2 7 Q A R R A
0005240 Y P 1 2 4 Q \ 4 B I T E X P
0005260 A N S I O N T A B L E 1 1 7 Q
0005300 B I T M A P 1 0 7 Q B I T
0005320 M A P 7 5 Q B I T M A P 6
0005340 7 Q B I T M A P 5 7 Q B I
0005360 T M A P 4 4 Q B I T M A P
0005400 1 1 Q B I T M A P 3 B I T
0005420 M A P ) \r ( ) \r \ F F A S T 4 B
0005440 I T D 1 \r ( L ( 3 M A P B
0005460 A S E 2 N 1 B 0 A )
0005500 ) \0 j 003 \0 \0 004 j d 021 022 002 @ H 320
0005520 272 B I 361 241 h 020 A I 320 C J 312 \0 003 320
0005540 310 \0 315 \0 277 B I k 324 Y 361 264 353 A I 320
0005560 C J 312 \0 C 320 310 \0 315 \0 277 B I k 324 Y
0005600 361 264 325 A I 320 C J 312 \0 203 320 310 \0 315 \0
0005620 277 B I k 324 Y 361 264 277 A I 320 C J 312 \0
0005640 303 320 310 \0 315 \0 277 I k 324 271 H k 324 270 260
0005660 236 \0 N I L \r N I L \r ( ) \r ( P R
0005700 E T T Y C O M P R I N T M A G
0005720 N I F I E R C O M S ) \r ( R P A
0005740 Q Q M A G N I F I E R C O M S
0005760 ( ( F N S M A G N I F Y W
0006000 M A G S H O W M A G T R A C K
0006020 O N F O U R G R I D \ E X P
0006040 A N D B I T M A P B Y 4 \ F F
0006060 A S T 4 B I T ) ( V A R S (
0006100 \r B a c k g r o u n d M e n u )
0006120 ) ( C U R S O R S E M P T Y
0006140 C U R S O R ) ( A D D V A R S
0006160 ( B a c k g r o u n d M e n u
0006200 C o m m a n d s ( " M a g n i
0006220 f i e r " ( M A G N I F Y W )
0006240 \r " f o r e n l a r g i n g
0006260 t h e s c r e e n a r o u
0006300 n d t h e c u r s o r ; \r
0006320 c l i c k t o s t a
0006340 r t , c l i c k t o s t o
0006360 p . " ) ) ) ( D E C L A R E :
0006400 E V A L @ C O M P I L E D O
0006420 N T C O P Y D O N T E V A L @
0006440 L O A D ( F I L E S ( L O A
0006460 D C O M P \r ) L L A R R A Y E
0006500 L T ) ) ) ) \r ( R P A Q Q B a
0006520 c k g r o u n d M e n u N I L
0006540 ) \r ( R P A Q E M P T Y C U R
0006560 S O R ( C U R S O R C R E A T
0006600 E ( R E A D B I T M A P ) N
0006620 I L 7 7 ) ) \r ( 1 6 1 6
0006640 " @ @ @ @ " " @ @ @ @ " " @
0006660 @ @ @ " " @ @ @ @ " " @ @ @
0006700 @ " " @ @ @ @ " " @ @ @ @ "
0006720 " @ @ @ @ " " @ @ @ @ " "
0006740 @ @ @ @ " " @ @ @ @ " " @ @
0006760 @ @ " " @ @ @ @ " \r " @ @ @
0007000 @ " " @ @ @ @ " " @ @ @ @ "
0007020 ) \r ( A D D T O V A R B a c k
0007040 g r o u n d M e n u C o m m a n
0007060 d s ( " M a g n i f i e r "
0007100 ( M A G N I F Y W ) \r " f o r
0007120 e n l a r g i n g t h e s
0007140 c r e e n a r o u n d t h e
0007160 c u r s o r ; \r c l
0007200 i c k t o s t a r t , c l
0007220 i c k t o s t o p . " ) ) \r
0007240 ( P U T P R O P S M A G N I F
0007260 I E R C O P Y R I G H T ( "
0007300 X e r o x C o r p o r a t i o
0007320 n " 1 9 8 6 ) ) \r N I L \r
0007336