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