$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITMENU!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 0 - M a r - 8 7 1 7 : 0 8 : 0
0000140 0 " 006 004 { E R I S } < T E D I
0000160 T > T E D I T M E N U . ; 3 3 006
0000200 001 2 4 4 3 7 9 \r \r
0000220 c h a n g e s t o % : (
0000240 F N S M B . D E F A U L T B U
0000260 T T O N . A C T I O N F N ) \r \r
0000300 p r e v i o u s d
0000320 a t e % : " 1 7 - M a r - 8 7
0000340 1 0 : 5 0 : 3 3 " { E R I S
0000360 } < T E D I T > T E D I T M E N
0000400 U . ; 3 2 ) \r \r \r ( * " \r C o
0000420 p y r i g h t ( c ) 1 9 8 3
0000440 , 1 9 8 4 , 1 9 8 5 , 1 9
0000460 8 6 , 1 9 8 7 b y J o h n
0000500 S y b a l s k y & X e r o
0000520 x C o r p o r a t i o n .
0000540 A l l r i g h t s r e s e r
0000560 v e d . \r " ) \r \r ( P R E T T Y
0000600 C O M P R I N T T E D I T M E
0000620 N U C O M S ) \r \r ( R P A Q Q
0000640 006 002 T E D I T M E N U C O M S 006
0000660 001 \r [ ( F I L E
0000700 S T E D I T D E C L S ) \r
0000720 ( D E C L A R E % :
0000740 E V A L @ C O M P I L E D O
0000760 N T C O P Y ( C O N S T A N T
0001000 S ( \ S C R A T C H L E N 6
0001020 4 ) ) \r
0001040 ( F I L E S ( L O A D C
0001060 O M P ) \r
0001100 T E D I T
0001120 D E C L S ) ) \r
0001140 [ C O M S
0001160
*
0001220 006 006 ( * ; " S i m
0001240 p l e M e n u B u t t o n
0001260 s u p p o r t " ) 006 001 \r
0001300 ( F N S M
0001320 B . B U T T O N E V E N T I N F
0001340 N M B . D I S P L A Y M B .
0001360 S E T I M A G E M B . S E L F
0001400 N M B . S I Z E F N M B . W
0001420 H E N O P E R A T E D F N \r
0001440
0001460 M B . C O P Y F N M B . G
0001500 E T F N M B . P U T F N M B
0001520 . S H O W S E L F N M B U T T
0001540 O N . C R E A T E M B U T T O
0001560 N . C H A N G E N A M E \r
0001600
0001620 M B U T T O N . F I N D . B U
0001640 T T O N M B U T T O N . F I N
0001660 D . N E X T . B U T T O N M B
0001700 U T T O N . F I N D . N E X T .
0001720 F I E L D M B U T T O N . I N
0001740 I T \r
0001760 M B U T T O N . N
0002000 E X T . F I E L D . A S . N U M
0002020 B E R M B U T T O N . N E X T
0002040 . F I E L D . A S . T E X T M
0002060 B U T T O N . N E X T . F I E L
0002100 D . A S . A T O M \r
0002120 M B
0002140 U T T O N . S E T . F I E L D
0002160 M B U T T O N . S E T . N E X T
0002200 . F I E L D M B U T T O N . S
0002220 E T . N E X T . B U T T O N . S
0002240 T A T E \r
0002260 T E D I T M E
0002300 N U . S T R E A M \ T E D I T
0002320 M E N U . S E L S C R E E N E R
0002340 ) \r
0002360 ( G L O B A L V A R S M B U T
0002400 T O N I M A G E F N S ) \r
0002420 ( D E C L
0002440 A R E % : D O N T E V A L @ L
0002460 O A D D O C O P Y ( P ( M
0002500 B U T T O N . I N I T ) ) \r
0002520
0002540 ( A D D V A R S ( I M A
0002560 G E O B J T Y P E S ( T E d i
0002600 t M e n u B u t t o n F I L E
0002620 T E D I T M E N U G E T F N
0002640 M B . G E T F N ] \r
0002660 [ C O M S
0002700
*
0002740 006 006 ( * ; \r
0002760 006 001
0003000 006 006 " T h r e e - s t a t e
0003020 ( O N - O F F - N E U T R A L )
0003040 m e n u b u t t o n s , f
0003060 o r , e . g . , c h a r a c
0003100 t e r p r o p e r t i e s l
0003120 i k e B O L D " ) 006 001 \r
0003140 ( F N S
0003160 M B . C R E A T E . T H R E E S
0003200 T A T E B U T T O N M B . T H
0003220 R E E S T A T E . D I S P L A Y
0003240 M B . T H R E E S T A T E . S
0003260 H O W S E L F N \r
0003300 M B .
0003320 T H R E E S T A T E . W H E N O
0003340 P E R A T E D F N M B . T H R
0003360 E E S T A T E B U T T O N . F N
0003400 T H R E E S T A T E . I N I T
0003420 ) \r
0003440 ( D E C L A R E % : D O N T E
0003460 V A L @ L O A D D O C O P Y
0003500 ( P ( T H R E E S T A T E . I
0003520 N I T ] \r [ C O
0003540 M S
0003560
*
0003620 006 006 ( * ; " O n e - o f
0003640 - N M e n u b u t t o n s
0003660 e t s " ) 006 001 \r
0003700 ( F N S M B . C R
0003720 E A T E . N W A Y B U T T O N
0003740 M B . N B . D I S P L A Y F N
0003760 M B . N B . W H E N O P E R A T
0004000 E D F N M B . N B . S I Z E F
0004020 N \r
0004040 M B . N W A Y B U T
0004060 T O N . S E L F N M B . N W A
0004100 Y M E N U . N E W B U T T O N
0004120 N W A Y B U T T O N . I N I T
0004140 M B . N B . P A C K I T E M S
0004160 \r
0004200 M B . N W A Y B U T T O
0004220 N . A D D I T E M ) \r
0004240 ( G L O B A L
0004260 V A R S N W A Y B U T T O N I
0004300 M A G E F N S ) \r
0004320 ( D E C L A R E %
0004340 : D O N T E V A L @ L O A D
0004360 D O C O P Y ( P ( N W A Y B
0004400 U T T O N . I N I T ) ) \r
0004420
0004440 ( A D D V A R S ( I M A G
0004460 E O B J T Y P E S ( N W a y B
0004500 u t t o n F I L E T E D I T
0004520 M E N U G E T F N M B . G E
0004540 T F N ] \r [ C O
0004560 M S
0004600
*
0004640 006 006 ( * ; " T w o - s t
0004660 a t e , t o g g l i n g m e
0004700 n u b u t t o n s . " ) 006 001 \r
0004720 ( F
0004740 N S \ T E X T M E N U . T O G
0004760 G L E . C R E A T E \ T E X T
0005000 M E N U . T O G G L E . D I S P
0005020 L A Y \ T E X T M E N U . T O
0005040 G G L E . S H O W S E L F N \r
0005060
0005100 \ T E X T M E N U . T O G
0005120 G L E . W H E N O P E R A T E D
0005140 F N \ T E X T M E N U . T O G
0005160 G L E F N \ T E X T M E N U .
0005200 T O G G L E . I N I T \r
0005220
0005240 \ T E X T M E N U . S E T . T O
0005260 G G L E ) \r
0005300 ( G L O B A L V A R S
0005320 \ T O G G L E I M A G E F N S )
0005340 \r (
0005360 D E C L A R E % : D O N T E V
0005400 A L @ L O A D D O C O P Y (
0005420 P ( \ T E X T M E N U . T O G
0005440 G L E . I N I T ) ) \r
0005460
0005500 ( A D D V A R S ( I M A G E O
0005520 B J T Y P E S ( T o g g l e B
0005540 u t t o n F I L E T E D I T
0005560 M E N U G E T F N M B . G E
0005600 T F N ] \r [ C O
0005620 M S
0005640
*
0005700 006 006 ( * ; " M a r g i n
0005720 S e t t i n g a n d d i s
0005740 p l a y " ) 006 001 \r
0005760 ( F N S D R A W
0006000 M A R G I N S C A L E M A R G
0006020 I N B A R M A R G I N B A R .
0006040 C R E A T E M B . M A R G I N
0006060 B A R . S E L F N M B . M A R
0006100 G I N B A R . S I Z E F N \r
0006120
0006140 M B . M A R G I N B A R . D
0006160 I S P L A Y F N M D E S C A L
0006200 E M S C A L E M B . M A R G
0006220 I N B A R . S H O W T A B M B
0006240 . M A R G I N B A R . T A B T R
0006260 A C K \r
0006300 \ T E D I T . T
0006320 A B T Y P E . S E T M A R G I
0006340 N B A R . I N I T ) \r
0006360 ( B I T M A P
0006400 S \ T E D I T . L E F T T A B
0006420 \ T E D I T . C E N T E R T A
0006440 B \ T E D I T . R I G H T T A
0006460 B \ T E D I T . D E C I M A L
0006500 T A B \r
0006520 \ T E D I T
0006540 . D O T T E D . L E F T T A B
0006560 \ T E D I T . D O T T E D . C E
0006600 N T E R T A B \ T E D I T . D
0006620 O T T E D . R I G H T T A B \r
0006640
0006660 \ T E D I T . D O T T
0006700 E D . D E C I M A L T A B T E
0006720 D I T . E X T E N D E D R I G H
0006740 T M A R K ) \r
0006760 ( G L O B A L V A R S
0007000 M A R G I N B A R I M A G E F
0007020 N S ) \r
0007040 ( D E C L A R E % : D O N
0007060 T E V A L @ L O A D D O C O P
0007100 Y ( P ( M A R G I N B A R .
0007120 I N I T ) ) \r
0007140 ( A D D
0007160 V A R S ( I M A G E O B J T Y
0007200 P E S ( M a r g i n R u l e r
0007220 F I L E T E D I T M E N U
0007240 G E T F N M B . G E T F N ] \r
0007260 ( C O M S
0007300
*
0007340 006 006 (
0007360 * ; " T e x t m e n u c
0007400 r e a t i o n a n d s u p p
0007420 o r t " ) 006 001 \r
0007440 ( F N S \ T E X T
0007460 M E N U . S T A R T \ T E X T
0007500 M E N U . D O C . C R E A T E
0007520 T E X T M E N U . C L O S E F N
0007540 ) \r
0007560 ( B I T M A P S T E X T M E N
0007600 U I C O N T E X T M E N U I C
0007620 O N M A S K ) ) \r
0007640 [ C O M S
0007660
*
0007720 006 006 ( * ; " T E
0007740 d i t - s p e c i f i c s u p
0007760 p o r t " ) 006 001 \r
0010000 ( F N S \ T E D
0010020 I T M E N U . C R E A T E \ T
0010040 E D I T . E X P A N D E D . M E
0010060 N U M B . D E F A U L T B U T
0010100 T O N . F N \r
0010120 \ T E D I
0010140 T M E N U . R E C O R D . U N F
0010160 O R M A T T E D M B . D E F A
0010200 U L T B U T T O N . A C T I O N
0010220 F N ) \r
0010240 ( F N S \ T E D I T . C H
0010260 A R L O O K S M E N U . C R E A
0010300 T E \ T E D I T . E X P A N D
0010320 E D C H A R L O O K S . M E N U
0010340 \ T E D I T . A P P L Y . B O
0010360 L D N E S S \r
0010400 \ T E D I
0010420 T . A P P L Y . C H A R L O O K
0010440 S \ T E D I T . A P P L Y . O
0010460 L I N E \ T E D I T . S H O W
0010500 . C H A R L O O K S \r
0010520 \
0010540 T E D I T . N E U T R A L I Z E
0010560 . C H A R L O O K S \ T E D I
0010600 T . F I L L . I N . C H A R L O
0010620 O K S . M E N U \r
0010640 \ T E
0010660 D I T . N E U T R A L I Z E . C
0010700 H A R L O O K S . M E N U \ T
0010720 E D I T . P A R S E . C H A R L
0010740 O O K S . M E N U \ T E D I T
0010760 . A P P L Y . S L O P E \r
0011000
0011020 \ T E D I T . A P P L Y . S T
0011040 R I K E O U T \ T E D I T . A
0011060 P P L Y . U L I N E ) \r
0011100 ( F N S \
0011120 T E D I T P A R A M E N U . C R
0011140 E A T E \ T E D I T . E X P A
0011160 N D E D P A R A . M E N U \ T
0011200 E D I T . A P P L Y . P A R A L
0011220 O O K S \r
0011240 \ T E D I T .
0011260 S H O W . P A R A L O O K S \
0011300 T E D I T . N E U T R A L I Z E
0011320 . P A R A L O O K S . M E N U
0011340 \ T E D I T . R E C O R D . T A
0011360 B L E A D E R S ) \r
0011400 ( F N S \ T E
0011420 D I T . S H O W . P A G E F O R
0011440 M A T T I N G \ T E D I T P A
0011460 G E M E N U . C R E A T E \ T
0011500 E D I T . A P P L Y . P A G E F
0011520 O R M A T T I N G \r
0011540 T E
0011560 D I T . U N P A R S E . P A G E
0011600 F O R M A T ) \r
0011620 ( C O M S
0011640
*
0011700 006 006 ( * ; " I n i
0011720 t i a l i z a t i o n C o d e
0011740 " ) 006 001 \r
0011760 ( G L O B A L
0012000 V A R S T E D I T . E X P A N
0012020 D E D . M E N U T E D I T . E
0012040 X P A N D E D P A R A . M E N U
0012060 T E D I T . C H A R L O O K S
0012100 . M E N U \r
0012120
0012140 T E D I T . M E N U D I V I
0012160 D E R . S P E C T E D I T . E
0012200 X P A N D E D M E N U . S P E C
0012220 T E D I T . C H A R L O O K S
0012240 M E N U . S P E C \r
0012260
0012300 T E D I T . P A R A
0012320 M E N U . S P E C T E D I T .
0012340 P A G E M E N U . S P E C T E
0012360 D I T . E X P A N D E D . P A G
0012400 E M E N U ) \r
0012420 ( F N S
0012440 \ T E D I T . M E N U . I N I T
0012460 ) \r
0012500 ( D E C L A R E % :
0012520 D O N T E V A L @ L O A D D
0012540 O C O P Y ( P ( \ T E D I T
0012560 . M E N U . I N I T ) \r
0012600
*
0012660 ( \ T E D I T M E N U . C
0012700 R E A T E ) \r
0012720
*
0012760 ( \
0013000 T E D I T . C H A R L O O K S M
0013020 E N U . C R E A T E ) \r
0013040
*
0013120 ( \ T E D I T P A R A M E
0013140 N U . C R E A T E ) \r
0013160
*
0013240 ( \ T E D I T P A G E M E N
0013260 U . C R E A T E ] \r
0013300 ( D E C L A R E % : D O N
0013320 T E V A L @ L O A D D O E V A
0013340 L @ C O M P I L E D O N T C O
0013360 P Y C O M P I L E R V A R S
0013400 ( A D D V A R S ( N L A M A )
0013420 \r
0013440
*
0013520 ( N
0013540 L A M L ) \r
0013560
*
0013660 ( L A M A ] ) \r ( F I L E
0013700 S L O A D T E D I T D E C L S
0013720 ) \r ( D E C L A R E % : E V A
0013740 L @ C O M P I L E D O N T C O
0013760 P Y \r ( D E C L A R E % : E
0014000 V A L @ C O M P I L E \r \r ( R
0014020 P A Q Q 006 002 \ S C R A T C H L
0014040 E N 006 001 6 4 ) \r \r ( C O N S T
0014060 A N T S ( \ S C R A T C H L E
0014100 N 6 4 ) ) \r ) \r \r ( F I L E S
0014120 L O A D ( L O A D C O M P ) \r
0014140 T E D I T D E C L
0014160 S ) \r ) \r \r \r \r 006 004 ( * ; "
0014200 S i m p l e M e n u B u t t
0014220 o n s u p p o r t " ) 006 001 \r \r
0014240 ( D E F I N E Q \r \r ( 006 004 M B .
0014260 B U T T O N E V E N T I N F N 006
0014300 001 \r [ L A M B D A ( O B J
0014320 S T R E A M S E L R E L X
0014340 R E L Y S E L W I N D O W
0014360 T E X T S T R E A M ) 006 006 006 001
0014400 006 006 ( * j d s " 1 9 -
0014420 J u l - 8 4 1 6 : 3 6 " ) 006 001
0014440 \r \r
0014460 006 006 ( * T h e r e
0014500 w a s a b u t t n e v e
0014520 n t i n s i d e a m e n u
0014540 b u t t o n . \r 006 001
0014560 006 006 M a k e s u r e
0014600 t h a t t h e b u t t o n
0014620 g e t s t u r n e d O F F
0014640 w h e n t h e m o u s e
0014660 m o v e s o u t s i d e i t
0014700 . ) 006 001 \r \r ( P R O G
0014720 [ ( O B J B O X ( I M A G E O
0014740 B J P R O P O B J ' B O U N
0014760 D B O X ] \r
0015000 ( 006 002 r e p l a c e 006 001 S E L
0015020 K I N D 006 002 o f 006 001 S E L
0015040 006 002 w i t h 006 001 ' V O L A T I
0015060 L E ) \r ( C
0015100 O N D \r
0015120 ( ( I M A G E O B J P R O P
0015140 O B J ' M E N U B U T T O N .
0015160 S E L E C T E D ) \r
0015200 \r 006
0015220 006 ( * T h i s b u t t o n
0015240 i s s t i l l a c t i v e
0015260 f r o m a n e a r l i e r
0015300 h i t . \r 006 001
0015320 006 006 D o n ' t l e t i t
0015340 b e s e l e c t e d a g a i
0015360 n . ) 006 001 \r \r
0015400 ( R E T U R N ' D O
0015420 N ' T ) ) \r
0015440 ( ( A N D ( I G E Q R
0015460 E L X 0 ) \r
0015500 ( I G E Q
0015520 R E L Y 0 ) \r
0015540 ( I L E Q
0015560 R E L X ( 006 002 f e t c h 006 001
0015600 X S I Z E 006 002 o f 006 001 O B
0015620 J B O X ) ) \r
0015640 ( I L E Q
0015660 R E L Y ( 006 002 f e t c h 006 001
0015700 Y S I Z E 006 002 o f 006 001 O B J
0015720 B O X ) ) ) \r
0015740 \r 006 006 ( *
0015760 W e ' r e r e a l l y i n
0016000 s i d e t h e t h i n g .
0016020 R e t u r n a n i n d i c a
0016040 t i o n t h a t w e ' r e
0016060 t o b e l e f t \r 006 001
0016100 006 006 a l o n e .
0016120 ) 006 001 \r \r
0016140 ( R E T U R N T ) ) \r
0016160 ( T
0016200
*
0016240 006 006 ( *
0016260 H e ' s m o v e d o u t s
0016300 i d e t h e b u t t o n . \r
0016320 006 001
0016340
*
0016400 006
0016420 006 D o n ' t p e r m i t t h
0016440 e s e l e c t i o n . ) 006 001 \r
0016460
0016500 ( R E T U R N ' D O N ' T ] )
0016520 \r \r ( 006 004 M B . D I S P L A Y 006
0016540 001 \r [ L A M B D A ( O B J
0016560 S T R E A M M O D E ) 006 006 006
0016600 001
0016620
0016640 006 006 ( * j d s " 1 1 -
0016660 J u n - 8 6 1 2 : 3 0 " ) 006 001
0016700 \r
0016720
*
0016760 006 006
0017000 ( * D i s p l a y t h e i
0017020 n n a r d s o f a m e n u
0017040 \r 006 001
0017060
*
0017140 006 006 b u t t o n ) 006 001 \r
0017160 ( S E L E C T Q ( I M A G E
0017200 S T R E A M T Y P E S T R E A
0017220 M ) \r ( D I S P
0017240 L A Y \r \r
0017260 006 006 ( * G
0017300 o i n g t o t h e d i s p
0017320 l a y . U s e t h e c a c
0017340 h e d b i t m a p v e r s i
0017360 o n o f t h e b u t t o n
0017400 ) 006 001 \r \r
0017420 [ P R O G ( B I T
0017440 M A P D S ( O B J B O X (
0017460 I M A G E O B J P R O P O B J
0017500 ' B O U N D B O X ) ) \r
0017520
0017540 ( X ( D
0017560 S P X P O S I T I O N N I L
0017600 S T R E A M ) ) \r
0017620
0017640 ( Y ( D S P Y P
0017660 O S I T I O N N I L S T R E
0017700 A M ) ) ) \r
0017720 [ S E
0017740 T Q B I T M A P ( C O N D \r
0017760
*
0020020 ( ( I M A G E O B
0020040 J P R O P O B J ' B I T C A
0020060 C H E ) ) \r
0020100
0020120 ( T
0020140 ( 006 002 M B . S E T I M A G E 006 001
0020160 O B J ) \r
0020200
*
0020240 ( I M A G E O B J P R O P O B
0020260 J ' B I T C A C H E ] \r
0020300
0020320 [ B I T B L T B I T M
0020340 A P 0 0 S T R E A M X
0020360 ( S E T Q Y ( I D I F F E R
0020400 E N C E Y ( 006 002 f e t c h 006
0020420 001 Y D E S C 006 002 o f 006 001 O
0020440 B J B O X ] \r
0020460
*
0020540 006 006 ( * D i s p l a y
0020560 t h e b u t t o n ' s i m
0020600 a g e ) 006 001 \r
0020620 ( C
0020640 O N D \r
0020660 ( (
0020700 E Q ( I M A G E O B J P R O P
0020720 O B J ' S T A T E ) \r
0020740
0020760 ' O N )
0021000
0021020 006 006 ( * I
0021040 f t h e b u t t o n i s
0021060 O N , m a r k i t s o . )
0021100 006 001 \r
0021120 ( B
0021140 I T B L T N I L 0 0 S T
0021160 R E A M X Y ( 006 002 f e t c
0021200 h 006 001 X S I Z E 006 002 o f 006 001
0021220 O B J B O X ) \r
0021240
0021260 ( 006 002 f e
0021300 t c h 006 001 Y S I Z E 006 002 o f
0021320 006 001 O B J B O X ) \r
0021340
0021360 ' T E
0021400 X T U R E \r
0021420
0021440 ' I N V E R T
0021460 B L A C K S H A D E ] ) \r
0021500 ( P R O G ( B I T M
0021520 A P D S ( F O N T ( I M A
0021540 G E O B J P R O P O B J ' M
0021560 B F O N T ) ) \r
0021600 ( T E
0021620 X T ( I M A G E O B J P R O P
0021640 O B J ' M B T E X T ) ) \r
0021660
0021700 O L O O K S ) \r
0021720 \r
0021740 006 006 ( * G o i n g t o s
0021760 o m e o u t p u t i m a g e
0022000 s t r e a m . U s e t h e
0022020 a c t u a l t e x t . ) 006 001
0022040 \r \r
0022060 ( S E T Q O L O O K S ( D S
0022100 P F O N T ( F O N T C O P Y
0022120 F O N T ' D E V I C E S T R
0022140 E A M ) \r
0022160
0022200 S T R E A M ) )
0022220
0022240 006 006 ( * C h a n g e t o
0022260 t h e f o n t f o r t h
0022300 i s m e n u \r 006 001
0022320
*
0022400 006 006 b u t t o n
0022420 . ) 006 001 \r
0022440 ( P R I N 1 T E X T S
0022460 T R E A M )
0022500
0022520 006 006 ( * P r i n t t h e
0022540 b u t t o n t e x t ) 006 001 \r
0022560 ( D
0022600 S P F O N T O L O O K S S T
0022620 R E A M )
0022640 006 006 (
0022660 * A n d p u t t h e f o
0022700 n t b a c k a s i t w a
0022720 s . ) 006 001 \r
0022740 ] ) \r \r ( 006 004 M B . S E T I M A
0022760 G E 006 001 \r [ L A M B D A (
0023000 O B J ) 006 006 006 001
0023020
*
0023060 006 006 ( * j d s "
0023100 2 3 - A u g - 8 4 1 3 : 2 2 "
0023120 ) 006 001 \r ( P R O G ( (
0023140 M B F O N T ( I M A G E O B J
0023160 P R O P O B J ' M B F O N T
0023200 ) ) \r ( M
0023220 B T E X T ( I M A G E O B J P
0023240 R O P O B J ' M B T E X T )
0023260 ) \r B O X
0023300 B I T M A P D S ) \r
0023320 ( S E T Q B O X
0023340 ( 006 002 c r e a t e 006 001 I M A G
0023360 E B O X \r
0023400
0023420 X S I Z E _ ( S T R I N G W
0023440 I D T H M B T E X T M B F O
0023460 N T ) \r
0023500 Y
0023520 S I Z E _ ( F O N T P R O P
0023540 M B F O N T ' H E I G H T )
0023560 \r
0023600 Y D E S
0023620 C _ ( F O N T P R O P M B
0023640 F O N T ' D E S C E N T ) \r
0023660
0023700 X K E R N
0023720 _ 0 ) ) \r
0023740 ( S E T Q B I T M A P ( B I
0023760 T M A P C R E A T E ( 006 002 f e
0024000 t c h 006 001 X S I Z E 006 002 o f
0024020 006 001 B O X ) \r
0024040
0024060 ( 006 002 f e t c h 006 001
0024100 Y S I Z E 006 002 o f 006 001 B O
0024120 X ) ) ) \r (
0024140 I M A G E O B J P R O P O B J
0024160 ' B I T C A C H E B I T M A
0024200 P ) \r ( I M
0024220 A G E O B J P R O P O B J '
0024240 B O U N D B O X B O X ) \r
0024260 ( S E T Q D S
0024300 ( D S P C R E A T E B I T M
0024320 A P ) ) \r (
0024340 D S P X O F F S E T 0 D S )
0024360 \r ( D S P Y
0024400 O F F S E T 0 D S ) \r
0024420 ( D S P F O N T
0024440 M B F O N T D S ) \r
0024460 ( M O V E T O 0 (
0024500 F O N T P R O P M B F O N T
0024520 ' D E S C E N T ) \r
0024540 D S ) \r
0024560 ( P R I N 1
0024600 M B T E X T D S ) \r
0024620 ( R E T U R N O B J
0024640 ] ) \r \r ( 006 004 M B . S E L F N 006
0024660 001 \r [ L A M B D A ( O B J
0024700 S E L W F N ) 006 006 006 001
0024720
*
0024760 006 006 ( * j d s " 4 -
0025000 M a y - 8 4 1 5 : 1 6 " ) 006 001
0025020 \r \r
0025040 006 006 ( * C a l l s
0025060 a m e n u - b u t t o n ' s
0025100 a s s o c i a t e d f u n c
0025120 t i o n , t h e n t u r n s
0025140 o f f t h e h i g h l i g
0025160 h t i n g \r 006 001
0025200 006 006 o f t h e m e n u
0025220 b u t t o n . ) 006 001 \r \r
0025240 ( P R O G [ ( T S E L ( 006
0025260 002 c r e a t e 006 001 S E L E C T
0025300 I O N ) ) \r
0025320 ( B U T T O N F N ( O R F
0025340 N ( I M A G E O B J P R O P
0025360 O B J ' M B F N ] \r
0025400 ( \ C O P Y S E L S
0025420 E L T S E L )
0025440
0025460 006 006 ( * S a v
0025500 e t h e s e l e c t i o n
0025520 t h a t p o i n t s t o \r
0025540 006 001
0025560
*
0025620 006
0025640 006 t h e m e n u b u t t o n
0025660 . ) 006 001 \r (
0025700 006 002 r e p l a c e 006 001 S E L K
0025720 I N D 006 002 o f 006 001 S E L 006
0025740 002 w i t h 006 001 ' C H A R ) \r
0025760 ( 006 002 r e p l
0026000 a c e 006 001 S E T 006 002 o f 006 001
0026020 S E L 006 002 w i t h 006 001 N I
0026040 L ) \r ( 006 002
0026060 r e p l a c e 006 001 O N F L G
0026100 006 002 o f 006 001 S E L 006 002 w i t
0026120 h 006 001 N I L )
0026140 006 006 ( *
0026160 C a l l t h e b u t t o n
0026200 ' s f u n c t i o n ) 006 001 \r
0026220 ( C O N D \r
0026240 ( ( N E
0026260 Q ( A N D B U T T O N F N
0026300 ( A P P L Y * B U T T O N F N
0026320 O B J S E L W ) ) \r
0026340
0026360 ' D O N ' T )
0026400
0026420 006 006 ( * I
0026440 f t h e b u t t o n f n
0026460 l e f t t h e s e l e c t i
0026500 o n \r 006 001
0026520
*
0026600 006 006 a l o n e , ) 006 001 \r
0026620 ( \ F
0026640 I X S E L T S E L ( 006 002 f e
0026660 t c h 006 001 \ T E X T O B J 006
0026700 002 o f 006 001 T S E L ) ) \r
0026720 ( \ S H O
0026740 W S E L T S E L N I L N I
0026760 L ) ) )
0027000 006 006 ( * T
0027020 u r n o f f t h e b u t t
0027040 o n h i l i t e ) 006 001 \r
0027060 ] ) \r \r ( 006 004 M B . S I Z
0027100 E F N 006 001 \r [ L A M B D A
0027120 ( O B J S T R E A M C U R X
0027140 R I G H T M A R G I N ) 006 006 006
0027160 001
0027200 006 006 ( * j d s
0027220 " 3 0 - A u g - 8 4 1 1 : 2 4
0027240 " ) 006 001 \r
0027260
*
0027340 006 006 ( * T e l l t h e
0027360 s i z e o f a m e n u b
0027400 u t t o n ) 006 001 \r ( P R
0027420 O G ( ( F O N T ( I M A G E
0027440 O B J P R O P O B J ' M B F
0027460 O N T ) ) \r
0027500 B O X ) \r
0027520 [ C O N D \r
0027540 ( ( D I S P L A Y S T R E
0027560 A M P S T R E A M )
0027600
0027620 006 006 ( * W e ' r e f o
0027640 r m a t t i n g f o r t h e
0027660 D I S P L A Y ) 006 001 \r
0027700 ) \r
0027720 [ ( E Q ' I
0027740 N T E R P R E S S ( I M A G E
0027760 S T R E A M T Y P E S T R E A
0030000 M ) ) \r
0030020 ( S E T Q F O N T ( F O
0030040 N T C O P Y F O N T ' D E V
0030060 I C E ' I N T E R P R E S S ]
0030100 \r ( (
0030120 E Q ' P R E S S ( I M A G E
0030140 S T R E A M T Y P E S T R E A
0030160 M ) ) \r
0030200 ( S E T Q F O N T ( F O
0030220 N T C O P Y F O N T ' D E V
0030240 I C E ' P R E S S ] \r
0030260 ( S E T Q B O X
0030300 ( 006 002 c r e a t e 006 001 I M A G
0030320 E B O X \r
0030340
0030360 X S I Z E _ ( S T R I N G W
0030400 I D T H ( I M A G E O B J P R
0030420 O P O B J ' M B T E X T ) \r
0030440
*
0030500 F O N T ) \r
0030520
0030540 Y S I Z E
0030560 _ ( F O N T P R O P F O N
0030600 T ' H E I G H T ) \r
0030620
0030640 Y D E S C _ ( F
0030660 O N T P R O P F O N T ' D E
0030700 S C E N T ) \r
0030720
0030740 X K E R N _ 0 ) ) \r
0030760 ( I M A G E O B
0031000 J P R O P O B J ' B O U N D
0031020 B O X B O X ) \r
0031040 ( R E T U R N B O X ] )
0031060 \r \r ( 006 004 M B . W H E N O P E R
0031100 A T E D F N 006 001 \r [ L A M B
0031120 D A ( O B J D S O P E R A
0031140 T I O N S E L ) 006 006 006 001
0031160
0031200 006 006 ( * j
0031220 d s " 7 - F e b - 8 4 1 4
0031240 : 2 0 " ) 006 001 \r ( S E L
0031260 E C T Q O P E R A T I O N \r
0031300 ( H I G H L I G H
0031320 T E D ( 006 002 M B . S H O W S E
0031340 L F N 006 001 O B J S E L T
0031360 D S ) ) \r ( U N
0031400 H I G H L I G H T E D ( 006 002 M
0031420 B . S H O W S E L F N 006 001 O B
0031440 J S E L N I L D S ) ) \r
0031460 ( S E L E C T E D
0031500 ( 006 002 M B . S E L F N 006 001 O
0031520 B J S E L D S ) ) \r
0031540 ( D E S E L E C T E D )
0031560 \r N I L ] ) \r \r
0031600 ( 006 004 M B . C O P Y F N 006 001 \r
0031620 [ L A M B D A ( O B J ) 006 006
0031640 006 001
0031660
*
0031720 006 006 ( * j d s " 2 3 - M a y
0031740 - 8 4 1 1 : 3 2 " ) 006 001 \r
0031760
*
0032040 006 006 ( *
0032060 C o p y a m e n u b u t t
0032100 o n o b j e c t . ) 006 001 \r
0032120 ( 006 002 c r e a t e 006 001 I M
0032140 A G E O B J \r
0032160 O B J E C T D A T U M _
0032200 ( C O P Y ( 006 002 f e t c h 006 001
0032220 ( I M A G E O B J O B J E C
0032240 T D A T U M ) 006 002 o f 006 001 O
0032260 B J ) ) \r
0032300 I M A G E O B J P L I S T _
0032320 ( C O P Y ( 006 002 f e t c h 006 001
0032340 ( I M A G E O B J I M A G E
0032360 O B J P L I S T ) 006 002 o f 006 001
0032400 O B J ) ) \r
0032420 I M A G E O B J F N S _
0032440 ( 006 002 f e t c h 006 001 ( I M A G
0032460 E O B J I M A G E O B J F N S
0032500 ) 006 002 o f 006 001 O B J ] ) \r \r
0032520 ( 006 004 M B . G E T F N 006 001 \r
0032540 [ L A M B D A ( O B J F I L
0032560 E ) 006 006 006 001
0032600
0032620 006
0032640 006 ( * j d s " 1 - M a y -
0032660 8 4 1 1 : 5 8 " ) 006 001 \r
0032700
*
0032760 006 006 ( * R
0033000 E A D a m e n u b u t t o
0033020 n f r o m a f i l e . ) 006
0033040 001 \r ( P R O G [ ( T E
0033060 X T ( I M A G E O B J P R O P
0033100 O B J ' M B T E X T ) ) \r
0033120 ( M B F N
0033140 ( I M A G E O B J P R O P O B
0033160 J ' M B F N ) ) \r
0033200 ( F O N T ( I M A G
0033220 E O B J P R O P O B J ' M B
0033240 F O N T ] \r
0033260 ( \ S T R I N G O U T F I L E
0033300 T E X T ) \r
0033320 ( \ A T M O U T F I L E M
0033340 B F N ) \r (
0033360 \ A T M O U T F I L E ( F O
0033400 N T P R O P F O N T ' F A M
0033420 I L Y ) ) \r
0033440 ( \ S M A L L P O U T F I L E
0033460 ( F O N T P R O P F O N T
0033500 ' S I Z E ) ) \r
0033520 ( 006 002 f o r 006 001 A T T R
0033540 006 002 i n 006 001 ( F O N T P R O P
0033560 F O N T ' F A C E ) 006 002 d
0033600 o 006 001 ( \ A T M O U T F I L
0033620 E A T T R ] ) \r \r ( 006 004 M B .
0033640 P U T F N 006 001 \r [ L A M B D
0033660 A ( O B J F I L E ) 006 006 006 001
0033700
*
0033740 006 006 ( * j d
0033760 s " 1 - M a y - 8 4 1 1 :
0034000 5 8 " ) 006 001 \r
0034020
*
0034100 006 006 ( * R E A D a
0034120 m e n u b u t t o n f r o m
0034140 a f i l e . ) 006 001 \r
0034160 ( P R O G [ ( T E X T ( I M
0034200 A G E O B J P R O P O B J '
0034220 M B T E X T ) ) \r
0034240 ( M B F N ( I M A G E
0034260 O B J P R O P O B J ' M B F
0034300 N ) ) \r (
0034320 F O N T ( I M A G E O B J P R
0034340 O P O B J ' M B F O N T ] \r
0034360 ( \ S T R I
0034400 N G O U T F I L E T E X T )
0034420 \r ( \ A T M
0034440 O U T F I L E M B F N ) \r
0034460 ( \ A T M O U
0034500 T F I L E ( F O N T P R O P
0034520 F O N T ' F A M I L Y ) ) \r
0034540 ( \ S M A L
0034560 L P O U T F I L E ( F O N T
0034600 P R O P F O N T ' S I Z E )
0034620 ) \r ( 006 002 f
0034640 o r 006 001 A T T R 006 002 i n 006 001
0034660 ( F O N T P R O P F O N T
0034700 ' F A C E ) 006 002 d o 006 001 ( \
0034720 A T M O U T F I L E A T T R
0034740 ] ) \r \r ( 006 004 M B . S H O W S E
0034760 L F N 006 001 \r [ L A M B D A
0035000 ( O B J S E L O N D S ) 006
0035020 006 006 001
0035040
0035060 006 006 ( * j d s
0035100 " 8 - F e b - 8 4 1 0 : 3 3
0035120 " ) 006 001 \r ( P R O G [
0035140 ( O B J B O X ( I M A G E O B
0035160 J P R O P O B J ' B O U N D
0035200 B O X ] \r (
0035220 O R ( I M A G E O B J P R O P
0035240 O B J ' B I T C A C H E ) \r
0035260 ( 006
0035300 002 M B . D I S P L A Y 006 001 O B
0035320 J ) )
0035340
0035360 006 006 ( * M A K E S U R E
0035400 T H E D I S P L A Y F O R M
0035420 E X I S T S ) 006 001 \r
0035440 ( B I T B L T ( I M
0035460 A G E O B J P R O P O B J '
0035500 B I T C A C H E ) \r
0035520 0 0 D
0035540 S 0 0 ( 006 002 f e t c h 006 001
0035560 X S I Z E 006 002 o f 006 001 O B
0035600 J B O X ) \r
0035620 ( 006 002 f e t c h 006
0035640 001 Y S I Z E 006 002 o f 006 001 O
0035660 B J B O X ) \r
0035700 ' I N P U T \r
0035720
0035740 ' R E P L A C E ) \r
0035760 ( C O N D \r
0036000 ( ( O R O N (
0036020 E Q ( I M A G E O B J P R O P
0036040 O B J ' S T A T E ) \r
0036060
0036100 ' O N ) ) \r
0036120 ( B I T B L
0036140 T N I L 0 0 D S 0 0
0036160 ( 006 002 f e t c h 006 001 X S I Z
0036200 E 006 002 o f 006 001 O B J B O X )
0036220 \r
0036240 ( 006 002 f e t c h 006 001
0036260 Y S I Z E 006 002 o f 006 001 O B
0036300 J B O X ) \r
0036320 ' T E X T
0036340 U R E \r
0036360 ' I N V E R T
0036400 B L A C K S H A D E ] ) \r \r (
0036420 006 004 M B U T T O N . C R E A T E
0036440 006 001 \r [ L A M B D A ( M B
0036460 T E X T M B F N M B F O N T
0036500 I M A G E F N S ) 006 006 006 001
0036520
0036540 006 006 ( * j d s " 2 3
0036560 - A u g - 8 4 1 3 : 2 2 " ) 006
0036600 001 \r \r
0036620 006 006 ( * C r e a
0036640 t e a M E N U B U T T O N
0036660 i m a g e o b j e c t , a
0036700 n d f i l l i n i t s i
0036720 m a g e a n d f u n c t i o
0036740 n - h o o k \r 006 001
0036760 006 006 f i e l d s ) 006 001 \r
0037000 \r ( P R O G ( ( O B J
0037020 ( I M A G E O B J C R E A T E
0037040 N I L ( O R I M A G E F N
0037060 S M B U T T O N I M A G E F N
0037100 S ) ) ) \r
0037120 ( B O X ( 006 002 c r e a t e 006 001
0037140 I M A G E B O X \r
0037160
0037200 X S I Z E _ ( S T R I N G
0037220 W I D T H M B T E X T M B F
0037240 O N T ) \r
0037260 Y S I Z
0037300 E _ ( F O N T P R O P M B
0037320 F O N T ' H E I G H T ) \r
0037340
0037360 Y D E S C _ ( F O
0037400 N T P R O P M B F O N T ' D
0037420 E S C E N T ) \r
0037440 X
0037460 K E R N _ 0 ) ) \r
0037500 B I T M A P D S )
0037520 \r ( I M A G
0037540 E O B J P R O P O B J ' M B
0037560 F N M B F N ) \r
0037600 \r 006 006
0037620 ( * T h e f u n c t i o n
0037640 t o b e c a l l e d w h e
0037660 n t h e b u t t o n i s
0037700 p u s h e d ) 006 001 \r \r
0037720 ( I M A G E O B J P R
0037740 O P O B J ' M B T E X T M
0037760 B T E X T )
0040000 006 006 ( * T h e
0040020 t e x t d i s p l a y e d
0040040 i n t h e b u t t o n ) 006 001
0040060 \r ( I M A G
0040100 E O B J P R O P O B J ' M B
0040120 F O N T M B F O N T )
0040140 006 006
0040160 ( * T h e f o n t t h a t
0040200 t e x t a p p e a r s i n
0040220 ) 006 001 \r ( 006
0040240 002 M B . S E T I M A G E 006 001 O
0040260 B J ) \r \r
0040300 006 006 ( * S e
0040320 t u p t h e i m a g e f
0040340 o r t h e b u t t o n , s
0040360 o w e d o n ' t c r e a t
0040400 e i t r e p e a t e d l y .
0040420 ) 006 001 \r \r (
0040440 R E T U R N O B J ] ) \r \r ( 006
0040460 004 M B U T T O N . C H A N G E N
0040500 A M E 006 001 \r [ L A M B D A
0040520 ( T E X T O B J O B J N E W
0040540 N A M E ) 006 006 006 001
0040560
0040600 006 006 ( * j d s
0040620 " 2 3 - A u g - 8 4 1 3 : 2 6
0040640 " ) 006 001 \r \r
0040660 006 006 ( * C
0040700 h a n g e t h e t e x t t
0040720 h a t a p p e a r s i n a
0040740 b u t t o n , a n d r e d
0040760 i s p l a y t h e b u t t o
0041000 n i f i t ' s \r 006 001
0041020 006 006 v i s i b l e
0041040 ) 006 001 \r \r ( P R O G (
0041060 B O X B I T M A P D S ) \r
0041100 ( I M A G E O
0041120 B J P R O P O B J ' M B T E
0041140 X T N E W N A M E ) \r
0041160 ( 006 002 M B . S E T I
0041200 M A G E 006 001 O B J ) \r
0041220 ( T E D I T . O B J
0041240 E C T . C H A N G E D T E X T
0041260 O B J O B J ] ) \r \r ( 006 004 M B
0041300 U T T O N . F I N D . B U T T O
0041320 N 006 001 \r [ L A M B D A ( L
0041340 A B E L T E X T S T R E A M
0041360 C H # ) 006 006 006 001
0041400
0041420 006 006 ( * g b n " 2
0041440 7 - S e p - 8 4 0 2 : 1 3 " )
0041460 006 001 \r
0041500
*
0041560 006 006 ( * " 2 7 - S e p - 8 4
0041600 0 0 : 5 2 " g b n ) 006 001 \r
0041620 \r
0041640 006 006 ( * * r e t u r n
0041660 s t h e p i e c e n o c
0041700 o n t a i n i n g t h e i m
0041720 a g e o b j w i t h M B T E
0041740 X T p r o p L A B E L ) 006 001
0041760 \r \r ( P R O G [ ( L A
0042000 B E L A T O M ( M K A T O M
0042020 L A B E L ) ) \r
0042040 O B J S T A R T P C N O
0042060 ( P C T B ( 006 002 f e t c h 006
0042100 001 P C T B 006 002 o f 006 001 ( T
0042120 E X T O B J T E X T S T R E A
0042140 M ] \r ( S E
0042160 T Q S T A R T P C N O ( C O
0042200 N D \r
0042220
0042240 ( C H # ( \ C H T O P C N O
0042260 C H # P C T B ) ) \r
0042300
0042320 ( T \ F i r s
0042340 t P i e c e O f f s e t ) ) ) \r
0042360 ( R E T U R
0042400 N ( 006 002 f o r 006 001 P C N O
0042420 P C 006 002 f r o m 006 001 S T A R
0042440 T P C N O 006 002 t o 006 001 ( \ E
0042460 D I T E L T P C T B \ P C T
0042500 B L a s t P i e c e O f f s e t
0042520 ) 006 002 b y 006 001 \r
0042540
*
0042660 \ E l t s P e r P i e c e \r
0042700
0042720 006 002 d o 006 001 [ S E T
0042740 Q O B J ( 006 002 f e t c h 006 001
0042760 P O B J 006 002 o f 006 001 ( S E
0043000 T Q P C ( \ E D I T E L T
0043020 P C T B ( A D D 1 P C N O ]
0043040 \r
0043060 ( C O N D \r
0043100
0043120 ( [ A N D
0043140 O B J ( E Q L A B E L A T O
0043160 M ( M K A T O M ( I M A G E
0043200 O B J P R O P O B J ' M B T
0043220 E X T ] \r
0043240
0043260 ( R E T U R N P C N O ] ) \r
0043300 \r ( 006 004 M B U T T O N . F I N D
0043320 . N E X T . B U T T O N 006 001 \r
0043340 [ L A M B D A ( T E X T O B
0043360 J C H # ) 006 006 006 001
0043400
*
0043440 006 006 ( * j d s " 2 8 - A u g
0043460 - 8 4 0 9 : 1 6 " ) 006 001 \r
0043500 \r
0043520 006 006 ( * F i n d s t h
0043540 e n e x t i n s t a n c e
0043560 o f a n O B J E C T w h i
0043600 c h l o o k s l i k e a
0043620 m e n u b u t t o n , 3 - s
0043640 t a t e \r 006 001
0043660 006 006 b u t t o n , o r m
0043700 e n u o b j . I f n o n e
0043720 i s f o u n d , r e t u r n
0043740 N I L ) 006 001 \r \r ( P R
0043760 O G [ ( P C T B ( 006 002 f e t
0044000 c h 006 001 P C T B 006 002 o f 006 001
0044020 T E X T O B J ) ) \r
0044040 ( P C N O ( \ C H
0044060 T O P C N O C H # ( 006 002 f e
0044100 t c h 006 001 P C T B 006 002 o f 006
0044120 001 T E X T O B J ] \r
0044140 ( R E T U R N ( 006 002
0044160 b i n d 006 001 P C O B J 006 002
0044200 f o r 006 001 P C # 006 002 f r o m
0044220 006 001 ( A D D 1 P C N O ) 006
0044240 002 t o 006 001 ( S U B 1 ( \ E D
0044260 I T E L T P C T B \ P C T B
0044300 L a s t P i e c e O f f s e t )
0044320 \r
0044340
*
0044420 ) 006 002 b y 006 001 \ E l t s
0044440 P e r P i e c e \r
0044460 006 002
0044500 d o 006 001 \r
0044520 \r 006 006 ( *
0044540 L o o t h r u t h e p i e
0044560 c e t a b l e , l o o k i n
0044600 g f o r p i e c e s w i t
0044620 h o b j e c t s i n t h e
0044640 m ) 006 001 \r \r
0044660 ( S
0044700 E T Q P C ( \ E D I T E L T
0044720 P C T B P C # ) ) \r
0044740
0044760 ( S E T Q O B J ( 006
0045000 002 f e t c h 006 001 P O B J 006 002
0045020 o f 006 001 P C ) ) \r
0045040
0045060 ( C O N D \r
0045100
0045120 ( ( A N D O B J ( O R
0045140 ( 006 002 t y p e ? 006 001 M B U T
0045160 T O N O B J ) \r
0045200
*
0045240 ( 006 002 t y p e ? 006 001 M A R
0045260 G I N B A R O B J ) \r
0045300
*
0045340 ( 006 002 t y p e ? 006 001
0045360 N W A Y B U T T O N O B J ) )
0045400 ) \r
0045420
*
0045460 006
0045500 006 ( * W h i c h a r e s o
0045520 m e k i n d o f \r 006 001
0045540
*
0045620 006 006 m e n
0045640 u - b u t t o n i s h o b j e
0045660 c t ) 006 001 \r
0045700
0045720 ( R E T U R N ( C O N S
0045740 O B J ( \ E D I T E L T P C
0045760 T B ( S U B 1 P C # ] ) \r \r
0046000 ( 006 004 M B U T T O N . F I N D .
0046020 N E X T . F I E L D 006 001 \r [
0046040 L A M B D A ( T E X T O B J
0046060 C H # D O N ' T F I X ) 006 006 006
0046100 001
0046120 006 006
0046140 ( * j d s " 5 - A u g - 8
0046160 5 1 7 : 4 4 " ) 006 001 \r
0046200 \r
0046220 006 006 ( * S t a r t i n g f
0046240 r o m C H # , f i n d t h
0046260 e n e x t f i l l - i n a
0046300 r e a \r 006 001
0046320 006 006 ( u s u a l l y s u r r o
0046340 u n d e d b y a { - } p
0046360 a i r ) % , a n d s e l e c
0046400 t a n y t e x t i t c o
0046420 n t a i n s . \r 006 001
0046440 006 006 R e t u r n s t h
0046460 e T E X T O B J ' s S C R A
0046500 T C H S E L w i t h t h e
0046520 t e x t s e l e c t e d . \r 006
0046540 001 006 006 ( I f
0046560 n o i n s e r t p o i n t
0046600 i s f o u n d , N I L . )
0046620 ) 006 001 \r \r ( P R O G (
0046640 ( P C T B ( 006 002 f e t c h 006 001
0046660 P C T B 006 002 o f 006 001 T E X
0046700 T O B J ) ) \r
0046720 ( S C R A T C H S E L ( 006
0046740 002 f e t c h 006 001 S C R A T C H
0046760 S E L 006 002 o f 006 001 T E X T O
0047000 B J ) ) \r
0047020 C H 1 P C N O P C N O 1 P
0047040 C C H L E N ( D E P T H
0047060 0 ) ) \r ( C
0047100 O N D \r
0047120 ( ( I G R E A T E R P C H #
0047140 ( 006 002 f e t c h 006 001 T E X T
0047160 L E N 006 002 o f 006 001 T E X T O
0047200 B J ) ) 006 006 ( * C a
0047220 n ' t l o o k p a s t t h
0047240 e e n d o f t h e \r 006 001
0047260
*
0047340 006 006 d
0047360 o c u m e n t ) 006 001 \r
0047400 ( R E T U R N
0047420 N I L ) ) ) \r
0047440 ( S E T Q P C N O ( \ C
0047460 H T O P C N O C H # P C T B
0047500 ) ) \r ( S E
0047520 T Q P C ( \ E D I T E L T
0047540 P C T B ( A D D 1 P C N O )
0047560 ) ) \r ( 006 002
0047600 f o r 006 001 006 002 o l d 006 001 P C
0047620 N O 006 002 f r o m 006 001 P C N O
0047640 006 002 b y 006 001 \ E l t s P e r
0047660 P i e c e 006 002 w h i l e 006 001
0047700 P C \r
0047720 006 002 d o 006 001 \r
0047740 \r 006 006 (
0047760 * L o o k t h r u t h e
0050000 p i e c e s f o r o n e w
0050020 h i c h s t a r t s a u s
0050040 e r - f i l l - i n a r e a )
0050060 006 001 \r \r
0050100 ( C O N D \r
0050120 ( ( 006
0050140 002 f e t c h 006 001 C L S E L H E
0050160 R E 006 002 o f 006 001 ( 006 002 f e t
0050200 c h 006 001 P L O O K S 006 002 o f
0050220 006 001 P C ) ) 006 006 ( * F o u n
0050240 d i t , s o r e t u r n )
0050260 006 001 \r
0050300 ( R E T U R N ) )
0050320 ) \r
0050340 ( S E T Q P C ( 006 002 f e
0050360 t c h 006 001 N E X T P I E C E
0050400 006 002 o f 006 001 P C ) ) ) \r
0050420 ( C O N D \r
0050440 ( P C
0050460
*
0050520 006 006 ( * W
0050540 e f o u n d a s t a r t i
0050560 n g p o i n t f o r a \r
0050600 006 001
0050620
*
0050660 006
0050700 006 t y p e - i n f i e l d ) 006
0050720 001 \r
0050740 ( S E T Q C H 1 ( \ E
0050760 D I T E L T P C T B ( I P L
0051000 U S P C N O \ E l t s P e r
0051020 P i e c e ) ) ) \r
0051040
*
0051120 006 006 ( * R e m e m
0051140 b e r t h e s t a r t i n g
0051160 c h a r a c t e r \r 006 001
0051200
*
0051260 006 006 n u m
0051300 b e r ) 006 001 \r
0051320 ( S E T Q P C
0051340 ( 006 002 f e t c h 006 001 N E X T
0051360 P I E C E 006 002 o f 006 001 P C )
0051400 ) \r
0051420 ( 006 002 f o r 006 001 006 002 o l
0051440 d 006 001 P C N O 006 002 f r o m 006
0051460 001 ( I P L U S P C N O \ E
0051500 l t s P e r P i e c e ) 006 002 b
0051520 y 006 001 \ E l t s P e r P i e c
0051540 e 006 002 w h i l e 006 001 P C \r
0051560
0051600 006 002 d o 006 001 ( C O N D \r
0051620
0051640 ( ( 006 002 f e
0051660 t c h 006 001 C L P R O T E C T E
0051700 D 006 002 o f 006 001 ( 006 002 f e t c
0051720 h 006 001 P L O O K S 006 002 o f 006
0051740 001 P C ) ) \r
0051760
0052000 ( R E T U R N ) ) ) \r
0052020
0052040 ( S E T Q P C ( 006 002
0052060 f e t c h 006 001 N E X T P I E C
0052100 E 006 002 o f 006 001 P C ) ) ) \r
0052120
0052140 ( S E T Q L E N ( I D I F F
0052160 E R E N C E ( \ E D I T E L T
0052200 P C T B P C N O ) \r
0052220
0052240 C H
0052260 1 ) ) \r
0052300 ( 006 002 r e p l a c e 006
0052320 001 C H # 006 002 o f 006 001 S C R
0052340 A T C H S E L 006 002 w i t h 006 001
0052360 C H 1 ) \r
0052400 ( 006 002 r e p l a c
0052420 e 006 001 C H L I M 006 002 o f 006 001
0052440 S C R A T C H S E L 006 002 w i
0052460 t h 006 001 ( I P L U S C H 1
0052500 ( I M A X 0 L E N ) ) ) \r
0052520
0052540 ( 006 002 r e p l a c e 006 001 D C H
0052560 006 002 o f 006 001 S C R A T C H S
0052600 E L 006 002 w i t h 006 001 L E N )
0052620 \r
0052640 ( 006 002 r e p l a c e 006 001 S
0052660 E L O B J 006 002 o f 006 001 S C R
0052700 A T C H S E L 006 002 w i t h 006 001
0052720 N I L ) \r
0052740 ( 006 002 r e p l a c
0052760 e 006 001 P O I N T 006 002 o f 006 001
0053000 S C R A T C H S E L 006 002 w i
0053020 t h 006 001 ' L E F T ) \r
0053040 \r
0053060 006 006 ( * S o i f i t ' s
0053100 u s e d , i t ' l l b e
0053120 i n t h e c o r r e c t s
0053140 p o t . ) 006 001 \r \r
0053160 ( 006 002 r e p
0053200 l a c e 006 001 S E L K I N D 006
0053220 002 o f 006 001 S C R A T C H S E L
0053240 006 002 w i t h 006 001 ' C H A R )
0053260 ) \r (
0053300 T
0053320
0053340 006
0053360 006 ( * N o f i l l - i n b
0053400 l a n k f o u n d , s o r
0053420 e t u r n \r 006 001
0053440
*
0053520 006 006 a n i n d i c
0053540 a t i o n . ) 006 001 \r
0053560 ( R E T U R
0053600 N N I L ) ) ) \r
0053620 ( C O N D \r
0053640 ( ( N O T D O N '
0053660 T F I X ) \r
0053700 ( \ F I X S E L S C R
0053720 A T C H S E L T E X T O B J )
0053740 ) ) \r ( R E
0053760 T U R N S C R A T C H S E L ]
0054000 ) \r \r ( 006 004 M B U T T O N . I N
0054020 I T 006 001 \r [ L A M B D A N
0054040 I L 006 006 006 001
0054060
*
0054120 006 006 ( * j d s "
0054140 1 2 - F e b - 8 5 1 4 : 3 2 "
0054160 ) 006 001 \r ( S E T Q M B
0054200 U T T O N I M A G E F N S ( I
0054220 M A G E F N S C R E A T E ( F
0054240 U N C T I O N M B . D I S P L
0054260 A Y ) \r
0054300
0054320 ( F U N C T I O N M
0054340 B . S I Z E F N ) \r
0054360
0054400 ( F U N C
0054420 T I O N M B . P U T F N ) \r
0054440
*
0054500 ( F U N C T I O N M B . G E T
0054520 F N ) \r
0054540
0054560 ' M B . C O P Y F N \r
0054600
*
0054640 ( F U N C T I O N M B . B U
0054660 T T O N E V E N T I N F N ) \r
0054700
*
0054740 ' N I L L \r
0054760
0055000 ' N I L L \r
0055020
0055040 ' N
0055060 I L L \r
0055100
0055120 ' N I L L \r
0055140
0055160 ' N I L
0055200 L \r
0055220
0055240 ( F U N C T I O N M B .
0055260 W H E N O P E R A T E D F N ) \r
0055300
*
0055340 ' N I L \r
0055360
0055400 ' T E d i t M e n
0055420 u B u t t o n ] ) \r \r ( 006 004 M B
0055440 U T T O N . N E X T . F I E L D
0055460 . A S . N U M B E R 006 001 \r [
0055500 L A M B D A ( T E X T O B J
0055520 C H # ) 006 006 006 001
0055540
0055560 006 006
0055600 ( * j d s " 5 - A u g - 8
0055620 5 1 7 : 4 4 " ) 006 001 \r
0055640 ( 006 002 M B U T T O N . F I N D .
0055660 N E X T . F I E L D 006 001 T E X
0055700 T O B J C H # T ) \r
0055720 ( N U M B E R P ( M K A T O M
0055740 ( T E D I T . S E L . A S . S
0055760 T R I N G ( 006 002 f e t c h 006 001
0056000 S T R E A M H I N T 006 002 o f
0056020 006 001 T E X T O B J ) \r
0056040
0056060 ( 006 002 f e t c h
0056100 006 001 S C R A T C H S E L 006 002
0056120 o f 006 001 T E X T O B J ] ) \r \r
0056140 ( 006 004 M B U T T O N . N E X T .
0056160 F I E L D . A S . T E X T 006 001 \r
0056200 [ L A M B D A ( T E X T O
0056220 B J C H # ) 006 006 006 001
0056240
*
0056300 006 006 ( * j d s " 5 - A u
0056320 g - 8 5 1 7 : 4 5 " ) 006 001 \r
0056340 \r
0056360 006 006 ( * * F i n d
0056400 t h e n e x t f i l l - i n
0056420 f i e l d i n t h e m e
0056440 n u a f t e r C H # , a n
0056460 d r e t u r n i t s c o n
0056500 t e n t s \r 006 001
0056520 006 006 a s a s t r i n g
0056540 . ) 006 001 \r \r ( 006 002 M B U
0056560 T T O N . F I N D . N E X T . F
0056600 I E L D 006 001 T E X T O B J C
0056620 H # T ) \r ( T E D I T
0056640 . S E L . A S . S T R I N G (
0056660 006 002 f e t c h 006 001 S T R E A M
0056700 H I N T 006 002 o f 006 001 T E X T
0056720 O B J ) \r
0056740 ( 006 002 f e t c h 006 001 S C R A T
0056760 C H S E L 006 002 o f 006 001 T E X
0057000 T O B J ] ) \r \r ( 006 004 M B U T T
0057020 O N . N E X T . F I E L D . A S
0057040 . A T O M 006 001 \r [ L A M B D
0057060 A ( T E X T O B J C H # ) 006
0057100 006 006 001
0057120
0057140 006 006 ( * j d
0057160 s " 5 - A u g - 8 5 1 7 :
0057200 4 4 " ) 006 001 \r
0057220 \r 006 006 ( *
0057240 F i n d t h e n e x t f
0057260 i l l - i n f i e l d , a n
0057300 d r e t u r n i t s c o n
0057320 t e n t s a s a n a t o m
0057340 . \r 006 001 006 006
0057360 I f t h e f i e l d i s
0057400 e m p t y , r e t u r n N I
0057420 L . ) 006 001 \r \r ( 006 002 M B
0057440 U T T O N . F I N D . N E X T .
0057460 F I E L D 006 001 T E X T O B J
0057500 C H # T )
0057520 006 006 ( * M o v
0057540 e t o t h e n e x t f i
0057560 l l - i n b l a n k . ) 006 001 \r
0057600 ( P R O G [ ( S T R
0057620 ( T E D I T . S E L . A S . S T
0057640 R I N G ( 006 002 f e t c h 006 001
0057660 S T R E A M H I N T 006 002 o f 006
0057700 001 T E X T O B J ) \r
0057720
0057740 ( 006 002 f e t c h 006 001 S C R
0057760 A T C H S E L 006 002 o f 006 001 T
0060000 E X T O B J ] \r
0060020 ( C O N D \r
0060040 ( ( Z E R O P ( N C
0060060 H A R S S T R ) )
0060100
0060120 006 006 ( * T h e f i
0060140 e l d i s e m p t y . ) 006 001
0060160 \r (
0060200 R E T U R N N I L ) ) \r
0060220 ( T
0060240
*
0060300 006 006 ( * I
0060320 t ' s n o n - e m p t y . C
0060340 o n v e r t t h e s t r i n
0060360 g \r 006 001
0060400
*
0060460 006 006 t o a n a t o m . )
0060500 006 001 \r
0060520 ( R E T U R N ( M K A T
0060540 O M S T R ] ) \r \r ( 006 004 M B U
0060560 T T O N . S E T . F I E L D 006 001
0060600 \r [ L A M B D A ( T E X T
0060620 S T R E A M F I E L D V A L
0060640 U E ) 006 006 006 001
0060660
0060700 006 006 ( * g b n " 2 7 - S
0060720 e p - 8 4 0 2 : 0 3 " ) 006 001 \r
0060740 \r
0060760 006 006 ( * M a k e s
0061000 t h e c o n t e n t s o f
0061020 t h e f i e l d w i t h n
0061040 a m e F I E L D b e V A L
0061060 U E . ) 006 001 \r \r ( P R O
0061100 G ( ( T E X T O B J ( T E X
0061120 T O B J T E X T S T R E A M )
0061140 ) \r P C T
0061160 B O B J S A V E D . S E L
0061200 F I E L D . S E L P C N O ) \r
0061220 ( S E T Q
0061240 P C T B ( 006 002 f e t c h 006 001
0061260 P C T B 006 002 o f 006 001 T E X T
0061300 O B J ) ) \r
0061320 ( S E T Q P C N O ( 006 002 M B
0061340 U T T O N . F I N D . B U T T O
0061360 N 006 001 F I E L D T E X T S T
0061400 R E A M ) ) \r
0061420 ( C O N D \r
0061440 ( P C N O ( S E T Q
0061460 F I E L D . S E L ( 006 002 M B U
0061500 T T O N . F I N D . N E X T . F
0061520 I E L D 006 001 T E X T O B J (
0061540 \ E D I T E L T P C T B P C
0061560 N O ) ) ) \r
0061600
*
0061660 006 006 ( * s e l e c t t
0061700 h e f i e l d f o l l o w i
0061720 n g t h i s \r 006 001
0061740
*
0062020 006 006 b u t t o n
0062040 . ) 006 001 \r
0062060 ( C O N D \r
0062100
0062120 ( F I E L D . S E L
0062140
0062160 006 006 ( *
0062200 t h e r e a r e c o n t e n
0062220 t s t o s e t f o r t h
0062240 i s \r 006 001
0062260
*
0062340 006 006 b u t t o n ) 006 001 \r
0062360
0062400 ( \ F I
0062420 X S E L F I E L D . S E L T
0062440 E X T O B J ) \r
0062460
0062500 ( T E D I T . S E T S
0062520 E L T E X T S T R E A M ( 006
0062540 002 f e t c h 006 001 C H # 006 002 o
0062560 f 006 001 F I E L D . S E L ) \r
0062600
*
0062640 ( 006 002 f e t c h 006 001 D C
0062660 H 006 002 o f 006 001 F I E L D . S
0062700 E L ) \r
0062720
0062740 ( 006 002 f e t c h
0062760 006 001 P O I N T 006 002 o f 006 001
0063000 F I E L D . S E L ) \r
0063020
0063040 T
0063060 ) \r
0063100 (
0063120 T E D I T . I N S E R T T E X
0063140 T S T R E A M ( M K S T R I N
0063160 G V A L U E ] ) \r \r ( 006 004 M B
0063200 U T T O N . S E T . N E X T . F
0063220 I E L D 006 001 \r [ L A M B D A
0063240 ( T E X T O B J C H # N E
0063260 W V A L U E D O N T U P D A T
0063300 E S C R E E N ) 006 006 006 001
0063320 006 006 ( * j d s
0063340 " 2 1 - M a y - 8 5 1 4 : 0
0063360 4 " ) 006 001 \r
0063400 \r 006 006 ( *
0063420 S E T t h e t e x t c o n
0063440 t e n t o f t h e n e x t
0063460 f i l l - i n f i e l d i
0063500 n t h i s d o c u m e n t
0063520 t o b e \r 006 001
0063540 006 006 N E W V A L U E ) 006 001
0063560 \r \r ( P R O G ( ( S C
0063600 R A T C H S E L ( 006 002 f e t c
0063620 h 006 001 S C R A T C H S E L 006
0063640 002 o f 006 001 T E X T O B J ) ) )
0063660 \r ( 006 002 M B
0063700 U T T O N . F I N D . N E X T .
0063720 F I E L D 006 001 T E X T O B J
0063740 C H # )
0063760 006 006 ( * F i n d t h e
0064000 n e x t m e n u f i l l - i
0064020 n f i e l d ) 006 001 \r
0064040 ( \ F I X S E L S C
0064060 R A T C H S E L T E X T O B J
0064100 ) \r \r
0064120 006 006 ( * F i x
0064140 u p t h e S E L E C T I O N
0064160 t h a t d e s c r i b e s
0064200 i t s c o n t e n t s , s o
0064220 w e ' v e g o t t h e r
0064240 i g h t \r 006 001
0064260 006 006 s c r e e n c o o r d
0064300 i n a t e s & c ) 006 001 \r \r
0064320 ( O R ( Z E R
0064340 O P ( 006 002 f e t c h 006 001 D C
0064360 H 006 002 o f 006 001 S C R A T C H
0064400 S E L ) ) \r
0064420 ( \ T E D I T . D E L E
0064440 T E S C R A T C H S E L T E
0064460 X T O B J T ) ) \r
0064500 \r 006
0064520 006 ( * I f t h e r e i s
0064540 t e x t i n t h a t f i l
0064560 l - i n , d e l e t e i t
0064600 t o m a k e r o o m f o r
0064620 o u r s ) 006 001 \r \r
0064640 ( C O N D \r
0064660 ( N E W V A L U E
0064700
*
0064740 006 006 ( * O n l y
0064760 i n s e r t s o m e t h i n
0065000 g i f t h e r e I S \r 006
0065020 001
0065040
*
0065100 006 006
0065120 s o m e t h i n g t o i n s
0065140 e r t . ) 006 001 \r
0065160 ( T E D
0065200 I T . \ I N S E R T ( M K S T
0065220 R I N G N E W V A L U E ) \r
0065240
0065260 S C R A T C
0065300 H S E L T E X T O B J ) ) )
0065320 006 006 ( *
0065340 T h e n f i l l i t w i
0065360 t h o u t n e w v a l u e
0065400 . ) 006 001 \r ] ) \r \r (
0065420 006 004 M B U T T O N . S E T . N E
0065440 X T . B U T T O N . S T A T E 006
0065460 001 \r [ L A M B D A ( T E X
0065500 T O B J S T A R T I N G C H
0065520 N E W S T A T E ) 006 006 006 001
0065540
0065560 006 006 ( * j d s " 3 1 -
0065600 J u l - 8 5 2 2 : 0 9 " ) 006 001
0065620 \r \r
0065640 006 006 ( * * F i n
0065660 d t h e n e x t m e n u
0065700 b u t t o n i n t h e d o
0065720 c u m e n t , a n d s e t
0065740 i t s s t a t e t o N E W
0065760 S T A T E . \r 006 001
0066000 006 006 R e t u r n 1 +
0066020 t h e C H # o f t h e b
0066040 u t t o n , f o r f u r t h
0066060 e r s e a r c h e r s ) 006 001 \r
0066100 \r ( P R O G * ( ( N E
0066120 X T B ( 006 002 M B U T T O N . F
0066140 I N D . N E X T . B U T T O N 006
0066160 001 T E X T O B J S T A R T I
0066200 N G C H ) ) \r
0066220 ( B U T T O N ( C A R
0066240 N E X T B ) ) ) \r
0066260 ( I M A G E O B J P R O
0066300 P B U T T O N ' S T A T E
0066320 N E W S T A T E ) \r
0066340 ( R E T U R N ( A D
0066360 D 1 ( C D R N E X T B ] ) \r
0066400 \r ( 006 004 T E D I T M E N U . S T
0066420 R E A M 006 001 \r [ L A M B D A
0066440 ( T E X T S T R E A M ) 006 006 006
0066460 001
0066500
0066520 006 006 ( * j d s
0066540 " 1 3 - A u g - 8 4 1 4 : 1
0066560 0 " ) 006 001 \r
0066600 \r 006 006 ( *
0066620 r e t u r n s t h e t e x t
0066640 s t r e a m o f t h e t e
0066660 d i t m e n u a t t a c h e d
0066700 t o t h i s s t r e a m
0066720 i f a n y ) 006 001 \r \r (
0066740 P R O G ( M E N U W ( M A I
0066760 N W I N D O W ( \ T E D I T .
0067000 M A I N W T E X T S T R E A M
0067020 ) ) ) \r [ S
0067040 E T Q M E N U W ( 006 002 f o r
0067060 006 001 W 006 002 i n 006 001 ( A T T
0067100 A C H E D W I N D O W S M A I
0067120 N W I N D O W ) \r
0067140
0067160 006 002 t h e r e i s 006 001 ( A
0067200 N D ( W I N D O W P R O P W
0067220 ' T E D I T M E N U ) \r
0067240
*
0067300 ( E Q U A L ( W I N D O
0067320 W P R O P W ' T I T L E ) \r
0067340
*
0067400 " T E
0067420 d i t M e n u " ] \r
0067440 ( R E T U R N ( C O
0067460 N D \r
0067500 ( M E N U W (
0067520 T E X T S T R E A M M E N U W
0067540 ] ) \r \r ( 006 004 \ T E D I T M E N
0067560 U . S E L S C R E E N E R 006 001 \r
0067600 [ L A M B D A ( T E X T O
0067620 B J S E L S E L E C T M O D
0067640 E F I N A L ? ) 006 006 006 001
0067660
0067700 006 006 ( * j d s " 2 1 - M a
0067720 y - 8 4 1 6 : 5 2 " ) 006 001 \r
0067740 \r
0067760 006 006 ( * C a l l e d
0070000 t o s c r e e n p o t e n t
0070020 i a l s e l e c t i o n s i
0070040 n t h e T E d i t m e n u
0070060 w i n d o w ; \r 006 001
0070100 006 006 i f a n e d i
0070120 t o p i s i n p r o g r
0070140 e s s , n o s e l e c t i o
0070160 n w i l l b e p e r m i t
0070200 t e d . - ) 006 001 \r \r ( P
0070220 R O G ( ( M A I N W ( W I N
0070240 D O W P R O P ( 006 002 f e t c h
0070260 006 001 \ W I N D O W 006 002 o f 006
0070300 001 T E X T O B J ) \r
0070320
0070340 ' M A I N W I N D O W )
0070360 ) \r M A I
0070400 N T E X T ) \r
0070420 ( S E T Q M A I N T E X T
0070440 ( W I N D O W P R O P M A I N
0070460 W ' T E X T O B J ) ) \r
0070500 ( C O N D \r
0070520 ( ( A N D
0070540 ( E Q ( 006 002 f e t c h 006 001 C
0070560 H # 006 002 o f 006 001 S E L ) \r
0070600
0070620 ( 006 002 f e t c h 006 001
0070640 C H # 006 002 o f 006 001 T E D I
0070660 T . S C R A T C H S E L E C T I
0070700 O N ) ) \r
0070720 ( E Q ( 006 002 f
0070740 e t c h 006 001 D C H 006 002 o f 006
0070760 001 S E L ) \r
0071000 ( 006
0071020 002 f e t c h 006 001 D C H 006 002 o
0071040 f 006 001 T E D I T . S C R A T C
0071060 H S E L E C T I O N ) ) \r
0071100
0071120 ( 006 002 f e t c h 006 001 E D I T O
0071140 P A C T I V E 006 002 o f 006 001 M
0071160 A I N T E X T ) ) \r
0071200 ( \ C O P Y S E
0071220 L S E L T E D I T . S C R A
0071240 T C H S E L E C T I O N ) \r
0071260 ( R E T
0071300 U R N ' D O N ' T ) ) \r
0071320 ( ( E Q (
0071340 006 002 f e t c h 006 001 E D I T O P
0071360 A C T I V E 006 002 o f 006 001 M A
0071400 I N T E X T ) \r
0071420 T ) \r
0071440 ( T E D I
0071460 T . P R O M P T P R I N T T E
0071500 X T O B J " E d i t o p e r
0071520 a t i o n i n p r o g r e s
0071540 s ; p l e a s e w a i t . "
0071560 T ) \r
0071600 ( R E T U R N ' D O N ' T
0071620 ) ) \r
0071640 ( ( 006 002 f e t c h 006 001 E D I T
0071660 O P A C T I V E 006 002 o f 006 001
0071700 M A I N T E X T ) \r
0071720 ( T E D I T . P
0071740 R O M P T P R I N T T E X T O
0071760 B J ( C O N C A T ( 006 002 f e
0072000 t c h 006 001 E D I T O P A C T I
0072020 V E 006 002 o f 006 001 M A I N T E
0072040 X T ) \r
0072060
*
0072120 " i n p r o g r e s
0072140 s ; p l e a s e w a i t . "
0072160 ) \r
0072200 T ) \r
0072220 ( \ C O P Y S E
0072240 L S E L T E D I T . S C R A
0072260 T C H S E L E C T I O N ) \r
0072300 ( R E T
0072320 U R N ' D O N ' T ] ) \r ) \r (
0072340 D E C L A R E % : D O E V A L
0072360 @ C O M P I L E D O N T C O P
0072400 Y \r \r ( G L O B A L V A R S M
0072420 B U T T O N I M A G E F N S ) \r
0072440 ) \r ( D E C L A R E % : D O N
0072460 T E V A L @ L O A D D O C O P
0072500 Y \r ( M B U T T O N . I N I T
0072520 ) \r \r \r ( A D D T O V A R 006 002
0072540 I M A G E O B J T Y P E S 006 001
0072560 ( T E d i t M e n u B u t t o n
0072600 F I L E T E D I T M E N U
0072620 G E T F N M B . G E T F N ) )
0072640 \r ) \r \r \r \r 006 004 ( * ; " T h
0072660 r e e - s t a t e ( O N - O F
0072700 F - N E U T R A L ) m e n u
0072720 b u t t o n s , f o r , e .
0072740 g . , c h a r a c t e r p r
0072760 o p e r t i e s l i k e B O
0073000 L D " ) 006 001 \r \r ( D E F I N E Q
0073020 \r \r ( 006 004 M B . C R E A T E . T
0073040 H R E E S T A T E B U T T O N 006
0073060 001 \r [ L A M B D A ( T E X
0073100 T F O N T S T A T E C H A N
0073120 G E F N I N I T S T A T E ) 006
0073140 006 006 001
0073160 006 006 ( * j d s " 2 4 -
0073200 S e p - 8 6 0 0 : 4 9 " ) 006 001
0073220 \r ( P R O G ( ( O B J
0073240 ( I M A G E O B J C R E A T E
0073260 N I L T H R E E S T A T E I
0073300 M A G E F N S ) ) \r
0073320 ( B O X ( 006 002 c r e
0073340 a t e 006 001 I M A G E B O X \r
0073360
0073400 X S I Z E _ ( S
0073420 T R I N G W I D T H T E X T
0073440 F O N T ) \r
0073460 Y S I
0073500 Z E _ ( F O N T P R O P F
0073520 O N T ' H E I G H T ) \r
0073540
0073560 Y D E S C _ ( F O N
0073600 T P R O P F O N T ' D E S C
0073620 E N T ) \r
0073640 X K E R
0073660 N _ 0 ) ) \r
0073700 D S B I T M A P X Y
0073720 ) \r ( S E T
0073740 Q X ( 006 002 f e t c h 006 001 X
0073760 S I Z E 006 002 o f 006 001 B O X )
0074000 ) \r ( S E T
0074020 Q Y ( 006 002 f e t c h 006 001 Y
0074040 S I Z E 006 002 o f 006 001 B O X )
0074060 ) \r ( I M A
0074100 G E O B J P R O P O B J ' M
0074120 B T E X T T E X T ) \r
0074140 ( I M A G E O B J P
0074160 R O P O B J ' M B F O N T
0074200 F O N T ) \r
0074220 ( I M A G E O B J P R O P O B
0074240 J ' M B F N ' M B . T H R E
0074260 E S T A T E B U T T O N . F N )
0074300 \r ( I M A G
0074320 E O B J P R O P O B J ' S T
0074340 A T E C H A N G E F N S T A T
0074360 E C H A N G E F N ) \r
0074400 ( I M A G E O B J P R
0074420 O P O B J ' S T A T E ( O
0074440 R I N I T S T A T E ' N E U
0074460 T R A L ) ) \r
0074500 ( S E T Q B I T M A P ( B
0074520 I T M A P C R E A T E X Y )
0074540 ) \r ( I M A
0074560 G E O B J P R O P O B J ' B
0074600 I T C A C H E B I T M A P ) \r
0074620 ( S E T Q
0074640 D S ( D S P C R E A T E B I
0074660 T M A P ) ) \r
0074700 ( D S P X O F F S E T 0 D
0074720 S ) \r ( D S
0074740 P Y O F F S E T 0 D S ) \r
0074760 ( D S P F O N
0075000 T F O N T D S ) \r
0075020 ( M O V E T O 0 (
0075040 F O N T P R O P F O N T ' D
0075060 E S C E N T ) \r
0075100 D S ) \r
0075120 ( P R I N 1 ( I
0075140 M A G E O B J P R O P O B J
0075160 ' M B T E X T ) \r
0075200 D S ) \r
0075220 ( R E T U R N
0075240 O B J ] ) \r \r ( 006 004 M B . T H R
0075260 E E S T A T E . D I S P L A Y 006
0075300 001 \r [ L A M B D A ( O B J
0075320 S T R E A M M O D E ) 006 006 006
0075340 001
0075360
0075400 006 006 ( * j d s " 3 0 -
0075420 A u g - 8 4 1 3 : 5 3 " ) 006 001
0075440 \r
0075460
*
0075520 006 006
0075540 ( * D i s p l a y t h e i
0075560 n n a r d s o f a m e n u
0075600 \r 006 001
0075620
*
0075700 006 006 b u t t o n ) 006 001 \r
0075720 ( P R O G ( D S ( O B J B
0075740 O X ( I M A G E O B J P R O P
0075760 O B J ' B O U N D B O X ) )
0076000 \r (
0076020 F O N T ( I M A G E O B J P R
0076040 O P O B J ' M B F O N T ) )
0076060 \r (
0076100 C U R X ( D S P X P O S I T I
0076120 O N N I L S T R E A M ) ) \r
0076140 ( C
0076160 U R Y ( D S P Y P O S I T I O
0076200 N N I L S T R E A M ) ) \r
0076220 B I T
0076240 M A P X Y ) \r
0076260 ( O R O B J B O X ( S
0076300 E T Q O B J B O X ( 006 002 M B
0076320 . S I Z E F N 006 001 O B J S T
0076340 R E A M ) ) ) 006 006 ( * M
0076360 a k e s u r e t h e s i z
0076400 e i s s e t . ) 006 001 \r
0076420 ( S E T Q X (
0076440 006 002 f e t c h 006 001 X S I Z E
0076460 006 002 o f 006 001 O B J B O X ) ) \r
0076500 ( S E T Q
0076520 Y ( 006 002 f e t c h 006 001 Y S I
0076540 Z E 006 002 o f 006 001 O B J B O X
0076560 ) ) \r ( C O
0076600 N D \r
0076620 ( ( S E T Q B I T M A P ( I
0076640 M A G E O B J P R O P O B J
0076660 ' B I T C A C H E ) )
0076700 006 006 ( * T h e i m a g e b
0076720 i t m a p e x i s t s a l r
0076740 e a d y . \r 006 001
0076760
*
0077040 006 006 U s e i t . ) 006
0077060 001 \r
0077100 ) \r (
0077120 T
0077140
0077160 006
0077200 006 ( * N e e d t o c r e a
0077220 t e a n i m a g e f o r
0077240 t h i s \r 006 001
0077260
*
0077340 006 006 o b j e c t . ) 006
0077360 001 \r
0077400 ( S E T Q B I T M A P (
0077420 B I T M A P C R E A T E X Y
0077440 ) ) \r
0077460 ( I M A G E O B J P R O P
0077500 O B J ' B I T C A C H E B
0077520 I T M A P ) \r
0077540 ( S E T Q D S
0077560 ( D S P C R E A T E B I T M A
0077600 P ) ) \r
0077620 ( D S P X O F F S E T
0077640 0 D S ) \r
0077660 ( D S P Y O F F S E
0077700 T 0 D S ) \r
0077720 ( D S P F O N T
0077740 F O N T D S ) \r
0077760 ( M O V E T
0100000 O 0 ( F O N T P R O P F O
0100020 N T ' D E S C E N T ) \r
0100040
0100060 D S ) \r
0100100 ( P R I N 1 (
0100120 I M A G E O B J P R O P O B J
0100140 ' M B T E X T ) \r
0100160
0100200 D S ) ) ) \r
0100220 ( B I T B L T B I T M A P
0100240 0 0 S T R E A M C U R X
0100260 ( I D I F F E R E N C E C U R
0100300 Y ( 006 002 f e t c h 006 001 Y D E
0100320 S C 006 002 o f 006 001 O B J B O X
0100340 ) ) \r
0100360 X Y ' I N P U T '
0100400 P A I N T ) \r
0100420 ( S E L E C T Q ( I M A G E
0100440 O B J P R O P O B J ' S T A
0100460 T E ) \r
0100500 ( O N \r
0100520 \r 006 006 ( *
0100540 T h e b u t t o n i s O
0100560 N . D i s p l a y i t a s
0100600 w h i t e t e x t o n b
0100620 l a c k b a c k g r o u n d )
0100640 006 001 \r \r
0100660 ( B I T B L T N I
0100700 L 0 0 S T R E A M C U R
0100720 X ( I D I F F E R E N C E C
0100740 U R Y ( 006 002 f e t c h 006 001 Y
0100760 D E S C 006 002 o f 006 001 O B J B
0101000 O X ) ) \r
0101020 X
0101040 Y ' T E X T U R E ' I N V E
0101060 R T B L A C K S H A D E ) ) \r
0101100 ( O
0101120 F F \r \r
0101140 006 006 ( * T h
0101160 e b u t t o n i s O F F .
0101200 M a r k i t w i t h a
0101220 d i a g o n a l l i n e t h
0101240 r u i t . ) 006 001 \r \r
0101260 ( D
0101300 R A W L I N E C U R X ( I D
0101320 I F F E R E N C E C U R Y (
0101340 006 002 f e t c h 006 001 Y D E S C
0101360 006 002 o f 006 001 O B J B O X ) ) \r
0101400
0101420 ( S U B 1
0101440 ( I P L U S C U R X X ) ) \r
0101460
0101500 ( S U B 1
0101520 ( I P L U S ( I D I F F E R E
0101540 N C E C U R Y ( 006 002 f e t c
0101560 h 006 001 Y D E S C 006 002 o f 006 001
0101600 O B J B O X ) ) \r
0101620
*
0101660 Y ) ) \r
0101700 1
0101720 \r
0101740 ' P A I N
0101760 T S T R E A M ) ) \r
0102000 ( N E U T R A
0102020 L
0102040
0102060 006 006 ( * T h e
0102100 b u t t o n i s n e u t r
0102120 a l . \r 006 001
0102140
*
0102220 006 006 J u s t d i s p l a
0102240 y i t r e g u l a r . ) 006 001
0102260 ) \r
0102300 N I L ] ) \r \r ( 006 004 M B . T H R
0102320 E E S T A T E . S H O W S E L F
0102340 N 006 001 \r [ L A M B D A ( O
0102360 B J S E L O N D S ) 006 006 006
0102400 001
0102420
0102440 006 006 ( * j d s " 3
0102460 0 - A u g - 8 4 1 3 : 5 4 " )
0102500 006 001 \r ( P R O G [ ( I
0102520 M A G E B O X ( O R ( I M A
0102540 G E O B J P R O P O B J ' B
0102560 O U N D B O X ) \r
0102600
0102620 ( I M A G E B O X O B J
0102640 D S ] \r ( C
0102660 O N D \r
0102700 ( 006 002 O N 006 001 ( S E L E C T
0102720 Q ( I M A G E O B J P R O P
0102740 O B J ' S T A T E ) \r
0102760
0103000 ( O N
0103020
0103040 006 006 ( * S w
0103060 i t c h f r o m O N t o
0103100 N E U T R A L ) 006 001 \r
0103120
0103140 ( B I T B L T N I L
0103160 0 0 D S 0 0 ( 006 002 f e
0103200 t c h 006 001 X S I Z E 006 002 o f
0103220 006 001 I M A G E B O X ) \r
0103240
0103260 ( 006 002
0103300 f e t c h 006 001 Y S I Z E 006 002
0103320 o f 006 001 I M A G E B O X ) \r
0103340
0103360 '
0103400 T E X T U R E \r
0103420
0103440 ' I N V E R T
0103460 B L A C K S H A D E ) ) \r
0103500
0103520 ( O F F
0103540
0103560 006 006 ( * S
0103600 w i t c h f r o m O F F t
0103620 o O N ) 006 001 \r
0103640
0103660 ( B I T B L T ( I M A G E
0103700 O B J P R O P O B J ' B I T
0103720 C A C H E ) \r
0103740
0103760 0 0 D S 0
0104000 0 ( 006 002 f e t c h 006 001 X S
0104020 I Z E 006 002 o f 006 001 I M A G E
0104040 B O X ) \r
0104060
0104100 ( 006 002 f e t c h 006 001
0104120 Y S I Z E 006 002 o f 006 001 I M
0104140 A G E B O X ) \r
0104160
0104200 ' I N P U T \r
0104220
*
0104260 ' R E P L A C E ) \r
0104300
0104320 ( B I T B L T N I L
0104340 0 0 D S 0 0 ( 006 002 f
0104360 e t c h 006 001 X S I Z E 006 002 o
0104400 f 006 001 I M A G E B O X ) \r
0104420
0104440 (
0104460 006 002 f e t c h 006 001 Y S I Z E
0104500 006 002 o f 006 001 I M A G E B O X )
0104520 \r
0104540
0104560 ' T E X T U R E \r
0104600
0104620 ' I N V
0104640 E R T B L A C K S H A D E ) )
0104660 \r
0104700 ( N E U T R A L
0104720
0104740 006 006
0104760 ( * S w i t c h f r o m N
0105000 E U T R A L t o O F F ) 006 001
0105020 \r
0105040 (
0105060 D R A W L I N E 0 0 ( S U
0105100 B 1 ( 006 002 f e t c h 006 001 X S
0105120 I Z E 006 002 o f 006 001 I M A G E
0105140 B O X ) ) \r
0105160
0105200 ( S U B 1
0105220 ( 006 002 f e t c h 006 001 Y S I Z
0105240 E 006 002 o f 006 001 I M A G E B O
0105260 X ) ) \r
0105300
0105320 1 \r
0105340
*
0105400 ' P A I N T D S ) ) \r
0105420
0105440 N I L ) ) \r
0105460 ( ( 006 002 f e t c h 006 001
0105500 S E T 006 002 o f 006 001 S E L ) \r
0105520 ( S
0105540 E L E C T Q ( I M A G E O B J
0105560 P R O P O B J ' S T A T E )
0105600 \r
0105620 ( O N
0105640
0105660 006 006
0105700 ( * S w i t c h f r o m N
0105720 E U T R A L t o O N ) 006 001 \r
0105740
0105760 ( B I T B L T N I
0106000 L 0 0 D S 0 0 ( 006 002
0106020 f e t c h 006 001 X S I Z E 006 002
0106040 o f 006 001 I M A G E B O X ) \r
0106060
0106100 ( 006 002 f
0106120 e t c h 006 001 Y S I Z E 006 002 o
0106140 f 006 001 I M A G E B O X ) \r
0106160
0106200 ' T E X T
0106220 U R E \r
0106240
0106260 ' I N V E R T B L A C K S H
0106300 A D E ) ) \r
0106320 ( O F F
0106340
*
0106400 006 006 ( * S w i t c h f
0106420 r o m O N t o O F F ) 006 001
0106440 \r
0106460 ( B I T B L T
0106500 N I L 0 0 D S 0 0 (
0106520 006 002 f e t c h 006 001 X S I Z E
0106540 006 002 o f 006 001 I M A G E B O X )
0106560 \r
0106600 (
0106620 006 002 f e t c h 006 001 Y S I Z E
0106640 006 002 o f 006 001 I M A G E B O X )
0106660 \r
0106700 '
0106720 T E X T U R E \r
0106740
0106760 ' I N V E R T B L
0107000 A C K S H A D E ) \r
0107020
0107040 ( D R A W L I N E 0 0 (
0107060 S U B 1 ( 006 002 f e t c h 006 001
0107100 X S I Z E 006 002 o f 006 001 I M A
0107120 G E B O X ) ) \r
0107140
0107160 ( S U B 1 ( 006 002 f
0107200 e t c h 006 001 Y S I Z E 006 002 o
0107220 f 006 001 I M A G E B O X ) ) \r
0107240
0107260 1 \r
0107300
0107320 ' P A
0107340 I N T D S ) ) \r
0107360 ( N E U T
0107400 R A L
0107420
0107440 006 006 ( * S w i t c
0107460 h f r o m O F F t o N E
0107500 U T R A L ) 006 001 \r
0107520
0107540 ( B I T B L T ( I M A
0107560 G E O B J P R O P O B J ' B
0107600 I T C A C H E ) \r
0107620
0107640 0 0 D
0107660 S 0 0 ( 006 002 f e t c h 006 001
0107700 X S I Z E 006 002 o f 006 001 I M
0107720 A G E B O X ) \r
0107740
0107760 ( 006 002 f e t
0110000 c h 006 001 Y S I Z E 006 002 o f 006
0110020 001 I M A G E B O X ) \r
0110040
0110060 ' I
0110100 N P U T \r
0110120
0110140 ' R E P L A C E )
0110160 ) \r
0110200 N I L ] ) \r \r ( 006 004 M B
0110220 . T H R E E S T A T E . W H E N
0110240 O P E R A T E D F N 006 001 \r [
0110260 L A M B D A ( O B J D S O
0110300 P E R A T I O N S E L ) 006 006 006
0110320 001
0110340 006 006
0110360 ( * j d s " 1 1 - A p r - 8
0110400 4 1 1 : 2 9 " ) 006 001 \r
0110420
*
0110500 006 006 ( * H a
0110520 n d l e o p e r a t i o n s
0110540 o n a t h r e e - s t a t e
0110560 \r 006 001
0110600
*
0110660 006 006 b u t t o n ) 006 001 \r
0110700 ( S E L E C T Q O P E R A T
0110720 I O N \r ( H I G
0110740 H L I G H T E D
0110760
*
0111020 006 006 ( * I t i s b e i n
0111040 g h i l i g h t e d ) 006 001 \r
0111060
0111100 ( 006 002 M B . T H R E E S
0111120 T A T E . S H O W S E L F N 006 001
0111140 O B J S E L T D S ) ) \r
0111160 ( U N H I G H L
0111200 I G H T E D
0111220
0111240 006 006 (
0111260 * A n d b e i n g d e - h
0111300 i l i g h t e d ) 006 001 \r
0111320
0111340 ( 006 002 M B . T H R E E S T
0111360 A T E . S H O W S E L F N 006 001
0111400 O B J S E L N I L D S ) )
0111420 \r ( S E L E C T
0111440 E D
0111460
0111500 006 006
0111520 ( * I t ' s b e i n g s e
0111540 l e c t e d ) 006 001 \r
0111560 ( 006 002 M
0111600 B . T H R E E S T A T E B U T T
0111620 O N . F N 006 001 O B J S E L
0111640 D S ) 006 006 ( *
0111660 R u n t h e s t a t e - c h
0111700 a n g i n g f u n c t i o n )
0111720 006 001 \r
0111740 ( 006 002 r e p l a c e 006
0111760 001 S E T 006 002 o f 006 001 S E L
0112000 006 002 w i t h 006 001 N I L ) \r
0112020 \r
0112040 006 006 ( * A n d m a r
0112060 t h e s e l e c t i o n t
0112100 u r n e d o f f , s o o t
0112120 h e r s c a n u s e i t
0112140 w i t h o u t t r a s h i n g
0112160 u s ) 006 001 \r \r
0112200 ( 006 002 r e p
0112220 l a c e 006 001 O N F L G 006 002 o
0112240 f 006 001 S E L 006 002 w i t h 006 001
0112260 N I L ) \r
0112300 ( 006 002 r e p l a
0112320 c e 006 001 S E T 006 002 o f 006 001
0112340 T E D I T . S E L E C T I O N
0112360 006 002 w i t h 006 001 N I L ) ) \r
0112400 ( D E S E L E C T
0112420 E D ) \r N I L ]
0112440 ) \r \r ( 006 004 M B . T H R E E S T
0112460 A T E B U T T O N . F N 006 001 \r
0112500 [ L A M B D A ( O B J S E
0112520 L W ) 006 006 006 001
0112540
*
0112600 006 006 ( * g b n " 2 5 - S e p
0112620 - 8 4 0 0 : 4 7 " ) 006 001 \r
0112640
*
0112720 006 006 ( *
0112740 M B F N f o r T E d i t d
0112760 e f a u l t m e n u i t e m
0113000 \r 006 001
0113020
*
0113100 006 006 b u t t o n s . ) 006 001 \r
0113120 ( P R O G ( ( T E X T O
0113140 B J ( 006 002 f e t c h 006 001 \ T
0113160 E X T O B J 006 002 o f 006 001 S E
0113200 L ) ) \r (
0113220 S T A T E C H A N G E F N ( I
0113240 M A G E O B J P R O P O B J
0113260 ' S T A T E C H A N G E F N ) )
0113300 \r O F I L
0113320 E C H N E W S T A T E ) \r
0113340 ( S E T Q N
0113360 E W S T A T E ( S E L E C T Q
0113400 ( I M A G E O B J P R O P O
0113420 B J ' S T A T E ) \r
0113440
0113460 ( O F F ' O N
0113500 ) \r
0113520 (
0113540 O N ' N E U T R A L ) \r
0113560
0113600 ( N E U T R
0113620 A L ' O F F ) \r
0113640
0113660 ' O N ) ) \r
0113700 ( 006 002 i f 006 001 S T
0113720 A T E C H A N G E F N \r
0113740 006 002 t h e n
0113760 006 001 \r \r
0114000 006 006 ( * a p
0114020 p l y t h e u s e r s u p
0114040 p l i e d s t a t e c h a n
0114060 g e f n i f s h e s u p
0114100 p l i e d o n e ) 006 001 \r \r
0114120
0114140 ( A P P L Y * S T A T E C H
0114160 A N G E F N O B J N E W S T
0114200 A T E ( T E X T S T R E A M
0114220 T E X T O B J ) ) ) \r
0114240 ( I M A G E O B J P R
0114260 O P O B J ' S T A T E N E
0114300 W S T A T E ) \r
0114320 ( 006 002 r e p l a c e 006 001 O
0114340 N F L G 006 002 o f 006 001 S E L
0114360 006 002 w i t h 006 001 N I L ] ) \r \r
0114400 ( 006 004 T H R E E S T A T E . I N
0114420 I T 006 001 \r [ L A M B D A N
0114440 I L 006 006 006 001
0114460
*
0114520 006 006 ( * j d s "
0114540 9 - F e b - 8 6 1 5 : 1 7 "
0114560 ) 006 001 \r
0114600
*
0114660 006 006 ( * I n i t i a l i z e
0114700 t h e I M A G E F N S f o
0114720 r 3 - s t a t e \r 006 001
0114740
*
0115020 006 006 m e n u
0115040 b u t t o n I M A G E O B J
0115060 s ) 006 001 \r ( S E T Q T
0115100 H R E E S T A T E I M A G E F N
0115120 S ( I M A G E F N S C R E A T
0115140 E ( F U N C T I O N M B . T
0115160 H R E E S T A T E . D I S P L A
0115200 Y ) \r
0115220
0115240 ( F U N C T I O N
0115260 M B . S I Z E F N ) \r
0115300
*
0115340 ( F U N C T I O N M B . P U T
0115360 F N ) \r
0115400
0115420 ( F U N C T I O
0115440 N M B . G E T F N ) \r
0115460
*
0115520 ( F U N C T I O N M B . C O P
0115540 Y F N ) \r
0115560
0115600 ( F U N C T I
0115620 O N M B . B U T T O N E V E N
0115640 T I N F N ) \r
0115660
0115700 ' N I L L
0115720 \r
0115740
0115760 ' N I L L \r
0116000
0116020 '
0116040 N I L L \r
0116060
0116100 ' N I L L \r
0116120
*
0116160 ' N I L L \r
0116200
0116220 ( F U
0116240 N C T I O N M B . T H R E E S
0116260 T A T E . W H E N O P E R A T E
0116300 D F N ) \r
0116320
0116340 ' N I L L \r
0116360
*
0116420 ' 3 S t a t e M e n u B u
0116440 t t o n ] ) \r ) \r ( D E C L A R
0116460 E % : D O N T E V A L @ L O A
0116500 D D O C O P Y \r ( T H R E E
0116520 S T A T E . I N I T ) \r ) \r \r \r
0116540 \r 006 004 ( * ; " O n e - o f -
0116560 N M e n u b u t t o n s e
0116600 t s " ) 006 001 \r \r ( D E F I N E Q
0116620 \r \r ( 006 004 M B . C R E A T E . N
0116640 W A Y B U T T O N 006 001 \r [ L
0116660 A M B D A ( B U T T O N S F
0116700 O N T C H A N G E S T A T E F
0116720 N I N I T S T A T E M A X I
0116740 T E M S / L I N E ) 006 006 006 001 \r
0116760
*
0117040 006 006 ( *
0117060 g b n " 2 4 - S e p - 8 4
0117100 1 5 : 3 1 " ) 006 001 \r ( P
0117120 R O G ( ( O B J E C T ( I M
0117140 A G E O B J C R E A T E N I L
0117160 N W A Y B U T T O N I M A G E
0117200 F N S ) ) \r
0117220 H E I G H T I M A G E S I
0117240 M A G E D S D E S C E N T
0117260 S P A C I N G S I D E E F F E
0117300 C T F N S W I D T H S T W I
0117320 D T H S ) \r
0117340 ( S E T Q F O N T ( O R F
0117360 O N T ( F O N T C R E A T E
0117400 ' H E L V E T I C A 1 0 ) ) )
0117420 \r ( S E T Q
0117440 H E I G H T ( F O N T P R O
0117460 P F O N T ' H E I G H T ) )
0117500 \r ( S E T Q
0117520 D E S C E N T ( F O N T P R
0117540 O P F O N T ' D E S C E N T
0117560 ) ) \r ( S E
0117600 T Q W I D T H S ( 006 002 f o r
0117620 006 001 B U T T O N 006 002 i n 006 001
0117640 B U T T O N S 006 002 c o l l e
0117660 c t 006 001 ( S T R I N G W I D T
0117700 H ( C O N D \r
0117720
*
0120000 ( (
0120020 N L I S T P B U T T O N ) \r
0120040
*
0120140 B U T T O N ) \r
0120160
*
0120260 ( T ( C A R B U T T
0120300 O N ) ) ) \r
0120320
*
0120400 F O N T ) ) ) \r
0120420 ( S E T Q I M A G E
0120440 S ( 006 002 f o r 006 001 W I D T H
0120460 006 002 i n 006 001 W I D T H S 006
0120500 002 a s 006 001 B U T T O N 006 002 i
0120520 n 006 001 B U T T O N S 006 002 c o
0120540 l l e c t 006 001 ( B I T M A P C
0120560 R E A T E W I D T H H E I G
0120600 H T ) ) \r
0120620 ) \r ( S E T
0120640 Q S P A C I N G ( S T R I N
0120660 G W I D T H " " F O N
0120700 T ) ) \r [ S
0120720 E T Q S I D E E F F E C T F N
0120740 S ( 006 002 f o r 006 001 B U T T O
0120760 N 006 002 i n 006 001 B U T T O N S
0121000 006 002 c o l l e c t 006 001 ( A N
0121020 D ( L I S T P B U T T O N )
0121040 \r
0121060
*
0121140 ( C A D R B U T T O N ]
0121160 \r ( S E T Q
0121200 D S ( D S P C R E A T E ) )
0121220 \r ( D S P X
0121240 O F F S E T 0 D S ) \r
0121260 ( D S P Y O F F S
0121300 E T 0 D S ) \r
0121320 ( D S P F O N T F O N T
0121340 D S ) \r (
0121360 D S P R I G H T M A R G I N 3
0121400 2 0 0 0 D S ) \r
0121420 ( 006 002 f o r 006 001 I M A G
0121440 E 006 002 i n 006 001 I M A G E S
0121460 006 002 a s 006 001 B U T T O N 006 002
0121500 i n 006 001 B U T T O N S 006 002 d
0121520 o 006 001 ( D S P D E S T I N A T
0121540 I O N I M A G E D S ) \r
0121560
*
0121640 ( M O V E T O 0 D
0121660 E S C E N T D S ) \r
0121700
*
0121760 ( P R I N 1 ( C O N D \r
0122000
*
0122100 ( ( N L I S T P B U T T O N )
0122120 \r
0122140
*
0122220 B U T T O N ) \r
0122240
*
0122320 ( T (
0122340 C A R B U T T O N ) ) ) \r
0122360
*
0122440 D S ) )
0122460 \r ( I M A G
0122500 E O B J P R O P O B J E C T
0122520 ' M I N W I D T H ( 006 002 f o r
0122540 006 001 W I D T H 006 002 i n 006 001
0122560 W I D T H S 006 002 l a r g e s t
0122600 006 001 W I D T H ) ) \r
0122620
*
0122700 006 006 ( * W e
0122720 a l w a y s n e e d a t l
0122740 e a s t o n e \r 006 001
0122760
*
0123040 006 006 b u t t o
0123060 n ' s w i d t h ) 006 001 \r
0123100 ( I M A G E O B J
0123120 P R O P O B J E C T ' M I N
0123140 H E I G H T ( I P L U S H E
0123160 I G H T 2 ) ) 006 006 ( * A
0123200 n d a t l e a s t o n e
0123220 b u t t o n ' s h e i g h t )
0123240 006 001 \r [ I M
0123260 A G E O B J P R O P O B J E C
0123300 T ' M A X W I D T H ( C O N
0123320 D \r
0123340
0123360 [ M
0123400 A X I T E M S / L I N E ( S E
0123420 T Q T W I D T H S ( S O R T
0123440 ( C O P Y W I D T H S ) ) )
0123460 \r
0123500
*
0123540 ( I P L U S ( C A R
0123560 T W I D T H S ) \r
0123600
*
0123660 ( 006 002 f o r 006 001 W I D T
0123700 H 006 002 i n 006 001 ( C D R T W
0123720 I D T H S ) 006 002 a s 006 001 I \r
0123740
*
0124020 006 002 f
0124040 r o m 006 001 1 006 002 t o 006 001 (
0124060 S U B 1 M A X I T E M S / L I
0124100 N E ) \r
0124120
*
0124200 006 002 s u m 006 001 ( I P L U S
0124220 W I D T H S P A C I N G ] \r
0124240
*
0124300 ( T ( I
0124320 P L U S ( C A R W I D T H S
0124340 ) \r
0124360
*
0124420 ( 006 002 f o r 006 001
0124440 W I D T H 006 002 i n 006 001 ( C
0124460 D R W I D T H S ) \r
0124500
*
0124560 006 002 s u m 006 001 ( I P L
0124600 U S W I D T H S P A C I N G
0124620 ] \r \r
0124640 006 006 ( * A t m
0124660 o s t , w e ' r e a s w i
0124700 d e a s t h e N w i d e
0124720 s t b u t t o n s p u t t
0124740 o g e t h e r ) 006 001 \r \r
0124760 ( I M A G E O B J P
0125000 R O P O B J E C T ' M A X H
0125020 E I G H T ( I T I M E S ( I
0125040 P L U S H E I G H T 2 ) \r
0125060
*
0125140 ( L E N G T H B U T T O N S )
0125160 ) ) \r ( I M
0125200 A G E O B J P R O P O B J E C
0125220 T ' I T E M S P A C E S P A
0125240 C I N G ) \r
0125260 ( I M A G E O B J P R O P O B
0125300 J E C T ' B U T T O N S B U
0125320 T T O N S ) \r
0125340 ( I M A G E O B J P R O P O
0125360 B J E C T ' B U T T O N I M A
0125400 G E S I M A G E S ) \r
0125420 ( I M A G E O B J P
0125440 R O P O B J E C T ' B U T T
0125460 O N H E I G H T ( I P L U S
0125500 H E I G H T 2 ) ) \r
0125520 ( I M A G E O B J P R
0125540 O P O B J E C T ' B U T T O
0125560 N W I D T H S W I D T H S ) \r
0125600 ( I M A G E
0125620 O B J P R O P O B J E C T '
0125640 N B U T T O N S ( L E N G T H
0125660 B U T T O N S ) ) \r
0125700 ( I M A G E O B J P R
0125720 O P O B J E C T ' S T A T E
0125740 I N I T S T A T E ) \r
0125760 ( I M A G E O B J P
0126000 R O P O B J E C T ' S E L E
0126020 C T E D B U T T O N N I L ) \r
0126040 ( I M A G E
0126060 O B J P R O P O B J E C T '
0126100 S I D E E F F E C T F N S S I
0126120 D E E F F E C T F N S ) \r
0126140 ( I M A G E O B J
0126160 P R O P O B J E C T ' D E S
0126200 C E N T D E S C E N T ) \r
0126220 ( I M A G E O B
0126240 J P R O P O B J E C T ' M B
0126260 F O N T F O N T ) \r
0126300 ( I M A G E O B J P R
0126320 O P O B J E C T ' M A X I T
0126340 E M S / L I N E M A X I T E M
0126360 S / L I N E ) \r
0126400 ( R E T U R N O B J E C T
0126420 ] ) \r \r ( 006 004 M B . N B . D I S
0126440 P L A Y F N 006 001 \r [ L A M B
0126460 D A ( O B J S T R E A M M
0126500 O D E ) 006 006 006 001
0126520
0126540 006 006 ( * j
0126560 d s " 2 8 - A u g - 8 4 1 5
0126600 : 0 7 " ) 006 001 \r
0126620
*
0126700 006 006 ( * D i s p l a
0126720 y t h e i n n a r d s o f
0126740 a m e n u \r 006 001
0126760
*
0127040 006 006 b u t t o n
0127060 ) 006 001 \r ( P R O G ( B
0127100 I T M A P D S ( O B J B O X
0127120 ( I M A G E O B J P R O P O
0127140 B J ' B O U N D B O X ) ) \r
0127160
0127200 ( X ( D S P X P O S I T I O N
0127220 N I L S T R E A M ) ) \r
0127240 (
0127260 Y ( D S P Y P O S I T I O N
0127300 N I L S T R E A M ) ) \r
0127320 ( B
0127340 U T T O N X ( I M A G E O B J
0127360 P R O P O B J ' B U T T O N
0127400 X ) ) \r
0127420 ( B U T T O N Y ( I
0127440 M A G E O B J P R O P O B J
0127460 ' B U T T O N Y ) ) \r
0127500 ( B U T
0127520 T O N L I S T ( I M A G E O B
0127540 J P R O P O B J ' B U T T O
0127560 N S ) ) \r
0127600 ( B U T T O N I M A
0127620 G E S ( I M A G E O B J P R O
0127640 P O B J ' B U T T O N I M A
0127660 G E S ) ) \r
0127700 S T A T E ) \r
0127720 [ C O N D \r
0127740 ( ( S E T
0127760 Q B I T M A P ( I M A G E O
0130000 B J P R O P O B J ' I M A G
0130020 E C A C H E ) ) 006 006 ( *
0130040 T h e b u t t o n i m a g e
0130060 e x i s t s a l r e a d y )
0130100 006 001 \r
0130120 ) \r
0130140 ( T
0130160
*
0130220 006 006 ( * H a v e t o m a k
0130240 e o n e . ) 006 001 \r
0130260 ( S E T Q
0130300 B I T M A P ( B I T M A P C R
0130320 E A T E ( 006 002 f e t c h 006 001
0130340 X S I Z E 006 002 o f 006 001 O B J
0130360 B O X ) \r
0130400
0130420 ( 006 002 f e t c
0130440 h 006 001 Y S I Z E 006 002 o f 006 001
0130460 O B J B O X ) ) ) \r
0130500 ( I M A G
0130520 E O B J P R O P O B J ' I M
0130540 A G E C A C H E B I T M A P )
0130560 \r
0130600 ( S E T Q D S ( D S P C R
0130620 E A T E B I T M A P ) ) \r
0130640 ( D
0130660 S P X O F F S E T 0 D S ) \r
0130700
0130720 ( D S P Y O F F S E T 0 D S
0130740 ) \r
0130760 ( D S P F O N T ( I M A G
0131000 E O B J P R O P O B J ' M B
0131020 F O N T ) \r
0131040 D S )
0131060 \r
0131100 ( 006 002 f o r 006 001 X 006 002 i n
0131120 006 001 B U T T O N X 006 002 a s 006
0131140 001 Y 006 002 i n 006 001 B U T T O
0131160 N Y 006 002 a s 006 001 I M A G E
0131200 006 002 i n 006 001 B U T T O N I M A
0131220 G E S \r
0131240 006 002 d o 006 001
0131260
*
0131320 006 006 ( * D i s p l a
0131340 y t h e i m a g e s ) 006 001 \r
0131360
0131400 ( B I T B L T I M
0131420 A G E 0 0 D S X Y N
0131440 I L N I L ' I N P U T ' R
0131460 E P L A C E ] \r
0131500 [ B I T B L T B I T M A P
0131520 0 0 S T R E A M X ( S
0131540 E T Q Y ( I D I F F E R E N
0131560 C E Y ( 006 002 f e t c h 006 001
0131600 Y D E S C 006 002 o f 006 001 O B J
0131620 B O X ] \r
0131640
*
0131720 006 006 ( * D i s p l a y t
0131740 h e b u t t o n ' s i m a g
0131760 e ) 006 001 \r (
0132000 C O N D \r
0132020 ( ( S E T Q S T A T E (
0132040 I M A G E O B J P R O P O B J
0132060 ' S T A T E ) )
0132100 006 006 ( * T h e r e ' s a
0132120 s e l e c t e d b u t t o n
0132140 . ) 006 001 \r
0132160 ( 006 002 f o r 006 001 B X V A
0132200 L 006 002 i n 006 001 B U T T O N X
0132220 006 002 a s 006 001 B Y V A L 006 002
0132240 i n 006 001 B U T T O N Y 006 002 a
0132260 s 006 001 I M A G E 006 002 i n 006 001
0132300 B U T T O N I M A G E S 006 002
0132320 a s 006 001 B U T T O N \r
0132340 006 002 i
0132360 n 006 001 B U T T O N L I S T 006
0132400 002 w h e n 006 001 ( E Q S T A T
0132420 E B U T T O N ) 006 002 d o 006 001
0132440 ( B I T B L T I M A G E 0
0132460 0 S T R E A M ( I P L U S
0132500 X B X V A L ) \r
0132520
*
0132600 ( I P L U S
0132620 Y B Y V A L ) \r
0132640
*
0132720 N I L N I
0132740 L ' I N V E R T ' R E P L A
0132760 C E ] ) \r \r ( 006 004 M B . N B . W
0133000 H E N O P E R A T E D F N 006 001 \r
0133020 [ L A M B D A ( O B J D
0133040 S O P E R A T I O N S E L )
0133060 006 006 006 001
0133100
0133120 006 006 ( * j d s " 4 - M a
0133140 y - 8 4 1 4 : 5 9 " ) 006 001 \r
0133160 ( S E L E C T Q O P E R
0133200 A T I O N \r ( H
0133220 I G H L I G H T E D
0133240
*
0133300 006 006 ( * ( M B . S H O W
0133320 S E L F N O B J S E L T
0133340 D S ) ) 006 001 ) \r
0133360 ( U N H I G H L I G H T E D
0133400
*
0133440 006 006 ( * ( M B . S H
0133460 O W S E L F N O B J S E L
0133500 N I L D S ) ) 006 001 ) \r
0133520 ( S E L E C T E D
0133540
*
0133600 006 006 ( * T h
0133620 e r e m a y b e a s i d
0133640 e - e f f e c t t o o c c u
0133660 r \r 006 001
0133700
*
0133760 006 006 u p o n s e l e c t i
0134000 o n . ) 006 001 \r
0134020 [ P R O G (
0134040 ( S T A T E ( I M A G E O B J
0134060 P R O P O B J ' S T A T E )
0134100 ) \r
0134120 F N ) \r
0134140
0134160 ( 006 002 f o r 006 001
0134200 B U T T O N 006 002 i n 006 001 ( I
0134220 M A G E O B J P R O P O B J
0134240 ' B U T T O N S ) 006 002 a s 006 001
0134260 S I D E F N \r
0134300
0134320 006 002 i n 006 001 ( I M A G E
0134340 O B J P R O P O B J ' S I D
0134360 E E F F E C T F N S ) 006 002 w h
0134400 e n 006 001 ( E Q S T A T E B
0134420 U T T O N ) \r
0134440
0134460 006 002 d o 006 001 ( C O N D \r
0134500
*
0134540 ( S I D E F N ( 006 002 M B . S E
0134560 L F N 006 001 O B J S E L D S
0134600 S I D E F N ] \r
0134620 ( 006 002 r e
0134640 p l a c e 006 001 S E T 006 002 o f
0134660 006 001 S E L 006 002 w i t h 006 001
0134700 N I L ) ) \r ( D
0134720 E S E L E C T E D ) \r
0134740 N I L ] ) \r \r ( 006 004 M B .
0134760 N B . S I Z E F N 006 001 \r [ L
0135000 A M B D A ( O B J S T R E A
0135020 M C U R X R I G H T M A R G
0135040 I N ) 006 006 006 001
0135060 006 006 (
0135100 * j d s " 6 - S e p - 8 4
0135120 1 4 : 1 9 " ) 006 001 \r
0135140
*
0135220 006 006 ( * T e l
0135240 l t h e s i z e o f a n
0135260 n - w a y m e n u ) 006 001 \r
0135300 ( P R O G ( ( O L D B O
0135320 X ( I M A G E O B J P R O P
0135340 O B J ' B O U N D B O X ) ) \r
0135360 B O X \r
0135400 ( M A X I T
0135420 E M S / L I N E ( I M A G E O
0135440 B J P R O P O B J ' M A X I
0135460 T E M S / L I N E ) ) \r
0135500 ( M A X W I D T H
0135520 ( I M A G E O B J P R O P O
0135540 B J ' M A X W I D T H ) ) \r
0135560 ( M I N W I
0135600 D T H ( I M A G E O B J P R O
0135620 P O B J ' M I N W I D T H )
0135640 ) \r ( M A
0135660 X H E I G H T ( I M A G E O B
0135700 J P R O P O B J ' M A X H E
0135720 I G H T ) ) \r
0135740 ( M I N H E I G H T ( I M
0135760 A G E O B J P R O P O B J '
0136000 M I N H E I G H T ) ) \r
0136020 ( L I N E H E I G
0136040 H T ( I M A G E O B J P R O P
0136060 O B J ' L I N E H E I G H T
0136100 ) ) \r ( B
0136120 U T T O N H E I G H T ( I M A
0136140 G E O B J P R O P O B J ' B
0136160 U T T O N H E I G H T ) ) \r
0136200 ( B U T T O N
0136220 W I D T H S ( I M A G E O B J
0136240 P R O P O B J ' B U T T O N
0136260 W I D T H S ) ) \r
0136300 ( S P A C I N G ( I M
0136320 A G E O B J P R O P O B J '
0136340 I T E M S P A C E ) ) \r
0136360 ( S L A C K ( I
0136400 D I F F E R E N C E R I G H T
0136420 M A R G I N C U R X ) ) \r
0136440 B U T T O N X
0136460 B U T T O N Y B U T T O N I
0136500 N F O W I D T H H E I G H T
0136520 ) \r [ C O N
0136540 D \r (
0136560 ( A N D ( I G E Q S L A C K
0136600 M A X W I D T H ) \r
0136620 ( N
0136640 O T M A X I T E M S / L I N E
0136660 ) ) \r \r
0136700 006 006 ( * T h e
0136720 r e ' s s p a c e f o r a
0136740 l l t h e i t e m s o n
0136760 o n e l i n e . \r 006 001
0137000 006 006 U s e i t ) 006
0137020 001 \r \r
0137040 ( S E T Q W I D T H M A X
0137060 W I D T H ) \r
0137100 ( S E T Q H E I G H
0137120 T M I N H E I G H T ) \r
0137140 [ S E T Q
0137160 B U T T O N X ( 006 002 b i n d
0137200 006 001 ( C U R X _ 0 ) 006 002
0137220 f o r 006 001 I T E M 006 002 i n 006
0137240 001 B U T T O N W I D T H S \r
0137260
0137300 006 002
0137320 c o l l e c t 006 001 ( P R O G 1
0137340 C U R X ( 006 002 a d d 006 001 C
0137360 U R X S P A C I N G ) \r
0137400
*
0137440 ( 006 002 a d
0137460 d 006 001 C U R X I T E M ] \r
0137500 ( S E
0137520 T Q B U T T O N Y ( 006 002 f o
0137540 r 006 001 I T E M 006 002 i n 006 001
0137560 B U T T O N W I D T H S 006 002 c
0137600 o l l e c t 006 001 0 ) ) ) \r
0137620 [ ( I L E
0137640 Q S L A C K M I N W I D T H
0137660 )
0137700 006 006 ( *
0137720 H a v e t o s t a c k i t
0137740 v e r t i c a l l y . ) 006 001 \r
0137760 ( S
0140000 E T Q W I D T H M I N W I D
0140020 T H ) \r
0140040 ( S E T Q H E I G H T M
0140060 A X H E I G H T ) \r
0140100 ( S E T Q B U
0140120 T T O N X ( 006 002 f o r 006 001 I
0140140 T E M 006 002 i n 006 001 B U T T O
0140160 N W I D T H S 006 002 c o l l e c
0140200 t 006 001 0 ) ) \r
0140220 ( S E T Q B U T T
0140240 O N Y ( 006 002 b i n d 006 001 ( C
0140260 U R Y _ ( I T I M E S B U
0140300 T T O N H E I G H T ( L E N G
0140320 T H B U T T O N W I D T H S )
0140340 ) ) 006 002 f o r 006 001 I T E M \r
0140360
0140400 006
0140420 002 i n 006 001 B U T T O N W I D T
0140440 H S 006 002 c o l l e c t 006 001 (
0140460 006 002 a d d 006 001 C U R Y ( I M
0140500 I N U S B U T T O N H E I G H
0140520 T ] \r
0140540 ( T ( S E T Q B U T T O N I
0140560 N F O ( 006 002 M B . N B . P A C
0140600 K I T E M S 006 001 S L A C K B
0140620 U T T O N W I D T H S S P A C
0140640 I N G M A X I T E M S / L I N
0140660 E ) ) \r
0140700 [ S E T Q B U T T O N
0140720 X ( 006 002 f o r 006 001 L I N E
0140740 006 002 i n 006 001 B U T T O N I N F
0140760 O 006 002 j o i n 006 001 ( C O P Y
0141000 ( C D R L I N E ] \r
0141020 [ S E T
0141040 Q B U T T O N Y ( 006 002 b i n
0141060 d 006 001 ( C U R Y _ ( I T I
0141100 M E S B U T T O N H E I G H T
0141120 ( L E N G T H B U T T O N I
0141140 N F O ) ) ) 006 002 f o r 006 001 L
0141160 I N E \r
0141200
0141220 006 002 i n 006 001 B U T T
0141240 O N I N F O 006 002 j o i n 006 001
0141260 ( P R O G N ( S E T Q C U R
0141300 Y ( I D I F F E R E N C E C
0141320 U R Y B U T T O N H E I G H T
0141340 ) \r
0141360
*
0141420 ) \r
0141440
*
0141520