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