$ od -c -N 50000 [eris]<Lisp>Carol>SOURCES>IMAGEIO.DCOM!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - N O V - 8 3 1 8 : 2 5 : 2 0
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > I M A G
0000120 E I O . ; 8 ) \r " 1 0 - N O V
0000140 - 8 3 2 0 : 4 3 : 5 5 " b r
0000160 e c o m p i l e d e x p l i c
0000200 i t l y : \ D I S P L A Y I N
0000220 I T i n W O R K d a t e d
0000240 " 1 0 - N O V - 8 3 2 0 : 5
0000260 7 : 5 4 " ) \r ( F I L E C R E A
0000300 T E D " 8 - N O V - 8 3 2
0000320 0 : 5 8 : 4 5 " { P H Y L U M
0000340 } < L I S P C O R E > S O U R C
0000360 E S > I M A G E I O . ; 8 1 2
0000400 9 1 3 c h a n g e s t o :
0000420 ( F N S \r \ D I S P L A Y I N
0000440 I T ) p r e v i o u s d a t
0000460 e : " 1 4 - O C T - 8 3 1 6
0000500 : 0 8 : 1 0 " { P H Y L U M }
0000520 < L I S P C O R E > S O U R C E
0000540 S > I M A G E I O . ; 7 ) \r I M
0000560 A G E S T R E A M P D 1 \r N I
0000600 L \0 6 004 \0 002 \0 e 021 001 \0 H j 361 264
0000620 003 @ 021 ! 003 I d 004 ` \0 \0 360 241 h 020 311
0000640 & 311 \0 Z H k 361 237 @ [ J 360 255 J 003 264
0000660 \r K J 034 264 \b i 200 J 264 003 I 020 \0 N I
0000700 L \r ( 2 2 Q 004 003 S T R E A M T
0000720 Y P E # ) \r N I L \r I M A G E S
0000740 T R E A M T Y P E D 1 \r ( L
0000760 ( 0 S T R E A M ) ) \0 \n \0 \0
0001000 \0 001 @ 006 \0 \0 311 & 311 \0 020 \0 N I L \r
0001020 ( 3 S T R E A M ) \r N I L \r I
0001040 M A G E S T R E A M T Y P E P
0001060 D 1 \r ( L ( 1 T Y P E 0
0001100 S T R E A M ) ) \0 " 002 \0 \0 002 @
0001120 004 ` \0 \0 360 264 032 A @ 311 & 311 \0 021 002 001
0001140 H I 360 265 \f I 003 264 \b H I 034 264 003 i 020
0001160 \0 N I L \r ( 4 004 003 S T R E A M
0001200 T Y P E # ) \r N I L \r D S P F O
0001220 N T D 1 \r ( I 1 S T R E A
0001240 M I 0 F O N T ) \0 030 001 \0
0001260 \0 002 A g \0 \0 \n \0 \0 b 002 311 & 311 \b 021
0001300 001 \0 A @ l 002 H 016 020 \0 ( 6 \ G E
0001320 T S T R E A M ) \r ( 3 O U T P
0001340 U T ) \r N I L \r D S P L E F T M
0001360 A R G I N D 1 \r ( I 1 S T
0001400 R E A M I 0 X P O S I T I
0001420 O N ) \0 030 001 \0 \0 002 A g \0 \0 \n \0
0001440 \0 b 002 311 & 311 \n 021 001 \0 A @ l 002 H 016
0001460 020 \0 ( 6 \ G E T S T R E A M )
0001500 \r ( 3 O U T P U T ) \r N I L \r
0001520 D S P L I N E F E E D D 1 \r (
0001540 I 1 S T R E A M I 0 D
0001560 E L T A Y ) \0 030 001 \0 \0 002 A g \0
0001600 \0 \n \0 \0 b 002 311 & 311 016 021 001 \0 A @ l
0001620 002 H 016 020 \0 ( 6 \ G E T S T R E
0001640 A M ) \r ( 3 O U T P U T ) \r N
0001660 I L \r D S P R I G H T M A R G I
0001700 N D 1 \r ( I 1 S T R E A M
0001720 I 0 X P O S I T I O N )
0001740 \0 030 001 \0 \0 002 A g \0 \0 \n \0 \0 b 002 311
0001760 & 311 \f 021 001 \0 A @ l 002 H 016 020 \0 ( 6
0002000 \ G E T S T R E A M ) \r ( 3
0002020 O U T P U T ) \r N I L \r D S P X
0002040 P O S I T I O N D 1 \r ( I 1
0002060 S T R E A M I 0 X P O S
0002100 I T I O N ) \0 030 001 \0 \0 002 A g \0
0002120 \0 \n \0 \0 b 002 311 & 311 004 021 001 \0 A @ l
0002140 002 H 016 020 \0 ( 6 \ G E T S T R E
0002160 A M ) \r ( 3 O U T P U T ) \r N
0002200 I L \r D S P Y P O S I T I O N
0002220 D 1 \r ( I 1 S T R E A M I
0002240 0 Y P O S I T I O N ) \0 030
0002260 001 \0 \0 002 A g \0 \0 \n \0 \0 b 002 311 & 311
0002300 006 021 001 \0 A @ l 002 H 016 020 \0 ( 6 \
0002320 G E T S T R E A M ) \r ( 3 O U
0002340 T P U T ) \r N I L \r D R A W B E
0002360 T W E E N D 1 \r ( I 5 C O
0002400 L O R I 4 S T R E A M I
0002420 3 O P E R A T I O N I 2
0002440 W I D T H I 1 P T 2 I
0002460 0 P T 1 ) \0 " 001 \0 \0 006 D g
0002500 \0 \0 \n \0 \0 b \b 311 & 311 020 021 001 \0 D @
0002520 001 @ 002 A 001 A 002 B C E l \b H 016 020 \0
0002540 ( 6 \ G E T S T R E A M ) \r (
0002560 3 O U T P U T ) \r N I L \r D R
0002600 A W C I R C L E D 1 \r ( I 5
0002620 S T R E A M I 4 D A S H
0002640 I N G I 3 B R U S H I
0002660 2 R A D I U S I 1 C E N
0002700 T E R Y I 0 C E N T E R X
0002720 ) \0 034 001 \0 \0 006 E g \0 \0 \n \0 \0 b
0002740 \n 311 & 311 024 021 001 \0 E @ A B C D l 006
0002760 H 016 020 \0 ( 6 \ G E T S T R E A
0003000 M ) \r ( 3 O U T P U T ) \r N I
0003020 L \r D R A W C U R V E D 1 \r (
0003040 I 4 S T R E A M I 3 D
0003060 A S H I N G I 2 B R U S H
0003100 I 1 C L O S E D I 0
0003120 K N O T S ) \0 033 001 \0 \0 005 D g \0
0003140 \0 \n \0 \0 b \b 311 & 311 022 021 001 \0 D @ A
0003160 B C l 005 H 016 020 \0 ( 6 \ G E T S
0003200 T R E A M ) \r ( 3 O U T P U T
0003220 ) \r N I L \r D R A W E L L I P S
0003240 E D 1 \r ( L ( 7 S T R E A
0003260 M 6 D A S H I N G 5 B R
0003300 U S H 4 O R I E N T A T I O
0003320 N 3 S E M I M A J O R R A D
0003340 I U S 2 S E M I M I N O R R
0003360 A D I U S 1 C E N T E R Y
0003400 0 C E N T E R X ) ) \0 001 \0
0003420 \0 \b G 016 g \0 \0 \n \0 \0 b 016 311 & 311 026
0003440 021 001 \0 G 016 @ A B C D E F l \b H 016
0003460 020 \0 ( 7 \ G E T S T R E A M )
0003500 \r ( 4 O U T P U T ) \r N I L \r
0003520 D R A W L I N E D 1 \r ( I 7
0003540 C O L O R I 6 S T R E A
0003560 M I 5 O P E R A T I O N
0003600 I 4 W I D T H I 3 Y 2
0003620 I 2 X 2 I 1 Y 1 I
0003640 0 X 1 ) \0 037 001 \0 \0 \b F g \0
0003660 \0 \n \0 \0 b \f 311 & 311 020 021 001 \0 F @ A
0003700 B C D E G 016 l \b H 016 020 \0 ( 6 \
0003720 G E T S T R E A M ) \r ( 3 O U
0003740 T P U T ) \r N I L \r D R A W T O
0003760 D 1 \r ( I 5 C O L O R I
0004000 4 S T R E A M I 3 O P
0004020 E R A T I O N I 2 W I D T
0004040 H I 1 Y I 0 X ) \0
0004060 0 003 \0 \0 006 D g \0 \0 \n \0 \0 b \b 311 &
0004100 311 020 021 ! 002 D d 311 & 311 004 271 D k I 016
0004120 D 311 & 311 006 272 D k J 016 @ A B C E l
0004140 \b H 016 020 \0 ( 6 \ G E T S T R E
0004160 A M ) \r ( 3 O U T P U T ) \r N
0004200 I L \r F I L L C I R C L E D 1
0004220 \r ( I 4 S T R E A M I 3
0004240 T E X T U R E I 2 R A D
0004260 I U S I 1 C E N T E R Y
0004300 I 0 C E N T E R X ) \0 033 001
0004320 \0 \0 005 D g \0 \0 \n \0 \0 b \b 311 & 311 030
0004340 021 001 \0 D @ A B C l 005 H 016 020 \0 ( 6
0004360 \ G E T S T R E A M ) \r ( 3
0004400 O U T P U T ) \r N I L \r R E L D
0004420 R A W T O D 1 \r ( P 2 O R
0004440 I G Y P 1 O R I G X P
0004460 0 S T R M I 5 C O L O R
0004500 I 4 S T R E A M I 3
0004520 O P E R A T I O N I 2 W I
0004540 D T H I 1 D Y I 0 D
0004560 X ) \0 6 006 \0 \0 006 D g \0 \0 \n \0 \0
0004600 021 Q 005 H 311 & 311 020 273 H d 311 & 311 004 274
0004620 H k L 016 Y H 311 & 311 006 275 H k M 016 Z
0004640 I @ 330 J A 330 B C E l \b K 016 020 \0 (
0004660 6 \ G E T S T R E A M ) \r ( 3
0004700 O U T P U T ) \r N I L \r \ I M
0004720 A G E I O I N I T D 1 \r N I L
0004740 \0 p \0 \0 \0 \0 ` \0 \0 037 d h 024 \0 277
0004760 d g \0 \0 024 002 277 d g \0 \0 024 004 277 d g
0005000 \0 \0 024 006 277 d g \0 \0 024 \b 277 d g \0 \0
0005020 024 \n 277 d g \0 \0 024 \f 277 d g \0 \0 024 016
0005040 277 d g \0 \0 024 020 277 d g \0 \0 024 022 277 d
0005060 g \0 \0 024 024 277 d g \0 \0 024 026 277 d g \0
0005100 \0 024 030 277 d g \0 \0 024 032 277 d g \0 \0 024
0005120 034 277 027 \0 \0 020 \0 N I L \r ( 1 5 5 Q
0005140 \ N O I M A G E O P S 1 4 7
0005160 Q \ I L L E G A L . A R G 1
0005200 4 0 Q \ I L L E G A L . A R G
0005220 1 3 1 Q \ I L L E G A L . A
0005240 R G 1 2 2 Q \ I L L E G A L
0005260 . A R G 1 1 3 Q \ I L L E G
0005300 A L . A R G 1 0 4 Q \ I L L
0005320 E G A L . A R G 7 5 Q \ I L
0005340 L E G A L . A R G 6 6 Q \ I
0005360 L L E G A L . A R G 5 7 Q \
0005400 I L L E G A L . A R G 5 0 Q
0005420 \ I L L E G A L . A R G 4 1 Q
0005440 \ I L L E G A L . A R G 3 2
0005460 Q \ I L L E G A L . A R G 2
0005500 3 Q \ I L L E G A L . A R G
0005520 1 4 Q N I L L 2 004 003 I M A
0005540 G E O P S T Y P E # ) \r N I L \r
0005560 \ D i s p l a y E v e n t F n
0005600 D 1 \r ( I 1 E V E N T I
0005620 0 F D E V ) \0 _ \0 \0 \0 002 A d
0005640 g \0 \0 360 227 277 g \0 \0 \t \0 \0 020 g \0 \0
0005660 360 226 g \0 \0 \t \0 \0 020 A d g \0 \0 360 227
0005700 277 g \0 \0 \t \0 \0 020 g \0 \0 360 226 g \0 \0
0005720 \t \0 \0 020 A g \0 \0 360 247 A d g \0 \0 360
0005740 227 277 g \0 \0 \t \0 \0 020 g \0 \0 360 246 A g
0005760 \0 \0 360 264 \b g \0 \0 \t \0 \0 020 \0 ( 1 3
0006000 4 Q D I S P L A Y A F T E R E
0006020 N T R Y 1 1 1 Q D I S P L A
0006040 Y B E F O R E E X I T 6 4 Q
0006060 D I S P L A Y A F T E R E N T R
0006100 Y 5 0 Q D I S P L A Y B E F
0006120 O R E E X I T 3 1 Q D I S P
0006140 L A Y A F T E R E N T R Y 1 5
0006160 Q D I S P L A Y B E F O R E E
0006200 X I T ) \r ( 1 3 1 Q S Y S O U
0006220 T 1 2 3 Q A F T E R S A V E
0006240 V M 1 1 5 Q A F T E R S Y S
0006260 O U T 1 0 6 Q S Y S O U T
0006300 1 0 0 Q B E F O R E S A V E V
0006320 M 7 1 Q B E F O R E S Y S O
0006340 U T 6 1 Q M A K E S Y S 5
0006360 4 Q A F T E R M A K E S Y S
0006400 4 5 Q M A K E S Y S 3 7 Q
0006420 B E F O R E M A K E S Y S 2 6
0006440 Q L O G O U T 2 1 Q A F T
0006460 E R L O G O U T 1 2 Q L O G
0006500 O U T 4 B E F O R E L O G O
0006520 U T ) \r N I L \r \ D I S P L A Y
0006540 I N I T A 0 5 4 5 D 1 \r ( L
0006560 ( 4 F D E V 3 O T H E R I
0006600 N F O 2 R E C O G 1 A C
0006620 C E S S 0 N A M E ) ) \0 003
0006640 \0 \0 \0 005 @ 020 \0 N I L \r N I L \r (
0006660 ) \r \ D I S P L A Y I N I T A 0
0006700 5 5 2 D 1 \r ( L ( 2 F D E
0006720 V 1 R E C O G 0 N A M E
0006740 ) ) \0 003 \0 \0 \0 003 @ 020 \0 N I L \r
0006760 N I L \r ( ) \r \ D I S P L A Y I
0007000 N I T A 0 5 5 4 D 1 \r ( L (
0007020 0 N A M E ) ) \0 003 \0 \0 \0 001 @
0007040 020 \0 N I L \r N I L \r ( ) \r \ D I
0007060 S P L A Y I N I T D 1 \r N I L
0007100 001 O \0 \0 \0 \0 ` \0 \0 037 d g \0 \0 024
0007120 \0 277 d g \0 \0 024 \b 277 d g \0 \0 024 \n 277
0007140 d g \0 \0 024 \f 277 d g \0 \0 024 016 277 d g
0007160 \0 \0 024 004 277 d g \0 \0 024 006 277 d g \0 \0
0007200 024 002 277 d g \0 \0 024 022 277 d g \0 \0 024 030
0007220 277 d g \0 \0 024 020 277 d g \0 \0 024 026 277 d
0007240 g \0 \0 024 024 277 d g \0 \0 024 034 277 027 \0 \0
0007260 ` \0 \0 037 d g \0 \0 024 \0 277 d j 317 \0 \0
0007300 277 d j 317 \0 020 277 d j 317 \0 0 277 d g \0
0007320 \0 024 002 277 d g \0 \0 024 004 277 d g \0 \0 024
0007340 \f 277 d g \0 \0 024 022 277 d g \0 \0 024 024 277
0007360 d g \0 \0 024 030 277 d g \0 \0 024 \n 277 d g
0007400 \0 \0 024 032 277 d g \0 \0 024 034 277 d g \0 \0
0007420 024 016 277 d g \0 \0 024 026 277 d g \0 \0 024 \b
0007440 277 d g \0 \0 024 006 277 d g \0 \0 024 020 277 d
0007460 g \0 \0 024 036 277 d g \0 \0 024 277 d g \0
0007500 \0 024 " 277 d g \0 \0 024 & 277 d g \0 \0 024
0007520 6 277 d g \0 \0 024 8 277 d g \0 \0 024 : 277
0007540 d g \0 \0 024 4 277 d g \0 \0 024 2 277 d g
0007560 \0 \0 024 0 277 d g \0 \0 024 . 277 d g \0 \0
0007600 024 * 277 d g \0 \0 024 $ 277 027 \0 \0 h ` \0
0007620 \0 \n \0 \0 020 \0 ( 5 1 4 Q \ D E F
0007640 I N E D E V I C E ) \r ( 5 1 1 Q
0007660 D i s p l a y F D E V 5 0 5
0007700 Q D i s p l a y F D E V 4 7
0007720 7 Q \ G E N E R I C . R E A D
0007740 P 4 7 0 Q N I L L 4 6 1 Q
0007760 \ I S . N O T . R A N D A C C
0010000 E S S P 4 5 2 Q \ I L L E G
0010020 A L . D E V I C E O P 4 4 3 Q
0010040 \ I S . N O T . R A N D A C C
0010060 E S S P 4 3 4 Q \ I L L E G
0010100 A L . D E V I C E O P 4 2 5 Q
0010120 \ G E N E R I C . R E N A M E
0010140 F I L E 4 1 6 Q \ N O N P A
0010160 G E D B O U T S 4 0 7 Q \ I
0010200 L L E G A L . D E V I C E O P
0010220 4 0 0 Q \ P A G E D B A C K F
0010240 I L E P T R 3 7 1 Q \ I L L
0010260 E G A L . D E V I C E O P 3 6
0010300 2 Q \ D S P P R I N T C H A R
0010320 3 5 3 Q \ I L L E G A L . D
0010340 E V I C E O P 3 4 4 Q N I L
0010360 L 3 3 5 Q N I L L 3 2 6 Q
0010400 \ D i s p l a y E v e n t F n
0010420 3 1 7 Q \ D I S P L A Y I N
0010440 I T A 0 5 5 4 3 1 0 Q \ D I
0010460 S P L A Y I N I T A 0 5 5 2 3
0010500 0 1 Q \ I L L E G A L . D E V
0010520 I C E O P 2 7 2 Q N I L L
0010540 2 6 3 Q \ G E N E R A T E N O
0010560 F I L E S 2 5 4 Q N I L L
0010600 2 4 5 Q \ I L L E G A L . D E
0010620 V I C E O P 2 3 6 Q \ D I S
0010640 P L A Y I N I T A 0 5 4 5 2 2
0010660 7 Q N I L L 2 2 0 Q N I L
0010700 L 2 1 1 Q N I L L 1 6 0 Q
0010720 D I S P L A Y 1 5 3 Q 004 003
0010740 F D E V T Y P E # 1 5 0 Q \
0010760 D I S P L A Y I M A G E O P S
0011000 1 4 2 Q \ B I T B L T . D I S
0011020 P L A Y 1 3 3 Q \ D R A W C
0011040 I R C L E . D I S P L A Y 1 2
0011060 4 Q \ D R A W E L L I P S E .
0011100 D I S P L A Y 1 1 5 Q \ D R
0011120 A W L I N E . D I S P L A Y 1
0011140 0 6 Q \ F I L L C I R C L E .
0011160 D I S P L A Y 7 7 Q \ D R A
0011200 W C U R V E . D I S P L A Y 7
0011220 0 Q N I L L 6 1 Q \ D S P
0011240 Y P O S I T I O N . D I S P L A
0011260 Y 5 2 Q \ D S P X P O S I T
0011300 I O N . D I S P L A Y 4 3 Q
0011320 \ D S P L I N E F E E D . D I S
0011340 P L A Y 3 4 Q \ D S P R I G
0011360 H T M A R G I N . D I S P L A Y
0011400 2 5 Q \ D S P L E F T M A R
0011420 G I N . D I S P L A Y 1 6 Q
0011440 \ D S P F O N T . D I S P L A Y
0011460 7 D I S P L A Y 2 004 003 I
0011500 M A G E O P S T Y P E # ) \r ( )
0011520 \r ( P R E T T Y C O M P R I N T
0011540 I M A G E I O C O M S ) \r ( R
0011560 P A Q Q I M A G E I O C O M S
0011600 ( ( F N S I M A G E S T R E
0011620 A M P I M A G E S T R E A M T
0011640 Y P E I M A G E S T R E A M T
0011660 Y P E P ) ( F N S D S P F O
0011700 N T D S P L E F T M A R G I N
0011720 \r D S P L I N E F E E D D S
0011740 P R I G H T M A R G I N D S P
0011760 X P O S I T I O N D S P Y P O
0012000 S I T I O N ) ( F N S D R A
0012020 W B E T W E E N D R A W C I R
0012040 C L E D R A W C U R V E \r D
0012060 R A W E L L I P S E D R A W L
0012100 I N E D R A W T O F I L L C
0012120 I R C L E R E L D R A W T O )
0012140 ( F N S \ I M A G E I O I N
0012160 I T ) ( I N I T R E C O R D S
0012200 I M A G E O P S ) ( D E C L
0012220 A R E : \r D O N T E V A L @ L
0012240 O A D D O C O P Y ( P ( \
0012260 I M A G E I O I N I T ) ) ) (
0012300 D E C L A R E : D O N T C O P
0012320 Y ( E X P O R T ( M A C R O
0012340 S I M A G E O P ) ( R E C O
0012360 R D S I M A G E O P S \r ) (
0012400 G L O B A L V A R S \ N O I M
0012420 A G E O P S ) ) ) ( C O M S
0012440 ( * I m p l e m e n t a t i o
0012460 n o f d i s p l a y s t r
0012500 e a m r e s i d e n t " f i
0012520 l e s " ) ( F N S \r \ D i s
0012540 p l a y E v e n t F n \ D I S
0012560 P L A Y I N I T ) ( G L O B A
0012600 L V A R S D i s p l a y F D E
0012620 V ) ( D E C L A R E : D O N
0012640 T E V A L @ L O A D D O C O P
0012660 Y ( P ( \ D I S P L A Y I N
0012700 I T \r ) ) ) ) ( D E C L A R E
0012720 : D O N T E V A L @ L O A D
0012740 D O E V A L @ C O M P I L E D
0012760 O N T C O P Y C O M P I L E R
0013000 V A R S ( A D D V A R S ( N
0013020 L A M A ) ( N L A M L ) ( L
0013040 A M A \r I M A G E S T R E A M
0013060 P ) ) ) ) ) \r ( / D E C L A R E
0013100 D A T A T Y P E ( Q U O T E
0013120 I M A G E O P S ) ( Q U O T E
0013140 ( P O I N T E R P O I N T E
0013160 R P O I N T E R P O I N T E
*
0013220 R P O I N T E R \r P O I N T
0013240 E R P O I N T E R P O I N T
*
0013320 E R P O I N T E R ) ) ) \r ( \
0013340 I M A G E I O I N I T ) \r ( \ D
0013360 I S P L A Y I N I T ) \r ( P U T
0013400 P R O P S I M A G E I O C O
0013420 P Y R I G H T ( " X e r o x
0013440 C o r p o r a t i o n " 1 9 8
0013460 3 ) ) \r N I L \r
0013470