$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>SETDEFAULTPRINTER!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 4 - M a r - 8 7 1 5 : 5 7 : 2
0000140 9 " 006 004 { P H Y L U M } < L I
0000160 S P U S E R S > L Y R I C > S E
0000200 T D E F A U L T P R I N T E R .
0000220 ; 1 006 001 4 4 5 4 \r \r
0000240 p r e v i o u s d a t
0000260 e % : " 8 - J u l - 8 6 1
0000300 2 : 3 7 : 1 9 " { P H Y L U M
0000320 } < L I S P U S E R S > K O T O
0000340 > S E T D E F A U L T P R I N T
0000360 E R . ; 1 ) \r \r \r ( * " \r C o
0000400 p y r i g h t ( c ) 1 9 8 5
0000420 , 1 9 8 6 , 1 9 8 7 b y
0000440 X e r o x C o r p o r a t i o
0000460 n . A l l r i g h t s r
0000500 e s e r v e d . \r " ) \r \r ( P R
0000520 E T T Y C O M P R I N T S E T
0000540 D E F A U L T P R I N T E R C O
0000560 M S ) \r \r ( R P A Q Q 006 002 S E
0000600 T D E F A U L T P R I N T E R C
0000620 O M S 006 001 ( ( * * t h e
0000640 r e g u l a r D E F A U L T S
0000660 U B I T E M F N m o d i f i e
0000700 d t o r e c o g n i z e E
0000720 V A L a s a k e y t o
0000740 E V A L t h e C A D R o f
0000760 t h e l i s t t o g e t
0001000 t h e s u b i t e m s ) (
0001020 F I L E S D E F A U L T S U B
0001040 I T E M F N ) ( * * t h e
0001060 s e t d e f a u l t p r i n t
0001100 e r f u n c t i o n s ) ( F
0001120 N S \ s d p . g e t . p r i n
0001140 t e r \ s d p . m e n u . s u
0001160 b i t e m s \ s d p . s e t .
0001200 p r i n t e r ) ( * * S D
0001220 P . P R I N T E R I N F O i s
0001240 t h e p l a c e t o l o
0001260 o k u p t h i n g s l i k
0001300 e p r i n t e r l o c a t i
0001320 o n , i t a l s o l o o k
0001340 s o n t h e n a m e o f
0001360 t h e p r i n t e r f o r
0001400 a L O C A T I O N p r o p
0001420 e r t y ) ( I N I T V A R S
0001440 ( S D P . P R I N T E R I N F O
0001460 N I L ) ( \ \ s d p . r e a
0001500 d . t a b l e ( C O P Y R E A
0001520 D T A B L E ( Q U O T E O R
0001540 I G ) ) ) ) ( * * t h e
0001560 v a r i a b l e s t h a t s
0001600 i g n a l r e c r e a t i n g
0001620 t h e m e n u s u b i t e
0001640 m s ) ( V A R S ( \ \ s d p
0001660 . k n o w n . p r i n t e r s )
0001700 ( \ \ s d p . m e n u . s u b
0001720 i t e m s ) ) ( * * i n s
0001740 i n u a t e s e l f i n t o
0001760 b a c k g r o u n d m e n u
0002000 ) ( A D D V A R S ( B a c k
0002020 g r o u n d M e n u C o m m a n
0002040 d s ( " S e t D e f a u l t
0002060 P r i n t e r " ( \ s d p .
0002100 s e t . p r i n t e r ( \ s d
0002120 p . g e t . p r i n t e r ) )
0002140 " A s k s f o r ( n e w )
0002160 d e f a u l t p r i n t e r
0002200 n a m e . < c r > w i t h
0002220 o u t e n t e r i n g n a m
0002240 e a b o r t s c h a n g e .
0002260 " ( E V A L ( \ s d p . m e
0002300 n u . s u b i t e m s ) ) ) ) )
0002320 ( * * r e s e t t h e
0002340 b a c k g r o u n d m e n u
0002360 s o o u r c h a n g e t a
0002400 k e s e f f e c t , a n d
0002420 r e m o v e s p a c e f r o
0002440 m t h e s e p a r a t o r s
0002460 w h e n r e a d i n g p r
0002500 i n t e r n a m e s ) ( P
0002520 ( S E T Q B a c k g r o u n d
0002540 M e n u ) ( S E T S Y N T A X
0002560 3 2 ( Q U O T E O T H E R
0002600 ) \ \ s d p . r e a d . t a b
0002620 l e ) ) ) \r ) \r \f 006 004 ( * *
0002640 t h e r e g u l a r D E F A
0002660 U L T S U B I T E M F N m o d
0002700 i f i e d t o r e c o g n i
0002720 z e E V A L a s a k e y
0002740 t o E V A L t h e C A D
0002760 R o f t h e l i s t t o
0003000 \r g e t t h e s u b i t e
0003020 m s ) 006 001 \r \r ( F I L E S L O A
0003040 D D E F A U L T S U B I T E M
0003060 F N ) \r \f 006 004 ( * * t h e
0003100 s e t d e f a u l t p r i n t e
0003120 r f u n c t i o n s ) 006 001 \r \r
0003140 ( D E F I N E Q \r \r ( 006 004 \ s d
0003160 p . g e t . p r i n t e r 006 001 \r
0003200 ( L A M B D A N I L ( * N
0003220 . H . B r i g g s " 2 4 - M a
0003240 r - 8 6 1 6 : 2 4 " ) ( *
0003260 T B i g h a m " 2 - D e c -
0003300 8 5 0 7 : 4 8 " ) ( D E C L
0003320 A R E ( G L O B A L V A R S
0003340 L A S T M O U S E X L A S T M
0003360 O U S E Y \ \ s d p . r e a d
0003400 . t a b l e ) ) ( L E T * (
0003420 ( f o n t ( D E F A U L T F O
0003440 N T ( Q U O T E D I S P L A
0003460 Y ) ) ) ( p r o m p t " E n
0003500 t e r p r i n t e r n a m e
0003520 : " ) ( w i n d o w ( C R
0003540 E A T E W ( M A K E W I T H I
0003560 N R E G I O N ( C R E A T E R
0003600 E G I O N L A S T M O U S E X
0003620 L A S T M O U S E Y ( W I D
0003640 T H I F W I N D O W ( I P L U
0003660 S ( S T R I N G W I D T H p
0003700 r o m p t f o n t ) ( I T I
0003720 M E S 4 0 ( C H A R W I D T
0003740 H ( C H A R C O D E M ) f
0003760 o n t ) ) ) ) ( H E I G H T I
0004000 F W I N D O W ( F O N T P R O
0004020 P f o n t ( Q U O T E H E
0004040 I G H T ) ) ) ) ) N I L N I
0004060 L T ) ) ) ( R E S E T L S T
0004100 ( R E S E T S A V E ( O P E
0004120 N W w i n d o w ) ( B Q U O
0004140 T E ( C L O S E W % , w i
0004160 n d o w ) ) ) ( S E T Q i n
0004200 p u t ( P R O M P T F O R W O
0004220 R D p r o m p t N I L N I
0004240 L w i n d o w N I L N I L
0004260 ( C H A R C O D E E O L ) )
0004300 ) ( A N D i n p u t ( C A
0004320 R ( N L S E T Q ( R E A D
0004340 ( O P E N S T R I N G S T R E A
0004360 M i n p u t ( Q U O T E I
0004400 N P U T ) ) \ \ s d p . r e a
0004420 d . t a b l e ) ) ) ) ) ) ) \r )
0004440 \r \r ( 006 004 \ s d p . m e n u . s
0004460 u b i t e m s 006 001 \r ( L A M B D
0004500 A N I L ( * N . H . B r i
0004520 g g s " 2 4 - M a r - 8 6 1
0004540 6 : 0 9 " ) ( i f ( A N D
0004560 \ \ s d p . m e n u . s u b i t
0004600 e m s ( E Q U A L \ \ s d p
0004620 . k n o w n . p r i n t e r s
0004640 D E F A U L T P R I N T I N G H
0004660 O S T ) ) t h e n \ \ s d p
0004700 . m e n u . s u b i t e m s e
0004720 l s e ( S E T Q \ \ s d p .
0004740 k n o w n . p r i n t e r s (
0004760 C O P Y D E F A U L T P R I N
0005000 T I N G H O S T ) ) ( S E T Q
0005020 \ \ s d p . m e n u . s u b i
0005040 t e m s ( N C O N C 1 ( f o
0005060 r p r i n t e r i n s i d e
0005100 \ \ s d p . k n o w n . p r i
0005120 n t e r s c o l l e c t ( L
0005140 I S T p r i n t e r ( L I S
0005160 T ( Q U O T E \ s d p . s e
0005200 t . p r i n t e r ) ( K W O T
0005220 E p r i n t e r ) ) ( O R
0005240 ( G E T P R O P ( U - C A S E
0005260 p r i n t e r ) ( Q U O T E
0005300 L O C A T I O N ) ) ( C D R
0005320 ( A S S O C ( U - C A S E
0005340 p r i n t e r ) S D P . P R I
0005360 N T E R I N F O ) ) ) ) ) ( L
0005400 I S T " O t h e r . . . " (
0005420 Q U O T E ( \ s d p . s e t .
0005440 p r i n t e r ( \ s d p . g e
0005460 t . p r i n t e r ) ) ) " A s
0005500 k s f o r ( n e w ) d e f
0005520 a u l t p r i n t e r n a m
0005540 e . < c r > w i t h o u t
0005560 e n t e r i n g n a m e a
0005600 b o r t s c h a n g e . " ) )
0005620 ) ) ) \r ) \r \r ( 006 004 \ s d p . s
0005640 e t . p r i n t e r 006 001 \r ( L A
0005660 M B D A ( p r i n t e r ) (
0005700 * N . H . B r i g g s " 8
0005720 - J u l - 8 6 1 2 : 2 9 " )
0005740 ( L E T ( ( c a n o n i c a l
0005760 p r i n t e r n a m e ( C A N
0006000 O N I C A L . H O S T N A M E
0006020 p r i n t e r ) ) ) ( i f (
0006040 A N D p r i n t e r ( N O T
0006060 ( S T R I N G - E Q U A L c
0006100 a n o n i c a l p r i n t e r n
0006120 a m e ( C A N O N I C A L . H
0006140 O S T N A M E ( C A R ( S E
0006160 T Q D E F A U L T P R I N T I
0006200 N G H O S T ( M K L I S T D
0006220 E F A U L T P R I N T I N G H O
0006240 S T ) ) ) ) ) ) ) t h e n (
0006260 S E T Q D E F A U L T P R I N
0006300 T I N G H O S T ( C O N S p
0006320 r i n t e r ( S U B S E T D
0006340 E F A U L T P R I N T I N G H O
0006360 S T ( F U N C T I O N ( L A
0006400 M B D A ( x ) ( N O T ( S
0006420 T R I N G - E Q U A L ( C A N
0006440 O N I C A L . H O S T N A M E
0006460 x ) c a n o n i c a l p r i n
0006500 t e r n a m e ) ) ) ) ) ) ) (
0006520 P R O M P T P R I N T " d e f
0006540 a u l t p r i n t e r s e t
0006560 t o " p r i n t e r ) e
0006600 l s e ( P R O M P T P R I N T
0006620 " d e f a u l t p r i n t e
0006640 r n o t c h a n g e d " ) )
0006660 ) N I L ) \r ) \r ) \r \f 006 004 ( *
0006700 * S D P . P R I N T E R I N
0006720 F O i s t h e p l a c e
0006740 t o l o o k u p t h i n g
0006760 s l i k e p r i n t e r l
0007000 o c a t i o n , i t a l s o
0007020 l o o k s o n t h e n a
0007040 m e \r o f t h e p r i n t
0007060 e r f o r a L O C A T I O
0007100 N p r o p e r t y ) 006 001 \r \r \r
0007120 ( R P A Q ? 006 002 S D P . P R I
0007140 N T E R I N F O 006 001 N I L ) \r
0007160 \r ( R P A Q ? 006 002 \ \ s d p .
0007200 r e a d . t a b l e 006 001 ( C O
0007220 P Y R E A D T A B L E ( Q U O
0007240 T E O R I G ) ) ) \r \f 006 004 ( *
0007260 * t h e v a r i a b l e s
0007300 t h a t s i g n a l r e c
0007320 r e a t i n g t h e m e n u
0007340 s u b i t e m s ) 006 001 \r \r \r (
0007360 R P A Q Q 006 002 \ \ s d p . k n
0007400 o w n . p r i n t e r s 006 001 N
0007420 I L ) \r \r ( R P A Q Q 006 002 \ \
0007440 s d p . m e n u . s u b i t e m
0007460 s 006 001 N I L ) \r \f 006 004 ( * *
0007500 i n s i n u a t e s e l f
0007520 i n t o b a c k g r o u n d
0007540 m e n u ) 006 001 \r \r \r ( A D D T O
0007560 V A R 006 002 B a c k g r o u n d
0007600 M e n u C o m m a n d s 006 001 (
0007620 " S e t D e f a u l t P r i
0007640 n t e r " ( \ s d p . s e t .
0007660 p r i n t e r ( \ s d p . g e
0007700 t . p r i n t e r ) ) " A s k
0007720 s f o r ( n e w ) d e f a
0007740 u l t p r i n t e r n a m e
0007760 . < c r > w i t h o u t
0010000 e n t e r i n g n a m e a b
0010020 o r t s c h a n g e . " ( E
0010040 V A L ( \ s d p . m e n u . s
0010060 u b i t e m s ) ) ) \r ) \r \f 006 004
0010100 ( * * r e s e t t h e b
0010120 a c k g r o u n d m e n u s
0010140 o o u r c h a n g e t a k
0010160 e s e f f e c t , a n d r
0010200 e m o v e s p a c e f r o m
0010220 t h e s e p a r a t o r s
0010240 w h e n \r r e a d i n g p r
0010260 i n t e r n a m e s ) 006 001 \r \r
0010300 ( S E T Q B a c k g r o u n d
0010320 M e n u ) \r ( S E T S Y N T A X
0010340 3 2 ( Q U O T E O T H E R
0010360 ) \ \ s d p . r e a d . t a b
0010400 l e ) \r ( P U T P R O P S S E
0010420 T D E F A U L T P R I N T E R
0010440 C O P Y R I G H T ( " X e r o
0010460 x C o r p o r a t i o n " 1
0010500 9 8 5 1 9 8 6 1 9 8 7 ) ) \r
0010520 ( D E C L A R E % : D O N T C
0010540 O P Y \r ( F I L E M A P (
0010560 N I L ( 1 6 3 2 3 5 1 4 (
0010600 \ s d p . g e t . p r i n t e r
0010620 1 6 4 2 . 2 3 3 6 ) ( \
0010640 s d p . m e n u . s u b i t e m
0010660 s 2 3 3 8 . 2 9 6 5 ) (
0010700 \r \ s d p . s e t . p r i n t e
0010720 r 2 9 6 7 . 3 5 1 2 ) ) )
0010740 ) ) \r S T O P \r
0010750