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