$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>tmenu!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 6 - F e b - 8 7 1 6 : 3 3 : 2
0000140 3 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > T M E N
0000200 U . ; 1 006 001 3 2 1 5 1 \r \r
0000220 p r e v i o u s d
0000240 a t e % : " 5 - J U N - 8 3
0000260 2 2 : 0 7 : 1 9 " { E R I S
0000300 } < L I S P > K O T O > L I S P
0000320 U S E R S > T M E N U . ; 1 ) \r
0000340 \r \r ( * " \r C o p y r i g h t
0000360 ( c ) 1 9 8 7 b y X e r
0000400 o x C o r p o r a t i o n .
0000420 A l l r i g h t s r e s e
0000440 r v e d . \r " ) \r \r ( P R E T T
0000460 Y C O M P R I N T T M E N U C
0000500 O M S ) \r \r ( R P A Q Q 006 002 T
0000520 M E N U C O M S 006 001 [ ( * C
0000540 o p y r i g h t ( c ) \r
0000560
0000600 1 9 8 2 b y X e r o x
0000620 C o r p o r a t i o n . ) \r
0000640
0000660 ( * * F u n c t i o n s t
0000700 o s u p p o r t e d i t a b
0000720 l e m e n u s t h a t i n
0000740 s e r t i t e m s i n t o
0000760 t h e T T Y s t r e a m .
0001000 \r
0001020 W r i t t e n i n
0001040 1 9 8 1 b y M a r k S t
0001060 e f i k , D a n n y B o b r
0001100 o w , a n d C h r i s t o p
0001120 h e r T o n g . ) \r
0001140 ( F N
0001160 S * T M E N U F N S ) \r
0001200
0001220 ( * * F n s t o s u p p
0001240 o r t W i n d o w S h a d e
0001260 f e a t u r e . ) \r
0001300 ( F N S
0001320 * W I N D O W S H A D E F N
0001340 S ) \r
0001360 ( * * T h e s e
0001400 f n s w o u l d p r o b a b
0001420 l y n o t b e c a l l e d
0001440 b y a u s e r . ) \r
0001460 (
0001500 F N S * I n t e r n a l T M
0001520 E N U F N S ) \r
0001540 ( V A R S
0001560 Y e l l o w B u t t o n I t e m
0001600 s ( Y e l l o w B u t t o n M
0001620 e n u N I L ) \r
0001640
0001660 ( f i r s t C a l l F l g T m
0001700 e n u T ) \r
0001720 (
0001740 l a s t D e l e t e d I t e m
0001760 N I L ) \r
0002000 ( m e
0002020 n u e d F i l e s N I L ) ) \r
0002040
0002060 ( * D i s p l a y U t i
0002100 l i t y F u n c t i o n s ) \r
0002120
0002140 ( F N S S E L E C T W F
0002160 L I P R E G I O N ) \r
0002200 ( D E
0002220 C L A R E % : D O N T E V A L
0002240 @ L O A D D O E V A L @ C O M
0002260 P I L E D O N T C O P Y C O
0002300 M P I L E R V A R S \r
0002320
0002340 ( A D D V A R S ( N L
0002360 A M A ) \r
0002400
0002420 ( N L A M L ) \r
0002440
0002460 ( L A
0002500 M A C P R O M P T P R O M P
0002520 T ] ) \r \r \r \r 006 004 ( * C o p y
0002540 r i g h t ( c ) 1 9 8 2 b
0002560 y X e r o x C o r p o r a t
0002600 i o n . ) 006 001 \r \r \f 006 004 ( * *
0002620 F u n c t i o n s t o s u
0002640 p p o r t e d i t a b l e m
0002660 e n u s t h a t i n s e r t
0002700 i t e m s i n t o t h e
0002720 T T Y s t r e a m . W r i t
0002740 t e n i n 1 9 8 1 b y \r
0002760 M a r k S t e f i k , D a n
0003000 n y B o b r o w , a n d C
0003020 h r i s t o p h e r T o n g .
0003040 ) 006 001 \r \r \r ( R P A Q Q 006 002 T
0003060 M E N U F N S 006 001 ( M a k e F
0003100 i l e M e n u s T M e n u P
0003120 R O M P T C P R O M P T C l
0003140 o s e F i l e M e n u s ) ) \r (
0003160 D E F I N E Q \r \r ( 006 004 M a k e
0003200 F i l e M e n u s 006 001 \r [ L
0003220 A M B D A ( f i l e N a m e )
0003240 006 006 006 001
0003260
0003300 006 006 (
0003320 * c h t % : " 8 - S E P -
0003340 8 2 2 3 : 5 8 " ) 006 001 \r
0003360 \r
0003400 006 006 ( * * M a k e m e
0003420 n u s f o r t h e F N S
0003440 a n d C L A S S E S i n f
0003460 i l e . ) 006 001 \r \r ( P R
0003500 O G ( t i t l e ( c o m s
0003520 ( P A C K * f i l e N a m e
0003540 ' C O M S ) ) \r
0003560 c o m s L i s
0003600 t r e l e v a n t C o m s r
0003620 e l e v a n t C o m s N a m e
0003640 w i n d o w s ) \r
0003660 \r 006 006
0003700 ( * * M a k e m e n u s
0003720 f o r t h e F N S a n d
0003740 C L A S S E S i n t h e f
0003760 i l e . ) 006 001 \r \r
0004000 ( S E T Q c o m s L i s
0004020 t ( E V A L c o m s ) ) \r
0004040 ( 006 002 f o r 006
0004060 001 c o m 006 002 i n 006 001 c o m
0004100 s L i s t 006 002 d o 006 001 ( S E
0004120 L E C T Q ( C A R c o m ) \r
0004140
*
0004200 ( V A R S [ C O N
0004220 D \r
0004240
*
0004300 ( ( E Q ( C A D R c o m )
0004320 \r
0004340
*
0004400 ' * ) \r
0004420
*
0004460 ( S E T Q t
0004500 i t l e ( C O N C A T ( C A
0004520 R c o m ) \r
0004540
*
0004620 ' % \r
0004640
*
0004740 ( C A D D R c o m ) ) ) \r
0004760
*
0005020 (
0005040 S E T Q w i n d o w s ( C O
0005060 N S ( 006 002 T M e n u 006 001 ( L
0005100 I S T ' F e t c h N a m e s \r
0005120
*
0005240 ( C A D D R c o m ) ) \r
0005260
*
0005360 t i t l e T
0005400 ' W i n d o w S h a d e ) \r
0005420
*
0005520 w i n d o w s ) ) \r
0005540
*
0005600 ( S E
0005620 T Q r e l e v a n t C o m s
0005640 ( C O N S ( C A D D R c o m
0005660 ) \r
0005700
*
0005760 r e l e v
0006000 a n t C o m s ] ) \r
0006020
*
0006060 ( ( F N S C L A S S E S ) \r
0006100
*
0006140 [ C O N D
0006160 \r
0006200
0006220 (
0006240 ( E Q ( C A D R c o m ) \r
0006260
*
0006340 ' * ) \r
0006360
*
0006420 ( S E T Q t i t l e
0006440 ( C O N C A T ( C A R c o
0006460 m ) \r
0006500
*
0006560 ' % \r
0006600
*
0006660 ( C A D D
0006700 R c o m ) ) ) \r
0006720
*
0006760 ( S E T Q w i
0007000 n d o w s ( C O N S ( 006 002 T
0007020 M e n u 006 001 ( C A D D R c o
0007040 m ) \r
0007060
*
0007140 t i t
0007160 l e T ' W i n d o w S h a d
0007200 e ) \r
0007220
*
0007300 w i n d o w s ) ) \r
0007320
*
0007360 (
0007400 S E T Q r e l e v a n t C o m
0007420 s ( C O N S ( C A D D R c
0007440 o m ) \r
0007460
*
0007540 r e l e
0007560 v a n t C o m s ) ) ) \r
0007600
*
0007640 ( T ( S E
0007660 T Q t i t l e ( C O N C A T
0007700 ( C A R c o m ) \r
0007720
*
0010000 '
0010020 % f i l e N a m e ) ) \r
0010040
*
0010100 (
0010120 S E T Q w i n d o w s ( C O
0010140 N S ( 006 002 T M e n u 006 001 ( L
0010160 I S T ' Q U O T E ( C D R
0010200 c o m ) ) \r
0010220
*
0010320 t i t l e T ' W i n d o
0010340 w S h a d e ) \r
0010360
*
0010440 w i n
0010460 d o w s ] ) \r
0010500
0010520 N I L
0010540 ) ) \r \r
0010560 006 006 ( * * M
0010600 a k e m e n u o f t h e
0010620 c o m s f o r w h i c h m
0010640 e n u s w e r e j u s t c
0010660 r e a t e d . ) 006 001 \r \r
0010700 [ S E T Q r e l e
0010720 v a n t C o m s ( S O R T (
0010740 C O N S f i l e N a m e ( C
0010760 O N S c o m s r e l e v a n
0011000 t C o m s ] \r
0011020 ( S E T Q r e l e v a n t C
0011040 o m s N a m e ( P A C K * '
0011060 R E L E V A N T % c o m s )
0011100 ) \r ( S E T
0011120 r e l e v a n t C o m s N a m
0011140 e r e l e v a n t C o m s ) \r
0011160 ( S E T Q
0011200 w i n d o w s ( C O N S ( 006
0011220 002 T M e n u 006 001 r e l e v a n
0011240 t C o m s N a m e r e l e v a
0011260 n t C o m s N a m e T ' W i
0011300 n d o w S h a d e ) \r
0011320
0011340 w i n d o w s
0011360 ) ) \r ( S E
0011400 T Q m e n u e d F i l e s (
0011420 C O N S ( L I S T f i l e N
0011440 a m e w i n d o w s ) \r
0011460
0011500 m
0011520 e n u e d F i l e s ] ) \r \r ( 006
0011540 004 T M e n u 006 001 \r [ L A M B
0011560 D A ( i t e m E x p r t i t
0011600 l e d i s p l a y S p e c w
0011620 i n d o w S h a d e F l g b u
0011640 t t o n F n d e f a u l t T r
0011660 a i l e r S t r i n g ) 006 006 006 001
0011700 \r
0011720
*
0011760 006 006
0012000 ( * m j s % : " 7 - D E C
0012020 - 8 2 1 3 : 1 7 " ) 006 001 \r
0012040 \r
0012060 006 006 ( * * C r e a t e
0012100 s a m e n u o f i t e m
0012120 s . B u t t o n s w o r k
0012140 a s f o l l o w s - \r 006 001
0012160 006 006 L E F T .
0012200 W h e n i t e m s a r e
0012220 s e l e c t e d u s i n g t
0012240 h e L E F T m o u s e b u
0012260 t t o n , t h e y a r e p
0012300 l a c e d i n \r 006 001
0012320 006 006 t h e t e r m
0012340 i n a l i n p u t b u f f e
0012360 r . R I G H T . T h e R I
0012400 G H T b u t t o n g i v e s
0012420 t h e u s u a l w i n d o
0012440 w \r 006 001 006
0012460 006 c o m m a n d s , i n c l u
0012500 d i n g a S H A P E c o m
0012520 m a n d t a i l o r e d f o
0012540 r t h e s e m e n u s . \r 006
0012560 001 006 006 M I D
0012600 D L E . T h e M I D D L E
0012620 b u t t o n g i v e s m e n
0012640 u c o m m a n d s f o r a
0012660 d d i n g o r d e l e t i n
0012700 g a n i t e m , \r 006 001
0012720 006 006 o r f o r
0012740 s o r t i n g t h e l i s
0012760 t o f i t e m s . - \r 006 001
0013000 006 006 T h e
0013020 o p t i o n a l a r g u m e n
0013040 t d i s p l a y S p e c h a
0013060 s t h e f o l l o w i n g
0013100 i n t e r p r e t a t i o n s
0013120 - \r 006 001 006 006
0013140 R E G I O N . T h e m e n u
0013160 w i n d o w i s p l a c e
0013200 d i n t h a t r e g i o n
0013220 . \r 006 001 006 006
0013240 - \r 006 001 006 006
0013260 N U M B E R . T h e n u m b
0013300 e r i s u s e d a s t h
0013320 e n u m b e r o f c o l u
0013340 m n s i n t h e m e n u .
0013360 \r 006 001 006 006 A
0013400 w i n d o w i s a l l o c
0013420 a t e d o f t h e m i n i
0013440 m a l s u f f i c i e n t s
0013460 i z e . \r 006 001
0013500 006 006 T h e u s e r g e t s
0013520 t o p l a c e t h e w i
0013540 n d o w . - \r 006 001
0013560 006 006 T . T h e n u m
0013600 b e r o f c o l u m n s i
0013620 s c o m p u t e d b y a s
0013640 s u m i n g a m a x i m u m
0013660 o f 1 5 r o w s p e r
0013700 \r 006 001 006 006 c
0013720 o l u m n . O t h e r w i s e
0013740 l i k e p r e v i o u s c
0013760 a s e . N I L . \r 006 001
0014000 006 006 T h e u s e r
0014020 i s p r o m p t e d f o r
0014040 a b o u n d i n g b o x
0014060 f o r a w i n d o w . \r 006 001
0014100 006 006 - \r 006 001
*
0014140 006 006 T h e
0014160 o p t i n a l a r g u m e n t
0014200 b u t t o n F n i s t h e
0014220 n a m e o f t h e f u n
0014240 c t i o n t o b e u s e d
0014260 a s t h e \r 006 001
0014300 006 006 B U T T O N E V E
0014320 N T F N f o r t h e w i n
0014340 d o w ; i t d e f a u l t s
0014360 t o M e n u B u t t o n F n
0014400 . \r 006 001 006 006
0014420 - \r 006 001 006 006
*
0014460 T h e o p t i o n a l a r g
0014500 u m e n t d e f a u l t T r a
0014520 i l e r S t r i n g i s t h
0014540 e s t r i n g t o b e i
0014560 n s e r t e d a f t e r \r 006
0014600 001 006 006 t h e
0014620 i t e m i n t h e T T Y
0014640 b u f f e r . I f n o t
0014660 s p e c i f i e d , t h e n
0014700 a s p a c e i s u s e d .
0014720 ) 006 001 \r \r ( P R O G (
0014740 w i n d o w m e n u i t e m
0014760 s d s p ( f o n t ( F O N
0015000 T C R E A T E ' G A C H A 1
0015020 0 ) ) ) \r [
0015040 C O N D \r
0015060 ( ( N L I S T P i t e m E
0015100 x p r ) \r
0015120 ( S E T Q i t e m s (
0015140 E V A L i t e m E x p r ) ) )
0015160 \r ( (
0015200 F G E T D ( C A R i t e m E
0015220 x p r ) ) \r
0015240 ( S E T Q i t e m s
0015260 ( E V A L i t e m E x p r ) )
0015300 ) \r (
0015320 T ( S E T Q i t e m s i t
0015340 e m E x p r ) \r
0015360 ( S E T Q i t
0015400 e m E x p r ( K W O T E i t
0015420 e m E x p r ] \r
0015440 [ C O N D \r
0015460 ( ( E Q T d i s p
0015500 l a y S p e c )
0015520
0015540 006 006 ( * H e r e i
0015560 f C a l l e r w a n t s s
0015600 t a n d a r d \r 006 001
0015620
*
0015700 006 006 s h a p e .
0015720 ) 006 001 \r
0015740 ( S E T Q d i s p l a y S
0015760 p e c ( 006 002 C E I L I N G 006 001
0016000 ( F Q U O T I E N T ( L E N
0016020 G T H i t e m s ) \r
0016040
*
0016100 1 5 ] \r
0016120 [ S E T Q w
0016140 i n d o w ( C O N D \r
0016160
0016200 ( ( N U M B E R P
0016220 d i s p l a y S p e c )
0016240 006 006 ( * H e
0016260 r e i f C a l l e r s p e
0016300 c i f i e s n u m b e r o f
0016320 \r 006 001
0016340
*
0016420 006 006 m e n u c o l u m n s .
0016440 ) 006 001 \r
0016460 (
0016500 S E T Q m e n u \r
0016520
0016540 ( 006 002 c r e a t e 006
0016560 001 M E N U \r
0016600
0016620 I T E M S
0016640 _ i t e m s \r
0016660
0016700 W H E N S
0016720 E L E C T E D F N _ ( F U N
0016740 C T I O N U n r e a d E x p r
0016760 ) \r
0017000
0017020 M E N U F O N T _
0017040 f o n t \r
0017060
0017100 M E N U C O L U
0017120 M N S _ d i s p l a y S p e
0017140 c \r
0017160
0017200 C E N T E R F L G _
0017220 T \r
0017240
0017260 M E N U O U T L I N
0017300 E S I Z E _ 0 ) ) \r
0017320
0017340 ( S E T Q d s p
0017360 ( D S P C R E A T E ) ) \r
0017400
0017420 ( D S P C L I
0017440 P P I N G R E G I O N ( 006 002 c
0017460 r e a t e 006 001 R E G I O N \r
0017500
*
0017560 L E F T _ 0 \r
0017600
*
0017660 B O T T O M _ 0 \r
0017700
*
0017760 W I D T H _ ( 006 002 f e t
0020000 c h 006 001 I M A G E W I D T H
0020020 006 002 o f 006 001 m e n u ) \r
0020040
*
0020120 H E I G H T _ ( 006 002 f e
0020140 t c h 006 001 I M A G E H E I G H
0020160 T 006 002 o f 006 001 m e n u ) ) \r
0020200
*
0020240 d s p ) \r
0020260
0020300 ( S E T Q w i n d o w (
0020320 C R E A T E W d s p t i t l
0020340 e ) ) \r
0020360 (
0020400 A D D M E N U m e n u w i n
0020420 d o w ( 006 002 c r e a t e 006 001
0020440 P O S I T I O N \r
0020460
*
0020540 X C O O R D _ 0 \r
0020560
*
0020640 Y C O O R D _ 0 ) ) \r
0020660
0020700 ( M O V E W
0020720 w i n d o w ) \r
0020740
0020760 w i n d o w ) \r
0021000
0021020 ( T ( 006 002 R e S h
0021040 a p e M e n u 006 001 ( C R E A T
0021060 E W d i s p l a y S p e c t
0021100 i t l e ) \r
0021120
0021140 N I L N I
0021160 L ( S E T Q m e n u \r
0021200
*
0021240 ( 006 002 c r e
0021260 a t e 006 001 M E N U \r
0021300
*
0021340 I
0021360 T E M S _ i t e m s \r
0021400
*
0021460 W H E N S E L E C T E D F N
0021500 _ ( F U N C T I O N U n r e
0021520 a d E x p r ) \r
0021540
*
0021600 M E N U
0021620 F O N T _ f o n t \r
0021640
*
0021720 M E N U C O L U M N S _ 1 \r
0021740
*
0022020 C E N T E R F L G _
0022040 T ] \r ( W I
0022060 N D O W P R O P w i n d o w
0022100 ' M E N U E X P R i t e m E x
0022120 p r ) \r ( W
0022140 I N D O W P R O P w i n d o w
0022160 ' R E S H A P E F N ( F U N
0022200 C T I O N R e S h a p e M e n
0022220 u ) ) \r [ W
0022240 I N D O W P R O P w i n d o w
0022260 ' B U T T O N E V E N T F N
0022300 ( A P P L Y ' F U N C T I O N
0022320 ( L I S T ( O R b u t t o
0022340 n F n ' M e n u B u t t o n F
0022360 n ] \r ( C O
0022400 N D \r
0022420 ( d e f a u l t T r a i l e r S
0022440 t r i n g ( W I N D O W P R O
0022460 P w i n d o w ' D E F A U L
0022500 T T R A I L E R S T R I N G d
0022520 e f a u l t T r a i l e r S t r
0022540 i n g ) ) ) \r
0022560 ( C O N D \r
0022600 ( w i n d o w S h a d e
0022620 F l g ( 006 002 M a k e W i n d o
0022640 w S h a d e 006 001 w i n d o w )
0022660 ) ) \r ( R E
0022700 T U R N w i n d o w ] ) \r \r (
0022720 006 004 P R O M P T 006 001 \r [ L A
0022740 M B D A n a r g s 006 006 006 001
0022760
*
0023020 006 006 ( *
0023040 c t % : " 8 - D E C - 8 1
0023060 1 4 : 1 4 " ) 006 001 \r
0023100 \r
0023120 006 006 ( * P r i n t a n a r
0023140 b i t r a r y n u m b e r o
0023160 f a r g u m e n t s i n t
0023200 h e p r o m p t w i n d o w
0023220 , a f t e r f i r s t \r 006
0023240 001 006 006 c l e
0023260 a r i n g t h e w i n d o w
0023300 . ) 006 001 \r \r ( D S P F I
0023320 L L N I L B L A C K S H A D
0023340 E ' I N P U T P R O M P T W
0023360 I N D O W ) \r ( D S P R
0023400 E S E T P R O M P T W I N D O
0023420 W ) \r ( P R O G ( ( I
0023440 0 ) ) \r (
0023460 006 002 w h i l e 006 001 ( I L E S S
0023500 P I n a r g s ) 006 002 d o 006
0023520 001 ( P R I N 1 ( A R G n a
0023540 r g s ( S E T Q I ( A D D
0023560 1 I ) ) ) \r
0023600
*
0023640 P R O M P T W I N D O W ]
0023660 ) \r \r ( 006 004 C P R O M P T 006 001 \r
0023700 [ L A M B D A n a r g s 006
0023720 006 006 001
0023740
*
0024000 006 006 ( * c t % : " 8 - D
0024020 E C - 8 1 1 4 : 1 4 " ) 006 001 \r
0024040 \r
0024060 006 006 ( * P r i n t
0024100 a n a r b i t r a r y n u m
0024120 b e r o f a r g u m e n t s
0024140 c e n t e r e d i n t h e
0024160 p r o m p t w i n d o w ,
0024200 a f t e r \r 006 001
0024220 006 006 f i r s t c l e a r
0024240 i n g t h e w i n d o w .
0024260 A c a l l w i t h n o a
0024300 r g u m e n t s s i m p l y
0024320 c l e a r s t h e w i n d o
0024340 w . ) 006 001 \r \r ( P R O G
0024360 ( M S G ( I 0 ) ) \r
0024400 ( D S P F I L L
0024420 N I L B L A C K S H A D E '
0024440 I N P U T P R O M P T W I N D
0024460 O W ) \r ( D
0024500 S P R E S E T P R O M P T W I
0024520 N D O W ) \r
0024540 [ S E T Q M S G ( 006 002 w h i
0024560 l e 006 001 ( I L E S S P I n
0024600 a r g s ) 006 002 c o l l e c t 006
0024620 001 ( A R G n a r g s ( S E
0024640 T Q I ( A D D 1 I ] \r
0024660 ( C O N D \r
0024700 ( M S G
0024720 ( C E N T E R P R I N T I N R E
0024740 G I O N M S G ( D S P C L I
0024760 P P I N G R E G I O N N I L
0025000 P R O M P T W I N D O W ) \r
0025020
0025040 P R O M P T W I N
0025060 D O W ] ) \r \r ( 006 004 C l o s e F
0025100 i l e M e n u s 006 001 \r [ L A
0025120 M B D A ( f i l e N a m e ) 006
0025140 006 006 001
0025160
0025200 006 006 ( *
0025220 c h t % : " 8 - S E P - 8
0025240 2 2 3 : 5 3 " ) 006 001 \r
0025260 \r
0025300 006 006 ( * * C l o s e s a
0025320 l l w i n d o w s u s e d
0025340 f o r d i s p l a y i n g t
0025360 h e C O M S o f f i l e N
0025400 a m e . ) 006 001 \r \r ( P R
0025420 O G ( f i l e I n f o ) \r
0025440 ( S E T Q f i
0025460 l e I n f o ( 006 002 f o r 006 001
0025500 f i l e I n f o 006 002 i n 006 001
0025520 m e n u e d F i l e s 006 002 t h
0025540 e r e i s 006 001 ( E Q ( C A R
0025560 f i l e I n f o ) \r
0025600
*
0025660 f i l
0025700 e N a m e ) ) ) \r
0025720 ( 006 002 f o r 006 001 w i n d
0025740 o w 006 002 i n 006 001 ( C A D R
0025760 f i l e I n f o ) 006 002 d o 006 001
0026000 ( C L O S E W w i n d o w )
0026020 ) \r ( S E T
0026040 Q m e n u e d F i l e s ( R
0026060 E M O V E f i l e I n f o m
0026100 e n u e d F i l e s ] ) \r ) \r \f
0026120 006 004 ( * * F n s t o s u
0026140 p p o r t W i n d o w S h a d
0026160 e f e a t u r e . ) 006 001 \r \r \r
0026200 ( R P A Q Q 006 002 W I N D O W S
0026220 H A D E F N S 006 001 ( M a k e W
0026240 i n d o w S h a d e M o v e S
0026260 h a d e F n R e s h a p e S h
0026300 a d e F n U n M a k e W i n d
0026320 o w S h a d e \r
0026340
0026360 W i n d o w S h a d
0026400 e B u t t o n F n ) ) \r ( D E F
0026420 I N E Q \r \r ( 006 004 M a k e W i n
0026440 d o w S h a d e 006 001 \r [ L A
0026460 M B D A ( w i n d o w ) 006 006 006
0026500 001
0026520
0026540 006 006 ( *
0026560 d g b % : " 1 1 - A U G - 8
0026600 2 1 1 : 2 4 " ) 006 001 \r
0026620 \r
0026640 006 006 ( * C r e a t e a n
0026660 s p e c i a l w i n d o w w
0026700 i t h o n l y a t i t l e
0026720 - - \r 006 001
0026740 006 006 t a k e n f r o m t h e
0026760 m a i n w i n d o w . W h
0027000 e n t h i s s m a l l w i
0027020 n d o w i s b u t t o n e d
0027040 , i t o p e n s t h e \r
0027060 006 001 006 006 m a
0027100 i n w i n d o w a n d r u
0027120 n s i t s B U T T O N F N .
0027140 T h e r e g i o n f o r
0027160 t h e s m a l l w i n d o w
0027200 c o n t a i n s t h e \r 006
0027220 001 006 006 t i t
0027240 l e o f t h e g i v e n
0027260 w i n d o w p l u s a s m
0027300 a l l w h i t e s p a c e
0027320 b e l o w . ) 006 001 \r \r [
0027340 C O N D \r ( ( N U
0027360 L L w i n d o w ) \r
0027400 \r
0027420 006 006 ( * I f w i n d o w n
0027440 o t g i v e n , u s e t h
0027460 e o n e a t t h e c u r
0027500 s o r ) 006 001 \r \r
0027520 ( S E T Q w i n d o w ( W H
0027540 I C H W ) ) ) \r (
0027560 ( E Q w i n d o w T ) \r
0027600 ( S E T Q w i n d
0027620 o w ( 006 002 S E L E C T W 006 001 ]
0027640 \r ( C O N D \r
0027660 ( ( N O T ( W I N D O W P
0027700 w i n d o w ) ) \r
0027720 ( E R R O R w i n d o w
0027740 " N o t a w i n d o w " ) )
0027760 ) \r ( P R O G [ i c o
0030000 n W i n d o w ( w r e g i o n
0030020 ( W I N D O W P R O P w i n
0030040 d o w ' R E G I O N ) ) \r
0030060 (
0030100 t i t l e ( W I N D O W P R O
0030120 P w i n d o w ' T I T L E ]
0030140 \r ( S E T Q
0030160 i c o n W i n d o w ( C R E
0030200 A T E W ( 006 002 c r e a t e 006 001
0030220 R E G I O N \r
0030240
*
0030300 L E F T _ ( 006 002 f e t
0030320 c h 006 001 L E F T 006 002 o f 006 001
0030340 w r e g i o n ) \r
0030360
*
0030420 B O T T O M _ ( I
0030440 P L U S ( 006 002 f e t c h 006 001
0030460 B O T T O M 006 002 o f 006 001 w r
0030500 e g i o n ) \r
0030520
*
0030600 ( 006 002 f e t c h 006 001 H E I
0030620 G H T 006 002 o f 006 001 w r e g i
0030640 o n ) \r
0030660
*
0030720 -
0030740 2 0 ) \r
0030760
0031000 H
0031020 E I G H T _ 2 0 \r
0031040
*
0031100 W I D T H _ ( 006
0031120 002 f e t c h 006 001 W I D T H 006
0031140 002 o f 006 001 w r e g i o n ) ) \r
0031160
*
0031220 t i t l e ) ) \r
0031240 ( W I N D O W P R O P
0031260 w i n d o w ' I c o n W i n d
0031300 o w i c o n W i n d o w ) \r
0031320 ( W I N D O W
0031340 P R O P i c o n W i n d o w
0031360 ' I c o n F o r w i n d o w )
0031400 \r ( W I N D
0031420 O W P R O P i c o n W i n d o
0031440 w ' B U T T O N E V E N T F N
0031460 ' W i n d o w S h a d e B u t
0031500 t o n F n ) \r
0031520 ( W I N D O W P R O P i c o
0031540 n W i n d o w ' M O V E F N
0031560 ' M o v e S h a d e F n ) \r
0031600 ( W I N D O W P
0031620 R O P i c o n W i n d o w '
0031640 R E S H A P E F N ' R e s h a
0031660 p e S h a d e F n ) \r
0031700 ( W I N D O W P R O P
0031720 i c o n W i n d o w ' C L O
0031740 S E F N ' U n M a k e W i n d
0031760 o w S h a d e ) \r
0032000 ( C L O S E W w i n d o
0032020 w ] ) \r \r ( 006 004 M o v e S h a d
0032040 e F n 006 001 \r [ L A M B D A
0032060 ( i c o n W i n d o w p o s )
0032100 006 006 006 001
0032120
0032140 006 006 ( * d g b %
0032160 : " 5 - J U N - 8 3 2 2 :
0032200 0 6 " ) 006 001 \r
0032220
*
0032300 006 006 ( * M a k e s s
0032320 u r e t h a t m a i n W i n
0032340 d o w m o v e s \r 006 001
0032360
*
0032440 006 006 r i g h
0032460 t a l o n g w i t h w i n
0032500 d o w S h a d e ) 006 001 \r
0032520 ( P R O G [ m a i n R ( w r
0032540 ( W I N D O W P R O P i c o
0032560 n W i n d o w ' R E G I O N )
0032600 ) \r
0032620 ( m a i n W ( W I N D O
0032640 W P R O P i c o n W i n d o w
0032660 ' I c o n F o r ] \r
0032700 ( S E T Q m a i n R
0032720 ( W I N D O W P R O P m a i
0032740 n W ' R E G I O N ) ) \r
0032760 ( M O V E W m a
0033000 i n W ( I P L U S ( 006 002 f e
0033020 t c h 006 001 L E F T 006 002 o f 006
0033040 001 m a i n R ) \r
0033060
0033100 ( I D I F F E R E
0033120 N C E ( 006 002 f e t c h 006 001 X
0033140 C O O R D 006 002 o f 006 001 p o s
0033160 ) \r
0033200
0033220 ( 006 002 f e t c h 006
0033240 001 L E F T 006 002 o f 006 001 w r
0033260 ) ) ) \r
0033300 ( I P L U S ( 006 002 f
0033320 e t c h 006 001 B O T T O M 006 002
0033340 o f 006 001 m a i n R ) \r
0033360
0033400 ( I D I F F E R E N C E
0033420 ( 006 002 f e t c h 006 001 Y C O O
0033440 R D 006 002 o f 006 001 p o s ) \r
0033460
0033500 ( 006
0033520 002 f e t c h 006 001 B O T T O M
0033540 006 002 o f 006 001 w r ] ) \r \r ( 006 004
0033560 R e s h a p e S h a d e F n 006 001
0033600 \r [ L A M B D A ( s h a d
0033620 e W i n d o w b i t M a p r
0033640 e g i o n ) 006 006 006 001
0033660
0033700 006 006 ( * d g b % : " 2
0033720 - A U G - 8 2 0 0 : 3 2 " ) 006
0033740 001 \r \r
0033760 006 006 ( * M a k e
0034000 s s u r e t h a t m a i n
0034020 W i n d o w i s r e s h a p
0034040 e d i n s e a d o f t h e
0034060 w i n d o w S h a d e ) 006 001 \r
0034100 \r ( P R O G [ ( r (
0034120 W I N D O W P R O P s h a d e
0034140 W i n d o w ' R E G I O N ) )
0034160 \r ( w (
0034200 W I N D O W P R O P s h a d e
0034220 W i n d o w ' I c o n F o r ]
0034240 006 006
0034260 ( * O p e n c o d e o f
0034300 c l o s e o f I c o n W i n
0034320 d o w t o \r 006 001
0034340
*
0034420 006 006 a v o i d i
0034440 n t e r a c t i o n s ) 006 001 \r
0034460 ( C L O S E W
0034500 s h a d e W i n d o w ) \r
0034520 ( S H A P E W
0034540 w r ) \r (
0034560 006 002 M a k e W i n d o w S h a d
0034600 e 006 001 w ] ) \r \r ( 006 004 U n M a
0034620 k e W i n d o w S h a d e 006 001 \r
0034640 [ L A M B D A ( s h a d e
0034660 ) 006 006 006 001
0034700
*
0034740 006 006 ( * d g b % : " 2 -
0034760 A U G - 8 2 0 2 : 0 5 " ) 006 001
0035000 \r
0035020
*
0035060 006 006
0035100 ( * C l o s e f n f o r M
0035120 e n u S h a d e s ) 006 001 \r
0035140 ( O R s h a d e ( S E T Q
0035160 s h a d e ( W H I C H W ) )
0035200 ) \r ( P R O G [ ( w
0035220 ( W I N D O W P R O P s h a d
0035240 e ' I c o n F o r ] \r
0035260 ( O P E N W w ) \r
0035300 ( W I N D O
0035320 W P R O P w ' C L O S E F N
0035340 N I L ) \r
0035360 ( W I N D O W P R O P w ' I
0035400 c o n W i n d o w N I L )
0035420
0035440 006 006 ( * O p e n w i n
0035460 d o w . B r e a k f o r w a
0035500 r d l i n k , \r 006 001
0035520
*
0035600 006 006 a n d b
0035620 a c k l i n k ) 006 001 \r
0035640 ( W I N D O W P R O
0035660 P s h a d e ' I c o n F o r
0035700 N I L ) \r
0035720 ( R E T U R N w ] ) \r \r ( 006 004
0035740 W i n d o w S h a d e B u t t o
0035760 n F n 006 001 \r [ L A M B D A
0036000 ( w i n d o w S h a d e ) 006 006 006
0036020 001
0036040
0036060 006 006 ( * d g b %
0036100 : " 4 - J U N - 8 2 0 7 :
0036120 1 4 " ) 006 001 \r
0036140 \r 006 006 ( *
0036160 O p e n t h e m a i n w
0036200 i n d o w , r u n i t s b
0036220 u t t o n f n , c l o s e
0036240 i t a n d r e t u r n ) 006 001
0036260 \r \r ( P R O G [ ( m a
0036300 i n W i n d o w ( O P E N W
0036320 ( W I N D O W P R O P w i n d
0036340 o w S h a d e ' I c o n F o r
0036360 ] \r ( A D J
0036400 U S T C U R S O R P O S I T I O
0036420 N 0 - 2 0 ) \r
0036440 \r 006 006
0036460 ( * M o v e c u r s o r d
0036500 o w n s o i t i s s u r
0036520 e t o b e i n t h e m
0036540 a i n W i n d o w ) 006 001 \r \r
0036560 ( A P P L Y *
0036600 ( W I N D O W P R O P m a i n
0036620 W i n d o w ' B U T T O N E V
0036640 E N T F N ) \r
0036660 m a i n W i n d
0036700 o w ) \r ( C
0036720 L O S E W m a i n W i n d o w
0036740 ] ) \r ) \r \f 006 004 ( * * T h e
0036760 s e f n s w o u l d p r o
0037000 b a b l y n o t b e c a l
0037020 l e d b y a u s e r . ) 006
0037040 001 \r \r \r ( R P A Q Q 006 002 I n t
0037060 e r n a l T M E N U F N S 006 001
0037100 ( A d d I t e m C E I L I N G
0037120 C o m p u t e M e n u I t e m
0037140 s D I n s e r t D e l e t e
0037160 I t e m F e t c h N a m e s
0037200 I n s e r t I t e m \r
0037220
0037240 M e n u B
0037260 u t t o n F n N e w M e n u E
0037300 x p r P r i n t M e n u E x p
0037320 r R e S h a p e M e n u S e
0037340 t U p D e l e t e I t e m \r
0037360
0037400 S e
0037420 t U p I n s e r t I t e m S o
0037440 r t I t e m s U n r e a d E x
0037460 p r ) ) \r ( D E F I N E Q \r \r (
0037500 006 004 A d d I t e m 006 001 \r [ L
0037520 A M B D A ( w i n d o w m e
0037540 n u ) 006 006 006 001
0037560
0037600 006 006 (
0037620 * c t % : " 1 4 - J U N - 8
0037640 2 0 7 : 2 2 " ) 006 001 \r
0037660 \r
0037700 006 006 ( * * A d d s a n
0037720 i t e m f r o m t h e t e
0037740 r m i n a l s t r e a m t o
0037760 t h e m e n u i n t h e
0040000 w i n d o w . ) 006 001 \r \r
0040020 ( P R O G ( i t e m ) \r
0040040 ( C L E A R B U
0040060 F ) \r ( 006 002
0040100 P R O M P T 006 001 " P l e a s e
0040120 t y p e i n n e w m e n
0040140 u i t e m . " \r
0040160 " ( E i t
0040200 h e r a n a t o m o r a
0040220 l i s t o f f o r m : (
0040240 p r i n t T h i s e v a l T h
0040260 i s c o m m e n t t r a i l
0040300 e r S t r ) ) " ) \r
0040320 ( S E T Q i t e m (
0040340 O R ( R E A D ) \r
0040360
0040400 l a s t D e l e t e d I t
0040420 e m ) ) \r (
0040440 C L E A R B U F ) \r
0040460 ( 006 002 C P R O M P T 006 001
0040500 ) \r ( 006 002 r
0040520 e p l a c e 006 001 I T E M S 006
0040540 002 o f 006 001 m e n u 006 002 w i t
0040560 h 006 001 ( N C O N C 1 ( 006 002 f
0040600 e t c h 006 001 I T E M S 006 002 o
0040620 f 006 001 m e n u ) \r
0040640
*
0040700 i t e m ) ) \r
0040720 ( 006 002 R e S h a
0040740 p e M e n u 006 001 w i n d o w ]
0040760 ) \r \r ( 006 004 C E I L I N G 006 001 \r
0041000 [ L A M B D A ( f n u m )
0041020 006 006 006 001
0041040
*
0041100 006 006 ( * c t % : " 8 - D
0041120 E C - 8 1 1 4 : 1 5 " ) 006 001 \r
0041140 \r
0041160 006 006 ( * * R e t u
0041200 r n s t h e m i n i m u m
0041220 i n t e g e r g r e a t e r
0041240 o r e q u a l t o a n u
0041260 m b e r . ) 006 001 \r \r ( P
0041300 R O G ( n u m ) \r
0041320 ( S E T Q n u m ( F
0041340 I X f n u m ) ) \r
0041360 ( R E T U R N ( C O N
0041400 D \r
0041420 ( ( L E S S P n
0041440 u m f n u m ) \r
0041460 (
0041500 A D D 1 n u m ) ) \r
0041520
0041540 ( T n u m ] ) \r \r ( 006 004 C o m
0041560 p u t e M e n u I t e m s 006 001 \r
0041600 [ L A M B D A ( w i n d o
0041620 w m e n u ) 006 006 006 001
0041640
*
0041700 006 006 ( * c t % : " 1 3 - J
0041720 U N - 8 2 0 0 : 3 6 " ) 006 001 \r
0041740 \r
0041760 006 006 ( * * U s e
0042000 t h e e x p r e s s i o n a
0042020 s s o c i a t e d w i t h a
0042040 m e n u t o r e c o m p u
0042060 t e t h e l i s t o f i
0042100 t e m s . ) 006 001 \r \r ( P
0042120 R O G ( e x p r i t e m s )
0042140 \r ( S E T Q
0042160 e x p r ( W I N D O W P R O
0042200 P w i n d o w ' M E N U E X
0042220 P R ) ) \r (
0042240 C O N D \r
0042260 [ e x p r ( S E T Q i t
0042300 e m s ( E V A L e x p r ) )
0042320 \r
0042340 ( C O N D \r
0042360
0042400 ( ( O R ( L I S T P i t e m
0042420 s ) \r
0042440 ( N
0042460 U L L i t e m s ) ) \r
0042500
0042520 ( 006 002 r e p l a c e 006 001
0042540 I T E M S 006 002 o f 006 001 m e n
0042560 u 006 002 w i t h 006 001 i t e m s
0042600 ) \r
0042620 ( 006 002 R e S h
0042640 a p e M e n u 006 001 w i n d o w
0042660 N I L N I L m e n u ) ) \r
0042700
0042720 ( T ( 006 002 C P R O
0042740 M P T 006 001 " M e n u e x p r
0042760 e s s i o n r e t u r n s n
0043000 o n - l i s t . " ] \r
0043020 ( T ( 006 002 C P
0043040 R O M P T 006 001 " N o e x p r
0043060 e s s i o n f o r t h i s
0043100 m e n u . " ] ) \r \r ( 006 004 D I n
0043120 s e r t 006 001 \r [ L A M B D A
0043140 ( n e w I t e m o l d I t e
0043160 m L i s t ) 006 006 006 001
0043200
0043220 006 006 ( * c t %
0043240 : " 8 - D E C - 8 1 1 4 :
0043260 1 5 " ) 006 001 \r
0043300 \r 006 006 ( *
0043320 * D e s t r u c t i v e l y
0043340 i n s e r t s n e w I t e m
0043360 b e f o r e a l l o c c u r
0043400 e n c e s o f o l d I t e m
0043420 i n L i s t . ) 006 001 \r \r
0043440 ( P R O G ( T e m p L i s
0043460 t ) \r ( S E
0043500 T Q T e m p L i s t ( L S U
0043520 B S T ( L I S T n e w I t e
0043540 m o l d I t e m ) \r
0043560
0043600 o l d I t
0043620 e m L i s t ) ) \r
0043640 ( R P L A C A L i s t
0043660 ( C A R T e m p L i s t ) )
0043700 \r ( R P L A
0043720 C D L i s t ( C D R T e m
0043740 p L i s t ) ) \r
0043760 ( R E T U R N L i s t ] )
0044000 \r \r ( 006 004 D e l e t e I t e m 006
0044020 001 \r [ L A M B D A ( i t e
0044040 m m e n u b u t t o n ) 006 006
0044060 006 001
0044100
0044120 006 006 ( * m j s % : " 1
0044140 1 - F E B - 8 2 1 7 : 3 3 " )
0044160 006 001 \r \r
0044200 006 006 ( * * U
0044220 s e d t o d e l e t e a n
0044240 i t e m f r o m a m e n
0044260 u . ) 006 001 \r \r ( P R O G
0044300 ( i t e m s i t e m E x p r
0044320 ) \r ( S E T
0044340 Q l a s t D e l e t e d I t e
0044360 m i t e m ) \r
0044400 ( 006 002 r e p l a c e 006 001 I
0044420 T E M S 006 002 o f 006 001 m e n u
0044440 006 002 w i t h 006 001 ( D R E M O
0044460 V E i t e m ( 006 002 f e t c h
0044500 006 001 I T E M S 006 002 o f 006 001
0044520 m e n u ) ) ) \r
0044540 ( 006 002 C P R O M P T 006 001 ) \r
0044560 ( 006 002 R e S
0044600 h a p e M e n u 006 001 ( W F R O
0044620 M M E N U m e n u ) \r
0044640 N I L
0044660 N I L m e n u ) \r
0044700 ( 006 002 r e p l a c e 006
0044720 001 W H E N S E L E C T E D F N
0044740 006 002 o f 006 001 m e n u 006 002 w
0044760 i t h 006 001 ( F U N C T I O N
0045000 U n r e a d E x p r ] ) \r \r ( 006
0045020 004 F e t c h N a m e s 006 001 \r
0045040 [ L A M B D A ( l s t ) 006 006 006
0045060 001
0045100
0045120 006
0045140 006 ( * h g b % : " 4 - J U
0045160 N - 8 2 1 3 : 2 2 " ) 006 001 \r
0045200 ( 006 002 f o r 006 001 x 006 002
0045220 i n 006 001 l s t 006 002 c o l l e
0045240 c t 006 001 ( C O N D \r
0045260
0045300 ( ( L I S T P
0045320 x ) \r
0045340
0045360 ( C A R x ) ) \r
0045400
0045420 ( T x ] ) \r \r (
0045440 006 004 I n s e r t I t e m 006 001 \r
0045460 [ L A M B D A ( l i s t I t
0045500 e m m e n u b u t t o n ) 006
0045520 006 006 001
0045540
0045560 006 006 ( * c t % : " 1 4 - J U
0045600 N - 8 2 0 7 : 2 4 " ) 006 001 \r
0045620 \r
0045640 006 006 ( * * I n s e r
0045660 t s a n e w I t e m f r o
0045700 m t h e t e r m i n a l s
0045720 t r e a m t o t h e m e n
0045740 u j u s t b e f o r e t h
0045760 e \r 006 001 006
0046000 006 s e l e c t e d l i s t I t
0046020 e m . A s s u m e s l i s t
0046040 h a s n o d u p l i c a t
0046060 e s . ) 006 001 \r \r ( P R O
0046100 G ( n e w I t e m n e w L i
0046120 s t ) \r ( C
0046140 L E A R B U F ) \r
0046160 ( 006 002 P R O M P T 006 001 "
0046200 P l e a s e t y p e i n n
0046220 e w i t e m . " \r
0046240 " ( E i
0046260 t h e r a n a t o m , o r
0046300 a l i s t o f f o r m :
0046320 ( p r i n t T h i s e v a l
0046340 T h i s c o m m e n t t r a
0046360 i l e r S t r ) ) " ) \r
0046400 ( S E T Q n e w I
0046420 t e m ( O R ( R E A D ) \r
0046440
0046460 l a s t D
0046500 e l e t e d I t e m ) ) \r
0046520 ( C L E A R B U F
0046540 ) \r ( 006 002 C
0046560 P R O M P T 006 001 ) \r
0046600 ( 006 002 r e p l a c e 006 001
0046620 I T E M S 006 002 o f 006 001 m e
0046640 n u 006 002 w i t h 006 001 ( 006 002 D
0046660 I n s e r t 006 001 n e w I t e m
0046700 l i s t I t e m ( 006 002 f e t
0046720 c h 006 001 I T E M S 006 002 o f 006
0046740 001 m e n u ) ) ) \r
0046760 ( 006 002 R e S h a p e M e
0047000 n u 006 001 ( W F R O M M E N U
0047020 m e n u ) \r
0047040 N I L N I L m
0047060 e n u ) \r (
0047100 006 002 r e p l a c e 006 001 W H E N
0047120 S E L E C T E D F N 006 002 o f 006
0047140 001 m e n u 006 002 w i t h 006 001
0047160 ( F U N C T I O N U n r e a d
0047200 E x p r ] ) \r \r ( 006 004 M e n u B
0047220 u t t o n F n 006 001 \r [ L A M
0047240 B D A ( w i n d o w ) 006 006 006 001
0047260
*
0047320 006 006 ( *
0047340 m j s % : " 7 - D E C - 8 2
0047360 1 3 : 2 6 " ) 006 001 \r
0047400 \r
0047420 006 006 ( * * C a l l e d w h
0047440 e n L E F T o r M I D D L
0047460 E b u t t o n d e p r e s s
0047500 e d i n s i d e a w i n d
0047520 o w . \r 006 001
0047540 006 006 R o u t e s a c t i o n
0047560 t o M E N U . H A N D L E R
0047600 f o r L E F T a n d t o
0047620 M e n u A c t i o n F n i f
0047640 M I D D L E . ) 006 001 \r \r
0047660 ( P R O G ( m e n u s e l e
0047700 c t i o n ) \r
0047720 [ S E T Q m e n u ( C A R
0047740 ( W I N D O W P R O P w i n
0047760 d o w ' M E N U ] \r
0050000 ( T O T O P W w i n
0050020 d o w ) \r (
0050040 C O N D \r
0050060 [ ( L A S T M O U S E S T A
0050100 T E L E F T )
0050120
0050140 006 006 ( * H e r e t o s
0050160 e l e c t i t e m . \r 006 001
0050200
*
0050260 006 006 U s e
0050300 s t a n d a r d m e n u p
0050320 a c k a g e f u n c t i o n s
0050340 . ) 006 001 \r
0050360 ( C O N D \r
0050400 ( [ S E T Q
0050420 s e l e c t i o n ( M E N U
0050440 . H A N D L E R m e n u ( W
0050460 I N D O W P R O P w i n d o w
0050500 ' D S P ] \r
0050520 ( D O S E L E
0050540 C T E D I T E M m e n u ( C
0050560 A R s e l e c t i o n ) \r
0050600
0050620 ( C D R s e l e
0050640 c t i o n ] \r
0050660 ( ( L A S T M O U S E S
0050700 T A T E M I D D L E )
0050720
0050740 006 006 ( * H e r e t o
0050760 p r o c e s s A d d I t e m
0051000 o r \r 006 001
0051020
*
0051100 006 006 D e l e t e I t e m
0051120 a c t i o n . ) 006 001 \r
0051140 ( S E L E C
0051160 T Q ( M E N U ( S E T Q Y
0051200 e l l o w B u t t o n M e n u
0051220 ( 006 002 c r e a t e 006 001 M E N U
0051240 \r
0051260
*
0051320 I T E M
0051340 S _ Y e l l o w B u t t o n
0051360 I t e m s ) ) ) \r
0051400 ( A d d I
0051420 t e m ( 006 002 A d d I t e m 006 001
0051440 w i n d o w m e n u ) ) \r
0051460
0051500 ( D e l e t e I t e m ( 006 002
0051520 S e t U p D e l e t e I t e m 006
0051540 001 w i n d o w m e n u ) ) \r
0051560
0051600 ( S o r t I t e m s ( 006 002
0051620 S o r t I t e m s 006 001 w i n d
0051640 o w m e n u ) ) \r
0051660 ( I n s
0051700 e r t I t e m ( 006 002 S e t U p
0051720 I n s e r t I t e m 006 001 w i n
0051740 d o w m e n u ) ) \r
0051760 ( U s
0052000 e E x p r ( 006 002 C o m p u t e
0052020 M e n u I t e m s 006 001 w i n d
0052040 o w m e n u ) ) \r
0052060 ( N e w
0052100 E x p r ( 006 002 N e w M e n u E
0052120 x p r 006 001 w i n d o w m e n
0052140 u ) ) \r
0052160 ( P r i n t E x p r
0052200 ( 006 002 P r i n t M e n u E x p
0052220 r 006 001 w i n d o w m e n u )
0052240 ) \r
0052260 N I L ] ) \r \r ( 006 004 N e
0052300 w M e n u E x p r 006 001 \r [ L
0052320 A M B D A ( w i n d o w m e
0052340 n u ) 006 006 006 001
0052360
0052400 006 006 (
0052420 * c t % : " 8 - D E C - 8
0052440 1 1 4 : 1 5 " ) 006 001 \r
0052460 \r
0052500 006 006 ( * * S e t a n e
0052520 w e x p r e s s i o n f o r
0052540 c o m p u t i n g t h e m
0052560 e n u i t e m s . ) 006 001 \r \r
0052600 ( P R O G ( E X P R ) \r
0052620 ( 006 002 C P R
0052640 O M P T 006 001 " E n t e r N e
0052660 w E x p r e s s i o n f o r
0052700 c o m p u t i n g M e n u
0052720 i t e m s . " ) \r
0052740 ( S E T Q E X P R ( R
0052760 E A D ) ) \r
0053000 ( W I N D O W P R O P w i n d
0053020 o w ' M E N U E X P R E X P
0053040 R ) \r ( 006 002
0053060 C P R O M P T 006 001 ) \r
0053100 ( 006 002 C o m p u t e M
0053120 e n u I t e m s 006 001 w i n d o
0053140 w m e n u ] ) \r \r ( 006 004 P r i
0053160 n t M e n u E x p r 006 001 \r [
0053200 L A M B D A ( w i n d o w m
0053220 e n u ) 006 006 006 001
0053240
0053260 006 006
0053300 ( * c t % : " 8 - D E C -
0053320 8 1 1 4 : 1 5 " ) 006 001 \r
0053340 \r
0053360 006 006 ( * * P r i n t t
0053400 h e e x p r e s s i o n f o
0053420 r c o m p u t i n g t h e
0053440 i t e m s o f t h i s m e
0053460 n u . ) 006 001 \r \r ( P R O
0053500 G ( E X P R ) \r
0053520 ( S E T Q E X P R ( W
0053540 I N D O W P R O P w i n d o w
0053560 ' M E N U E X P R ) ) \r
0053600 ( C O N D \r
0053620 ( E X P R
0053640 ( P R I N T E X P R ) ) \r
0053660 ( T ( 006
0053700 002 C P R O M P T 006 001 " N o E
0053720 x p r e s s i o n S e t f o
0053740 r t h i s M e n u " ) ) ) \r
0053760 ( C L E A R
0054000 B U F ] ) \r \r ( 006 004 R e S h a p
0054020 e M e n u 006 001 \r [ L A M B D
0054040 A ( w i n d o w o l d I m a
0054060 g e B m o l d R e g i o n m
0054100 e n u ) 006 006 006 001
0054120 006 006 ( * c t
0054140 % : " 1 4 - J U N - 8 2 0 7
0054160 : 4 9 " ) 006 001 \r
0054200 \r 006 006 (
0054220 * * U s e d t o r e s h
0054240 a p e m e n u s c r e a t e
0054260 d b y T M e n u . \r 006 001
0054300 006 006 T r i e s
0054320 t o c h o o s e m e n u R o
0054340 w s a n d m e n u C o l u m
0054360 n s a p p r o p r i a t e l y
0054400 , a n d t o a d j u s t
0054420 \r 006 001 006 006 i
0054440 t e m H e i g h t a n d i t
0054460 e m W i d t h s o t h a t
0054500 t h e m e n u f i t s n i
0054520 c e l y i n t h e w i n d
0054540 o w . ) 006 001 \r \r ( P R O
0054560 G ( m e n u C o l u m n s m
0054600 e n u R o w s w i d t h h e
0054620 i g h t i t e m s i t e m W
0054640 i d t h i t e m H e i g h t
0054660 f o n t n u m I t e m s c l
0054700 i p R e g i o n \r
0054720 o l d B u
0054740 t t o n E v e n t F n ) \r
0054760 [ C O N D \r
0055000 ( ( N U L L
0055020 m e n u ) \r
0055040 ( S E T Q m e n u
0055060 ( C A R ( W I N D O W P R O P
0055100 w i n d o w ' M E N U ] \r
0055120 ( S E T Q c
0055140 l i p R e g i o n ( D S P C L
0055160 I P P I N G R E G I O N N I L
0055200 w i n d o w ) ) \r
0055220 ( S E T Q w i d t h
0055240 ( 006 002 f e t c h 006 001 W I D T H
0055260 006 002 o f 006 001 c l i p R e g i
0055300 o n ) ) \r (
0055320 S E T Q h e i g h t ( 006 002 f
0055340 e t c h 006 001 H E I G H T 006 002
0055360 o f 006 001 c l i p R e g i o n )
0055400 ) \r \r
0055420 006 006 ( * * C o
0055440 m p u t e i t e m W i d t h
0055460 t o b e t h e w i d e s t
0055500 p r i n t i n g i t e m i
0055520 n t h e m e n u . \r 006 001
0055540 006 006 A l l o w
0055560 2 p o i n t s e x t r a s
0055600 p a c i n g . ) 006 001 \r \r
0055620 ( S E T Q f o n t
0055640 ( 006 002 f e t c h 006 001 M E N U
0055660 F O N T 006 002 o f 006 001 m e n u
0055700 ) ) \r [ S E
0055720 T Q i t e m s ( 006 002 f o r 006
0055740 001 i t e m 006 002 i n 006 001 ( 006
0055760 002 f e t c h 006 001 I T E M S 006
0056000 002 o f 006 001 m e n u ) 006 002 c o
0056020 l l e c t 006 001 ( C O N D \r
0056040
*
0056140 ( ( N L I S T P i t e m )
0056160 \r
0056200
*
0056260 i t e m ) \r
0056300
*
0056400 ( T ( C A R i t e m ] \r
0056420 ( S E T Q i t
0056440 e m W i d t h ( I P L U S (
0056460 M A X S T R I N G W I D T H i
0056500 t e m s f o n t ) \r
0056520
0056540 2 ) ) \r
0056560 \r
0056600 006 006 ( * * C o m p
0056620 u t e m e n u C o l u m n s
0056640 t o b e t h e r a t i o
0056660 o f t h e w i n d o w W I
0056700 D T H t o t h e i t e m W
0056720 i d t h , \r 006 001
0056740 006 006 b u t n o m o r e
0056760 t h a n t h e n u m b e r
0057000 o f i t e m s i n t h e
0057020 m e n u a n d a t l e a
0057040 s t o n e . ) 006 001 \r \r
0057060 ( S E T Q n u m I
0057100 t e m s ( F L E N G T H i t
0057120 e m s ) ) \r
0057140 ( S E T Q m e n u C o l u m n
0057160 s ( M A X ( M I N ( I Q U
0057200 O T I E N T w i d t h i t e
0057220 m W i d t h ) \r
0057240
0057260 n u
0057300 m I t e m s ) \r
0057320
0057340 1 ) ) \r
0057360 \r
0057400 006 006 ( * * G i v e n m
0057420 e n u C o l u m n s , a d j u
0057440 s t i t e m W i d t h s o
0057460 t h a t t h e i t e m s w
0057500 i l l e x a c t l y f i l l
0057520 \r 006 001 006 006
0057540 t h e w i n d o w . ) 006 001 \r \r
0057560 ( S E T Q
0057600 i t e m W i d t h ( I Q U O T
0057620 I E N T w i d t h m e n u C
0057640 o l u m n s ) ) \r
0057660 ( S E T Q m e n u R o w
0057700 s ( 006 002 C E I L I N G 006 001 (
0057720 F Q U O T I E N T n u m I t e
0057740 m s m e n u C o l u m n s ) )
0057760 ) \r \r
0060000 006 006 ( * * C o
0060020 m p u t e i t e m H e i g h t
0060040 t o b e t h e r a t i o
0060060 o f t h e w i n d o w h
0060100 e i g h t t o t h e n u m
0060120 b e r o f \r 006 001
0060140 006 006 r o w s , b u t
0060160 a t l e a s t t h e h e i
0060200 g h t o f t h e f o n t .
0060220 ) 006 001 \r \r [
0060240 S E T Q i t e m H e i g h t
0060260 ( I M A X ( I Q U O T I E N T
0060300 h e i g h t m e n u R o w s
0060320 ) \r
0060340
0060360 ( F O N T P R O P f o n
0060400 t ' H E I G H T ] 006
0060420 006 ( * R e c o m p u t e m e
0060440 n u R o w s i n c a s e t
0060460 h e y \r 006 001
0060500
*
0060560 006 006 w o n ' t f i t .
0060600 ) 006 001 \r ( S
0060620 E T Q m e n u R o w s ( 006 002
0060640 C E I L I N G 006 001 ( F Q U O T
0060660 I E N T h e i g h t i t e m
0060700 H e i g h t ) ) ) \r
0060720 ( C O N D \r
0060740 ( ( A N D ( E Q
0060760 P m e n u R o w s 2 ) \r
0061000
0061020 ( I G R E A T E R P n u m I
0061040 t e m s 3 ) \r
0061060 ( I G R E
0061100 A T E R P ( I Q U O T I E N T
0061120 n u m I t e m s 2 ) \r
0061140
0061160 ( I D I F F E R E
0061200 N C E n u m I t e m s m e n
0061220 u C o l u m n s ) ) ) \r
0061240 \r
0061260 006 006 ( * * B i a s r o w
0061300 a n d c o l u m n c o n f
0061320 i g u r a t i o n t o p r e
0061340 v e n t w i d o w r o w s .
0061360 \r 006 001 006 006 O
0061400 n l y f o r 2 r o w m e
0061420 n u s h a v i n g f e w e r
0061440 t h a n h a l f t h e i
0061460 t e m s i n t h e s e c o
0061500 n d r o w . ) 006 001 \r \r
0061520 ( S E T Q
0061540 m e n u C o l u m n s ( 006 002 C
0061560 E I L I N G 006 001 ( F Q U O T I
0061600 E N T n u m I t e m s 2 ) )
0061620 ) \r
0061640 ( S E T Q i t e m W i d t h
0061660 ( I Q U O T I E N T w i d t h
0061700 m e n u C o l u m n s ) ) ) \r
0061720 ( ( A
0061740 N D [ I G R E A T E R P h e
0061760 i g h t ( I T I M E S n u m
0062000 I t e m s ( F O N T P R O P
0062020 f o n t ' H E I G H T ] \r
0062040
0062060 ( O R ( G R E A T E R P (
0062100 Q U O T I E N T i t e m H e i
0062120 g h t i t e m W i d t h ) \r
0062140
0062160 n u m
0062200 I t e m s ) \r
0062220 ( E
0062240 Q m e n u R o w s 1 ) ) ) \r
0062260 \r
0062300 006 006 ( * * B i a s
0062320 c h o i c e t o v e r t i
0062340 c a l c o l u m n m e n u
0062360 i f i t i s f e a s i b l
0062400 e . ) 006 001 \r \r
0062420 ( S E T Q m e n u C
0062440 o l u m n s 1 ) \r
0062460 ( S E T Q m e
0062500 n u R o w s n u m I t e m s )
0062520 \r (
0062540 S E T Q i t e m H e i g h t
0062560 ( I Q U O T I E N T h e i g h
0062600 t n u m I t e m s ) ) \r
0062620 ( S E T Q
0062640 i t e m W i d t h w i d t h
0062660 ) ) ) \r \r
0062700 006 006 ( * *
0062720 S m a s h v a l u e s i n
0062740 t h e m e n u r e c o r d .
0062760 ) 006 001 \r \r (
0063000 006 002 r e p l a c e 006 001 M E N U
0063020 C O L U M N S 006 002 o f 006 001 m
0063040 e n u 006 002 w i t h 006 001 m e n
0063060 u C o l u m n s ) \r
0063100 ( 006 002 r e p l a c e 006 001
0063120 I T E M H E I G H T 006 002 o f
0063140 006 001 m e n u 006 002 w i t h 006 001
0063160 i t e m H e i g h t ) \r
0063200 ( 006 002 r e p l a c
0063220 e 006 001 I T E M W I D T H 006 002
0063240 o f 006 001 m e n u 006 002 w i t h
0063260 006 001 i t e m W i d t h ) \r
0063300 ( 006 002 r e p l a
0063320 c e 006 001 M E N U R O W S 006 002
0063340 o f 006 001 m e n u 006 002 w i t h
0063360 006 001 N I L ) \r
0063400 ( 006 002 r e p l a c e 006 001 M
0063420 E N U O U T L I N E S I Z E 006
0063440 002 o f 006 001 m e n u 006 002 w i t
0063460 h 006 001 0 ) \r
0063500 \r 006 006 ( *
0063520 * T h i s h a c k f o r
0063540 c e s t h e m e n u p a c
0063560 k a g e t o r e m o v e t
0063600 h e w i n d o w , o b s e r
0063620 v e t h e \r 006 001
0063640 006 006 c h a n g e d p a
0063660 r a m e t e r s i n t h e
0063700 m e n u r e c o r d , a n d
0063720 r e - d i s p l a y t h e
0063740 m e n u . \r 006 001
0063760 006 006 I t a l s o c o m p
0064000 e n s a t e s f o r s o m e
0064020 w i n d o w p r o p e r t i
0064040 e s s m a s h e d b y A D
0064060 D M E N U % : R E S H A P E F
0064100 N \r 006 001 006
0064120 006 a n d B U T T O N E V E N T
0064140 F N . ) 006 001 \r \r
0064160 ( S E T Q o l d B u t t o
0064200 n E v e n t F n ( W I N D O W
0064220 P R O P w i n d o w ' B U T
0064240 T O N E V E N T F N ) ) \r
0064260 ( D E L E T E M E
0064300 N U m e n u ) \r
0064320 ( U P D A T E / M E N U /
0064340 I M A G E m e n u )
0064360
0064400 006 006 ( * M a k e
0064420 m e n u s c r o l l a b l e
0064440 i f n e e d e d . ) 006 001 \r
0064460 ( W I N D O W P
0064500 R O P w i n d o w ' S C R O
0064520 L L F N N I L ) \r
0064540 ( A D D M E N U m e n
0064560 u w i n d o w ( 006 002 c r e a
0064600 t e 006 001 P O S I T I O N \r
0064620
*
0064660 X C O O R D _ 0 \r
0064700
*
0064740 Y C O O R D _ 0 )
0064760 \r
0065000 ( I G R E A T E R P n u m
0065020 I t e m s ( I T I M E S m e
0065040 n u R o w s m e n u C o l u m
0065060 n s ) ) ) \r
0065100 ( W I N D O W P R O P w i n d
0065120 o w ' R E S H A P E F N ( F
0065140 U N C T I O N R e S h a p e M
0065160 e n u ) ) \r
0065200 ( W I N D O W P R O P w i n d
0065220 o w ' B U T T O N E V E N T F
0065240 N ( A P P L Y ' F U N C T I
0065260 O N ( L I S T o l d B u t t
0065300 o n E v e n t F n ) ) ) \r
0065320 ( R E T U R N w
0065340 i n d o w ] ) \r \r ( 006 004 S e t U
0065360 p D e l e t e I t e m 006 001 \r
0065400 [ L A M B D A ( w i n d o w
0065420 m e n u ) 006 006 006 001
0065440
0065460 006
0065500 006 ( * c t % : " 8 - D E C
0065520 - 8 1 1 4 : 1 5 " ) 006 001 \r
0065540 \r
0065560 006 006 ( * * T e m p o r
0065600 a r i l y r e p l a c e s W
0065620 H E N S E L E C T E D F N s o
0065640 t h a t s e l e c t i o n
0065660 c a u s e s d e l e t i o n
0065700 o f \r 006 001
0065720 006 006 i t e m f r o m m e n u
0065740 . ) 006 001 \r \r ( 006 002 r e p
0065760 l a c e 006 001 W H E N S E L E C
0066000 T E D F N 006 002 o f 006 001 m e n
0066020 u 006 002 w i t h 006 001 ( F U N C
0066040 T I O N D e l e t e I t e m )
0066060 ) \r ( 006 002 C P R O M P T
0066100 006 001 " P l e a s e s e l e c
0066120 t m e n u i t e m t o b
0066140 e d e l e t e d . " ] ) \r \r (
0066160 006 004 S e t U p I n s e r t I t e
0066200 m 006 001 \r [ L A M B D A ( w
0066220 i n d o w m e n u ) 006 006 006 001
0066240
*
0066300 006 006 ( * c t % : "
0066320 8 - D E C - 8 1 1 4 : 1 5 "
0066340 ) 006 001 \r \r
0066360 006 006 ( * *
0066400 T e m p o r a r i l y r e p l
0066420 a c e s W H E N S E L E C T E
0066440 D F N s o t h a t s e l e
0066460 c t i o n c a u s e s i n s
0066500 e r t i o n o f \r 006 001
0066520 006 006 n e w i t e
0066540 m j u s t b e f o r e s e
0066560 l e c t e d i t e m . ) 006 001 \r
0066600 \r ( 006 002 r e p l a c e 006
0066620 001 W H E N S E L E C T E D F N
0066640 006 002 o f 006 001 m e n u 006 002 w
0066660 i t h 006 001 ( F U N C T I O N
0066700 I n s e r t I t e m ) ) \r
0066720 ( 006 002 C P R O M P T 006 001 " S
0066740 e l e c t i t e m t o i n
0066760 s e r t n e w i t e m b e
0067000 f o r e . " ] ) \r \r ( 006 004 S o r
0067020 t I t e m s 006 001 \r [ L A M B
0067040 D A ( w i n d o w m e n u )
0067060 006 006 006 001
0067100
0067120 006 006 ( * c
0067140 t % : " 8 - D E C - 8 1 1
0067160 4 : 1 5 " ) 006 001 \r
0067200
*
0067260 006 006 ( * S o r t
0067300 t h e i t e m s i n t h e
0067320 m e n u . ) 006 001 \r ( 006
0067340 002 r e p l a c e 006 001 I T E M S
0067360 006 002 o f 006 001 m e n u 006 002 w
0067400 i t h 006 001 ( S O R T ( 006 002 f
0067420 e t c h 006 001 I T E M S 006 002 o
0067440 f 006 001 m e n u ) ) ) \r
0067460 ( 006 002 R e S h a p e M e n u 006 001
0067500 w i n d o w N I L N I L
0067520 m e n u ] ) \r \r ( 006 004 U n r e a
0067540 d E x p r 006 001 \r [ L A M B D
0067560 A ( e x p m e n u ) 006 006 006 001
0067600
*
0067640 006 006 ( * m j
0067660 s % : " 7 - D E C - 8 2 1
0067700 3 : 3 6 " ) 006 001 \r
0067720 \r 006 006
0067740 ( * * I t e m s h a v e
0067760 t h e f o l l o w i n g f i
0070000 e l d s % : ( p r i n t x e
0070020 v a l x c o m m e n t x t r
0070040 a i l x ) w h e r e - \r 006 001
0070060 006 006 p r i n
0070100 t x i s w h a t a p p e a
0070120 r s i n t h e m e n u .
0070140 - \r 006 001 006 006
0070160 e v a l x i s a n e x p r
0070200 e s s i o n t o b e e v a
0070220 l u a t e d i f i t e m i
0070240 s s e l e c t e d . \r 006 001
0070260 006 006 - \r 006 001
0070300 006 006 c o m m e n
0070320 t x a p p e a r s i f i t
0070340 e m i s r e d b u t t o n
0070360 e d f o r a m i n i m u m
0070400 t i m e . \r 006 001
0070420 006 006 - \r 006 001
0070440 006 006 t r a i l x i s t
0070460 h e c h a r a c t e r p r i
0070500 n t e d a f t e r t h e i
0070520 t e m i n t h e p r i n t
0070540 s t r e a m . \r 006 001
0070560 006 006 - \r 006 001
0070600 006 006 e v e r y f i e
0070620 l d e x c e p t p r i n t
0070640 i s o p t i o n a l . D e f
0070660 a u l t t r a i l t h e d
0070700 e f a u l t T r a i l i n g S t
0070720 r i n g \r 006 001
0070740 006 006 a r g u m e n t s p e
0070760 c i f i e d w h e n t h e
0071000 T M e n u w a s c r e a t e
0071020 d i f s p e c i f i e d . \r
0071040 006 001 006 006 O t
0071060 h e r w i s e i t i s a
0071100 s p a c e i f p r i n t i
0071120 s a t o m , a n d t h e
0071140 e m p t y s t r i n g o t h
0071160 e r w i s e . ) 006 001 \r \r
0071200 ( P R O G ( p r i n t x e v
0071220 a l x t r a i l x ) \r
0071240 ( S E T Q t r a i
0071260 l x ( W I N D O W P R O P (
0071300 W F R O M M E N U m e n u ) \r
0071320
0071340 ' D
0071360 E F A U L T T R A I L E R S T R
0071400 I N G ) ) \r
0071420 [ C O N D \r
0071440 ( ( N L I S T P e x p )
0071460
*
0071520 006 006 ( * H e r e i t e
0071540 m i s j u s t a n a t o
0071560 m . ) 006 001 \r
0071600 ( S E T Q p r i n t x
0071620 e x p ) \r
0071640 ( S E T Q t r a i l x
0071660 ( O R t r a i l x " " )
0071700 ) ) \r
0071720 ( T
0071740
*
0072000 006 006 ( * H e r e w h e n i
0072020 t e m i s a l i s t . ) 006
0072040 001 \r
0072060 ( S E T Q p r i n t x (
0072100 C A R e x p ) ) \r
0072120 [ C O N D \r
0072140
0072160 ( ( S E T Q e v a l x
0072200 ( C A D R e x p ) ) \r
0072220
0072240 ( S E T Q p r i n t x ( E V
0072260 A L e v a l x ] \r
0072300 ( C O N D \r
0072320
0072340 ( ( C A D D D R e x p )
0072360 \r
0072400 ( S E T Q t r a i l
0072420 x ( C A D D D R e x p ) ) )
0072440 \r
0072460 ( ( N L I S T P p r i
0072500 n t x ) \r
0072520 ( S E T Q t
0072540 r a i l x ( O R t r a i l x
0072560 " " ] \r
0072600 ( B K S Y S B U F p r i n t x
0072620 ) \r ( C O N
0072640 D \r (
0072660 t r a i l x ( B K S Y S B U F
0072700 t r a i l x ] ) \r ) \r \r ( R P
0072720 A Q Q 006 002 Y e l l o w B u t t
0072740 o n I t e m s 006 001 ( ( A d d I
0072760 t e m ' A d d I t e m " A d
0073000 d i t e m t o m e n u " )
0073020 \r
0073040 ( D e l e
0073060 t e I t e m ' D e l e t e I t
0073100 e m " D e l e t e i t e m
0073120 f r o m m e n u " ) \r
0073140
0073160 ( I n s e r t I t e
0073200 m ' I n s e r t I t e m " I
0073220 n s e r t i t e m i n m e
0073240 n u " ) \r
0073260 (
0073300 S o r t I t e m s ' S o r t I
0073320 t e m s " S o r t i t e m s
0073340 i n m e n u " ) \r
0073360
0073400 ( U s e E x p r ' U
0073420 s e E x p r " U s e i t e m
0073440 E x p r t o r e c o m p u t
0073460 e i t e m l i s t f o r
0073500 m e n u " ) \r
0073520
0073540 ( N e w E x p r ' N e w E x
0073560 p r \r
0073600
0073620 " U s e d t o e n
0073640 t e r a n e w e x p r e s
0073660 s i o n f o r c o m p u t i
0073700 n g i t e m s o n m e n u
0073720 " ) \r
0073740 ( P r
0073760 i n t E x p r ' P r i n t E x
0074000 p r " P r i n t s t h e c
0074020 u r r e n t i t e m E x p r "
0074040 ) ) ) \r \r ( R P A Q Q 006 002 Y e
0074060 l l o w B u t t o n M e n u 006 001
0074100 N I L ) \r \r ( R P A Q Q 006 002
0074120 f i r s t C a l l F l g T m e n
0074140 u 006 001 T ) \r \r ( R P A Q Q 006
0074160 002 l a s t D e l e t e d I t e m
0074200 006 001 N I L ) \r \r ( R P A Q Q
0074220 006 002 m e n u e d F i l e s 006 001
0074240 N I L ) \r \r \r \r 006 004 ( * D i s
0074260 p l a y U t i l i t y F u n
0074300 c t i o n s ) 006 001 \r \r ( D E F I
0074320 N E Q \r \r ( 006 004 S E L E C T W 006
0074340 001 \r [ L A M B D A N I L 006
0074360 006 006 001
0074400
*
0074440 006 006 ( * d g b % : "
0074460 7 - F E B - 8 3 1 4 : 1 7 " )
0074500 006 001 \r ( P R O G N I L
0074520 \r ( 006 002 P R
0074540 O M P T 006 001 " M o v e m o u
0074560 s e t o d e s i r e d w i
0074600 n d o w . \r t h e n p r e s s
0074620 d o w n t h e C T R L k
0074640 e y o r c l i c k m o u s
0074660 e " ) \r L P [ C
0074700 O N D \r
0074720 ( ( O R ( K E Y D O W N P
0074740 ' C T R L ) \r
0074760 ( N O T ( M
0075000 O U S E S T A T E U P ) ) ) \r
0075020 ( G
0075040 E T M O U S E S T A T E ) \r
0075060 ( 006 002 P
0075100 R O M P T 006 001 ) \r
0075120 ( R E T U R N (
0075140 W H I C H W ] \r
0075160 ( G O L P ] ) \r \r ( 006 004 F
0075200 L I P R E G I O N 006 001 \r [ L
0075220 A M B D A ( D S P R E G I O
0075240 N ) 006 006 006 001
0075260
0075300 006 006 (
0075320 * d g b % : " 2 4 - J U N -
0075340 8 2 0 0 : 0 1 " ) 006 001 \r
0075360 \r
0075400 006 006 ( * C o m p l e m e n
0075420 t b i t s i n r e g i o n
0075440 i n D S P . I f o n l y
0075460 D S P i s g i v e n , c
0075500 o m p l e m e n t t h e \r 006
0075520 001 006 006 w i n
0075540 d o w o r t h e D S P ) 006
0075560 001 \r \r [ C O N D \r
0075600 ( ( N U L L R E G I O
0075620 N ) \r ( S E T Q
0075640 R E G I O N ( D S P C L I P
0075660 P I N G R E G I O N N I L D
0075700 S P ] \r ( B I T B L T
0075720 N I L N I L N I L D S P
0075740 ( 006 002 f e t c h 006 001 L E F T
0075760 006 002 o f 006 001 R E G I O N ) \r
0076000 ( 006 002 f e t
0076020 c h 006 001 B O T T O M 006 002 o f
0076040 006 001 R E G I O N ) \r
0076060 ( 006 002 f e t c h 006 001
0076100 W I D T H 006 002 o f 006 001 R E
0076120 G I O N ) \r
0076140 ( 006 002 f e t c h 006 001 H E I G
0076160 H T 006 002 o f 006 001 R E G I O N
0076200 ) \r ' T E
0076220 X T U R E \r
0076240 ' I N V E R T B L A C K S H
0076260 A D E ] ) \r ) \r ( D E C L A R E
0076300 % : D O N T E V A L @ L O A D
0076320 D O E V A L @ C O M P I L E
0076340 D O N T C O P Y C O M P I L E
0076360 R V A R S \r \r ( A D D T O V A
0076400 R 006 002 N L A M A 006 001 ) \r \r (
0076420 A D D T O V A R 006 002 N L A M L
0076440 006 001 ) \r \r ( A D D T O V A R
0076460 006 002 L A M A 006 001 C P R O M P T
0076500 P R O M P T ) \r ) \r ( P U T P
0076520 R O P S T M E N U C O P Y R
0076540 I G H T ( " X e r o x C o r
0076560 p o r a t i o n " 1 9 8 7 ) )
0076600 \r ( D E C L A R E % : D O N T
0076620 C O P Y \r ( F I L E M A P
0076640 ( N I L ( 1 6 4 7 1 1 3 4 2
0076660 ( M a k e F i l e M e n u s
0076700 1 6 5 7 . 4 9 5 6 ) ( T M
0076720 e n u 4 9 5 8 . 9 6 7 7 )
0076740 ( P R O M P T 9 6 7 9 .
0076760 1 0 1 6 1 ) ( \r C P R O M P T
0077000 1 0 1 6 3 . 1 0 8 0 5 )
0077020 ( C l o s e F i l e M e n u s
0077040 1 0 8 0 7 . 1 1 3 4 0 ) )
0077060 ( 1 1 5 3 2 1 5 8 4 4 ( M a
0077100 k e W i n d o w S h a d e 1 1
0077120 5 4 2 . 1 3 3 3 1 ) ( \r M
0077140 o v e S h a d e F n 1 3 3 3 3
0077160 . 1 4 1 8 7 ) ( R e s h a
0077200 p e S h a d e F n 1 4 1 8 9
0077220 . 1 4 7 2 7 ) ( U n M a k e
0077240 W i n d o w S h a d e 1 4 7 2
0077260 9 . 1 5 3 2 3 ) ( \r W i n
0077300 d o w S h a d e B u t t o n F n
0077320 1 5 3 2 5 . 1 5 8 4 2 ) )
0077340 ( 1 6 1 8 1 3 0 1 5 5 ( A
0077360 d d I t e m 1 6 1 9 1 . 1
0077400 6 8 8 1 ) ( C E I L I N G 1
0077420 6 8 8 3 . 1 7 2 5 6 ) ( \r
0077440 C o m p u t e M e n u I t e m s
0077460 1 7 2 5 8 . 1 7 9 9 2 )
0077500 ( D I n s e r t 1 7 9 9 4 .
0077520 1 8 4 3 2 ) ( D e l e t e I
0077540 t e m 1 8 4 3 4 . 1 8 9 5
0077560 6 ) ( F e t c h N a m e s 1
0077600 8 9 5 8 \r . 1 9 2 2 9 ) (
0077620 I n s e r t I t e m 1 9 2 3 1
0077640 . 2 0 1 0 2 ) ( M e n u B
0077660 u t t o n F n 2 0 1 0 4 .
0077700 2 1 6 8 9 ) ( N e w M e n u E
0077720 x p r 2 1 6 9 1 . 2 2 1 2
0077740 0 ) ( \r P r i n t M e n u E x
0077760 p r 2 2 1 2 2 . 2 2 5 3 3
0100000 ) ( R e S h a p e M e n u 2
0100020 2 5 3 5 . 2 7 3 6 7 ) ( S
0100040 e t U p D e l e t e I t e m 2
0100060 7 3 6 9 . 2 7 7 5 7 ) ( \r
0100100 S e t U p I n s e r t I t e m
0100120 2 7 7 5 9 . 2 8 1 6 8 ) (
0100140 S o r t I t e m s 2 8 1 7 0
0100160 . 2 8 5 0 2 ) ( U n r e a d
0100200 E x p r 2 8 5 0 4 . 3 0 1
0100220 5 3 ) ) ( 3 0 9 2 3 3 1 9 2
0100240 7 ( \r S E L E C T W 3 0 9 3
0100260 3 . 3 1 3 5 4 ) ( F L I P
0100300 R E G I O N 3 1 3 5 6 . 3
0100320 1 9 2 5 ) ) ) ) ) \r S T O P \r
0100337