$ od -c -N 50000 [eris]<LispCore>withdrawn>4045xlpdefaultprinter.dcom!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - S e p - 8 6 0 9 : 4 4 : 1 5
0000040 " ( " c o m p i l e d o n
0000060 " { D S K } < L I S P F I L E
0000100 S > 4 0 4 5 I N T > 4 0 4 5 X L
0000120 P D E F A U L T P R I N T E R .
0000140 ; 2 5 ) \r " 1 2 - N o v - 8 5
0000160 1 4 : 5 9 : 2 3 " t c o m p
0000200 l ' d i n " I N T E R L I S
0000220 P - D 1 1 - M a y - 8 6 . .
0000240 . " d a t e d " 1 1 - M a y
0000260 - 8 6 1 5 : 1 9 : 0 8 " ) \r (
0000300 F I L E C R E A T E D " 1 2 -
0000320 S e p - 8 6 0 9 : 1 4 : 2 6 "
0000340 { D S K } < L I S P F I L E S
0000360 > 4 0 4 5 I N T > 4 0 4 5 X L P
0000400 D E F A U L T P R I N T E R . ;
0000420 2 5 2 3 6 6 9 c h a n g e s
0000440 t o : \r ( F N S 4 0 4 5 X
0000460 L P P R I N T 4 0 4 5 X L P F
0000500 I L E P 4 0 4 5 X L P . P R I
0000520 N T T E X T 3 ) p r e v i o u
0000540 s d a t e : " 1 0 - S e p -
0000560 8 6 1 9 : 1 8 : 5 6 " \r { D
0000600 S K } < L I S P F I L E S > 4 0
0000620 4 5 I N T > 4 0 4 5 X L P D E F
0000640 A U L T P R I N T E R . ; 2 3 )
0000660 \r F O N T C L A S S U N P A R S
0000700 E D 1 \r ( P 3 X I 3
0000720 N O E R R O R F L G I 2 F
0000740 O N T I 1 D E V I C E I
0000760 0 F O N T C L A S S ) \0 S
0001000 004 \0 \0 004 @ 006 \0 \0 311 \b @ 006 \0 \0 312 \0
0001020 \a @ 311 \0 \t \0 \0 @ 311 002 \t \0 \0 @ 311 004
0001040 \t \0 \0 h 032 032 032 032 032 021 @ 003 @ 006 \0 \0
0001060 311 006 260 033 d 001 [ 001 K 002 \t \0 \0 h 032 032
0001100 270 I 265 \a H h 032 Z 201 H & 271 002 003 265 346
0001120 J 022 \n \0 \0 020 \0 ( 1 2 0 Q \ A P
0001140 P E N D 2 7 0 Q F O N T U N
0001160 P A R S E 3 6 Q F O N T U N
0001200 P A R S E 3 0 Q F O N T U N
0001220 P A R S E 2 2 Q F O N T U N
0001240 P A R S E ) \r ( 5 3 Q F O N T
0001260 C L A S S 1 1 Q F O N T C L
0001300 A S S 3 F O N T C L A S S )
0001320 \r ( ) \r 4 0 4 5 X L P F I L E P
0001340 A 0 0 0 1 D 1 \r ( N A M E E
0001360 R R O R S E T P 3 I P
0001400 1 S T R M P 0 4 0 4 5 X
0001420 L P N O O P F 4 R E S E T
0001440 V A R S L S T F 5 F I L E
0001460 F 6 N O O P E N F 7
0001500 R E S E T Y ) \0 220 004 004 002 \0 l 033
0001520 \t \0 \0 o \0 \0 \0 l 033 \t \0 \0 o \0 \0 \0
0001540 \f \0 \0 021 021 001 U g \0 \0 i \v \0 \0 Y 265
0001560 \b V 262 ( h 260 c \t \0 \0 242 h 260 \ g \0
0001600 \0 I d \t \0 \0 h 032 032 032 h h 032 032 T 032
0001620 c \b 277 I j \n \0 \0 260 032 o \0 \0 \0 U g
0001640 \0 \0 g \0 \0 l \b \f \0 \0 Y h 032 032 T 032
0001660 c \b 277 l 006 k 021 002 003 K J 363 263 027 I \t
0001700 \0 \0 255 H K ) I 360 264 016 K k 324 [ 260
0001720 353 h 203 I \t \0 \0 022 022 c 016 i 020 \0 ( 2
0001740 1 0 Q F U L L N A M E 1 6 3
0001760 Q E O F P 1 3 3 Q O P E N
0002000 S T R E A M 1 1 1 Q S E T F
0002020 I L E P T R 6 7 Q G E T F I
0002040 L E P T R 5 3 Q R A N D A C
0002060 C E S S P 3 7 Q \ G E T S T
0002100 R E A M 2 4 Q C O N C A T
0002120 1 5 Q C H A R A C T E R 4
0002140 C H A R A C T E R ) \r ( 1 2 6 Q
0002160 O L D 1 2 3 Q I N P U T
0002200 6 2 Q S E T F I L E P T R 3
0002220 3 Q I N P U T ) \r ( 1 1 7 Q
0002240 ( P R O G N ( C L O S E F ?
0002260 O L D V A L U E ) ) 2 1 Q
0002300 " + P " 1 0 Q " + P " ) \r 4
0002320 0 4 5 X L P F I L E P D 1 \r (
0002340 P 2 R E S E T Z P 1 R
0002360 E S E T Y P 0 L I S P X H
0002400 I S T I 1 N O O P E N I
0002420 0 F I L E F 3 L I S P
0002440 X H I S T F 4 R E S E T V
0002460 A R S L S T ) \0 / 003 002 \0 002 @ g
0002500 \0 \0 \n \0 \0 g \0 \0 360 265 " S 021 ! 002 T
0002520 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0
0002540 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 5 2
0002560 Q E R R O R ! 4 5 Q R E S
0002600 E T R E S T O R E 3 3 Q 4 0
0002620 4 5 X L P F I L E P A 0 0 0 1
0002640 6 U N P A C K F I L E N A M E
0002660 ) \r ( 4 1 Q E R R O R 3 0 Q
0002700 I N T E R N A L 1 1 Q 4 0
0002720 4 5 X L P 3 E X T E N S I O
0002740 N ) \r ( 2 5 Q ( 4 0 4 5 X L
0002760 P F I L E P A 0 0 0 1 ) ) \r 4 0
0003000 4 5 X L P . B I T M A P S C A L
0003020 E D 1 \r ( L ( 1 H E I G H
0003040 T 0 W I D T H ) ) \0 003 \0 \0
0003060 \0 002 k 020 \0 N I L \r N I L \r ( ) \r
0003100 4 0 4 5 X L P . P R O P E R T I
0003120 E S D 1 \r ( L ( 0 P R I N
0003140 T E R ) F 0 4 0 4 5 X L P
0003160 . P R O P E R T I E S ) \0 003 \0
0003200 001 \0 001 P 020 \0 N I L \r N I L \r ( )
0003220 \r 4 0 4 5 X L P P R I N T D 1
0003240 \r ( P 1 2 Q P A G E E N D
0003260 P 1 1 Q P A G E B E G P
0003300 1 0 Q C P Y P 7 C P Y
0003320 P 5 I N F I L E P 4 O
0003340 U T P O R T P 3 4 0 4 5 X
0003360 L P N O O P P 2 F F S T R
0003400 I N G P 1 H O S T P 0
0003420 C O P I E S I 2 P R I N
0003440 T O P T I O N S I 1 F I L
0003460 E I 0 P O R T F 1 3 Q
0003500 R E S E T V A R S L S T ) 001
0003520 005 \v 001 \0 003 B g \0 \0 ' 265 003 k @ \t \0
0003540 \0 265 005 ` \0 \0 l \f \t \0 \0 \t \0 \0 l 033
0003560 \t \0 \0 o \0 \0 \0 l 033 \t \0 \0 o \0 \0 \0
0003600 \f \0 \0 021 $ 005 A 241 h 020 o \0 \0 \0 ` \0
0003620 \0 \t \0 \0 h 032 032 W 026 032 c 026 o \0 \0 \0
0003640 I g \0 \0 \n \0 \0 \ h 032 032 W 026 032 c 026
0003660 o \0 \0 \0 A g \0 \0 g \0 \0 \v \0 \0 ] h
0003700 032 032 W 026 032 c 026 H k 021 022 \b O 016 N 363
0003720 263 r M l 006 \n \0 \0 277 l 006 J M j h d
0003740 i \r 006 \0 \0 021 002 \n O 024 262 - M L O 022
0003760 O 024 \f \0 \0 277 L i \n \0 \0 277 O 024 _ 022
0004000 277 J M h d d i \r 006 \0 \0 _ 024 277 n '
0004020 020 \t \0 \0 277 260 323 023 M \t \0 \0 M \t \0 \0
0004040 360 225 M L \n \0 \0 277 L l \f ! 277 L i \n
0004060 \0 \0 277 n \v 270 \t \0 \0 277 O 016 k 324 _ 016
0004100 260 216 023 B g \0 \0 ' 232 A \t \0 \0 \t \0 \0
0004120 \t \0 \0 277 A \t \0 \0 020 \0 ( 4 0 2 Q
0004140 F U L L N A M E 3 7 5 Q D E
0004160 L F I L E 3 7 2 Q C L O S E
0004200 F ? 3 6 7 Q F U L L N A M E
0004220 3 4 3 Q D I S M I S S 3 3
0004240 4 Q F O R C E O U T P U T 3
0004260 2 1 Q C O P Y B Y T E S 3 1
0004300 2 Q G E T E O F P T R 3 0 6
0004320 Q G E T F I L E P T R 2 7 6
0004340 Q D I S M I S S 2 6 5 Q F
0004360 I L E P O S 2 4 5 Q F O R C
0004400 E O U T P U T 2 3 7 Q C O P
0004420 Y B Y T E S 2 1 7 Q F I L E
0004440 P O S 2 0 2 Q S E T F I L E
0004460 P T R 1 5 0 Q O P E N S T R
0004500 E A M 1 2 1 Q O P E N S T R
0004520 E A M 7 6 Q O B T A I N . M
0004540 O N I T O R L O C K 5 5 Q C
0004560 O N C A T 4 6 Q C H A R A C
0004600 T E R 3 5 Q C H A R A C T E
0004620 R 3 0 Q C O N C A T 2 5 Q
0004640 C H A R A C T E R 1 3 Q 4
0004660 0 4 5 X L P . C H E C K . O U T
0004700 P U T F I L E ) \r ( 3 6 1 Q D
0004720 E L E T E 1 4 5 Q O L D 1
0004740 4 2 Q I N P U T 1 1 6 Q O
0004760 U T P U T 7 3 Q 4 0 4 5 X L
0005000 P . M O N I T O R 2 0 Q 4 0
0005020 4 5 X L P . D E F A U L T . P O
0005040 R T 3 # C O P I E S ) \r (
0005060 1 3 6 Q ( P R O G N ( C L O
0005100 S E F ? O L D V A L U E ) )
0005120 1 1 2 Q ( P R O G N ( C L O
0005140 S E F ? O L D V A L U E ) )
0005160 7 0 Q ( P R O G N ( R E L E
0005200 A S E . M O N I T O R L O C K
0005220 4 0 4 5 X L P . M O N I T O R )
0005240 ) 5 2 Q " + P " 4 1 Q "
0005260 + P " ) \r 4 0 4 5 X L P B I T M
0005300 A P F I L E A 0 0 0 1 D 1 \r (
0005320 N A M E E R R O R S E T P
0005340 1 4 Q I P 1 3 Q I P
0005360 1 0 Q 4 0 4 5 X L P S T R E A
0005400 M P 7 S C A L E P 6
0005420 C L I P P 5 P O R T P
0005440 4 C O P I E S P 3 B O T
0005460 T O M P 2 L E F T P 1
0005500 H P 0 W F 1 5 Q R
0005520 E G I O N F 1 6 Q B I T M
0005540 A P F 1 7 Q R E S E T V A
0005560 R S L S T F 2 0 Q O U T P
0005600 U T F I L E F 2 1 Q T I T
0005620 L E F 2 2 Q O P T I O N S
0005640 F 2 3 Q R O T A T I O N
0005660 F 2 4 Q R E S E T Y ) 001 q
0005700 \r \b 002 \0 W 032 265 003 202 261 \0 317 W 034 006 \0
0005720 \0 310 004 W 032 265 003 202 261 \0 271 W 034 006 \0 \0
0005740 310 003 W 032 265 003 202 261 \0 246 j W 032 265 003 202
0005760 261 \0 230 j W $ g \0 \0 ' 265 003 k W \t
0006000 \0 \0 265 004 W 021 F \t W \t \0 \0 262 025
0006020 o \0 \0 \0 ` \0 \0 \t \0 \0 h 032 032 W 036 032
0006040 c 036 277 o \0 \0 \0 M g \0 \0 \n \0 \0 _ 020
0006060 h 032 032 W 036 032 c 036 277 h O 020 \n \0 \0 276
0006100 W & 262 023 W & j 360 253 o \0 \0 \0 o \0 \0
0006120 \0 \n \0 \0 277 o \0 \0 \0 _ 022 003 265 B W $
0006140 g \0 \0 ' 243 ` \0 \0 227 W 034 O 020 \n \0 \0
0006160 277 L k 021 022 \f O 026 O 024 363 262 B 023 O 020
0006200 \t \0 \0 022 c ( i 020 002 001 261 377 j 001 261 377
0006220 ] 002 002 002 001 261 377 M 002 002 001 261 377 8 001 _
0006240 016 277 H O 016 326 N 002 002 001 361 253 I O 016 326
0006260 N 002 002 002 001 361 262 250 O 022 002 260 236 W " 262
0006300 037 n \t 366 W " O 020 \n \0 \0 331 l 002 333 j
0006320 O 020 \v \0 \0 277 W " O 020 \n \0 \0 277 W 034
0006340 J K O 020 j N 002 002 001 H O 016 326 325 l 002
0006360 333 \n \0 \0 j N 002 002 002 001 I O 016 326 325 l
0006400 002 333 \n \0 \0 H I h d d d O 016 \r \r \0
0006420 \0 277 O 020 \t \0 \0 277 O 020 006 \0 \0 311 \f i
0006440 \n \0 \0 277 n : 230 \t \0 \0 277 O 026 k 324 _
0006460 026 261 377 G \0 ( 5 4 5 Q B L O C K
0006500 5 3 6 Q F O R C E O U T P U
0006520 T 5 2 2 Q N E W P A G E . 4
0006540 0 4 5 X L P 5 1 4 Q S C A L
0006560 E D B I T B L T 5 0 0 Q M A
0006600 X 4 5 7 Q M A X 4 3 0 Q
0006620 P R I N 1 4 2 0 Q R E L M O
0006640 V E T O 4 0 6 Q S T R I N G
0006660 W I D T H 2 7 6 Q C L O S E
0006700 F 2 5 3 Q 4 0 4 5 X L P . P
0006720 R I N T H E A D E R P A G E 2
0006740 1 7 Q E R R O R 1 7 2 Q D
0006760 S P C L I P P I N G R E G I O N
0007000 1 5 1 Q O P E N I M A G E S
0007020 T R E A M 1 2 5 Q O B T A I
0007040 N . M O N I T O R L O C K 1 1
0007060 1 Q 4 0 4 5 X L P . C H E C K
0007100 . O U T P U T F I L E 7 5 Q
0007120 4 0 4 5 X L P . C H E C K . O U
0007140 T P U T F I L E ) \r ( 5 3 0 Q
0007160 S T R E A M 2 4 3 Q 4 0 4 5
0007200 X L P . P R I N T . H E A D E R
0007220 P A G E 2 3 6 Q H E A D I N
0007240 G 1 4 6 Q 4 0 4 5 X L P 1
0007260 2 2 Q 4 0 4 5 X L P . M O N I
0007300 T O R 6 4 Q # C O P I E S
0007320 3 3 Q B I T M A P 1 4 Q B
0007340 I T M A P ) \r ( 2 2 4 Q ( 4
0007360 2 1 ) 2 1 4 Q " T r y
0007400 u n r o t a t e d " 2 1 0 Q
0007420 " 4 0 4 5 X L P D o e s n o
0007440 t s u p p o r t r o t a t i
0007460 o n " 1 4 2 Q ( P R O G N
0007500 ( C L O S E F ? O L D V A L U
0007520 E ) ) 1 1 7 Q ( P R O G N
0007540 ( R E L E A S E . M O N I T O R
0007560 L O C K 4 0 4 5 X L P . M O N
0007600 I T O R ) ) ) \r 4 0 4 5 X L P B
0007620 I T M A P F I L E D 1 \r ( P
0007640 2 R E S E T Z P 1 R E S
0007660 E T Y P 0 L I S P X H I S
0007700 T I 6 O P T I O N S I
0007720 5 T I T L E I 4 R O T A
0007740 T I O N I 3 R E G I O N
0007760 I 2 S C A L E F A C T O R
0010000 I 1 B I T M A P I 0 O
0010020 U T P U T F I L E F 3 L I
0010040 S P X H I S T F 4 R E S E
0010060 T V A R S L S T ) \0 * 003 002 \0 \a
0010100 A 245 ` \0 \0 b 002 277 S 021 ! 002 T o \0 \0
0010120 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0
0010140 \0 J 223 \b \0 \0 020 I 020 \0 ( 4 5 Q E
0010160 R R O R ! 4 0 Q R E S E T R
0010200 E S T O R E 2 6 Q 4 0 4 5 X
0010220 L P B I T M A P F I L E A 0 0 0
0010240 1 ) \r ( 3 4 Q E R R O R 2 3
0010260 Q I N T E R N A L 4 S c r
0010300 e e n B i t M a p ) \r ( 2 0 Q
0010320 ( 4 0 4 5 X L P B I T M A P F
0010340 I L E A 0 0 0 1 ) ) \r 4 0 4 5 X
0010360 L P . P R I N T T E X T 3 A 0 0
0010400 0 1 A 0 0 0 2 D 1 \r ( L ( 0
0010420 S T R E A M ) F 0 \ 4 0
0010440 4 5 X L P E O F ) \0 006 \0 001 \0 001
0010460 i c \0 j 020 \0 N I L \r N I L \r ( )
0010500 \r 4 0 4 5 X L P . P R I N T T E
0010520 X T 3 A 0 0 0 1 D 1 \r ( N A M
0010540 E E R R O R S E T P 2 3 Q
0010560 X P 2 1 Q B C H A R P
0010600 1 4 Q C H P 1 3 Q C H
0010620 P 1 1 Q \ 4 0 4 5 X L P E
0010640 O F P 1 0 Q C O M M E N T
0010660 P O S P 7 C O M M E N T M
0010700 O D E P 6 I N S T R E A M
0010720 P 5 O U T S T R E A M P
0010740 4 P A G E H E A D I N G P
0010760 3 L I N E P 2 P A G E
0011000 N U M P 1 L I N E P O S
0011020 P 0 L I N E S P E R P A G E
0011040 F 2 4 Q R E S E T V A R S
0011060 L S T F 2 5 Q F I L E F
0011100 2 6 Q 4 0 4 5 X L P F I L E
0011120 F 2 7 Q R E S E T Y F
0011140 3 0 Q O P T I O N S ) 002 S 024
0011160 005 002 \0 l < j k d 021 d \t W , \t \0 \0
0011200 262 025 o \0 \0 \0 ` \0 \0 \t \0 \0 h 032 032 W
0011220 ( 032 c ( 277 o \0 \0 \0 W * g \0 \0 g \0
0011240 \0 \v \0 \0 ^ h 032 032 W ( 032 c ( 277 o \0
0011260 \0 \0 W , g \0 \0 \n \0 \0 ] h 032 032 W (
0011300 032 c ( 277 N 264 003 202 261 001 370 M 264 003 202 261
0011320 001 361 N g \0 \0 g \0 \0 \v \0 \0 277 W * \t
0011340 \0 \0 o \0 \0 \0 W * \t \0 \0 o \0 \0 \0 \f
0011360 \0 \0 274 l 033 \t \0 \0 o \0 \0 \0 l 033 \t \0
0011400 \0 o \0 \0 \0 \f \0 \0 021 a 020 O 024 310 003 k
0011420 331 _ 034 277 O 024 311 \0 _ 036 277 O 034 O 024 310
0011440 002 330 _ 032 277 O 024 312 \0 C j 360 221 h 200 i
0011460 _ 277 O 034 k 330 _ 034 O 032 361 263 033 O
0011500 227 O 036 O 034 320 310 \0 204 O 036 O 034 302 _ 026
0011520 277 M O 026 ! 260 335 023 o \0 \0 \0 M \n \0 \0
0011540 277 o \0 \0 \0 M i \v \0 \0 277 M i \n \0 \0
0011560 277 ` \0 \0 246 W 0 g \0 \0 ' 226 W * M \n
0011600 \0 \0 277 o \0 \0 \0 M i \v \0 \0 277 L J \n
0011620 \0 \0 M \n \0 \0 277 o \0 \0 \0 M i \v \0 \0
0011640 277 M l 003 \n \0 \0 277 l 004 273 021 020 021 N
0011660 _ " 277 O 022 222 261 001 \b O " d l 006 360 262
0011700 t 277 N _ " l 002 360 247 O " d l 004 360
0011720 234 277 o \0 \0 \0 M i \v \0 \0 277 260 322 k 360
0011740 262 026 o \0 \0 \0 M i \v \0 \0 277 O 016 262 300
0011760 h _ 016 277 260 272 O " d l 003 360 262 027 277 o
0012000 \0 \0 \0 M i \v \0 \0 277 i _ 016 277 I _ 020
0012020 277 260 235 l 024 360 237 o \0 \0 \0 i \n \0 \0 277
0012040 i \t \0 \0 277 260 211 o \0 \0 \0 i \n \0 \0 277
0012060 261 377 ~ l \r 360 262 | l 024 \t \0 \0 277 K d
0012100 H 361 262 D 277 M l \f ! 277 M i \n \0 \0 277
0012120 J k 324 272 n 017 240 \t \0 \0 277 o \0 \0 \0 M
0012140 i \v \0 \0 277 L M \n \0 \0 277 J M \n \0 \0
0012160 277 o \0 \0 \0 M i \v \0 \0 277 M l 003 \n \0
0012200 \0 277 l 004 [ 207 k 324 273 M k \n \0 \0 277 O
0012220 016 262 034 O 020 k 021 002 023 O & O $ 363 254 M
0012240 l ! 277 O & k 324 _ & 260 361 023 j 271 261
0012260 376 377 M O " ! 277 I k 324 271 261 376 363 023 h
0012300 022 c . i 020 \0 ( 1 0 3 2 Q \ C R
0012320 L F . 4 0 4 5 X L P 1 0 1 5 Q
0012340 \ C R L F . 4 0 4 5 X L P 1
0012360 0 0 6 Q \ S E N D 4 0 4 5 X L
0012400 P C O M M A N D 7 7 4 Q P R
0012420 I N 1 7 6 6 Q P R I N 1 7
0012440 6 0 Q \ S E N D 4 0 4 5 X L P
0012460 C O M M A N D 7 4 6 Q B L O
0012500 C K 7 3 3 Q F O R C E O U T
0012520 P U T 7 1 1 Q B L O C K 6
0012540 7 3 Q P R I N 1 6 6 0 Q T
0012560 E R P R I 6 5 3 Q P R I N 1
0012600 6 2 4 Q \ S E N D 4 0 4 5 X
0012620 L P C O M M A N D 5 6 7 Q \
0012640 S E N D 4 0 4 5 X L P C O M M A
0012660 N D 5 4 7 Q \ S E N D 4 0 4
0012700 5 X L P C O M M A N D 4 6 3 Q
0012720 \ C R L F . 4 0 4 5 X L P 4
0012740 5 4 Q \ S E N D 4 0 4 5 X L P
0012760 C O M M A N D 4 4 2 Q P R I
0013000 N 1 4 3 6 Q C O N C A T 4
0013020 3 0 Q \ S E N D 4 0 4 5 X L P
0013040 C O M M A N D 4 1 6 Q 4 0 4
0013060 5 X L P . P R I N T T E X T H E
0013100 A D E R P A G E 3 7 4 Q F O
0013120 R C E O U T P U T 3 6 6 Q \
0013140 S E N D 4 0 4 5 X L P C O M M A
0013160 N D 3 5 4 Q \ S E N D 4 0 4
0013200 5 X L P C O M M A N D 2 2 4 Q
0013220 C O N C A T 2 1 5 Q C H A
0013240 R A C T E R 2 0 4 Q C H A R
0013260 A C T E R 1 7 6 Q C O N C A
0013300 T 1 6 7 Q F I L E D A T E
0013320 1 5 6 Q F U L L N A M E 1 5
0013340 0 Q S E T F I L E I N F O 1
0013360 0 6 Q O P E N S T R E A M 6
0013400 0 Q O P E N S T R E A M 3 0
0013420 Q O B T A I N . M O N I T O R
0013440 L O C K 1 4 Q 4 0 4 5 X L P
0013460 . C H E C K . O U T P U T F I L
0013500 E ) \r ( 4 0 6 Q H E A D I N G
0013520 4 0 0 Q 4 0 4 5 X L P . P R
0013540 I N T . H E A D E R P A G E 1
0013560 4 5 Q 4 0 4 5 X L P . P R I N
0013600 T T E X T 3 A 0 0 0 1 A 0 0 0 2
0013620 1 4 2 Q E N D O F S T R E A
0013640 M O P 1 0 3 Q O U T P U T
0013660 5 5 Q O L D 5 2 Q I N P U
0013700 T 2 5 Q 4 0 4 5 X L P . M O
0013720 N I T O R ) \r ( 1 0 0 1 Q "
0013740 p " 7 5 3 Q " b " 6 6 7 Q
0013760 " O O O P S I N S E L C H A R
0014000 Q 2 " 6 4 7 Q " ^ T E N C
0014020 O U N T E R E D " 6 1 7 Q "
0014040 p " 5 6 2 Q " p " 5 4 2 Q
0014060 " b " 4 4 7 Q " p " 4 2
0014100 3 Q " b " 3 6 1 Q " 9 "
0014120 3 5 0 Q " + 9 X C P 1 4 i s o
0014140 - L " 2 2 1 Q " + P " 2 1
0014160 0 Q " + P " 1 7 3 Q "
0014200 P a g e : " 1 6 2 Q "
0014220 " 7 6 Q ( P R O G N ( \ S
0014240 E N D 4 0 4 5 X L P C O M M A N
0014260 D " 0 " O L D V A L U E T
0014300 ) ( B O U T O L D V A L U E
0014320 ( C H A R C O D E F F ) )
0014340 ( F O R C E O U T P U T O L D
0014360 V A L U E T ) ( C L O S E F
0014400 ? O L D V A L U E ) ) 4 5 Q
0014420 ( P R O G N ( C L O S E F ?
0014440 O L D V A L U E ) ) 2 2 Q
0014460 ( P R O G N ( R E L E A S E .
0014500 M O N I T O R L O C K 4 0 4 5
0014520 X L P . M O N I T O R ) ) ) \r 4
0014540 0 4 5 X L P . P R I N T T E X T
0014560 3 D 1 \r ( P 2 R E S E T Z
0014600 P 1 R E S E T Y P 0
0014620 L I S P X H I S T I 5 O P
0014640 T I O N S I 4 T A B S I
0014660 3 H E A D I N G I 2 F
0014700 O N T S I 1 4 0 4 5 X L P
0014720 F I L E I 0 F I L E F
0014740 3 L I S P X H I S T F 4
0014760 R E S E T V A R S L S T ) \0 "
0015000 003 002 \0 006 S 021 ! 002 T o \0 \0 \0 g \0 \0
0015020 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b
0015040 \0 \0 020 I 020 \0 ( 3 5 Q E R R O R
0015060 ! 3 0 Q R E S E T R E S T O
0015100 R E 1 6 Q 4 0 4 5 X L P . P
0015120 R I N T T E X T 3 A 0 0 0 1 ) \r
0015140 ( 2 4 Q E R R O R 1 3 Q I
0015160 N T E R N A L ) \r ( 1 0 Q (
0015200 4 0 4 5 X L P . P R I N T T E X
0015220 T 3 A 0 0 0 1 ) ) \r P R I N T S
0015240 C R E E N B I T M A P . 4 0 4 5
0015260 X L P A 0 0 0 1 D 1 \r ( N A M
0015300 E E R R O R S E T P 1 0 Q
0015320 C L I P P 7 S C A L E
0015340 P 6 O U T P O R T P 5
0015360 B I T M A P P 4 W P 3
0015400 H P 2 L E F T P 1
0015420 B O T T O M P 0 4 0 4 5 X
0015440 L P S T R E A M F 1 1 Q R
0015460 E S E T V A R S L S T F 1 2
0015500 Q A B I T M A P F 1 3 Q
0015520 P O R T F 1 4 Q R E S E T
0015540 Y ) \0 376 \t 004 002 \0 021 ` 005 W 024 265 005
0015560 ` \0 \0 ] 006 \0 \0 310 004 274 M 006 \0 \0 310 003
0015600 273 j Z 271 W 026 \t \0 \0 265 005 ` \0 \0 021 !
0015620 \b o \0 \0 \0 ` \0 \0 \t \0 \0 h 032 032 W 022
0015640 032 c 022 277 o \0 \0 \0 N g \0 \0 \n \0 \0 X
0015660 h 032 032 W 022 032 c 022 277 ` \0 \0 225 M H \n
0015700 \0 \0 277 M j d H j d n 002 274 n 003 4 h
0015720 d d d l 004 \r \r \0 \0 277 H \t \0 \0 277 H
0015740 006 \0 \0 311 \f i \n \0 \0 277 n D \ \t \0 \0
0015760 277 M n 002 ? j H j d n 002 274 n 003 4 h
0016000 d d d l 004 \r \r \0 \0 277 M \t \0 \0 n 003
0016020 4 361 264 N M j n 003 4 H j d n 002 274 n
0016040 003 4 h d d d l 004 \r \r \0 \0 277 H \t \0
0016060 \0 277 H 006 \0 \0 311 \f i \n \0 \0 277 n D \
0016100 \t \0 \0 277 M n 002 ? n 003 4 H j d n 002
0016120 274 n 003 4 h d d d l 004 \r \r \0 \0 277 h
0016140 022 022 c 030 i 020 \0 ( 3 6 4 Q S C A
0016160 L E D B I T B L T 3 3 1 Q B
0016200 L O C K 3 2 2 Q F O R C E O
0016220 U T P U T 3 0 7 Q N E W P A
0016240 G E . 4 0 4 5 X L P 3 0 2 Q
0016260 S C A L E D B I T B L T 2 4 4
0016300 Q B I T M A P H E I G H T 2
0016320 3 7 Q S C A L E D B I T B L T
0016340 2 0 6 Q B L O C K 1 7 7 Q
0016360 F O R C E O U T P U T 1 6 4
0016400 Q N E W P A G E . 4 0 4 5 X L
0016420 P 1 5 7 Q S C A L E D B I T
0016440 B L T 1 3 0 Q 4 0 4 5 X L P
0016460 . P R I N T H E A D E R P A G E
0016500 1 0 5 Q O P E N I M A G E S
0016520 T R E A M 6 1 Q O B T A I N
0016540 . M O N I T O R L O C K 3 7 Q
0016560 4 0 4 5 X L P . C H E C K . O
0016600 U T P U T F I L E ) \r ( 3 1 4 Q
0016620 S T R E A M 1 7 1 Q S T R
0016640 E A M 1 2 2 Q 4 0 4 5 X L P
0016660 . P R I N T . H E A D E R P A G
0016700 E 1 0 2 Q 4 0 4 5 X L P 5
0016720 6 Q 4 0 4 5 X L P . M O N I T
0016740 O R 4 4 Q 4 0 4 5 X L P . D
0016760 E F A U L T . P O R T 2 4 Q
0017000 B I T M A P 1 5 Q B I T M A
0017020 P 1 1 Q S c r e e n B i t M
0017040 a p ) \r ( 7 6 Q ( P R O G N
0017060 ( C L O S E F ? O L D V A L
0017100 U E ) ) 5 3 Q ( P R O G N
0017120 ( R E L E A S E . M O N I T O R
0017140 L O C K 4 0 4 5 X L P . M O N
0017160 I T O R ) ) ) \r P R I N T S C R
0017200 E E N B I T M A P . 4 0 4 5 X L
0017220 P D 1 \r ( P 2 R E S E T Z
0017240 P 1 R E S E T Y P 0
0017260 L I S P X H I S T I 1 P O
0017300 R T I 0 A B I T M A P F
0017320 3 L I S P X H I S T F 4
0017340 R E S E T V A R S L S T ) \0
0017360 " 003 002 \0 002 S 021 ! 002 T o \0 \0 \0 g \0
0017400 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223
0017420 \b \0 \0 020 I 020 \0 ( 3 5 Q E R R O
0017440 R ! 3 0 Q R E S E T R E S T
0017460 O R E 1 6 Q P R I N T S C R
0017500 E E N B I T M A P . 4 0 4 5 X L
0017520 P A 0 0 0 1 ) \r ( 2 4 Q E R R
0017540 O R 1 3 Q I N T E R N A L )
0017560 \r ( 1 0 Q ( P R I N T S C R
0017600 E E N B I T M A P . 4 0 4 5 X L
0017620 P A 0 0 0 1 ) ) \r P R I N T T A
0017640 B . 4 0 4 5 X L P D 1 \r ( P
0017660 2 I P 1 I I 1 S T
0017700 R E A M I 0 T A B S I Z E
0017720 ) \0 031 003 \0 \0 002 @ k 021 022 002 I H 363
0017740 221 h 020 l A \n \0 \0 277 I k 324 Y 260 360
0017760 \0 ( 2 0 Q P R I N T C C O D E
0020000 ) \r N I L \r ( ) \r 4 0 4 5 X L P
0020020 . C H E C K . O U T P U T F I L
0020040 E D 1 \r ( P 0 H O S T I
0020060 0 F I L E ) \0 , 001 \0 \0 001 @
0020100 g \0 \0 \n \0 \0 \t \0 \0 021 001 \0 H g \0 \0
0020120 360 254 H g \0 \0 360 246 H g \0 \0 360 264 \f g
0020140 \0 \0 H g \0 \0 \v \0 \0 020 \0 ( 5 1 Q
0020160 P A C K * 1 1 Q U - C A S E
0020200 6 U N P A C K F I L E N A M
0020220 E ) \r ( 4 6 Q } 4 2 Q {
0020240 3 4 Q C E N T R O N I C S 2
0020260 6 Q T T Y 2 0 Q R S 2 3 2
0020300 3 H O S T ) \r ( ) \r 4 0 4 5
0020320 X L P . H O S T N A M E P D 1
0020340 \r ( I 0 P R I N T E R N A M
0020360 E ) \0 017 \0 \0 \0 001 o \0 \0 \0 @ \n \0
0020400 \0 264 005 g \0 \0 020 \0 ( 7 S T R P O
0020420 S ) \r ( 1 4 Q 4 0 4 5 X L P )
0020440 \r ( 3 " 4 0 4 5 X L P " ) \r
0020460 4 0 4 5 X L P . P R I N T H E A
0020500 D E R P A G E A 0 0 0 1 D 1 \r
0020520 ( N A M E E R R O R S E T P
0020540 0 O U T S T R E A M F 1
0020560 F I L E F 2 O U T P U T
0020600 S T R E A M F 3 R E S E T
0020620 V A R S L S T F 4 R E S E
0020640 T Y ) 001 177 001 004 002 \0 021 020 \0 R 265 x
0020660 o \0 \0 \0 ` \0 \0 g \0 \0 \n \0 \0 X h 032
0020700 032 S 032 c 006 277 H j n \a 320 \v \0 \0 277 l
0020720 031 H \n \0 \0 277 o \0 \0 \0 H \n \0 \0 277 \b
0020740 \0 \0 i \n \0 \0 H \n \0 \0 277 H \t \0 \0 277
0020760 H \t \0 \0 277 l 031 H \n \0 \0 277 Q d 004 `
0021000 \0 \0 360 221 245 Q \t \0 \0 262 H \t \0 \0 277
0021020 Q H \n \0 \0 277 H \t \0 \0 277 H \t \0 \0 277
0021040 H \t \0 \0 260 M X 260 240 H \t \0 \0 277 Q \t
0021060 \0 \0 H \n \0 \0 277 H \t \0 \0 277 H \t \0 \0
0021100 277 H \t \0 \0 277 l 031 H \n \0 \0 277 o \0 \0
0021120 \0 H \n \0 \0 277 R 227 Q g \0 \0 \n \0 \0 202
0021140 \b \0 \0 H \n \0 \0 277 H \t \0 \0 277 H \t \0
0021160 \0 277 l 031 H \n \0 \0 277 o \0 \0 \0 H \n \0
0021200 \0 277 \b \0 \0 H \n \0 \0 277 H \t \0 \0 277 l
0021220 X n \b 4 n \t 237 n \b 4 l \n g \0 \0 H
0021240 \r \a \0 \0 277 l X n 006 @ n \t 237 n 006 @
0021260 l \n g \0 \0 H \r \a \0 \0 277 l X l d n
0021300 \t 237 l d l 032 g \0 \0 H \r \a \0 \0 277 l
0021320 d d d n \f 200 l 032 g \0 \0 H \r \a \0 \0
0021340 277 n \t 222 l d n \t 222 n \f 200 l 032 g \0
0021360 \0 H \r \a \0 \0 277 l X n \f 200 n \t 237 n
0021400 \f 200 l 032 g \0 \0 H \r \a \0 \0 277 H l \f
0021420 ! 277 H 006 \0 \0 311 \f \t \0 \0 277 n 023 210 \t
0021440 \0 \0 023 h c \b i 020 \0 ( 5 6 7 Q B
0021460 L O C K 5 6 0 Q F O R C E O
0021500 U T P U T 5 4 1 Q D R A W L
0021520 I N E 5 1 3 Q D R A W L I N
0021540 E 4 6 5 Q D R A W L I N E
0021560 4 4 3 Q D R A W L I N E 4 1
0021600 7 Q D R A W L I N E 3 7 1 Q
0021620 D R A W L I N E 3 4 3 Q T
0021640 E R P R I 3 3 6 Q P R I N 1
0021660 3 3 2 Q D A T E 3 2 6 Q
0021700 P R I N 1 3 1 5 Q P R I N T
0021720 T A B . 4 0 4 5 X L P 3 0 6 Q
0021740 T E R P R I 3 0 1 Q T E R
0021760 P R I 2 7 4 Q P R I N 1 2
0022000 7 0 Q D A T E 2 6 4 Q G E
0022020 T F I L E I N F O 2 5 2 Q P
0022040 R I N 1 2 4 1 Q P R I N T T
0022060 A B . 4 0 4 5 X L P 2 3 2 Q
0022100 \ M E D I U M M O D E . 4 0 4 5
0022120 X L P 2 2 5 Q T E R P R I
0022140 2 2 0 Q T E R P R I 2 1 3 Q
0022160 P R I N 1 2 0 7 Q F U L L
0022200 N A M E 2 0 2 Q \ B O L D M
0022220 O D E . 4 0 4 5 X L P 1 7 1 Q
0022240 \ M E D I U M M O D E . 4 0 4
0022260 5 X L P 1 6 4 Q T E R P R I
0022300 1 5 7 Q T E R P R I 1 5 2
0022320 Q P R I N 1 1 4 4 Q \ B O
0022340 L D M O D E . 4 0 4 5 X L P 1
0022360 3 6 Q W I N D O W P 1 2 0 Q
0022400 P R I N T T A B . 4 0 4 5 X L
0022420 P 1 1 1 Q T E R P R I 1 0
0022440 4 Q T E R P R I 7 7 Q P R
0022460 I N 1 7 3 Q L - C A S E 6
0022500 7 Q F U L L U S E R N A M E
0022520 6 3 Q P R I N 1 5 2 Q P R
0022540 I N T T A B . 4 0 4 5 X L P 4
0022560 3 Q S E T X Y . 4 0 4 5 X L P
0022600 2 2 Q O P E N I M A G E S T
0022620 R E A M ) \r ( 5 5 3 Q S T R E
0022640 A M 5 3 4 Q P A I N T 5 0
0022660 6 Q P A I N T 4 6 0 Q P A
0022700 I N T 4 3 6 Q P A I N T 4
0022720 1 2 Q P A I N T 3 6 4 Q P
0022740 A I N T 2 6 1 Q C R E A T I
0022760 O N D A T E 1 2 7 Q 004 003 B I
0023000 T M A P T Y P E # 1 7 Q 4 0
0023020 4 5 X L P 1 4 Q 4 0 4 5 X L
0023040 P . D E F A U L T . P O R T ) \r
0023060 ( 3 2 2 Q " P r i n t e d :
0023100 " 2 4 6 Q " C r e a t e d
0023120 : " 5 7 Q " F o r : "
0023140 1 1 Q ( P R O G N ( C L O S
0023160 E F O L D V A L U E ) ) ) \r 4
0023200 0 4 5 X L P . P R I N T H E A D
0023220 E R P A G E D 1 \r ( P 2 R
0023240 E S E T Z P 1 R E S E T Y
0023260 P 0 L I S P X H I S T I
0023300 1 O U T P U T S T R E A M
0023320 I 0 F I L E F 3 L I S
0023340 P X H I S T F 4 R E S E T
0023360 V A R S L S T ) \0 " 003 002 \0 002 S
0023400 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h
0023420 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020
0023440 \0 ( 3 5 Q E R R O R ! 3 0 Q
0023460 R E S E T R E S T O R E 1 6
0023500 Q 4 0 4 5 X L P . P R I N T H
0023520 E A D E R P A G E A 0 0 0 1 ) \r
0023540 ( 2 4 Q E R R O R 1 3 Q I
0023560 N T E R N A L ) \r ( 1 0 Q (
0023600 4 0 4 5 X L P . P R I N T H E A
0023620 D E R P A G E A 0 0 0 1 ) ) \r 4
0023640 0 4 5 X L P . P R I N T T E X T
0023660 H E A D E R P A G E D 1 \r ( I
0023700 1 O U T P U T S T R E A M
0023720 I 0 F I L E ) 001 T \0 \0 \0 002
0023740 o \0 \0 \0 l 226 o \0 \0 \0 l 226 o \0 \0 \0
0023760 n \v 352 o \0 \0 \0 l 031 \r \b \0 \0 A \n \0
0024000 \0 o \0 \0 \0 n \t G o \0 \0 \0 l 226 o \0
0024020 \0 \0 n \v 352 o \0 \0 \0 l 031 \r \b \0 \0 A
0024040 \n \0 \0 o \0 \0 \0 l 226 o \0 \0 \0 l 226 o
0024060 \0 \0 \0 n \b 312 o \0 \0 \0 l 031 \r \b \0 \0
0024100 A \n \0 \0 o \0 \0 \0 l 226 o \0 \0 \0 n \f
0024120 200 o \0 \0 \0 n \b 312 o \0 \0 \0 l 031 \r \b
0024140 \0 \0 A \n \0 \0 o \0 \0 \0 n 003 204 o \0 \0
0024160 \0 l 226 o \0 \0 \0 n \v 352 o \0 \0 \0 l 005
0024200 \r \b \0 \0 A \n \0 \0 o \0 \0 \0 n 005 334 o
0024220 \0 \0 \0 l 226 o \0 \0 \0 n \v 352 o \0 \0 \0
0024240 l 005 \r \b \0 \0 A \n \0 \0 A l 033 \n \0 \0
0024260 o \0 \0 \0 A i \v \0 \0 o \0 \0 \0 A i \v
0024300 \0 \0 @ \t \0 \0 \t \0 \0 A \n \0 \0 o \0 \0
0024320 \0 A i \v \0 \0 A l 003 \n \0 \0 o \0 \0 \0
0024340 A i \v \0 \0 o \0 \0 \0 \b \0 \0 i \n \0 \0
0024360 \n \0 \0 A \n \0 \0 A l 002 \n \0 \0 o \0 \0
0024400 \0 @ g \0 \0 \n \0 \0 \n \0 \0 A \n \0 \0 A
0024420 l 002 \n \0 \0 o \0 \0 \0 \b \0 \0 \n \0 \0 A
0024440 \n \0 \0 A l \f ! A i \n \0 \0 n : 230 \t
0024460 \0 \0 020 \0 ( 5 2 1 Q B L O C K
0024500 5 1 3 Q F O R C E O U T P U T
0024520 5 0 2 Q P R I N 1 4 7 6 Q
0024540 C O N C A T 4 7 3 Q D A T
0024560 E 4 6 4 Q \ C R L F . 4 0 4
0024600 5 X L P 4 5 6 Q P R I N 1
0024620 4 5 2 Q C O N C A T 4 4 7 Q
0024640 G E T F I L E I N F O 4 3 4
0024660 Q \ C R L F . 4 0 4 5 X L P
0024700 4 2 6 Q P R I N 1 4 2 2 Q
0024720 C O N C A T 4 1 7 Q L - C A
0024740 S E 4 1 3 Q F U L L U S E R
0024760 N A M E 4 0 4 Q \ S E N D 4
0025000 0 4 5 X L P C O M M A N D 3 7
0025020 3 Q \ C R L F . 4 0 4 5 X L P
0025040 3 6 5 Q \ S E N D 4 0 4 5 X
0025060 L P C O M M A N D 3 5 4 Q P
0025100 R I N 1 3 5 0 Q C O N C A T
0025120 3 4 5 Q F U L L N A M E 3
0025140 4 1 Q \ S E N D 4 0 4 5 X L P
0025160 C O M M A N D 3 3 0 Q \ S E
0025200 N D 4 0 4 5 X L P C O M M A N D
0025220 3 1 7 Q \ C R L F . 4 0 4 5
0025240 X L P 3 1 1 Q \ S E N D 4 0
0025260 4 5 X L P C O M M A N D 3 0 5
0025300 Q C O N C A T 2 4 7 Q \ S
0025320 E N D 4 0 4 5 X L P C O M M A N
0025340 D 2 4 3 Q C O N C A T 2 0
0025360 5 Q \ S E N D 4 0 4 5 X L P C
0025400 O M M A N D 2 0 1 Q C O N C
0025420 A T 1 4 3 Q \ S E N D 4 0 4
0025440 5 X L P C O M M A N D 1 3 7 Q
0025460 C O N C A T 1 0 2 Q \ S E
0025500 N D 4 0 4 5 X L P C O M M A N D
0025520 7 6 Q C O N C A T 4 0 Q
0025540 \ S E N D 4 0 4 5 X L P C O M M
0025560 A N D 3 4 Q C O N C A T ) \r
0025600 ( 4 4 4 Q C R E A T I O N D A
0025620 T E ) \r ( 4 7 0 Q " P r i n
0025640 t e d " 4 4 0 Q " C r e a
0025660 t e d " 4 1 0 Q " F o r
0025700 " 3 7 7 Q " p " 3 6 0 Q
0025720 " w " 3 3 4 Q " u " 3 2 3
0025740 Q " b " 2 7 7 Q " , " 2
0025760 7 0 Q " , " 2 6 2 Q " , "
0026000 2 5 3 Q " y " 2 3 5 Q "
0026020 , " 2 2 6 Q " , " 2 2 0 Q
0026040 " , " 2 1 1 Q " y " 1 7
0026060 3 Q " , " 1 6 4 Q " , "
0026100 1 5 5 Q " , " 1 4 7 Q " x
0026120 " 1 3 1 Q " , " 1 2 2 Q
0026140 " , " 1 1 4 Q " , " 1 0 6
0026160 Q " x " 7 0 Q " , " 6 1
0026200 Q " , " 5 3 Q " , " 4 4
0026220 Q " y " 2 6 Q " , " 1 7
0026240 Q " , " 1 1 Q " , " 3
0026260 " y " ) \r \ C R L F . 4 0 4 5 X
0026300 L P D 1 \r ( P 2 I P 1
0026320 I I 1 N T I M E S I
0026340 0 O U T S T R E A M ) \0 034 003
0026360 \0 \0 002 A k 021 022 002 I H 363 221 h 020 @ l
0026400 \r ! 277 @ l \n ! 277 I k 324 Y 260 355 \0 N
0026420 I L \r N I L \r ( ) \r ( P R E T T
0026440 Y C O M P R I N T 4 0 4 5 X L
0026460 P D E F A U L T P R I N T E R C
0026500 O M S ) \r ( R P A Q Q 4 0 4 5
0026520 X L P D E F A U L T P R I N T E
0026540 R C O M S ( ( F I L E S 4 0
0026560 4 5 X L P S T R E A M ) ( P
0026600 ( P U S H D E F A U L T P R I
0026620 N T I N G H O S T ( Q U O T E
0026640 ( 4 0 4 5 X L P \r 4 0 4 5 X
0026660 L P ) ) ) ( S E T Q P R I N
0026700 T F I L E T Y P E S ( R E M O
0026720 V E ( A S S O C ( Q U O T E
0026740 4 0 4 5 X L P ) P R I N T F
0026760 I L E T Y P E S ) P R I N T F
0027000 I L E T Y P E S ) ) ) ( \r A D
0027020 D V A R S ( P R I N T E R T Y
0027040 P E S ( ( 4 0 4 5 X L P ) (
0027060 C A N P R I N T ( 4 0 4 5 X L
0027100 P ) ) ( S T A T U S T R U E
0027120 ) ( P R O P E R T I E S 4 0
0027140 4 5 X L P . P R O P E R T I E S
0027160 ) ( \r H O S T N A M E P 4 0
0027200 4 5 X L P . H O S T N A M E P )
0027220 ( S E N D 4 0 4 5 X L P P R
0027240 I N T ) ( B I T M A P S C A L
0027260 E 4 0 4 5 X L P . B I T M A P
0027300 S C A L E ) ( B I T M A P F I
0027320 L E ( \r 4 0 4 5 X L P B I T M
0027340 A P F I L E F I L E B I T M
0027360 A P S C A L E F A C T O R R
0027400 E G I O N R O T A T I O N T
0027420 I T L E ) ) ) ) ( P R I N T F
0027440 I L E T Y P E S ( 4 0 4 5 X L
0027460 P ( T E S T \r 4 0 4 5 X L P
0027500 F I L E P ) ( E X T E N S I O
0027520 N ( 4 0 4 5 X L P ) ) ( C O
0027540 N V E R S I O N ( T E X T 4
0027560 0 4 5 X L P . P R I N T T E X T
0027600 3 T E D I T ( L A M B D A
0027620 ( F I L E P F I L E ) ( \r S
0027640 E T Q F I L E ( O P E N T E
0027660 X T S T R E A M F I L E ) )
0027700 ( T E D I T . F O R M A T . H A
0027720 R D C O P Y F I L E P F I L
0027740 E T N I L N I L N I L
0027760 ( Q U O T E 4 0 4 5 X L P ) )
0030000 ( \r C L O S E F ? F I L E )
0030020 P F I L E ) T E D I T \ T
0030040 E D I T . H A R D C O P Y ) ) )
0030060 ) ) ( G L O B A L V A R S 4
0030100 0 4 5 X L P . D E F A U L T . P
0030120 O R T \r 4 0 4 5 X L P . P R I
0030140 N T . H E A D E R P A G E 4 0
0030160 4 5 X L P . M O N I T O R ) (
0030200 V A R S 4 0 4 5 X L P . P R O
0030220 P E R T I E S ) ( D E C L A R
0030240 E : E V A L @ L O A D D O N
0030260 T C O P Y ( \r M A C R O S \
0030300 4 0 4 5 X L P B a c k i n g S t
0030320 r e a m ) ) ( * T h i s i
0030340 s a p a t c h t o F O N
0030360 T t o f i x t h e u n p
0030400 a r s i n g o f o t h e r f
0030420 d s i n a f o n t \r c l
0030440 a s s . W i t h o u t t h e
0030460 p a t c h , t h e f o n t
0030500 c l a s s w o u l d b e b
0030520 u i l t w i t h o u t h a v
0030540 i n g a s i z e f o r t
0030560 h e o t h e r f d s f o n t
0030600 \r w h i c h c a u s e s b
0030620 r e a k s h a r d c o p y i n
0030640 g a n d r e a d i n g t h
0030660 e f i l e s . T h a n k s
0030700 R M ! ) ( F N S F O N T C L
0030720 A S S U N P A R S E ) ( * t
0030740 h e \r d e f a u l t p r i n t
0030760 i n g f u n c t i o n s ) (
0031000 F N S 4 0 4 5 X L P F I L E P
0031020 4 0 4 5 X L P . B I T M A P S
0031040 C A L E 4 0 4 5 X L P . P R O
0031060 P E R T I E S 4 0 4 5 X L P P
0031100 R I N T \r 4 0 4 5 X L P B I T
0031120 M A P F I L E 4 0 4 5 X L P .
0031140 P R I N T T E X T 3 P R I N T
0031160 S C R E E N B I T M A P . 4 0 4
0031200 5 X L P P R I N T T A B . 4 0
0031220 4 5 X L P \r 4 0 4 5 X L P . C
0031240 H E C K . O U T P U T F I L E
0031260 4 0 4 5 X L P . H O S T N A M E
0031300 P 4 0 4 5 X L P . P R I N T H
0031320 E A D E R P A G E 4 0 4 5 X L
0031340 P . P R I N T T E X T H E A D E
0031360 R P A G E \r \ C R L F . 4 0 4
0031400 5 X L P ) ( I N I T V A R S
0031420 ( 4 0 4 5 X L P . M O N I T O R
0031440 ( C R E A T E . M O N I T O R
0031460 L O C K ( Q U O T E 4 0 4 5
0031500 X L P ) ) ) ( 4 0 4 5 X L P .
0031520 D E F A U L T . P O R T \r ( Q
0031540 U O T E { R S 2 3 2 } ) ) (
0031560 4 0 4 5 X L P . P R I N T . H E
0031600 A D E R P A G E N I L ) ) ) )
0031620 \r ( F I L E S L O A D 4 0 4 5
0031640 X L P S T R E A M ) \r ( P U S H
0031660 D E F A U L T P R I N T I N G
0031700 H O S T ( Q U O T E ( 4 0 4
0031720 5 X L P 4 0 4 5 X L P ) ) ) \r
0031740 ( S E T Q P R I N T F I L E T
0031760 Y P E S ( R E M O V E ( A S
0032000 S O C ( Q U O T E 4 0 4 5 X
0032020 L P ) P R I N T F I L E T Y P
0032040 E S ) P R I N T F I L E T Y P
0032060 E S ) ) \r ( A D D T O V A R P
0032100 R I N T E R T Y P E S ( ( 4 0
0032120 4 5 X L P ) ( C A N P R I N T
0032140 ( 4 0 4 5 X L P ) ) ( S T A
0032160 T U S T R U E ) ( P R O P E
0032200 R T I E S 4 0 4 5 X L P . P R
0032220 O P E R T I E S ) ( \r H O S T
0032240 N A M E P 4 0 4 5 X L P . H O
0032260 S T N A M E P ) ( S E N D 4
0032300 0 4 5 X L P P R I N T ) ( B I
0032320 T M A P S C A L E 4 0 4 5 X L
0032340 P . B I T M A P S C A L E ) (
0032360 B I T M A P F I L E ( \r 4 0 4
0032400 5 X L P B I T M A P F I L E F
0032420 I L E B I T M A P S C A L E
0032440 F A C T O R R E G I O N R O
0032460 T A T I O N T I T L E ) ) ) )
0032500 \r ( A D D T O V A R P R I N T
0032520 F I L E T Y P E S ( 4 0 4 5 X
0032540 L P ( T E S T 4 0 4 5 X L P
0032560 F I L E P ) ( E X T E N S I O
0032600 N ( 4 0 4 5 X L P ) ) ( C O
0032620 N V E R S I O N ( T E X T \r
0032640 4 0 4 5 X L P . P R I N T T E X
0032660 T 3 T E D I T ( L A M B D A
0032700 ( F I L E P F I L E ) ( S
0032720 E T Q F I L E ( O P E N T E
0032740 X T S T R E A M F I L E ) )
0032760 ( T E D I T . F O R M A T . H A
0033000 R D C O P Y \r F I L E P F I
0033020 L E T N I L N I L N I L
0033040 ( Q U O T E 4 0 4 5 X L P )
0033060 ) ( C L O S E F ? F I L E )
0033100 P F I L E ) T E D I T \ T
0033120 E D I T . H A R D C O P Y ) ) )
0033140 ) \r ( R P A Q Q 4 0 4 5 X L P
0033160 . P R O P E R T I E S ( ( M E
0033200 D I A ( ( P A P E R ( K N O
0033220 W N . S I Z E " U S . L E T T
0033240 E R " ) ) ) ) ( S T A P L E
0033260 N I L ) ( T W O . S I D E D
0033300 N I L ) ) ) \r ( R P A Q ? 4 0
0033320 4 5 X L P . M O N I T O R ( C
0033340 R E A T E . M O N I T O R L O C
0033360 K ( Q U O T E 4 0 4 5 X L P
0033400 ) ) ) \r ( R P A Q ? 4 0 4 5 X
0033420 L P . D E F A U L T . P O R T
0033440 ( Q U O T E { R S 2 3 2 } ) )
0033460 \r ( R P A Q ? 4 0 4 5 X L P .
0033500 P R I N T . H E A D E R P A G E
0033520 N I L ) \r ( P U T P R O P S
0033540 4 0 4 5 X L P D E F A U L T P R
0033560 I N T E R C O P Y R I G H T
0033600 ( " X E R O X C o r p o r a t
0033620 i o n " 1 9 8 6 ) ) \r N I L \r
0033640