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