$ od -c -N 50000 [eris]<Lisp>Harmony>Library>READNUMBER.DCOM!1
0000000 ( F I L E C R E A T E D " 2 4
0000020 - A u g - 8 4 0 9 : 3 0 : 4 0
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 . ; 5 ) \r " 1 7 - A u
0000140 g - 8 4 1 6 : 2 3 : 2 3 " r
0000160 e c o m p i l e d c h a n g e
0000200 s : N U M B E R P A D . R E A
0000220 D i n " I N T E R L I S P -
0000240 D 1 7 - A u g - 8 4 . . . "
0000260 d a t e d \r " 1 7 - A u g -
0000300 8 4 1 7 : 1 8 : 0 0 " ) \r ( F
0000320 I L E C R E A T E D " 2 4 - A
0000340 u g - 8 4 0 9 : 3 0 : 1 6 "
0000360 { E R I S } < L I S P C O R E >
0000400 L I B R A R Y > R E A D N U M B
0000420 E R . ; 5 9 9 9 2 c h a n g
0000440 e s t o : ( F N S \r N U M
0000460 B E R P A D . R E A D ) p r e
0000500 v i o u s d a t e : " 1 0 -
0000520 A p r - 8 4 1 2 : 2 5 : 3 2 "
0000540 { E R I S } < L I S P C O R E
0000560 > L I B R A R Y > R E A D N U M
0000600 B E R . ; 2 ) \r \ R E A D N U M
0000620 B E R . F L A S H A R E A D 1
0000640 \r ( I 4 W I N I 3 H G
0000660 H T I 2 W D T H I 1
0000700 B T M I 0 L F T ) \0 1 \0
0000720 \0 \0 005 h d d D @ A B C g \0 \0 g \0
0000740 \0 n 377 377 \r \v \0 \0 l < \t \0 \0 h d d
0000760 D @ A B C g \0 \0 g \0 \0 n 377 377 \r \v
0001000 \0 \0 020 \0 ( 5 6 Q B K B I T B L
0001020 T 3 1 Q D I S M I S S 2 4
0001040 Q B K B I T B L T ) \r ( 4 7 Q
0001060 I N V E R T 4 4 Q T E X T
0001100 U R E 1 5 Q I N V E R T 1
0001120 2 Q T E X T U R E ) \r N I L \r
0001140 R N U M B E R D 1 \r ( I 3
0001160 D I G I T F O N T I 2 M S
0001200 G F O N T I 1 P O S I T I
0001220 O N I 0 M S G ) \0 \f \0 \0
0001240 \0 004 @ A B C \f \0 \0 \t \0 \0 020 \0 ( 1
0001260 1 Q N U M B E R P A D . R E A
0001300 D 6 C R E A T E . N U M B E
0001320 R P A D . R E A D E R ) \r N I L
0001340 \r N I L \r N U M B E R P A D . R
0001360 E A D A 0 0 0 1 D 1 \r ( N A M
0001400 E E R R O R S E T L ( 2
0001420 E R R O R S E T . W 1 E R R
0001440 O R S E T . V 0 E R R O R S
0001460 E T . U ) F 0 N U M B E R
0001500 P A D / R E A D E R F 1 R
0001520 E S E T V A R S L S T F 2
0001540 R E S E T Y ) \0 8 \0 003 \0 003 g \0
0001560 \0 P h 032 032 P \t \0 \0 h 032 032 Q 032 c 002
0001600 277 P \t \0 \0 277 P g \0 \0 \n \0 \0 253 P \t
0001620 \0 \0 277 l d \t \0 \0 260 355 P g \0 \0 \n \0
0001640 \0 c 004 i 020 \0 ( 6 2 Q G E T W I
0001660 N D O W U S E R P R O P 5 1 Q
0001700 D I S M I S S 4 3 Q T O T
0001720 O P W 3 6 Q P U T W I N D O
0001740 W P R O P 2 6 Q D I S P L A
0001760 Y / N U M B E R / R E A D E R /
0002000 T O T A L 1 2 Q O P E N W )
0002020 \r ( 5 7 Q T O T A L 3 3 Q
0002040 F I N I S H E D F L G 2 C L
0002060 O S E W ) \r ( ) \r N U M B E R P
0002100 A D . R E A D D 1 \r ( P 2
0002120 R E S E T Z P 1 R E S E T
0002140 Y P 0 L I S P X H I S T
0002160 I 0 N U M B E R P A D / R E
0002200 A D E R F 3 L I S P X H I
0002220 S T F 4 R E S E T V A R S
0002240 L S T ) \0 - 003 002 \0 001 @ g \0 \0 j
0002260 \v \0 \0 \b \0 \0 S 021 ! 002 T o \0 \0 \0 g
0002300 \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J
0002320 223 \b \0 \0 020 I 020 \0 ( 5 0 Q E R R
0002340 O R ! 4 3 Q R E S E T R E S
0002360 T O R E 3 1 Q N U M B E R P
0002400 A D . R E A D A 0 0 0 1 1 2 Q
0002420 S P A W N . M O U S E 7 P
0002440 U T W I N D O W P R O P ) \r ( 3
0002460 7 Q E R R O R 2 6 Q I N T
0002500 E R N A L 3 T O T A L ) \r (
0002520 2 3 Q ( D U M M Y . F O R .
0002540 E R R O R S E T ) ) \r C R E A T
0002560 E . N U M B E R P A D . R E A D
0002600 E R A 0 0 0 1 D 1 \r ( N A M E
0002620 E R R O R S E T L ( 2 E
0002640 R R O R S E T . W 1 E R R O
0002660 R S E T . V 0 E R R O R S E
0002700 T . U ) P 1 3 Q X P 1
0002720 2 Q R M A R G P 1 0 Q T
0002740 O T A L W I D T H P 7 N U
0002760 M B E R P A D P 6 T O T A
0003000 L R E G I O N P 5 P A D L
0003020 E F T P 4 R E A D E R W I
0003040 D T H P 3 W I N P 2
0003060 M S G F O N T P 1 D I G I
0003100 T F O N T P 0 N U M B E R
0003120 / R E A D E R / M A X D I G I T
0003140 S F 1 4 Q M S G F 1 5
0003160 Q D I G I T F O N T F 1 6
0003200 Q M S G F O N T F 1 7 Q
0003220 W P O S I T I O N F 2 0 Q
0003240 M A C R O Y ) 001 210 \f 005 \0 003 l 006
0003260 W 032 265 \r g \0 \0 l \f g \0 \0 \v \0 \0 W
0003300 034 265 \r g \0 \0 l \f g \0 \0 \v \0 \0 021 s
0003320 \t ` \0 \0 037 d o \0 \0 \0 024 004 277 d l 003
0003340 024 \b 277 d i 024 \f 277 d I 024 020 277 d g \0
0003360 \0 024 034 277 d g \0 \0 024 026 277 d l 002 024 032
0003400 277 d g \0 \0 024 277 j d n 177 377 d h 032
0003420 032 032 032 _ 022 277 d O 022 024 \n 277 d 006 \0 \0
0003440 311 \n 002 002 002 I \t \0 \0 l 002 330 030 277 _ 016
0003460 277 W 036 H k 330 l 0 I \n \0 \0 332 _ 020 l
0003500 \f 330 ] O 016 \t \0 \0 006 \0 \0 310 004 330 \ \t
0003520 \0 \0 W 030 265 = j O 016 \t \0 \0 006 \0 \0 310
0003540 003 330 \t \0 \0 \v \0 \0 h d i \f \0 \0 273 W
0003560 030 262 b J K \n \0 \0 277 K \t \0 \0 277 W 030
0003600 d 003 262 L 277 h K \n \0 \0 021 021 \v W 030 260
0003620 : J \n \0 \0 L 333 l 002 330 J \t \0 \0 332 260
0003640 270 d 001 _ 026 277 h K \n \0 \0 O 026 K \n \0
0003660 \0 330 O 024 361 224 K \t \0 \0 277 O 026 K \n \0
0003700 \0 277 k K \n \0 \0 277 002 003 265 327 023 204 K \n
0003720 \0 \0 277 K \t \0 \0 277 O 016 K M j 032 \v \0
0003740 \0 277 K g \0 \0 l 006 O 016 \t \0 \0 006 \0 \0
0003760 310 003 l 002 333 O 020 I \t \0 \0 h 032 032 032 032
0004000 ^ \v \0 \0 277 N K l 002 \v \0 \0 277 I K \n
0004020 \0 \0 277 K g \0 \0 j \v \0 \0 277 K g \0 \0
0004040 H \v \0 \0 277 K \t \0 \0 277 K \t \0 \0 277 K
0004060 022 c i 020 \0 ( 5 7 7 Q C L O S
0004100 E W 5 7 2 Q D I S P L A Y /
0004120 N U M B E R / R E A D E R / T O
0004140 T A L 5 6 5 Q P U T W I N D
0004160 O W P R O P 5 5 4 Q P U T W
0004200 I N D O W P R O P 5 4 3 Q D
0004220 S P F O N T 5 3 5 Q \ R E A
0004240 D N U M B E R . O U T L I N E R
0004260 E G I O N 5 2 5 Q P U T W I
0004300 N D O W P R O P 5 1 4 Q F O
0004320 N T H E I G H T 4 7 6 Q C H
0004340 E C K / M E N U / I M A G E 4
0004360 6 2 Q A D D M E N U 4 5 0 Q
0004400 O P E N W 4 4 3 Q P R I N
0004420 1 4 3 0 Q S P A C E S 4 2
0004440 2 Q P R I N 3 4 1 3 Q T E
0004460 R P R I 4 0 2 Q S T R I N G
0004500 W I D T H 3 7 4 Q D S P X P
0004520 O S I T I O N 3 5 7 Q F O N
0004540 T H E I G H T 3 4 6 Q S T R
0004560 I N G W I D T H 3 3 3 Q D S
0004600 P R I G H T M A R G I N 3 1 6
0004620 Q M O V E T O U P P E R L E F
0004640 T 3 1 1 Q D S P F O N T 2
0004660 7 7 Q C R E A T E W 2 7 1 Q
0004700 R E G I O N O N S C R E E N
0004720 2 6 6 Q H E I G H T I F W I N
0004740 D O W 2 5 5 Q C H E C K / M
0004760 E N U / I M A G E 2 4 3 Q W
0005000 I D T H I F W I N D O W 2 3 1
0005020 Q C H E C K / M E N U / I M A
0005040 G E 2 1 5 Q C H A R W I D T
0005060 H 1 7 2 Q F O N T H E I G H
0005100 T 3 7 Q F O N T C R E A T E
0005120 2 0 Q F O N T C R E A T E )
0005140 \r ( 5 6 1 Q M A X D I G I T S
0005160 5 5 0 Q T O T A L 5 0 1 Q
0005200 B I T M A P 4 6 7 Q T O T
0005220 A L R E G 2 6 0 Q B I T M A
0005240 P 2 3 4 Q B I T M A P 1 6
0005260 1 Q M E N U 1 2 6 Q C L R
0005300 P R O M P T 1 1 1 Q N U M B
0005320 E R . R E A D E R . H A N D L E
0005340 R 1 0 2 Q N U M B E R P A D
0005360 . H E L D F N 4 5 Q 004 003 M E
0005400 N U T Y P E # 3 4 Q B O L D
0005420 2 7 Q G A C H A 1 5 Q B
0005440 O L D 1 0 Q G A C H A ) \r (
0005460 5 3 Q ( - % c l r 1
0005500 2 3 4 5 6 7 1 0 Q
0005520 1 1 Q b s 0 o k ) ) \r C
0005540 R E A T E . N U M B E R P A D .
0005560 R E A D E R D 1 \r ( P 3 R
0005600 E S E T S T A T E P 2 M A
0005620 C R O Y P 0 O L D V A L U
0005640 E I 3 D I G I T F O N T
0005660 I 2 M S G F O N T I 1
0005700 W P O S I T I O N I 0 M S
0005720 G F 4 R E S E T V A R S L
0005740 S T ) \0 < 004 001 \0 004 l \n \t \0 \0 021
0005760 1 003 g \0 \0 H h 032 032 h 032 T 032 c \b Y
0006000 o \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273 I
0006020 002 c \b g \0 \0 I 001 001 002 \n \0 \0 K 223 \b
0006040 \0 \0 020 J 020 \0 ( 6 7 Q E R R O R
0006060 ! 6 2 Q A P P L Y 3 7 Q
0006100 C R E A T E . N U M B E R P A D
0006120 . R E A D E R A 0 0 0 1 4 R
0006140 A D I X ) \r ( 5 3 Q R A D I X
0006160 4 3 Q E R R O R 3 4 Q I
0006200 N T E R N A L 1 2 Q R A D I
0006220 X ) \r ( 3 1 Q ( D U M M Y .
0006240 F O R . E R R O R S E T ) ) \r R
0006260 E G I O N O N S C R E E N D 1
0006300 \r ( P 1 B O T T O M P 0
0006320 L E F T I 2 H E I G H T
0006340 I 1 W I D T H I 0 P
0006360 O S ) \0 Q 004 \0 \0 003 021 @ 003 @ \t \0
0006400 \0 225 @ 001 270 @ 002 212 \b \0 \0 277 ` \0 \0 270
0006420 ` \0 \0 271 H A 330 ` \0 \0 361 235 ` \0 \0 A
0006440 331 272 j J 361 241 J 200 j 270 I B 330 n 003 (
0006460 361 235 n 003 ( B 331 273 j K 361 241 K 200 j 271
0006500 H I A B h 032 032 032 032 020 \0 ( 2 0 Q
0006520 G E T M O U S E S T A T E 6
0006540 P O S I T I O N P ) \r ( 4 4 Q
0006560 S C R E E N W I D T H 3 7 Q
0006600 S C R E E N W I D T H 3 0 Q
0006620 L A S T M O U S E Y 2 4 Q L
0006640 A S T M O U S E X ) \r N I L \r D
0006660 I S P L A Y / N U M B E R / R E
0006700 A D E R / T O T A L A 0 0 0 1
0006720 D 1 \r ( N A M E E R R O R S E
0006740 T L ( 2 E R R O R S E T .
0006760 W 1 E R R O R S E T . V 0
0007000 E R R O R S E T . U ) F 0
0007020 W I N F 1 T O T A L R E
0007040 G F 2 M A C R O Y ) \0 021
0007060 \0 003 \0 003 P g \0 \0 \n \0 \0 Q P \v \0 \0
0007100 c 004 i 020 \0 ( 1 3 Q C E N T E R
0007120 P R I N T I N R E G I O N 6
0007140 G E T W I N D O W U S E R P R O
0007160 P ) \r ( 3 T O T A L ) \r ( ) \r
0007200 D I S P L A Y / N U M B E R / R
0007220 E A D E R / T O T A L D 1 \r (
0007240 P 4 R E S E T S T A T E P
0007260 3 M A C R O Y P 1 O L
0007300 D V A L U E P 0 T O T A L
0007320 R E G I 0 W I N F 5
0007340 R E S E T V A R S L S T ) \0 Q
0007360 005 001 \0 001 @ g \0 \0 \n \0 \0 021 001 \0 H j
0007400 g \0 \0 @ \f \0 \0 l \n \t \0 \0 021 1 004 g
0007420 \0 \0 I h 032 032 h 032 U 032 c \n 272 o \0 \0
0007440 \0 g \0 \0 \n \0 \0 243 g \0 \0 274 J 002 c \n
0007460 277 g \0 \0 J 001 001 002 \n \0 \0 277 L 264 006 \b
0007500 \0 \0 h 020 \0 ( 1 1 5 Q E R R O R
0007520 ! 1 0 6 Q A P P L Y 6 2 Q
0007540 D I S P L A Y / N U M B E R /
0007560 R E A D E R / T O T A L A 0 0 0
0007600 1 2 7 Q R A D I X 2 2 Q
0007620 D S P F I L L 6 G E T W I N
0007640 D O W U S E R P R O P ) \r ( 7 7
0007660 Q R A D I X 6 6 Q E R R O
0007700 R 5 7 Q I N T E R N A L 3
0007720 5 Q R A D I X 1 6 Q R E P
0007740 L A C E 3 T O T A L R E G )
0007760 \r ( 5 4 Q ( D U M M Y . F O
0010000 R . E R R O R S E T ) ) \r N U M
0010020 B E R . R E A D E R . H A N D L
0010040 E R D 1 \r ( P 1 T O T A L
0010060 P 0 W I N I 2 B U T
0010100 T O N I 1 M E N U I 0
0010120 D I G I T ) \0 207 002 \0 \0 003 A \t
0010140 \0 \0 021 021 001 H g \0 \0 \n \0 \0 Y H g \0
0010160 \0 @ d g \0 \0 360 226 277 I l \n 333 260 ^ g
0010200 \0 \0 360 222 j 260 V @ d g \0 \0 360 224 277 j
0010220 I 260 I g \0 \0 360 222 I 260 B @ g \0 \0 360
0010240 231 H g \0 \0 i \v \0 \0 h 020 H g \0 \0 \n
0010260 \0 \0 I \t \0 \0 \t \0 \0 360 236 j d n 003 350
0010300 d H \r 005 \0 \0 277 I 260 023 j I 361 246 I l
0010320 \n 332 @ 330 205 I l \n 332 @ 331 \v \0 \0 H \t
0010340 \0 \0 h 020 \0 ( 2 0 3 Q D I S P L
0010360 A Y / N U M B E R / R E A D E R
0010400 / T O T A L 1 7 7 Q P U T W
0010420 I N D O W P R O P 1 4 7 Q \
0010440 R E A D N U M B E R . F L A S H
0010460 A R E A 1 3 2 Q N C H A R S
0010500 1 2 7 Q A B S 1 2 3 Q G
0010520 E T W I N D O W P R O P 1 1 2
0010540 Q P U T W I N D O W P R O P
0010560 1 5 Q G E T W I N D O W P R O
0010600 P 3 W F R O M M E N U ) \r (
0010620 1 2 0 Q M A X D I G I T S 1
0010640 0 6 Q F I N I S H E D F L G
0010660 1 0 0 Q o k 6 7 Q % 5
0010700 5 Q - 4 3 Q c l r 2 7 Q
0010720 b s 2 2 Q T O T A L 1 2
0010740 Q T O T A L ) \r N I L \r N U M
0010760 B E R P A D . H E L D F N D 1
0011000 \r ( I 2 B U T T O N I 1
0011020 M E N U I 0 I T E M )
0011040 \0 E \0 \0 \0 003 @ d g \0 \0 360 226 277 o \0
0011060 \0 \0 260 4 g \0 \0 360 225 o \0 \0 \0 260 ) @
0011100 d g \0 \0 360 226 277 o \0 \0 \0 260 033 g \0 \0
0011120 360 224 o \0 \0 \0 216 @ g \0 \0 360 224 o \0 \0
0011140 \0 203 o \0 \0 \0 \t \0 \0 020 \0 ( 1 0 2 Q
0011160 P R O M P T P R I N T ) \r ( 6
0011200 4 Q % 5 1 Q - 3 5 Q
0011220 c l r 2 0 Q o k 4 b s )
0011240 \r ( 7 7 Q " W i l l p u t
0011260 t h i s d i g i t o n t h
0011300 e r i g h t o f t h e t
0011320 o t a l . " 7 2 Q " d o e s
0011340 n ' t d o a n y t h i n g .
0011360 " 5 7 Q " w i l l c h a
0011400 n g e t h e s i g n o f
0011420 t h e t o t a l " 4 4 Q "
0011440 W i l l r e s e t t h e t
0011460 o t a l t o 0 " 2 6 Q "
0011500 I n d i c a t e s t h a t y
0011520 o u a r e t h r o u g h e
0011540 n t e r i n g t h e n u m b
0011560 e r . " 1 3 Q " W i l l e
0011600 r a s e t h e l a s t d i
0011620 g i t e n t e r e d . " ) \r \
0011640 R E A D N U M B E R . O U T L I
0011660 N E R E G I O N D 1 \r ( P 0
0011700 N I 2 O U T L I N E S I
0011720 Z E I 1 W I N I 0 R
0011740 E G ) \0 _ 001 \0 \0 003 B d 005 001 241 005
0011760 002 265 004 l 002 021 001 \0 h d d A @ 001 H 331
0012000 @ 002 001 H 331 @ 002 002 001 H l 002 332 330 @ 002
0012020 002 002 001 H l 002 332 330 g \0 \0 g \0 \0 n 377
0012040 377 \r \v \0 \0 h d d A @ 001 @ 002 001 @ 002
0012060 002 001 @ 002 002 002 001 g \0 \0 g \0 \0 h A \n
0012100 \0 \0 \r \v \0 \0 h 020 \0 ( 1 3 3 Q B
0012120 K B I T B L T 1 2 7 Q D S P
0012140 T E X T U R E 7 2 Q B K B I
0012160 T B L T ) \r ( 1 2 2 Q R E P L
0012200 A C E 1 1 7 Q T E X T U R E
0012220 6 3 Q R E P L A C E 6 0 Q
0012240 T E X T U R E ) \r N I L \r ( P
0012260 R E T T Y C O M P R I N T R E
0012300 A D N U M B E R C O M S ) \r ( R
0012320 P A Q Q R E A D N U M B E R C
0012340 O M S ( ( F N S \ R E A D N
0012360 U M B E R . F L A S H A R E A
0012400 R N U M B E R N U M B E R P A
0012420 D . R E A D C R E A T E . N U
0012440 M B E R P A D . R E A D E R \r
0012460 R E G I O N O N S C R E E N D
0012500 I S P L A Y / N U M B E R / R E
0012520 A D E R / T O T A L N U M B E
0012540 R . R E A D E R . H A N D L E R
0012560 N U M B E R P A D . H E L D F
0012600 N \r \ R E A D N U M B E R . O
0012620 U T L I N E R E G I O N ) ) ) \r
0012640 ( P U T P R O P S R E A D N U
0012660 M B E R C O P Y R I G H T (
0012700 " X e r o x C o r p o r a t i
0012720 o n " 1 9 8 2 1 9 8 3 1 9
0012740 8 4 ) ) \r N I L \r
0012751