$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>PRINTERMENU!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 " 1
0000120 3 - F e b - 8 7 0 9 : 1 1 : 4
0000140 6 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > P R I N
0000200 T E R M E N U . ; 1 006 001 2 2 2
0000220 8 9 \r \r p r e v
0000240 i o u s d a t e % : " 6 -
0000260 N o v - 8 5 1 3 : 1 8 : 5 6 "
0000300 { P H Y L U M } < L I S P > K
0000320 O T O > L I S P U S E R S > P R
0000340 I N T E R M E N U . ; 1 ) \r \r \r
0000360 ( * " \r C o p y r i g h t (
0000400 c ) 1 9 8 5 , 1 9 8 7 b y
0000420 R o b e r t R i d d e r .
0000440 A l l r i g h t s r e s e
0000460 r v e d . \r " ) \r \r ( P R E T T
0000500 Y C O M P R I N T P R I N T E
0000520 R M E N U C O M S ) \r \r ( R P A
0000540 Q Q 006 002 P R I N T E R M E N U
0000560 C O M S 006 001 ( ( F N S P R I
0000600 N T E R M E N U P R I N T E R
0000620 M E N U . A D D M E N U T O W I
0000640 N D O W P R I N T E R M E N U
0000660 . A D D O R D E L E T E ? \r
0000700
0000720 P R I N
0000740 T E R M E N U . A F T E R M O V
0000760 E F N P R I N T E R M E N U .
0001000 C L O S E F N P R I N T E R M
0001020 E N U . C R E A T E M E N U \r
0001040
0001060 P R I
0001100 N T E R M E N U . C R E A T E P
0001120 R O M P T W I N D O W P R I N
0001140 T E R M E N U . G E T N A M E
0001160 P R I N T E R M E N U . I N F O
0001200 H O O K \r
0001220
0001240 P R I N T E R M E N U . S
0001260 E L E C T P R I N T E R P R I
0001300 N T E R M E N U . T O F R O N T
0001320 O F L I S T P R I N T E R M E
0001340 N U . W A T C H \r
0001360
0001400 P R I N T E R M E
0001420 N U . W H E N H E L D F N P R
0001440 I N T E R M E N U . W H E N S E
0001460 L E C T E D F N ) \r
0001500
0001520 ( I N I T V A R S ( P R I
0001540 N T E R M E N U . P O S I T I O
0001560 N N I L ) \r
0001600
0001620 ( P R I N T E R M E
0001640 N U . S H A D E 1 9 3 4 5 ) \r
0001660
0001700 (
0001720 P R I N T E R M E N U . W A T C
0001740 H . W A I T 5 ) \r
0001760
0002000 ( P R I N T E
0002020 R M E N U . W I N D O W N I L
0002040 ) ) \r
0002060 ( G L O B
0002100 A L V A R S D E F A U L T P R
0002120 I N T I N G H O S T D E F A U
0002140 L T T T Y R E G I O N P R I N
0002160 T E R M E N U . P O S I T I O N
0002200 \r
0002220
0002240 P R I N T E R M E N U . S H A
0002260 D E 1 P R I N T E R M E N U .
0002300 W A T C H . W A I T P R I N T
0002320 E R M E N U . W I N D O W \r
0002340
0002360 P R
0002400 O M P T W I N D O W ) \r
0002420
0002440 ( P ( i f ( P O S I
0002460 T I O N P P R I N T E R M E N
0002500 U . P O S I T I O N ) \r
0002520
0002540 t h e n \r
0002560
0002600 (
0002620 P R I N T E R M E N U ) ) ) ) )
0002640 \r ( D E F I N E Q \r \r ( 006 004 P R
0002660 I N T E R M E N U 006 001 \r ( L
0002700 A M B D A N I L 006 006 006 001
0002720
*
0002760 006 006 (
0003000 * R A R " 6 - N o v - 8 5
0003020 1 2 : 3 3 " ) 006 001 \r
0003040 \r
0003060 006 006 ( * * C r e a t e s a
0003100 m e n u w i n d o w w h i
0003120 c h c a n b e u s e d t
0003140 o a l t e r t h e v a l u
0003160 e o f \r 006 001
0003200 006 006 D E F A U L T P R I N T
0003220 I N G H O S T s u c h t h a
0003240 t o n e c a n a d d p r
0003260 i n t e r s , d e l e t e p
0003300 r i n t e r s , a n d \r 006 001
0003320 006 006 r e a r
0003340 r a n g e t h e o r d e r
0003360 o f p r i n t e r s o n t
0003400 h e l i s t . ) 006 001 \r \r
0003420 ( P R O G ( B o t t o m H
0003440 e i g h t L e f t M e n u
0003460 P r o c e s s W i d t h ) \r
0003500 \r
0003520 006 006 ( * * M a k e
0003540 t h e m e n u ) 006 001 \r \r
0003560 ( S E T Q M e n
0003600 u ( 006 002 P R I N T E R M E N U
0003620 . C R E A T E M E N U 006 001 ) ) \r
0003640 ( S E T Q
0003660 W i d t h ( 006 002 f e t c h 006 001
0003700 ( M E N U I M A G E W I D T
0003720 H ) 006 002 o f 006 001 M e n u ) )
0003740 \r ( S E T Q
0003760 H e i g h t ( 006 002 f e t c h
0004000 006 001 ( M E N U I M A G E H E
0004020 I G H T ) 006 002 o f 006 001 M e n
0004040 u ) ) \r \r
0004060 006 006 ( * *
0004100 F i n d o u t w h e r e t
0004120 o p u t i t ) 006 001 \r \r
0004140 ( C O N D \r
0004160 ( ( N O T
0004200 ( P O S I T I O N P P R I N T
0004220 E R M E N U . P O S I T I O N )
0004240 ) \r
0004260 ( S E T Q P R I N T E R M E N
0004300 U . P O S I T I O N ( G E T B
0004320 O X P O S I T I O N W i d t h
0004340 H e i g h t ) ) ) ) \r
0004360 ( S E T Q L e f t
0004400 ( 006 002 f e t c h 006 001 ( P O S
0004420 I T I O N X C O O R D ) 006 002
0004440 o f 006 001 P R I N T E R M E N U
0004460 . P O S I T I O N ) ) \r
0004500 ( S E T Q B o t t
0004520 o m ( 006 002 f e t c h 006 001 ( P
0004540 O S I T I O N Y C O O R D )
0004560 006 002 o f 006 001 P R I N T E R M E
0004600 N U . P O S I T I O N ) ) \r
0004620 \r
0004640 006 006 ( * * S u s p e n
0004660 d P R I N T E R M E N U . W A
0004700 T C H i f i t ' s r u n n
0004720 i n g ) 006 001 \r \r
0004740 ( C O N D \r
0004760 ( ( S E T Q P r o c
0005000 e s s ( F I N D . P R O C E S
0005020 S ' P R I N T E R M E N U . W
0005040 A T C H ) ) \r
0005060 ( S U S P E N D . P R
0005100 O C E S S P r o c e s s ) ) )
0005120 \r \r
0005140 006 006 ( * * O n l
0005160 y o n e w i n d o w a l l
0005200 o w e d . C l o s e a n y
0005220 o l d o n e . ) 006 001 \r \r
0005240 ( C O N D \r
0005260 ( ( W I N D
0005300 O W P P R I N T E R M E N U .
0005320 W I N D O W ) \r
0005340 ( W I N D O W P R O
0005360 P P R I N T E R M E N U . W I
0005400 N D O W ' C L O S E F N ( F
0005420 U N C T I O N N I L L ) ) \r
0005440 ( C L
0005460 O S E W P R I N T E R M E N U
0005500 . W I N D O W ) ) ) \r
0005520 \r
0005540 006 006 ( * * C r e a t e a
0005560 n e w w i n d o w ) 006 001 \r \r
0005600 ( S E T Q P
0005620 R I N T E R M E N U . W I N D O
0005640 W ( C R E A T E W ( C R E A
0005660 T E R E G I O N L e f t B o
0005700 t t o m W i d t h H e i g h
0005720 t ) \r
0005740
0005760 N I L
0006000 0 T ) ) \r
0006020 ( W I N D O W P R O P P R I
0006040 N T E R M E N U . W I N D O W
0006060 ' A F T E R M O V E F N ( F U
0006100 N C T I O N P R I N T E R M E
0006120 N U . A F T E R M O V E F N ) )
0006140 \r ( W I N D
0006160 O W P R O P P R I N T E R M E
0006200 N U . W I N D O W ' R E S H A
0006220 P E F N ' D O N ' T ) \r
0006240 ( W I N D O W P R
0006260 O P P R I N T E R M E N U . W
0006300 I N D O W ' D E F A U L T P R
0006320 I N T I N G H O S T ( C O P Y
0006340 A L L D E F A U L T P R I N T
0006360 I N G H O S T ) ) \r
0006400 ( W I N D O W P R O P
0006420 P R I N T E R M E N U . W I N D
0006440 O W ' C L O S E F N ( F U N
0006460 C T I O N P R I N T E R M E N
0006500 U . C L O S E F N ) ) \r
0006520 \r
0006540 006 006 ( * * A d d t h e
0006560 m e n u t o P R I N T E R M
0006600 E N U . W I N D O W ) 006 001 \r \r
0006620 ( 006 002 P R I N
0006640 T E R M E N U . A D D M E N U T
0006660 O W I N D O W 006 001 M e n u ) \r
0006700 \r
0006720 006 006 ( * * S t a r
0006740 t t h e p r o c e s s t o
0006760 m o n i t o r t h e v a l
0007000 u e o f D E F A U L T P R I
0007020 N T I N G H O S T ) 006 001 \r \r
0007040 ( C O N D \r
0007060 ( ( P R O
0007100 C E S S P P r o c e s s ) \r
0007120 ( W A
0007140 K E . P R O C E S S P r o c e
0007160 s s ) ) \r
0007200 ( T ( A D D . P R O C E S
0007220 S ' ( 006 002 P R I N T E R M E N
0007240 U . W A T C H 006 001 ) ' N A M E
0007260 ' P R I N T E R M E N U . W A
0007300 T C H ' I N F O H O O K \r
0007320
0007340 ( F U N C T I O N P
0007360 R I N T E R M E N U . I N F O H
0007400 O O K ) ) ) ) \r
0007420 \r 006 006 (
0007440 * * O p e n t h e m e n
0007460 u w i n d o w a n d r e t
0007500 u r n i t ) 006 001 \r \r
0007520 ( O P E N W P R I N
0007540 T E R M E N U . W I N D O W ) \r
0007560 ( R E T U R
0007600 N P R I N T E R M E N U . W I
0007620 N D O W ) ) ) ) \r \r ( 006 004 P R I
0007640 N T E R M E N U . A D D M E N U
0007660 T O W I N D O W 006 001 \r ( L A
0007700 M B D A ( M e n u ) 006 006 006 001
0007720
*
0007760 006 006 ( *
0010000 R i d d e r % : " 2 - A u
0010020 g - 8 5 1 3 : 3 2 " ) 006 001 \r
0010040 \r
0010060 006 006 ( * * P l a c e
0010100 M e n u i n P R I N T E R
0010120 M E N U . W I N D O W a n d
0010140 s h a d e f i r s t t w o
0010160 i t e m s o f m e n u ) 006 001
0010200 \r \r ( P R O G ( ( M e
0010220 n u i t e m s ( 006 002 f e t c h
0010240 006 001 ( M E N U I T E M S )
0010260 006 002 o f 006 001 M e n u ) ) ) \r
0010300 ( A D D M E N
0010320 U M e n u P R I N T E R M E
0010340 N U . W I N D O W ) \r
0010360 ( S H A D E I T E M
0010400 ( C A R M e n u i t e m s ) \r
0010420
0010440 M e n u B L A C K S H A D E
0010460 P R I N T E R M E N U . W I N
0010500 D O W ) \r (
0010520 C O N D \r
0010540 ( ( I G E Q ( L E N G T H
0010560 M e n u i t e m s ) \r
0010600
0010620 2 ) \r
0010640 ( S H A D E I T E M ( C A D
0010660 R M e n u i t e m s ) \r
0010700
0010720 M e n u B L A C K S H A D
0010740 E P R I N T E R M E N U . W I
0010760 N D O W ) ) ) ) ) ) \r \r ( 006 004 P
0011000 R I N T E R M E N U . A D D O R
0011020 D E L E T E ? 006 001 \r ( L A M
0011040 B D A N I L 006 006 006 001
0011060
*
0011120 006 006 ( *
0011140 R A R " 9 - O c t - 8 5 1
0011160 3 : 4 1 " ) 006 001 \r
0011200 \r 006 006
0011220 ( * * A d d o r D e l e
0011240 t e f r o m D E F A U L T P
0011260 R I N T I N G H O S T ) 006 001 \r \r
0011300 ( P R O G ( I t e m
0011320 P r i n t e r ) \r
0011340 \r 006 006
0011360 ( * * P o p u p a l i t
0011400 t l e m e n u t o f i n d
0011420 o u t i f a d d o r d
0011440 e l e t e w a n t e d ) 006 001 \r
0011460 \r ( S E T Q
0011500 I t e m ( M E N U ( 006 002 c
0011520 r e a t e 006 001 M E N U \r
0011540
0011560 I
0011600 T E M S _ ' ( ( A d d % P
0011620 r i n t e r ' A d d \r
0011640
*
0011700 " A
0011720 l l o w s y o u t o a d d
0011740 a p r i n t e r t o D E
0011760 F A U L T P R I N T I N G H O S
0012000 T " \r
0012020
*
0012060 ) \r
0012100
*
0012140 ( D e l e t e % P r i
0012160 n t e r ' D e l e t e \r
0012200
*
0012240 " A l l o w
0012260 s y o u t o d e l e t e
0012300 a p r i n t e r f r o m D
0012320 E F A U L T P R I N T I N G H O
0012340 S T " \r
0012360
*
0012420 ) ) \r
0012440
0012460 C E N T
0012500 E R F L G _ T \r
0012520
0012540 M E N U
0012560 B O R D E R S I Z E _ 1 ) )
0012600 ) \r ( C O N
0012620 D \r (
0012640 ( N O T ( O R ( E Q I t e
0012660 m ' A d d ) \r
0012700 (
0012720 E Q I t e m ' D e l e t e )
0012740 ) ) \r
0012760 ( R E T U R N N I L ) ) ) \r
0013000 \r
0013020 006 006 ( * * S i n c
0013040 e w e ' l l b e r e q u i
0013060 r i n g t h e u s e o f
0013100 t h e m o u s e f o r a w
0013120 h i l e , s p a w n a n e
0013140 w \r 006 001 006
0013160 006 m o u s e s o t h i n g s
0013200 c a n ' t g e t l o c k e
0013220 d u p . ) 006 001 \r \r
0013240 ( S P A W N . M O U S E
0013260 ) \r \r
0013300 006 006 ( * * F i
0013320 n d o u t w h a t t o A
0013340 d d o r D e l e t e ) 006 001 \r
0013360 \r ( S E T Q
0013400 P r i n t e r ( 006 002 P R I N
0013420 T E R M E N U . G E T N A M E 006
0013440 001 I t e m ) ) \r
0013460 \r 006 006
0013500 ( * * I f n o t h i n g
0013520 r e t u r n e d , w e ' r e
0013540 d o n e ) 006 001 \r \r
0013560 ( C O N D \r
0013600 ( ( N O T P r i n
0013620 t e r ) \r
0013640 ( R E T U R N N I L ) )
0013660 ) \r \r
0013700 006 006 ( * * I f
0013720 A d d o r D e l e t e ,
0013740 t h e n d o i t ) 006 001 \r \r
0013760 ( C O N D \r
0014000 ( ( E Q
0014020 I t e m ' A d d ) \r
0014040 ( C O N D \r
0014060
0014100 ( ( N O T ( M E M B E R P
0014120 r i n t e r D E F A U L T P R
0014140 I N T I N G H O S T ) ) \r
0014160 (
0014200 S E T Q D E F A U L T P R I N
0014220 T I N G H O S T ( A T T A C H
0014240 P r i n t e r D E F A U L T
0014260 P R I N T I N G H O S T ) ) \r
0014300
0014320 ( R E T U R N I t e m ) ) )
0014340 ) \r (
0014360 ( E Q I t e m ' D e l e t e
0014400 ) \r
0014420 ( C O N D \r
0014440 ( ( S E T Q P r
0014460 i n t e r \r
0014500 ( 006 002 f o r 006
0014520 001 E l e m e n t 006 002 i n 006 001
0014540 D E F A U L T P R I N T I N G
0014560 H O S T \r
0014600 006 002 d o 006
0014620 001 ( C O N D \r
0014640
0014660 ( ( O R ( A N D ( L
0014700 I S T P E l e m e n t ) \r
0014720
*
0014760 ( E Q U A L P r i n t
0015000 e r ( M K A T O M ( O R (
0015020 A N D ( I G E Q 2 ( L E N
0015040 G T H E l e m e n t ) ) \r
0015060
*
0015160 ( C A D R E l e m e n
0015200 t ) ) \r
0015220
*
0015300 ( C A R E l e m e n
0015320 t ) ) ) ) ) \r
0015340
0015360 ( E Q U A L P
0015400 r i n t e r ( M K A T O M E
0015420 l e m e n t ) ) ) \r
0015440
0015460 ( R E T U R N E
0015500 l e m e n t ) ) ) ) ) \r
0015520 ( C
0015540 O N D \r
0015560 ( ( E Q L E N
0015600 G T H D E F A U L T P R I N T
0015620 I N G H O S T 1 ) \r
0015640
0015660 ( S E T Q D E F A U L T P R
0015700 I N T I N G H O S T N I L ) )
0015720 \r
0015740 ( T ( S E T Q D
0015760 E F A U L T P R I N T I N G H O
0016000 S T ( R E M O V E P r i n t
0016020 e r D E F A U L T P R I N T I
0016040 N G H O S T ) ) ) ) \r
0016060 ( R E
0016100 T U R N I t e m ) ) ) ) ) ) )
0016120 ) \r \r ( 006 004 P R I N T E R M E N
0016140 U . A F T E R M O V E F N 006 001 \r
0016160 ( L A M B D A ( W i n d o
0016200 w ) 006 006 006 001
0016220
*
0016260 006 006 ( * R A R " 8 - O c
0016300 t - 8 5 0 8 : 4 3 " ) 006 001 \r
0016320 \r
0016340 006 006 ( * * U p d a t
0016360 e t h e v a l u e o f P
0016400 R I N T E R M E N U . P O S I T
0016420 I O N ) 006 001 \r \r ( P R O
0016440 G ( ( R e g i o n ( W I N D
0016460 O W P R O P W i n d o w ' R
0016500 E G I O N ) ) ) \r
0016520 ( S E T Q P R I N T E R
0016540 M E N U . P O S I T I O N ( 006
0016560 002 c r e a t e 006 001 P O S I T I
0016600 O N \r
0016620
0016640 X
0016660 C O O R D _ ( 006 002 f e t c h
0016700 006 001 ( R E G I O N L E F T )
0016720 006 002 o f 006 001 R e g i o n ) \r
0016740
*
0017000 Y C O O
0017020 R D _ ( 006 002 f e t c h 006 001
0017040 ( R E G I O N B O T T O M )
0017060 006 002 o f 006 001 R e g i o n ) ) )
0017100 ) ) ) \r \r ( 006 004 P R I N T E R M
0017120 E N U . C L O S E F N 006 001 \r
0017140 ( L A M B D A N I L 006 006 006 001
0017160
*
0017220 006
0017240 006 ( * R A R " 4 - N o v -
0017260 8 5 1 0 : 4 5 " ) 006 001 \r
0017300 \r
0017320 006 006 ( * * S e t t h e
0017340 g l o b a l v a r f o r t
0017360 h e p r i n t e r m e n u w
0017400 i n d o w t o N I L ) 006 001 \r
0017420 \r ( S E T Q P R I N T
0017440 E R M E N U . W I N D O W N I
0017460 L ) \r \r
0017500 006 006 ( * * I
0017520 f P R I N T E R M E N U . W I
0017540 N D O W c l o s e d , t h e
0017560 n s h u t d o w n p r o c
0017600 e s s t o m o n i t o r \r
0017620 006 001 006 006 D E
0017640 F A U L T P R I N T I N G H O S
0017660 T ) 006 001 \r \r ( P R O G
0017700 ( ( P r o c e s s ( F I N D .
0017720 P R O C E S S ' P R I N T E R
0017740 M E N U . W A T C H ) ) ) \r
0017760 ( 006 002 i f 006 001
0020000 P r o c e s s \r
0020020 006 002 t h e n 006 001 (
0020040 D E L . P R O C E S S P r o c
0020060 e s s ) ) ) ) ) \r \r ( 006 004 P R I
0020100 N T E R M E N U . C R E A T E M
0020120 E N U 006 001 \r ( L A M B D A
0020140 N I L 006 006 006 001
0020160
*
0020220 006 006 ( * R A R
0020240 " 8 - O c t - 8 5 1 0 : 3 2
0020260 " ) 006 001 \r \r
0020300 006 006 ( * *
0020320 C r e a t e a n d r e t u
0020340 r n t h e m e n u t o b
0020360 e u s e d b y P R I N T E
0020400 R M E N U ) 006 001 \r \r ( 006
0020420 002 c r e a t e 006 001 M E N U \r
0020440 I T E M S
0020460 _ ( A T T A C H ' D E F A U
0020500 L T % P R I N T E R ( 006 002 f
0020520 o r 006 001 I t e m 006 002 i n 006 001
0020540 D E F A U L T P R I N T I N G
0020560 H O S T \r
0020600
*
0020640 006 002 c o l l e c t 006 001
0020660 ( C O N D \r
0020700
*
0020760 ( ( L I S T P I t e m ) \r
0021000
*
0021060 ( M K A
0021100 T O M ( C O N D \r
0021120
*
0021220 ( ( I G E Q 2 ( L E N G T
0021240 H I t e m ) ) \r
0021260
*
0021360 ( C A D R I t e m ) ) \r
0021400
*
0021500 ( T ( C A R I t e
0021520 m ) ) ) ) ) \r
0021540
*
0021620 ( T ( M K A T O M I t e
0021640 m ) ) ) ) ) \r
0021660 W H E N S E L E C T E D F N
0021700 _ ( F U N C T I O N P R I
0021720 N T E R M E N U . W H E N S E L
0021740 E C T E D F N ) \r
0021760 W H E N H E L D F N _
0022000 ( F U N C T I O N P R I N T
0022020 E R M E N U . W H E N H E L D F
0022040 N ) \r C E
0022060 N T E R F L G _ T \r
0022100 M E N U B O R D E
0022120 R S I Z E _ 1 ) ) ) \r \r ( 006
0022140 004 P R I N T E R M E N U . C R E
0022160 A T E P R O M P T W I N D O W 006
0022200 001 \r ( L A M B D A N I L 006
0022220 006 006 001
0022240
*
0022300 006 006 ( * R A R " 6 -
0022320 N o v - 8 5 1 3 : 1 4 " ) 006 001
0022340 \r \r
0022360 006 006 ( * * R e t
0022400 u r n a w i n d o w t o
0022420 b e u s e d t o a s k f
0022440 o r t h e n a m e o f a
0022460 p r i n t e r t o a d d
0022500 t o t h e \r 006 001
0022520 006 006 m e n u ) 006 001 \r \r
0022540 ( P R O G ( B o t t o m
0022560 F o n t H e i g h t L e f
0022600 t M o u s e X M o u s e Y
0022620 W i d t h ) \r
0022640 ( S E T Q F o n t ( D E F
0022660 A U L T F O N T ' D I S P L A
0022700 Y ) ) \r ( S
0022720 E T Q W i d t h ( W I D T H
0022740 I F W I N D O W ( I T I M E S
0022760 6 0 ( C H A R W I D T H (
0023000 C H C O N 1 " X " ) \r
0023020
*
0023100 F o n t ) ) ) ) \r
0023120 ( S E T Q H e i g
0023140 h t ( H E I G H T I F W I N D
0023160 O W ( I T I M E S 2 ( F O
0023200 N T P R O P F o n t ' H E I
0023220 G H T ) ) \r
0023240
0023260 T ) ) \r
0023300 ( S E T Q L e f t ( C O
0023320 N D \r
0023340 ( ( I G E
0023360 Q ( I D I F F E R E N C E S
0023400 C R E E N W I D T H ( S E T Q
0023420 M o u s e X L A S T M O U S
0023440 E X ) ) \r
0023460
0023500 W i d t h ) \r
0023520
0023540 M o u s e X ) \r
0023560
0023600 ( T ( I M A X 0 (
0023620 I D I F F E R E N C E M o u s
0023640 e X W i d t h ) ) ) ) ) \r
0023660 ( S E T Q B o
0023700 t t o m ( C O N D \r
0023720
0023740 ( ( I G E Q ( I D I
0023760 F F E R E N C E S C R E E N H
0024000 E I G H T ( S E T Q M o u s
0024020 e Y L A S T M O U S E Y ) ) \r
0024040
*
0024100 H e i g h t ) \r
0024120
0024140 M o u s e Y ) \r
0024160
0024200 ( T ( I M A X 0
0024220 ( I D I F F E R E N C E M o
0024240 u s e Y H e i g h t ) ) ) ) )
0024260 \r ( R E T U
0024300 R N ( C R E A T E W ( C R E
0024320 A T E R E G I O N L e f t B
0024340 o t t o m W i d t h H e i g
0024360 h t ) \r
0024400 ' | Q
0024420 u e s t i o n f r o m P R I
0024440 N T E R M E N U : | N I L
0024460 T ) ) ) ) ) \r \r ( 006 004 P R I N T
0024500 E R M E N U . G E T N A M E 006 001
0024520 \r ( L A M B D A ( I t e m
0024540 ) 006 006 006 001
0024560
*
0024620 006 006 ( * R A R " 6 - N
0024640 o v - 8 5 1 3 : 1 2 " ) 006 001 \r
0024660 \r
0024700 006 006 ( * * R e t u
0024720 r n n a m e o f p r i n t
0024740 e r t o a d d o r d e l
0024760 e t e . ) 006 001 \r \r ( C O
0025000 N D \r ( ( E Q I
0025020 t e m ' A d d ) \r
0025040 \r 006
0025060 006 ( * * A d d ) 006 001 \r \r
0025100 ( P R O G ( R e t
0025120 u r n v a l S t r i n g S t
0025140 r i n g s t r e a m W i n d o
0025160 w ) \r
0025200 ( C O N D \r
0025220 ( ( S E T Q S
0025240 t r i n g ( P R O M P T F O R
0025260 W O R D " E n t e r n a m e
0025300 o f p r i n t e r t o a
0025320 d d : " N I L N I L ( S
0025340 E T Q W i n d o w \r
0025360
*
0025500 ( 006 002 \r 006 001
0025520
*
0025620 006 002 P R I N T E R M E N U . C R
0025640 E A T E P R O M P T W I N D O W
0025660 006 001 \r
0025700
*
0026000 ) ) \r
0026020
*
0026060 N I L \r
0026100
0026120 '
0026140 T T Y \r
0026160
0026200 ( C H A R C
0026220 O D E ( E O L E S C A P E
0026240 L F ) ) ) ) \r
0026260 ( S E T Q S
0026300 t r i n g s t r e a m ( O P E
0026320 N S T R I N G S T R E A M S t
0026340 r i n g ' I N P U T ) ) \r
0026360
0026400 ( S E T Q R e t u r n v a l
0026420 ( R E A D S t r i n g s t r e
0026440 a m ) ) \r
0026460 ( C L O S E F S
0026500 t r i n g s t r e a m ) ) ) \r
0026520 ( C L
0026540 O S E W W i n d o w ) \r
0026560 ( R E T U
0026600 R N R e t u r n v a l ) ) ) \r
0026620 ( T 006 006 ( * *
0026640 D e l e t e ) 006 001 \r
0026660 ( P R O G ( D e l e
0026700 t e i t e m ) \r
0026720 \r 006 006 (
0026740 * * T e l l u s e r t o
0026760 s e l e c t s o m e t h i n
0027000 g ) 006 001 \r \r
0027020 ( F R E S H L I N E
0027040 P R O M P T W I N D O W ) \r
0027060 (
0027100 p r i n t o u t P R O M P T W
0027120 I N D O W " S e l e c t a
0027140 p r i n t e r t o d e l e t
0027160 e " T ) \r
0027200 ( S E T Q D e l
0027220 e t e i t e m ( 006 002 P R I N T
0027240 E R M E N U . S E L E C T P R I
0027260 N T E R 006 001 ) ) \r
0027300 ( C L E A R W
0027320 P R O M P T W I N D O W ) \r
0027340 (
0027360 R E T U R N D e l e t e i t e
0027400 m ) ) ) ) ) ) \r \r ( 006 004 P R I N
0027420 T E R M E N U . I N F O H O O K
0027440 006 001 \r ( L A M B D A ( P r
0027460 o c e s s B u t t o n ) 006 006 006
0027500 001
0027520
0027540 006 006 ( * R A R " 6
0027560 - N o v - 8 5 1 2 : 4 4 " ) 006
0027600 001 \r ( p r i n t o u t
0027620 P R O M P T W I N D O W . T A
0027640 B 0 0 " M o n i t o r s t
0027660 h e v a l u e o f D E F A
0027700 U L T P R I N T I N G H O S T
0027720 f o r P R I N T E R M E N U .
0027740 " T ) ) ) \r \r ( 006 004 P R I N T
0027760 E R M E N U . S E L E C T P R I
0030000 N T E R 006 001 \r ( L A M B D A
0030020 N I L 006 006 006 001
0030040
*
0030100 006 006 ( * R A R
0030120 " 9 - O c t - 8 5 1 4 : 1
0030140 9 " ) 006 001 \r
0030160 \r 006 006 ( *
0030200 * R e t u r n t h e p r i
0030220 n t e r s e l e c t e d w i
0030240 t h t h e m o u s e f r o
0030260 m t h e P R I N T E R M E N
0030300 U m e n u , o r \r 006 001
0030320 006 006 r e t u r n
0030340 N I L i f n o n e c h o
0030360 s e n ) 006 001 \r \r ( P R O
0030400 G ( L i s t o f p r i n t e r
0030420 s M e n u M e n u p o s i t
0030440 i o n P r i n t e r S c r e
0030460 e n p o s i t i o n ( W i n d
0030500 o w r e g i o n ( W I N D O W
0030520 P R O P \r
0030540
*
0030640 P R I N T E R M E
0030660 N U . W I N D O W \r
0030700
*
0031000 ' R E G
0031020 I O N ) ) ) \r
0031040 \r 006 006 ( *
0031060 * G e t t h e m e n u
0031100 i n t h e P R I N T E R M E
0031120 N U . W I N D O W ) 006 001 \r \r
0031140 ( S E T Q M e
0031160 n u ( W I N D O W P R O P P
0031200 R I N T E R M E N U . W I N D O
0031220 W ' M E N U ) ) \r
0031240 ( C O N D \r
0031260 ( ( L I S T P M
0031300 e n u ) \r
0031320 ( S E T Q M e n u ( C
0031340 A R M e n u ) ) ) ) \r
0031360 \r
0031400 006 006 ( * * G e t t h e
0031420 l i s t o f p r i n t e r s
0031440 ) 006 001 \r \r (
0031460 S E T Q L i s t o f p r i n t
0031500 e r s ( C D R ( 006 002 f e t c
0031520 h 006 001 ( M E N U I T E M S )
0031540 006 002 o f 006 001 M e n u ) ) ) \r
0031560 \r
0031600 006 006 ( * * W a i t
0031620 u n t i l m o u s e b u t
0031640 t o n d o w n ) 006 001 \r \r
0031660 ( 006 002 u n t i l 006
0031700 001 ( M O U S E S T A T E ( O
0031720 R L E F T M I D D L E R I
0031740 G H T ) ) \r
0031760 006 002 d o 006 001 ( 006 002 f o r
0032000 006 001 I t e m 006 002 i n 006 001 L
0032020 i s t o f p r i n t e r s 006 002
0032040 d o 006 001 ( S H A D E I T E M
0032060 I t e m M e n u W H I T E S
0032100 H A D E P R I N T E R M E N U
0032120 . W I N D O W ) ) ) \r
0032140 \r
0032160 006 006 ( * I d i d n ' t u s
0032200 e t h e f u n c t i o n U
0032220 N T I L M O U S E S T A T E b
0032240 e c a u s e I w a n t t o
0032260 k e e p c o n t r o l o f
0032300 \r 006 001 006 006
0032320 t h e m o u s e u n t i l
0032340 t h e u s e r c l i c k s
0032360 i t s o m e w h e r e . ) 006 001
0032400 \r \r
0032420 006 006 ( * * W h i
0032440 l e m o u s e b u t t o n
0032460 d o w n , i f c u r s o r
0032500 i n m e n u - i t e m r e g
0032520 i o n , g r a y o u t r e g
0032540 i o n ) 006 001 \r \r
0032560 ( 006 002 w h i l e 006 001 ( M O
0032600 U S E S T A T E ( O R L E F
0032620 T M I D D L E R I G H T ) )
0032640 \r 006 002
0032660 e a c h t i m e 006 001 ( S E T Q
0032700 S c r e e n p o s i t i o n
0032720 ( 006 002 c r e a t e 006 001 P O S I
0032740 T I O N \r
0032760
*
0033020 X C O O R D _
0033040 L A S T M O U S E X \r
0033060
*
0033120 Y C O
0033140 O R D _ L A S T M O U S E Y
0033160 ) ) \r
0033200 ( S E T Q M e n u
0033220 p o s i t i o n ( 006 002 c r e a
0033240 t e 006 001 P O S I T I O N \r
0033260
*
0033320 X C O O R
0033340 D _ ( L A S T M O U S E X
0033360 P R I N T E R M E N U . W I N D
0033400 O W ) \r
0033420
*
0033460 Y C O O R D _ ( L A S T M
0033500 O U S E Y P R I N T E R M E N
0033520 U . W I N D O W ) ) ) \r
0033540 006 002 d o 006 001
0033560 ( C O N D \r
0033600 ( ( I N S I D
0033620 E P W i n d o w r e g i o n
0033640 S c r e e n p o s i t i o n ) \r
0033660
0033700 ( 006 002 f o r 006 001 I t e
0033720 m 006 002 i n 006 001 L i s t o f p
0033740 r i n t e r s 006 002 d o 006 001 (
0033760 C O N D \r
0034000
*
0034040 ( ( I N S
0034060 I D E P ( M E N U I T E M R E
0034100 G I O N I t e m M e n u ) \r
0034120
*
0034200 M e
0034220 n u p o s i t i o n ) \r
0034240
*
0034320 ( S H A D E I T E M I t
0034340 e m M e n u G R A Y S H A D
0034360 E \r
0034400
*
0034460 P R I N T E R M E N U . W I N
0034500 D O W ) ) \r
0034520
*
0034560 ( T (
0034600 S H A D E I T E M I t e m M
0034620 e n u W H I T E S H A D E \r
0034640
*
0034740 P R I N T E R M E N U . W I N D
0034760 O W ) ) ) ) ) \r
0035000 ( T ( 006
0035020 002 f o r 006 001 I t e m 006 002 i n
0035040 006 001 L i s t o f p r i n t e r
0035060 s 006 002 d o 006 001 ( S H A D E I
0035100 T E M I t e m M e n u W H
0035120 I T E S H A D E \r
0035140
*
0035220 P R I N T E R M E N
0035240 U . W I N D O W ) ) ) ) \r
0035260 006 002 f i n a
0035300 l l y 006 001 ( 006 002 f o r 006 001 I
0035320 t e m 006 002 i n 006 001 L i s t o
0035340 f p r i n t e r s 006 002 d o 006 001
0035360 ( S H A D E I T E M I t e m
0035400 M e n u ( C O N D \r
0035420
*
0035520 ( ( E Q I t e
0035540 m ( C A R \r
0035560
*
0035660 L
0035700 i s t o f p r i n t e r s \r
0035720
*
0036040 ) ) \r
0036060
*
0036160 B L A C K S H
0036200 A D E ) \r
0036220
*
0036320 ( T W H I T E S H A D E ) )
0036340 \r
0036360
*
0036420 P R I N
0036440 T E R M E N U . W I N D O W ) )
0036460 ) \r \r
0036500 006 006 ( * * G e
0036520 t t h e p o s i t i o n o
0036540 f t h e m o u s e f o l l
0036560 o w i n g t h e c l i c k
0036600 i n t h e c o o r d i n a t
0036620 e s o f \r 006 001
0036640 006 006 t h e P R I N T E R
0036660 M E N U . W I N D O W ) 006 001 \r \r
0036700 ( S E T Q
0036720 M e n u p o s i t i o n ( 006 002
0036740 c r e a t e 006 001 P O S I T I O
0036760 N \r
0037000
0037020 X C O O R D _ (
0037040 L A S T M O U S E X P R I N T
0037060 E R M E N U . W I N D O W ) \r
0037100
*
0037140 Y C O O R D _ ( L A S
0037160 T M O U S E Y P R I N T E R M
0037200 E N U . W I N D O W ) ) ) \r
0037220 \r
0037240 006 006 ( * * I f n o t
0037260 i n t h e P R I N T E R M
0037300 E N U . W I N D O W , w e ' e
0037320 r d o n e ) 006 001 \r \r
0037340 ( C O N D \r
0037360 ( ( N O T ( I
0037400 N S I D E P W i n d o w r e g
0037420 i o n ( 006 002 c r e a t e 006 001
0037440 P O S I T I O N \r
0037460
*
0037520 X C O O R D
0037540 _ L A S T M O U S E X \r
0037560
*
0037620 Y C O
0037640 O R D _ L A S T M O U S E Y
0037660 ) ) ) \r
0037700 ( R E T U R N N I L ) ) )
0037720 \r \r
0037740 006 006 ( * * S e e
0037760 i f t h e p o s i t i o n
0040000 o f t h e m o u s e c u
0040020 r s o r i s i n s i d e t
0040040 h e m e n u - i t e m - r e g
0040060 i o n f o r \r 006 001
0040100 006 006 a p r i n t e r
0040120 o n t h e m e n u ) 006 001 \r
0040140 \r ( 006 002 f o
0040160 r 006 001 I t e m 006 002 i n 006 001
0040200 ( C D R ( 006 002 f e t c h 006 001
0040220 ( M E N U I T E M S ) 006 002 o
0040240 f 006 001 M e n u ) ) 006 002 d o 006
0040260 001 ( C O N D \r
0040300
*
0040360 ( ( I N S I D E
0040400 P ( M E N U I T E M R E G I O
0040420 N I t e m M e n u ) \r
0040440
*
0040540 M e n u p o s i t i o
0040560 n ) \r
0040600
*
0040660 ( S E T Q P r i n t e
0040700 r I t e m ) ) ) ) \r
0040720 ( R E T U R N P r i
0040740 n t e r ) ) ) ) \r \r ( 006 004 P R I
0040760 N T E R M E N U . T O F R O N T
0041000 O F L I S T 006 001 \r ( L A M B
0041020 D A ( I t e m ) 006 006 006 001
0041040
*
0041100 006 006 ( * R
0041120 A R " 8 - O c t - 8 5 1 0
0041140 : 3 2 " ) 006 001 \r
0041160 \r 006 006 (
0041200 * * M o v e I t e m t o
0041220 f r o n t o f D E F A U L
0041240 T P R I N T I N G H O S T ) 006 001
0041260 \r \r ( P R O G ( E l e
0041300 m e n t T o t o p ) \r
0041320 \r
0041340 006 006 ( * * F i r s t f i
0041360 n d t h e e l e m e n t o
0041400 f D E F A U L T P R I N T I N
0041420 G H O S T t o b e m o v e
0041440 d t o f i r s t p l a c e
0041460 ) 006 001 \r \r (
0041500 006 002 f o r 006 001 E l e m e n t
0041520 006 002 i n 006 001 D E F A U L T P R
0041540 I N T I N G H O S T 006 002 f i r
0041560 s t 006 001 ( S E T Q T o t o p
0041600 N I L ) \r
0041620 006 002 d o 006 001 ( C O N D \r
0041640
0041660 ( ( O R ( A N D ( L I
0041700 S T P E l e m e n t ) \r
0041720
0041740 ( E Q U A L
0041760 I t e m ( M K A T O M ( O
0042000 R ( A N D ( I G E Q 2 (
0042020 L E N G T H E l e m e n t ) )
0042040 \r
0042060
*
0042120 ( C A D R
0042140 E l e m e n t ) ) \r
0042160
*
0042240 ( C A R E l e m e n t ) ) ) )
0042260 ) \r
0042300 ( E Q U A L
0042320 I t e m ( M K A T O M E l
0042340 e m e n t ) ) ) \r
0042360 ( S E
0042400 T Q T o t o p E l e m e n t
0042420 ) ) ) 006 002 r e p e a t u n t i
0042440 l 006 001 T o t o p ) \r
0042460 \r
0042500 006 006 ( * * N o w p l a c e
0042520 t h e e l e m e n t i n
0042540 f i r s t p l a c e ) 006 001 \r \r
0042560 ( S E T Q
0042600 D E F A U L T P R I N T I N G H
0042620 O S T ( R E M O V E T o t o
0042640 p D E F A U L T P R I N T I N
0042660 G H O S T ) ) \r
0042700 ( A T T A C H T o t o p
0042720 D E F A U L T P R I N T I N G H
0042740 O S T ) ) ) ) \r \r ( 006 004 P R I N
0042760 T E R M E N U . W A T C H 006 001 \r
0043000 ( L A M B D A N I L 006 006 006
0043020 001
0043040
*
0043100 006 006 ( * R A R " 6 - N o
0043120 v - 8 5 1 0 : 3 4 " ) 006 001 \r
0043140 \r
0043160 006 006 ( * * E v e r y
0043200 P R I N T E R M E N U . W A T
0043220 C H . W A I T s e c o n d s
0043240 c h e c k t o s e e i f
0043260 D E F A U L T P R I N T I N G H
0043300 O S T \r 006 001
0043320 006 006 h a s c h a n g e d .
0043340 I f i t h a s , t h e n
0043360 u p d a t e t h e p r i n t
0043400 e r m e n u . ) 006 001 \r
0043420 \r
0043440 006 006 ( * * T h i s f u n
0043460 c t i o n r u n s a s a
0043500 s e p a r a t e p r o c e s s
0043520 . \r 006 001 006 006
0043540 I f t h e p r o c e s s i
0043560 s d e l e t e d o r k i l
0043600 l e d , t h e P R I N T E R
0043620 M E N U . W I N D O W w i l l
0043640 b e g r a y e d o u t . )
0043660 006 001 \r \r ( P R O G ( M
0043700 e n u ) \r (
0043720 R E S E T L S T ( R E S E T S
0043740 A V E N I L ' ( C O N D \r
0043760
*
0044020 ( ( A N D ( O P E
0044040 N W P P R I N T E R M E N U .
0044060 W I N D O W ) \r
0044100
*
0044140 ( T Y P E N A M E P
0044160 ( S E T Q M e n u ( C A R
0044200 ( W I N D O W P R O P \r
0044220
*
0044320 P R I N
0044340 T E R M E N U . W I N D O W \r
0044360
*
0044460 ' M
0044500 E N U ) ) ) \r
0044520
*
0044560 ' M E N U
0044600 ) ) \r
0044620
0044640 ( 006 002 f o
0044660 r 006 001 I t e m 006 002 i n 006 001
0044700 ( C D R ( 006 002 f e t c h 006 001
0044720 ( M E N U I T E M S ) 006 002 o
0044740 f 006 001 M e n u ) ) \r
0044760
*
0045020 006 002 d o 006 001 ( S H
0045040 A D E I T E M I t e m M e n
0045060 u P R I N T E R M E N U . S H
0045100 A D E 1 \r
0045120
*
0045160 P R I N T
0045200 E R M E N U . W I N D O W ) ) )
0045220 ) ) \r
0045240 ( 006 002 w h i l e 006 001 (
0045260 P R O G N
0045300
0045320 006 006 ( * U n t i l k
0045340 i l l e d ) 006 001 \r
0045360
0045400 T ) 006 002 d o 006
0045420 001 ( C O N D \r
0045440
*
0045500 ( ( N O T ( E Q U A L D E F
0045520 A U L T P R I N T I N G H O S T
0045540 ( W I N D O W P R O P \r
0045560
*
0045660 P R
0045700 I N T E R M E N U . W I N D O W
0045720 \r
0045740
*
0046040 ' D E F A U L T P R I N T I N
0046060 G H O S T ) \r
0046100
*
0046140 ) ) \r
0046160
*
0046220 ( A D D . P R O
0046240 C E S S ' ( 006 002 P R I N T E R
0046260 M E N U 006 001 ) ) ) ) \r
0046300
*
0046340 ( B L O C K ( I T I M E S P
0046360 R I N T E R M E N U . W A T C H
0046400 . W A I T 1 0 0 0 ) ) ) ) ) )
0046420 ) \r \r ( 006 004 P R I N T E R M E N
0046440 U . W H E N H E L D F N 006 001 \r
0046460 ( L A M B D A ( I t e m M
0046500 e n u B u t t o n ) 006 006 006 001
0046520
*
0046560 006 006 ( * R i d d e r % : "
0046600 2 - A u g - 8 5 1 3 : 3 0 " )
0046620 006 001 \r \r
0046640 006 006 ( * * P
0046660 r i n t a n a p p r o p r i
0046700 a t e m e s s a g e i n P
0046720 R O M P T W I N D O W . ) 006 001 \r
0046740 \r ( P R O G ( ( M e n
0046760 u i t e m s ( 006 002 f e t c h 006
0047000 001 ( M E N U I T E M S ) 006
0047020 002 o f 006 001 M e n u ) ) ) \r
0047040 ( C O N D \r
0047060 ( ( E Q
0047100 I t e m ( C A R M e n u i t
0047120 e m s ) ) \r
0047140 ( p r i n t o u t P R
0047160 O M P T W I N D O W " T h i s
0047200 i t e m a l l o w s y o u
0047220 t o a d d o r d e l e t
0047240 e p r i n t e r s " T ) ) \r
0047260 ( T
0047300 ( p r i n t o u t P R O M P T
0047320 W I N D O W " W i l l m a k
0047340 e " I t e m " t h e f
0047360 i r s t e l e m e n t o f
0047400 D E F A U L T P R I N T I N G H
0047420 O S T " \r
0047440 T ) )
0047460 ) ) ) ) \r \r ( 006 004 P R I N T E R
0047500 M E N U . W H E N S E L E C T E
0047520 D F N 006 001 \r ( L A M B D A
0047540 ( I t e m M e n u B u t t o
0047560 n ) 006 006 006 001
0047600
0047620 006 006 ( * R A R
0047640 " 4 - N o v - 8 5 1 0 : 4 9
0047660 " ) 006 001 \r \r
0047700 006 006 ( * *
0047720 R e s p o n d t o i t e m
0047740 s e l e c t e d i n m e n
0047760 u ) 006 001 \r \r ( P R O G
0050000 ( ( M e n u i t e m s ( 006 002 f
0050020 e t c h 006 001 ( M E N U I T E
0050040 M S ) 006 002 o f 006 001 M e n u )
0050060 ) ) \r \r
0050100 006 006 ( * * I
0050120 f t h e v a l u e o f D
0050140 E F A U L T P R I N T I N G H O
0050160 S T h a s b e e n c h a n
0050200 g e d o u t s i d e o f \r
0050220 006 001 006 006 P R
0050240 I N T E R M E N U , o r i f
0050260 t h e m o n i t o r p r o
0050300 c e s s h a s b e e n k i
0050320 l l e d , t h e n u p d a t
0050340 e t h e m e n u \r 006 001
0050360 006 006 a n d r e
0050400 t u r n ) 006 001 \r \r
0050420 ( C O N D \r
0050440 ( ( O R ( N O T
0050460 ( E Q U A L D E F A U L T P R
0050500 I N T I N G H O S T ( W I N D
0050520 O W P R O P P R I N T E R M E
0050540 N U . W I N D O W ' D E F A U
0050560 L T P R I N T I N G H O S T \r
0050600
*
0050660 ) ) ) \r
0050700 ( N
0050720 O T ( F I N D . P R O C E S S
0050740 ' P R I N T E R M E N U . W A
0050760 T C H ) ) ) \r
0051000 ( 006 002 P R I N T E R M
0051020 E N U 006 001 ) \r
0051040 ( R E T U R N N I L
0051060 ) ) ) \r \r
0051100 006 006 ( * *
0051120 I f s e l e c t i n g t h e
0051140 " t i t l e b a r " % ,
0051160 t h e n p o p u p t h e a
0051200 d d - o r - d e l e t e m e n
0051220 u a n d a d d \r 006 001
0051240 006 006 o r d e l e
0051260 t e a p r i n t e r ) 006 001 \r
0051300 \r ( C O N D
0051320 \r ( (
0051340 E Q I t e m ( C A R M e n
0051360 u i t e m s ) ) \r
0051400 ( S E T Q I t e
0051420 m ( 006 002 P R I N T E R M E N U
0051440 . A D D O R D E L E T E ? 006 001 )
0051460 ) \r
0051500 ( C O N D \r
0051520 ( I t e m ( 006 002
0051540 P R I N T E R M E N U 006 001 ) ) )
0051560 \r (
0051600 R E T U R N N I L ) ) ) \r
0051620 \r
0051640 006 006 ( * * I f a p
0051660 r i n t e r w a s s e l e c
0051700 t e d , m o v e i t t o
0051720 t h e t o p o f t h e m
0051740 e n u a n d t h e f r o n
0051760 t o f \r 006 001
0052000 006 006 D E F A U L T P R I N T
0052020 I N G H O S T ) 006 001 \r \r
0052040 ( 006 002 P R I N T E R
0052060 M E N U . T O F R O N T O F L I
0052100 S T 006 001 I t e m ) \r
0052120 ( D E L E T E M E N U
0052140 M e n u N I L P R I N T E
0052160 R M E N U . W I N D O W ) \r
0052200 ( 006 002 P R I N T
0052220 E R M E N U . A D D M E N U T O
0052240 W I N D O W 006 001 ( 006 002 P R I N
0052260 T E R M E N U . C R E A T E M E
0052300 N U 006 001 ) ) \r
0052320 ( W I N D O W P R O P P R I
0052340 N T E R M E N U . W I N D O W
0052360 ' D E F A U L T P R I N T I N G
0052400 H O S T ( C O P Y A L L D E
0052420 F A U L T P R I N T I N G H O S
0052440 T ) ) ) ) ) \r ) \r \r ( R P A Q ?
0052460 006 002 P R I N T E R M E N U . P
0052500 O S I T I O N 006 001 N I L ) \r \r
0052520 ( R P A Q ? 006 002 P R I N T E R
0052540 M E N U . S H A D E 1 006 001 9 3
0052560 4 5 ) \r \r ( R P A Q ? 006 002 P R
0052600 I N T E R M E N U . W A T C H .
0052620 W A I T 006 001 5 ) \r \r ( R P A Q
0052640 ? 006 002 P R I N T E R M E N U .
0052660 W I N D O W 006 001 N I L ) \r ( D
0052700 E C L A R E % : D O E V A L @
0052720 C O M P I L E D O N T C O P Y
0052740 \r \r ( G L O B A L V A R S D E
0052760 F A U L T P R I N T I N G H O S
0053000 T D E F A U L T T T Y R E G I
0053020 O N P R I N T E R M E N U . P
0053040 O S I T I O N P R I N T E R M
0053060 E N U . S H A D E 1 \r
0053100 P R I N T E R M E N U . W
0053120 A T C H . W A I T P R I N T E
0053140 R M E N U . W I N D O W P R O
0053160 M P T W I N D O W ) \r ) \r ( i f
0053200 ( P O S I T I O N P P R I N
0053220 T E R M E N U . P O S I T I O N
0053240 ) \r t h e n \r (
0053260 P R I N T E R M E N U ) ) \r ( P
0053300 U T P R O P S P R I N T E R M
0053320 E N U C O P Y R I G H T ( "
0053340 R o b e r t R i d d e r " 1
0053360 9 8 5 1 9 8 7 ) ) \r ( D E C L
0053400 A R E % : D O N T C O P Y \r
0053420 ( F I L E M A P ( N I L (
0053440 1 4 4 1 2 1 8 0 0 ( P R I N
0053460 T E R M E N U 1 4 5 1 . 3
0053500 9 9 2 ) ( P R I N T E R M E N
0053520 U . A D D M E N U T O W I N D O
0053540 W 3 9 9 4 . 4 6 0 2 ) (
0053560 \r P R I N T E R M E N U . A D D
0053600 O R D E L E T E ? 4 6 0 4 .
0053620 7 2 4 9 ) ( P R I N T E R M
0053640 E N U . A F T E R M O V E F N
0053660 7 2 5 1 . 7 7 4 7 ) ( P R
0053700 I N T E R M E N U . C L O S E F
0053720 N 7 7 4 9 \r . 8 2 4 8 )
0053740 ( P R I N T E R M E N U . C R E
0053760 A T E M E N U 8 2 5 0 . 9
0054000 3 0 8 ) ( P R I N T E R M E N
0054020 U . C R E A T E P R O M P T W I
0054040 N D O W 9 3 1 0 . 1 0 5 5
0054060 0 ) ( \r P R I N T E R M E N U
0054100 . G E T N A M E 1 0 5 5 2 .
0054120 1 2 0 3 9 ) ( P R I N T E R
0054140 M E N U . I N F O H O O K 1 2
0054160 0 4 1 . 1 2 2 6 2 ) ( P R
0054200 I N T E R M E N U . S E L E C T
0054220 P R I N T E R \r 1 2 2 6 4 .
0054240 1 6 8 7 2 ) ( P R I N T E R
0054260 M E N U . T O F R O N T O F L I
0054300 S T 1 6 8 7 4 . 1 7 8 9 5
0054320 ) ( P R I N T E R M E N U . W
0054340 A T C H 1 7 8 9 7 . 1 9 7
0054360 2 9 ) ( \r P R I N T E R M E N
0054400 U . W H E N H E L D F N 1 9 7
0054420 3 1 . 2 0 2 7 6 ) ( P R I
0054440 N T E R M E N U . W H E N S E L
0054460 E C T E D F N 2 0 2 7 8 .
0054500 2 1 7 9 8 ) ) ) ) ) \r S T O P \r
0054520