$ od -c -N 50000 [eris]<LispCore>SOURCES>APUTDQ!36
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 6 - O c t - 8 6 0 1 : 4 2 : 5
0000140 4 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > A P U
0000200 T D Q . ; 3 6 006 001 2 8 2 1 6
0000220 \r \r c h a n g e s
0000240 t o % : ( V A R S A P U
0000260 T D Q C O M S ) \r \r
0000300 p r e v i o u s d a t e % :
0000320 " 1 6 - O c t - 8 6 2 3 : 4 1
0000340 : 5 7 " { 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 4 ) \r \r \r ( * " \r
0000420 C o p y r i g h t ( c ) 1 9
0000440 8 1 , 1 9 8 2 , 1 9 8 3 ,
0000460 1 9 8 4 , 1 9 8 5 , 1 9 8 6
0000500 b y X e r o x C o r p o r
0000520 a t i o n . A l l r i g h
0000540 t s r e s e r v e d . \r " ) \r
0000560 \r ( P R E T T Y C O M P R I N T
0000600 A P U T D Q C O M S ) \r \r ( R
0000620 P A Q Q 006 002 A P U T D Q C O M
0000640 S 006 001 \r [ ( F N
0000660 S G R E E T F I L E N A M E
0000700 F A U L T E V A L F A U L T A
0000720 P P L Y E R R O R X S E T -
0000740 D O C U M E N T A T I O N ) \r
0000760 ( F N S S M A S
0001000 H F I L E C O M S S M A S H F
0001020 I L E C O M S L S T ) \r
0001040 ( I N I T V A R S ( D
0001060 E F A U L T R E G I S T R Y ) \r
0001100 (
0001120 U S E R G R E E T F I L E S ) \r
0001140 (
0001160 L O G I N H O S T / D I R ' {
0001200 D S K } ) ) \r (
0001220 F N S R E S E T R E S T O R E
0001240 R E S E T V A R S R E S E T
0001260 S A V E R E S E T V A R ) \r
0001300 ( F N S L O A D
0001320 U P E N D L O A D U P ) \r
0001340 ( V A R S L O A D
0001360 U P D I R E C T O R I E S ) \r
0001400 ( A L I S T S (
0001420 S Y S T E M I N I T V A R S \
0001440 C O N N E C T E D . D I R E C T
0001460 O R Y D W I M F L G A D D S
0001500 P E L L F L G F I L E P K G F
0001520 L G B U I L D M A P F L G \r
0001540
0001560 U P D A T E M A P
0001600 F L G D E F A U L T R E G I S
0001620 T R Y D E F A U L T P R I N T
0001640 I N G H O S T D I R E C T O R
0001660 I E S U S E R G R E E T F I L
0001700 E S \r
0001720 N E T W O
0001740 R K O S T Y P E S C H . N E T
0001760 . H I N T C H . D E F A U L T
0002000 . D O M A I N C H . D E F A U
0002020 L T . O R G A N I Z A T I O N
0002040 \r
0002060 A D V I S E D F
0002100 N S L I S P U S E R S D I R E
0002120 C T O R I E S D I S P L A Y F
0002140 O N T D I R E C T O R I E S D
0002160 I S P L A Y F O N T E X T E N S
0002200 I O N S \r
0002220 I N T
0002240 E R P R E S S F O N T D I R E C
0002260 T O R I E S ) ) \r
0002300 ( D E C L A R E % : D O N T
0002320 E V A L @ L O A D D O C O P Y
0002340 ( P ( D U M M Y D E F ( A
0002360 D D S T A T S * ) \r
0002400
*
0002440 ( S T
0002460 A T I N I T N I L L ) \r
0002500
*
0002540 (
0002560 L I S P X W A T C H N I L L )
0002600 \r
0002620
*
0002660 ( C L B U F S N I L L )
0002700 \r
0002720
*
0002760 ( F I N D F I L E I N F
0003000 I L E P ) \r
0003020
*
0003060 ( F I L E M A P
0003100 * ) \r
0003120
*
0003160 ( V I R G I N F N
0003200 G E T D ) \r
0003220
*
0003260 ( M K S W A P P
0003300 N I L L ) ) \r
0003320
*
0003360 ( D U M M Y D E F ( U S
0003400 E R N U M B E R Z E R O ) \r
0003420
*
0003500 ( H O S T N U M B E R Z E R
0003520 O ) \r
0003540
*
0003600 ( H O S T N A M E N
0003620 I L L ) \r
0003640
*
0003700 ( T R A P C O U N
0003720 T Z E R O ) ) \r
0003740
*
0004000 ( D U M M Y D E F ( *
0004020 Q U O T E ) \r
0004040
*
0004100 ( G E T P
0004120 G E T P R O P ) \r
0004140
*
0004200 ( D E C L
0004220 A R E Q U O T E ) \r
0004240
*
0004300 ( F R
0004320 P L N O D E 2 R P L N O D E 2
0004340 ) \r
0004360
*
0004420 ( D I S P L A Y T E R M
0004440 P T R U E ) \r
0004460
*
0004520 ( M I N F S
0004540 E V Q ) \r
0004560
*
0004620 ( F R P L A C A
0004640 R P L A C A ) \r
0004660
*
0004720 ( F R P L
0004740 A C D R P L A C D ) \r
0004760
*
0005020 ( M
0005040 I S S P E L L E D ? N I L L )
0005060 \r
0005100
*
0005140 ( U N D O S A V E N I L
0005160 L ) \r
0005200
*
0005240 ( S E T L I N E L E N
0005260 G T H Z E R O ) \r
0005300
*
0005340 ( D O B
0005360 E N I L L ) \r
0005400
*
0005440 ( R E L I N
0005460 K N I L L ) \r
0005500
*
0005540 ( P U T P
0005560 U T P R O P ) \r
0005600
*
0005640 ( / P U T
0005660 P U T P R O P ) \r
0005700
*
0005740 ( M K S W
0005760 A P E V Q ) ) ) \r
0006000 ( A D D V A R
0006020 S ( S Y S F I L E S ) \r
0006040
0006060 ( L I S P X H I S T O R Y
0006100 ) \r
0006120 ( L I N K E D F
0006140 N S ) ) \r
0006160 ( V A R S ( S H A L L
0006200 O W F L G ) \r
0006220 ( S P A
0006240 G H E T T I F L G T ) \r
0006260
0006300 ( W I D E P A P E R F L G
0006320 T ) \r
0006340 ( C L E A R S T
0006360 K L S T T ) \r
0006400 ( S Y
0006420 S H A S H A R R A Y ( H A S H
0006440 A R R A Y 5 0 ) ) \r
0006460
0006500 ( D I S P L A Y T E R M F L G
0006520 T ) \r
0006540 ( % # U N D O S
0006560 A V E S ) \r
0006600 ( N L A M
0006620 A ) \r
0006640 ( N L A M L ) \r
0006660
0006700 ( L A M S ) \r
0006720
0006740 ( E V A L Q T F O R M S ) \r
0006760
0007000 ( T T Y L I N E L E N G
0007020 T H 8 2 ) \r
0007040 ( C O M
0007060 P I L E . E X T ' D C O M ) \r
0007100
0007120 ( S Y S O U T . E X T
0007140 ' S Y S O U T ) \r
0007160 (
0007200 H O S T N A M E ) \r
0007220 (
0007240 S Y S T E M T Y P E ( S Y S T
0007260 E M T Y P E ) ) ) \r
0007300 ( P ( G C G
0007320 A G T ) ) ) \r
0007340 ( D E C L A R E % : D O N T E
0007360 V A L @ L O A D D O E V A L @
0007400 C O M P I L E D O N T C O P Y
0007420 C O M P I L E R V A R S ( A
0007440 D D V A R S ( N L A M A R E
0007460 S E T S A V E \r
0007500
*
0007600 R
0007620 E S E T V A R S ) \r
0007640
*
0007740 ( N L A M L R E
0007760 S E T V A R ) \r
0010000
*
0010100 ( L A M A S E T - D
0010120 O C U M E N T A T I O N \r
0010140
*
0010260 E R R O R X ] ) \r ( D E F I N
0010300 E Q \r \r ( 006 004 G R E E T F I L E
0010320 N A M E 006 001 \r [ L A M B D A
0010340 ( U S E R ) 006 006 006 001
0010360
*
0010420 006 006 ( * l m m
0010440 " 1 2 - A p r - 8 5 1 8 : 1
0010460 1 " ) 006 001 \r
0010500
*
0010560 006 006 ( * R e t u r n s
0010600 n a m e o f a n e x i s t
0010620 i n g \r 006 001
0010640
*
0010720 006 006 g r e e t i n g f
0010740 i l e , o r N I L ) 006 001 \r
0010760 ( 006 002 D E C L A R E 006 001
0011000 ( G L O B A L V A R S U S E R
0011020 G R E E T F I L E S L O G I N
0011040 H O S T / D I R C O M P I L E
0011060 . E X T ) ) \r ( S E L E
0011100 C T Q U S E R \r
0011120 ( T ( O R ( I N F I L E P
0011140 ' { D S K } I N I T . L I S P
0011160 ) \r
0011200 ( 006 002 b i n d 006 001 F I L E
0011220 006 002 w h i l e 006 001 ( S E T Q
0011240 F I L E ( P R O M P T F O R W
0011260 O R D ' \r
0011300 " P l e a s e
0011320 e n t e r n a m e o f s
0011340 y s t e m i n i t f i l e \r
0011360 ( e . g . { s e r v e r } < d
0011400 i r e c t o r y > I N I T . e x
0011420 t e n s i o n ) : " ) ) 006 002
0011440 u n t i l 006 001 ( S E T Q F I
0011460 L E ( I N F I L E P ( M K A
0011500 T O M F I L E ) ) ) \r
0011520 006 002
0011540 f i n a l l y 006 001 ( R E T U R
0011560 N F I L E ) ) ) ) \r
0011600 ( N I L ) \r
0011620 ( C O N D \r
0011640 ( ( L I S T P U S E R G R
0011660 E E T F I L E S ) \r
0011700 ( P R O G [ ( P O
0011720 S ( A N D D E F A U L T R E
0011740 G I S T R Y ( S T R P O S '
0011760 % . ( S E T Q U S E R ( U
0012000 - C A S E U S E R ] \r
0012020 [ C
0012040 O N D \r
0012060 ( ( A N D P
0012100 O S ( S T R E Q U A L ( S U
0012120 B S T R I N G U S E R ( A D
0012140 D 1 P O S ) \r
0012160
*
0012220 - 1 ) \r
0012240
*
0012300 ( M K S T R I N G D E F A
0012320 U L T R E G I S T R Y ) ) ) \r
0012340
0012360 ( S E T Q U S E R
0012400 ( S U B S T R I N G U S E R
0012420 1 ( S U B 1 P O S ] \r
0012440 (
0012460 R E T U R N ( 006 002 f o r 006 001
0012500 D 006 002 i n 006 001 ( C O N D \r
0012520
*
0012560 ( ( L I S T P ( C
0012600 A R U S E R G R E E T F I L E
0012620 S ) ) \r
0012640
0012660 U S E R
0012700 G R E E T F I L E S ) \r
0012720
*
0012760 ( T ( C O N S U S E R
0013000 G R E E T F I L E S ) ) ) \r
0013020
0013040 006 002 w h e
0013060 n 006 001 [ S E T Q D ( I N F
0013100 I L E P ( P A C K ( S U B P
0013120 A I R ' ( U S E R C O M )
0013140 ( L I S T U S E R C O M P I
0013160 L E . E X T ) \r
0013200
*
0013260 D ] 006 002 d o 006
0013300 001 ( R E T U R N D ] ) \r \r (
0013320 006 004 F A U L T E V A L 006 001 \r
0013340 [ N L A M B D A F A U L T X 006
0013360 006 006 001
0013400
0013420 006
0013440 006 ( * l m m " 1 6 - M A Y -
0013460 8 0 1 1 : 5 7 " ) 006 001 \r
0013500 ( R A I D F A U L T X ] ) \r
0013520 \r ( 006 004 F A U L T A P P L Y 006 001
0013540 \r [ L A M B D A ( F A U L
0013560 T F N F A U L T A R G S ) 006 006
0013600 006 001
0013620
0013640 006 006 ( * l m m " 1 6 - M
0013660 A Y - 8 0 1 1 : 5 8 " ) 006 001 \r
0013700 ( R A I D F A U L T F
0013720 N ] ) \r \r ( 006 004 E R R O R X 006 001
0013740 \r [ L A M B D A ( E R X M
0013760 ) 006 006 006 001
0014000
*
0014040 006 006 ( * l m m " 1 6 - M
0014060 A Y - 8 0 1 1 : 5 8 " ) 006 001 \r
0014100 ( R A I D E R X M ] )
0014120 \r \r ( 006 004 S E T - D O C U M E N
0014140 T A T I O N 006 001 \r ( C L : L
0014160 A M B D A ( N A M E D O C -
0014200 T Y P E N E W - S T R I N G )
0014220 \r ( C L : B L
0014240 O C K S E T - D O C U M E N T
0014260 A T I O N ( C L : I F L I S
0014300 P X H I S T ( U N D O A B L Y
0014320 - S E T F ( G E T H A S H N
0014340 A M E ( \r
0014360
*
0014460 H A S H - T A B L E - F
0014500 O R - D O C - T Y P E \r
0014520
*
0014640 D O C - T Y P E ) ) \r
0014660
*
0014740 N E W - S T R I
0014760 N G ) ) \r
0015000 ( C L : S E T F ( G
0015020 E T H A S H N A M E ( H A S
0015040 H - T A B L E - F O R - D O C -
0015060 T Y P E D O C - T Y P E ) ) \r
0015100
0015120 N E W - S T R I N
0015140 G ) ) ) ) \r ) \r ( D E F I N E Q
0015160 \r \r ( 006 004 S M A S H F I L E C O
0015200 M S 006 001 \r [ L A M B D A (
0015220 F I L E ) 006 006 006 001
0015240
*
0015300 006 006 ( * J o n L
0015320 " 8 - J u n - 8 4 1 0 : 4 3
0015340 " ) 006 001 \r
0015360
*
0015440 006 006 ( * d u m m y d e f
0015460 i n i t i o n f o r A P U T
0015500 D Q ) 006 001 \r ( P R O G
0015520 [ ( F I L E C O M S ( P A C K
0015540 ( L I S T F I L E ' C O M
0015560 S ] \r ( C O
0015600 N D \r
0015620 ( ( B O U N D P F I L E C O M
0015640 S ) \r \r
0015660 006 006 ( * A l r
0015700 e a d y l o a d e d , b u t
0015720 m a y w a n t t o c l o
0015740 b b e r i t s F N S , V A
0015760 R S , a n d B L O C K S E
0016000 . G . \r 006 001
0016020 006 006 M I S C , B A S I C . ) 006
0016040 001 \r \r
0016060 ( 006 002 S M A S H F I L E C O M
0016100 S L S T 006 001 ( G E T A T O M V
0016120 A L F I L E C O M S ) ) \r
0016140 ( S E T
0016160 F I L E C O M S ' N O B I N
0016200 D ] ) \r \r ( 006 004 S M A S H F I L
0016220 E C O M S L S T 006 001 \r [ L A
0016240 M B D A ( C O M S ) 006 006 006 001
0016260
*
0016320 006 006 ( *
0016340 l m m " 1 1 - M A R - 8 3
0016360 1 3 : 1 7 " ) 006 001 \r ( M
0016400 A P C C O M S ( F U N C T I
0016420 O N ( L A M B D A ( C O M )
0016440 \r
0016460 ( P R O
0016500 G ( N A M E ) \r
0016520
0016540 ( A N D (
0016560 E Q ( C A D R C O M ) \r
0016600
*
0016640 ' * ) \r
0016660
*
0016720 ( L I T A T O M ( C A D D
0016740 R C O M ) ) \r
0016760
0017000 ( S
0017020 E T Q N A M E ( C A D D R
0017040 C O M ) ) ) \r
0017060
0017100 ( S E L E C T Q
0017120 ( C A R C O M ) \r
0017140
*
0017200 ( C O M S [ 006 002 S M A S H F I
0017220 L E C O M S L S T 006 001 ( C O N
0017240 D \r
0017260
*
0017340 ( N A M E ( G E T A T O M
0017360 V A L N A M E ) ) \r
0017400
*
0017460 ( T ( C
0017500 D R C O M ] ) \r
0017520
0017540 ( F
0017560 I L E V A R S [ S E T Q N A
0017600 M E ( C O N D \r
0017620
*
0017700 ( ( E Q ( C A D R
0017720 C O M ) \r
0017740
*
0020020 ' * ) \r
0020040 \r
0020060 006 006 ( * i f c a d d r i
0020100 s a l i t a t o m , n a m
0020120 e w a s s e t t o i t
0020140 a b o v e . \r 006 001
0020160 006 006 i f c a d d r i s
0020200 n o t , d a n g e r o u s
0020220 t o e v a l u a t e t h e
0020240 f o r m , s o p u n t ) 006 001
0020260 \r \r
0020300
*
0020360 ( G E T A T O M V A L N A M E
0020400 ) ) \r
0020420
*
0020500 ( T ( C D R C O M ] ) \r
0020520
*
0020560 ( ( P R O P I F P R O P
0020600 ) \r
0020620
0020640 [ C O
0020660 N D \r
0020700
*
0020740 ( ( A N D ( E Q ( C A D D R
0020760 C O M ) \r
0021000
*
0021040 ' * )
0021060 \r
0021100
*
0021140 ( L I T A T O M ( C A
0021160 D D D R C O M ) ) ) \r
0021200
*
0021240 ( S E T Q
0021260 N A M E ( C A D D D R C O M
0021300 ] ) \r
0021320
0021340 N I L ) \r
0021360
0021400 ( C
0021420 O N D \r
0021440
0021460 ( ( A N D N A
0021500 M E ( L I T A T O M N A M E
0021520 ) ) \r
0021540
0021560 ( S E T N A M
0021600 E ' N O B I N D ] ) \r ) \r \r (
0021620 R P A Q ? 006 002 D E F A U L T R
0021640 E G I S T R Y 006 001 ) \r \r ( R P
0021660 A Q ? 006 002 U S E R G R E E T F
0021700 I L E S 006 001 ) \r \r ( R P A Q ?
0021720 006 002 L O G I N H O S T / D I R
0021740 006 001 ' { D S K } ) \r ( D E F I
0021760 N E Q \r \r ( 006 004 R E S E T R E S
0022000 T O R E 006 001 \r [ L A M B D A
0022020 ( R E S E T V A R S L S T 0
0022040 R E S E T S T A T E ) 006 006 006 001
0022060
0022100 006 006 ( * w t %
0022120 : " 1 5 - M A R - 7 8 1 4 :
0022140 2 5 " ) 006 001 \r
0022160 \r 006 006 ( *
0022200 G o e s d o w n R E S E T
0022220 V A R S L S T d o i n g r e
0022240 s t o r a t i o n u n t i l
0022260 i t g e t s t o N I L o
0022300 r \r 006 001 006
0022320 006 R E S E T V A R S L S T 0 .
0022340 R E S E T S T A T E i s e i
0022360 t h e r N I L , E R R O R ,
0022400 o r R E S E T , d e p e n
0022420 d i n g o n w h e t h e r
0022440 \r 006 001 006 006 r
0022460 e s t o r a t i o n i s a t
0022500 n o r m a l ( s u c c e s s
0022520 f u l ) c o m p l e t i o n
0022540 o f a R E S E T L S T , f
0022560 o l l o w i n g a n \r 006 001
0022600 006 006 e r r o r
0022620 o r c o n t r o l - E , o
0022640 r f o l l o w i n g a c o
0022660 n t r o l - D ) 006 001 \r \r
0022700 ( P R O G ( R E S E T Z O L
0022720 D V A L U E ) \r L P
0022740 ( C O N D \r
0022760 ( ( A N D R E S E T
0023000 V A R S L S T ( N O T ( T A
0023020 I L P R E S E T V A R S L S T
0023040 R E S E T V A R S L S T 0 ) )
0023060 ) \r
0023100 ( S E T Q R E S E T Z ( C A
0023120 R R E S E T V A R S L S T ) )
0023140 \r (
0023160 S E T Q R E S E T V A R S L S
0023200 T ( C D R R E S E T V A R S
0023220 L S T ) ) \r
0023240 [ C O N D \r
0023260 ( ( L I S
0023300 T P ( C A R R E S E T Z ) )
0023320 \r
0023340 [ S E T Q O L D V A L U
0023360 E ( C O N D \r
0023400
0023420 ( ( C D
0023440 R R E S E T Z ) \r
0023460 \r 006
0023500 006 ( * o c c u r s f o r R
0023520 E S E T S A V E ' s w h e n
0023540 s e c o n d a a g u m e n t
0023560 i s s p e c i f i e d . \r 006 001
0023600 006 006 I n t
0023620 h i s c a s e , ( C A D R
0023640 R E S E T Z ) i s t h e v
0023660 a l u e o f t h e s a v i
0023700 n g f o r m , i . e . \r 006 001
0023720 006 006 t h e
0023740 f i r s t a r g u m e n t t
0023760 o R E S E T S A V E . ) 006 001 \r
0024000 \r
0024020
0024040 ( C A D R R E S E
0024060 T Z ) ) \r
0024100
0024120 ( T ( C A D
0024140 A R R E S E T Z ] \r
0024160 ( A P
0024200 P L Y ( C A A R R E S E T Z
0024220 ) \r
0024240 ( C D A R
0024260 R E S E T Z ) ) ) \r
0024300 ( T (
0024320 S E T T O P V A L ( C A R R
0024340 E S E T Z ) \r
0024360
0024400 ( C D R R E S E T Z ] \r
0024420 ( G O
0024440 L P ] ) \r \r ( 006 004 R E S E T V
0024460 A R S 006 001 \r [ N L A M B D A
0024500 R E S E T X 006 006 006 001
0024520
*
0024560 006 006 ( * w t % :
0024600 " 1 4 - J A N - 8 0 2 3 : 2
0024620 9 " ) 006 001 \r ( P R O G
0024640 ( [ R E S E T W ( S E T Q R
0024660 E S E T V A R S L S T ( P R O
0024700 G ( ( R E S E T Z R E S E T
0024720 V A R S L S T ) ) \r
0024740
*
0025000 [ M A P C ( C A R
0025020 R E S E T X ) \r
0025040
*
0025100 ( F U N C
0025120 T I O N ( L A M B D A ( R E
0025140 S E T Y ) \r
0025160
*
0025240 ( S E T Q R E S E T Z
0025260 \r
0025300
*
0025360 ( C O N S [ C O N D \r
0025400
*
0025500 [ ( L I S T P R E S E
0025520 T Y ) \r
0025540
*
0025620 ( C O
0025640 N S ( C A R R E S E T Y ) \r
0025660
*
0025760 (
0026000 G E T T O P V A L \r
0026020
*
0026120 ( C A R R
0026140 E S E T Y ] \r
0026160
*
0026240 (
0026260 T ( C O N S R E S E T Y (
0026300 G E T T O P V A L \r
0026320
*
0026440 R E S E T Y ] \r
0026460
*
0026560 R E S E T Z ] \r
0026600
*
0026640 ( R E T U R N R E S E
0026660 T Z ] \r R
0026700 E S E T Y ) \r
0026720 ( S E T Q R E S E T Y R E
0026740 S E T V A R S L S T ) \r
0026760 ( R E T U R N ( C
0027000 A R ( O R [ P R O G 1 ( X
0027020 N L S E T Q ( P R O G N [ M
0027040 A P C ( C A R R E S E T X )
0027060 \r
0027100
*
0027140 ( F U N C T I
0027160 O N ( L A M B D A ( R E S E
0027200 T Y ) \r
0027220
*
0027300 ( C O N D \r
0027320
*
0027420 [ ( L I S T P R E S
0027440 E T Y ) \r
0027460
*
0027540 ( S E
0027560 T T O P V A L \r
0027600
*
0027700 ( C A R R E S E T Y ) \r
0027720
*
0030020 ( A P P L Y ' P
0030040 R O G 1 ( C D R R E S E T Y
0030060 ) \r
0030100
*
0030200 ' I N T E R N A L ] \r
0030220
*
0030320 ( T ( S E T T O P V A
0030340 L R E S E T Y ] \r
0030360
*
0030420 ( A P P
0030440 L Y ' P R O G ( C O N S N
0030460 I L ( C D R R E S E T X ) )
0030500 \r
0030520
*
0030560 ' I N T E R
0030600 N A L ) ) \r
0030620
0030640 I
0030660 N T E R N A L ) \r
0030700
0030720 [ M A P C
0030740 ( C A R R E S E T X ) \r
0030760
*
0031020 ( F U N C T I O N
0031040 ( L A M B D A ( Z ) \r
0031060
*
0031140 ( S E T T O P V A L ( C A A R
0031160 R E S E T W ) \r
0031200
*
0031260 ( C D A R R E S E T W
0031300 ) ) \r
0031320
*
0031360 ( S E T Q R E S
0031400 E T W ( C D R R E S E T W ]
0031420 \r
0031440
0031460 ( C O N D \r
0031500
0031520 ( (
0031540 E Q R E S E T Y R E S E T V
0031560 A R S L S T ) \r
0031600
0031620 ( S
0031640 E T Q R E S E T V A R S L S T
0031660 R E S E T W ) ) \r
0031700
0031720 (
0031740 ( N O T ( T A I L P R E S E
0031760 T V A R S L S T R E S E T Y )
0032000 ) \r \r
0032020 006 006 ( * s o m e
0032040 r e s e t s a v e s m a y
0032060 h a e b e e n p e r f o r m
0032100 e d i n s i d e o f t h e
0032120 r e s e t v a r s . \r 006 001
0032140 006 006 t h e s e
0032160 s h o u l d N O T b e n d
0032200 o n e u n t i l t h e c o
0032220 r r e s o n d i n g r e s e t
0032240 l s t i s e x i t e d \r 006 001
0032260 006 006 ( t h e
0032300 y w o u l d n t b e i n
0032320 s h a l l o w s y s t e m s
0032340 i n c e r e s t v a r s i s
0032360 s i m p l y a p r o g ) t
0032400 h e r e f o r e \r 006 001
0032420 006 006 t h e s e c t
0032440 i o n o f r e s e t v a r l
0032460 s t c o r r e s p o n d i n g
0032500 t o t h e v a r i a b l e
0032520 r e b i n d i n g s m u s t
0032540 b e \r 006 001
0032560 006 006 s p l i c e d o u t ) 006
0032600 001 \r \r
0032620 006 006 ( * t h e
0032640 r e a s o n f o r t h e T
0032660 A I L P i s t h a t i f
0032700 r e s e t v a r s l s t h a s
0032720 f o r s o m e r e a s o n
0032740 a l r e a d y \r 006 001
0032760 006 006 b e e n s t r
0033000 i p p e d b a c k e a r l i
0033020 e r t h a n r e s e t y ,
0033040 d o n t w a n t t o d o
0033060 t h e n l e f t / r p l a c d
0033100 . \r 006 001 006 006
0033120 ( i n f a c t n l e f t w
0033140 o u l d g e n e r a t e a n
0033160 e r r o r ) % . \r 006 001
0033200 006 006 o n e c a n
0033220 t h i n k o f t h i s a s
0033240 a n a l a o g i c a l t o
0033260 t h e c o d e i n r e s e
0033300 t r e s t o r e , w h e r e
0033320 \r 006 001 006 006 r
0033340 e s e t v a r s l s t i s w
0033360 a l k e d d o w n u n t i l
0033400 i t i s a t a i l o f
0033420 r e s e t v a r s l s t 0 . )
0033440 006 001 \r \r
0033460 006 006 ( * r e a
0033500 s o n f o r T A I L P i s
0033520 t o p a r a l l e l t h e
0033540 c o d e i n r e s e t r e
0033560 s t o r e , w h e r e r e s
0033600 e t v a r s l s t \r 006 001
0033620 006 006 i s p r o c
0033640 e s s e d u n t i l i t i
0033660 s a t a i l o f r e s e
0033700 t v a r l s t 0 . \r 006 001
0033720 006 006 w e a r e t
0033740 r y i n g t o a v o i d t
0033760 h e s i t u a t i o n w h e
0034000 r e r e s e t v a r s l s t
0034020 h a s f o r s o m e r e a
0034040 s o n \r 006 001
0034060 006 006 b e e n s t r i p p e d
0034100 b a c k t o b e f o r e
0034120 r e s e t y . n o t e t h a
0034140 t i f f o r s o m e r e
0034160 a s o n r e s e t v a r s l s
0034200 t \r 006 001 006
0034220 006 i s n o t a t a i l o
0034240 f r e s e t y , b u t r e
0034260 s e t y i s n o t a t a
0034300 i l o f r e s e t v a r s l
0034320 s t , t h e n n l e f t \r
0034340 006 001 006 006 w i
0034360 l l g e n e r a t e a n e
0034400 r r o r . t h i s s h o u l
0034420 d n o t h a p p e n s i n
0034440 c e t h i n g s a r e s u
0034460 p p o s e d t o b e \r 006 001
0034500 006 006 t a k e
0034520 n o f f o n l y i n t h
0034540 e o r d e r t h e y w e r
0034560 e p u t o n . \r 006 001
0034600 006 006 i f t h i s
0034620 t u r n s o u t t o b e
0034640 a p r o b l e m , w e c a
0034660 n u n d o t h i n g s o n
0034700 r e s e t v a r s l s t b y
0034720 \r 006 001 006 006
0034740 s m a s h i n g t h e m a n
0034760 d l e a v i n g t h e m a
0035000 l o n e . ) 006 001 \r \r
0035020
*
0035060 ( R P L A C D ( N L E F T R
0035100 E S E T V A R S L S T 1 R E
0035120 S E T Y ) \r
0035140
*
0035200 R E S E T W ] \r
0035220
0035240 ( E R R O R ! ] ) \r
0035260 \r ( 006 004 R E S E T S A V E 006 001 \r
0035300 [ N L A M B D A R E S E T
0035320 X 006 006 006 001
0035340
*
0035400 006 006 ( * w t % : " 2 3 - J
0035420 U L - 7 9 2 1 : 0 8 " ) 006 001 \r
0035440 \r
0035460 006 006 ( * f o r u s
0035500 e u n d e r a R E S E T L
0035520 S T . I f R E S E T X i s
0035540 a t m i c , l i k e R E S
0035560 E T V A R , o t h e r w i s e
0035600 l i k e \r 006 001
0035620 006 006 R E S E T F O R M ,
0035640 i . e . p e r f o r m s t h
0035660 e r e s e t t i n g a n d
0035700 s a v i n g a s s o c i a t e
0035720 d w i t h t h e s e \r 006 001
0035740 006 006 f u n c
0035760 t i o n s . T h e r e s t o
0036000 r a t i o n a a d e r r o r
0036020 s e t p r o t e c t i o n i s
0036040 d o n e b y R E S E T L S
0036060 T . \r 006 001 006
0036100 006 N o t e t h a t i t s v
0036120 a l u e i s n o t a n y
0036140 p a r t i c u l a r l y u s e
0036160 f u l q u a n i t t y . \r 006 001
0036200 006 006 W h e n
0036220 u s e d a l a R E S E T
0036240 F O R M , c a n t a k e a
0036260 s e c o n d a r g u m e n t
0036300 w h o s e v a l u e \r 006 001
0036320 006 006 ( c o m p
0036340 u t e d b e f o r e f i r t
0036360 a r g u m e n t ) i s r e
0036400 s t o r a t i o n f o r m ,
0036420 e . g . \r 006 001
0036440 006 006 ( R E S E T S A V E ( S
0036460 E T S E P R - - ) ( L I S T
0036500 ( Q U O T E S E T S E P R )
0036520 \r 006 001 006 006 (
0036540 G E T S E P R ) ) ) ( R E S E
0036560 T S A V E N I L f o r m )
0036600 m e a n s j u s t a d d v
0036620 a l u e o f f o r m t o
0036640 R E S E T V A R L S T > ) 006 001 \r
0036660 \r ( S E T Q R E S E T
0036700 V A R S L S T ( C O N S [ C
0036720 O N D \r
0036740
0036760 [ ( A N D ( C A R R
0037000 E S E T X ) \r
0037020
0037040 ( A T
0037060 O M ( C A R R E S E T X ) )
0037100 ) \r
0037120
0037140 ( P R O G 1 ( C O N S
0037160 ( C A R R E S E T X ) \r
0037200
*
0037240 ( G E T T
0037260 O P V A L ( C A R R E S E T
0037300 X ) ) ) \r
0037320
0037340 ( S E
0037360 T T O P V A L ( C A R R E S
0037400 E T X ) \r
0037420
*
0037460 ( E V A L ( C A D R
0037500 R E S E T X ) \r
0037520
*
0037560 ' I N
0037600 T E R N A L ] \r
0037620
0037640 [ ( C D R R E
0037660 S E T X ) \r
0037700 \r 006 006 ( *
0037720 C A D R o f t h e e n t r
0037740 y p u t o n r e s e t v a
0037760 r s l s t i s t h e v a l
0040000 u e o f t h e s a v i n g
0040020 f o r m . \r 006 001
0040040 006 006 T h e v a r i a b l
0040060 e O L D V A L U E i s b o
0040100 u n d t o t h i s v a l u
0040120 e d u r i n g r e s t o r a
0040140 t i o n . \r 006 001
0040160 006 006 T h i s m a k e s i
0040200 t m o r e c o n v e n i e n
0040220 t f o r t h e e s t o r a
0040240 t i o n t o b e c o n d i
0040260 t i o n a l , e . g . \r 006 001
0040300 006 006 t h e u
0040320 s e r c a n p e r f o r m
0040340 ( R E S E T S A V E ( F O O
0040360 m u m b l e ) \r 006 001
0040400 006 006 ( Q U O T E ( A N
0040420 D p r e d ( F I E O L D V
0040440 A L U E ) ) ) ) ) 006 001 \r \r
0040460
0040500 ( L
0040520 I S T ( E V A L ( C A D R
0040540 R E S E T X ) ) \r
0040560
*
0040620 ( E V A L ( C A R R E S E T
0040640 X ] \r
0040660
0040700 ( T ( L I S T ( L I S
0040720 T ( C O N D \r
0040740
*
0041000 ( ( E Q (
0041020 C A A R R E S E T X ) \r
0041040
*
0041120 ' S E T Q ) \r
0041140
*
0041200 ( C
0041220 A R ( C A D D A R R E S E T
0041240 X ) ) ) \r
0041260
*
0041320 ( T ( C A A R
0041340 R E S E T X ) ) ) \r
0041360
*
0041420 ( E V A L (
0041440 C A R R E S E T X ] \r
0041460
0041500 R E S E T V A
0041520 R S L S T ] ) \r \r ( 006 004 R E S E
0041540 T V A R 006 001 \r [ N L A M B D
0041560 A ( R E S E T X R E S E T Y
0041600 R E S E T Z ) 006 006 006 001
0041620
0041640 006 006 ( * w t %
0041660 : " 2 3 - J U L - 7 9 2 1 :
0041700 0 9 " ) 006 001 \r ( P R O G
0041720 ( M A C R O X M A C R O Y )
0041740 \r \r
0041760 006 006 ( * P e r m i
0042000 t s e v a l u a t i o n o f
0042020 a f o r m w h i l e r e
0042040 s e t t i n g a t o p l e
0042060 v e l v a r i a b l e , a n
0042100 d \r 006 001 006
0042120 006 p r o v i d e s f o r t h
0042140 e v a r i a b l e t o b e
0042160 a u t o m a t c a l l y r e
0042200 s t o r e d a f t e r v a l
0042220 u a t i o n . \r 006 001
0042240 006 006 I n t h i s w a
0042260 y , t h e u s e r p a y s
0042300 w h e n h e w a n t s t
0042320 o % ' r e b i n d ' a g l
0042340 o b a l v a r i a b l e , b u
0042360 t \r 006 001 006
0042400 006 d o e s n o t h a v e t
0042420 o p a y f o r t h e p o
0042440 s s i b l i t y , a s w o u
0042460 l d b e t h e c a s e i
0042500 f v a r i a b l e s s u c h
0042520 \r 006 001 006 006
0042540 a s D F N F L G , L I S P X
0042560 H I S T O R Y , e t c . w e
0042600 r e n o t g l o b a l , i
0042620 . e . \r 006 001
0042640 006 006 w e r e l o o k e d u p
0042660 . I n t h e e v e n t o
0042700 f a c o n t r o l - D , o
0042720 r c o n t r o l - C r e e n
0042740 t e r , t h e v a r i a b e
0042760 s \r 006 001 006
0043000 006 w i l l s t i l l b e r
0043020 e s t o r e d b y E V A L Q
0043040 T . N o t e t h a t S T K
0043060 E V A L s w i l l n o t d
0043100 o t h e r i g h t t o n
0043120 \r 006 001 006 006
0043140 v a r i a b l e s r e s e t
0043160 b y R E S E T V A R . ) 006 001 \r
0043200 \r ( S E T Q
0043220 M A C R O X ( S E T Q R E
0043240 S E T V A R S L S T ( C O N S
0043260 ( C O N S R E S E T X ( G
0043300 E T T O P V A L R E S E T X )
0043320 ) \r
0043340
*
0043400 R E S E T V A R S L S T ) )
0043420 ) \r ( S E T
0043440 Q M A C R O Y ( E R R O R S
0043460 E T ( L I S T ' P R O G N
0043500 ( L I S T ' S E T T O P V A L
0043520 ( L I S T ' Q U O T E R E
0043540 S E T X ) \r
0043560
*
0043620 R E S E T Y
0043640 ) \r
0043660
0043700 R E S E T Z )
0043720 \r
0043740 '
0043760 I N T E R N A L ) ) \r
0044000 ( S E T T O P V A L
0044020 ( C A A R M A C R O X ) \r
0044040 (
0044060 C D A R M A C R O X ) ) \r
0044100 ( S E T Q R E
0044120 S E T V A R S L S T ( C D R
0044140 M A C R O X ) ) \r
0044160 [ C O N D \r
0044200 ( M A C R O Y ( R
0044220 E T U R N ( C A R M A C R O
0044240 Y ] \r ( E R
0044260 R O R ! ] ) \r ) \r ( D E F I N E
0044300 Q \r \r ( 006 004 L O A D U P 006 001 \r
0044320 [ L A M B D A ( O P T I O N
0044340 / F I L E S ) 006 006 006 001
0044360
*
0044420 006 006 ( * j d s " 1 3 - M a r
0044440 - 8 6 1 2 : 5 8 " ) 006 001 \r
0044460 ( S E L E C T Q O P T I O
0044500 N / F I L E S \r
0044520 ( ( N I L H U G E ) \r
0044540 ( S E T Q Q
0044560 C O M P I L E . E X T D C O
0044600 M ) \r
0044620 ( 006 002 w h i l e 006 001 B O O T L
0044640 O A D E D F I L E S 006 002 d o 006
0044660 001 ( 006 002 p u s h n e w 006 001 S
0044700 Y S F I L E S ( 006 002 p o p 006 001
0044720 B O O T L O A D E D F I L E S
0044740 ) ) ) \r
0044760 ( 006 002 L O A D U P 006 001 ' ( A
0045000 C O D E M A C H I N E I N D E
0045020 P E N D E N T P O S T L O A D
0045040 U P ) ) \r
0045060 ( 006 002 L O A D U P 006 001 ' (
0045100 B S P D P U P F T P ) ) \r
0045120 \r
0045140 006 006 ( * L o a d t h e
0045160 s e n o w t o s p e e d
0045200 u p t h e r e s t o f t
0045220 h e l o a d i n g ) 006 001 \r \r
0045240 ( 006 002 L
0045260 O A D U P 006 001 ' ( A F O N T )
0045300 ) \r (
0045320 006 002 L O A D U P 006 001 ' ( E D I
0045340 T W E D I T P R E T T Y D
0045360 S P R I N T D E F N E W P R I
0045400 N T D E F C O M M E N T A D
0045420 V I S E L O A D F N S D M I
0045440 S C D F I L E ) ) \r
0045460
*
0045540 006 006 ( * D M I
0045560 S C n e e d s t o c o m e
0045600 b e f o r e D F I L E ) 006 001
0045620 \r ( 006
0045640 002 L O A D U P 006 001 ' ( C O M P
0045660 A T I B I L I T Y B R E A K
0045700 F I L E P K G R E S O U R C E
0045720 ) ) \r
0045740 ( 006 002 L O A D U P 006 001 ' ( M A
0045760 C R O S D L A P B Y T E C O
0046000 M P I L E R C O M P I L E ) )
0046020 \r ( 006
0046040 002 L O A D U P 006 001 ' ( H I S T
0046060 U N D O S P E L L D W I M
0046100 W T F I X C L I S P D W I
0046120 M I F Y C L I S P I F Y R E
0046140 C O R D A S S I S T H E L P
0046160 D L ) ) \r
0046200 ( 006 002 L O A D U P 006 001 ' (
0046220 C O M M O N ) ) \r
0046240 ( 006 002 L O A D U P 006
0046260 001 ' ( H P R I N T M A C R O
0046300 A U X A D D A R I T H ) ) \r
0046320 ( 006 002 L
0046340 O A D U P 006 001 ' ( M S A N A L
0046360 Y Z E M S P A R S E M A S T
0046400 E R S C O P E ) ) \r
0046420 ( D W I M ' C )
0046440 \r ( C
0046460 O M P I L E M O D E ' D ) \r
0046500 ( 006 002 L
0046520 O A D U P 006 001 ' ( A A R I T H
0046540 ) ) \r
0046560 ( 006 002 L O A D U P 006 001 ' ( A D
0046600 I S P L A Y H L D I S P L A Y
0046620 M E N U W I N D O W A T T
0046640 A C H E D W I N D O W W B R E
0046660 A K X X G E O M X X F I L L
0046700 ) ) \r
0046720 ( 006 002 L O A D U P 006 001 ' ( D E
0046740 X E C I N S P E C T ) ) \r
0046760 ( 006 002 L O
0047000 A D U P 006 001 ' ( D E D I T T
0047020 T Y I N ) ) \r
0047040 ( 006 002 L O A D U P 006 001
0047060 ' ( D I S K D L I O N D O V E
0047100 I N P U T O U T P U T D O V E
0047120 D I S K D O V E D I S P L A Y
0047140 D O V E M I S C D O V E E T
0047160 H E R D O V E F L O P P Y \r
0047200
0047220 L O C
0047240 A L F I L E D S K D I S P L A
0047260 Y ) ) \r
0047300 ( 006 002 L O A D U P 006 001 ' ( 1
0047320 0 M B D R I V E R L L N S T
0047340 R S E R V E R ) ) \r
0047360 ( 006 002 L O A D U P
0047400 006 001 ' ( B R K D W N M A T C
0047420 H ) ) \r
0047440 ( 006 002 L O A D U P 006 001 ' ( L
0047460 L F C O M P I L E ) ) \r
0047500 ( 006 002 L O A D
0047520 U P 006 001 ' ( S P P C O U R I
0047540 E R N S P R I N T C L E A R
0047560 I N G H O U S E N S F I L I N
0047600 G H A R D C O P Y P R E S S
0047620 P U P P R I N T I N T E R P
0047640 R E S S \r
0047660
0047700 F L O P P Y ) ) \r
0047720 ( 006 002 L O A D U P
0047740 006 001 ' ( I D L E R ) ) ) \r
0047760 ( C O N D \r
0050000 ( ( L I S T P O
0050020 P T I O N / F I L E S ) \r
0050040 \r
0050060 006 006 ( * R E S E T V A R
0050100 j u s t i n c a s e s o m
0050120 e s u b - l o a d i n g w a
0050140 n t s t o " r e a c h o u
0050160 t " t o o t h e r f i l e
0050200 s ) 006 001 \r \r
0050220 ( 006 002 f o r 006 001 X 006 002 i
0050240 n 006 001 O P T I O N / F I L E S
0050260 \r
0050300 006 002 d o 006 001 [ O R ( F M E M
0050320 B X S Y S F I L E S ) \r
0050340
0050360 ( 006 002 R E S E T V A R 006
0050400 001 D I R E C T O R I E S L O
0050420 A D U P D I R E C T O R I E S \r
0050440
0050460 ( D O F I L E S L
0050500 O A D ( L I S T ' ( S Y S L
0050520 O A D F R O M V A L U E O F
0050540 L O A D U P D I R E C T O R I
0050560 E S ) X ] \r
0050600 ( 006 002 S M A S
0050620 H F I L E C O M S 006 001 X ) ) )
0050640 \r ( T (
0050660 H E L P " B A D L O A D U P
0050700 O P T I O N " O P T I O N /
0050720 F I L E S ] ) \r \r ( 006 004 E N D L
0050740 O A D U P 006 001 \r [ L A M B D
0050760 A N I L 006 006 006 001
0051000
*
0051040 006 006 ( * l m
0051060 m " 2 9 - N o v - 8 4 1 6 :
0051100 3 9 " ) 006 001 \r
0051120 \r 006 006 ( *
0051140 s e t u p f o r N O N E
0051160 T c o n f i g u r a t i o n ;
0051200 s i t e s w i t h e t h e
0051220 r n e t c a n l o a d i n
0051240 i n i t f r o m \r 006 001
0051260 006 006 o t h e r
0051300 p l a c e s ) 006 001 \r
0051320 \r 006
0051340 006 ( * * A l l r e c o r d
0051360 s e x i s t i n g a t t h
0051400 i s p o i n t i n t i m e
0051420 h a v e b e e n l o a d e
0051440 d a s p a r t o f t h e
0051460 \r 006 001 006 006
0051500 s y s t e m . ) 006 001 \r \r
0051520 [ M A P C U S E R R E C L S T
0051540 ( F U N C T I O N ( L A M B
0051560 D A ( R ) \r
0051600
0051620 ( R E C O R D P
0051640 R I O R I T Y R ' S Y S T E
0051660 M ] \r ( M A P C S Y S
0051700 T E M I N I T V A R S ( F U N
0051720 C T I O N ( L A M B D A ( X
0051740 ) \r
0051760
0052000 ( S E T T O P V A
0052020 L ( C A R X ) \r
0052040
*
0052100 ( C O P Y ( C D R
0052120 X ] ) \r ) \r \r ( R P A Q Q 006
0052140 002 L O A D U P D I R E C T O R I
0052160 E S 006 001 ( { E R I S } < L I S
0052200 P C O R E > S O U R C E S > {
0052220 E R I S } < L I S P C O R E > L
0052240 I B R A R Y > { E R I S } < L
0052260 I S P U S E R S > ) ) \r \r ( A D
0052300 D T O V A R 006 002 S Y S T E M I
0052320 N I T V A R S 006 001 ( \ C O N N
0052340 E C T E D . D I R E C T O R Y
0052360 . { D S K } ) \r
0052400
0052420 ( D W I M F L G . T ) \r
0052440
0052460 ( A D D S P E
0052500 L L F L G . T ) \r
0052520
0052540 ( F I L E P K G F L G
0052560 . T ) \r
0052600 ( B
0052620 U I L D M A P F L G . T ) \r
0052640
0052660 ( U P D A T E
0052700 M A P F L G . T ) \r
0052720
0052740 ( D E F A U L T R E G
0052760 I S T R Y ) \r
0053000
0053020 ( D E F A U L T P R I N T I N G
0053040 H O S T ) \r
0053060 (
0053100 D I R E C T O R I E S ) \r
0053120
0053140 ( U S E R G R E E T
0053160 F I L E S ) \r
0053200
0053220 ( N E T W O R K O S T Y P E S )
0053240 \r
0053260 ( C H . N E
0053300 T . H I N T ) \r
0053320
0053340 ( C H . D E F A U L T . D O M
0053360 A I N ) \r
0053400 ( C
0053420 H . D E F A U L T . O R G A N I
0053440 Z A T I O N ) \r
0053460
0053500 ( A D V I S E D F N S ) \r
0053520
0053540 ( L I S P U S E R
0053560 S D I R E C T O R I E S { D S
0053600 K } ) \r
0053620 ( D I
0053640 S P L A Y F O N T D I R E C T O
0053660 R I E S { D S K } ) \r
0053700
0053720 ( D I S P L A Y F O N
0053740 T E X T E N S I O N S D I S P
0053760 L A Y F O N T ) \r
0054000
0054020 ( I N T E R P R E S S F O N
0054040 T D I R E C T O R I E S { D S
0054060 K } ) ) \r ( D E C L A R E % :
0054100 D O N T E V A L @ L O A D D O
0054120 C O P Y \r ( D U M M Y D E F
0054140 ( A D D S T A T S * ) \r
0054160 ( S T A T I N I T N I
0054200 L L ) \r ( L I S P
0054220 X W A T C H N I L L ) \r
0054240 ( C L B U F S N I L L
0054260 ) \r ( F I N D F I
0054300 L E I N F I L E P ) \r
0054320 ( F I L E M A P * ) \r
0054340 ( V I R G I N F N
0054360 G E T D ) \r ( M K
0054400 S W A P P N I L L ) ) \r ( D U
0054420 M M Y D E F ( U S E R N U M B
0054440 E R Z E R O ) \r
0054460 ( H O S T N U M B E R Z E R O
0054500 ) \r ( H O S T N A
0054520 M E N I L L ) \r
0054540 ( T R A P C O U N T Z E R O )
0054560 ) \r ( D U M M Y D E F ( * Q
0054600 U O T E ) \r ( G E
0054620 T P G E T P R O P ) \r
0054640 ( D E C L A R E Q U O T
0054660 E ) \r ( F R P L N
0054700 O D E 2 R P L N O D E 2 ) \r
0054720 ( D I S P L A Y T E
0054740 R M P T R U E ) \r
0054760 ( M I N F S E V Q ) \r
0055000 ( F R P L A C A R P L
0055020 A C A ) \r ( F R P
0055040 L A C D R P L A C D ) \r
0055060 ( M I S S P E L L E D ?
0055100 N I L L ) \r ( U
0055120 N D O S A V E N I L L ) \r
0055140 ( S E T L I N E L E N
0055160 G T H Z E R O ) \r
0055200 ( D O B E N I L L ) \r
0055220 ( R E L I N K N I L L
0055240 ) \r ( P U T P U
0055260 T P R O P ) \r ( /
0055300 P U T P U T P R O P ) \r
0055320 ( M K S W A P E V Q )
0055340 ) \r \r \r ( A D D T O V A R 006 002
0055360 S Y S F I L E S 006 001 ) \r \r ( A
0055400 D D T O V A R 006 002 L I S P X H
0055420 I S T O R Y 006 001 ) \r \r ( A D D
0055440 T O V A R 006 002 L I N K E D F N
0055460 S 006 001 ) \r \r \r ( R P A Q Q 006
0055500 002 S H A L L O W F L G 006 001 N I
0055520 L ) \r \r ( R P A Q Q 006 002 S P A
0055540 G H E T T I F L G 006 001 T ) \r \r
0055560 ( R P A Q Q 006 002 W I D E P A P
0055600 E R F L G 006 001 T ) \r \r ( R P A
0055620 Q Q 006 002 C L E A R S T K L S T
0055640 006 001 T ) \r \r ( R P A Q 006 002 S
0055660 Y S H A S H A R R A Y 006 001 ( H
0055700 A S H A R R A Y 5 0 ) ) \r \r (
0055720 R P A Q Q 006 002 D I S P L A Y T
0055740 E R M F L G 006 001 T ) \r \r ( R P
0055760 A Q Q 006 002 % # U N D O S A V E
0056000 S 006 001 N I L ) \r \r ( R P A Q Q
0056020 006 002 N L A M A 006 001 N I L ) \r
0056040 \r ( R P A Q Q 006 002 N L A M L 006
0056060 001 N I L ) \r \r ( R P A Q Q 006
0056100 002 L A M S 006 001 N I L ) \r \r ( R
0056120 P A Q Q 006 002 E V A L Q T F O R
0056140 M S 006 001 N I L ) \r \r ( R P A Q
0056160 Q 006 002 T T Y L I N E L E N G T
0056200 H 006 001 8 2 ) \r \r ( R P A Q Q
0056220 006 002 C O M P I L E . E X T 006 001
0056240 D C O M ) \r \r ( R P A Q Q 006 002
0056260 S Y S O U T . E X T 006 001 S Y S
0056300 O U T ) \r \r ( R P A Q Q 006 002 H
0056320 O S T N A M E 006 001 N I L ) \r \r
0056340 ( R P A Q 006 002 S Y S T E M T Y
0056360 P E 006 001 ( S Y S T E M T Y P E
0056400 ) ) \r \r ( G C G A G T ) \r ) \r
0056420 ( D E C L A R E % : D O N T E
0056440 V A L @ L O A D D O E V A L @
0056460 C O M P I L E D O N T C O P Y
0056500 C O M P I L E R V A R S \r \r
0056520 ( A D D T O V A R 006 002 N L A M
0056540 A 006 001 R E S E T S A V E R E
0056560 S E T V A R S ) \r \r ( A D D T O
0056600 V A R 006 002 N L A M L 006 001 R E
0056620 S E T V A R ) \r \r ( A D D T O V
0056640 A R 006 002 L A M A 006 001 S E T -
0056660 D O C U M E N T A T I O N E R
0056700 R O R X ) \r ) \r ( P R E T T Y C
0056720 O M P R I N T A P U T D Q C O
0056740 M S ) \r \r ( R P A Q Q 006 002 A P
0056760 U T D Q C O M S 006 001 \r
0057000 [ ( F N S G R E E T F I
0057020 L E N A M E F A U L T E V A L
0057040 F A U L T A P P L Y E R R O
0057060 R X S E T - D O C U M E N T A
0057100 T I O N ) \r ( F
0057120 N S S M A S H F I L E C O M S
0057140 S M A S H F I L E C O M S L S
0057160 T ) \r ( I N I T
0057200 V A R S ( D E F A U L T R E G
0057220 I S T R Y ) \r
0057240 ( U S E R G R E E T
0057260 F I L E S ) \r
0057300 ( L O G I N H O S T
0057320 / D I R ' { D S K } ) ) \r
0057340 ( F N S R E S E T
0057360 R E S T O R E R E S E T V A R
0057400 S R E S E T S A V E R E S E
0057420 T V A R ) \r ( F
0057440 N S L O A D U P E N D L O A
0057460 D U P ) \r ( V A
0057500 R S L O A D U P D I R E C T O
0057520 R I E S ) \r ( A
0057540 L I S T S ( S Y S T E M I N I
0057560 T V A R S \ C O N N E C T E D
0057600 . D I R E C T O R Y D W I M F
0057620 L G A D D S P E L L F L G F
0057640 I L E P K G F L G B U I L D M
0057660 A P F L G \r
0057700 U P
0057720 D A T E M A P F L G D E F A U
0057740 L T R E G I S T R Y D E F A U
0057760 L T P R I N T I N G H O S T D
0060000 I R E C T O R I E S U S E R G
0060020 R E E T F I L E S \r
0060040
0060060 N E T W O R K O S T Y P E S
0060100 C H . N E T . H I N T C H .
0060120 D E F A U L T . D O M A I N C
0060140 H . D E F A U L T . O R G A N I
0060160 Z A T I O N \r
0060200 A
0060220 D V I S E D F N S L I S P U S
0060240 E R S D I R E C T O R I E S D
0060260 I S P L A Y F O N T D I R E C T
0060300 O R I E S D I S P L A Y F O N
0060320 T E X T E N S I O N S \r
0060340
0060360 I N T E R P R E S S F O
0060400 N T D I R E C T O R I E S ) ) \r
0060420 ( D E C L A R E
0060440 % : D O N T E V A L @ L O A D
0060460 D O C O P Y ( P ( D U M M
0060500 Y D E F ( A D D S T A T S *
0060520 ) \r
0060540
*
0060600 ( S T A T I N I T N I
0060620 L L ) \r
0060640
*
0060700 ( L I S P X W A T C
0060720 H N I L L ) \r
0060740
*
0061000 ( C L B U F
0061020 S N I L L ) \r
0061040
*
0061100 ( F I N D F
0061120 I L E I N F I L E P ) \r
0061140
*
0061200 (
0061220 F I L E M A P * ) \r
0061240
*
0061300 ( V I
0061320 R G I N F N G E T D ) \r
0061340
*
0061400 (
0061420 M K S W A P P N I L L ) ) \r
0061440
*
0061500 ( D U M M Y
0061520 D E F ( U S E R N U M B E R
0061540 Z E R O ) \r
0061560
*
0061620 ( H O S T N U M
0061640 B E R Z E R O ) \r
0061660
*
0061720 ( H O S
0061740 T N A M E N I L L ) \r
0061760
*
0062020 ( T
0062040 R A P C O U N T Z E R O ) ) \r
0062060
*
0062120 ( D U M M
0062140 Y D E F ( * Q U O T E ) \r
0062160
*
0062240 ( G E T P G E T P R O P ) \r
0062260
*
0062340 ( D E C L A R E Q U O T E
0062360 ) \r
0062400
*
0062440 ( F R P L N O D E 2 R
0062460 P L N O D E 2 ) \r
0062500
*
0062540 ( D I S P
0062560 L A Y T E R M P T R U E ) \r
0062600
*
0062660 ( M I N F S E V Q ) \r
0062700
*
0062740 (
0062760 F R P L A C A R P L A C A ) \r
0063000
*
0063060 ( F R P L A C D R P L A C
0063100 D ) \r
0063120
*
0063160 ( M I S S P E L L E D
0063200 ? N I L L ) \r
0063220
*
0063260 ( U N D O S
0063300 A V E N I L L ) \r
0063320
*
0063360 ( S E T
0063400 L I N E L E N G T H Z E R O )
0063420 \r
0063440
*
0063500 ( D O B E N I L L ) \r
0063520
*
0063600 ( R E L I N K N I L L ) \r
0063620
*
0063700 ( P U T P U T P R O P ) \r
0063720
*
0064000 ( / P U T P U T P R O P ) \r
0064020
*
0064100 ( M K S W A P E V Q ) ) )
0064120 \r
0064140 ( A D D V A R S ( S Y S F I L
0064160 E S ) \r
0064200 ( L I S P X
0064220 H I S T O R Y ) \r
0064240 (
0064260 L I N K E D F N S ) ) \r
0064300 ( V A R S
0064320 ( S H A L L O W F L G ) \r
0064340
0064360 ( S P A G H E T T I F L G
0064400 T ) \r
0064420 ( W I D E P A
0064440 P E R F L G T ) \r
0064460 (
0064500 C L E A R S T K L S T T ) \r
0064520
0064540 ( S Y S H A S H A R R A
0064560 Y ( H A S H A R R A Y 5 0 )
0064600 ) \r
0064620 ( D I S P L A Y T
0064640 E R M F L G T ) \r
0064660 (
0064700 % # U N D O S A V E S ) \r
0064720
0064740 ( N L A M A ) \r
0064760 (
0065000 N L A M L ) \r
0065020 ( L A M
0065040 S ) \r
0065060 ( E V A L Q T F
0065100 O R M S ) \r
0065120 ( T T Y L
0065140 I N E L E N G T H 8 2 ) \r
0065160
0065200 ( C O M P I L E . E X T
0065220 ' D C O M ) \r
0065240 ( S Y S
0065260 O U T . E X T ' S Y S O U T )
0065300 \r
0065320 ( H O S T N A M E )
0065340 \r
0065360 ( S Y S T E M T Y P
0065400 E ( S Y S T E M T Y P E ) ) )
0065420 \r
0065440 ( P ( G C G A G T ) ) ) \r
0065460 ( D E C L A R E %
0065500 : D O N T E V A L @ L O A D
0065520 D O E V A L @ C O M P I L E D
0065540 O N T C O P Y C O M P I L E R
0065560 V A R S ( A D D V A R S ( N
0065600 L A M A R E S E T S A V E \r
0065620
*
0065740 R E S E T V A R S
0065760 \r
0066000
*
0066100 F A U L T E V A L
0066120 ) \r
0066140
*
0066220 (
0066240 N L A M L R E S E T V A R ) \r
0066260
*
0066360 ( L A
0066400 M A S E T - D O C U M E N T A
0066420 T I O N ] ) \r ( D E C L A R E %
0066440 : D O N T E V A L @ L O A D
0066460 D O E V A L @ C O M P I L E D
0066500 O N T C O P Y C O M P I L E R
0066520 V A R S \r \r ( A D D T O V A R
0066540 006 002 N L A M A 006 001 R E S E T
0066560 S A V E R E S E T V A R S F
0066600 A U L T E V A L ) \r \r ( A D D T
0066620 O V A R 006 002 N L A M L 006 001 R
0066640 E S E T V A R ) \r \r ( A D D T O
0066660 V A R 006 002 L A M A 006 001 S E T
0066700 - D O C U M E N T A T I O N ) \r
0066720 ) \r ( P U T P R O P S A P U T
0066740 D Q C O P Y R I G H T ( " X
0066760 e r o x C o r p o r a t i o n
0067000 " 1 9 8 1 1 9 8 2 1 9 8 3
0067020 1 9 8 4 1 9 8 5 1 9 8 6 )
0067040 ) \r ( D E C L A R E % : D O N
0067060 T C O P Y \r ( F I L E M A P
0067100 ( N I L ( 4 2 8 2 6 7 5 9
0067120 ( G R E E T F I L E N A M E
0067140 4 2 9 2 . 5 8 3 7 ) ( F A
0067160 U L T E V A L 5 8 3 9 . 5
0067200 9 6 7 ) ( F A U L T A P P L Y
0067220 5 9 6 9 . 6 0 9 9 ) \r (
0067240 E R R O R X 6 1 0 1 . 6 2
0067260 2 4 ) ( S E T - D O C U M E N
0067300 T A T I O N 6 2 2 6 . 6 7
0067320 5 7 ) ) ( 6 7 6 0 9 1 0 1
0067340 ( S M A S H F I L E C O M S 6
0067360 7 7 0 . 7 2 9 9 ) ( \r S M
0067400 A S H F I L E C O M S L S T 7
0067420 3 0 1 . 9 0 9 9 ) ) ( 9 1
0067440 9 5 1 8 6 1 6 ( R E S E T R
0067460 E S T O R E 9 2 0 5 . 1 0
0067500 5 3 3 ) ( R E S E T V A R S
0067520 1 0 5 3 5 . 1 5 0 2 3 ) (
0067540 \r R E S E T S A V E 1 5 0 2 5
0067560 . 1 7 2 3 9 ) ( R E S E T
0067600 V A R 1 7 2 4 1 . 1 8 6 1
0067620 4 ) ) ( 1 8 6 1 7 2 1 5 9 0
0067640 ( L O A D U P 1 8 6 2 7 .
0067660 2 0 9 5 1 ) ( E N D L O A D
0067700 U P \r 2 0 9 5 3 . 2 1 5 8
0067720 8 ) ) ) ) ) \r S T O P \r
0067734