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