$ od -c -N 50000 [eris]<Lisp>LIBRARY>READNUMBER.DCOM!1
0000000 ( F I L E C R E A T E D " 3 1
0000020 - A U G - 8 3 2 1 : 2 1 : 2 6
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P U
0000100 S E R S > R E A D N U M B E R .
0000120 ; 9 ) \r " 2 8 - A U G - 8 3
0000140 1 8 : 3 9 : 4 0 " t c o m p l
0000160 ' d i n W O R K d a t e d
0000200 " 2 8 - A U G - 8 3 1 8 : 5
0000220 3 : 5 1 " ) \r ( F I L E C R E A
0000240 T E D " 1 5 - J U L - 8 3 1
0000260 5 : 5 8 : 3 0 " { P H Y L U M
0000300 } < L I S P U S E R S > R E A D
0000320 N U M B E R . ; 9 9 7 1 4 c
0000340 h a n g e s t o : ( F N S
0000360 \r N U M B E R P A D . R E A D )
0000400 p r e v i o u s d a t e :
0000420 " 7 - F E B - 8 3 1 6 : 1 4
0000440 : 3 0 " { P H Y L U M } < L I
0000460 S P U S E R S > R E A D N U M B
0000500 E R . ; 8 ) \r \ R E A D N U M B
0000520 E R . F L A S H A R E A D 1 \r
0000540 ( I 4 W I N I 3 H G H
0000560 T I 2 W D T H I 1 B
0000600 T M I 0 L F T ) \0 1 \0 \0
0000620 \0 005 h d d D @ A B C g \0 \0 g \0 \0
0000640 n 377 377 \r \v \0 \0 l < \t \0 \0 h d d D
0000660 @ A B C g \0 \0 g \0 \0 n 377 377 \r \v \0
0000700 \0 020 \0 ( 5 6 Q B K B I T B L T
0000720 3 1 Q D I S M I S S 2 4 Q
0000740 B K B I T B L T ) \r ( 4 7 Q
0000760 I N V E R T 4 4 Q T E X T U
0001000 R E 1 5 Q I N V E R T 1 2
0001020 Q T E X T U R E ) \r N I L \r R
0001040 N U M B E R D 1 \r ( I 3 D
0001060 I G I T F O N T I 2 M S G
0001100 F O N T I 1 P O S I T I O
0001120 N I 0 M S G ) \0 \f \0 \0 \0
0001140 004 @ A B C \f \0 \0 \t \0 \0 020 \0 ( 1 1
0001160 Q N U M B E R P A D . R E A D
0001200 6 C R E A T E . N U M B E R
0001220 P A D . R E A D E R ) \r N I L \r
0001240 N I L \r N U M B E R P A D . R E
0001260 A D D 1 \r ( P 0 A N S W E
0001300 R I 0 N U M B E R P A D /
0001320 R E A D E R ) \0 1 001 \0 \0 001 021 020
0001340 \0 @ g \0 \0 j \v \0 \0 @ \t \0 \0 @ \t \0
0001360 \0 \b \0 \0 @ g \0 \0 \n \0 \0 245 \b \0 \0 277
0001400 260 364 @ \t \0 \0 @ g \0 \0 \n \0 \0 020 \0 (
0001420 5 6 Q G E T W I N D O W P R O
0001440 P 4 7 Q C L O S E W 4 0 Q
0001460 \ B A C K G R O U N D 3 4 Q
0001500 P U T W I N D O W P R O P 2
0001520 5 Q S P A W N . M O U S E 2
0001540 2 Q D I S P L A Y / N U M B E
0001560 R / R E A D E R / T O T A L 1
0001600 6 Q O P E N W 1 2 Q P U T
0001620 W I N D O W P R O P ) \r ( 5 3 Q
0001640 T O T A L 3 1 Q F I N I S
0001660 H E D F L G 6 T O T A L ) \r
0001700 N I L \r C R E A T E . N U M B E
0001720 R P A D . R E A D E R D 1 \r (
0001740 P 1 3 Q X P 1 2 Q R M
0001760 A R G P 1 0 Q T O T A L W
0002000 I D T H P 7 N U M B E R P
0002020 A D P 6 T O T A L R E G I
0002040 O N P 5 P A D L E F T P
0002060 4 R E A D E R W I D T H P
0002100 3 W I N P 2 M S G F O
0002120 N T P 1 D I G I T F O N T
0002140 P 0 N U M B E R / R E A D
0002160 E R / M A X D I G I T S I 3
0002200 D I G I T F O N T I 2 M
0002220 S G F O N T I 1 W P O S I
0002240 T I O N I 0 M S G ) 001 m
0002260 \f \0 \0 004 l 006 C 265 \r g \0 \0 l \f g \0
0002300 \0 \v \0 \0 B 265 \r g \0 \0 l \f g \0 \0 \v
0002320 \0 \0 021 s \t ` \0 \0 037 d o \0 \0 \0 024 004
0002340 277 d l 003 024 \b 277 d i 024 \f 277 d I 024 020
0002360 277 d g \0 \0 024 034 277 d g \0 \0 024 026 277 d
0002400 l 002 024 032 277 d g \0 \0 024 277 j d n 177
0002420 377 d h 032 032 032 032 _ 022 277 d O 022 024 \n 277
0002440 d 311 \n 002 002 002 I 006 \0 \0 310 024 l 002 330 030
0002460 277 _ 016 A H k 330 l 0 I \n \0 \0 332 _ 020
0002500 l \f 330 ] O 016 \t \0 \0 310 004 330 \ \t \0 \0
0002520 @ 265 7 j O 016 \t \0 \0 310 003 330 \t \0 \0 \v
0002540 \0 \0 h d i \f \0 \0 [ @ 262 b d \t \0 \0
0002560 277 J K \n \0 \0 277 @ d 003 262 M 277 h K \n
0002600 \0 \0 021 021 \v @ 260 < J \n \0 \0 L 333 l 002
0002620 330 J 006 \0 \0 310 024 332 260 274 d 001 _ 026 277 h
0002640 K \n \0 \0 O 026 K \n \0 \0 330 O 024 361 224 K
0002660 \t \0 \0 277 O 026 K \n \0 \0 277 k K \n \0 \0
0002700 277 002 003 265 327 023 204 K \n \0 \0 277 K \t \0 \0
0002720 O 016 K M j 032 \v \0 \0 K g \0 \0 l 006 O
0002740 016 \t \0 \0 310 003 l 002 333 O 020 I 006 \0 \0 310
0002760 024 h 032 032 032 032 ^ \v \0 \0 N K l 002 \v \0
0003000 \0 I K \n \0 \0 K g \0 \0 j \v \0 \0 K g
0003020 \0 \0 H \v \0 \0 K \t \0 \0 K \t \0 \0 K 020
0003040 \0 ( 5 5 1 Q C L O S E W 5 4
0003060 5 Q D I S P L A Y / N U M B E
0003100 R / R E A D E R / T O T A L 5
0003120 4 1 Q P U T W I N D O W P R O
0003140 P 5 3 1 Q P U T W I N D O W
0003160 P R O P 5 2 1 Q D S P F O N
0003200 T 5 1 4 Q \ R E A D N U M B
0003220 E R . O U T L I N E R E G I O N
0003240 5 0 5 Q P U T W I N D O W P
0003260 R O P 4 5 7 Q C H E C K / M
0003300 E N U / I M A G E 4 4 4 Q A
0003320 D D M E N U 4 3 3 Q O P E N
0003340 W 4 2 6 Q P R I N 1 4 1 3
0003360 Q S P A C E S 4 0 5 Q P R
0003400 I N 3 3 7 6 Q T E R P R I
0003420 3 6 5 Q S T R I N G W I D T H
0003440 3 5 7 Q D S P X P O S I T I
0003460 O N 3 2 7 Q S T R I N G W I
0003500 D T H 3 1 5 Q D S P R I G H
0003520 T M A R G I N 3 0 1 Q D S P
0003540 F O N T 2 7 3 Q M O V E T O
0003560 U P P E R L E F T 2 6 3 Q C
0003600 R E A T E W 2 5 5 Q R E G I
0003620 O N O N S C R E E N 2 5 2 Q
0003640 H E I G H T I F W I N D O W 2
0003660 4 4 Q C H E C K / M E N U / I
0003700 M A G E 2 3 3 Q W I D T H I
0003720 F W I N D O W 2 2 4 Q C H E
0003740 C K / M E N U / I M A G E 2 1
0003760 0 Q C H A R W I D T H 3 5 Q
0004000 F O N T C R E A T E 1 7 Q
0004020 F O N T C R E A T E ) \r ( 5 3 5
0004040 Q M A X D I G I T S 5 2 5 Q
0004060 T O T A L 4 7 2 Q F O N T
0004100 D E S C R I P T O R 4 5 0 Q
0004120 T O T A L R E G 3 4 0 Q F O
0004140 N T D E S C R I P T O R 1 6 5
0004160 Q F O N T D E S C R I P T O R
0004200 1 2 4 Q C L R P R O M P T
0004220 1 0 7 Q N U M B E R . R E A D
0004240 E R . H A N D L E R 1 0 0 Q
0004260 N U M B E R P A D . H E L D F N
0004300 4 3 Q 004 003 M E N U T Y P E #
0004320 3 2 Q B O L D 2 5 Q G A
0004340 C H A 1 4 Q B O L D 7 G
0004360 A C H A ) \r ( 5 1 Q ( - %
0004400 c l r 1 2 3 4 5 6
0004420 7 1 0 Q 1 1 Q b s 0
0004440 o k ) ) \r R E G I O N O N S C R
0004460 E E N D 1 \r ( P 1 B O T T
0004500 O M P 0 L E F T I 2
0004520 H E I G H T I 1 W I D T H
0004540 I 0 P O S ) \0 Q 004 \0 \0 003
0004560 021 @ 003 @ \t \0 \0 225 @ 001 270 @ 002 212 \b \0
0004600 \0 277 ` \0 \0 270 ` \0 \0 271 H A 330 ` \0 \0
0004620 361 235 ` \0 \0 A 331 272 j J 361 241 J 200 j 270
0004640 I B 330 n 003 ( 361 235 n 003 ( B 331 273 j K
0004660 361 241 K 200 j 271 H I A B h 032 032 032 032 020
0004700 \0 ( 2 0 Q G E T M O U S E S T
0004720 A T E 6 P O S I T I O N P )
0004740 \r ( 4 4 Q S C R E E N W I D T
0004760 H 3 7 Q S C R E E N W I D T
0005000 H 3 0 Q L A S T M O U S E Y
0005020 2 4 Q L A S T M O U S E X )
0005040 \r N I L \r D I S P L A Y / N U M
0005060 B E R / R E A D E R / T O T A L
0005100 D 1 \r ( P 0 T O T A L R E
0005120 G I 0 W I N ) \0 " 001 \0 \0
0005140 001 @ g \0 \0 \n \0 \0 021 001 \0 H j g \0 \0
0005160 @ \f \0 \0 @ g \0 \0 \n \0 \0 H @ \v \0 \0
0005200 h 020 \0 ( 3 6 Q C E N T E R P R
0005220 I N T I N R E G I O N 3 1 Q
0005240 G E T W I N D O W P R O P 2 2
0005260 Q D S P F I L L 6 G E T W
0005300 I N D O W P R O P ) \r ( 2 6 Q
0005320 T O T A L 1 6 Q R E P L A C
0005340 E 3 T O T A L R E G ) \r N I
0005360 L \r N U M B E R . R E A D E R .
0005400 H A N D L E R D 1 \r ( P 1
0005420 T O T A L P 0 W I N I
0005440 2 B U T T O N I 1 M E N
0005460 U I 0 D I G I T ) \0 207 002
0005500 \0 \0 003 A \t \0 \0 021 021 001 H g \0 \0 \n \0
0005520 \0 Y H g \0 \0 @ d g \0 \0 360 226 277 I l
0005540 \n 333 260 ^ g \0 \0 360 222 j 260 V @ d g \0
0005560 \0 360 224 277 j I 260 I g \0 \0 360 222 I 260 B
0005600 @ g \0 \0 360 231 H g \0 \0 i \v \0 \0 h 020
0005620 H g \0 \0 \n \0 \0 I \t \0 \0 \t \0 \0 360 236
0005640 j d n 003 350 d H \r 005 \0 \0 277 I 260 023 j
0005660 I 361 246 I l \n 332 @ 330 205 I l \n 332 @ 331
0005700 \v \0 \0 H \t \0 \0 h 020 \0 ( 2 0 3 Q
0005720 D I S P L A Y / N U M B E R / R
0005740 E A D E R / T O T A L 1 7 7 Q
0005760 P U T W I N D O W P R O P 1
0006000 4 7 Q \ R E A D N U M B E R .
0006020 F L A S H A R E A 1 3 2 Q N
0006040 C H A R S 1 2 7 Q A B S 1
0006060 2 3 Q G E T W I N D O W P R O
0006100 P 1 1 2 Q P U T W I N D O W
0006120 P R O P 1 5 Q G E T W I N D
0006140 O W P R O P 3 W F R O M M E
0006160 N U ) \r ( 1 2 0 Q M A X D I G
0006200 I T S 1 0 6 Q F I N I S H E
0006220 D F L G 1 0 0 Q o k 6 7 Q
0006240 % 5 5 Q - 4 3 Q c l
0006260 r 2 7 Q b s 2 2 Q T O T
0006300 A L 1 2 Q T O T A L ) \r N I
0006320 L \r N U M B E R P A D . H E L D
0006340 F N D 1 \r ( I 2 B U T T O
0006360 N I 1 M E N U I 0 I
0006400 T E M ) \0 E \0 \0 \0 003 @ d g \0 \0
0006420 360 226 277 o \0 \0 \0 260 4 g \0 \0 360 225 o \0
0006440 \0 \0 260 ) @ d g \0 \0 360 226 277 o \0 \0 \0
0006460 260 033 g \0 \0 360 224 o \0 \0 \0 216 @ g \0 \0
0006500 360 224 o \0 \0 \0 203 o \0 \0 \0 \t \0 \0 020 \0
0006520 ( 1 0 2 Q P R O M P T P R I N
0006540 T ) \r ( 6 4 Q % 5 1 Q -
0006560 3 5 Q c l r 2 0 Q o k
0006600 4 b s ) \r ( 7 7 Q " W i l l
0006620 p u t t h i s d i g i t
0006640 o n t h e r i g h t o f
0006660 t h e t o t a l . " 7 2 Q
0006700 " d o e s n ' t d o a n y t
0006720 h i n g . " 5 7 Q " w i l
0006740 l c h a n g e t h e s i g
0006760 n o f t h e t o t a l "
0007000 4 4 Q " W i l l r e s e t
0007020 t h e t o t a l t o 0 "
0007040 2 6 Q " I n d i c a t e s t
0007060 h a t y o u a r e t h r o
0007100 u g h e n t e r i n g t h e
0007120 n u m b e r . " 1 3 Q " W
0007140 i l l e r a s e t h e l a
0007160 s t d i g i t e n t e r e d
0007200 . " ) \r \ R E A D N U M B E R .
0007220 O U T L I N E R E G I O N D 1
0007240 \r ( P 0 N I 2 O U T L
0007260 I N E S I Z E I 1 W I N
0007300 I 0 R E G ) \0 _ 001 \0 \0 003 B
0007320 d 005 001 241 005 002 265 004 l 002 021 001 \0 h d d
0007340 A @ 001 H 331 @ 002 001 H 331 @ 002 002 001 H l
0007360 002 332 330 @ 002 002 002 001 H l 002 332 330 g \0 \0
0007400 g \0 \0 n 377 377 \r \v \0 \0 h d d A @ 001
0007420 @ 002 001 @ 002 002 001 @ 002 002 002 001 g \0 \0 g
0007440 \0 \0 h A \n \0 \0 \r \v \0 \0 h 020 \0 ( 1
0007460 3 3 Q B K B I T B L T 1 2 7
0007500 Q D S P T E X T U R E 7 2 Q
0007520 B K B I T B L T ) \r ( 1 2 2 Q
0007540 R E P L A C E 1 1 7 Q T E
0007560 X T U R E 6 3 Q R E P L A C
0007600 E 6 0 Q T E X T U R E ) \r N
0007620 I L \r ( P R E T T Y C O M P R I
0007640 N T R E A D N U M B E R C O M
0007660 S ) \r ( R P A Q Q R E A D N U
0007700 M B E R C O M S ( ( F N S \
0007720 R E A D N U M B E R . F L A S H
0007740 A R E A R N U M B E R N U M
0007760 B E R P A D . R E A D C R E A
0010000 T E . N U M B E R P A D . R E A
0010020 D E R \r R E G I O N O N S C R
0010040 E E N D I S P L A Y / N U M B
0010060 E R / R E A D E R / T O T A L
0010100 N U M B E R . R E A D E R . H A
0010120 N D L E R N U M B E R P A D .
0010140 H E L D F N \r \ R E A D N U M
0010160 B E R . O U T L I N E R E G I O
0010200 N ) ) ) \r ( P U T P R O P S R
0010220 E A D N U M B E R C O P Y R I
0010240 G H T ( " X e r o x C o r p
0010260 o r a t i o n " 1 9 8 2 1 9
0010300 8 3 ) ) \r N I L \r
0010311