$ od -c -N 50000 [eris]<Lisp>Harmony>Library>IMAGEOBJ.DCOM!3
0000000 ( F I L E C R E A T E D " 2 1
0000020 - N o v - 8 4 0 8 : 3 2 : 5 9
0000040 " ( " c o m p i l e d o n
0000060 " { I V Y } < T E D I T > I M
0000100 A G E O B J . ; 2 ) " 1 - N
0000120 o v - 8 4 1 4 : 1 4 : 1 4 "
0000140 \r t c o m p l ' d i n " I N
0000160 T E R L I S P - D 1 - N o v
0000200 - 8 4 . . . " d a t e d "
0000220 1 - N o v - 8 4 1 4 : 4 0 :
0000240 5 5 " ) \r ( F I L E C R E A T E
0000260 D " 5 - S e p - 8 4 1 8 :
0000300 5 3 : 2 9 " { E R I S } < T E
0000320 D I T > I M A G E O B J . ; 2 9
0000340 1 8 3 2 4 c h a n g e s t
0000360 o : ( F N S G E T . O B J .
0000400 F R O M . U S E R ) \r p r e v
0000420 i o u s d a t e : " 2 0 - A
0000440 u g - 8 4 1 5 : 0 7 : 0 7 "
0000460 { E R I S } < T E D I T > I M A
0000500 G E O B J . ; 2 8 ) \r B I T M A
0000520 P T E D I T O B J D 1 \r ( I
0000540 2 R O T A T I O N I 1 S
0000560 C A L E F A C T O R I 0 B
0000600 I T M A P F 0 B I T M A P
0000620 I M A G E F N S ) \0 9 \0 001 \0 003
0000640 @ A 265 003 k B 265 003 j h 032 032 032 P \t \0
0000660 \0 265 # g \0 \0 g \0 \0 g \0 \0 g \0 \0 g
0000700 \0 \0 g \0 \0 g \0 \0 d d d d d d \r \r
0000720 \0 \0 c \0 \n \0 \0 020 \0 ( 6 6 Q I M
0000740 A G E O B J C R E A T E 6 1 Q
0000760 I M A G E F N S C R E A T E
0001000 2 0 Q I M A G E F N S P ) \r (
0001020 4 7 Q N I L L 4 4 Q B M O
0001040 B J . B U T T O N E V E N T I N
0001060 F N 4 1 Q B M O B J . C O P
0001100 Y F N 3 6 Q B M O B J . G E
0001120 T F N 2 3 3 Q B M O B J . P
0001140 U T F N 3 0 Q B M O B J . I
0001160 M A G E B O X F N 2 5 Q B M
0001200 O B J . D I S P L A Y F N ) \r (
0001220 ) \r B M O B J . G E T F N 2 D
0001240 1 \r ( P 1 R O T P 0 S
0001260 C A L E I 0 S T R E A M )
0001300 \0 032 002 \0 \0 001 @ 341 @ 330 @ 341
0001320 @ 330 021 002 001 @ \t \0 \0 H I \v \0 \0 020
0001340 \0 ( 2 7 Q B I T M A P T E D I
0001360 T O B J 2 2 Q \ R E A D B I
0001400 N A R Y B I T M A P ) \r N I L \r
0001420 ( ) \r C O E R C E T O B I T M A
0001440 P D 1 \r ( P 1 C R P 0
0001460 B M I 0 B M S P E C )
0001500 \0 224 003 \0 \0 001 021 0 002 @ d 004 ` \0 \0 360
0001520 224 d 222 261 \0 205 004 l 004 360 262 023 @ g \0 \0
0001540 \n \0 \0 Z 004 ` \0 \0 360 264 o J 020 @ \t \0
0001560 \0 262 . @ 002 002 001 @ 002 002 002 001 ` \0 \0 \t
0001600 \0 \0 \v \0 \0 X ` \0 \0 @ 001 @ 002 001 H j
0001620 d h d g \0 \0 g \0 \0 \r \n \0 \0 H 020 @
0001640 \t \0 \0 264 5 @ g \0 \0 \n \0 \0 @ g \0 \0
0001660 \n \0 \0 \n \0 \0 X @ \t \0 \0 h @ \n \0 \0
0001700 Y @ I 001 I 002 001 H j d I 002 002 001 I 002
0001720 002 002 001 \r \b \0 \0 H 020 \0 ( 2 2 0 Q
0001740 B K B I T B L T 1 7 1 Q D S
0001760 P C L I P P I N G R E G I O N
0002000 1 6 4 Q T O T O P W 1 5 7 Q
0002020 B I T M A P C R E A T E 1 5
0002040 4 Q G E T W I N D O W P R O P
0002060 1 4 5 Q G E T W I N D O W P
0002100 R O P 1 3 4 Q W I N D O W P
0002120 1 2 6 Q B K B I T B L T 7
0002140 6 Q B I T M A P C R E A T E
0002160 7 3 Q B I T S P E R P I X E L
0002200 5 2 Q R E G I O N P 3 4 Q
0002220 E V A L V ) \r ( 1 5 1 Q H E
0002240 I G H T 1 4 2 Q W I D T H
0002260 1 2 2 Q R E P L A C E 1 1 7
0002300 Q I N P U T 1 0 2 Q S c r
0002320 e e n B i t M a p 7 0 Q S c
0002340 r e e n B i t M a p 4 1 Q 004
0002360 003 B I T M A P T Y P E # 3 1 Q
0002400 C O E R C E T O B I T M A P
0002420 1 0 Q 004 003 B I T M A P T Y P E
0002440 # ) \r ( ) \r P R O M P T F O R E
0002460 V A L E D A 0 0 0 1 D 1 \r ( N
0002500 A M E E R R O R S E T F 0
0002520 W H E R E F 1 M S G F
0002540 2 F O N T F 3 M A C R
0002560 O Y F 4 M I N W I D T H
0002600 F 5 M I N H E I G H T F
0002620 6 W I N ) \0 Y \0 \a 002 \0 P \t \0
0002640 \0 222 P 260 = P 265 L ` \0 \0 P 265 C ` \0
0002660 \0 Q R \n \0 \0 T 265 003 j \n \0 \0 l \b \n
0002700 \0 \0 g \0 \0 \t \0 \0 006 \0 \0 310 024 l 003 332
0002720 U 265 003 j \n \0 \0 i l \b \v \0 \0 \f \0 \0
0002740 Q l \b \v \0 \0 c \f \t \0 \0 c 006 i 020 002
0002760 260 301 001 260 270 \0 ( 1 1 5 Q C L E A
0003000 R W 1 1 0 Q C R E A T E W
0003020 1 0 2 Q C R E A T E R E G I O
0003040 N 7 7 Q H E I G H T I F W I
0003060 N D O W 7 1 Q M A X 5 2 Q
0003100 D E F A U L T F O N T 4 4 Q
0003120 W I D T H I F W I N D O W 3
0003140 7 Q M A X 3 0 Q S T R I N
0003160 G W I D T H 3 R E G I O N P
0003200 ) \r ( 5 5 Q F O N T D E S C R
0003220 I P T O R 4 7 Q D I S P L A
0003240 Y 2 3 Q L A S T M O U S E Y
0003260 1 5 Q L A S T M O U S E X )
0003300 \r ( ) \r P R O M P T F O R E V A
0003320 L E D A 0 0 0 2 A 0 0 0 3 D 1
0003340 \r ( N A M E E R R O R S E T )
0003360 \0 017 \0 \0 002 \0 i d \n \0 \0 g \0 \0 \n
0003400 \0 \0 h 032 020 \0 ( 1 2 Q L I S P X
0003420 4 L I S P X R E A D ) \r ( 7
0003440 > ) \r ( ) \r P R O M P T F O R
0003460 E V A L E D A 0 0 0 2 D 1 \r (
0003500 N A M E E R R O R S E T F
0003520 0 N E W V A L U E F 1 M
0003540 A C R O Y ) \0 020 \0 002 002 \0 o \0 \0
0003560 \0 i \n \0 \0 001 c \0 c 002 i 020 \0 ( 7
0003600 P R O M P T F O R E V A L E D A
0003620 0 0 0 2 A 0 0 0 3 ) \r N I L \r (
0003640 3 ( P R O M P T F O R E V A
0003660 L E D A 0 0 0 2 A 0 0 0 3 ) ) \r
0003700 P R O M P T F O R E V A L E D
0003720 D 1 \r ( P 6 R E S E T S T A
0003740 T E P 5 M A C R O Y P
0003760 3 O L D V A L U E P 2 W
0004000 I N P 1 N E W V A L U E
0004020 P 0 F O N T I 4 M I N
0004040 H E I G H T I 3 M I N W I
0004060 D T H I 2 F O N T I 1
0004100 W H E R E I 0 M S G F
0004120 7 R E S E T V A R S L S T )
0004140 \0 220 \a 001 \0 005 B 265 \r g \0 \0 l \f g
0004160 \0 \0 \v \0 \0 021 ! 002 H \t \0 \0 021 1 006 g
0004200 \0 \0 K h 032 032 h 032 W 016 032 c 016 274 o \0
0004220 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 276 L 002 c
0004240 016 277 g \0 \0 L 001 001 002 \n \0 \0 277 N 223 \b
0004260 \0 \0 277 023 J \t \0 \0 021 1 006 g \0 \0 K h
0004300 032 032 h 032 W 016 032 c 016 274 o \0 \0 \0 g \0
0004320 \0 \n \0 \0 243 g \0 \0 276 L 002 c 016 277 g \0
0004340 \0 L 001 001 002 \n \0 \0 277 N 223 \b \0 \0 277 023
0004360 J \t \0 \0 I 020 \0 ( 2 1 4 Q C L O
0004400 S E W 2 0 6 Q E R R O R !
0004420 2 0 0 Q A P P L Y 1 5 4 Q
0004440 P R O M P T F O R E V A L E D A
0004460 0 0 0 2 1 2 0 Q T T Y D I S
0004500 P L A Y S T R E A M 1 1 2 Q
0004520 E R R O R ! 1 0 4 Q A P P L
0004540 Y 6 0 Q P R O M P T F O R E
0004560 V A L E D A 0 0 0 1 2 4 Q W
0004600 I N D O W T I T L E F O N T 1
0004620 5 Q F O N T C R E A T E ) \r (
0004640 1 7 1 Q T T Y D I S P L A Y S
0004660 T R E A M 1 6 0 Q E R R O R
0004700 1 5 1 Q I N T E R N A L 1
0004720 2 6 Q T T Y D I S P L A Y S T
0004740 R E A M 7 5 Q W I N D O W T
0004760 I T L E F O N T 6 4 Q E R R
0005000 O R 5 5 Q I N T E R N A L
0005020 3 2 Q W I N D O W T I T L E F
0005040 O N T 1 2 Q B O L D 5 H
0005060 E L V E T I C A ) \r ( 1 4 6 Q
0005100 ( P R O M P T F O R E V A L E
0005120 D A 0 0 0 2 ) 5 2 Q ( P R O
0005140 M P T F O R E V A L E D A 0 0 0
0005160 1 ) ) \r W I N D O W T I T L E F
0005200 O N T D 1 \r ( I 0 F O N T
0005220 F 0 W i n d o w T i t l e
0005240 D i s p l a y S t r e a m ) \0
0005260 \a \0 001 \0 001 @ P \n \0 \0 020 \0 ( 4 D
0005300 S P F O N T ) \r N I L \r ( ) \r \
0005320 P R I N T B I N A R Y B I T M A
0005340 P D 1 \r ( P 1 B M H P
0005360 0 S T R E A M I 1 S T R
0005400 E A M I 0 B I T M A P )
0005420 \0 215 \v \0 \0 002 A g \0 \0 \n \0 \0 021 q \a
0005440 @ d 004 ` \0 \0 360 221 244 @ \t \0 \0 277 H @
0005460 \t \0 \0 273 Z K 343 \n \0 \0 277 J K l 377 345
0005500 \n \0 \0 277 H @ \t \0 \0 271 \ I 343 \n \0 \0
0005520 277 L I l 377 345 \n \0 \0 277 H @ \t \0 \0 276
0005540 ] N 343 \n \0 \0 277 M N l 377 345 \n \0 \0 277
0005560 H @ 006 \0 \0 311 \0 @ 006 \0 \0 310 002 I l 002
0005600 332 332 021 003 \n O 020 006 \0 \0 311 006 006 \0 \0 311
0005620 8 _ 016 277 O 020 O 022 j O 024 l 004 O 016 016
0005640 @ 020 \0 ( 1 3 0 Q \ B O U T 1
0005660 1 7 Q \ B O U T 1 1 0 Q B
0005700 I T S P E R P I X E L 1 0 2 Q
0005720 \ B O U T 7 1 Q \ B O U T
0005740 6 2 Q B I T M A P H E I G H
0005760 T 5 4 Q \ B O U T 4 3 Q
0006000 \ B O U T 3 4 Q B I T M A P
0006020 W I D T H 2 6 Q \ I L L E G
0006040 A L . A R G 6 G E T S T R E
0006060 A M ) \r ( 1 7 0 Q F D E V 1
0006100 6 3 Q S T R E A M 1 4 4 Q
0006120 B I T M A P 1 3 6 Q B I T M
0006140 A P 1 7 Q 004 003 B I T M A P T
0006160 Y P E # 3 O U T P U T ) \r (
0006200 ) \r \ R E A D B I N A R Y B I T
0006220 M A P D 1 \r ( P 3 B I T M
0006240 A P P 2 B P P P 1 B
0006260 M H P 0 B M W I 0 S
0006300 T R E A M ) \0 R \b \0 \0 001 @ g \0
0006320 \0 \n \0 \0 b \0 d 341 @ 330 @ 341 @
0006340 330 @ 341 @ 330 021 # 004 H I J \v \0
0006360 \0 [ @ K 006 \0 \0 311 \0 K 006 \0 \0 310 002 I
0006400 l 002 332 332 021 003 \a M 006 \0 \0 311 006 006 \0 \0
0006420 311 6 274 M N j O 016 l 004 L 016 K 020 \0 (
0006440 4 3 Q B I T M A P C R E A T E
0006460 6 G E T S T R E A M ) \r ( 1
0006500 0 2 Q F D E V 7 5 Q S T R
0006520 E A M 5 7 Q B I T M A P 5
0006540 1 Q B I T M A P 3 I N P U
0006560 T ) \r ( ) \r B M O B J . B U T T
0006600 O N E V E N T I N F N D 1 \r (
0006620 P 1 0 Q Y P 7 X P
0006640 6 T E M P P 5 N A M E
0006660 P 4 P R E V I O U S . B I T
0006700 M A P P 3 C O M M A N D
0006720 P 2 C O M M A N D . M E N U
0006740 P 1 N E W . B I T M A P
0006760 P 0 O B J I 1 W I N D
0007000 O W I 0 I M A G E O B J
0007020 F 1 3 Q B I T M A P . O B J
0007040 . M E N U ) 001 ! \v 001 \0 002 @ g \0
0007060 \0 \n \0 \0 021 241 \n H 001 \t \0 \0 \ W 026 004
0007100 ` \0 \0 360 223 W 026 260 S ` \0 \0 037 d o \0
0007120 \0 \0 024 022 277 d o \0 \0 \0 024 004 277 d i 024
0007140 \f 277 d g \0 \0 024 016 277 m 377 j 032 _ 022 277
0007160 d O 022 024 024 277 d g \0 \0 024 277 d g \0
0007200 \0 024 034 277 j d n 177 377 d h 032 032 032 032 _
0007220 024 277 d O 024 024 \n 277 c 026 \t \0 \0 d g \0
0007240 \0 360 227 277 L \t \0 \0 261 \0 235 d g \0 \0 360
0007260 227 277 L \t \0 \0 261 \0 217 d g \0 \0 360 227 277
0007300 L \t \0 \0 261 \0 201 d g \0 \0 360 226 277 L \t
0007320 \0 \0 260 s d g \0 \0 360 226 277 L \t \0 \0 260
0007340 f d g \0 \0 360 226 277 L \t \0 \0 260 Y d g
0007360 \0 \0 360 226 277 L \t \0 \0 260 L d g \0 \0 360
0007400 226 277 L \t \0 \0 260 ? d g \0 \0 360 226 277 L
0007420 \t \0 \0 260 2 d g \0 \0 360 226 277 L \t \0 \0
0007440 260 % d g \0 \0 360 226 277 L \t \0 \0 260 030 d
0007460 g \0 \0 360 225 277 L \t \0 \0 211 g \0 \0 360 264
0007500 \r L \t \0 \0 Y H I 030 g \0 \0 020 \0 ( 4
0007520 2 7 Q I N T E R A C T & A D D
0007540 . B O R D E R . T O . B I T M A
0007560 P 4 1 4 Q I N V E R T . B I
0007600 T M A P . B / W 3 7 7 Q I N
0007620 T E R A C T & S H I F T . B I T
0007640 M A P . U P 3 6 2 Q I N T E
0007660 R A C T & S H I F T . B I T M A
0007700 P . D O W N 3 4 5 Q I N T E
0007720 R A C T & S H I F T . B I T M A
0007740 P . R I G H T 3 3 0 Q I N T
0007760 E R A C T & S H I F T . B I T M
0010000 A P . L E F T 3 1 3 Q R O T
0010020 A T E . B I T M A P . R I G H T
0010040 2 7 6 Q R O T A T E . B I T
0010060 M A P . L E F T 2 6 1 Q I N
0010100 V E R T . B I T M A P . D I A G
0010120 O N A L L Y 2 4 4 Q I N V E
0010140 R T . B I T M A P . V E R T I C
0010160 A L L Y 2 2 6 Q I N V E R T
0010200 . B I T M A P . H O R I Z O N T
0010220 A L L Y 2 1 0 Q T R I M . B
0010240 I T M A P 1 7 2 Q E D I T B
0010260 M 1 5 7 Q M E N U 1 6 Q
0010300 B I T M A P C O P Y 6 I M A
0010320 G E O B J P R O P ) \r ( 4 3 6 Q
0010340 C H A N G E D 4 2 0 Q A D
0010360 D . B O R D E R 4 0 5 Q I N
0010400 T E R C H A N G E . B L A C K /
0010420 W H I T E 3 7 0 Q S H I F T
0010440 . U P 3 5 3 Q S H I F T . D
0010460 O W N 3 3 6 Q S H I F T . R
0010500 I G H T 3 2 1 Q S H I F T .
0010520 L E F T 3 0 4 Q R O T A T E
0010540 . B I T M A P . R I G H T 2 6
0010560 7 Q R O T A T E . B I T M A P
0010600 . L E F T 2 5 2 Q I N V E R
0010620 T . D I A G O N A L L Y 2 3 5
0010640 Q I N V E R T . V E R T I C A
0010660 L L Y 2 1 7 Q I N V E R T .
0010700 H O R I Z O N T A L L Y 2 0 1
0010720 Q T R I M 1 6 3 Q H A N D
0010740 . E D I T 1 2 3 Q D E F A U
0010760 L T M E N U H E L D F N 1 1 4
0011000 Q C L R P R O M P T 7 0 Q
0011020 Y 3 6 Q 004 003 M E N U T Y P E
0011040 # 2 5 Q 004 003 M E N U T Y P E
0011060 # 3 O B J E C T D A T U M )
0011100 \r ( 5 4 Q ( ( H A N D . E D
0011120 I T ( Q U O T E H A N D . E
0011140 D I T ) " S t a r t s t h e
0011160 b i t m a p e d i t o r o
0011200 n t h i s b i t m a p . " )
0011220 ( T R I M ( Q U O T E T R
0011240 I M ) " r e m o v e s t h e
0011260 w h i t e s p a c e f r o
0011300 m t h e e d g e s o f t
0011320 h e b i t m a p . " ) ( I N
0011340 V E R T . H O R I Z O N T A L L
0011360 Y ( Q U O T E I N V E R T .
0011400 H O R I Z O N T A L L Y ) " i
0011420 n v e r t s t h e b i t m a
0011440 p a b o u t t h e v e r t
0011460 i c a l m i d l i n e . " )
0011500 ( I N V E R T . V E R T I C A L
0011520 L Y ( Q U O T E I N V E R T
0011540 . V E R T I C A L L Y ) " i n
0011560 v e r t s t h e b i t m a p
0011600 a b o u t t h e h o r i z
0011620 o n t a l m i d l i n e . " )
0011640 ( I N V E R T . D I A G O N A
0011660 L L Y ( Q U O T E I N V E R
0011700 T . D I A G O N A L L Y ) " i
0011720 n v e r t s t h e b i t m a
0011740 p a b o u t t h e l o w e
0011760 r l e f t t o u p p e r
0012000 r i g h t d i a g o n a l . "
0012020 ) ( R O T A T E . B I T M A P
0012040 . L E F T ( Q U O T E R O T
0012060 A T E . B I T M A P . L E F T )
0012100 " r o t a t e s t h e b i
0012120 t m a p 9 0 d e g r e e s
0012140 c o u n t e r - c l o c k w i s
0012160 e . " ) ( R O T A T E . B I T
0012200 M A P . R I G H T ( Q U O T E
0012220 R O T A T E . B I T M A P . R
0012240 I G H T ) " r o t a t e s t
0012260 h e b i t m a p 9 0 d e g
0012300 r e e s c l o c k w i s e . "
0012320 ) ( S H I F T . L E F T ( Q
0012340 U O T E S H I F T . L E F T )
0012360 " p r o m p t s f o r a
0012400 n u m b e r o f b i t s t
0012420 o a d d o n t h e r i g
0012440 h t . " ) ( S H I F T . R I G
0012460 H T ( Q U O T E S H I F T .
0012500 R I G H T ) " p r o m p t s
0012520 f o r a n u m b e r o f
0012540 b i t s t o a d d o n t
0012560 h e l e f t . " ) ( S H I F
0012600 T . D O W N ( Q U O T E S H
0012620 I F T . D O W N ) " p r o m p
0012640 t s f o r a n u m b e r
0012660 o f b i t s t o a d d o
0012700 n t h e t o p . " ) ( S H
0012720 I F T . U P ( Q U O T E S H
0012740 I F T . U P ) " p r o m p t s
0012760 f o r a n u m b e r o f
0013000 b i t s t o a d d o n
0013020 t h e b o t t o m . " ) ( I
0013040 N T E R C H A N G E . B L A C K
0013060 / W H I T E ( Q U O T E I N
0013100 T E R C H A N G E . B L A C K /
0013120 W H I T E ) " c h a n g e s
0013140 a l l b l a c k b i t s t
0013160 o w h i t e a n d a l l
0013200 w h i t e b i t s t o b l
0013220 a c k . " ) ( A D D . B O R D
0013240 E R ( Q U O T E A D D . B O
0013260 R D E R ) " a d d s a n a
0013300 r b i t r a r y b o r d e r
0013320 i n a n a r b i t r a r y
0013340 s h a d e . " ) ) 4 4 Q " O
0013360 p e r a t i o n s o n b i t
0013400 m a p s " ) \r B M O B J . C O P
0013420 Y F N D 1 \r ( P 0 B M O B
0013440 J I 0 I M A G E O B J )
0013460 \0 033 001 \0 \0 001 @ g \0 \0 \n \0 \0 021 001 \0
0013500 H 001 \t \0 \0 H 002 001 H 002 002 001 \v \0 \0 020
0013520 \0 ( 3 0 Q B I T M A P T E D I
0013540 T O B J 1 6 Q B I T M A P C
0013560 O P Y 6 I M A G E O B J P R
0013600 O P ) \r ( 3 O B J E C T D A T
0013620 U M ) \r ( ) \r B M O B J . D I S
0013640 P L A Y F N D 1 \r ( I 1 S
0013660 T R E A M I 0 B M O B J )
0013700 \0 p \0 \0 \0 002 A \t \0 \0 d g \0 \0 360
0013720 262 034 @ g \0 \0 \n \0 \0 001 j d A h A \n
0013740 \0 \0 h A \n \0 \0 \r 006 \0 \0 020 d g \0 \0
0013760 360 262 % 277 A @ g \0 \0 \n \0 \0 001 h @ g
0014000 \0 \0 \n \0 \0 002 001 @ g \0 \0 \n \0 \0 002 002
0014020 001 \r 005 \0 \0 020 g \0 \0 360 264 033 @ g \0 \0
0014040 \n \0 \0 001 h A \n \0 \0 h A \n \0 \0 h d
0014060 A \r 006 \0 \0 020 \0 ( 1 5 5 Q \ W R
0014100 I T E P R E S S B I T M A P 1
0014120 4 6 Q D S P Y P O S I T I O N
0014140 1 4 1 Q D S P X P O S I T I
0014160 O N 1 3 3 Q I M A G E O B J
0014200 P R O P 1 1 5 Q S H O W B I
0014220 T M A P . I P 1 0 6 Q I M A
0014240 G E O B J P R O P 7 5 Q I M
0014260 A G E O B J P R O P 6 4 Q I
0014300 M A G E O B J P R O P 4 3 Q
0014320 B K B I T B L T 3 7 Q D S P
0014340 Y P O S I T I O N 3 2 Q D S
0014360 P X P O S I T I O N 2 1 Q I
0014400 M A G E O B J P R O P 3 I M
0014420 A G E S T R E A M T Y P E ) \r (
0014440 1 3 0 Q O B J E C T D A T U M
0014460 1 2 1 Q P R E S S 1 0 3 Q
0014500 O B J E C T D A T U M 7 2 Q
0014520 O B J E C T D A T U M 6 1 Q
0014540 O B J E C T D A T U M 5 0 Q
0014560 I N T E R P R E S S 1 6 Q
0014600 O B J E C T D A T U M 7 D I
0014620 S P L A Y ) \r ( ) \r B M O B J .
0014640 G E T F N A 0 0 0 1 D 1 \r ( N
0014660 A M E E R R O R S E T P 1
0014700 B I T M A P P 0 F I E L
0014720 D S F 2 S T R E A M F
0014740 3 M A C R O Y ) \0 031 002 002 002 \0
0014760 R \t \0 \0 \b \0 \0 021 002 001 I H 001 H 002 001
0015000 \v \0 \0 022 c 006 i 020 \0 ( 2 2 Q B I
0015020 T M A P T E D I T O B J 6 R
0015040 E A D B I T M A P 3 R E A D
0015060 ) \r N I L \r ( ) \r B M O B J . G
0015100 E T F N D 1 \r ( P 3 R E S
0015120 E T S T A T E P 2 M A C R
0015140 O Y P 0 O L D V A L U E
0015160 I 0 S T R E A M F 4 R
0015200 E S E T V A R S L S T ) \0 ; 004
0015220 001 \0 001 @ \t \0 \0 021 1 003 g \0 \0 H h 032
0015240 032 h 032 T 032 c \b Y o \0 \0 \0 g \0 \0 \n
0015260 \0 \0 243 g \0 \0 273 I 002 c \b g \0 \0 I 001
0015300 001 002 \n \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 6
0015320 6 Q E R R O R ! 6 1 Q A P
0015340 P L Y 3 6 Q B M O B J . G E
0015360 T F N A 0 0 0 1 3 I N P U T
0015400 ) \r ( 5 2 Q I N P U T 4 2 Q
0015420 E R R O R 3 3 Q I N T E R
0015440 N A L 1 1 Q I N P U T ) \r (
0015460 3 0 Q ( B M O B J . G E T F
0015500 N A 0 0 0 1 ) ) \r B M O B J . I
0015520 M A G E B O X F N D 1 \r ( P
0015540 3 S C A L E F A C T O R P
0015560 2 B M H P 1 B M W P
0015600 0 B M O B J I 1 S T R E
0015620 A M I 0 I M A G E O B J )
0015640 \0 217 004 \0 \0 002 @ g \0 \0 \n \0 \0 021 1
0015660 003 H 001 Z \t \0 \0 Y J \t \0 \0 Z A \t \0
0015700 \0 d g \0 \0 360 232 277 I J j d h 032 032 032
0015720 032 020 d g \0 \0 360 262 + H d 002 002 001 o \0
0015740 \0 \0 \n \0 \0 225 277 J I 272 271 H 002 001 [ I
0015760 l # 326 326 K J l # 326 326 j d h 032 032 032
0016000 032 020 g \0 \0 360 264 . H d 002 002 001 o \0 \0
0016020 \0 \n \0 \0 225 277 J I 272 271 H 002 001 [ I l
0016040 326 326 j 330 K J l 326 326 j 330 j d h
0016060 032 032 032 032 020 \0 ( 1 5 4 Q M E M B
0016100 7 5 Q M E M B 3 1 Q I M
0016120 A G E S T R E A M T Y P E 2 4
0016140 Q B I T M A P H E I G H T 1
0016160 7 Q B I T M A P W I D T H 6
0016200 I M A G E O B J P R O P ) \r (
0016220 1 3 5 Q P R E S S 5 6 Q I
0016240 N T E R P R E S S 3 5 Q D I
0016260 S P L A Y 3 O B J E C T D A
0016300 T U M ) \r ( 1 5 1 Q ( 1 3 2
0016320 Q 4 1 6 Q ) 7 2 Q ( 1 3 2
0016340 Q 4 1 6 Q ) ) \r B M O B J . P
0016360 U T F N D 1 \r ( I 1 S T R
0016400 E A M I 0 B M O B J ) \0
0016420 I 002 \0 \0 002 A @ g \0 \0 \n \0 \0 002 001 021
0016440 002 001 H I 343 \n \0 \0 277 H I l 377 345 \n \0
0016460 \0 023 A @ g \0 \0 \n \0 \0 002 002 001 021 002 001
0016500 H I 343 \n \0 \0 277 H I l 377 345 \n \0 \0 023
0016520 @ g \0 \0 \n \0 \0 001 A \n \0 \0 020 \0 ( 1
0016540 0 6 Q \ P R I N T B I N A R Y
0016560 B I T M A P 1 0 1 Q I M A G
0016600 E O B J P R O P 7 1 Q \ B O
0016620 U T 6 0 Q \ B O U T 4 4 Q
0016640 I M A G E O B J P R O P 3 3
0016660 Q \ B O U T 2 2 Q \ B O U
0016700 T 7 I M A G E O B J P R O P
0016720 ) \r ( 7 6 Q O B J E C T D A T
0016740 U M 4 1 Q O B J E C T D A T
0016760 U M 4 O B J E C T D A T U M
0017000 ) \r ( ) \r G E T . O B J . F R O
0017020 M . U S E R A 0 0 0 1 D 1 \r (
0017040 N A M E E R R O R S E T P
0017060 2 B M P 1 S E L P 0
0017100 V A L F 3 T E X T S T R
0017120 E A M F 4 T E X T O B J )
0017140 \0 247 003 002 002 \0 o \0 \0 \0 \t \0 \0 T 006
0017160 \0 \0 311 032 021 022 002 H \t \0 \0 d g \0 \0 360
0017200 245 d g \0 \0 360 233 277 H 264 S S H I \v \0
0017220 \0 260 I g \0 \0 360 262 + H S I 006 \0 \0 311
0017240 024 d g \0 \0 360 227 277 I 006 \0 \0 311 006 215 g
0017260 \0 \0 360 264 \n I 006 \0 \0 311 \n k 330 \v \0 \0
0017300 260 032 H \t \0 \0 Z 265 031 T o \0 \0 \0 H o
0017320 \0 \0 \0 \v \0 \0 i \v \0 \0 277 h 022 h 032 020
0017340 k j \v \0 \0 S I 006 \0 \0 311 024 d g \0 \0
0017360 360 227 277 I 006 \0 \0 311 006 215 g \0 \0 360 264 \n
0017400 I 006 \0 \0 311 \n k 330 \v \0 \0 260 317 \0 ( 2
0017420 4 3 Q T E D I T . I N S E R T
0017440 . O B J E C T 1 7 5 Q B I T
0017460 M A P T E D I T O B J 1 6 2 Q
0017500 T E D I T . P R O M P T P R I
0017520 N T 1 5 6 Q C O N C A T 1
0017540 3 6 Q C O E R C E T O B I T M
0017560 A P 1 3 0 Q T E D I T . I N
0017600 S E R T . O B J E C T 5 1 Q
0017620 T E D I T . I N S E R T 2 3 Q
0017640 T Y P E N A M E 6 P R O M
0017660 P T F O R E V A L E D ) \r ( 2 3
0017700 4 Q S E L E C T I O N 2 2 5
0017720 Q R I G H T 2 1 7 Q S E L
0017740 E C T I O N 2 1 0 Q L E F T
0017760 2 0 2 Q S E L E C T I O N
0020000 1 2 1 Q S E L E C T I O N 1
0020020 1 2 Q R I G H T 1 0 4 Q S
0020040 E L E C T I O N 7 5 Q L E F
0020060 T 6 7 Q S E L E C T I O N
0020100 5 6 Q I M A G E O B J 3 5 Q
0020120 S T R I N G 2 7 Q L I T A
0020140 T O M 1 2 Q T E X T O B J )
0020160 \r ( 1 5 3 Q " i n d o c
0020200 u m e n t s y e t . " 1 4 6
0020220 Q " N o t i m p l e m e n t
0020240 e d t o h a v e " 3 "
0020260 F o r m t o e v a l : " ) \r
0020300 G E T . O B J . F R O M . U S E
0020320 R D 1 \r ( I 1 T E X T O B
0020340 J I 0 T E X T S T R E A M
0020360 ) \0 \n \0 \0 \0 002 o \0 \0 \0 i \n \0 \0
0020400 020 \0 ( 7 G E T . O B J . F R O
0020420 M . U S E R A 0 0 0 1 ) \r N I L
0020440 \r ( 3 ( G E T . O B J . F R
0020460 O M . U S E R A 0 0 0 1 ) ) \r B
0020500 I T M A P O B J . S N A P W D
0020520 1 \r ( P 1 B M P 0 R E
0020540 G ) \0 < 002 \0 \0 \0 \b \0 \0 021 021 001 H
0020560 002 002 001 H 002 002 002 001 ` \0 \0 \t \0 \0 \v \0
0020600 \0 Y ` \0 \0 H 001 H 002 001 I j d h d g
0020620 \0 \0 g \0 \0 \r \n \0 \0 I k j \v \0 \0 \t
0020640 \0 \0 h 020 \0 ( 7 0 Q C O P Y I N
0020660 S E R T 6 5 Q B I T M A P T
0020700 E D I T O B J 5 7 Q B K B I
0020720 T B L T 2 7 Q B I T M A P C
0020740 R E A T E 2 4 Q B I T S P E
0020760 R P I X E L 2 G E T R E G I
0021000 O N ) \r ( 5 3 Q R E P L A C E
0021020 5 0 Q I N P U T 3 3 Q S
0021040 c r e e n B i t M a p 2 1 Q
0021060 S c r e e n B i t M a p ) \r ( )
0021100 \r ( P R E T T Y C O M P R I N T
0021120 I M A G E O B J C O M S ) \r (
0021140 R P A Q Q I M A G E O B J C O
0021160 M S ( ( C O M S ( * B i t
0021200 - m a p i m a g e o b j e c
0021220 t s ) ( F N S B I T M A P T
0021240 E D I T O B J B M O B J . G E
0021260 T F N 2 C O E R C E T O B I T
0021300 M A P \r P R O M P T F O R E V
0021320 A L E D W I N D O W T I T L E
0021340 F O N T \ P R I N T B I N A R
0021360 Y B I T M A P \ R E A D B I N
0021400 A R Y B I T M A P ) ( * f n
0021420 s f o r t h e b i t m a p
0021440 t e d i t \r o b j e c t . )
0021460 ( F N S B M O B J . B U T T
0021500 O N E V E N T I N F N B M O B
0021520 J . C O P Y F N B M O B J . D
0021540 I S P L A Y F N B M O B J . G
0021560 E T F N B M O B J . I M A G E
0021600 B O X F N \r B M O B J . P U T
0021620 F N ) ( R E C O R D S B I T
0021640 M A P O B J ) ( * m a k e
0021660 ^ O b e a c h a r a c t e
0021700 r t h a t i n s e r t s a
0021720 n o b j e c t r e a d f r
0021740 o m t h e u s e r . ) \r (
0021760 G L O B A L V A R S ( B I T M
0022000 A P . O B J . M E N U ) ) ( A
0022020 D D V A R S ( B a c k g r o u
0022040 n d C o p y M e n u C o m m a n
0022060 d s ( S N A P ( Q U O T E
0022100 ( B I T M A P O B J . S N A P W
0022120 ) ) \r " p r o m p t s f o r
0022140 a n a r e a o f t h e
0022160 s c r e e n t o i n s e r t
0022200 . " ) ) ) ( V A R S ( B a c
0022220 k g r o u n d C o p y M e n u )
0022240 ) ( F N S G E T . O B J . F
0022260 R O M . U S E R \r B I T M A P
0022300 O B J . S N A P W ) ( D E C L
0022320 A R E : D O N T E V A L @ L O
0022340 A D D O C O P Y ( P ( T E
0022360 D I T . S E T F U N C T I O N
0022400 ( C H A R C O D E ^ O ) ( F
0022420 U N C T I O N \r G E T . O B J
0022440 . F R O M . U S E R ) T E D I
0022460 T . R E A D T A B L E ) ) ) (
0022500 F I L E S E D I T B I T M A P
0022520 ) ) ) ) \r ( R E C O R D B I T
0022540 M A P O B J ( B I T M A P B
0022560 M O B J S C A L E F A C T O R
0022600 B M O B J R O T A T I O N ) ) \r
0022620 ( A D D T O V A R B a c k g r
0022640 o u n d C o p y M e n u C o m m
0022660 a n d s ( S N A P ( Q U O T
0022700 E ( B I T M A P O B J . S N A
0022720 P W ) ) \r " p r o m p t s f
0022740 o r a n a r e a o f t h
0022760 e s c r e e n t o i n s e
0023000 r t . " ) ) \r ( R P A Q Q B a
0023020 c k g r o u n d C o p y M e n u
0023040 N I L ) \r ( T E D I T . S E T
0023060 F U N C T I O N ( C H A R C O
0023100 D E ^ O ) ( F U N C T I O N
0023120 G E T . O B J . F R O M . U S
0023140 E R ) T E D I T . R E A D T A
0023160 B L E ) \r ( F I L E S L O A D
0023200 E D I T B I T M A P ) \r ( P U T
0023220 P R O P S I M A G E O B J C
0023240 O P Y R I G H T ( " X e r o x
0023260 C o r p o r a t i o n " 1 9
0023300 8 4 ) ) \r N I L \r
0023311