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