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