$ od -c -N 50000 [eris]<LispCore>SOURCES>APUTDQ!35
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 0 : 4
0000140 8 " 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 5 006 001 3 2 2 0 2
0000220 \r \r p r e v i o u
0000240 s d a t e % : " 1 6 - O c t
0000260 - 8 6 2 3 : 4 1 : 5 7 " { E
0000300 R I S } < L I S P C O R E > S O
0000320 U R C E S > A P U T D Q . ; 3 4
0000340 ) \r \r \r ( * " \r C o p y r i g
0000360 h t ( c ) 1 9 8 1 , 1 9 8
0000400 2 , 1 9 8 3 , 1 9 8 4 , 1
0000420 9 8 5 , 1 9 8 6 b y X e r
0000440 o x C o r p o r a t i o n .
0000460 A l l r i g h t s r e s e
0000500 r v e d . \r " ) \r \r ( P R E T T
0000520 Y C O M P R I N T A P U T D Q
0000540 C O M S ) \r \r ( R P A Q Q 006 002
0000560 A P U T D Q C O M S 006 001 \r
0000600 [ ( F N S G R E E T
0000620 F I L E N A M E F A U L T E V
0000640 A L F A U L T A P P L Y E R
0000660 R O R X S E T - D O C U M E N
0000700 T A T I O N ) \r
0000720 ( F N S S M A S H F I L E C O
0000740 M S S M A S H F I L E C O M S
0000760 L S T ) \r ( I N
0001000 I T V A R S ( D E F A U L T R
0001020 E G I S T R Y ) \r
0001040 ( U S E R G R E
0001060 E T F I L E S ) \r
0001100 ( L O G I N H O
0001120 S T / D I R ' { D S K } ) ) \r
0001140 ( F N S R E S
0001160 E T R E S T O R E R E S E T V
0001200 A R S R E S E T S A V E R E
0001220 S E T V A R ) \r
0001240 ( F N S L O A D U P E N D L
0001260 O A D U P ) \r (
0001300 V A R S L O A D U P D I R E C
0001320 T O R I E S ) \r
0001340 ( A L I S T S ( S Y S T E M I
0001360 N I T V A R S \ C O N N E C T
0001400 E D . D I R E C T O R Y D W I
0001420 M F L G A D D S P E L L F L G
0001440 F I L E P K G F L G B U I L
0001460 D M A P F L G \r
0001500
0001520 U P D A T E M A P F L G D E F
0001540 A U L T R E G I S T R Y D E F
0001560 A U L T P R I N T I N G H O S T
0001600 D I R E C T O R I E S U S E
0001620 R G R E E T F I L E S \r
0001640
0001660 N E T W O R K O S T Y P
0001700 E S C H . N E T . H I N T C
0001720 H . D E F A U L T . D O M A I N
0001740 C H . D E F A U L T . O R G A
0001760 N I Z A T I O N \r
0002000
0002020 A D V I S E D F N S L I S P
0002040 U S E R S D I R E C T O R I E S
0002060 D I S P L A Y F O N T D I R E
0002100 C T O R I E S D I S P L A Y F
0002120 O N T E X T E N S I O N S \r
0002140
0002160 I N T E R P R E S S
0002200 F O N T D I R E C T O R I E S )
0002220 ) \r ( D E C L A
0002240 R E % : D O N T E V A L @ L O
0002260 A D D O C O P Y ( P ( D U
0002300 M M Y D E F ( A D D S T A T S
0002320 * ) \r
0002340
*
0002400 ( S T A T I N I T
0002420 N I L L ) \r
0002440
*
0002500 ( L I S P X W A
0002520 T C H N I L L ) \r
0002540
*
0002600 ( C L B
0002620 U F S N I L L ) \r
0002640
*
0002700 ( F I N
0002720 D F I L E I N F I L E P ) \r
0002740
*
0003020 ( F I L E M A P * ) \r
0003040
*
0003100 (
0003120 V I R G I N F N G E T D ) \r
0003140
*
0003220 ( M K S W A P P N I L L ) )
0003240 \r
0003260
0003300 ( D U M
0003320 M Y D E F ( U S E R N U M B E
0003340 R Z E R O ) \r
0003360
*
0003420 ( H O S T N
0003440 U M B E R Z E R O ) \r
0003460
*
0003520 ( H
0003540 O S T N A M E N I L L ) \r
0003560
*
0003640 ( T R A P C O U N T Z E R O )
0003660 ) \r
0003700
0003720 ( D U
0003740 M M Y D E F ( * Q U O T E )
0003760 \r
0004000
*
0004040 ( G E T P G E T P R O P
0004060 ) \r
0004100
*
0004140 ( D E C L A R E Q U O
0004160 T E ) \r
0004200
*
0004240 ( F R P L N O D E 2
0004260 R P L N O D E 2 ) \r
0004300
*
0004340 ( D I
0004360 S P L A Y T E R M P T R U E )
0004400 \r
0004420
*
0004460 ( M I N F S E V Q ) \r
0004500
*
0004560 ( F R P L A C A R P L A C A
0004600 ) \r
0004620
*
0004660 ( F R P L A C D R P L
0004700 A C D ) \r
0004720
*
0004760 ( M I S S P E L L
0005000 E D ? N I L L ) \r
0005020
*
0005060 ( U N D
0005100 O S A V E N I L L ) \r
0005120
*
0005160 ( S
0005200 E T L I N E L E N G T H Z E R
0005220 O ) \r
0005240
*
0005300 ( D O B E N I L L )
0005320 \r
0005340
*
0005400 ( R E L I N K N I L L )
0005420 \r
0005440
*
0005500 ( P U T P U T P R O P )
0005520 \r
0005540
*
0005600 ( / P U T P U T P R O P
0005620 ) \r
0005640
*
0005700 ( M K S W A P E V Q )
0005720 ) ) \r
0005740 ( A D D V A R S ( S Y S F
0005760 I L E S ) \r
0006000 ( L I S
0006020 P X H I S T O R Y ) \r
0006040
0006060 ( L I N K E D F N S ) ) \r
0006100 ( V A
0006120 R S ( S H A L L O W F L G ) \r
0006140
0006160 ( S P A G H E T T I F
0006200 L G T ) \r
0006220 ( W I D E
0006240 P A P E R F L G T ) \r
0006260
0006300 ( C L E A R S T K L S T T )
0006320 \r
0006340 ( S Y S H A S H A R
0006360 R A Y ( H A S H A R R A Y 5
0006400 0 ) ) \r
0006420 ( D I S P L A
0006440 Y T E R M F L G T ) \r
0006460
0006500 ( % # U N D O S A V E S ) \r
0006520
0006540 ( N L A M A ) \r
0006560
0006600 ( N L A M L ) \r
0006620 ( L
0006640 A M S ) \r
0006660 ( E V A L Q
0006700 T F O R M S ) \r
0006720 ( T T
0006740 Y L I N E L E N G T H 8 2 ) \r
0006760
0007000 ( C O M P I L E . E X
0007020 T ' D C O M ) \r
0007040 ( S
0007060 Y S O U T . E X T ' S Y S O U
0007100 T ) \r
0007120 ( H O S T N A M
0007140 E ) \r
0007160 ( S Y S T E M T
0007200 Y P E ( S Y S T E M T Y P E )
0007220 ) ) \r
0007240 ( P ( G C G A G T ) ) )
0007260 \r ( D E C L A R
0007300 E % : D O N T E V A L @ L O A
0007320 D D O E V A L @ C O M P I L E
0007340 D O N T C O P Y C O M P I L
0007360 E R V A R S ( A D D V A R S
0007400 ( N L A M A R E S E T S A V E
0007420 \r
0007440
*
0007540 R E S E T V A R
0007560 S \r
0007600
*
0007700 F A U L T E V
0007720 A L ) \r
0007740
*
0010040 ( N L A M L R E S E T V A R
0010060 ) \r
0010100
*
0010160 (
0010200 L A M A ] ) \r ( D E F I N E Q \r
0010220 \r ( 006 004 G R E E T F I L E N A M
0010240 E 006 001 \r [ L A M B D A ( U
0010260 S E R ) 006 006 006 001
0010300
*
0010340 006 006 ( * l m m " 1
0010360 2 - A p r - 8 5 1 8 : 1 1 " )
0010400 006 001 \r
0010420
*
0010500 006 006 ( * R e t u r n s n a m
0010520 e o f a n e x i s t i n g
0010540 \r 006 001
0010560
*
0010640 006 006 g r e e t i n g f i l e
0010660 , o r N I L ) 006 001 \r
0010700 ( 006 002 D E C L A R E 006 001 ( G L
0010720 O B A L V A R S U S E R G R E
0010740 E T F I L E S L O G I N H O S
0010760 T / D I R C O M P I L E . E X
0011000 T ) ) \r ( S E L E C T Q
0011020 U S E R \r ( T
0011040 ( O R ( I N F I L E P ' {
0011060 D S K } I N I T . L I S P ) \r
0011100 ( 006
0011120 002 b i n d 006 001 F I L E 006 002 w
0011140 h i l e 006 001 ( S E T Q F I L
0011160 E ( P R O M P T F O R W O R D
0011200 ' \r
0011220 " P l e a s e e n
0011240 t e r n a m e o f s y s t
0011260 e m i n i t f i l e \r ( e .
0011300 g . { s e r v e r } < d i r e
0011320 c t o r y > I N I T . e x t e n
0011340 s i o n ) : " ) ) 006 002 u n t
0011360 i l 006 001 ( S E T Q F I L E
0011400 ( I N F I L E P ( M K A T O M
0011420 F I L E ) ) ) \r
0011440 006 002 f i n
0011460 a l l y 006 001 ( R E T U R N F
0011500 I L E ) ) ) ) \r
0011520 ( N I L ) \r ( C
0011540 O N D \r (
0011560 ( L I S T P U S E R G R E E T
0011600 F I L E S ) \r
0011620 ( P R O G [ ( P O S (
0011640 A N D D E F A U L T R E G I S
0011660 T R Y ( S T R P O S ' % .
0011700 ( S E T Q U S E R ( U - C A
0011720 S E U S E R ] \r
0011740 [ C O N D
0011760 \r
0012000 ( ( A N D P O S
0012020 ( S T R E Q U A L ( S U B S T
0012040 R I N G U S E R ( A D D 1
0012060 P O S ) \r
0012100
*
0012140 - 1 ) \r
0012160
0012200 (
0012220 M K S T R I N G D E F A U L T
0012240 R E G I S T R Y ) ) ) \r
0012260
0012300 ( S E T Q U S E R ( S U
0012320 B S T R I N G U S E R 1 (
0012340 S U B 1 P O S ] \r
0012360 ( R E T
0012400 U R N ( 006 002 f o r 006 001 D 006
0012420 002 i n 006 001 ( C O N D \r
0012440
*
0012500 ( ( L I S T P ( C A R
0012520 U S E R G R E E T F I L E S ) )
0012540 \r
0012560
0012600 U S E R G R E
0012620 E T F I L E S ) \r
0012640
*
0012700 ( T ( C O N S U S E R G R E
0012720 E T F I L E S ) ) ) \r
0012740
0012760 006 002 w h e n 006 001
0013000 [ S E T Q D ( I N F I L E
0013020 P ( P A C K ( S U B P A I R
0013040 ' ( U S E R C O M ) ( L I
0013060 S T U S E R C O M P I L E .
0013100 E X T ) \r
0013120
*
0013200 D ] 006 002 d o 006 001 (
0013220 R E T U R N D ] ) \r \r ( 006 004 F
0013240 A U L T E V A L 006 001 \r [ L A
0013260 M B D A ( F A U L T X ) \r
0013300 ( P R O G ( T E M T E M
0013320 2 ) \r [ C O
0013340 N D \r
0013360 ( ( L I S T P F A U L T X ) \r
0013400 [ C
0013420 O N D \r
0013440 ( ( L I T A T O M (
0013460 S E T Q T E M ( C A R F A
0013500 U L T X ) ) ) \r
0013520 ( C O N D \r
0013540
0013560 ( [ A N D ( S E T Q
0013600 T E M 2 ( G E T M A C R O P
0013620 R O P T E M C O M P I L E R
0013640 M A C R O P R O P S ) ) \r
0013660
0013700 ( N O T ( E Q
0013720 U A L F A U L T X ( S E T Q
0013740 T E M 2 ( M A C R O E X P A
0013760 N S I O N F A U L T X T E M
0014000 2 ] \r
0014020 ( C O N D \r
0014040
0014060 ( C L I S P A R
0014100 R A Y ( P U T H A S H F A U
0014120 L T X ( O R ( L I S T P T
0014140 E M 2 ) \r
0014160
*
0014220 ( L
0014240 I S T ' P R O G N T E M 2 )
0014260 ) \r
0014300
0014320 C L
0014340 I S P A R R A Y ) ) ) \r
0014360
0014400 ( R E T U R N ( \ E V A L
0014420 T E M 2 ) ) ) \r
0014440 [ (
0014460 S E T Q T E M 2 ( G E T T
0014500 E M ' M A C R O - F N ) ) \r
0014520
0014540 ( R E T U R N ( \ E
0014560 V A L ( C L : F U N C A L L
0014600 * M A C R O E X P A N D - H O O
0014620 K * T E M 2 F A U L T X N
0014640 I L ] \r
0014660 ( T ( S E T
0014700 Q T E M ( G E T D ( C A R
0014720 F A U L T X ] \r
0014740 ( C O N D \r
0014760 ( (
0015000 A N D ( L I S T P T E M ) \r
0015020
0015040 ( F M E M B ( C
0015060 A R T E M ) \r
0015100
0015120 L A M B D A S P L S
0015140 T ) ) \r
0015160 ( R E T U R N ( \
0015200 E V A L F O R M A S L A M B D A
0015220 F A U L T X ] \r
0015240 ( R E T U R N ( C O N D
0015260 \r
0015300 ( ( A N D D W I M
0015320 F L G ( G E T D ' N E W F A
0015340 U L T 1 ) ) \r
0015360 ( N E
0015400 W F A U L T 1 F A U L T X ) )
0015420 \r
0015440 ( T ( O L D F A U
0015460 L T 1 F A U L T X ] ) \r \r ( 006
0015500 004 F A U L T A P P L Y 006 001 \r
0015520 [ L A M B D A ( F A U L T F N
0015540 F A U L T A R G S ) \r
0015560 ( C O N D \r ( ( C
0015600 C O D E P F A U L T F N ) 006 006
0015620 006 001
0015640 006 006 ( *
0015660 ; ; \r 006 001
0015700
0015720 006 006 " h a c k t o h a n
0015740 d l e c a s e w h e r e m
0015760 i c r o c o d e d o e s n ' t
0016000 k n o w h o w t o F U N
0016020 C A L L a C C O D E P " ) 006
0016040 001 \r ( S P R E A
0016060 D A P P L Y ' \ I N T E R P R
0016100 E T E R - D U M M Y ( U N I N
0016120 T E R R U P T A B L Y \r
0016140
*
0016200 ( P U T D '
0016220 \ I N T E R P R E T E R - D U M
0016240 M Y F A U L T F N T ) \r
0016260
*
0016320 F A U L T
0016340 A R G S ) ) ) \r (
0016360 T ( P R O G ( ( D E F ( C
0016400 O N D \r
0016420 ( ( C
0016440 L : S Y M B O L P F A U L T F
0016460 N ) \r
0016500 ( G E
0016520 T D F A U L T F N ) ) \r
0016540
0016560 ( T F A U L T F N
0016600 ) ) ) \r
0016620 % % L E X I C A L - E
0016640 N V I R O N M E N T % % ) \r
0016660 R E T R Y \r
0016700
0016720 ( C O N D \r
0016740 ( ( T Y P E P
0016760 D E F ' C L O S U R E ) 006 006
0017000 006 001
0017020 006 006 ( * ; " a
0017040 n i n t e r p r e t e d c l
0017060 o s u r e " ) 006 001 \r
0017100 (
0017120 S E T Q % % L E X I C A L - E
0017140 N V I R O N M E N T % % ( C L
0017160 O S U R E - E N V I R O N M E N
0017200 T D E F ) ) \r
0017220 ( S E T
0017240 Q D E F ( C L O S U R E - F
0017260 U N C T I O N D E F ) ) \r
0017300
0017320 ( G O R E T R Y ) ) ) \r
0017340 (
0017360 R E T U R N ( P R O G ( T R
0017400 A N T R A N F N ) \r
0017420
0017440 ( O R ( A N
0017460 D ( L I S T P D E F ) \r
0017500
*
0017540 ( F M E M B ( C A R
0017560 D E F ) \r
0017600
*
0017640 L A M B D A S P L S T )
0017660 ) \r
0017700
0017720 ( G O O U T ) ) \r
0017740
0017760 ( C O N
0020000 D \r
0020020
0020040 ( ( O R ( S E T Q T R
0020060 A N ( G E T H A S H D E F
0020100 C L I S P A R R A Y ) ) \r
0020120
*
0020160 ( A N D [ S E T Q T R
0020200 A N F N ( C A R ( C D R (
0020220 A S S O C ( C A R D E F ) \r
0020240
*
0020340 L A M B D A T
0020360 R A N F N S ] \r
0020400
*
0020440 ( L I S T P ( S E T Q
0020460 T R A N ( C L : F U N C A L L
0020500 T R A N F N D E F ) ) ) \r
0020520
*
0020560 ( P R O G N
0020600 ( A N D C L I S P A R R A Y
0020620 ( P U T H A S H D E F T R
0020640 A N C L I S P A R R A Y ) ) \r
0020660
*
0020740 T ) ) ) 006 006 006 001 \r
0020760
*
0021020 006 006 (
0021040 * ; ; \r 006 001
0021060
*
0021120 006 006 " e i t
0021140 h e r i n C L I S P A R R A
0021160 Y o r t r a n s l a t e d
0021200 b y l a m b d a - t r a n " )
0021220 006 001 \r
0021240
0021260 ( S E T Q D E F T
0021300 R A N ) ) \r
0021320
0021340 ( % % L E X I C A
0021360 L - E N V I R O N M E N T % %
0021400 006 006 006 001 006 006 ( * ; ; "
0021420 f o u n d t h e e n v i r o
0021440 n m e n t " ) 006 001 ) \r
0021460
0021500 ( T (
0021520 G O O U T ) ) ) \r
0021540
0021560 ( R E T U R N
0021600 ( A P P L Y D E F F A U L T
0021620 A R G S ) ) \r
0021640
0021660 O U T ( C L : C E R R O R
0021700 " C a l l t h e f u n c t i
0021720 o n a g a i n " ( M A K E -
0021740 C O N D I T I O N ' \r
0021760
*
0022060 U N D E F I N E D -
0022100 F U N C T I O N : N A M E \r
0022120
*
0022220 F A U L T F
0022240 N ) ) \r
0022260
0022300 ( R E T U R N ( C L : A P
0022320 P L Y F A U L T F N F A U L
0022340 T A R G S ] ) \r \r ( 006 004 E R R O
0022360 R X 006 001 \r ( C L : L A M B D
0022400 A ( & O P T I O N A L E R X
0022420 M ( E R R O R F N ( F U N C
0022440 T I O N E R R O R ! ) ) ) \r
0022460 ( C L : U N L E
0022500 S S ( C O N D I T I O N - T Y
0022520 P E P E R X M ' C O N D I T
0022540 I O N ) \r
0022560 ( S E T Q E R X M
0022600 ( E R R M - T O - C O N D I T I
0022620 O N ( C A R E R X M ) \r
0022640
*
0022700 ( C A D R E R X M ) ) ) \r
0022720 ( R
0022740 A I S E - S I G N A L E R X M
0022760 ) ) \r ( S E T
0023000 Q * L A S T - C O N D I T I O
0023020 N * E R X M ) \r
0023040 ( L E T ( ( P R I N T M S
0023060 G T ) ) \r
0023100 ( 006 002 D E C L A R E 006 001
0023120 ( C L : S P E C I A L P R I
0023140 N T M S G ) ) \r
0023160 ( C O N D \r
0023200 ( ( N
0023220 U L L ( E N T E R - D E B U G
0023240 G E R - P H E L P D E P T H )
0023260 ) 006 006 006 001 006 006 (
0023300 * ; ; " s a y s n o t
0023320 t o e n t e r d e b u g g e
0023340 r " ) 006 001 \r
0023360 ( C O N D \r
0023400
0023420 ( P R I N T M S G 006 006 006
0023440 001
0023460 006 006 ( * ; "
0023500 p r i n t m e s s a g e i f
0023520 n o b r e a k i s t o
0023540 o c c u r . " ) 006 001 \r
0023560
0023600 ( R E P O R T - C
0023620 O N D I T I O N E R X M T )
0023640 ) ) \r
0023660 ( E R R O R ! ) ) ) \r
0023700 ( D
0023720 E B U G G E R - L O O P E R R
0023740 O R F N N I L N I L E R X
0023760 M N I L ) ) ) ) \r \r ( 006 004 S E
0024000 T - D O C U M E N T A T I O N 006
0024020 001 \r ( C L : L A M B D A (
0024040 N A M E D O C - T Y P E N E
0024060 W - S T R I N G ) \r
0024100 ( C L : B L O C K S E T
0024120 - D O C U M E N T A T I O N (
0024140 C L : I F L I S P X H I S T
0024160 ( U N D O A B L Y - S E T F (
0024200 G E T H A S H N A M E ( \r
0024220
*
0024320 H A S
0024340 H - T A B L E - F O R - D O C -
0024360 T Y P E \r
0024400
*
0024500 D O C - T Y P
0024520 E ) ) \r
0024540
*
0024620 N E W - S T R I N G ) ) \r
0024640 ( C
0024660 L : S E T F ( G E T H A S H
0024700 N A M E ( H A S H - T A B L E
0024720 - F O R - D O C - T Y P E D O
0024740 C - T Y P E ) ) \r
0024760
0025000 N E W - S T R I N G ) ) ) ) \r )
0025020 \r ( D E F I N E Q \r \r ( 006 004 S M
0025040 A S H F I L E C O M S 006 001 \r
0025060 [ L A M B D A ( F I L E ) 006 006
0025100 006 001
0025120
0025140 006
0025160 006 ( * J o n L " 8 - J u n
0025200 - 8 4 1 0 : 4 3 " ) 006 001 \r
0025220
*
0025300 006 006 ( *
0025320 d u m m y d e f i n i t i o n
0025340 f o r A P U T D Q ) 006 001 \r
0025360 ( P R O G [ ( F I L E C
0025400 O M S ( P A C K ( L I S T
0025420 F I L E ' C O M S ] \r
0025440 ( C O N D \r
0025460 ( ( B O U N D
0025500 P F I L E C O M S ) \r
0025520 \r
0025540 006 006 ( * A l r e a d y l o
0025560 a d e d , b u t m a y w a
0025600 n t t o c l o b b e r i t
0025620 s F N S , V A R S , a n d
0025640 B L O C K S E . G . \r 006 001
0025660 006 006 M I S C ,
0025700 B A S I C . ) 006 001 \r \r
0025720 ( 006 002 S M A
0025740 S H F I L E C O M S L S T 006 001
0025760 ( G E T A T O M V A L F I L E
0026000 C O M S ) ) \r
0026020 ( S E T F I L E C O
0026040 M S ' N O B I N D ] ) \r \r ( 006
0026060 004 S M A S H F I L E C O M S L S
0026100 T 006 001 \r [ L A M B D A ( C
0026120 O M S ) 006 006 006 001
0026140
*
0026200 006 006 ( * l m m " 1
0026220 1 - M A R - 8 3 1 3 : 1 7 " )
0026240 006 001 \r ( M A P C C O M
0026260 S ( F U N C T I O N ( L A M
0026300 B D A ( C O M ) \r
0026320
0026340 ( P R O G ( N A M E
0026360 ) \r
0026400
0026420 ( A N D ( E Q ( C A D
0026440 R C O M ) \r
0026460
*
0026520 ' * ) \r
0026540
0026560 ( L I T A
0026600 T O M ( C A D D R C O M ) )
0026620 \r
0026640
0026660 ( S E T Q N A M
0026700 E ( C A D D R C O M ) ) ) \r
0026720
*
0026760 ( S E L E C T Q ( C A R C
0027000 O M ) \r
0027020
0027040 ( C O M S [
0027060 006 002 S M A S H F I L E C O M S L
0027100 S T 006 001 ( C O N D \r
0027120
*
0027200 ( N A M E
0027220 ( G E T A T O M V A L N A M
0027240 E ) ) \r
0027260
*
0027340 ( T ( C D R C O M ]
0027360 ) \r
0027400
0027420 ( F I L E V A R S
0027440 [ S E T Q N A M E ( C O N
0027460 D \r
0027500
*
0027540 (
0027560 ( E Q ( C A D R C O M ) \r
0027600
*
0027700 ' * ) \r \r
0027720 006 006 ( * i
0027740 f c a d d r i s a l i t
0027760 a t o m , n a m e w a s s
0030000 e t t o i t a b o v e . \r
0030020 006 001 006 006 i f
0030040 c a d d r i s n o t , d
0030060 a n g e r o u s t o e v a l
0030100 u a t e t h e f o r m , s
0030120 o p u n t ) 006 001 \r \r
0030140
*
0030220 ( G E T A T O
0030240 M V A L N A M E ) ) \r
0030260
*
0030340 ( T ( C D R
0030360 C O M ] ) \r
0030400
0030420 ( ( P R
0030440 O P I F P R O P ) \r
0030460
*
0030520 [ C O N D \r
0030540
*
0030600 ( ( A N D (
0030620 E Q ( C A D D R C O M ) \r
0030640
*
0030720 ' * ) \r
0030740
*
0031000 ( L I
0031020 T A T O M ( C A D D D R C O
0031040 M ) ) ) \r
0031060
*
0031120 ( S E T Q N A M E ( C
0031140 A D D D R C O M ] ) \r
0031160
*
0031220 N I L ) \r
0031240
0031260 ( C O N D \r
0031300
*
0031340 ( ( A N D N A M E ( L I T
0031360 A T O M N A M E ) ) \r
0031400
*
0031440 ( S E T N A M E ' N O B I
0031460 N D ] ) \r ) \r \r ( R P A Q ? 006
0031500 002 D E F A U L T R E G I S T R Y
0031520 006 001 ) \r \r ( R P A Q ? 006 002 U
0031540 S E R G R E E T F I L E S 006 001
0031560 ) \r \r ( R P A Q ? 006 002 L O G I
0031600 N H O S T / D I R 006 001 ' { D S
0031620 K } ) \r ( D E F I N E Q \r \r ( 006
0031640 004 R E S E T R E S T O R E 006 001 \r
0031660 [ L A M B D A ( R E S E T
0031700 V A R S L S T 0 R E S E T S T
0031720 A T E ) 006 006 006 001
0031740
0031760 006 006 ( * w t % : " 1 5 - M
0032000 A R - 7 8 1 4 : 2 5 " ) 006 001 \r
0032020 \r
0032040 006 006 ( * G o e s d
0032060 o w n R E S E T V A R S L S T
0032100 d o i n g r e s t o r a t i
0032120 o n u n t i l i t g e t s
0032140 t o N I L o r \r 006 001
0032160 006 006 R E S E T V
0032200 A R S L S T 0 . R E S E T S T
0032220 A T E i s e i t h e r N I
0032240 L , E R R O R , o r R E S
0032260 E T , d e p e n d i n g o n
0032300 w h e t h e r \r 006 001
0032320 006 006 r e s t o r a t
0032340 i o n i s a t n o r m a l
0032360 ( s u c c e s s f u l ) c o
0032400 m p l e t i o n o f a R E
0032420 S E T L S T , f o l l o w i n
0032440 g a n \r 006 001
0032460 006 006 e r r o r o r c o n
0032500 t r o l - E , o r f o l l o
0032520 w i n g a c o n t r o l - D
0032540 ) 006 001 \r \r ( P R O G (
0032560 R E S E T Z O L D V A L U E )
0032600 \r L P ( C O N D
0032620 \r ( (
0032640 A N D R E S E T V A R S L S T
0032660 ( N O T ( T A I L P R E S
0032700 E T V A R S L S T R E S E T V
0032720 A R S L S T 0 ) ) ) \r
0032740 ( S E T Q R
0032760 E S E T Z ( C A R R E S E T
0033000 V A R S L S T ) ) \r
0033020 ( S E T Q R E
0033040 S E T V A R S L S T ( C D R
0033060 R E S E T V A R S L S T ) ) \r
0033100 [ C O
0033120 N D \r
0033140 ( ( L I S T P ( C A R
0033160 R E S E T Z ) ) \r
0033200 [ S E T
0033220 Q O L D V A L U E ( C O N D
0033240 \r
0033260
0033300 ( ( C D R R E S E T
0033320 Z ) \r \r
0033340 006 006 ( * o c c
0033360 u r s f o r R E S E T S A V
0033400 E ' s w h e n s e c o n d
0033420 a a g u m e n t i s s p e c
0033440 i f i e d . \r 006 001
0033460 006 006 I n t h i s c a s
0033500 e , ( C A D R R E S E T Z )
0033520 i s t h e v a l u e o f
0033540 t h e s a v i n g f o r m
0033560 , i . e . \r 006 001
0033600 006 006 t h e f i r s t a
0033620 r g u m e n t t o R E S E T
0033640 S A V E . ) 006 001 \r \r
0033660
0033700 (
0033720 C A D R R E S E T Z ) ) \r
0033740
*
0034000 ( T ( C A D A R R E S E
0034020 T Z ] \r
0034040 ( A P P L Y ( C A
0034060 A R R E S E T Z ) \r
0034100
0034120 ( C D A R R E S E T Z
0034140 ) ) ) \r
0034160 ( T ( S E T T O P V
0034200 A L ( C A R R E S E T Z ) \r
0034220
0034240 ( C D R
0034260 R E S E T Z ] \r
0034300 ( G O L P ] ) \r \r
0034320 ( 006 004 R E S E T V A R S 006 001 \r
0034340 [ N L A M B D A R E S E T X
0034360 006 006 006 001
0034400
*
0034440 006 006 ( * w t % : " 1 4 - J A
0034460 N - 8 0 2 3 : 2 9 " ) 006 001 \r
0034500 ( P R O G ( [ R E S E T
0034520 W ( S E T Q R E S E T V A R
0034540 S L S T ( P R O G ( ( R E S
0034560 E T Z R E S E T V A R S L S T
0034600 ) ) \r
0034620
0034640 [
0034660 M A P C ( C A R R E S E T X
0034700 ) \r
0034720
*
0034760 ( F U N C T I O N ( L
0035000 A M B D A ( R E S E T Y ) \r
0035020
*
0035100 ( S E
0035120 T Q R E S E T Z \r
0035140
*
0035220 ( C O N S [
0035240 C O N D \r
0035260
*
0035340 [ ( L
0035360 I S T P R E S E T Y ) \r
0035400
*
0035500 ( C O N S ( C A R
0035520 R E S E T Y ) \r
0035540
*
0035640 ( G E T T O P V
0035660 A L \r
0035700
*
0036000 ( C A R R E S E T Y ] \r
0036020
*
0036120 ( T ( C O N S
0036140 R E S E T Y ( G E T T O P V
0036160 A L \r
0036200
*
0036300 R E S E
0036320 T Y ] \r
0036340
*
0036420 R E S E T Z ]
0036440 \r
0036460
0036500 ( R E
0036520 T U R N R E S E T Z ] \r
0036540 R E S E T Y ) \r
0036560 ( S E T Q
0036600 R E S E T Y R E S E T V A R S
0036620 L S T ) \r (
0036640 R E T U R N ( C A R ( O R
0036660 [ P R O G 1 ( X N L S E T Q
0036700 ( P R O G N [ M A P C ( C A
0036720 R R E S E T X ) \r
0036740
*
0037020 ( F U N C T I O N ( L A M
0037040 B D A ( R E S E T Y ) \r
0037060
*
0037160 ( C O N D \r
0037200
*
0037260 [ (
0037300 L I S T P R E S E T Y ) \r
0037320
*
0037420 ( S E T T O P V A L
0037440 \r
0037460
*
0037540 ( C A R R
0037560 E S E T Y ) \r
0037600
*
0037700 ( A P P L Y ' P R O G 1 ( C
0037720 D R R E S E T Y ) \r
0037740
*
0040040 ' I N T E
0040060 R N A L ] \r
0040100
*
0040160 ( T
0040200 ( S E T T O P V A L R E S E T
0040220 Y ] \r
0040240
*
0040300 ( A P P L Y ' P R O
0040320 G ( C O N S N I L ( C D R
0040340 R E S E T X ) ) \r
0040360
*
0040440 ' I N T E R N A L ) ) \r
0040460
*
0040520 I N T E R N A L
0040540 ) \r
0040560
0040600 [ M A P C ( C A R R
0040620 E S E T X ) \r
0040640
0040660 (
0040700 F U N C T I O N ( L A M B D A
0040720 ( Z ) \r
0040740
*
0041000 ( S E T T O P
0041020 V A L ( C A A R R E S E T W
0041040 ) \r
0041060
*
0041120 ( C D
0041140 A R R E S E T W ) ) \r
0041160
*
0041240 ( S E T Q R E S E T W ( C D
0041260 R R E S E T W ] \r
0041300
0041320 ( C O N
0041340 D \r
0041360
0041400 ( ( E Q R E S E
0041420 T Y R E S E T V A R S L S T )
0041440 \r
0041460
0041500 ( S E T Q R E S
0041520 E T V A R S L S T R E S E T W
0041540 ) ) \r
0041560
0041600 ( ( N O T ( T
0041620 A I L P R E S E T V A R S L S
0041640 T R E S E T Y ) ) \r
0041660 \r
0041700 006 006 ( * s o m e r e s e t s
0041720 a v e s m a y h a e b e e
0041740 n p e r f o r m e d i n s i
0041760 d e o f t h e r e s e t v
0042000 a r s . \r 006 001
0042020 006 006 t h e s e s h o u l d
0042040 N O T b e n d o n e u n t
0042060 i l t h e c o r r e s o n d
0042100 i n g r e s e t l s t i s
0042120 e x i t e d \r 006 001
0042140 006 006 ( t h e y w o u l d
0042160 n t b e i n s h a l l o w
0042200 s y s t e m s i n c e r e
0042220 s t v a r s i s s i m p l y
0042240 a p r o g ) t h e r e f o r
0042260 e \r 006 001 006
0042300 006 t h e s e c t i o n o f
0042320 r e s e t v a r l s t c o r r
0042340 e s p o n d i n g t o t h e
0042360 v a r i a b l e r e b i n d
0042400 i n g s m u s t b e \r 006 001
0042420 006 006 s p l i
0042440 c e d o u t ) 006 001 \r
0042460 \r
0042500 006 006 ( * t h e r e a s o n
0042520 f o r t h e T A I L P i s
0042540 t h a t i f r e s e t v a
0042560 r s l s t h a s f o r s o
0042600 m e r e a s o n a l r e a d
0042620 y \r 006 001 006
0042640 006 b e e n s t r i p p e d b
0042660 a c k e a r l i e r t h a n
0042700 r e s e t y , d o n t w a
0042720 n t t o d o t h e n l e
0042740 f t / r p l a c d . \r 006 001
0042760 006 006 ( i n f a c
0043000 t n l e f t w o u l d g e
0043020 n e r a t e a n e r r o r )
0043040 % . \r 006 001 006
0043060 006 o n e c a n t h i n k o
0043100 f t h i s a s a n a l a o
0043120 g i c a l t o t h e c o d
0043140 e i n r e s e t r e s t o r
0043160 e , w h e r e \r 006 001
0043200 006 006 r e s e t v a r
0043220 s l s t i s w a l k e d d
0043240 o w n u n t i l i t i s
0043260 a t a i l o f r e s e t v
0043300 a r s l s t 0 . ) 006 001 \r
0043320 \r
0043340 006 006 ( * r e a s o n f o r
0043360 T A I L P i s t o p a r
0043400 a l l e l t h e c o d e i
0043420 n r e s e t r e s t o r e ,
0043440 w h e r e r e s e t v a r s l
0043460 s t \r 006 001
0043500 006 006 i s p r o c e s s e d u
0043520 n t i l i t i s a t a i
0043540 l o f r e s e t v a r l s t
0043560 0 . \r 006 001 006
0043600 006 w e a r e t r y i n g t
0043620 o a v o i d t h e s i t u
0043640 a t i o n w h e r e r e s e
0043660 t v a r s l s t h a s f o r
0043700 s o m e r e a s o n \r 006 001
0043720 006 006 b e e n
0043740 s t r i p p e d b a c k t
0043760 o b e f o r e r e s e t y .
0044000 n o t e t h a t i f f o
0044020 r s o m e r e a s o n r e
0044040 s e t v a r s l s t \r 006 001
0044060 006 006 i s n o t
0044100 a t a i l o f r e s e t
0044120 y , b u t r e s e t y i s
0044140 n o t a t a i l o f r
0044160 e s e t v a r s l s t , t h e
0044200 n n l e f t \r 006 001
0044220 006 006 w i l l g e n e
0044240 r a t e a n e r r o r . t
0044260 h i s s h o u l d n o t h
0044300 a p p e n s i n c e t h i n
0044320 g s a r e s u p p o s e d
0044340 t o b e \r 006 001
0044360 006 006 t a k e n o f f o
0044400 n l y i n t h e o r d e r
0044420 t h e y w e r e p u t o
0044440 n . \r 006 001 006
0044460 006 i f t h i s t u r n s o
0044500 u t t o b e a p r o b l
0044520 e m , w e c a n u n d o
0044540 t h i n g s o n r e s e t v
0044560 a r s l s t b y \r 006 001
0044600 006 006 s m a s h i n
0044620 g t h e m a n d l e a v i
0044640 n g t h e m a l o n e . ) 006
0044660 001 \r \r
0044700
0044720 ( R P L A C D
0044740 ( N L E F T R E S E T V A R
0044760 S L S T 1 R E S E T Y ) \r
0045000
*
0045040 R E S E
0045060 T W ] \r
0045100 (
0045120 E R R O R ! ] ) \r \r ( 006 004 R E S
0045140 E T S A V E 006 001 \r [ N L A M
0045160 B D A R E S E T X 006 006 006 001
0045200
*
0045240 006 006 ( * w
0045260 t % : " 2 3 - J U L - 7 9 2
0045300 1 : 0 8 " ) 006 001 \r
0045320 \r 006 006
0045340 ( * f o r u s e u n d e r
0045360 a R E S E T L S T . I f
0045400 R E S E T X i s a t m i c ,
0045420 l i k e R E S E T V A R ,
0045440 o t h e r w i s e l i k e \r
0045460 006 001 006 006 R E
0045500 S E T F O R M , i . e . p e
0045520 r f o r m s t h e r e s e t
0045540 t i n g a n d s a v i n g
0045560 a s s o c i a t e d w i t h
0045600 t h e s e \r 006 001
0045620 006 006 f u n c t i o n s .
0045640 T h e r e s t o r a t i o n
0045660 a a d e r r o r s e t p r o
0045700 t e c t i o n i s d o n e b
0045720 y R E S E T L S T . \r 006 001
0045740 006 006 N o t e t
0045760 h a t i t s v a l u e i s
0046000 n o t a n y p a r t i c u
0046020 l a r l y u s e f u l q u a
0046040 n i t t y . \r 006 001
0046060 006 006 W h e n u s e d a
0046100 l a R E S E T F O R M , c
0046120 a n t a k e a s e c o n d
0046140 a r g u m e n t w h o s e
0046160 v a l u e \r 006 001
0046200 006 006 ( c o m p u t e d b e
0046220 f o r e f i r t a r g u m e
0046240 n t ) i s r e s t o r a t i
0046260 o n f o r m , e . g . \r 006 001
0046300 006 006 ( R E S
0046320 E T S A V E ( S E T S E P R
0046340 - - ) ( L I S T ( Q U O T E
0046360 S E T S E P R ) \r 006 001
0046400 006 006 ( G E T S E P R
0046420 ) ) ) ( R E S E T S A V E N
0046440 I L f o r m ) m e a n s j
0046460 u s t a d d v a l u e o f
0046500 f o r m t o R E S E T V A
0046520 R L S T > ) 006 001 \r \r ( S
0046540 E T Q R E S E T V A R S L S T
0046560 ( C O N S [ C O N D \r
0046600
0046620 [ ( A
0046640 N D ( C A R R E S E T X ) \r
0046660
*
0046720 ( A T O M ( C A R
0046740 R E S E T X ) ) ) \r
0046760
0047000 ( P R O
0047020 G 1 ( C O N S ( C A R R E
0047040 S E T X ) \r
0047060
*
0047120 ( G E T T O P V A L (
0047140 C A R R E S E T X ) ) ) \r
0047160
*
0047220 ( S E T T O P V A L
0047240 ( C A R R E S E T X ) \r
0047260
*
0047320 ( E V
0047340 A L ( C A D R R E S E T X )
0047360 \r
0047400
*
0047440 ' I N T E R N A L ]
0047460 \r
0047500
0047520 [ ( C D R R E S E T X ) \r
0047540 \r
0047560 006 006 ( * C A D R o f
0047600 t h e e n t r y p u t o
0047620 n r e s e t v a r s l s t i
0047640 s t h e v a l u e o f t
0047660 h e s a v i n g f o r m . \r
0047700 006 001 006 006 T h
0047720 e v a r i a b l e O L D V A
0047740 L U E i s b o u n d t o
0047760 t h i s v a l u e d u r i n
0050000 g r e s t o r a t i o n . \r 006
0050020 001 006 006 T h i
0050040 s m a k e s i t m o r e
0050060 c o n v e n i e n t f o r t
0050100 h e e s t o r a t i o n t o
0050120 b e c o n d i t i o n a l ,
0050140 e . g . \r 006 001
0050160 006 006 t h e u s e r c a n
0050200 p e r f o r m ( R E S E T S
0050220 A V E ( F O O m u m b l e )
0050240 \r 006 001 006 006 (
0050260 Q U O T E ( A N D p r e d
0050300 ( F I E O L D V A L U E ) ) )
0050320 ) ) 006 001 \r \r
0050340
0050360 ( L I S T ( E V
0050400 A L ( C A D R R E S E T X )
0050420 ) \r
0050440
0050460 ( E V A L (
0050500 C A R R E S E T X ] \r
0050520
0050540 ( T (
0050560 L I S T ( L I S T ( C O N D
0050600 \r
0050620
*
0050660 ( ( E Q ( C A A R R E
0050700 S E T X ) \r
0050720
*
0050760 ' S E
0051000 T Q ) \r
0051020
*
0051060 ( C A R ( C A D
0051100 D A R R E S E T X ) ) ) \r
0051120
*
0051200 ( T ( C A A R R E S E T X )
0051220 ) ) \r
0051240
*
0051300 ( E V A L ( C A R R E S
0051320 E T X ] \r
0051340
0051360 R E S E T V A R S L S T ] )
0051400 \r \r ( 006 004 R E S E T V A R 006 001 \r
0051420 [ N L A M B D A ( R E S E
0051440 T X R E S E T Y R E S E T Z
0051460 ) 006 006 006 001
0051500
0051520 006 006 ( * w t % : " 2 3 - J
0051540 U L - 7 9 2 1 : 0 9 " ) 006 001 \r
0051560 ( P R O G ( M A C R O
0051600 X M A C R O Y ) \r
0051620 \r 006
0051640 006 ( * P e r m i t s e v a l
0051660 u a t i o n o f a f o r m
0051700 w h i l e r e s e t t i n g
0051720 a t o p l e v e l v a r
0051740 i a b l e , a n d \r 006 001
0051760 006 006 p r o v i d
0052000 e s f o r t h e v a r i a
0052020 b l e t o b e a u t o m a
0052040 t c a l l y r e s t o r e d
0052060 a f t e r v a l u a t i o n .
0052100 \r 006 001 006 006 I
0052120 n t h i s w a y , t h e
0052140 u s e r p a y s w h e n h
0052160 e w a n t s t o % ' r e b
0052200 i n d ' a g l o b a l v a r
0052220 i a b l e , b u t \r 006 001
0052240 006 006 d o e s n
0052260 o t h a v e t o p a y f
0052300 o r t h e p o s s i b l i t
0052320 y , a s w o u l d b e t
0052340 h e c a s e i f v a r i a
0052360 b l e s s u c h \r 006 001
0052400 006 006 a s D F N F
0052420 L G , L I S P X H I S T O R Y
0052440 , e t c . w e r e n o t
0052460 g l o b a l , i . e . \r 006 001
0052500 006 006 w e r e
0052520 l o o k e d u p . I n t h
0052540 e e v e n t o f a c o n
0052560 t r o l - D , o r c o n t r
0052600 o l - C r e e n t e r , t h
0052620 e v a r i a b e s \r 006 001
0052640 006 006 w i l l s
0052660 t i l l b e r e s t o r e d
0052700 b y E V A L Q T . N o t e
0052720 t h a t S T K E V A L s w
0052740 i l l n o t d o t h e r
0052760 i g h t t o n \r 006 001
0053000 006 006 v a r i a b l
0053020 e s r e s e t b y R E S E
0053040 T V A R . ) 006 001 \r \r
0053060 ( S E T Q M A C R O X
0053100 ( S E T Q R E S E T V A R S
0053120 L S T ( C O N S ( C O N S
0053140 R E S E T X ( G E T T O P V A
0053160 L R E S E T X ) ) \r
0053200
*
0053240 R E S E T
0053260 V A R S L S T ) ) ) \r
0053300 ( S E T Q M A C R O
0053320 Y ( E R R O R S E T ( L I S
0053340 T ' P R O G N ( L I S T '
0053360 S E T T O P V A L ( L I S T
0053400 ' Q U O T E R E S E T X ) \r
0053420
*
0053500 R E S E T Y ) \r
0053520
*
0053560 R E S E T Z ) \r
0053600
0053620 ' I N T E R N A
0053640 L ) ) \r ( S
0053660 E T T O P V A L ( C A A R M
0053700 A C R O X ) \r
0053720 ( C D A R M A
0053740 C R O X ) ) \r
0053760 ( S E T Q R E S E T V A R S
0054000 L S T ( C D R M A C R O X )
0054020 ) \r [ C O N
0054040 D \r (
0054060 M A C R O Y ( R E T U R N (
0054100 C A R M A C R O Y ] \r
0054120 ( E R R O R ! ] ) \r
0054140 ) \r ( D E F I N E Q \r \r ( 006 004 L
0054160 O A D U P 006 001 \r [ L A M B D
0054200 A ( O P T I O N / F I L E S )
0054220 006 006 006 001
0054240
0054260 006 006 ( * j d
0054300 s " 1 3 - M a r - 8 6 1 2 :
0054320 5 8 " ) 006 001 \r ( S E L E
0054340 C T Q O P T I O N / F I L E S
0054360 \r ( ( N I L H
0054400 U G E ) \r
0054420 ( S E T Q Q C O M P I L
0054440 E . E X T D C O M ) \r
0054460 ( 006 002 w h i l
0054500 e 006 001 B O O T L O A D E D F I
0054520 L E S 006 002 d o 006 001 ( 006 002 p u
0054540 s h n e w 006 001 S Y S F I L E S
0054560 ( 006 002 p o p 006 001 B O O T L O
0054600 A D E D F I L E S ) ) ) \r
0054620 ( 006 002 L O A
0054640 D U P 006 001 ' ( A C O D E M A
0054660 C H I N E I N D E P E N D E N T
0054700 P O S T L O A D U P ) ) \r
0054720 ( 006 002 L O
0054740 A D U P 006 001 ' ( B S P D P U
0054760 P F T P ) ) \r
0055000 \r 006 006 ( *
0055020 L o a d t h e s e n o w
0055040 t o s p e e d u p t h e
0055060 r e s t o f t h e l o a d
0055100 i n g ) 006 001 \r \r
0055120 ( 006 002 L O A D U P 006 001
0055140 ' ( A F O N T ) ) \r
0055160 ( 006 002 L O A D U
0055200 P 006 001 ' ( E D I T W E D I T
0055220 P R E T T Y D S P R I N T D
0055240 E F N E W P R I N T D E F C
0055260 O M M E N T A D V I S E L O
0055300 A D F N S D M I S C D F I L
0055320 E ) ) \r
0055340
*
0055420 006 006 ( * D M I S C n e e d
0055440 s t o c o m e b e f o r e
0055460 D F I L E ) 006 001 \r
0055500 ( 006 002 L O A D U P
0055520 006 001 ' ( C O M P A T I B I L I
0055540 T Y B R E A K F I L E P K G
0055560 R E S O U R C E ) ) \r
0055600 ( 006 002 L O A D
0055620 U P 006 001 ' ( M A C R O S D L
0055640 A P B Y T E C O M P I L E R
0055660 C O M P I L E ) ) \r
0055700 ( 006 002 L O A D U P
0055720 006 001 ' ( H I S T U N D O S
0055740 P E L L D W I M W T F I X
0055760 C L I S P D W I M I F Y C L
0056000 I S P I F Y R E C O R D A S
0056020 S I S T H E L P D L ) ) \r
0056040 ( 006 002 L O
0056060 A D U P 006 001 ' ( C O M M O N )
0056100 ) \r (
0056120 006 002 L O A D U P 006 001 ' ( H P R
0056140 I N T M A C R O A U X A D D
0056160 A R I T H ) ) \r
0056200 ( 006 002 L O A D U P 006 001
0056220 ' ( M S A N A L Y Z E M S P
0056240 A R S E M A S T E R S C O P E
0056260 ) ) \r
0056300 ( D W I M ' C ) \r
0056320 ( C O M P I L E M
0056340 O D E ' D ) \r
0056360 ( 006 002 L O A D U P 006 001
0056400 ' ( A A R I T H ) ) \r
0056420 ( 006 002 L O A D
0056440 U P 006 001 ' ( A D I S P L A Y
0056460 H L D I S P L A Y M E N U W
0056500 I N D O W A T T A C H E D W I
0056520 N D O W W B R E A K X X G E
0056540 O M X X F I L L ) ) \r
0056560 ( 006 002 L O A D
0056600 U P 006 001 ' ( D E X E C I N S
0056620 P E C T ) ) \r
0056640 ( 006 002 L O A D U P 006 001
0056660 ' ( D E D I T T T Y I N ) ) \r
0056700 ( 006 002
0056720 L O A D U P 006 001 ' ( D I S K D
0056740 L I O N D O V E I N P U T O U
0056760 T P U T D O V E D I S K D O
0057000 V E D I S P L A Y D O V E M I
0057020 S C D O V E E T H E R D O V
0057040 E F L O P P Y \r
0057060
0057100 L O C A L F I L E
0057120 D S K D I S P L A Y ) ) \r
0057140 ( 006 002 L O A
0057160 D U P 006 001 ' ( 1 0 M B D R I V
0057200 E R L L N S T R S E R V E R
0057220 ) ) \r
0057240 ( 006 002 L O A D U P 006 001 ' ( B R
0057260 K D W N M A T C H ) ) \r
0057300 ( 006 002 L O A
0057320 D U P 006 001 ' ( L L F C O M P I
0057340 L E ) ) \r
0057360 ( 006 002 L O A D U P 006 001 ' (
0057400 S P P C O U R I E R N S P R
0057420 I N T C L E A R I N G H O U S
0057440 E N S F I L I N G H A R D C
0057460 O P Y P R E S S P U P P R I
0057500 N T I N T E R P R E S S \r
0057520
0057540 F L O P P Y
0057560 ) ) \r
0057600 ( 006 002 L O A D U P 006 001 ' ( I D
0057620 L E R ) ) ) \r (
0057640 C O N D \r
0057660 ( ( L I S T P O P T I O N / F
0057700 I L E S ) \r
0057720 \r 006 006 ( *
0057740 R E S E T V A R j u s t i n
0057760 c a s e s o m e s u b - l
0060000 o a d i n g w a n t s t o
0060020 " r e a c h o u t " t o o
0060040 t h e r f i l e s ) 006 001 \r \r
0060060 ( 006 002 f o
0060100 r 006 001 X 006 002 i n 006 001 O P T
0060120 I O N / F I L E S \r
0060140 006 002 d o 006 001
0060160 [ O R ( F M E M B X S Y S
0060200 F I L E S ) \r
0060220 ( 006 002
0060240 R E S E T V A R 006 001 D I R E C
0060260 T O R I E S L O A D U P D I R
0060300 E C T O R I E S \r
0060320
0060340 ( D O F I L E S L O A D ( L I
0060360 S T ' ( S Y S L O A D F R O
0060400 M V A L U E O F L O A D U P
0060420 D I R E C T O R I E S ) X ] \r
0060440
0060460 ( 006 002 S M A S H F I L E C O
0060500 M S 006 001 X ) ) ) \r
0060520 ( T ( H E L P " B
0060540 A D L O A D U P O P T I O N
0060560 " O P T I O N / F I L E S ] )
0060600 \r \r ( 006 004 E N D L O A D U P 006 001
0060620 \r [ L A M B D A N I L 006 006
0060640 006 001
0060660
*
0060720 006 006 ( * l m m " 2 9 - N
0060740 o v - 8 4 1 6 : 3 9 " ) 006 001 \r
0060760 \r
0061000 006 006 ( * s e t u p
0061020 f o r N O N E T c o n f i
0061040 g u r a t i o n ; s i t e s
0061060 w i t h e t h e r n e t c a
0061100 n l o a d i n i n i t f
0061120 r o m \r 006 001
0061140 006 006 o t h e r p l a c e s )
0061160 006 001 \r \r
0061200 006 006 ( * * A
0061220 l l r e c o r d s e x i s t
0061240 i n g a t t h i s p o i n
0061260 t i n t i m e h a v e b
0061300 e e n l o a d e d a s p a
0061320 r t o f t h e \r 006 001
0061340 006 006 s y s t e m .
0061360 ) 006 001 \r \r [ M A P C U
0061400 S E R R E C L S T ( F U N C T
0061420 I O N ( L A M B D A ( R ) \r
0061440
*
0061500 ( R E C O R D P R I O R I T Y
0061520 R ' S Y S T E M ] \r
0061540 ( M A P C S Y S T E M I N I T
0061560 V A R S ( F U N C T I O N (
0061600 L A M B D A ( X ) \r
0061620
*
0061660 ( S E T T O P V A L ( C A R
0061700 X ) \r
0061720
0061740 (
0061760 C O P Y ( C D R X ] ) \r ) \r
0062000 \r ( R P A Q Q 006 002 L O A D U P
0062020 D I R E C T O R I E S 006 001 ( {
0062040 E R I S } < L I S P C O R E > S
0062060 O U R C E S > { E R I S } < L
0062100 I S P C O R E > L I B R A R Y >
0062120 { E R I S } < L I S P U S E R
0062140 S > ) ) \r \r ( A D D T O V A R
0062160 006 002 S Y S T E M I N I T V A R S
0062200 006 001 ( \ C O N N E C T E D . D
0062220 I R E C T O R Y . { D S K }
0062240 ) \r
0062260 ( D W I M
0062300 F L G . T ) \r
0062320
0062340 ( A D D S P E L L F L G .
0062360 T ) \r
0062400 ( F I
0062420 L E P K G F L G . T ) \r
0062440
0062460 ( B U I L D M A P
0062500 F L G . T ) \r
0062520
0062540 ( U P D A T E M A P F L G
0062560 . T ) \r
0062600 ( D
0062620 E F A U L T R E G I S T R Y ) \r
0062640
0062660 ( D E F A U L
0062700 T P R I N T I N G H O S T ) \r
0062720
0062740 ( D I R E C T O
0062760 R I E S ) \r
0063000 (
0063020 U S E R G R E E T F I L E S ) \r
0063040
0063060 ( N E T W O R
0063100 K O S T Y P E S ) \r
0063120
0063140 ( C H . N E T . H I N T )
0063160 \r
0063200 ( C H . D E
0063220 F A U L T . D O M A I N ) \r
0063240
0063260 ( C H . D E F A U
0063300 L T . O R G A N I Z A T I O N )
0063320 \r
0063340 ( A D V I S
0063360 E D F N S ) \r
0063400
0063420 ( L I S P U S E R S D I R E C T
0063440 O R I E S { D S K } ) \r
0063460
0063500 ( D I S P L A Y F O
0063520 N T D I R E C T O R I E S { D
0063540 S K } ) \r
0063560 ( D
0063600 I S P L A Y F O N T E X T E N S
0063620 I O N S D I S P L A Y F O N T
0063640 ) \r
0063660 ( I N T E
0063700 R P R E S S F O N T D I R E C T
0063720 O R I E S { D S K } ) ) \r ( D
0063740 E C L A R E % : D O N T E V A
0063760 L @ L O A D D O C O P Y \r (
0064000 D U M M Y D E F ( A D D S T A
0064020 T S * ) \r ( S T
0064040 A T I N I T N I L L ) \r
0064060 ( L I S P X W A T C H
0064100 N I L L ) \r ( C L
0064120 B U F S N I L L ) \r
0064140 ( F I N D F I L E I N F I
0064160 L E P ) \r ( F I L
0064200 E M A P * ) \r (
0064220 V I R G I N F N G E T D ) \r
0064240 ( M K S W A P P N
0064260 I L L ) ) \r ( D U M M Y D E F
0064300 ( U S E R N U M B E R Z E R O
0064320 ) \r ( H O S T N U
0064340 M B E R Z E R O ) \r
0064360 ( H O S T N A M E N I L L
0064400 ) \r ( T R A P C O
0064420 U N T Z E R O ) ) \r ( D U M M
0064440 Y D E F ( * Q U O T E ) \r
0064460 ( G E T P G E T P
0064500 R O P ) \r ( D E C
0064520 L A R E Q U O T E ) \r
0064540 ( F R P L N O D E 2 R P
0064560 L N O D E 2 ) \r (
0064600 D I S P L A Y T E R M P T R U
0064620 E ) \r ( M I N F S
0064640 E V Q ) \r ( F R
0064660 P L A C A R P L A C A ) \r
0064700 ( F R P L A C D R P
0064720 L A C D ) \r ( M I
0064740 S S P E L L E D ? N I L L ) \r
0064760 ( U N D O S A V E
0065000 N I L L ) \r ( S
0065020 E T L I N E L E N G T H Z E R
0065040 O ) \r ( D O B E
0065060 N I L L ) \r ( R E
0065100 L I N K N I L L ) \r
0065120 ( P U T P U T P R O P ) \r
0065140 ( / P U T P U T
0065160 P R O P ) \r ( M K
0065200 S W A P E V Q ) ) \r \r \r ( A D
0065220 D T O V A R 006 002 S Y S F I L E
0065240 S 006 001 ) \r \r ( A D D T O V A R
0065260 006 002 L I S P X H I S T O R Y 006
0065300 001 ) \r \r ( A D D T O V A R 006
0065320 002 L I N K E D F N S 006 001 ) \r \r
0065340 \r ( R P A Q Q 006 002 S H A L L O
0065360 W F L G 006 001 N I L ) \r \r ( R P
0065400 A Q Q 006 002 S P A G H E T T I F
0065420 L G 006 001 T ) \r \r ( R P A Q Q
0065440 006 002 W I D E P A P E R F L G 006 001
0065460 T ) \r \r ( R P A Q Q 006 002 C L
0065500 E A R S T K L S T 006 001 T ) \r \r
0065520 ( R P A Q 006 002 S Y S H A S H A
0065540 R R A Y 006 001 ( H A S H A R R A
0065560 Y 5 0 ) ) \r \r ( R P A Q Q 006
0065600 002 D I S P L A Y T E R M F L G 006
0065620 001 T ) \r \r ( R P A Q Q 006 002 %
0065640 # U N D O S A V E S 006 001 N I L
0065660 ) \r \r ( R P A Q Q 006 002 N L A M
0065700 A 006 001 N I L ) \r \r ( R P A Q Q
0065720 006 002 N L A M L 006 001 N I L ) \r
0065740 \r ( R P A Q Q 006 002 L A M S 006 001
0065760 N I L ) \r \r ( R P A Q Q 006 002
0066000 E V A L Q T F O R M S 006 001 N I
0066020 L ) \r \r ( R P A Q Q 006 002 T T Y
0066040 L I N E L E N G T H 006 001 8 2 )
0066060 \r \r ( R P A Q Q 006 002 C O M P I
0066100 L E . E X T 006 001 D C O M ) \r \r
0066120 ( R P A Q Q 006 002 S Y S O U T .
0066140 E X T 006 001 S Y S O U T ) \r \r (
0066160 R P A Q Q 006 002 H O S T N A M E
0066200 006 001 N I L ) \r \r ( R P A Q 006
0066220 002 S Y S T E M T Y P E 006 001 ( S
0066240 Y S T E M T Y P E ) ) \r \r ( G C
0066260 G A G T ) \r ) \r ( D E C L A R
0066300 E % : D O N T E V A L @ L O A
0066320 D D O E V A L @ C O M P I L E
0066340 D O N T C O P Y C O M P I L
0066360 E R V A R S \r \r ( A D D T O V
0066400 A R 006 002 N L A M A 006 001 R E S
0066420 E T S A V E R E S E T V A R S
0066440 F A U L T E V A L ) \r \r ( A D
0066460 D T O V A R 006 002 N L A M L 006 001
0066500 R E S E T V A R ) \r \r ( A D D
0066520 T O V A R 006 002 L A M A 006 001 )
0066540 \r ) \r ( P R E T T Y C O M P R I
0066560 N T A P U T D Q C O M S ) \r \r
0066600 ( R P A Q Q 006 002 A P U T D Q C
0066620 O M S 006 001 \r [ (
0066640 F N S G R E E T F I L E N A M
0066660 E F A U L T E V A L F A U L
0066700 T A P P L Y E R R O R X S E
0066720 T - D O C U M E N T A T I O N )
0066740 \r ( F N S S M
0066760 A S H F I L E C O M S S M A S
0067000 H F I L E C O M S L S T ) \r
0067020 ( I N I T V A R S
0067040 ( D E F A U L T R E G I S T R Y
0067060 ) \r
0067100 ( U S E R G R E E T F I L E S
0067120 ) \r
0067140 ( L O G I N H O S T / D I R
0067160 ' { D S K } ) ) \r
0067200 ( F N S R E S E T R E S T O
0067220 R E R E S E T V A R S R E S
0067240 E T S A V E R E S E T V A R )
0067260 \r ( F N S L O
0067300 A D U P E N D L O A D U P ) \r
0067320 ( V A R S L O
0067340 A D U P D I R E C T O R I E S )
0067360 \r ( A L I S T S
0067400 ( S Y S T E M I N I T V A R S
0067420 \ C O N N E C T E D . D I R E
0067440 C T O R Y D W I M F L G A D
0067460 D S P E L L F L G F I L E P K
0067500 G F L G B U I L D M A P F L G
0067520 \r
0067540 U P D A T E M
0067560 A P F L G D E F A U L T R E G
0067600 I S T R Y D E F A U L T P R I
0067620 N T I N G H O S T D I R E C T
0067640 O R I E S U S E R G R E E T F
0067660 I L E S \r
0067700 N E T
0067720 W O R K O S T Y P E S C H . N
0067740 E T . H I N T C H . D E F A U
0067760 L T . D O M A I N C H . D E F
0070000 A U L T . O R G A N I Z A T I O
0070020 N \r
0070040 A D V I S E
0070060 D F N S L I S P U S E R S D I
0070100 R E C T O R I E S D I S P L A
0070120 Y F O N T D I R E C T O R I E S
0070140 D I S P L A Y F O N T E X T E
0070160 N S I O N S \r
0070200 I
0070220 N T E R P R E S S F O N T D I R
0070240 E C T O R I E S ) ) \r
0070260 ( D E C L A R E % : D O
0070300 N T E V A L @ L O A D D O C O
0070320 P Y ( P ( D U M M Y D E F
0070340 ( A D D S T A T S * ) \r
0070360
*
0070420 (
0070440 S T A T I N I T N I L L ) \r
0070460
*
0070540 ( L I S P X W A T C H N I L
0070560 L ) \r
0070600
*
0070640 ( C L B U F S N I L
0070660 L ) \r
0070700
*
0070740 ( F I N D F I L E I
0070760 N F I L E P ) \r
0071000
*
0071040 ( F I L E M
0071060 A P * ) \r
0071100
*
0071140 ( V I R G I N F
0071160 N G E T D ) \r
0071200
*
0071240 ( M K S W A
0071260 P P N I L L ) ) \r
0071300
*
0071340 ( D U M M Y D E F (
0071360 U S E R N U M B E R Z E R O )
0071400 \r
0071420
*
0071460 ( H O S T N U M B E R Z
0071500 E R O ) \r
0071520
*
0071560 ( H O S T N A M E
0071600 N I L L ) \r
0071620
*
0071660 ( T R A P C O
0071700 U N T Z E R O ) ) \r
0071720
*
0071760 ( D U M M Y D E F
0072000 ( * Q U O T E ) \r
0072020
*
0072060 ( G E T
0072100 P G E T P R O P ) \r
0072120
*
0072160 ( D E
0072200 C L A R E Q U O T E ) \r
0072220
*
0072260 (
0072300 F R P L N O D E 2 R P L N O D
0072320 E 2 ) \r
0072340
*
0072400 ( D I S P L A Y T E
0072420 R M P T R U E ) \r
0072440
*
0072500 ( M I N
0072520 F S E V Q ) \r
0072540
*
0072600 ( F R P L A
0072620 C A R P L A C A ) \r
0072640
*
0072700 ( F R
0072720 P L A C D R P L A C D ) \r
0072740
*
0073020 ( M I S S P E L L E D ? N I L
0073040 L ) \r
0073060
*
0073120 ( U N D O S A V E N
0073140 I L L ) \r
0073160
*
0073220 ( S E T L I N E L
0073240 E N G T H Z E R O ) \r
0073260
*
0073320 ( D
0073340 O B E N I L L ) \r
0073360
*
0073420 ( R E L
0073440 I N K N I L L ) \r
0073460
*
0073520 ( P U T
0073540 P U T P R O P ) \r
0073560
*
0073620 ( / P U
0073640 T P U T P R O P ) \r
0073660
*
0073720 ( M K
0073740 S W A P E V Q ) ) ) \r
0073760 ( A D D V
0074000 A R S ( S Y S F I L E S ) \r
0074020
0074040 ( L I S P X H I S T O
0074060 R Y ) \r
0074100 ( L I N K E
0074120 D F N S ) ) \r
0074140 ( V A R S ( S H A
0074160 L L O W F L G ) \r
0074200 ( S
0074220 P A G H E T T I F L G T ) \r
0074240
0074260 ( W I D E P A P E R F L
0074300 G T ) \r
0074320 ( C L E A R
0074340 S T K L S T T ) \r
0074360 (
0074400 S Y S H A S H A R R A Y ( H A
0074420 S H A R R A Y 5 0 ) ) \r
0074440
0074460 ( D I S P L A Y T E R M F L
0074500 G T ) \r
0074520 ( % # U N D
0074540 O S A V E S ) \r
0074560 ( N L
0074600 A M A ) \r
0074620 ( N L A M L
0074640 ) \r
0074660 ( L A M S ) \r
0074700
0074720 ( E V A L Q T F O R M S )
0074740 \r
0074760 ( T T Y L I N E L E
0075000 N G T H 8 2 ) \r
0075020 ( C
0075040 O M P I L E . E X T ' D C O M
0075060 ) \r
0075100 ( S Y S O U T . E
0075120 X T ' S Y S O U T ) \r
0075140
0075160 ( H O S T N A M E ) \r
0075200
0075220 ( S Y S T E M T Y P E ( S Y
0075240 S T E M T Y P E ) ) ) \r
0075260 ( P ( G
0075300 C G A G T ) ) ) \r
0075320 ( D E C L A R E % : D O N
0075340 T E V A L @ L O A D D O E V A
0075360 L @ C O M P I L E D O N T C O
0075400 P Y C O M P I L E R V A R S
0075420 ( A D D V A R S ( N L A M A
0075440 R E S E T S A V E \r
0075460
*
0075600 R E S E T V A R S ) \r
0075620
*
0075720 ( N L A M L
0075740 R E S E T V A R ) \r
0075760
*
0076060 ( L A M A S E T
0076100 - D O C U M E N T A T I O N \r
0076120
*
0076240 E R R O R X ] ) \r ( D E C
0076260 L A R E % : D O N T E V A L @
0076300 L O A D D O E V A L @ C O M P
0076320 I L E D O N T C O P Y C O M
0076340 P I L E R V A R S \r \r ( A D D
0076360 T O V A R 006 002 N L A M A 006 001
0076400 R E S E T S A V E R E S E T V
0076420 A R S ) \r \r ( A D D T O V A R
0076440 006 002 N L A M L 006 001 R E S E T V
0076460 A R ) \r \r ( A D D T O V A R 006
0076500 002 L A M A 006 001 S E T - D O C U
0076520 M E N T A T I O N E R R O R X
0076540 ) \r ) \r ( P U T P R O P S A P
0076560 U T D Q C O P Y R I G H T (
0076600 " X e r o x C o r p o r a t i
0076620 o n " 1 9 8 1 1 9 8 2 1 9
0076640 8 3 1 9 8 4 1 9 8 5 1 9 8
0076660 6 ) ) \r ( D E C L A R E % : D
0076700 O N T C O P Y \r ( F I L E M
0076720 A P ( N I L ( 4 2 3 1 1 0
0076740 7 6 8 ( G R E E T F I L E N A
0076760 M E 4 2 4 1 . 5 7 8 6 )
0077000 ( F A U L T E V A L 5 7 8 8
0077020 . 6 9 7 2 ) ( F A U L T A P
0077040 P L Y 6 9 7 4 . 9 4 4 7 )
0077060 \r ( E R R O R X 9 4 4 9 .
0077100 1 0 2 3 3 ) ( S E T - D O C
0077120 U M E N T A T I O N 1 0 2 3 5
0077140 . 1 0 7 6 6 ) ) ( 1 0 7 6
0077160 9 1 3 1 1 0 ( S M A S H F I
0077200 L E C O M S 1 0 7 7 9 . 1
0077220 1 3 0 8 ) ( \r S M A S H F I L
0077240 E C O M S L S T 1 1 3 1 0 .
0077260 1 3 1 0 8 ) ) ( 1 3 2 0 4
0077300 2 2 6 2 5 ( R E S E T R E S T
0077320 O R E 1 3 2 1 4 . 1 4 5 4
0077340 2 ) ( R E S E T V A R S 1 4
0077360 5 4 4 . 1 9 0 3 2 ) ( \r R
0077400 E S E T S A V E 1 9 0 3 4 .
0077420 2 1 2 4 8 ) ( R E S E T V A
0077440 R 2 1 2 5 0 . 2 2 6 2 3 )
0077460 ) ( 2 2 6 2 6 2 5 5 9 9 (
0077500 L O A D U P 2 2 6 3 6 . 2
0077520 4 9 6 0 ) ( E N D L O A D U P
0077540 \r 2 4 9 6 2 . 2 5 5 9 7 )
0077560 ) ) ) ) \r S T O P \r
0077572