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