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