$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>BACKGROUNDMENU!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 " 3
0000120 1 - J a n - 8 7 1 8 : 0 9 : 0
0000140 0 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > B A C K
0000200 G R O U N D M E N U . ; 1 006 001
0000220 7 3 6 7 \r \r p
0000240 r e v i o u s d a t e % : "
0000260 3 1 - J a n - 8 6 1 1 : 3 6 :
0000300 1 3 " { E R I S } < L I S P >
0000320 K O T O > L I S P U S E R S > B
0000340 A C K G R O U N D M E N U . ; 1
0000360 ) \r \r \r ( * " \r C o p y r i g
0000400 h t ( c ) 1 9 8 5 , 1 9 8
0000420 6 , 1 9 8 7 b y X e r o x
0000440 C o r p o r a t i o n . A
0000460 l l r i g h t s r e s e r v
0000500 e d . \r " ) \r \r ( P R E T T Y C
0000520 O M P R I N T B A C K G R O U
0000540 N D M E N U C O M S ) \r \r ( R P
0000560 A Q Q 006 002 B A C K G R O U N D
0000600 M E N U C O M S 006 001 ( ( I N I
0000620 T V A R S B a c k g r o u n d
0000640 M e n u F i x u p M o d e B a
0000660 c k g r o u n d M e n u S u p e
0000700 r I t e m \r
0000720
0000740 B a c k g r o
0000760 u n d M e n u T o p L e v e l I
0001000 t e m s ) \r
0001020
0001040 ( F N S B k g M e n u . a d
0001060 d . i t e m B k g M e n u . f
0001100 i x u p B k g M e n u . m o v
0001120 e . i t e m B k g M e n u . r
0001140 e m o v e . i t e m \r
0001160
0001200 B k g M
0001220 e n u . r e n a m e . i t e m
0001240 B k g M e n u . r e o r d e r .
0001260 i t e m s B k g M e n u . s u
0001300 b i t e m s \r
0001320
0001340 \ B k g M e n u
0001360 . l o c a t e \ B k g M e n u
0001400 . l o c a t e r \ B k g M e n
0001420 u . r e m o v e . i t e m \r
0001440
0001460 \
0001500 B k g M e n u . s c a n . i t e
0001520 m . l i s t \ B k g M e n u .
0001540 u n r e m o v e . i t e m ) ) )
0001560 \r \r ( R P A Q ? 006 002 B a c k g
0001600 r o u n d M e n u F i x u p M o
0001620 d e 006 001 N I L ) \r \r ( R P A Q
0001640 ? 006 002 B a c k g r o u n d M e
0001660 n u S u p e r I t e m 006 001 N I
0001700 L ) \r \r ( R P A Q ? 006 002 B a c
0001720 k g r o u n d M e n u T o p L e
0001740 v e l I t e m s 006 001 N I L ) \r
0001760 ( D E F I N E Q \r \r ( 006 004 B k g
0002000 M e n u . a d d . i t e m 006 001 \r
0002020 [ L A M B D A ( i t e m
0002040 s u p e r i t e m a t e n d )
0002060 006 006 006 001
0002100
0002120 006 006 ( * m d d " 3 1 - J a
0002140 n - 8 6 1 1 : 3 2 " ) 006 001 \r
0002160 ( 006 002 i f 006 001 ( N U L L
0002200 s u p e r i t e m ) \r
0002220 006 002 t h e n 006 001 ( 006 002
0002240 i f 006 001 a t e n d \r
0002260 006 002 t h
0002300 e n 006 001 ( N C O N C 1 B a c
0002320 k g r o u n d M e n u C o m m a
0002340 n d s i t e m ) \r
0002360 006 002 e l s e 006
0002400 001 ( S E T Q B a c k g r o u
0002420 n d M e n u C o m m a n d s (
0002440 C O N S i t e m B a c k g r
0002460 o u n d M e n u C o m m a n d s
0002500 ) ) ) \r
0002520 ( S E T Q B a c k g r o u n
0002540 d M e n u N I L ) \r
0002560 T \r
0002600 006 002 e l s e i f 006 001 ( S E T Q
0002620 s u p e r i t e m ( C D D A
0002640 R ( 006 002 \ B k g M e n u . l o
0002660 c a t e 006 001 s u p e r i t e m
0002700 ) ) ) \r 006 002 t h
0002720 e n 006 001 [ 006 002 i f 006 001 ( N U
0002740 L L ( C D R s u p e r i t e
0002760 m ) ) \r
0003000 006 002 t h e n 006 001 ( R
0003020 P L A C D s u p e r i t e m
0003040 ( L I S T ( L I S T ' S U B
0003060 I T E M S i t e m ) ) ) \r
0003100 006 002 e
0003120 l s e 006 001 ( 006 002 i f 006 001 a t
0003140 e n d \r
0003160 006 002 t h
0003200 e n 006 001 ( N C O N C 1 ( C A
0003220 D R s u p e r i t e m ) \r
0003240
*
0003300 i t e m ) \r
0003320 006 002
0003340 e l s e 006 001 ( R P L A C D (
0003360 C A D R s u p e r i t e m ) \r
0003400
*
0003440 ( C O N S i t e m ( C D
0003460 A D R s u p e r i t e m ] \r
0003500 ( S E T
0003520 Q B a c k g r o u n d M e n u
0003540 N I L ) \r
0003560 T ] ) \r \r ( 006 004 B k g M e
0003600 n u . f i x u p 006 001 \r [ L A
0003620 M B D A N I L 006 006 006 001
0003640
*
0003700 006 006 ( *
0003720 m d d " 2 3 - S e p - 8 5
0003740 1 9 : 0 9 " ) 006 001 \r ( 006
0003760 002 b i n d 006 001 s t a c k ( s
0004000 t a c k i n g _ ( N E Q B
0004020 a c k g r o u n d M e n u F i x
0004040 u p M o d e ' b o t t o m ) )
0004060 \r ( r e s u
0004100 l t _ T ) 006 002 f o r 006 001
0004120 x 006 002 i n 006 001 ( 006 002 B k g M
0004140 e n u . s u b i t e m s 006 001 ) \r
0004160 006 002 d o 006 001 [ 006
0004200 002 i f 006 001 ( 006 002 f o r 006 001 i
0004220 006 002 i n 006 001 B a c k g r o u
0004240 n d M e n u T o p L e v e l I t
0004260 e m s 006 002 t h e r e i s 006 001
0004300 ( E Q U A L ( M K S T R I N G
0004320 i ) \r
0004340
*
0004420 ( M K S T R I N G
0004440 x ) ) ) \r
0004460 006 002 t h e n 006 001 ( 006 002
0004500 i f 006 001 ( A N D s t a c k i
0004520 n g ( N E Q B a c k g r o u
0004540 n d M e n u F i x u p M o d e
0004560 ' t o p ) ) \r
0004600 006 002
0004620 t h e n 006 001 ( 006 002 f o r 006 001
0004640 i 006 002 i n 006 001 s t a c k 006
0004660 002 d o 006 001 ( O R ( 006 002 B k g
0004700 M e n u . m o v e . i t e m 006 001
0004720 i B a c k g r o u n d M e n
0004740 u S u p e r I t e m ) \r
0004760
*
0005020 (
0005040 S E T Q r e s u l t N I L )
0005060 ) ) \r
0005100 (
0005120 S E T Q s t a c k i n g N I
0005140 L ) ) \r
0005160 006 002 e l s e 006 001 ( 006 002 i f 006 001
0005200 s t a c k i n g \r
0005220 006
0005240 002 t h e n 006 001 ( S E T Q s t
0005260 a c k ( C O N S x s t a c
0005300 k ) ) \r
0005320 006 002 e l s e 006 001
0005340 ( O R ( 006 002 B k g M e n u . m
0005360 o v e . i t e m 006 001 x B a c
0005400 k g r o u n d M e n u S u p e r
0005420 I t e m T ) \r
0005440
0005460 ( S E T Q s t a c k i
0005500 n g N I L ] \r 006
0005520 002 f i n a l l y 006 001 [ 006 002 i f
0005540 006 001 s t a c k i n g \r
0005560 006
0005600 002 t h e n 006 001 ( 006 002 f o r 006 001
0005620 i 006 002 i n 006 001 s t a c k
0005640 006 002 d o 006 001 ( O R ( 006 002 B k
0005660 g M e n u . m o v e . i t e m 006
0005700 001 i B a c k g r o u n d M e
0005720 n u S u p e r I t e m ) \r
0005740
*
0006000 ( S E T
0006020 Q r e s u l t N I L ] \r
0006040 ( R E T U
0006060 R N r e s u l t ] ) \r \r ( 006 004
0006100 B k g M e n u . m o v e . i t e
0006120 m 006 001 \r [ L A M B D A ( i
0006140 t e m s u p e r i t e m a t
0006160 e n d ) 006 006 006 001
0006200
0006220 006 006 ( * m d d " 3
0006240 1 - J a n - 8 6 1 1 : 3 2 " )
0006260 006 001 \r ( 006 002 i f 006 001 (
0006300 S E T Q i t e m ( 006 002 \ B k
0006320 g M e n u . l o c a t e 006 001 i
0006340 t e m ) ) \r 006 002
0006360 t h e n 006 001 ( 006 002 \ B k g M e
0006400 n u . r e m o v e . i t e m 006 001
0006420 i t e m ) \r
0006440 ( 006 002 i f 006 001 ( 006 002 B
0006460 k g M e n u . a d d . i t e m 006
0006500 001 ( C A R i t e m ) \r
0006520
0006540 s u p e r i t e m a
0006560 t e n d ) \r
0006600 006 002 t h e n 006 001
0006620 T \r
0006640 006 002 e l s e 006 001 ( 006 002 \ B k
0006660 g M e n u . u n r e m o v e . i
0006700 t e m 006 001 i t e m ) \r
0006720
0006740 N I L ] ) \r \r ( 006 004 B k g M e n
0006760 u . r e m o v e . i t e m 006 001 \r
0007000 [ L A M B D A ( i t e m )
0007020 006 006 006 001
0007040
*
0007100 006 006 ( * m d d " 2 3 - S e
0007120 p - 8 5 1 7 : 1 3 " ) 006 001 \r
0007140 ( 006 002 i f 006 001 ( S E T Q
0007160 i t e m ( 006 002 \ B k g M e n
0007200 u . l o c a t e 006 001 i t e m )
0007220 ) \r 006 002 t h e n
0007240 006 001 ( 006 002 \ B k g M e n u . r
0007260 e m o v e . i t e m 006 001 i t e
0007300 m ) \r
0007320 ( S E T Q B a c k g r o u n d
0007340 M e n u N I L ) \r
0007360 T ] ) \r \r ( 006 004 B
0007400 k g M e n u . r e n a m e . i t
0007420 e m 006 001 \r [ L A M B D A (
0007440 i t e m n e w . n a m e ) 006 006
0007460 006 001
0007500
0007520 006 006 ( * m d d "
0007540 2 3 - S e p - 8 5 1 6 : 5 8 "
0007560 ) 006 001 \r ( 006 002 i f 006 001
0007600 ( S E T Q i t e m ( 006 002 \ B
0007620 k g M e n u . l o c a t e 006 001
0007640 i t e m ) ) \r 006
0007660 002 t h e n 006 001 ( R P L A C A
0007700 ( C A R i t e m ) \r
0007720 n
0007740 e w . n a m e ) \r
0007760 ( S E T Q B a c k
0010000 g r o u n d M e n u N I L ) \r
0010020 T ] )
0010040 \r \r ( 006 004 B k g M e n u . r e o
0010060 r d e r . i t e m s 006 001 \r [
0010100 L A M B D A ( i t e m l i s t
0010120 s u p e r i t e m a t e n d
0010140 ) 006 006 006 001
0010160 006 006
0010200 ( * m d d " 2 3 - S e p - 8
0010220 5 2 0 : 2 6 " ) 006 001 \r
0010240 ( N O T ( 006 002 f o r 006 001 i
0010260 006 002 i n 006 001 ( 006 002 i f 006 001 a
0010300 t e n d \r
0010320 006 002 t h
0010340 e n 006 001 i t e m l i s t \r
0010360
0010400 006 002 e l s e 006 001 ( R E V
0010420 E R S E i t e m l i s t ) )
0010440 006 002 d o 006 001 ( O R ( 006 002 B k
0010460 g M e n u . m o v e . i t e m 006
0010500 001 i s u p e r i t e m a t
0010520 e n d ) \r
0010540
*
0010600 ( S E T Q
0010620 $ $ V A L T ] ) \r \r ( 006 004 B k
0010640 g M e n u . s u b i t e m s 006 001
0010660 \r [ L A M B D A ( i t e m
0010700 ) 006 006 006 001
0010720
*
0010760 006 006 ( * m d d " 2 3 - S
0011000 e p - 8 5 1 8 : 3 3 " ) 006 001 \r
0011020 ( 006 002 i f 006 001 i t e m
0011040 \r 006 002 t h e n 006
0011060 001 ( 006 002 i f 006 001 ( S E T Q
0011100 i t e m ( 006 002 \ B k g M e n u
0011120 . l o c a t e 006 001 i t e m ) )
0011140 \r
0011160 006 002 t h e n 006 001 ( M A P C
0011200 A R ( C D R ( C A D D D R
0011220 ( C A R i t e m ) ) ) \r
0011240
0011260 ( F U N C T
0011300 I O N C A R ) ) \r
0011320 006 002 e l s e 006
0011340 001 ' N o t A n I t e m ) \r
0011360 006 002 e l s e 006 001 ( M A
0011400 P C A R B a c k g r o u n d M
0011420 e n u C o m m a n d s ( F U N
0011440 C T I O N C A R ] ) \r \r ( 006 004
0011460 \ B k g M e n u . l o c a t e 006
0011500 001 \r [ L A M B D A ( i t e
0011520 m m e n u ) 006 006 006 001
0011540
*
0011600 006 006 ( * m d d " 2 3 -
0011620 S e p - 8 5 2 0 : 5 8 " ) 006 001
0011640 \r ( 006 002 i f 006 001 [ A N
0011660 D ( L I S T P i t e m ) \r
0011700 ( C D R
0011720 i t e m ) \r
0011740 ( N O T ( S E T Q m
0011760 e n u ( C A D D D R ( C A R
0012000 ( 006 002 \ B k g M e n u . l o c
0012020 a t e 006 001 ( C D R i t e m )
0012040 \r
0012060
*
0012120 m e n u ] \r
0012140 006 002 t h e n 006 001 N I L \r
0012160 006 002 e l s e 006 001 ( 006 002 \
0012200 B k g M e n u . l o c a t e r 006
0012220 001 ( M K S T R I N G ( 006 002 i
0012240 f 006 001 ( L I S T P i t e m )
0012260 \r
0012300
0012320 006 002 t h
0012340 e n 006 001 ( C A R i t e m ) \r
0012360
*
0012420 006 002 e l s e 006
0012440 001 i t e m ) ) \r
0012460 ( O R (
0012500 C D R m e n u ) \r
0012520
0012540 B a c k g r o u n d M e n u C o
0012560 m m a n d s ) \r
0012600 m e n u ] )
0012620 \r \r ( 006 004 \ B k g M e n u . l o
0012640 c a t e r 006 001 \r [ L A M B D
0012660 A ( n a m e i t e m s p r
0012700 e i t e m s ) 006 006 006 001
0012720
0012740 006 006 ( * m d
0012760 d " 2 3 - S e p - 8 5 2 0 :
0013000 4 4 " ) 006 001 \r ( 006 002 b i
0013020 n d 006 001 ( q u e u e _ ( C
0013040 O N S N I L N I L ) ) 006 002
0013060 u n t i l 006 001 ( O R ( S E T
0013100 Q $ $ V A L ( 006 002 \ B k g M
0013120 e n u . s c a n . i t e m . l i
0013140 s t 006 001 n a m e i t e m s
0013160 p r e i t e m s \r
0013200
*
0013260 q u e u e )
0013300 ) \r
0013320
0013340 (
0013360 N U L L ( C A R q u e u e )
0013400 ) ) \r 006 002 d o 006 001
0013420 ( S E T Q p r e i t e m s
0013440 ( C A A R q u e u e ) ) \r
0013460 ( S E T Q i t
0013500 e m s ( C D R p r e i t e m
0013520 s ) ) \r ( R
0013540 P L A C A q u e u e ( C D A
0013560 R q u e u e ) ) \r
0013600 ( 006 002 i f 006 001 ( N U L
0013620 L ( C A R q u e u e ) ) \r
0013640 006 002 t
0013660 h e n 006 001 ( R P L A C D q u
0013700 e u e N I L ] ) \r \r ( 006 004 \ B
0013720 k g M e n u . r e m o v e . i t
0013740 e m 006 001 \r [ L A M B D A (
0013760 i t e m ) 006 006 006 001
0014000
*
0014040 006 006 ( * m d d "
0014060 2 3 - S e p - 8 5 1 7 : 1 2 "
0014100 ) 006 001 \r ( 006 002 i f 006 001
0014120 ( C D R i t e m ) \r
0014140 006 002 t h e n 006 001 ( R P L
0014160 A C D ( C D R i t e m ) \r
0014200
0014220 ( C D D D R i t e m ) )
0014240 \r 006 002 e l s e 006 001
0014260 ( S E T Q B a c k g r o u n d
0014300 M e n u C o m m a n d s ( C D
0014320 R B a c k g r o u n d M e n u
0014340 C o m m a n d s ] ) \r \r ( 006 004 \
0014360 B k g M e n u . s c a n . i t e
0014400 m . l i s t 006 001 \r [ L A M B
0014420 D A ( n a m e i t e m s p
0014440 r e i t e m s q u e u e ) 006 006
0014460 006 001
0014500 006 006 ( * m
0014520 d d " 2 3 - S e p - 8 5 1 5
0014540 : 3 9 " ) 006 001 \r ( 006 002 f
0014560 o r 006 001 i 006 002 i n 006 001 006 002
0014600 o l d 006 001 i t e m s 006 002 d o
0014620 006 001 ( 006 002 i f 006 001 ( E Q U A
0014640 L ( M K S T R I N G ( C A R
0014660 i ) ) \r
0014700
0014720 n a m e )
0014740 \r
0014760
0015000 006 002 t h e n 006 001 ( R E T U R N
0015020 ( C O N S i p r e i t e m
0015040 s ) ) \r
0015060
0015100 006 002 e l s e 006 001 ( 006 002 i f 006
0015120 001 ( C D D D R i ) \r
0015140
*
0015200 006 002 t h e n 006 001 ( T C O N
0015220 C q u e u e ( C A D D D R
0015240 i ) ) ) \r
0015260
0015300 ( S E T Q p r e
0015320 i t e m s i t e m s ] ) \r \r (
0015340 006 004 \ B k g M e n u . u n r e m
0015360 o v e . i t e m 006 001 \r [ L A
0015400 M B D A ( i t e m ) 006 006 006 001
0015420
*
0015460 006 006 ( *
0015500 m d d " 2 3 - S e p - 8 5
0015520 1 7 : 1 7 " ) 006 001 \r ( 006
0015540 002 i f 006 001 ( C D R i t e m )
0015560 \r 006 002 t h e n 006
0015600 001 ( R P L A C D ( C D R i
0015620 t e m ) \r
0015640 ( C O N S (
0015660 C A R i t e m ) \r
0015700
0015720 ( C D D R i t e m ) )
0015740 ) \r 006 002 e l s e 006 001
0015760 ( S E T Q B a c k g r o u n
0016000 d M e n u C o m m a n d s ( C
0016020 O N S ( C A R i t e m ) \r
0016040
*
0016100 B a c
0016120 k g r o u n d M e n u C o m m a
0016140 n d s ] ) \r ) \r ( P U T P R O P
0016160 S B A C K G R O U N D M E N U
0016200 C O P Y R I G H T ( " X e r
0016220 o x C o r p o r a t i o n "
0016240 1 9 8 5 1 9 8 6 1 9 8 7 ) )
0016260 \r ( D E C L A R E % : D O N T
0016300 C O P Y \r ( F I L E M A P
0016320 ( N I L ( 1 0 0 8 7 2 7 1
0016340 ( B k g M e n u . a d d . i t e
0016360 m 1 0 1 8 . 1 9 1 0 ) (
0016400 B k g M e n u . f i x u p 1 9
0016420 1 2 . 3 1 3 1 ) ( B k g M
0016440 e n u . m o v e . i t e m \r 3
0016460 1 3 3 . 3 5 5 7 ) ( B k g
0016500 M e n u . r e m o v e . i t e m
0016520 3 5 5 9 . 3 8 3 4 ) ( B
0016540 k g M e n u . r e n a m e . i t
0016560 e m 3 8 3 6 . 4 1 2 8 )
0016600 ( \r B k g M e n u . r e o r d e
0016620 r . i t e m s 4 1 3 0 . 4
0016640 5 0 5 ) ( B k g M e n u . s u
0016660 b i t e m s 4 5 0 7 . 4 9
0016700 0 7 ) ( \ B k g M e n u . l o
0016720 c a t e 4 9 0 9 . 5 5 2 0
0016740 ) ( \r \ B k g M e n u . l o c
0016760 a t e r 5 5 2 2 . 6 0 8 9
0017000 ) ( \ B k g M e n u . r e m o
0017020 v e . i t e m 6 0 9 1 . 6
0017040 3 7 8 ) ( \ B k g M e n u . s
0017060 c a n . i t e m . l i s t 6 3
0017100 8 0 . 6 8 7 7 ) \r ( \ B k
0017120 g M e n u . u n r e m o v e . i
0017140 t e m 6 8 7 9 . 7 2 6 9 )
0017160 ) ) ) ) \r S T O P \r
0017172