$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>IMAGEOBJ!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 7 - A p r - 8 7 1 5 : 0 2 : 2
0000140 6 " 006 004 { E R I S } < T E D I
0000160 T > I M A G E O B J . ; 1 6 006 001
0000200 2 7 0 0 2 \r \r
0000220 c h a n g e s t o % : ( F
0000240 N S B M O B J . D I S P L A Y
0000260 F N B M O B J . G E T F N 3 )
0000300 \r \r p r e v i o u s
0000320 d a t e % : " 2 0 - F e b -
0000340 8 7 2 0 : 0 1 : 4 6 " { E R
0000360 I S } < T E D I T > I M A G E O
0000400 B J . ; 1 5 ) \r \r \r ( * " \r C
0000420 o p y r i g h t ( c ) 1 9 8
0000440 4 , 1 9 8 5 , 1 9 8 6 , 1
0000460 9 8 7 b y X e r o x C o r
0000500 p o r a t i o n . A l l r
0000520 i g h t s r e s e r v e d . \r
0000540 " ) \r \r ( P R E T T Y C O M P R
0000560 I N T I M A G E O B J C O M S
0000600 ) \r \r ( R P A Q Q 006 002 I M A G
0000620 E O B J C O M S 006 001 ( ( C O M
0000640 S \r \r
0000660 006 006 ( * ; ;
0000700 " B i t - m a p i m a g e o
0000720 b j e c t s " ) 006 001 \r \r
0000740
0000760 ( F N S B I T M
0001000 A P T E D I T O B J C O E R C
0001020 E T O B I T M A P W I N D O W
0001040 T I T L E F O N T \ P R I N T
0001060 B I N A R Y B I T M A P \r
0001100
0001120 \ R
0001140 E A D B I N A R Y B I T M A P )
0001160 \r
0001200 \r
0001220 \r
0001240 006 006 ( * ; ; " f n s f
0001260 o r t h e b i t m a p t e
0001300 d i t o b j e c t . " ) 006 001 \r
0001320 \r
0001340 ( F N S
0001360 B M O B J . B U T T O N E V E
0001400 N T I N F N B M O B J . C O P
0001420 Y F N B M O B J . D I S P L A
0001440 Y F N B M O B J . I M A G E B
0001460 O X F N \r
0001500
0001520 B M O B J . P U T F
0001540 N B M O B J . I N I T B M O
0001560 B J . G E T F N 3 B M O B J .
0001600 C R E A T E . M E N U ) \r
0001620
0001640 ( F N S S C A
0001660 L E D . B I T M A P . G E T F N
0001700 B M O B J . G E T F N B M O
0001720 B J . G E T F N 2 ) \r
0001740
*
0002020 006 006 ( * ; \r
0002040 006 001
0002060
*
0002120 006 006 " G E T F N s f o r b a
0002140 c k w a r d c o m p a t i b i
0002160 l i t y w i t h o l d e r
0002200 o b j e c t s . " ) 006 001 \r \r
0002220
0002240 ( R E C O R D
0002260 S B I T M A P O B J ) \r
0002300
0002320 \r
0002340 \r 006 006
0002360 ( * ; ; " m a k e ^ O b
0002400 e a c h a r a c t e r t h
0002420 a t i n s e r t s a n o b
0002440 j e c t r e a d f r o m t
0002460 h e u s e r . " ) 006 001 \r \r
0002500
0002520 ( G L O B A L
0002540 V A R S ( B I T M A P . O B J
0002560 . M E N U ) ) \r
0002600
0002620 ( A D D V A R S ( B a c
0002640 k g r o u n d C o p y M e n u C
0002660 o m m a n d s ( S N A P ( F
0002700 U N C T I O N ( B I T M A P O
0002720 B J . S N A P W ) ) \r
0002740
*
0003040 \r
0003060
*
0003120 " p r o m p t
0003140 s f o r a n a r e a o f
0003160 t h e s c r e e n t o i
0003200 n s e r t . " \r
0003220
*
0003300 ) )
0003320 \r
0003340
0003360 ( I M A G E O B J G E T F
0003400 N S ( B M O B J . G E T F N )
0003420 ) \r
0003440
0003460 ( I M A G E O B J G E T
0003500 F N S ( B M O B J . G E T F N
0003520 2 ) ) \r
0003540
0003560 ( I M A G E O B J G
0003600 E T F N S ( S C A L E D . B I
0003620 T M A P . G E T F N ) ) ) \r
0003640
0003660 ( V A R S (
0003700 B a c k g r o u n d C o p y M e
0003720 n u ) ) \r
0003740
0003760 ( F N S G E T . O B J . F R O
0004000 M . U S E R B I T M A P O B J
0004020 . S N A P W P R O M P T F O R
0004040 E V A L E D ) \r
0004060
0004100 ( D E C L A R E % : D O
0004120 N T E V A L @ L O A D D O C O
0004140 P Y ( P ( B M O B J . I N I
0004160 T ) ) ) \r
0004200
0004220 ( F I L E S E D I T B I T M A
0004240 P ) ) ) ) \r \r \r \r 006 004 ( * ; ;
0004260 " B i t - m a p i m a g e
0004300 o b j e c t s " ) 006 001 \r \r ( D E
0004320 F I N E Q \r \r ( 006 004 B I T M A P
0004340 T E D I T O B J 006 001 \r ( L A
0004360 M B D A ( B I T M A P S C A
0004400 L E F A C T O R R O T A T I O
0004420 N ) 006 006 006 001
0004440 006 006 ( *
0004460 j d s " 2 0 - F e b - 8 5
0004500 1 4 : 1 0 " ) 006 001 \r
0004520 \r 006
0004540 006 ( * r e t u r n s t h e
0004560 t e d i t o b j w h i c h
0004600 g i v e s t h e f u n c t i
0004620 o n a l i n f o r m a t i o n
0004640 f o r a b i t m a p \r 006
0004660 001 006 006 o b j
0004700 e c t i n a t e d i t f
0004720 i l e . ) 006 001 \r \r ( I M
0004740 A G E O B J C R E A T E ( 006 002
0004760 c r e a t e 006 001 B I T M A P O
0005000 B J \r
0005020 B I
0005040 T M A P _ B I T M A P \r
0005060
0005100 B M O B J S C
0005120 A L E F A C T O R _ ( O R
0005140 S C A L E F A C T O R 1 ) \r
0005160
0005200 B M O B J R
0005220 O T A T I O N _ ( O R R O
0005240 T A T I O N 0 ) ) \r
0005260 B I T M A P I M A G
0005300 E F N S ) ) ) \r \r ( 006 004 C O E R
0005320 C E T O B I T M A P 006 001 \r (
0005340 L A M B D A ( B M S P E C ) 006
0005360 006 006 001
0005400
0005420 006 006
0005440 ( * r r b " 2 6 - A U G - 8
0005460 3 1 2 : 5 5 " ) 006 001 \r
0005500 \r
0005520 006 006 ( * t r i e s t o i
0005540 n t e r p r e t X a s a
0005560 s p e c f o r a b i t m a
0005600 p . ) 006 001 \r \r ( P R O G
0005620 ( B M C R ) \r
0005640 ( R E T U R N ( C O N D
0005660 \r
0005700 ( ( B I T M A P P
0005720 B M S P E C ) \r
0005740 B M
0005760 S P E C ) \r
0006000 ( ( L I T
0006020 A T O M B M S P E C )
0006040
0006060 006 006 ( * u s e v a l u
0006100 e . ) 006 001 \r
0006120 ( C O N
0006140 D \r
0006160 ( ( B I T
0006200 M A P P ( E V A L V B M S P
0006220 E C ' C O E R C E T O B I T M
0006240 A P ) ) ) ) ) \r
0006260 ( ( R
0006300 E G I O N P B M S P E C ) \r
0006320 \r
0006340 006 006 ( * i f B M S P
0006360 E C i s a r e g i o n ,
0006400 t r e a t i t a s a r e
0006420 g i o n o f t h e s c r e
0006440 e n . ) 006 001 \r \r
0006460 ( S
0006500 E T Q B M ( B I T M A P C R
0006520 E A T E ( 006 002 f e t c h 006 001
0006540 ( R E G I O N W I D T H ) 006
0006560 002 o f 006 001 B M S P E C ) \r
0006600
*
0006640 ( 006 002 f e t c h 006 001 (
0006660 R E G I O N H E I G H T ) 006
0006700 002 o f 006 001 B M S P E C ) \r
0006720
*
0006760 ( B I T S P E R P I X E
0007000 L ( S C R E E N B I T M A P )
0007020 ) ) ) \r
0007040 ( B I T B L
0007060 T ( S C R E E N B I T M A P )
0007100 \r
0007120 ( 006
0007140 002 f e t c h 006 001 ( R E G I O N
0007160 L E F T ) 006 002 o f 006 001 B M
0007200 S P E C ) \r
0007220
0007240 ( 006 002 f e t c h 006 001 ( R
0007260 E G I O N B O T T O M ) 006 002
0007300 o f 006 001 B M S P E C ) \r
0007320
0007340 B M 0 0
0007360 N I L N I L ' I N P U T
0007400 ' R E P L A C E ) \r
0007420
0007440 B M ) \r
0007460 ( ( W I N D O
0007500 W P B M S P E C ) \r
0007520
0007540 ( S E T Q B M ( B I T M A
0007560 P C R E A T E ( W I N D O W P
0007600 R O P B M S P E C ' W I D T
0007620 H ) \r
0007640
0007660 ( W I N D O W
0007700 P R O P B M S P E C ' H E I
0007720 G H T ) ) ) \r
0007740
*
0010020 006 006 ( * o p e n t h
0010040 e w i n d o w a n d b r i
0010060 n g i t t o t h e \r 006 001
0010100
*
0010160 006 006 t
0010200 o p . ) 006 001 \r
0010220 ( T O
0010240 T O P W B M S P E C ) \r
0010260
0010300 ( S E T Q C R ( D S P
0010320 C L I P P I N G R E G I O N N
0010340 I L B M S P E C ) ) \r
0010360
0010400 ( B I T B L T B M S P E C
0010420 ( 006 002 f e t c h 006 001 L E F T
0010440 006 002 o f 006 001 C R ) \r
0010460
0010500 ( 006 002 f e t c
0010520 h 006 001 B O T T O M 006 002 o f 006
0010540 001 C R ) \r
0010560
0010600 B M 0 0 ( 006 002 f e t
0010620 c h 006 001 W I D T H 006 002 o f 006
0010640 001 C R ) \r
0010660
0010700 ( 006 002 f e t c h 006 001 H E
0010720 I G H T 006 002 o f 006 001 C R ) )
0010740 \r
0010760 B M ) ) ) ) ) ) \r
0011000 \r ( 006 004 W I N D O W T I T L E F
0011020 O N T 006 001 \r ( L A M B D A
0011040 ( F O N T ) 006 006 006 001
0011060
*
0011120 006 006 ( * r r b
0011140 " 1 - F e b - 8 4 1 5 : 2 6
0011160 " ) 006 001 \r
0011200
*
0011260 006 006 ( * r e s e t t y p
0011300 e o f f u n c t i o n t h
0011320 a t c h a n g e s \r 006 001
0011340
*
0011420 006 006 t h e
0011440 t i t l e f o n t ) 006 001 \r
0011460 ( D S P F O N T F O N T
0011500 W i n d o w T i t l e D i s p
0011520 l a y S t r e a m ) ) ) \r \r ( 006
0011540 004 \ P R I N T B I N A R Y B I T
0011560 M A P 006 001 \r ( L A M B D A
0011600 ( B I T M A P S T R E A M ) 006
0011620 006 006 001
0011640
0011660 006 006 ( * r r b
0011700 " 2 3 - J u l - 8 4 1 5 : 1 6
0011720 " ) 006 001 \r \r
0011740 006 006 ( * *
0011760 p r i n t s t h e r e p r
0012000 e s e n t a t i o n o f a
0012020 b i t m a p o n t o S T R E
0012040 A M i n a f o r m t h a
0012060 t c a n b e \r 006 001
0012100 006 006 r e a d b a c
0012120 k b y \ R E A D B I N A R Y
0012140 B I T M A P . ) 006 001 \r \r
0012160 ( P R O G ( ( S T R E A M (
0012200 G E T S T R E A M S T R E A M
0012220 ' O U T P U T ) ) \r
0012240 B M H ) \r
0012260 ( O R ( B I T M A P
0012300 P B I T M A P ) \r
0012320 ( \ I L L E G A
0012340 L . A R G B I T M A P ) ) \r
0012360 ( \ W O U T
0012400 S T R E A M ( B I T M A P W I
0012420 D T H B I T M A P ) ) \r
0012440 ( \ W O U T S T
0012460 R E A M ( S E T Q B M H (
0012500 B I T M A P H E I G H T B I T
0012520 M A P ) ) ) \r
0012540 ( \ W O U T S T R E A M (
0012560 B I T S P E R P I X E L B I T
0012600 M A P ) ) \r
0012620 ( \ B O U T S S T R E A M (
0012640 006 002 f e t c h 006 001 ( B I T M A
0012660 P B I T M A P B A S E ) 006 002
0012700 o f 006 001 B I T M A P ) \r
0012720 0 \r
0012740
0012760 ( I T I M E S ( 006 002 f e t c
0013000 h 006 001 ( B I T M A P B I T M
0013020 A P R A S T E R W I D T H ) 006
0013040 002 o f 006 001 B I T M A P ) \r
0013060
0013100 B M H B Y T E S P
0013120 E R W O R D ) ) \r
0013140 ( R E T U R N B I T M A
0013160 P ) ) ) ) \r \r ( 006 004 \ R E A D B
0013200 I N A R Y B I T M A P 006 001 \r
0013220 ( L A M B D A ( S T R E A M )
0013240 006 006 006 001
0013260
0013300 006
0013320 006 ( * r r b " 2 3 - J u l -
0013340 8 4 1 5 : 1 7 " ) 006 001 \r
0013360 \r
0013400 006 006 ( * * r e a d s a
0013420 b i t m a p p r i n t e d
0013440 o n S T R E A M b y \ P R
0013460 I N T B I N A R Y B I T M A P .
0013500 ) 006 001 \r \r ( S E T Q S
0013520 T R E A M ( G E T S T R E A M
0013540 S T R E A M ' I N P U T ) )
0013560 \r ( P R O G ( ( B M W
0013600 ( \ W I N S T R E A M ) ) \r
0013620 ( B M H
0013640 ( \ W I N S T R E A M ) ) \r
0013660 ( B P P (
0013700 \ W I N S T R E A M ) ) \r
0013720 B I T M A P )
0013740 \r ( S E T Q
0013760 B I T M A P ( B I T M A P C
0014000 R E A T E B M W B M H B P
0014020 P ) ) \r ( \
0014040 B I N S S T R E A M ( 006 002 f
0014060 e t c h 006 001 ( B I T M A P B
0014100 I T M A P B A S E ) 006 002 o f 006
0014120 001 B I T M A P ) \r
0014140 0 \r
0014160 ( I
0014200 T I M E S ( 006 002 f e t c h 006 001
0014220 ( B I T M A P B I T M A P R
0014240 A S T E R W I D T H ) 006 002 o f
0014260 006 001 B I T M A P ) \r
0014300
0014320 B M H B Y T E S P E R W
0014340 O R D ) ) \r
0014360 ( R E T U R N B I T M A P ) )
0014400 ) ) \r ) \r \r \r \r 006 004 ( * ; ;
0014420 " f n s f o r t h e b i t
0014440 m a p t e d i t o b j e c t
0014460 . " ) 006 001 \r \r ( D E F I N E Q \r
0014500 \r ( 006 004 B M O B J . B U T T O N
0014520 E V E N T I N F N 006 001 \r [ L
0014540 A M B D A ( I M A G E O B J
0014560 W I N D O W S E L E C T I O N
0014600 X Y S E L W I N D O W T
0014620 E X T S T R E A M B U T T O N
0014640 O P E R A T I O N ) 006 006 006 001 \r
0014660
*
0014740 006 006 (
0014760 * ; " E d i t e d 2 0 - F
0015000 e b - 8 7 1 9 : 3 6 b y j
0015020 d s " ) 006 001 \r \r 006 006 ( * ; ; ;
0015040 " t h e u s e r h a s p
0015060 r e s s e d a b u t t o n
0015100 i n s i d e t h e b i t m a
0015120 p o b j e c t I M A G E O B
0015140 J . B r i n g u p a m
0015160 e n u o f b i t m a p e d
0015200 i t o p e r a t i o n s . " )
0015220 006 001 \r \r ( P R O G * (
0015240 ( O B J ( I M A G E O B J P R
0015260 O P I M A G E O B J ' O B J
0015300 E C T D A T U M ) ) \r
0015320 ( O L D S C A L E
0015340 ( 006 002 f e t c h 006 001 ( B I T
0015360 M A P O B J B M O B J S C A L
0015400 E F A C T O R ) 006 002 o f 006 001
0015420 O B J ) ) \r
0015440 N E W . B I T M A P C O M
0015460 M A N D . M E N U C O M M A N
0015500 D P R E V I O U S . B I T M A
0015520 P N A M E T E M P X Y )
0015540 \r ( C O N
0015560 D \r
0015600 ( [ O R ( E Q B U T T O N
0015620 ' R I G H T ) \r
0015640 ( A N D
0015660 O P E R A T I O N ( N E Q O
0015700 P E R A T I O N ' N O R M A L
0015720 ] 006 006 ( * ; " I f
0015740 h e ' s e x t e n d i n g
0015760 a s e l e c t i o n , o r
0016000 i s s e l e c t i n g f o r
0016020 m o v e / c o p y / d e l e t
0016040 e , D O N ' T b r i n g u
0016060 p t h e b i t m a p e d i
0016100 t i n g m e n u ! " ) 006 001 \r
0016120 ( R
0016140 E T U R N ) ) ) \r
0016160 ( S E T Q P R E V I O
0016200 U S . B I T M A P ( B I T M A
0016220 P C O P Y ( 006 002 f e t c h 006 001
0016240 ( B I T M A P O B J B I T M
0016260 A P ) 006 002 o f 006 001 O B J ) )
0016300 ) \r ( S E
0016320 T Q N E W . B I T M A P ( S
0016340 E L E C T Q [ M E N U ( C O
0016360 N D \r
0016400
*
0016440 ( ( 006 002 t y p e ? 006 001 M E N
0016460 U B I T M A P . O B J . M E N
0016500 U ) \r
0016520
*
0016560 B I T M A P . O B J . M E N
0016600 U ) \r
0016620
*
0016660 ( T ( S E T Q B I T M A P
0016700 . O B J . M E N U ( 006 002 B M O
0016720 B J . C R E A T E . M E N U 006 001
0016740 ] \r
0016760
0017000 ( C H A N G E . S C A L E
0017020 006
0017040 006 ( * ; " C h a n g e t h
0017060 e s c a l e o n t h e b
0017100 i t m a p . " ) 006 001 \r
0017120
*
0017160 ( 006 002 r e p l
0017200 a c e 006 001 ( B I T M A P O B J
0017220 B M O B J S C A L E F A C T O
0017240 R ) 006 002 o f 006 001 O B J \r
0017260
*
0017320 006
0017340 002 w i t h 006 001 ( O R ( N U M
0017360 B E R P ( M K A T O M ( T E
0017400 D I T . G E T I N P U T \r
0017420
*
0017520 ( T E X T O B
0017540 J W I N D O W ) \r
0017560
*
0017660 " S c a l e F a c
0017700 t o r : " \r
0017720
*
0020020 O L D S C A L E ) ) )
0020040 \r
0020060
*
0020120 O L D S C
0020140 A L E ) ) \r
0020160
*
0020240 006 006 ( * ; \r 006 001
0020260
*
0020320 006 006 " R e t u
0020340 r n t h e p r e v o u s b
0020360 i t m a p , s o w e d o n
0020400 ' t c h a n g e t h e b i
0020420 t s . " ) 006 001 \r
0020440
*
0020500 P R E V I O U S . B
0020520 I T M A P ) \r
0020540
0020560 ( H A N D . E D I
0020600 T ( E D I T B M P R E V I O
0020620 U S . B I T M A P ) ) \r
0020640
0020660 ( T R I
0020700 M ( T R I M . B I T M A P P
0020720 R E V I O U S . B I T M A P ) )
0020740 \r
0020760
0021000 ( I N V E R T . H O R I Z O N
0021020 T A L L Y \r
0021040
0021060 ( I N V
0021100 E R T . B I T M A P . H O R I Z
0021120 O N T A L L Y P R E V I O U S
0021140 . B I T M A P ) ) \r
0021160
0021200 ( I N V E R
0021220 T . V E R T I C A L L Y \r
0021240
*
0021300 ( I N V E R T . B I T M A
0021320 P . V E R T I C A L L Y P R E
0021340 V I O U S . B I T M A P ) ) \r
0021360
0021400 (
0021420 I N V E R T . D I A G O N A L L
0021440 Y \r
0021460
0021500 ( I N V E R T .
0021520 B I T M A P . D I A G O N A L L
0021540 Y P R E V I O U S . B I T M A
0021560 P ) ) \r
0021600
0021620 ( R O T A T E . B I T M
0021640 A P . L E F T \r
0021660
0021700 ( R
0021720 O T A T E . B I T M A P . L E F
0021740 T P R E V I O U S . B I T M A
0021760 P ) ) \r
0022000
0022020 ( R O T A T E . B I T M
0022040 A P . R I G H T \r
0022060
0022100 (
0022120 R O T A T E . B I T M A P . R I
0022140 G H T P R E V I O U S . B I T
0022160 M A P ) ) \r
0022200
0022220 ( S H I F T . L E F
0022240 T ( I N T E R A C T & S H I F
0022260 T . B I T M A P . L E F T P R
0022300 E V I O U S . B I T M A P ) ) \r
0022320
*
0022360 ( S H I F T . R I G H T ( I N
0022400 T E R A C T & S H I F T . B I T
0022420 M A P . R I G H T P R E V I O
0022440 U S . B I T M A P ) ) \r
0022460
0022500 ( S H I
0022520 F T . D O W N ( I N T E R A C
0022540 T & S H I F T . B I T M A P . D
0022560 O W N P R E V I O U S . B I T
0022600 M A P ) ) \r
0022620
0022640 ( S H I F T . U P
0022660 ( I N T E R A C T & S H I F T .
0022700 B I T M A P . U P P R E V I O
0022720 U S . B I T M A P ) ) \r
0022740
0022760 ( I N T
0023000 E R C H A N G E . B L A C K / W
0023020 H I T E \r
0023040
0023060 ( I N V E
0023100 R T . B I T M A P . B / W P R
0023120 E V I O U S . B I T M A P ) ) \r
0023140
*
0023200 ( A D D . B O R D E R ( I N T
0023220 E R A C T & A D D . B O R D E R
0023240 . T O . B I T M A P P R E V I
0023260 O U S . B I T M A P ) ) \r
0023300
0023320 ( R E
0023340 T U R N N I L ) ) ) \r
0023360 ( 006 002 r e p l a c
0023400 e 006 001 ( B I T M A P O B J B
0023420 I T M A P ) 006 002 o f 006 001 O B
0023440 J 006 002 w i t h 006 001 N E W . B
0023460 I T M A P ) \r
0023500 ( I M A G E O B J P R O P
0023520 I M A G E O B J ' C A C H E D
0023540 . B I T M A P N I L )
0023560 006 006 ( * ; \r 006 001
0023600
0023620 006 006 "
0023640 A n d c l e a r a n y c a
0023660 c h e d s h r u n k b i t m
0023700 a p s s o t h e d i s p l
0023720 a y l o o k s r e a s o n a
0023740 b l e . " ) 006 001 \r
0023760 ( R E T U R N ' C H A
0024000 N G E D ] ) \r \r ( 006 004 B M O B J
0024020 . C O P Y F N 006 001 \r ( L A M
0024040 B D A ( I M A G E O B J ) 006 006
0024060 006 001
0024100
0024120 006 006 ( *
0024140 r r b " 1 - F e b - 8 4 1
0024160 6 : 0 0 " ) 006 001 \r
0024200
*
0024260 006 006 ( * m a k e s
0024300 a c o p y o f a b i t
0024320 m a p i m a g e \r 006 001
0024340
*
0024420 006 006 o b j e
0024440 c t . ) 006 001 \r ( P R O G
0024460 ( ( B M O B J ( I M A G E O
0024500 B J P R O P I M A G E O B J
0024520 ' O B J E C T D A T U M ) ) ) \r
0024540 ( R E T U R
0024560 N ( 006 002 B I T M A P T E D I T
0024600 O B J 006 001 ( B I T M A P C O P
0024620 Y ( 006 002 f e t c h 006 001 ( B I
0024640 T M A P O B J B I T M A P )
0024660 006 002 o f 006 001 B M O B J ) ) \r
0024700
0024720 ( 006 002 f e t c h
0024740 006 001 ( B I T M A P O B J B M
0024760 O B J S C A L E F A C T O R )
0025000 006 002 o f 006 001 B M O B J ) \r
0025020
0025040 ( 006 002 f e t c h 006
0025060 001 ( B I T M A P O B J B M O
0025100 B J R O T A T I O N ) 006 002 o f
0025120 006 001 B M O B J ) ) ) ) ) ) \r \r
0025140 ( 006 004 B M O B J . D I S P L A Y
0025160 F N 006 001 \r [ L A M B D A (
0025200 I M A G E O B J I M A G E . S
0025220 T R E A M ) 006 006 006 001
0025240
0025260 006 006 ( * ; " E d
0025300 i t e d 1 7 - A p r - 8 7 1
0025320 5 : 0 2 b y j d s " ) 006 001 \r
0025340
*
0025420 006 006 (
0025440 * ; \r 006 001
0025460 006 006
0025500 " f u n c t i o n w h i c h
0025520 d i s p l a y s a s c a l e
0025540 d b i t m a p o n o n l y
0025560 a n i n t e r p r e s s s
0025600 t r e a m f o r n o w " ) 006
0025620 001 \r \r ( P R O G ( [ F
0025640 A C T O R ( 006 002 f e t c h 006 001
0025660 ( B I T M A P O B J B M O B
0025700 J S C A L E F A C T O R ) 006 002
0025720 o f 006 001 ( I M A G E O B J P R
0025740 O P I M A G E O B J ' O B J
0025760 E C T D A T U M ] \r
0026000 [ B I T M A P ( 006 002
0026020 f e t c h 006 001 ( B I T M A P O
0026040 B J B I T M A P ) 006 002 o f 006
0026060 001 ( I M A G E O B J P R O P
0026100 I M A G E O B J ' O B J E C T
0026120 D A T U M ] \r
0026140 ( C A C H E ( I M A G E O
0026160 B J P R O P I M A G E O B J
0026200 ' C A C H E D . B I T M A P ) )
0026220 \r S H R U
0026240 N K . B I T M A P )
0026260
0026300 006 006
0026320 ( * ; " ( I M A G E S T R E
0026340 A M T Y P E I M A G E . S T R
0026360 E A M ) " ) 006 001 \r \r
0026400 ( S E L E C T Q ( I M
0026420 A G E S T R E A M T Y P E I M
0026440 A G E . S T R E A M ) \r
0026460 ( I N T E R
0026500 P R E S S
0026520
0026540 006 006 ( * ;
0026560 \r 006 001
0026600
0026620 006 006 " P r i n t i n
0026640 g t o a n I n t e r p r e
0026660 s s s t r e a m , s o u s
0026700 e t h e s p e c i a l i z e
0026720 d m e t h o d . " ) 006 001 \r \r
0026740
0026760 ( S H O W B I
0027000 T M A P . I P I M A G E . S T
0027020 R E A M B I T M A P N I L
0027040 F A C T O R 0 ) ) \r
0027060 ( P R O G N
0027100
*
0027140 006 006 ( * ; \r
0027160 006 001 006 006 "
0027200 T h i s i s t h e d e f a
0027220 u l t c a s e , p r e s s
0027240 d i s p l a y a n d e v e r
0027260 y o n e e l s e p r i n t s
0027300 t h e j u n k y s h r u n
0027320 k b i t m a p " ) 006 001 \r \r
0027340
0027360 ( C O N D \r
0027400
0027420 ( ( N O T ( S E T Q S H R
0027440 U N K . B I T M A P C A C H E
0027460 ) ) \r
0027500 [ C O N
0027520 D \r
0027540 [ (
0027560 L E Q F A C T O R 1 . 0 )
0027600 006
0027620 006 ( * ; \r 006 001
0027640
0027660 006 006
0027700 " W e ' r e s h r i n k i n g
0027720 t h e b i t m a p . C r
0027740 e a t e a s h r u n k i m
0027760 a g e f o r d i s p l a y "
0030000 ) 006 001 \r \r
0030020
0030040 ( S E T Q S H R U N K . B
0030060 I T M A P ( S H R I N K B I T
0030100 M A P B I T M A P ( F Q U O
0030120 T I E N T 1 . 0 F A C T O R
0030140 ) \r
0030160
*
0030220 ( F Q U O T
0030240 I E N T 1 . 0 F A C T O R ]
0030260 \r
0030300 ( T
0030320
0030340 006 006
0030360 ( * ; \r 006 001
0030400
*
0030460 006 006 " W e ' r e e x p a n
0030500 d i n g i t . C r e a t e
0030520 a b i g g e r o n e . " )
0030540 006 001 \r \r
0030560
0030600 ( S E T Q S H R U N K .
0030620 B I T M A P ( E X P A N D B I
0030640 T M A P B I T M A P F A C T
0030660 O R F A C T O R ] \r
0030700
0030720 ( I M A G E O B J P R O
0030740 P I M A G E O B J ' C A C H
0030760 E D . B I T M A P S H R U N K
0031000 . B I T M A P ) ) ) \r
0031020
0031040 ( B I T B L T S H R U N K . B
0031060 I T M A P N I L N I L I M
0031100 A G E . S T R E A M ( D S P X
0031120 P O S I T I O N N I L I M A
0031140 G E . S T R E A M ) \r
0031160
0031200 ( D S P Y P O S I
0031220 T I O N N I L I M A G E . S
0031240 T R E A M ) \r
0031260
0031300 ( F I X R ( F T I M E S
0031320 F A C T O R ( B I T M A P W
0031340 I D T H B I T M A P ) ) ) \r
0031360
0031400 ( F I X R
0031420 ( F T I M E S F A C T O R
0031440 ( B I T M A P H E I G H T B I
0031460 T M A P ] ) \r \r ( 006 004 B M O B J
0031500 . I M A G E B O X F N 006 001 \r
0031520 ( L A M B D A ( I M A G E O B
0031540 J I M A G E . S T R E A M C
0031560 U R R E N T . X R I G H T . M
0031600 A R G I N ) 006 006 006 001 006
0031620 006 ( * j d s " 3 0 - O c t -
0031640 8 5 1 1 : 2 3 " ) 006 001 \r
0031660 \r
0031700 006 006 ( * r e t u r n s a
0031720 n i m a g e b o x d e s c r
0031740 i b i n g t h e s i z e o
0031760 f t h e s c a l e d b i t
0032000 m a p ) 006 001 \r \r ( P R O
0032020 G ( ( F A C T O R ( 006 002 f e
0032040 t c h 006 001 ( B I T M A P O B J
0032060 B M O B J S C A L E F A C T O
0032100 R ) 006 002 o f 006 001 ( I M A G E
0032120 O B J P R O P I M A G E O B J
0032140 ' O B J E C T D A T U M ) ) )
0032160 \r ( B I T
0032200 M A P ( 006 002 f e t c h 006 001 (
0032220 B I T M A P O B J B I T M A P
0032240 ) 006 002 o f 006 001 ( I M A G E O
0032260 B J P R O P I M A G E O B J
0032300 ' O B J E C T D A T U M ) ) ) \r
0032320 ( S C A L
0032340 E ( D S P S C A L E N I L
0032360 I M A G E . S T R E A M ) ) \r
0032400 W I D T H
0032420 H E I G H T ) \r
0032440 ( C O N D \r
0032460 ( ( E Q B I T M A P
0032500 ' N o n e C a c h e d ) \r
0032520 ( S E T
0032540 Q W I D T H ( S E T Q H E
0032560 I G H T 5 ) ) ) \r
0032600 ( T ( S E T Q
0032620 W I D T H ( F I X R ( F T I
0032640 M E S S C A L E ( T I M E S
0032660 ( B I T M A P W I D T H B I
0032700 T M A P ) \r
0032720
*
0032760 F A C
0033000 T O R ) ) ) ) \r
0033020 ( S E T Q H E
0033040 I G H T ( F I X R ( F T I M
0033060 E S S C A L E ( T I M E S
0033100 ( B I T M A P H E I G H T B I
0033120 T M A P ) \r
0033140
*
0033200 F A
0033220 C T O R ) ) ) ) ) ) \r
0033240 ( R E T U R N ( 006 002
0033260 c r e a t e 006 001 I M A G E B O
0033300 X \r
0033320 X S I Z E
0033340 _ W I D T H \r
0033360
0033400 Y S I Z E _ H E I G H T
0033420 \r
0033440 Y D E S C
0033460 _ 0 \r
0033500 X K E
0033520 R N _ 0 ) ) ) ) ) \r \r ( 006 004
0033540 B M O B J . P U T F N 006 001 \r
0033560 ( L A M B D A ( B M O B J S
0033600 T R E A M ) 006 006 006 001
0033620
0033640 006
0033660 006 ( * j d s " 3 0 - O c t -
0033700 8 5 1 1 : 0 1 " ) 006 001 \r
0033720 \r
0033740 006 006 ( * P u t a d e s
0033760 c r i p t i o n o f a b i
0034000 t m a p o b j e c t i n t o
0034020 t h e f i l e . ) 006 001 \r \r
0034040 ( P R O G * ( ( S C A L
0034060 E ( 006 002 f e t c h 006 001 ( B I
0034100 T M A P O B J B M O B J S C A
0034120 L E F A C T O R ) 006 002 o f 006 001
0034140 ( I M A G E O B J P R O P B
0034160 M O B J ' O B J E C T D A T U
0034200 M ) ) ) \r
0034220 ( I N T S C A L E ( F I X
0034240 S C A L E ) ) \r
0034260 ( F R A C T S C A L E
0034300 ( F D I F F E R E N C E S C A
0034320 L E I N T S C A L E ) ) ) \r
0034340 ( \ W O U T
0034360 S T R E A M I N T S C A L E
0034400 )
0034420 006 006 ( *
0034440 F i r s t w o r d i s i
0034460 n t e g e r p a r t o f t
0034500 h e \r 006 001
0034520
*
0034600 006 006 b i t m a p s c a l
0034620 e ) 006 001 \r
0034640 ( \ W O U T S T R E A M ( L
0034660 O G A N D 6 5 5 3 5 ( F I X
0034700 ( F T I M E S F R A C T S C
0034720 A L E 3 2 7 6 8 ) ) ) ) \r
0034740
*
0035020 006 006 ( *
0035040 S e c o n d w o r d i s 1
0035060 6 b i t s o f f r a c t i
0035100 o n ) 006 001 \r
0035120 ( \ W O U T S T R E A M (
0035140 006 002 f e t c h 006 001 ( B I T M A
0035160 P O B J B M O B J R O T A T I
0035200 O N ) 006 002 o f 006 001 ( I M A G
0035220 E O B J P R O P B M O B J '
0035240 O B J E C T D A T U M ) ) ) \r
0035260 ( 006 002 \ P R
0035300 I N T B I N A R Y B I T M A P 006
0035320 001 ( 006 002 f e t c h 006 001 ( B I
0035340 T M A P O B J B I T M A P )
0035360 006 002 o f 006 001 ( I M A G E O B J
0035400 P R O P B M O B J ' O B J E
0035420 C T D A T U M ) ) \r
0035440 S T R E
0035460 A M ) ) ) ) \r \r ( 006 004 B M O B J
0035500 . I N I T 006 001 \r ( L A M B D
0035520 A N I L 006 006 006 001
0035540
*
0035600 006 006 ( * j d
0035620 s " 3 0 - O c t - 8 5 1 1 :
0035640 0 8 " ) 006 001 \r
0035660 \r 006 006 ( *
0035700 r e t u r n s t h e t e d
0035720 i t o b j w h i c h g i v
0035740 e s t h e f u n c t i o n a
0035760 l i n f o r m a t i o n f o
0036000 r a b i t m a p \r 006 001
0036020 006 006 o b j e c t
0036040 i n a t e d i t f i l e
0036060 . ) 006 001 \r \r ( S E T Q
0036100 B I T M A P I M A G E F N S (
0036120 I M A G E F N S C R E A T E (
0036140 F U N C T I O N B M O B J . D
0036160 I S P L A Y F N ) \r
0036200
0036220 ( F U N C T
0036240 I O N B M O B J . I M A G E B
0036260 O X F N ) \r
0036300
0036320 ( F U N C T I O N
0036340 B M O B J . P U T F N ) \r
0036360
0036400 ( F U
0036420 N C T I O N B M O B J . G E T
0036440 F N 3 ) \r
0036460
0036500 ( F U N C T I O N B
0036520 M O B J . C O P Y F N ) \r
0036540
0036560 ( F U
0036600 N C T I O N B M O B J . B U T
0036620 T O N E V E N T I N F N ) \r
0036640
0036660 ( F
0036700 U N C T I O N N I L L ) \r
0036720
0036740 ( F
0036760 U N C T I O N N I L L ) \r
0037000
0037020 ( F
0037040 U N C T I O N N I L L ) \r
0037060
0037100 ( F
0037120 U N C T I O N N I L L ) \r
0037140
0037160 ( F
0037200 U N C T I O N N I L L ) \r
0037220
0037240 ( F
0037260 U N C T I O N N I L L ) \r
0037300
0037320 ( F
0037340 U N C T I O N N I L L ) ) ) )
0037360 ) \r \r ( 006 004 B M O B J . G E T F
0037400 N 3 006 001 \r [ L A M B D A (
0037420 S T R E A M ) 006 006 006 001
0037440
*
0037500 006 006 ( * ; " E d
0037520 i t e d 1 7 - A p r - 8 7 1
0037540 3 : 3 4 b y j d s " ) 006 001 \r
0037560 \r 006 006 ( * ; ; ; " r e a d s
0037600 a b i t m a p i m a g e
0037620 o b j e c t f r o m a f i
0037640 l e . T h i s v e r s i o
0037660 n s t o r e s t h e b i n
0037700 a r y d a t a r a t h e r
0037720 t h a n t h e c h a r a c t
0037740 e r r e p r e s e n t a t i o
0037760 n u s e d b y R E A D B I
0040000 T M A P . " ) 006 001 \r \r (
0040020 C O N D \r ( ( I E
0040040 Q P ( \ P E E K B I N S T R
0040060 E A M ) \r
0040100 ( C H A R C O D E C R )
0040120 )
0040140
0040160 006 006 ( * ; \r 006 001
0040200
0040220 006 006 " T h i s i s a n
0040240 o l d - f o r m a t s k e t
0040260 c h w i t h b i t m a p i
0040300 n c l u d e d . S k i p t
0040320 h e i n t e r f e r i n g C
0040340 R . " ) 006 001 \r \r
0040360 ( B I N S T R E A M ) ) ) \r
0040400 ( P R O G ( ( S C A L E
0040420 ( F P L U S ( \ W I N S T
0040440 R E A M ) \r
0040460 (
0040500 F Q U O T I E N T ( \ W I N
0040520 S T R E A M ) \r
0040540
0040560 3 2 7 6 8 ) ) )
0040600 \r ( R O T
0040620 ( \ W I N S T R E A M ) ) )
0040640 \r ( R E T U
0040660 R N ( 006 002 B I T M A P T E D I
0040700 T O B J 006 001 ( 006 002 \ R E A D B
0040720 I N A R Y B I T M A P 006 001 S T
0040740 R E A M ) \r
0040760 S
0041000 C A L E R O T ] ) \r \r ( 006 004 B
0041020 M O B J . C R E A T E . M E N U
0041040 006 001 \r ( L A M B D A N I L
0041060 006 006 006 001
0041100
*
0041140 006 006 ( * j d s " 6
0041160 - N o v - 8 5 0 6 : 3 2 " ) 006
0041200 001 \r ( 006 002 c r e a t e 006
0041220 001 M E N U \r
0041240 T I T L E _ " O p e r a
0041260 t i o n s o n b i t m a p s
0041300 " \r I T E
0041320 M S _ ' ( ( C h a n g e %
0041340 S c a l e ' C H A N G E . S C
0041360 A L E " C h a n g e s t h e
0041400 s c a l e f a c t o r u s
0041420 e d a t o u t p u t t i m
0041440 e . " ) \r
0041460 ( H a n d %
0041500 E d i t ' H A N D . E D I T
0041520 " S t a r t s t h e b i t
0041540 m a p e d i t o r o n t h
0041560 i s b i t m a p . " ) \r
0041600
0041620 ( T r i m ' T R I M " r
0041640 e m o v e s t h e w h i t e
0041660 s p a c e f r o m t h e
0041700 e d g e s o f t h e b i t
0041720 m a p . " ) \r
0041740 ( R e f
0041760 l e c t % L e f t - t o - r i
0042000 g h t ' I N V E R T . H O R I
0042020 Z O N T A L L Y \r
0042040
0042060 " i n v e r t s t
0042100 h e b i t m a p a b o u t
0042120 t h e v e r t i c a l m i d
0042140 l i n e . " ) \r
0042160 ( R e
0042200 f l e c t % T o p - t o - b o
0042220 t t o m ' I N V E R T . V E R
0042240 T I C A L L Y \r
0042260
0042300 " i n v e r t s t h
0042320 e b i t m a p a b o u t t
0042340 h e h o r i z o n t a l m i
0042360 d l i n e . " ) \r
0042400 ( R
0042420 e f l e c t % D i a g o n a l
0042440 l y ' I N V E R T . D I A G O
0042460 N A L L Y \r
0042500
0042520 " i n v e r t s t h e
0042540 b i t m a p a b o u t t h e
0042560 l o w e r l e f t t o u
0042600 p p e r r i g h t d i a g o
0042620 n a l . " ) \r
0042640 ( R o t
0042660 a t e % L e f t ' R O T A T
0042700 E . B I T M A P . L E F T \r
0042720
0042740 " r o t a
0042760 t e s t h e b i t m a p 9
0043000 0 d e g r e e s c o u n t e
0043020 r - c l o c k w i s e . " ) \r
0043040
0043060 ( R o t a t e % R i g
0043100 h t ' R O T A T E . B I T M A
0043120 P . R I G H T " r o t a t e s
0043140 t h e b i t m a p 9 0 d
0043160 e g r e e s c l o c k w i s e
0043200 . " ) \r
0043220 ( | E x p a n
0043240 d o n R i g h t | ' S H I
0043260 F T . L E F T \r
0043300
0043320 " p r o m p t s f o
0043340 r a n u m b e r o f b i
0043360 t s t o a d d o n t h e
0043400 r i g h t . " ) \r
0043420 (
0043440 | E x p a n d o n L e f t |
0043460 ' S H I F T . R I G H T \r
0043500
0043520 " p r o m
0043540 p t s f o r a n u m b e r
0043560 o f b i t s t o a d d
0043600 o n t h e l e f t . " ) \r
0043620
0043640 ( | E x p a n d o n
0043660 B o t t o m | ' S H I F T . D
0043700 O W N \r
0043720
0043740 " p r o m p t s f o r a
0043760 n u m b e r o f b i t s t
0044000 o a d d o n t h e t o p
0044020 . " ) \r
0044040 ( | E x p a n
0044060 d o n T o p | ' S H I F T
0044100 . U P " p r o m p t s f o r
0044120 a n u m b e r o f b i t
0044140 s t o a d d o n t h e
0044160 b o t t o m . " ) \r
0044200 (
0044220 | S w i t c h B l a c k &
0044240 W h i t e | ' I N T E R C H A
0044260 N G E . B L A C K / W H I T E
0044300 \r
0044320 " c h
0044340 a n g e s a l l b l a c k
0044360 b i t s t o w h i t e a n
0044400 d a l l w h i t e b i t s
0044420 t o b l a c k . " ) \r
0044440
0044460 ( A d d % B o r d e r '
0044500 A D D . B O R D E R " a d d s
0044520 a n a r b i t r a r y b o
0044540 r d e r i n a n a r b i t
0044560 r a r y s h a d e . " ) ) \r
0044600 C E N T E R
0044620 F L G _ T \r
0044640 C H A N G E O F F S E T F
0044660 L G _ ' Y \r
0044700 M E N U O F F S E T _
0044720 ( 006 002 c r e a t e 006 001 P O S I
0044740 T I O N \r
0044760
0045000 X C O O R D _ - 1 \r
0045020
0045040 Y
0045060 C O O R D _ 0 ) ) ) ) \r ) \r
0045100 ( D E F I N E Q \r \r ( 006 004 S C A
0045120 L E D . B I T M A P . G E T F N
0045140 006 001 \r ( L A M B D A ( I N
0045160 P U T . S T R E A M T E X T S
0045200 T R E A M ) 006 006 006 001
0045220
0045240 006 006 ( * j d s " 3 0
0045260 - O c t - 8 5 1 1 : 2 9 " ) 006
0045300 001 \r \r
0045320 006 006 ( * r e a d
0045340 s i n a s c a l e d b i
0045360 t m a p o b j e c t w i t h
0045400 r e a d b i t m a p a n d
0045420 r e a d ) 006 001 \r \r ( P R
0045440 O G ( F A C T O R B I T M A
0045460 P ) \r ( S E
0045500 T Q B I T M A P ( R E A D B
0045520 I T M A P I N P U T . S T R E
0045540 A M ) ) \r (
0045560 S E T Q F A C T O R ( R E A
0045600 D I N P U T . S T R E A M ) )
0045620 \r ( R E T U
0045640 R N ( 006 002 B I T M A P T E D I
0045660 T O B J 006 001 B I T M A P ( F
0045700 Q U O T I E N T 1 . 0 F A C
0045720 T O R ) \r
0045740 0 )
0045760 ) ) ) ) \r \r ( 006 004 B M O B J . G
0046000 E T F N 006 001 \r ( L A M B D A
0046020 ( S T R E A M ) 006 006 006 001
0046040
*
0046100 006 006 ( * r r b
0046120 " 1 7 - J u l - 8 4 1 1 : 4
0046140 6 " ) 006 001 \r
0046160 \r 006 006 ( *
0046200 t h i s i s a n o l d v
0046220 e r s i o n o f t h e g e
0046240 t f u n c t i o n f o r b
0046260 i t m a p i m a g e o b j e
0046300 c t s . \r 006 001
0046320 006 006 I t i s l e f t a r
0046340 o u n d s o o l d t e d i
0046360 t d o c u m e n t s w i l l
0046400 s t i l l w o r k . \r 006 001
0046420 006 006 | 1 7 / 7
0046440 / 8 4 | ) 006 001 \r \r ( R E
0046460 S E T F O R M ( I N P U T S
0046500 T R E A M ) \r
0046520 ( P R O G ( ( F I E L D S
0046540 ( R E A D S T R E A M ) ) \r
0046560
0046600 ( B I T M A P ( R E A D B
0046620 I T M A P ) ) ) \r
0046640 ( R E T U R
0046660 N ( 006 002 B I T M A P T E D I T
0046700 O B J 006 001 B I T M A P ( C A
0046720 R F I E L D S ) \r
0046740
0046760 ( C A D R
0047000 F I E L D S ) ) ) ) ) ) ) \r \r (
0047020 006 004 B M O B J . G E T F N 2 006 001
0047040 \r ( L A M B D A ( S T R E
0047060 A M ) 006 006 006 001
0047100
*
0047140 006 006 ( * r r b " 1 7 - J
0047160 u l - 8 4 1 1 : 2 9 " ) 006 001 \r
0047200 \r
0047220 006 006 ( * * r e a d
0047240 s a b i t m a p i m a g e
0047260 o b j e c t f r o m a f
0047300 i l e . \r 006 001
0047320 006 006 T h i s v e r s i o n
0047340 s t o r e s t h e b i n a r
0047360 y d a t a r a t h e r t h
0047400 a n t h e c h a r a c t e r
0047420 r e p r e s e n t a t i o n
0047440 \r 006 001 006 006 u
0047460 s e d b y R E A D B I T M A
0047500 P . ) 006 001 \r \r ( P R O G
0047520 ( ( S C A L E ( \ W I N S
0047540 T R E A M ) ) \r
0047560 ( R O T ( \ W I N S T
0047600 R E A M ) ) ) \r
0047620 ( R E T U R N ( 006 002 B I T
0047640 M A P T E D I T O B J 006 001 ( 006
0047660 002 \ R E A D B I N A R Y B I T M
0047700 A P 006 001 S T R E A M ) \r
0047720
0047740 S C A L E R O T )
0047760 ) ) ) ) \r ) \r \r \r \r 006 004 ( * ;
0050000 " G E T F N s f o r b a c
0050020 k w a r d c o m p a t i b i l
0050040 i t y w i t h o l d e r o
0050060 b j e c t s . " ) 006 001 \r \r ( D E
0050100 C L A R E % : E V A L @ C O M
0050120 P I L E \r \r ( R E C O R D 006 002
0050140 B I T M A P O B J 006 001 ( B I T
0050160 M A P B M O B J S C A L E F A
0050200 C T O R B M O B J R O T A T I
0050220 O N ) ) \r ) \r \r \r \r 006 004 ( * ;
0050240 ; " m a k e ^ O b e a
0050260 c h a r a c t e r t h a t i
0050300 n s e r t s a n o b j e c t
0050320 r e a d f r o m t h e u
0050340 s e r . " ) 006 001 \r \r ( D E C L A
0050360 R E % : D O E V A L @ C O M P
0050400 I L E D O N T C O P Y \r \r ( G
0050420 L O B A L V A R S ( B I T M A
0050440 P . O B J . M E N U ) ) \r ) \r \r
0050460 ( A D D T O V A R 006 002 B a c k
0050500 g r o u n d C o p y M e n u C o
0050520 m m a n d s 006 001 ( S N A P (
0050540 F U N C T I O N ( B I T M A P
0050560 O B J . S N A P W ) ) \r
0050600
*
0050640 " p r o m p t s
0050660 f o r a n a r e a o f t
0050700 h e s c r e e n t o i n s
0050720 e r t . " ) ) \r \r ( A D D T O V
0050740 A R 006 002 I M A G E O B J G E T
0050760 F N S 006 001 ( B M O B J . G E T
0051000 F N ) ) \r \r ( A D D T O V A R
0051020 006 002 I M A G E O B J G E T F N S
0051040 006 001 ( B M O B J . G E T F N 2
0051060 ) ) \r \r ( A D D T O V A R 006 002
0051100 I M A G E O B J G E T F N S 006 001
0051120 ( S C A L E D . B I T M A P .
0051140 G E T F N ) ) \r \r ( R P A Q Q
0051160 006 002 B a c k g r o u n d C o p y
0051200 M e n u 006 001 N I L ) \r ( D E F
0051220 I N E Q \r \r ( 006 004 G E T . O B J
0051240 . F R O M . U S E R 006 001 \r (
0051260 L A M B D A ( T E X T S T R E
0051300 A M T E X T O B J ) 006 006 006 001
0051320
0051340 006 006
0051360 ( * j d s " 6 - M a r - 8
0051400 5 2 2 : 0 2 " ) 006 001 \r
0051420 \r
0051440 006 006 ( * r e a d s a n e
0051460 x p r e s s i o n f r o m t
0051500 h e u s e r a n d p u t s
0051520 t h e r e s u l t i n t o
0051540 t h e t e x t s t r e a m .
0051560 ) 006 001 \r \r ( E R S E T Q
0051600 ( P R O G ( ( V A L ( 006 002
0051620 P R O M P T F O R E V A L E D 006
0051640 001 " F o r m t o e v a l :
0051660 " ) ) \r
0051700 ( S E L ( 006 002 f
0051720 e t c h 006 001 ( T E X T O B J
0051740 S E L ) 006 002 o f 006 001 T E X T
0051760 O B J ) ) \r
0052000 B M ) \r
0052020 (
0052040 S E L E C T Q ( T Y P E N A M
0052060 E V A L ) \r
0052100 ( ( L
0052120 I T A T O M S T R I N G P )
0052140
0052160 006 006 ( * A t o m s a
0052200 n d s t r i n g s g e t i
0052220 n s e r t e d a s \r 006 001
0052240
*
0052320 006 006 t e x
0052340 t . ) 006 001 \r
0052360
0052400 ( A N D V A L ( T E D I T
0052420 . I N S E R T T E X T S T R E
0052440 A M V A L S E L ) ) ) \r
0052460
0052500 ( I M A G E O B J
0052520
0052540 006 006 ( *
0052560 I M A G E O B J s g e t i n
0052600 s e r t e d a s i s ) 006 001 \r
0052620
*
0052660 ( T E D I T . I N S E R T . O B
0052700 J E C T V A L T E X T S T R
0052720 E A M ( S E L E C T Q ( 006 002
0052740 f e t c h 006 001 P O I N T \r
0052760
*
0053060 006 002
0053100 o f 006 001 S E L ) \r
0053120
*
0053220 ( L E F T ( 006 002 f e t c h
0053240 006 001 ( S E L E C T I O N \r
0053260
*
0053400 C H # ) \r
0053420
*
0053520 006 002 o f 006 001
0053540 S E L ) ) \r
0053560
*
0053640 (
0053660 R I G H T ( 006 002 f e t c h 006 001
0053700 ( S E L E C T I O N \r
0053720
*
0054040 C H L I M ) \r
0054060
*
0054160 006 002 o f
0054200 006 001 S E L ) ) \r
0054220
*
0054320 N I L ) ) ) \r
0054340 ( C
0054360 O N D \r
0054400 ( ( S
0054420 E T Q B M ( 006 002 C O E R C E
0054440 T O B I T M A P 006 001 V A L ) )
0054460 \r \r
0054500 006 006 ( * I f i t
0054520 c a n b e c o e r c e d
0054540 t o a b i t m a p , d o
0054560 s o , t h e n w r a p t h
0054600 e b i t m a p u p a s a
0054620 \r 006 001 006 006
0054640 n o b j e c t ) 006 001 \r \r
0054660
0054700 ( T E D I T . I N S
0054720 E R T . O B J E C T ( 006 002 B I
0054740 T M A P T E D I T O B J 006 001 B
0054760 M 1 0 ) \r
0055000
0055020 T E X T S T R E
0055040 A M \r
0055060
0055100 ( S E L E C T Q ( 006 002
0055120 f e t c h 006 001 P O I N T 006 002
0055140 o f 006 001 S E L ) \r
0055160
0055200 (
0055220 L E F T ( 006 002 f e t c h 006 001
0055240 ( S E L E C T I O N C H # )
0055260 006 002 o f 006 001 S E L ) ) \r
0055300
*
0055340 ( R I G H T ( 006 002 f e t c
0055360 h 006 001 ( S E L E C T I O N C
0055400 H L I M ) 006 002 o f 006 001 S E L
0055420 ) ) \r
0055440
0055460 N I L ) ) ) \r
0055500
0055520 ( T \r
0055540 \r
0055560 006 006 ( * N o t a b i t m
0055600 a p , n o r o n e o f t
0055620 h e s p e c i a l c a s e s
0055640 a b o v e ; \r 006 001
0055660 006 006 c o m p l a i n ) 006
0055700 001 \r \r
0055720 (
0055740 A N D V A L ( T E D I T . I
0055760 N S E R T T E X T S T R E A M
0056000 ( M K S T R I N G V A L ) \r
0056020
*
0056060 S E L )
0056100 ) 006 006 (
0056120 * ( T E D I T . P R O M P T P
0056140 R I N T T E X T O B J \r 006 001
0056160
*
0056240 006 006 ( C
0056260 O N C A T " N o t i m p l e
0056300 m e n t e d t o h a v e "
0056320 V A L \r 006 001
0056340
*
0056420 006 006 " i n d o c u
0056440 m e n t s y e t . " ) T ) )
0056460 006 001 \r
0056500 )
0056520 ) ) ) ) ) ) \r \r ( 006 004 B I T M A
0056540 P O B J . S N A P W 006 001 \r (
0056560 L A M B D A N I L 006 006 006 001
0056600
*
0056640 006 006
0056660 ( * r r b " 1 6 - J u l - 8
0056700 4 1 9 : 3 5 " ) 006 001 \r
0056720 \r
0056740 006 006 ( * * m a k e s a n
0056760 i m a g e o b j e c t o f
0057000 a p r o m p t e d f o r
0057020 r e g i o n o f t h e s c
0057040 r e e n . ) 006 001 \r \r ( P
0057060 R O G ( ( R E G ( G E T R E
0057100 G I O N ) ) \r
0057120 B M ) \r
0057140 ( S E T Q B M ( B I T M A P
0057160 C R E A T E ( 006 002 f e t c h 006
0057200 001 ( R E G I O N W I D T H )
0057220 006 002 o f 006 001 R E G ) \r
0057240
0057260 ( 006 002 f e t c h 006
0057300 001 ( R E G I O N H E I G H T
0057320 ) 006 002 o f 006 001 R E G ) \r
0057340
0057360 ( B I T S P E R
0057400 P I X E L ( S C R E E N B I T
0057420 M A P ) ) ) ) \r
0057440 ( B I T B L T ( S C R E E
0057460 N B I T M A P ) \r
0057500 ( 006 002 f e t
0057520 c h 006 001 ( R E G I O N L E F
0057540 T ) 006 002 o f 006 001 R E G ) \r
0057560
0057600 ( 006 002 f e t c h 006 001 ( R E G I
0057620 O N B O T T O M ) 006 002 o f 006
0057640 001 R E G ) \r
0057660 B M 0 0 N
0057700 I L N I L ' I N P U T ' R
0057720 E P L A C E ) \r
0057740 ( C O P Y I N S E R T ( 006
0057760 002 B I T M A P T E D I T O B J 006
0060000 001 B M 1 0 ) ) \r
0060020 ( R E T U R N ) ) ) )
0060040 \r \r ( 006 004 P R O M P T F O R E V
0060060 A L E D 006 001 \r ( L A M B D A
0060100 ( M S G W H E R E F O N T
0060120 M I N W I D T H M I N H E I
0060140 G H T ) 006 006 006 001
0060160 006 006 ( * j d s
0060200 " 2 6 - S e p - 8 5 1 6 : 4
0060220 6 " ) 006 001 \r
0060240 \r 006 006 ( *
0060260 o p e n s a w i n d o w w
0060300 i t h M S G i n t h e t
0060320 i t l e a n d r e t u r n s
0060340 t h e r e s u l t o f e
0060360 v a l u a t i n g a \r 006 001
0060400 006 006 R E A D
0060420 f r o m t h a t w i n d o w
0060440 . ( P R O M P T F O R E V A L
0060460 E D " H O W ' S T H I S ? "
0060500 \r 006 001 006 006 (
0060520 Q U O T E ( 6 0 0 . 6 0 0
0060540 ) ) N I L 1 0 0 ) ) 006 001 \r \r
0060560 ( P R O G ( N E W V A
0060600 L U E W I N ( F O N T ( O
0060620 R F O N T ( F O N T C R E A
0060640 T E ' H E L V E T I C A 1 2
0060660 ' B O L D ) ) ) ) \r
0060700 ( R E S E T F O R M
0060720 ( 006 002 W I N D O W T I T L E F O
0060740 N T 006 001 F O N T ) \r
0060760 ( S E T
0061000 Q W I N ( C R E A T E W (
0061020 C O N D \r
0061040
0061060 ( ( R E
0061100 G I O N P W H E R E ) \r
0061120
*
0061160 W H E R E ) \r
0061200
*
0061240 ( T ( C R E A T E R E G
0061260 I O N \r
0061300
0061320 (
0061340 C O N D \r
0061360
*
0061420 ( 006 002 W H E R E 006 001 ( 006
0061440 002 f e t c h 006 001 ( P O S I T I
0061460 O N X C O O R D ) 006 002 o f 006
0061500 001 W H E R E ) ) \r
0061520
*
0061560 ( T L A S T M
0061600 O U S E X ) ) \r
0061620
*
0061660 ( C O N D \r
0061700
*
0061740 ( 006 002 W H E R E 006
0061760 001 ( 006 002 f e t c h 006 001 ( P O
0062000 S I T I O N Y C O O R D ) 006
0062020 002 o f 006 001 W H E R E ) ) \r
0062040
*
0062100 ( T L
0062120 A S T M O U S E Y ) ) \r
0062140
*
0062200 ( W I D T H I F W
0062220 I N D O W ( M A X ( S T R I
0062240 N G W I D T H M S G F O N T
0062260 ) \r
0062300
*
0062360 ( O R M I N W I D T H 0 )
0062400 \r
0062420
*
0062500 1 2 5 ) \r
0062520
*
0062560 8 ) \r
0062600
*
0062640 ( H E I G H T I F W I
0062660 N D O W ( M A X ( I T I M E
0062700 S ( F O N T P R O P ( D E F
0062720 A U L T F O N T \r
0062740
*
0063040 ' D I S
0063060 P L A Y ) \r
0063100
*
0063200 ' H E I G H T ) \r
0063220
*
0063320 3 ) \r
0063340
*
0063420 ( O R M I N H
0063440 E I G H T 0 ) \r
0063460
*
0063540 1 0 0 ) \r
0063560
*
0063640 T 8 ) ) ) ) \r
0063660
0063700 M S G 4 )
0063720 ) \r
0063740 ( C L E A R W W I N ) )
0063760 \r ( R E S E
0064000 T F O R M ( T T Y D I S P L A
0064020 Y S T R E A M W I N ) \r
0064040 ( S
0064060 E T Q N E W V A L U E ( C A
0064100 R ( E R S E T Q ( L I S P X
0064120 ( L I S P X R E A D T T )
0064140 \r
0064160
*
0064220 ' > ) ) ) ) ) \r
0064240 ( C L O S E W W
0064260 I N ) \r ( R
0064300 E T U R N N E W V A L U E ) )
0064320 ) ) \r ) \r ( D E C L A R E % :
0064340 D O N T E V A L @ L O A D D O
0064360 C O P Y \r ( B M O B J . I N I
0064400 T ) \r ) \r ( F I L E S L O A D
0064420 E D I T B I T M A P ) \r ( P U T
0064440 P R O P S I M A G E O B J C
0064460 O P Y R I G H T ( " X e r o x
0064500 C o r p o r a t i o n " 1 9
0064520 8 4 1 9 8 5 1 9 8 6 1 9 8
0064540 7 ) ) \r ( D E C L A R E % : D
0064560 O N T C O P Y \r ( F I L E M
0064600 A P ( N I L ( 2 2 5 3 6 4
0064620 0 4 ( B I T M A P T E D I T O
0064640 B J 2 2 6 3 . 2 7 5 9 )
0064660 ( C O E R C E T O B I T M A P
0064700 2 7 6 1 . 4 6 0 7 ) ( W I
0064720 N D O W T I T L E F O N T \r 4
0064740 6 0 9 . 4 9 5 6 ) ( \ P R
0064760 I N T B I N A R Y B I T M A P
0065000 4 9 5 8 . 5 7 4 9 ) ( \ R
0065020 E A D B I N A R Y B I T M A P
0065040 5 7 5 1 . 6 4 0 2 ) ) ( 6
0065060 4 5 5 1 9 0 0 7 ( \r B M O B
0065100 J . B U T T O N E V E N T I N F
0065120 N 6 4 6 5 . 1 0 2 4 6 )
0065140 ( B M O B J . C O P Y F N 1 0
0065160 2 4 8 . 1 0 8 4 6 ) ( B M
0065200 O B J . D I S P L A Y F N 1 0
0065220 8 4 8 . 1 3 1 1 0 ) ( \r B
0065240 M O B J . I M A G E B O X F N
0065260 1 3 1 1 2 . 1 4 1 7 1 ) (
0065300 B M O B J . P U T F N 1 4 1 7
0065320 3 . 1 5 1 5 8 ) ( B M O B
0065340 J . I N I T 1 5 1 6 0 . 1
0065360 6 1 1 3 ) ( B M O B J . G E T
0065400 F N 3 \r 1 6 1 1 5 . 1 6 9
0065420 0 6 ) ( B M O B J . C R E A T
0065440 E . M E N U 1 6 9 0 8 . 1
0065460 9 0 0 5 ) ) ( 1 9 0 0 8 2 0
0065500 4 7 0 ( S C A L E D . B I T M
0065520 A P . G E T F N 1 9 0 1 8 .
0065540 1 9 4 4 4 ) ( \r B M O B J .
0065560 G E T F N 1 9 4 4 6 . 1 9
0065600 9 8 1 ) ( B M O B J . G E T F
0065620 N 2 1 9 9 8 3 . 2 0 4 6 8
0065640 ) ) ( 2 1 1 3 2 2 6 8 3 6
0065660 ( G E T . O B J . F R O M . U S
0065700 E R 2 1 1 4 2 . 2 3 8 9 4
0065720 \r ) ( B I T M A P O B J . S N
0065740 A P W 2 3 8 9 6 . 2 4 6 0
0065760 8 ) ( P R O M P T F O R E V A
0066000 L E D 2 4 6 1 0 . 2 6 8 3
0066020 4 ) ) ) ) ) \r S T O P \r
0066034