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