$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>backgroundimages!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 - M a r - 8
0000140 7 1 6 : 0 7 : 2 3 " 006 004 { E
0000160 R I S } < L I S P U S E R S > L
0000200 Y R I C > B A C K G R O U N D I
0000220 M A G E S . ; 6 006 001 1 7 4 3 7
0000240 \r \r c h a n g e
0000260 s t o % : ( F N S B A C
0000300 K G R O U N D . S E T U P ) \r
0000320
0000340 ( V A R S B A C K G R O
0000360 U N D I M A G E S C O M S ) \r \r
0000400 p r e v i o u s d
0000420 a t e % : " 1 1 - F e b - 8 7
0000440 2 1 : 2 6 : 2 6 " { E R I S
0000460 } < L I S P U S E R S > L Y R I
0000500 C > B A C K G R O U N D I M A G
0000520 E S . ; 5 ) \r \r \r ( * " \r C o
0000540 p y r i g h t ( c ) 1 9 8 6
0000560 , 1 9 8 7 b y X e r o x
0000600 C o r p o r a t i o n . A l
0000620 l r i g h t s r e s e r v e
0000640 d . \r " ) \r \r ( P R E T T Y C O
0000660 M P R I N T B A C K G R O U N
0000700 D I M A G E S C O M S ) \r \r ( R
0000720 P A Q Q 006 002 B A C K G R O U N
0000740 D I M A G E S C O M S 006 001 [ \r
0000760 \r 006 006 ( * ; ; ; \r 006 001 006 006 "
0001000 E n a b l e s y o u t o l
0001020 o a d i n t e r e s t i n g
0001040 b a c k g r o u n d s . S i
0001060 m p l e s t e n t r y i s
0001100 j u s t t o c a l l ( B A
0001120 C K G R O U N D . S E T U P ) .
0001140 " ) 006 001 \r \r
0001160
0001200 ( F N S B A C K G R O U
0001220 N D . S E T U P B A C K G R O
0001240 U N D . F I L E S B A C K G R
0001260 O U N D . F I L E B A C K G R
0001300 O U N D . F E T C H \r
0001320
0001340 B A
0001360 C K G R O U N D . S H O R T N A
0001400 M E B A C K G R O U N D . M O
0001420 D E B A C K G R O U N D . S H
0001440 A D E ) \r
0001460
0001500 ( F N S B A C K G R O U N
0001520 D . C E N T E R B A C K G R O
0001540 U N D . R E F L E C T B A C K
0001560 G R O U N D . T I L E \r
0001600
0001620 B
0001640 A C K G R O U N D . L E S S ) \r
0001660
0001700 ( I N
0001720 I T V A R S ( B A C K G R O U
0001740 N D S N I L ) \r
0001760
0002000 ( B A
0002020 C K G R O U N D . M O D E ' C
0002040 E N T E R ) \r
0002060
0002100 ( B A C K
0002120 G R O U N D . S H A D E 3 4 8
0002140 5 0 ) ) \r
0002160
0002200 ( G L O B A L V A R S B A
0002220 C K G R O U N D S B a c k g r
0002240 o u n d M e n u C o m m a n d s
0002260 L I S P U S E R S D I R E C T
0002300 O R I E S \r
0002320
0002340 B A C K G
0002360 R O U N D . M O D E B A C K G
0002400 R O U N D . S H A D E ) \r
0002420
0002440 [ A D D V A
0002460 R S ( G A I N S P A C E F O R
0002500 M S ( ( L I S T P B A C K G
0002520 R O U N D S ) \r
0002540
*
0002600 "
0002620 D e l e t e s a v e d b a c
0002640 k g r o u n d b i t m a p s "
0002660 \r
0002700
*
0002740 ( S E T Q B A
0002760 C K G R O U N D S N I L ] \r
0003000
0003020 ( D E C
0003040 L A R E % : D O N T E V A L @
0003060 L O A D D O E V A L @ C O M P
0003100 I L E D O N T C O P Y C O M
0003120 P I L E R V A R S \r
0003140
0003160 ( A
0003200 D D V A R S ( N L A M A ) \r
0003220
*
0003260 ( N L A M L
0003300 ) \r
0003320
0003340 ( L A
0003360 M A ] ) \r \r \r \r 006 004 ( * ; ; ;
0003400 \r " E n a b l e s y o u t
0003420 o l o a d i n t e r e s t i
0003440 n g b a c k g r o u n d s .
0003460 S i m p l e s t e n t r y
0003500 i s j u s t t o c a l l
0003520 ( B A C K G R O U N D . S E T U
0003540 P ) . " ) 006 001 \r \r ( D E F I N E
0003560 Q \r \r ( 006 004 B A C K G R O U N D
0003600 . S E T U P 006 001 \r [ L A M B
0003620 D A ( N A M E S ) 006 006 006 001
0003640
*
0003700 006 006 ( * ; " E d
0003720 i t e d 2 - M a r - 8 7 1
0003740 5 : 5 7 b y S t a n s b u r
0003760 y " ) 006 001 \r \r 006 006 ( * ; ; ;
0004000 " B a c k g r o u n d d e c o
0004020 r a t i o n . P u t s s t
0004040 u f f o n t h e b a c k g
0004060 r o u n d m e n u t h a t
0004100 w i l l l e t y o u s t i
0004120 c k u p f u n b a c k g r
0004140 o u n d s o n t h e s c r
0004160 e e n . " ) 006 001 \r \r ( L
0004200 E T \r [ ( I M A G E S
0004220 ( 006 002 i f 006 001 ( L I S T P
0004240 N A M E S ) \r
0004260 006 002 t h e n 006
0004300 001 N A M E S \r
0004320 006 002 e l s e 006 001
0004340 ( 006 002 B A C K G R O U N D . F
0004360 I L E S 006 001 N A M E S ] \r
0004400 ( 006 002 i f 006 001 ( L I S T
0004420 P I M A G E S ) \r
0004440 006 002 t h e n 006 001 \r
0004460 ( F I L E S L O A D
0004500 ( S Y S L O A D F R O M V A
0004520 L U E O F L I S P U S E R S D
0004540 I R E C T O R I E S ) \r
0004560 B A C K
0004600 G R O U N D M E N U ) \r
0004620 ( B k g M e n u . r e
0004640 m o v e . i t e m ' B a c k g
0004660 r o u n d ) \r
0004700 [ B k g M e n u . a d d . i t e
0004720 m \r ` ( B a
0004740 c k g r o u n d \r
0004760 ' ( C H A N G E B A C
0005000 K G R O U N D B A C K G R O U
0005020 N D . S H A D E ) " C h a n g
0005040 e b a c k g r o u n d " \r
0005060 ( S U B I T
0005100 E M S \r
0005120 [ C h a n g e ' ( C H A N G
0005140 E B A C K G R O U N D B A C K
0005160 G R O U N D . S H A D E ) " C
0005200 h a n g e b a c k g r o u n d
0005220 " \r
0005240 , ( C O N S ' S U
0005260 B I T E M S ( 006 002 f o r 006 001
0005300 I M A G E 006 002 i n 006 001 I M A
0005320 G E S \r
0005340
0005360 006 002 c o
0005400 l l e c t 006 001 ( L E T ( ( N
0005420 A M E ( 006 002 i f 006 001 ( L I S
0005440 T P I M A G E ) \r
0005460
*
0005540 006 002 t h e n
0005560 006 001 ( C A R I M A G E ) \r
0005600
*
0005660 006 002 e
0005700 l s e 006 001 I M A G E ) ) \r
0005720
*
0006000 ( F I L E N A M E ( 006
0006020 002 i f 006 001 ( L I S T P I M A
0006040 G E ) \r
0006060
*
0006140 006 002 t h e n 006 001
0006160 ( C D R I M A G E ) \r
0006200
*
0006260 006
0006300 002 e l s e 006 001 N I L ) ) ) \r
0006320
*
0006400 ( L I S T N A M E `
0006420 ' ( 006 002 B A C K G R O U N D . F
0006440 E T C H 006 001 ( Q U O T E % ,
0006460 N A M E ) \r
0006500
*
0006600 ( Q U O T E % , F I L E N A
0006620 M E ) \r
0006640
*
0006720 B A C
0006740 K G R O U N D . M O D E ) \r
0006760
*
0007040 ( C O N C A T
0007060 " C h a n g e b a c k g r o
0007100 u n d t o " N A M E ] \r
0007120 [ M o d
0007140 e ' ( P R O M P T P R I N T
0007160 ( 006 002 B A C K G R O U N D . M O
0007200 D E 006 001 ) ) " C h a n g e m
0007220 o d e o f a p p l y i n g
0007240 b a c k g r o u n d i m a g e
0007260 s " \r
0007300 ( S U B I T E M S
0007320 [ C e n t e r ' ( 006 002 B A C K
0007340 G R O U N D . M O D E 006 001 ' C
0007360 E N T E R ] \r
0007400
0007420 [ T i l e ' ( 006 002 B A C K G
0007440 R O U N D . M O D E 006 001 ' T I
0007460 L E ] \r
0007500 ( R
0007520 e f l e c t ' ( 006 002 B A C K G
0007540 R O U N D . M O D E 006 001 ' R E
0007560 F L E C T ] \r
0007600 ( S h a d e ' ( 006 002 B
0007620 A C K G R O U N D . S H A D E 006
0007640 001 ( E D I T S H A D E B A C
0007660 K G R O U N D . S H A D E ) )
0007700 \r
0007720 " C h a n g e t h e
0007740 d e f a u l t b a c k g r o
0007760 u n d s h a d e " ] \r
0010000 ( B k g M e n u . f i
0010020 x u p ) \r T \r
0010040 006 002 e l s e 006 001
0010060 N I L ] ) \r \r ( 006 004 B A C K G R
0010100 O U N D . F I L E S 006 001 \r [
0010120 L A M B D A ( W H I C H ) 006 006
0010140 006 001
0010160
0010200 006 006 ( * ;
0010220 " E d i t e d 1 1 - F e b -
0010240 8 7 2 0 : 2 9 b y S t a n
0010260 s b u r y " ) 006 001 \r \r 006 006 ( *
0010300 ; ; ; " R e t u r n s a l
0010320 i s t o f n a m e s o f
0010340 p r e s s f i l e s w h i c
0010360 h c o n t a i n b a c k g r
0010400 o u n d - s i z e d i m a g e
0010420 s " ) 006 001 \r \r ( 006 002 f o
0010440 r 006 001 f i l e n a m e \r
0010460 006 002 i n 006 001 [ S E L E
0010500 C T Q W H I C H \r
0010520 ( T \r
0010540 \r
0010560 006 006 ( * ; ; " F i n d a
0010600 l l i m a g e s o n a l l
0010620 l i s p u s e r s d i r e c t
0010640 o r i e s " ) 006 001 \r \r
0010660 ( 006 002 f
0010700 o r 006 001 D I R 006 002 i n 006 001
0010720 L I S P U S E R S D I R E C T O
0010740 R I E S 006 002 b i n d 006 001 I M
0010760 A G E S 006 002 f i r s t 006 001 (
0011000 S E T Q I M A G E S N I L )
0011020 \r
0011040 006 002 d o 006 001 ( 006 002 f
0011060 o r 006 001 i m a g e 006 002 i n 006
0011100 001 ( A P P E N D ( F I L D I
0011120 R ( P A C K * D I R " b a
0011140 c k g r o u n d - * . b i t m a
0011160 p " ) ) \r
0011200
*
0011240 ( F I L D I R ( P A C K *
0011260 D I R " b a c k g r o u n d -
0011300 * . p r e s s " ) ) ) \r
0011320
0011340 006 002 d o 006 001 ( 006 002
0011360 p u s h n e w 006 001 I M A G E S
0011400 i m a g e ) ) 006 002 f i n a l
0011420 l y 006 001 ( R E T U R N ( S O
0011440 R T I M A G E S ) ) ) ) \r
0011460 ( P R O
0011500 G N \r \r
0011520 006 006 ( * ; ;
0011540 " F i n d j u s t t h e
0011560 c l u m p o f i m a g e s
0011600 o n t h e f i r s t l i s
0011620 p u s e r s d i r e c t o r y
0011640 t h a t h a s a n y i m a
0011660 g e s o n i t . ( U s e
0011700 f u l b e c a u s e u s u a
0011720 l l y i m a g e s w i l l
0011740 b e o n j u s t o n e l
0011760 i s p u s e r s d i r e c t o r
0012000 y . ) " ) 006 001 \r \r
0012020 ( 006
0012040 002 f o r 006 001 D I R 006 002 i n 006
0012060 001 L I S P U S E R S D I R E C
0012100 T O R I E S \r
0012120 006
0012140 002 d o 006 001 ( L E T [ ( i m a
0012160 g e s ( A P P E N D ( F I L
0012200 D I R ( P A C K * D I R "
0012220 b a c k g r o u n d - * . b i t
0012240 m a p " ) ) \r
0012260
*
0012320 ( F I L D I R (
0012340 P A C K * D I R " b a c k g
0012360 r o u n d - * . p r e s s " ] \r
0012400
*
0012440 ( 006 002 i f 006 001 ( L I S T P i
0012460 m a g e s ) \r
0012500
0012520 006 002 t h e
0012540 n 006 001 ( R E T U R N i m a g
0012560 e s ] 006 002 c o l l e c t 006 001
0012600 ( C O N S ( 006 002 B A C K G R O
0012620 U N D . S H O R T N A M E 006 001
0012640 f i l e n a m e \r
0012660
*
0012760 ) \r
0013000
*
0013100 f i l e n a m e ] ) \r \r ( 006 004 B
0013120 A C K G R O U N D . F I L E 006 001
0013140 \r [ L A M B D A ( N A M E
0013160 ) 006 006 006 001
0013200
0013220 006 006
0013240 ( * ; " E d i t e d 1 1 -
0013260 F e b - 8 7 2 0 : 2 9 b y
0013300 S t a n s b u r y " ) 006 001 \r \r 006
0013320 006 ( * ; ; ; " F i n d s t
0013340 h e f i l e c o n t a i n i
0013360 n g a p r e s s e n c o d
0013400 i n g o f t h e n a m e d
0013420 b a c k g r o u n d . " ) 006 001
0013440 \r \r ( 006 002 f o r 006 001 D
0013460 I R 006 002 i n 006 001 L I S P U S
0013500 E R S D I R E C T O R I E S 006
0013520 002 d o 006 001 ( L E T ( ( B I T
0013540 M A P . F I L E N A M E ( P A
0013560 C K F I L E N A M E ' D I R E
0013600 C T O R Y D I R \r
0013620
*
0013720 ' N A M E \r
0013740
*
0014020 ( C O N
0014040 C A T " b a c k g r o u n d -
0014060 " N A M E ) \r
0014100
*
0014160 ' E
0014200 X T E N S I O N " b i t m a p
0014220 " ) ) \r
0014240
*
0014300 ( P R E S S . F I L E N A M
0014320 E ( P A C K F I L E N A M E
0014340 ' D I R E C T O R Y D I R \r
0014360
*
0014460 ' N A M E \r
0014500
*
0014560 (
0014600 C O N C A T " b a c k g r o u
0014620 n d - " N A M E ) \r
0014640
*
0014740 ' E X T E N S I O N " p r e s
0014760 s " ) ) ) \r
0015000
*
0015040 ( 006 002 i f 006 001 ( I N F I
0015060 L E P B I T M A P . F I L E N
0015100 A M E ) \r
0015120
*
0015160 006 002 t h e n 006 001 (
0015200 R E T U R N B I T M A P . F I
0015220 L E N A M E ) \r
0015240
*
0015300 006 002 e l s e i f 006
0015320 001 ( I N F I L E P P R E S S
0015340 . F I L E N A M E ) \r
0015360
*
0015420 006 002 t h
0015440 e n 006 001 ( R E T U R N P R E
0015460 S S . F I L E N A M E ] ) \r \r (
0015500 006 004 B A C K G R O U N D . F E T
0015520 C H 006 001 \r [ L A M B D A (
0015540 N A M E F I L E N A M E M O
0015560 D E ) 006 006 006 001
0015600
0015620 006 006 ( * ; " E d i t e d
0015640 1 1 - F e b - 8 7 2 0 : 3 0
0015660 b y S t a n s b u r y " ) 006
0015700 001 \r \r 006 006 ( * ; ; ; " P u t
0015720 s u p t h e s p e c i f i
0015740 e d b a c k g r o u n d .
0015760 I f i t i s c a c h e d ,
0016000 j u s t g r a b s i t o
0016020 f f t h e c a c h e ; e
0016040 l s e r e a d s t h e p r
0016060 e s s f i l e o f f t h e
0016100 s e r v e r , t r a n s l a
0016120 t e s i t i n t o a b i
0016140 t m a p , s l a m s i t u
0016160 p , a n d c a c h e s i t
0016200 . " ) 006 001 \r \r ( L E T
0016220 ( ( B I T M A P ( L I S T G E
0016240 T B A C K G R O U N D S N A
0016260 M E ) ) ) \r [
0016300 006 002 i f 006 001 ( N O T ( B I T
0016320 M A P P B I T M A P ) ) \r
0016340 006 002 t h e
0016360 n 006 001 \r \r
0016400 006 006 ( * ;
0016420 ; " F i n d b a c k g r o u
0016440 n d : e i t h e r o f f a
0016460 L i s p b i t m a p f i l
0016500 e , o r o f f a n o l d
0016520 P r e s s f i l e " ) 006 001 \r
0016540 \r
0016560 ( C L R P R O M P T ) \r
0016600
0016620 ( P R I N T O U T P R O M P
0016640 T W I N D O W " F e t c h i n
0016660 g b a c k g r o u n d " N
0016700 A M E " . . . " ) \r
0016720 (
0016740 006 002 i f 006 001 ( N U L L F I L
0016760 E N A M E ) \r
0017000 006 002 t
0017020 h e n 006 001 ( S E T Q F I L E
0017040 N A M E ( 006 002 B A C K G R O U
0017060 N D . F I L E 006 001 N A M E ) )
0017100 ) \r
0017120 ( 006 002 i f 006 001 ( O R
0017140 ( N U L L F I L E N A M E ) \r
0017160
0017200 ( N O T (
0017220 I N F I L E P F I L E N A M E
0017240 ) ) ) \r
0017260 006 002 t h e n
0017300 006 001 ( P R O M P T P R I N T
0017320 " B a c k g r o u n d " F I
0017340 L E N A M E " n o t a v a
0017360 i l a b l e . " ) \r
0017400 006 002
0017420 e l s e 006 001 ( 006 002 i f 006 001 (
0017440 P R E S S F I L E P F I L E N
0017460 A M E ) \r
0017500
0017520 006 002 t h e n 006 001 ( F I L E
0017540 S L O A D ( S Y S L O A D F
0017560 R O M V A L U E O F L I S P
0017600 U S E R S D I R E C T O R I E S
0017620 ) \r
0017640
0017660 B I T M A
0017700 P F N S ) \r
0017720
0017740 ( S E T Q B I
0017760 T M A P ( R E A D P R E S S
0020000 F I L E N A M E ) ) \r
0020020
0020040 006 002 e l s e 006 001 (
0020060 L E T [ ( S T R E A M ( O P
0020100 E N S T R E A M F I L E N A M
0020120 E ' I N P U T ] \r
0020140
0020160 (
0020200 S E T Q B I T M A P ( H R E
0020220 A D S T R E A M ) ) \r
0020240
*
0020300 ( C L O S E F S T R E A M )
0020320 ) ) \r
0020340 ( P R I
0020360 N T O U T P R O M P T W I N D
0020400 O W " d o n e . " T ) \r
0020420 \r
0020440 006 006 ( * ; ; " C a c
0020460 h e i t ( b e f o r e m o
0020500 d i f y i n g i t ) " ) 006 001 \r
0020520 \r
0020540 ( 006 002 i f 006
0020560 001 ( L I S T P B A C K G R O
0020600 U N D S ) \r
0020620
0020640 006 002 t h e n 006 001 ( L I S
0020660 T P U T B A C K G R O U N D S
0020700 N A M E B I T M A P ) \r
0020720
0020740 006 002 e l s e 006
0020760 001 ( S E T Q B A C K G R O U
0021000 N D S ( L I S T N A M E B
0021020 I T M A P ] \r
0021040 \r 006 006 ( *
0021060 ; ; " A d j u s t b i t m
0021100 a p a n d a p p l y t o
0021120 b a c k g r o u n d o f s c
0021140 r e e n " ) 006 001 \r \r
0021160 ( P R I N T O U T P R O
0021200 M P T W I N D O W " A d j u s
0021220 t i n g b a c k g r o u n d
0021240 . . . " ) \r
0021260 ( S E T Q B I T M A P ( S E
0021300 L E C T Q M O D E \r
0021320
0021340 ( T I L E ( 006 002 B A
0021360 C K G R O U N D . T I L E 006 001
0021400 B I T M A P ) ) \r
0021420
0021440 ( R E F L E C T ( 006 002 B
0021460 A C K G R O U N D . R E F L E C
0021500 T 006 001 B I T M A P ) ) \r
0021520
0021540 ( ( N I L C E N
0021560 T E R ) \r
0021600
0021620 ( 006 002 B A C K G R O U
0021640 N D . C E N T E R 006 001 B I T M
0021660 A P ) ) \r
0021700 (
0021720 \ I L L E G A L . A R G M O D
0021740 E ) ) ) \r ( C
0021760 H A N G E B A C K G R O U N D
0022000 B I T M A P ) \r
0022020 ( P R I N T O U T P R O M P
0022040 T W I N D O W " d o n e . "
0022060 T ) \r B I T M
0022100 A P ] ) \r \r ( 006 004 B A C K G R O
0022120 U N D . S H O R T N A M E 006 001 \r
0022140 [ L A M B D A ( I M A G E
0022160 ) 006 006 006 001
0022200
0022220 006 006 (
0022240 * ; " E d i t e d 1 1 - F
0022260 e b - 8 7 2 0 : 3 0 b y S
0022300 t a n s b u r y " ) 006 001 \r \r 006 006
0022320 ( * ; ; ; " P a r s e s t
0022340 h e I M A G E f i l e n a
0022360 m e t o f i n d t h e s
0022400 h o r t n a m e o f a b
0022420 a c k g r o u n d . I M A G
0022440 E f i l e n a m e s a r e
0022460 o f t h e f o r m { s e
0022500 r v e r } < d i r e c t o r y >
0022520 S H O R T N A M E - b a c k g r
0022540 o u n d . p r e s s " ) 006 001 \r \r
0022560 ( M K A T O M ( L - C
0022600 A S E ( L E T [ ( L O N G N
0022620 A M E ( F I L E N A M E F I E
0022640 L D I M A G E ' N A M E ] \r
0022660
0022700 ( S U B S T R
0022720 I N G L O N G N A M E ( L E
0022740 T ( ( s t a r t ( S T R P O
0022760 S " - " L O N G N A M E ) )
0023000 ) \r
0023020
*
0023060 ( 006 002 i f 006 001 ( F I X
0023100 P s t a r t ) \r
0023120
*
0023160 006
0023200 002 t h e n 006 001 ( A D D 1 s t
0023220 a r t ) \r
0023240
*
0023300 006 002 e l s e 006
0023320 001 s t a r t ) ) \r
0023340
0023360 N I L ) ) \r
0023400
0023420 T ] ) \r \r ( 006 004 B A C K G
0023440 R O U N D . M O D E 006 001 \r [
0023460 L A M B D A ( N E W V A L ) 006
0023500 006 006 001
0023520
0023540 006 006 ( * ;
0023560 " E d i t e d 1 1 - F e b -
0023600 8 7 2 0 : 4 2 b y S t a n
0023620 s b u r y " ) 006 001 \r \r 006 006 ( *
0023640 ; ; ; " F i n d s t h e v
0023660 a l u e o f o r r e s e t
0023700 s t h e b a c k g r o u n d
0023720 i m a g e a p p l y i n g
0023740 m o d e . " ) 006 001 \r \r (
0023760 006 002 i f 006 001 ( N U L L N E W
0024000 V A L ) \r 006 002 t
0024020 h e n 006 001 B A C K G R O U N D
0024040 . M O D E \r 006 002 e l
0024060 s e 006 001 ( S E L E C T Q N E
0024100 W V A L \r
0024120 ( ( C E N T E R T I L
0024140 E R E F L E C T ) \r
0024160
0024200 ( P R O G 1 B A C K G R O U N
0024220 D . M O D E ( S E T Q B A C
0024240 K G R O U N D . M O D E N E W
0024260 V A L ) ) ) \r
0024300 ( \ I L L E G A L .
0024320 A R G N E W V A L ] ) \r \r ( 006
0024340 004 B A C K G R O U N D . S H A D
0024360 E 006 001 \r [ L A M B D A ( N
0024400 E W - S H A D E ) 006 006 006 001
0024420
*
0024460 006 006 ( * ; " E d i t e d
0024500 1 1 - F e b - 8 7 2 1 : 2 6
0024520 b y S t a n s b u r y " ) 006 001
0024540 \r \r 006 006 ( * ; ; ; " r e t u
0024560 r n s t h e o l d v a l u
0024600 e o f t h e d e f a u l t
0024620 b a c k g r o u n d s h a d
0024640 e . A l s o , i f n e w
0024660 - s h a d e i s a t e x t
0024700 u r e , m a k e s i t b e
0024720 t h e n e w d e f a u l t
0024740 b a c k g r o u n d s h a d
0024760 e . " ) 006 001 \r \r ( 006 002 i
0025000 f 006 001 ( N U L L N E W - S H
0025020 A D E ) \r 006 002 t
0025040 h e n 006 001 B A C K G R O U N D
0025060 . S H A D E \r 006 002 e
0025100 l s e i f 006 001 ( T E X T U R E
0025120 P N E W - S H A D E ) \r
0025140 006 002 t h e n 006 001 ( P
0025160 R O G 1 B A C K G R O U N D .
0025200 S H A D E ( S E T Q B A C K
0025220 G R O U N D . S H A D E N E W
0025240 - S H A D E ) ) \r 006
0025260 002 e l s e 006 001 ( \ I L L E G A
0025300 L . A R G N E W - S H A D E ]
0025320 ) \r ) \r ( D E F I N E Q \r \r ( 006
0025340 004 B A C K G R O U N D . C E N T
0025360 E R 006 001 \r [ L A M B D A (
0025400 B I T M A P ) 006 006 006 001
0025420
*
0025460 006 006 ( * ; " E d i t e d
0025500 1 1 - F e b - 8 7 2 1 : 1 2
0025520 b y S t a n s b u r y " ) 006
0025540 001 \r \r 006 006 ( * ; ; ; " R e t
0025560 u r n s a n e w b i t m a
0025600 p t h e s i z e o f t h
0025620 e s c r e e n w h i c h h
0025640 a s t h e a r g u m e n t
0025660 b i t m a p c e n t e r e d
0025700 i n i t a n d a g r a y
0025720 b o r d e r . T h i s w
0025740 i l l c e n t e r t h e b
0025760 i t m a p o n t h e s c r
0026000 e e n , r e g a r d l e s s
0026020 o f t h e s c r e e n s i
0026040 z e . " ) 006 001 \r \r ( L E
0026060 T ( ( N E W B I T M A P ( B
0026100 I T M A P C R E A T E S C R E
0026120 E N W I D T H S C R E E N H E
0026140 I G H T 1 ) ) \r
0026160 ( X ( Q U O T I E N T
0026200 ( D I F F E R E N C E S C R E
0026220 E N W I D T H ( B I T M A P W
0026240 I D T H B I T M A P ) ) \r
0026260
0026300 2 ) ) \r
0026320 ( Y ( Q U O T I E N T ( D I
0026340 F F E R E N C E S C R E E N H
0026360 E I G H T ( B I T M A P H E I
0026400 G H T B I T M A P ) ) \r
0026420
0026440 2 ) ) ) \r (
0026460 B L T S H A D E B A C K G R O
0026500 U N D . S H A D E N E W B I T
0026520 M A P ) \r ( B
0026540 I T B L T B I T M A P 1 1
0026560 N E W B I T M A P X Y ) \r
0026600 N E W B I T M
0026620 A P ] ) \r \r ( 006 004 B A C K G R O
0026640 U N D . R E F L E C T 006 001 \r
0026660 [ L A M B D A ( B I T M A P )
0026700 006 006 006 001
0026720
0026740 006 006 ( *
0026760 ; " E d i t e d 1 1 - F e b
0027000 - 8 7 2 0 : 5 6 b y S t a
0027020 n s b u r y " ) 006 001 \r \r 006 006 ( *
0027040 ; ; ; \r 006 001 006 006 " C e n t e
0027060 r s B I T M A P o n a s
0027100 c r e e n - s i z e d b i t m
0027120 a p a n d t i l e s t h e
0027140 r e m a i n i n g s p a c e
0027160 w i t h r e f l e c t i o n
0027200 s o f B I T M A P " ) 006 001 \r
0027220 \r ( L E T * ( ( W I D
0027240 T H ( B I T M A P W I D T H
0027260 B I T M A P ) ) \r
0027300 ( H E I G H T ( B I T
0027320 M A P H E I G H T B I T M A P
0027340 ) ) \r ( M
0027360 A X W I D T H ( T I M E S 3
0027400 W I D T H ) ) \r
0027420 ( M A X H E I G H T (
0027440 T I M E S 2 H E I G H T ) )
0027460 \r ( T O O
0027500 . S M A L L ( O R ( G R E A
0027520 T E R P S C R E E N W I D T H
0027540 M A X W I D T H ) \r
0027560
0027600 ( G R E A T E R P S
0027620 C R E E N H E I G H T M A X H
0027640 E I G H T ) ) ) \r
0027660 ( N E W B I T M A P (
0027700 B I T M A P C R E A T E ( 006 002
0027720 i f 006 001 T O O . S M A L L \r
0027740
*
0030000 006 002 t h e n 006 001
0030020 M A X W I D T H \r
0030040
0030060 006
0030100 002 e l s e 006 001 S C R E E N W I
0030120 D T H ) \r
0030140
0030160 ( 006 002 i f 006 001 T O O . S M
0030200 A L L \r
0030220
0030240 006 002 t h e n 006 001 M A
0030260 X H E I G H T \r
0030300
0030320 006 002 e l s e 006 001
0030340 S C R E E N H E I G H T ) \r
0030360
0030400 1 ) ) \r
0030420 ( X ( I Q
0030440 U O T I E N T ( D I F F E R E
0030460 N C E ( B I T M A P W I D T H
0030500 N E W B I T M A P ) \r
0030520
0030540 W I D T
0030560 H ) \r
0030600 2 ) ) \r
0030620 ( Y ( 006 002 i f 006
0030640 001 ( G R E A T E R P H E I G
0030660 H T ( B I T M A P H E I G H T
0030700 N E W B I T M A P ) ) \r
0030720 006
0030740 002 t h e n 006 001 ( I Q U O T I E
0030760 N T ( D I F F E R E N C E (
0031000 B I T M A P H E I G H T N E W
0031020 B I T M A P ) \r
0031040
*
0031100 H E I G H T ) \r
0031120
0031140 2 ) \r
0031160 006 002 e l s e
0031200 006 001 0 ) ) ) \r
0031220 \r 006 006 (
0031240 * ; ; " S t i c k o r i g
0031260 i n a l b i t m a p i n m
0031300 i d d l e " ) 006 001 \r \r
0031320 ( B I T B L T B I T
0031340 M A P N I L N I L N E W B
0031360 I T M A P X Y ) \r
0031400 ( 006 002 i f 006 001 ( O R
0031420 ( G R E A T E R P S C R E E
0031440 N W I D T H W I D T H ) \r
0031460
0031500 ( G R E A T E R P S C R E E N
0031520 H E I G H T H E I G H T ) ) \r
0031540 006 002
0031560 t h e n 006 001 \r
0031600 \r 006 006 (
0031620 * ; ; " B u i l d r e f l
0031640 e c t i o n s " ) 006 001 \r \r
0031660
0031700 ( L E T ( ( H O R I Z ( B I
0031720 T M A P C R E A T E W I D T H
0031740 H E I G H T 1 ) ) \r
0031760
0032000 ( V E R T ( B I T M
0032020 A P C R E A T E W I D T H H
0032040 E I G H T 1 ) ) \r
0032060
0032100 ( H O R I Z . V E R T (
0032120 B I T M A P C R E A T E W I D
0032140 T H H E I G H T 1 ) ) ) \r
0032160
0032200 ( 006 002 f o r 006 001
0032220 I 006 002 f r o m 006 001 0 006 002 t
0032240 o 006 001 ( S U B 1 W I D T H )
0032260 006 002 d o 006 001 ( B I T B L T
0032300 B I T M A P I 0 H O R I Z
0032320 ( D I F F E R E N C E \r
0032340
*
0032460 ( S U B 1 W I D T H ) \r
0032500
*
0032620 I ) \r
0032640
*
0032720 0 1 H E I G H T ) ) \r
0032740
0032760 ( 006 002 f o r 006 001
0033000 I 006 002 f r o m 006 001 0 006 002
0033020 t o 006 001 ( S U B 1 H E I G H
0033040 T ) 006 002 d o 006 001 ( B I T B L
0033060 T B I T M A P 0 I V E R
0033100 T 0 \r
0033120
*
0033200 ( D I F F E R E N C E
0033220 ( S U B 1 H E I G H T ) \r
0033240
*
0033340 I ) \r
0033360
*
0033440 W I D T H
0033460 1 ) ) \r
0033500 ( 006 002
0033520 f o r 006 001 I 006 002 f r o m 006 001
0033540 0 006 002 t o 006 001 ( S U B 1
0033560 H E I G H T ) 006 002 d o 006 001 (
0033600 B I T B L T H O R I Z 0 I
0033620 H O R I Z . V E R T 0 \r
0033640
*
0033720 (
0033740 D I F F E R E N C E ( S U B 1
0033760 H E I G H T ) \r
0034000
*
0034100 I ) \r
0034120
*
0034200 W I D T H 1 ) ) \r
0034220 \r
0034240 006 006 ( * ; ; " U p p
0034260 e r l e f t h a n d c o r
0034300 n e r " ) 006 001 \r \r
0034320
0034340 ( B I T B L T H O R I Z . V
0034360 E R T N I L N I L N E W B
0034400 I T M A P ( D I F F E R E N C
0034420 E X W I D T H ) \r
0034440
0034460 ( P L U S
0034500 Y H E I G H T ) ) \r
0034520 \r
0034540 006 006 ( * ; ; " A b o v e ,
0034560 c e n t e r " ) 006 001 \r \r
0034600
0034620 ( B I T B L T V E R T
0034640 N I L N I L N E W B I T M
0034660 A P X ( P L U S Y H E I
0034700 G H T ) ) \r
0034720 \r 006 006 ( *
0034740 ; ; " U p p e r r i g h t
0034760 h a n d c o r n e r " ) 006 001 \r
0035000 \r
0035020 ( B I T B L T
0035040 H O R I Z . V E R T N I L
0035060 N I L N E W B I T M A P ( P
0035100 L U S X W I D T H ) \r
0035120
0035140 ( P L U
0035160 S Y H E I G H T ) ) \r
0035200 \r
0035220 006 006 ( * ; ; " l e f t "
0035240 ) 006 001 \r \r
0035260 ( B I
0035300 T B L T H O R I Z N I L N
0035320 I L N E W B I T M A P ( D I
0035340 F F E R E N C E X W I D T H
0035360 ) \r
0035400
0035420 Y ) \r \r
0035440 006 006 ( * ; ;
0035460 " R i g h t " ) 006 001 \r \r
0035500
0035520 ( B I T B L T H O R
0035540 I Z N I L N I L N E W B I
0035560 T M A P ( P L U S X W I D
0035600 T H ) \r
0035620
0035640 Y ) \r
0035660 \r 006 006 ( *
0035700 ; ; \r 006 001 006 006 "
0035720 I f r e s u l t i n g r e f
0035740 l e c t e d b i t m a p i s
0035760 s t i l l t o o s m a l l
0036000 , r e c u r s e t i l l i
0036020 t g e t s a s b i g a s
0036040 t h e s c r e e n . " ) 006 001
0036060 \r \r
0036100 ( 006 002 i f 006
0036120 001 T O O . S M A L L \r
0036140
0036160 006 002 t h e n 006 001
0036200 ( 006 002 B A C K G R O U N D . R
0036220 E F L E C T 006 001 N E W B I T M
0036240 A P ) \r
0036260 006 002
0036300 e l s e 006 001 N E W B I T M A P
0036320 ) ) \r 006
0036340 002 e l s e 006 001 N E W B I T M A
0036360 P ] ) \r \r ( 006 004 B A C K G R O U
0036400 N D . T I L E 006 001 \r [ L A M
0036420 B D A ( B I T M A P ) 006 006 006 001
0036440
*
0036500 006 006 ( *
0036520 h t s % : " 1 - A p r - 8 6
0036540 1 8 : 1 3 " ) 006 001 \r (
0036560 006 002 b i n d 006 001 ( N E W B I T
0036600 M A P _ ( B I T M A P C R E
0036620 A T E S C R E E N W I D T H
0036640 S C R E E N H E I G H T 1 ) )
0036660 006 002 f o r 006 001 L E F T \r
0036700 006 002 f r o m 006 001 ( 006
0036720 002 B A C K G R O U N D . L E S S
0036740 006 001 S C R E E N W I D T H (
0036760 B I T M A P W I D T H B I T M
0037000 A P ) ) 006 002 b y 006 001 ( B I T
0037020 M A P W I D T H B I T M A P )
0037040 006 002 t o 006 001 S C R E E N W I
0037060 D T H \r 006 002 d o 006
0037100 001 ( 006 002 f o r 006 001 B O T T O
0037120 M 006 002 f r o m 006 001 ( 006 002 i f
0037140 006 001 ( G R E A T E R P ( B I
0037160 T M A P H E I G H T B I T M A
0037200 P ) \r
0037220
0037240 S C R E E N H
0037260 E I G H T ) \r
0037300
0037320 006 002 t h e n 006 001 (
0037340 006 002 B A C K G R O U N D . L E S
0037360 S 006 001 S C R E E N H E I G H T
0037400 ( B I T M A P H E I G H T B
0037420 I T M A P ) ) \r
0037440
0037460 006 002 e l s e 006 001 0 )
0037500 006 002 b y 006 001 ( B I T M A P H
0037520 E I G H T B I T M A P ) 006 002
0037540 t o 006 001 S C R E E N H E I G H
0037560 T \r 006
0037600 002 d o 006 001 ( B I T B L T B I
0037620 T M A P N I L N I L N E W
0037640 B I T M A P L E F T B O T T
0037660 O M ) ) 006 002 f i n a l l y 006 001
0037700 ( R E T U R N N E W B I T M
0037720 A P ] ) \r \r ( 006 004 B A C K G R O
0037740 U N D . L E S S 006 001 \r [ L A
0037760 M B D A ( B O X S I Z E I M
0040000 A G E S I Z E ) 006 006 006 001
0040020
0040040 006 006 ( * ; "
0040060 E d i t e d 1 1 - F e b - 8 7
0040100 2 0 : 5 6 b y S t a n s b
0040120 u r y " ) 006 001 \r \r 006 006 ( * ; ;
0040140 ; " T e l l s w h e r e y
0040160 o u h a v e t o s t a r t
0040200 d r a w i n g t o e n d
0040220 u p w i t h a c e n t e r
0040240 e d , t i l e d i m a g e "
0040260 ) 006 001 \r \r ( 006 002 b i n d
0040300 006 001 S T A R T 006 002 f i r s t
0040320 006 001 ( S E T Q S T A R T (
0040340 A D D 1 ( Q U O T I E N T (
0040360 D I F F E R E N C E B O X S I
0040400 Z E I M A G E S I Z E ) \r
0040420
*
0040460 2 ) )
0040500 ) 006 002 u n t i l 006 001 ( L E Q
0040520 S T A R T 1 ) \r
0040540 006 002 d o 006 001 ( 006 002 a d d 006 001
0040560 S T A R T ( M I N U S I M
0040600 A G E S I Z E ) ) 006 002 f i n a
0040620 l l y 006 001 ( R E T U R N S T
0040640 A R T ] ) \r ) \r \r ( R P A Q ?
0040660 006 002 B A C K G R O U N D S 006 001
0040700 N I L ) \r \r ( R P A Q ? 006 002 B
0040720 A C K G R O U N D . M O D E 006 001
0040740 ' C E N T E R ) \r \r ( R P A Q
0040760 ? 006 002 B A C K G R O U N D . S
0041000 H A D E 006 001 3 4 8 5 0 ) \r ( D
0041020 E C L A R E % : D O E V A L @
0041040 C O M P I L E D O N T C O P Y
0041060 \r \r ( G L O B A L V A R S B A
0041100 C K G R O U N D S B a c k g r
0041120 o u n d M e n u C o m m a n d s
0041140 L I S P U S E R S D I R E C T
0041160 O R I E S B A C K G R O U N D
0041200 . M O D E B A C K G R O U N D
0041220 . S H A D E ) \r ) \r \r ( A D D T
0041240 O V A R 006 002 G A I N S P A C E
0041260 F O R M S 006 001 ( ( L I S T P
0041300 B A C K G R O U N D S ) \r
0041320
0041340 " D e l e t e s
0041360 a v e d b a c k g r o u n d
0041400 b i t m a p s " \r
0041420
0041440 ( S E T Q B A C K G R O
0041460 U N D S N I L ) ) ) \r ( D E C
0041500 L A R E % : D O N T E V A L @
0041520 L O A D D O E V A L @ C O M P
0041540 I L E D O N T C O P Y C O M
0041560 P I L E R V A R S \r \r ( A D D
0041600 T O V A R 006 002 N L A M A 006 001
0041620 ) \r \r ( A D D T O V A R 006 002 N
0041640 L A M L 006 001 ) \r \r ( A D D T O
0041660 V A R 006 002 L A M A 006 001 ) \r )
0041700 \r ( P U T P R O P S B A C K G
0041720 R O U N D I M A G E S C O P Y
0041740 R I G H T ( " X e r o x C o
0041760 r p o r a t i o n " 1 9 8 6
0042000 1 9 8 7 ) ) \r ( D E C L A R E %
0042020 : D O N T C O P Y \r ( F I
0042040 L E M A P ( N I L ( 1 8 9 7
0042060 1 0 9 6 3 ( B A C K G R O U
0042100 N D . S E T U P 1 9 0 7 .
0042120 4 1 4 9 ) ( B A C K G R O U N
0042140 D . F I L E S 4 1 5 1 . 5
0042160 7 0 6 ) ( \r B A C K G R O U N
0042200 D . F I L E 5 7 0 8 . 6 9
0042220 7 3 ) ( B A C K G R O U N D .
0042240 F E T C H 6 9 7 5 . 9 2 8
0042260 4 ) ( B A C K G R O U N D . S
0042300 H O R T N A M E 9 2 8 6 .
0042320 1 0 0 0 6 ) ( \r B A C K G R O
0042340 U N D . M O D E 1 0 0 0 8 .
0042360 1 0 4 6 0 ) ( B A C K G R O
0042400 U N D . S H A D E 1 0 4 6 2
0042420 . 1 0 9 6 1 ) ) ( 1 0 9 6 4
0042440 1 6 8 0 7 ( B A C K G R O U
0042460 N D . C E N T E R 1 0 9 7 4 \r
0042500 . 1 1 6 6 8 ) ( B A C K G
0042520 R O U N D . R E F L E C T 1 1
0042540 6 7 0 . 1 5 6 0 3 ) ( B A
0042560 C K G R O U N D . T I L E 1 5
0042600 6 0 5 . 1 6 3 4 0 ) ( B A
0042620 C K G R O U N D . L E S S 1 6
0042640 3 4 2 . \r 1 6 8 0 5 ) ) ) )
0042660 ) \r S T O P \r
0042667