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