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