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