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