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