$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TCPNAMES!1
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 "
0000120 8 - J a n - 8 7 1 6 : 4 8 : 2
0000140 2 " 006 004 { E R I S } < L I S P
0000160 C O R E > T C P > T C P N A M E
0000200 S . ; 2 006 001 N I L \r \r
0000220 p r e v i o u s d a t
0000240 e % : " 1 9 - D e c - 8 5 1
0000260 2 : 4 3 : 1 2 " { E R I S } <
0000300 L I S P C O R E > T C P > T C P
0000320 N A M E S . ; 1 ) \r \r \r ( * "
0000340 \r C o p y r i g h t ( c ) 1
0000360 9 8 5 , 1 9 8 7 b y X e r
0000400 o x C o r p o r a t i o n .
0000420 A l l r i g h t s r e s e
0000440 r v e d . \r " ) \r \r ( P R E T T
0000460 Y C O M P R I N T T C P N A M
0000500 E S C O M S ) \r \r ( R P A Q Q
0000520 006 002 T C P N A M E S C O M S 006 001
0000540 [ ( F N S R E P A C K F I L
0000560 E N A M E . S T R I N G R E P
0000600 A C K F I L E N A M E . S T R I
0000620 N G . D R E P A C K F I L E N
0000640 A M E . S T R I N G . M S D O S
0000660 \r
0000700 R E P A
0000720 C K F I L E N A M E . S T R I N
0000740 G . T I R E P A C K F I L E N
0000760 A M E . S T R I N G . V M S \r
0001000
0001020 R E P A C K
0001040 F I L E N A M E . S T R I N G .
0001060 3 6 0 0 R E P A C K F I L E N
0001100 A M E . S T R I N G . T O P S 2
0001120 0 \r
0001140 R E P
0001160 A C K F I L E N A M E . S T R I
0001200 N G . U N I X \ R E P A C K F
0001220 I L E N A M E . N E W . T R A N
0001240 S L A T I O N \r
0001260
0001300 \ R E P A C K F I L E N A
0001320 M E . N E W . T R A N S L A T I
0001340 O N S ) \r
0001360 ( I N I T V
0001400 A R S ( \ R E P A C K F I L E
0001420 N A M E . O S T Y P E . T A B L
0001440 E ( H A S H A R R A Y 3 0
0001460 1 . 1 ) ) ) \r
0001500 ( G L O
0001520 B A L V A R S \ R E P A C K F
0001540 I L E N A M E . O S T Y P E . T
0001560 A B L E ) \r
0001600 ( P ( \
0001620 R E P A C K F I L E N A M E . N
0001640 E W . T R A N S L A T I O N S
0001660 ( I N T E R L I S P I F S ) \r
0001700
0001720 R
0001740 E P A C K F I L E N A M E . S T
0001760 R I N G . D \r
0002000
0002020 ( T O P S - 2 0 T
0002040 O P S 2 0 ) \r
0002060
0002100 R E P A C K F I L E
0002120 N A M E . S T R I N G . T O P S
0002140 2 0 \r
0002160
0002200 ( S Y M B O L I C S - 3 6 0
0002220 0 L I S P M ) \r
0002240
0002260 R E P A C K F I
0002300 L E N A M E . S T R I N G . 3 6
0002320 0 0 V M S R E P A C K F I L
0002340 E N A M E . S T R I N G . V M S
0002360 U N I X \r
0002400
0002420 R E P A C K F I L E
0002440 N A M E . S T R I N G . U N I X
0002460 M S - D O S R E P A C K F I
0002500 L E N A M E . S T R I N G . M S
0002520 D O S ) ) \r
0002540 ( D E C L
0002560 A R E % : D O N T E V A L @ L
0002600 O A D D O E V A L @ C O M P I
0002620 L E D O N T C O P Y C O M P
0002640 I L E R V A R S \r
0002660
0002700 ( A D D V A R S ( N
0002720 L A M A \ R E P A C K F I L E
0002740 N A M E . N E W . T R A N S L A
0002760 T I O N S ) \r
0003000
0003020 ( N L A M L
0003040 ) \r
0003060
0003100 ( L A M A R E P A C
0003120 K F I L E N A M E . S T R I N G
0003140 . U N I X R E P A C K F I L E
0003160 N A M E . S T R I N G . T O P S
0003200 2 0 \r
0003220
0003240 R E P
0003260 A C K F I L E N A M E . S T R I
0003300 N G . 3 6 0 0 R E P A C K F I
0003320 L E N A M E . S T R I N G . V M
0003340 S \r
0003360
0003400 R E P A
0003420 C K F I L E N A M E . S T R I N
0003440 G . T I R E P A C K F I L E N
0003460 A M E . S T R I N G . M S D O S
0003500 \r
0003520
0003540 R E P A C
0003560 K F I L E N A M E . S T R I N G
0003600 . D ] ) \r ( D E F I N E Q \r \r (
0003620 006 004 R E P A C K F I L E N A M E
0003640 . S T R I N G 006 001 \r [ L A M
0003660 B D A ( N A M E F O R O S T
0003700 Y P E ) 006 006 006 001
0003720
0003740 006 006 ( *
0003760 e j s % : " 2 7 - A p r - 8 5
0004000 1 3 : 2 9 " ) 006 001 \r (
0004020 006 002 D E C L A R E 006 001 ( G L O
0004040 B A L V A R S \ R E P A C K F
0004060 I L E N A M E . O S T Y P E . T
0004100 A B L E ) ) \r ( L E T
0004120 ( ( N A M E L S T ( U N P A C
0004140 K F I L E N A M E . S T R I N G
0004160 N A M E ) ) \r
0004200 ( R E P A C K F U N C T I O
0004220 N ( G E T H A S H F O R O S
0004240 T Y P E \ R E P A C K F I L E
0004260 N A M E . O S T Y P E . T A B L
0004300 E ) ) ) \r ( C
0004320 O N D \r
0004340 ( ( N U L L R E P A C K F U N
0004360 C T I O N ) \r
0004400 N A M E ) \r
0004420 ( T ( A P P L Y
0004440 R E P A C K F U N C T I O N N
0004460 A M E L S T ] ) \r \r ( 006 004 R E P
0004500 A C K F I L E N A M E . S T R I
0004520 N G . D 006 001 \r [ L A M B D A
0004540 N 006 006 006 001
0004560
*
0004620 006 006 ( * e j s
0004640 % : " 1 3 - A u g - 8 5 1 9
0004660 : 2 3 " ) 006 001 \r
0004700 \r 006 006 (
0004720 * * C o n v e r t f i l e
0004740 n a m e s t o n a t i v e
0004760 f o r m a t ) 006 001 \r \r
0005000 ( 006 002 i f 006 001 ( A N D ( E Q
0005020 N 1 ) \r
0005040 ( L I S T P ( A R G N
0005060 1 ) ) ) \r 006 002
0005100 t h e n 006 001
0005120
*
0005160 006 006 ( * s p r e
0005200 a d a r g u m e n t l i s t
0005220 ) 006 001 \r
0005240 ( A P P L Y ( F U N C T I O
0005260 N R E P A C K F I L E N A M E
0005300 . S T R I N G . D ) \r
0005320 (
0005340 A R G N 1 ) ) \r
0005360 006 002 e l s e 006 001 \r (
0005400 P R O G ( ( B L I P " " ) \r
0005420 ( I
0005440 1 ) \r
0005460 H O S T D E V I C E S T R U
0005500 C T U R E D I R E C T O R Y
0005520 N A M E E X T E N S I O N V
0005540 E R S I O N P A C K L I S T
0005560 V A R V A L T E M P ) \r
0005600 ( 006 002 D E C
0005620 L A R E 006 001 ( S P E C V A R S
0005640 H O S T D E V I C E S T R
0005660 U C T U R E D I R E C T O R Y
0005700 N A M E E X T E N S I O N
0005720 V E R S I O N ) ) \r
0005740 L P ( C O N D \r
0005760 ( ( N O T
0006000 ( I G R E A T E R P I N )
0006020 ) \r
0006040 ( C O N D \r
0006060 ( ( L I S
0006100 T P ( S E T Q V A R ( A R
0006120 G N I ) ) ) \r
0006140 ( S E
0006160 T Q V A L ( C D R V A R )
0006200 ) \r
0006220 ( S E T Q V A R
0006240 ( C A R V A R ) ) ) \r
0006260 (
0006300 ( N O T ( I G R E A T E R P
0006320 ( S E T Q I ( A D D 1 I )
0006340 ) \r
0006360
0006400 N ) ) \r
0006420 ( S E T Q
0006440 V A L ( A R G N I ) ) ) \r
0006460
0006500 ( T ( S E T Q V A L )
0006520 ) ) \r
0006540 ( O R ( S T R I N G P
0006560 V A L ) \r
0006600 ( A T O M V
0006620 A L ) \r
0006640 ( E R R O R X
0006660 ( L I S T 2 7 V A L ) ) )
0006700
0006720 006 006 ( * f i e l d s m u s
0006740 t b e a t o m ) 006 001 \r
0006760 ( S E
0007000 L E C T Q V A R \r
0007020 ( B
0007040 O D Y ( M A P ( U N P A C K
0007060 F I L E N A M E . S T R I N G
0007100 ( C O N D \r
0007120
*
0007160 (
0007200 ( L I S T P V A L ) \r
0007220
*
0007300 006 006 ( * P A
0007320 C K F I L E N A M E . S T R I N
0007340 G f o r e r r o r \r 006 001
0007360
*
0007440 006 006 c h
0007460 e c k i n g o f f i e l d s
0007500 ) 006 001 \r
0007520
*
0007560 ( 006
0007600 002 R E P A C K F I L E N A M E .
0007620 S T R I N G . D 006 001 V A L ) )
0007640 \r
0007660
*
0007720 ( T V A L
0007740 ) ) ) \r
0007760
0010000 [ F U N C T I O N ( L A
0010020 M B D A ( X ) \r
0010040 \r 006 006
0010060 ( * N I L = > n o t y e
0010100 t s e e n , B L I P = >
0010120 s e e n a s N I L . ) 006 001 \r
0010140 \r
0010160
0010200 ( O R
0010220 ( E V A L V ( C A R X ) ) \r
0010240
*
0010300 (
0010320 S E T ( C A R X ) \r
0010340
*
0010420 ( O R ( C A D R X ) \r
0010440
*
0010520 B L I P ] \r
0010540
0010560 ( F U N C T
0010600 I O N C D D R ) ) ) \r
0010620
0010640 ( H O S T ( O R H O S T (
0010660 S E T Q D I R E C T O R Y \r
0010700
*
0010740 ( 006 002 i f 006 001 V A L \r
0010760
*
0011020 006 002 t h e n 006 001
0011040 ( S E L C H A R Q ( C H C O N
0011060 1 V A L ) \r
0011100
*
0011140 ( ( { % (
0011160 % [ ) \r
0011200
*
0011240 ( S U B
0011260 S T R I N G V A L 2 ( S E
0011300 L C H A R Q ( N T H C H A R C
0011320 O D E V A L - 1 \r
0011340
*
0011460 ) \r
0011500
*
0011600 ( ( } % ] % ) ) \r
0011620
*
0011740 - 2 ) \r
0011760
*
0012060 - 1 ) ) ) \r
0012100
*
0012140 V A L ) \r
0012160
*
0012220 006 002 e l s e 006 001 B L
0012240 I P ) ) ) ) \r
0012260 ( D I R E
0012300 C T O R Y
0012320
0012340 006 006 ( * D I R E C T O
0012360 R Y r e a l l y i s t r e
0012400 a t e d a s \r 006 001
0012420
*
0012500 006 006 { H o s t }
0012520 d e v i c e % : < d i r e c t o
0012540 r y > ) 006 001 \r
0012560
0012600 ( O R ( E V A L V
0012620 V A R ) \r
0012640
0012660 ( S E T V A
0012700 R ( O R V A L B L I P ) )
0012720 ) 006 006 ( * f o r X o n
0012740 ( U N P A C K F I L E N A M E
0012760 . S T R I N G V A L \r 006 001
0013000
*
0013060 006 006 N I
0013100 L ) b y ( C D D R X ) d
0013120 o ( C O N D \r 006 001
0013140
*
0013220 006 006 ( ( E Q ( C
0013240 A R X ) ( Q U O T E N A M
0013260 E ) ) \r 006 001
0013300
*
0013360 006 006 ( O R ( E V A L V
0013400 ( Q U O T E D I R E C T O R Y
0013420 ) ) \r 006 001
0013440
*
0013520 006 006 ( S E T Q D I R E C T
0013540 O R Y ( O R ( C A D R X )
0013560 B L I P ) ) ) ) \r 006 001
0013600
*
0013660 006 006 ( T ( O
0013700 R ( E V A L V ( C A R X )
0013720 ) \r 006 001
0013740
*
0014020 006 006 ( S E T ( C A R X )
0014040 ( O R ( C A D R X ) B L I
0014060 P ) ) ) ) ) ) 006 001 \r
0014100
0014120 ) \r
0014140 (
0014160 ( D E V I C E H O S T N A M
0014200 E E X T E N S I O N V E R S
0014220 I O N ) \r
0014240 (
0014260 O R ( E V A L V V A R ) \r
0014300
0014320 ( S E T
0014340 V A R ( O R V A L B L I
0014360 P ) ) ) ) \r
0014400 ( \ I L L E
0014420 G A L . A R G V A R ) ) \r
0014440 ( S
0014460 E T Q I ( A D D 1 I ) ) \r
0014500
0014520 ( G O L P ) ) ) \r
0014540 ( R E T U R N ( C
0014560 O N C A T L I S T \r
0014600 (
0014620 N C O N C ( A N D H O S T
0014640 ( N E Q H O S T B L I P ) \r
0014660
*
0014720 ( L I S T " { " H O S T
0014740 " } " ) ) \r
0014760
0015000 [ A N D D E V I C E ( N
0015020 E Q D E V I C E B L I P ) \r
0015040
*
0015100 ( S E L C H A R Q ( N T H C
0015120 H A R C O D E D E V I C E -
0015140 1 ) \r
0015160
0015200 ( % : ( L I
0015220 S T D E V I C E ) ) \r
0015240
*
0015300 ( L I S T D E V I C E '
0015320 % : ] \r
0015340
0015360 ( A N D D I R E C T O R Y (
0015400 N E Q D I R E C T O R Y B L
0015420 I P ) \r
0015440
0015460 ( P R O G N ( S E T
0015500 Q D I R E C T O R Y ( C O N
0015520 C A T D I R E C T O R Y ) ) \r
0015540
*
0015600 [ 006 002 f o r 006 001
0015620 C 006 002 f r o m 006 001 1 006 002
0015640 t o 006 001 ( N C H A R S D I R
0015660 E C T O R Y ) \r
0015700
*
0015740 006 002 d o 006 001 ( C O N D \r
0015760
*
0016040 ( [ F M E M B ( N T H C H A
0016060 R C O D E D I R E C T O R Y
0016100 C ) \r
0016120
*
0016160 ( C O N
0016200 S T A N T ( L I S T ( C H A
0016220 R C O D E % . ) \r
0016240
*
0016340 ( C H A R C O D E \ ) \r
0016360
*
0016460 ( C H A R C O
0016500 D E / ] \r
0016520
*
0016560 ( R P L C H A R
0016600 C O D E D I R E C T O R Y C
0016620 ( C H A R C O D E > ] \r
0016640
*
0016700 ( L I S T " < "
0016720 D I R E C T O R Y " > " ) ) )
0016740 \r
0016760 ( A N
0017000 D N A M E ( N E Q N A M E
0017020 B L I P ) \r
0017040
0017060 ( L I S T N A
0017100 M E ) ) \r
0017120
0017140 ( A N D ( O R ( A N D E
0017160 X T E N S I O N ( N E Q E X
0017200 T E N S I O N B L I P ) ) \r
0017220
*
0017260 ( A N D V E R S I O N
0017300 ( N E Q V E R S I O N B L
0017320 I P ) ) ) \r
0017340
0017360 ( L I S T ( C O
0017400 N D \r
0017420
0017440 ( ( A
0017460 N D E X T E N S I O N ( E Q
0017500 ( C H C O N 1 E X T E N S I
0017520 O N ) \r
0017540
*
0017620 ( C H A R C O D E % . ) )
0017640 ) \r
0017660
0017700 B L I
0017720 P ) \r
0017740
0017760 ( T
0020000 ' % . ) ) \r
0020020
0020040 ( O R
0020060 E X T E N S I O N B L I P )
0020100 ) ) \r
0020120 (
0020140 A N D V E R S I O N ( N E Q
0020160 V E R S I O N B L I P ) \r
0020200
*
0020240 ( C O N D \r
0020260
0020300 ( ( F I X P
0020320 V E R S I O N ) \r
0020340
0020360 (
0020400 L I S T ' ; V E R S I O N )
0020420 ) \r
0020440
0020460 ( T ( S E L C H A
0020500 R Q ( C H C O N 1 V E R S I
0020520 O N ) \r
0020540
*
0020600 ( ; ( L I S T V E R S I O N
0020620 ) ) \r
0020640
0020660 (
0020700 ( % . ! ) \r
0020720
*
0020760 ( L I S T '
0021000 ; ( S U B S T R I N G V E R
0021020 S I O N 2 - 1 ) ) ) \r
0021040
*
0021100 ( L I S T '
0021120 ; V E R S I O N ] ) \r \r ( 006 004
0021140 R E P A C K F I L E N A M E . S
0021160 T R I N G . M S D O S 006 001 \r
0021200 [ L A M B D A N 006 006 006 001
0021220
*
0021260 006
0021300 006 ( * e j s % : " 1 3 - A u
0021320 g - 8 5 1 8 : 4 3 " ) 006 001 \r
0021340 ( 006 002 i f 006 001 ( A N D
0021360 ( E Q N 1 ) \r
0021400 ( L I S T P ( A R
0021420 G N 1 ) ) ) \r
0021440 006 002 t h e n 006 001
0021460
*
0021520 006 006 ( * s
0021540 p r e a d a r g u m e n t l
0021560 i s t ) 006 001 \r
0021600 ( A P P L Y ( F U N C
0021620 T I O N R E P A C K F I L E N
0021640 A M E . S T R I N G . M S D O S
0021660 ) \r
0021700 ( A R G N 1 ) )
0021720 \r 006 002 e l s e 006 001 \r
0021740 ( P R O G ( ( B L
0021760 I P " " ) \r
0022000 ( I 1 ) \r
0022020 H O S T D E V I
0022040 C E S T R U C T U R E D I R
0022060 E C T O R Y N A M E E X T E
0022100 N S I O N V E R S I O N P A
0022120 C K L I S T V A R V A L T
0022140 E M P ) \r
0022160 ( 006 002 D E C L A R E 006 001 ( S
0022200 P E C V A R S H O S T D E V
0022220 I C E S T R U C T U R E D I
0022240 R E C T O R Y N A M E E X T
0022260 E N S I O N V E R S I O N ) )
0022300 \r L P ( C O
0022320 N D \r
0022340 ( ( N O T ( I G R E A T E
0022360 R P I N ) ) \r
0022400 ( C O N D \r
0022420
0022440 ( ( L I S T P ( S E T Q
0022460 V A R ( A R G N I ) ) ) \r
0022500
0022520 ( S E T Q V A L ( C
0022540 D R V A R ) ) \r
0022560 ( S E
0022600 T Q V A R ( C A R V A R )
0022620 ) ) \r
0022640 ( ( N O T ( I G R
0022660 E A T E R P ( S E T Q I (
0022700 A D D 1 I ) ) \r
0022720
0022740 N ) ) \r
0022760
0023000 ( S E T Q V A L ( A R G
0023020 N I ) ) ) \r
0023040 ( T ( S E
0023060 T Q V A L ) ) ) \r
0023100 ( O R ( S
0023120 T R I N G P V A L ) \r
0023140
0023160 ( A T O M V A L ) \r
0023200 (
0023220 E R R O R X ( L I S T 2 7
0023240 V A L ) ) )
0023260 006 006 ( * f i e
0023300 l d s m u s t b e a t o m
0023320 ) 006 001 \r
0023340 ( S E L E C T Q V A R
0023360 \r
0023400 ( B O D Y ( M A P
0023420 ( U N P A C K F I L E N A M E .
0023440 S T R I N G ( C O N D \r
0023460
*
0023540 ( ( L I S T P V A
0023560 L ) \r
0023600
*
0023660 006 006 ( * P A C K F I L E N A M
0023700 E . S T R I N G f o r e r r
0023720 o r \r 006 001
0023740
*
0024020 006 006 c h e c k i n g o f
0024040 f i e l d s ) 006 001 \r
0024060
*
0024140 ( 006 002 R E P A C K F I
0024160 L E N A M E . S T R I N G . M S
0024200 D O S 006 001 V A L ) ) \r
0024220
*
0024300 ( T V A L ) ) ) \r
0024320
0024340 [ F
0024360 U N C T I O N ( L A M B D A
0024400 ( X ) \r \r
0024420 006 006 ( * N I
0024440 L = > n o t y e t s e e
0024460 n , B L I P = > s e e n
0024500 a s N I L . ) 006 001 \r \r
0024520
*
0024560 ( O R ( E V A L
0024600 V ( C A R X ) ) \r
0024620
*
0024660 ( S E T (
0024700 C A R X ) \r
0024720
*
0024760 ( O R (
0025000 C A D R X ) \r
0025020
*
0025100 B L I P ] \r
0025120
0025140 ( F U N C T I O N C
0025160 D D R ) ) ) \r
0025200 ( H O S T
0025220 ( O R H O S T ( S E T Q
0025240 H O S T ( 006 002 i f 006 001 V A L
0025260 \r
0025300
*
0025340 006 002 t h e n 006 001 ( S E L
0025360 C H A R Q ( C H C O N 1 V A
0025400 L ) \r
0025420
*
0025460 (
0025500 ( { % [ % ( ) \r
0025520
*
0025600 ( S U B
0025620 S T R I N G V A L 2 \r
0025640
*
0025740 ( S E L C H A R Q (
0025760 N T H C H A R C O D E V A L
0026000 - 1 \r
0026020
*
0026120 ) \r
0026140
*
0026240 ( ( } %
0026260 ] % ) ) \r
0026300
*
0026400 - 2 ) \r
0026420
*
0026520 - 1 ) ) ) \r
0026540
*
0026620 V A L )
0026640 \r
0026660
*
0026720 006 002 e l s e 006 001 B L I P ) )
0026740 ) ) \r
0026760 ( D I R E C T O R
0027000 Y
0027020
0027040 006 006 ( * D I R E C T O R Y r
0027060 e a l l y i s t r e a t e d
0027100 a s \r 006 001
0027120
*
0027200 006 006 { H o s t } d e v i
0027220 c e % : < d i r e c t o r y > )
0027240 006 001 \r
0027260
0027300 [ 006 002 f o r 006 001 X 006 002 o
0027320 n 006 001 ( U N P A C K F I L E N
0027340 A M E . S T R I N G V A L )
0027360 006 002 b y 006 001 ( C D D R X ) \r
0027400
*
0027440 006 002 d o 006 001 ( C O N D \r
0027460
*
0027520 [ ( E Q ( C A R
0027540 X ) \r
0027560
*
0027620 ' N A M E ) \r
0027640
*
0027700 ( O R ( E V A L V ' D I R
0027720 E C T O R Y ) \r
0027740
*
0030000 ( S E T Q D I R E C
0030020 T O R Y ( O R ( C A D R X
0030040 ) \r
0030060
*
0030140 B L I P ] \r
0030160
*
0030220 ( T ( O R ( E V A L V (
0030240 C A R X ) ) \r
0030260
*
0030320 ( S E T ( C A R
0030340 X ) \r
0030360
*
0030420 ( O R ( C A D
0030440 R X ) \r
0030460
*
0030520 B L I
0030540 P ] ) \r
0030560 ( ( D E V I C E
0030600 H O S T N A M E E X T E N
0030620 S I O N V E R S I O N ) \r
0030640
0030660 ( O R ( E V A
0030700 L V V A R ) \r
0030720
0030740 ( S E T V A R ( O
0030760 R V A L B L I P ) ) ) ) \r
0031000
0031020 ( \ I L L E G A L . A R G
0031040 V A R ) ) \r
0031060 ( S E T Q I (
0031100 A D D 1 I ) ) \r
0031120 ( G O L P )
0031140 ) ) \r (
0031160 R E T U R N ( C O N C A T L I
0031200 S T \r
0031220 ( N C O N C (
0031240 A N D H O S T ( N E Q H O
0031260 S T B L I P ) \r
0031300
0031320 ( L I S T
0031340 " { " H O S T " } " ) ) \r
0031360
0031400 ( A N D
0031420 D E V I C E ( N E Q D E V I
0031440 C E B L I P ) \r
0031460
0031500 ( L I S T
0031520 " : " D E V I C E ) ) \r
0031540
0031560 ( A N D D I
0031600 R E C T O R Y ( N E Q D I R
0031620 E C T O R Y B L I P ) \r
0031640
0031660 ( P
0031700 R O G N ( S E T Q D I R E C
0031720 T O R Y ( C O N C A T D I R
0031740 E C T O R Y ) ) \r
0031760
*
0032020 [ 006 002 f o r 006 001 C 006 002 f r
0032040 o m 006 001 1 006 002 t o 006 001 ( N
0032060 C H A R S D I R E C T O R Y )
0032100 \r
0032120
0032140 006 002 d o
0032160 006 001 ( C O N D \r
0032200
*
0032240 ( [ F M E M
0032260 B ( N T H C H A R C O D E D
0032300 I R E C T O R Y C ) \r
0032320
*
0032400 ( C O N S T A N T (
0032420 L I S T ( C H A R C O D E >
0032440 ) \r
0032460
*
0032540 ( C H A R
0032560 C O D E % . ) \r
0032600
*
0032700 ( C H A R C O D E / ] \r
0032720
*
0033000 ( R P L C H A R C O D E D I
0033020 R E C T O R Y C ( C H A R C
0033040 O D E \ ] \r
0033060
0033100 (
0033120 L I S T " \ " D I R E C T O
0033140 R Y " \ " ) ) \r
0033160
0033200 ( L I S T
0033220 " \ " D I R E C T O R Y " \
0033240 " ) ) \r
0033260
0033300 ( A N D N A M E ( N E Q N
0033320 A M E B L I P ) \r
0033340
0033360 ( L I S T
0033400 N A M E ) ) \r
0033420
0033440 ( A N D ( O R ( A N
0033460 D E X T E N S I O N ( N E Q
0033500 E X T E N S I O N B L I P )
0033520 ) \r
0033540
0033560 ( A N D V E R S
0033600 I O N ( N E Q V E R S I O N
0033620 B L I P ) ) ) \r
0033640
0033660 ( L I S T
0033700 ( C O N D \r
0033720
*
0033760 ( ( O R ( A N D E X T E N S
0034000 I O N ( E Q ( C H C O N 1
0034020 E X T E N S I O N ) \r
0034040
*
0034120 ( C H
0034140 A R C O D E % . ) ) ) \r
0034160
*
0034220 ( O R
0034240 ( N U L L E X T E N S I O N )
0034260 \r
0034300
*
0034340 ( E Q E X T E N S I O
0034360 N B L I P ) \r
0034400
*
0034440 ( S T R E
0034460 Q U A L E X T E N S I O N "
0034500 " ) ) ) \r
0034520
*
0034560 B L I P ) \r
0034600
*
0034640 ( T ' % . ) ) \r
0034660
*
0034720 ( O R E X T E N S I O N B L
0034740 I P ] ) \r \r ( 006 004 R E P A C K F
0034760 I L E N A M E . S T R I N G . T
0035000 I 006 001 \r [ L A M B D A N 006
0035020 006 006 001
0035040
*
0035100 006 006 ( * c v s " 1
0035120 9 - D e c - 8 5 1 2 : 2 5 " )
0035140 006 001 \r \r
0035160 006 006 ( * * C
0035200 a n y o u b e l i e v e t
0035220 h i s ? ? ? ) 006 001 \r \r (
0035240 006 002 i f 006 001 ( A N D ( E Q
0035260 N 1 ) \r
0035300 ( L I S T P ( A R G N
0035320 1 ) ) ) \r 006 002 t
0035340 h e n 006 001
0035360
*
0035420 006 006 ( * s p r e a
0035440 d a r g u m e n t l i s t )
0035460 006 001 \r
0035500 ( A P P L Y ( F U N C T I O N
0035520 R E P A C K F I L E N A M E .
0035540 S T R I N G . T I ) \r
0035560 (
0035600 A R G N 1 ) ) \r
0035620 006 002 e l s e 006 001 \r (
0035640 P R O G ( ( B L I P " " ) \r
0035660 ( I
0035700 1 ) \r
0035720 H O S T D E V I C E S T R U
0035740 C T U R E D I R E C T O R Y
0035760 N A M E E X T E N S I O N V
0036000 E R S I O N P A C K L I S T
0036020 V A R V A L T E M P ) \r
0036040 ( 006 002 D E C
0036060 L A R E 006 001 ( S P E C V A R S
0036100 H O S T D E V I C E S T R
0036120 U C T U R E D I R E C T O R Y
0036140 N A M E E X T E N S I O N
0036160 V E R S I O N ) ) \r
0036200 L P ( C O N D \r
0036220 ( ( N O T
0036240 ( I G R E A T E R P I N )
0036260 ) \r
0036300 ( C O N D \r
0036320 ( ( L I S
0036340 T P ( S E T Q V A R ( A R
0036360 G N I ) ) ) \r
0036400 ( S E
0036420 T Q V A L ( C D R V A R )
0036440 ) \r
0036460 ( S E T Q V A R
0036500 ( C A R V A R ) ) ) \r
0036520 (
0036540 ( N O T ( I G R E A T E R P
0036560 ( S E T Q I ( A D D 1 I )
0036600 ) \r
0036620
0036640 N ) ) \r
0036660 ( S E T Q
0036700 V A L ( A R G N I ) ) ) \r
0036720
0036740 ( T ( S E T Q V A L )
0036760 ) ) \r
0037000 ( O R ( S T R I N G P
0037020 V A L ) \r
0037040 ( A T O M V
0037060 A L ) \r
0037100 ( E R R O R X
0037120 ( L I S T 2 7 V A L ) ) )
0037140
0037160 006 006 ( * f i e l d s m u s
0037200 t b e a t o m ) 006 001 \r
0037220 ( S E
0037240 L E C T Q V A R \r
0037260 ( B
0037300 O D Y ( M A P ( U N P A C K
0037320 F I L E N A M E . S T R I N G
0037340 ( C O N D \r
0037360
*
0037420 (
0037440 ( L I S T P V A L ) \r
0037460
*
0037540 006 006 ( * P A
0037560 C K F I L E N A M E . S T R I N
0037600 G f o r e r r o r \r 006 001
0037620
*
0037700 006 006 c h
0037720 e c k i n g o f f i e l d s
0037740 ) 006 001 \r
0037760
*
0040020 ( 006
0040040 002 R E P A C K F I L E N A M E .
0040060 S T R I N G . T I 006 001 V A L )
0040100 ) \r
0040120
*
0040160 ( T V A
0040200 L ) ) ) \r
0040220
0040240 [ F U N C T I O N ( L
0040260 A M B D A ( X ) \r
0040300 \r 006
0040320 006 ( * N I L = > n o t y
0040340 e t s e e n , B L I P = >
0040360 s e e n a s N I L . ) 006 001
0040400 \r \r
0040420
0040440 ( O R
0040460 ( E V A L V ( C A R X ) )
0040500 \r
0040520
*
0040560 ( S E T ( C A R X ) \r
0040600
*
0040660 ( O R ( C A D R X ) \r
0040700
*
0040760 B L I P ] \r
0041000
0041020 ( F U N C
0041040 T I O N C D D R ) ) ) \r
0041060
0041100 ( H O S T ( O R H O S T
0041120 ( S E T Q H O S T ( 006 002 i f
0041140 006 001 V A L \r
0041160
*
0041220 006 002 t h e n 006
0041240 001 ( S E L C H A R Q ( C H C
0041260 O N 1 V A L ) \r
0041300
*
0041360 ( ( { % [ % ( )
0041400 \r
0041420
*
0041500 ( S U B S T R I N G V A L
0041520 2 \r
0041540
*
0041620 ( S E L C
0041640 H A R Q ( N T H C H A R C O D
0041660 E V A L - 1 \r
0041700
*
0042020 ) \r
0042040
*
0042140 ( ( } % ] % ) ) \r
0042160
*
0042260 -
0042300 2 ) \r
0042320
*
0042420 - 1 ) ) ) \r
0042440
*
0042520 V A L ) \r
0042540
*
0042600 006 002 e l s e 006 001
0042620 B L I P ) ) ) ) \r
0042640 ( D I
0042660 R E C T O R Y
0042700
0042720 006 006 ( * D I R E C
0042740 T O R Y r e a l l y i s t
0042760 r e a t e d a s \r 006 001
0043000
*
0043060 006 006 { H o s
0043100 t } d e v i c e % : < d i r e c
0043120 t o r y > ) 006 001 \r
0043140
0043160 [ 006 002 f o r 006 001
0043200 X 006 002 o n 006 001 ( U N P A C
0043220 K F I L E N A M E . S T R I N G
0043240 V A L ) 006 002 b y 006 001 ( C D
0043260 D R X ) \r
0043300
0043320 006 002 d o 006 001 (
0043340 C O N D \r
0043360
0043400 [ ( E
0043420 Q ( C A R X ) \r
0043440
*
0043500 ' N A M E ) \r
0043520
*
0043560 ( O R ( E V A L
0043600 V ' D I R E C T O R Y ) \r
0043620
*
0043660 ( S E T Q
0043700 D I R E C T O R Y ( O R (
0043720 C A D R X ) \r
0043740
*
0044020 B L I P ] \r
0044040
*
0044100 ( T ( O R ( E
0044120 V A L V ( C A R X ) ) \r
0044140
*
0044200 ( S E
0044220 T ( C A R X ) \r
0044240
*
0044300 ( O
0044320 R ( C A D R X ) \r
0044340
*
0044420 B L I P ] ) \r
0044440 ( (
0044460 D E V I C E H O S T N A M E
0044500 E X T E N S I O N V E R S I
0044520 O N ) \r
0044540 ( O
0044560 R ( E V A L V V A R ) \r
0044600
0044620 ( S E T
0044640 V A R ( O R V A L B L I P
0044660 ) ) ) ) \r
0044700 ( \ I L L E G
0044720 A L . A R G V A R ) ) \r
0044740 ( S E
0044760 T Q I ( A D D 1 I ) ) \r
0045000 (
0045020 G O L P ) ) ) \r
0045040 ( R E T U R N ( C O
0045060 N C A T L I S T \r
0045100 ( N
0045120 C O N C ( A N D H O S T (
0045140 N E Q H O S T B L I P ) \r
0045160
*
0045220 ( L I S T H O S T " : " ) )
0045240 \r
0045260 ( A N
0045300 D D E V I C E ( N E Q D E
0045320 V I C E B L I P ) \r
0045340
0045360 ( S E L
0045400 C H A R Q ( N T H C H A R C O
0045420 D E D E V I C E - 1 ) \r
0045440
*
0045500 ( % : ( L I S T D E
0045520 V I C E ) ) \r
0045540
0045560 ( L I
0045600 S T D E V I C E | ' : | ) )
0045620 ) \r
0045640 ( A
0045660 N D D I R E C T O R Y ( N E
0045700 Q D I R E C T O R Y B L I P
0045720 ) \r
0045740
0045760 ( P R O G N ( S E T Q
0046000 D I R E C T O R Y ( C O N C A
0046020 T D I R E C T O R Y ) ) \r
0046040
*
0046100 [ 006 002 f o r 006 001 C
0046120 006 002 f r o m 006 001 1 006 002 t o
0046140 006 001 ( N C H A R S D I R E C
0046160 T O R Y ) \r
0046200
*
0046240 006 002 d o 006 001 ( C O N D \r
0046260
*
0046320 (
0046340 [ F M E M B ( N T H C H A R C
0046360 O D E D I R E C T O R Y C )
0046400 \r
0046420
*
0046460 ( C O N S T
0046500 A N T ( L I S T ( C H A R C
0046520 O D E > ) \r
0046540
*
0046640 ( C H A R C O D E / ) \r
0046660
*
0046760 ( C H A R C O D E
0047000 \ ] \r
0047020
*
0047060 ( R P L C H A R C O D
0047100 E D I R E C T O R Y C ( C
0047120 H A R C O D E % . ] \r
0047140
*
0047200 ( L I S T D I R E C T
0047220 O R Y " ; " ) ) ) \r
0047240
0047260 ( A N D N A M E
0047300 ( N E Q N A M E B L I P )
0047320 \r
0047340
0047360 ( L I S T N A M E ) ) \r
0047400
0047420 ( A N D
0047440 ( O R ( A N D E X T E N S I
0047460 O N ( N E Q E X T E N S I O
0047500 N B L I P ) ) \r
0047520
0047540 ( A
0047560 N D V E R S I O N ( N E Q
0047600 V E R S I O N B L I P ) ) ) \r
0047620
*
0047660 ( L I S T ( C O N D \r
0047700
*
0047740 ( ( A N D E X T
0047760 E N S I O N ( E Q ( C H C O
0050000 N 1 E X T E N S I O N ) \r
0050020
*
0050100 ( C H A
0050120 R C O D E % . ) ) ) \r
0050140
*
0050200 B L I P ) \r
0050220
*
0050260 ( T ' . ) ) \r
0050300
*
0050340 ( O R E X T E N S
0050360 I O N B L I P ) ) ) \r
0050400
0050420 ( A N D V E R
0050440 S I O N ( N E Q V E R S I O
0050460 N B L I P ) \r
0050500
0050520 ( C O N D \r
0050540
*
0050600 ( ( F I X P V E R S I O
0050620 N ) \r
0050640
0050660 ( L I S T ' %
0050700 # V E R S I O N ) ) \r
0050720
*
0050760 ( T ( S E L C H A R Q ( C H
0051000 C O N 1 V E R S I O N ) \r
0051020
*
0051060 ( % # ( L
0051100 I S T V E R S I O N ) ) \r
0051120
*
0051160 ( ( % . !
0051200 ; ) \r
0051220
*
0051260 ( L I S T ' % #
0051300 ( S U B S T R I N G V E R S I
0051320 O N 2 - 1 ) ) ) \r
0051340
*
0051400 ( L ( L I S T
0051420 ' % # ' O L D E S T ) ) \r
0051440
*
0051500 ( ( H 0 )
0051520 \r
0051540
*
0051600 ( L I S T ' % # ' > )
0051620 ) \r
0051640
0051660 ( L
0051700 I S T ' % # V E R S I O N ]
0051720 ) \r \r ( 006 004 R E P A C K F I L E
0051740 N A M E . S T R I N G . V M S 006
0051760 001 \r [ L A M B D A N 006 006 006
0052000 001
0052020
*
0052060 006 006 ( * e j s % : " 1
0052100 3 - A u g - 8 5 1 8 : 4 3 " )
0052120 006 001 \r ( 006 002 i f 006 001 (
0052140 A N D ( E Q N 1 ) \r
0052160 ( L I S T P
0052200 ( A R G N 1 ) ) ) \r
0052220 006 002 t h e n 006 001
0052240
*
0052300 006 006
0052320 ( * s p r e a d a r g u m e
0052340 n t l i s t ) 006 001 \r
0052360 ( A P P L Y (
0052400 F U N C T I O N R E P A C K F
0052420 I L E N A M E . S T R I N G . V
0052440 M S ) \r
0052460 ( A R G N 1
0052500 ) ) \r 006 002 e l s e 006
0052520 001 \r ( P R O G ( (
0052540 B L I P " " ) \r
0052560 ( I 1 ) \r
0052600 H O S T D E
0052620 V I C E S T R U C T U R E D
0052640 I R E C T O R Y N A M E E X
0052660 T E N S I O N V E R S I O N
0052700 T E M P O R A R Y P R O T E C
0052720 T I O N A C C O U N T \r
0052740 P A C K L
0052760 I S T V A R V A L T E M P
0053000 ) \r ( 006
0053020 002 D E C L A R E 006 001 ( S P E C
0053040 V A R S H O S T D E V I C E
0053060 S T R U C T U R E D I R E C
0053100 T O R Y N A M E E X T E N S
0053120 I O N V E R S I O N T E M P
0053140 O R A R Y \r
0053160
0053200 P R O T E C T I O N A C
0053220 C O U N T ) ) \r
0053240 L P ( C O N D \r
0053260 ( ( N O T (
0053300 I G R E A T E R P I N ) ) \r
0053320
0053340 ( C O N D \r
0053360 ( ( L I S T P
0053400 ( S E T Q V A R ( A R G
0053420 N I ) ) ) \r
0053440 ( S E T Q
0053460 V A L ( C D R V A R ) ) \r
0053500
0053520 ( S E T Q V A R ( C
0053540 A R V A R ) ) ) \r
0053560 ( ( N
0053600 O T ( I G R E A T E R P ( S
0053620 E T Q I ( A D D 1 I ) ) \r
0053640
*
0053700 N ) ) \r
0053720 ( S E T Q V A
0053740 L ( A R G N I ) ) ) \r
0053760
0054000 ( T ( S E T Q V A L ) ) )
0054020 \r
0054040 ( O R ( S T R I N G P V A
0054060 L ) \r
0054100 ( A T O M V A L
0054120 ) \r
0054140 ( E R R O R X ( L
0054160 I S T 2 7 V A L ) ) )
0054200 006
0054220 006 ( * f i e l d s m u s t
0054240 b e a t o m ) 006 001 \r
0054260 ( S E L E
0054300 C T Q V A R \r
0054320 ( B O D
0054340 Y ( M A P ( U N P A C K F I
0054360 L E N A M E . S T R I N G ( C
0054400 O N D \r
0054420
*
0054460 ( ( L
0054500 I S T P V A L ) \r
0054520
*
0054600 006 006 ( * P A C K
0054620 F I L E N A M E . S T R I N G
0054640 f o r e r r o r \r 006 001
0054660
*
0054740 006 006 c h e c
0054760 k i n g o f f i e l d s ) 006
0055000 001 \r
0055020
*
0055060 ( 006 002 R
0055100 E P A C K F I L E N A M E . S T
0055120 R I N G . V M S 006 001 V A L ) )
0055140 \r
0055160
*
0055220 ( T V A L
0055240 ) ) ) \r
0055260
0055300 [ F U N C T I O N ( L A
0055320 M B D A ( X ) \r
0055340 \r 006 006
0055360 ( * N I L = > n o t y e
0055400 t s e e n , B L I P = >
0055420 s e e n a s N I L . ) 006 001 \r
0055440 \r
0055460
0055500 ( O R
0055520 ( E V A L V ( C A R X ) ) \r
0055540
*
0055600 (
0055620 S E T ( C A R X ) \r
0055640
*
0055720 ( O R ( C A D R X ) \r
0055740
*
0056020 B L I P ] \r
0056040
0056060 ( F U N C T
0056100 I O N C D D R ) ) ) \r
0056120
0056140 ( H O S T ( O R H O S T (
0056160 S E T Q H O S T ( 006 002 i f 006
0056200 001 V A L \r
0056220
*
0056260 006 002 t h e n 006 001
0056300 ( S E L C H A R Q ( C H C O
0056320 N 1 V A L ) \r
0056340
*
0056420 ( ( { % [ % ( ) \r
0056440
*
0056540 ( S U B S T R I N G V A L
0056560 2 \r
0056600
*
0056660 ( S E L C H
0056700 A R Q ( N T H C H A R C O D E
0056720 V A L - 1 \r
0056740
*
0057060 ) \r
0057100
*
0057200 ( ( } % ] % ) ) \r
0057220
*
0057320 - 2
0057340 ) \r
0057360
*
0057440 -
0057460 1 ) ) ) \r
0057500
*
0057560 V A L ) \r
0057600
*
0057640 006 002 e l s e 006 001 B
0057660 L I P ) ) ) ) \r
0057700 ( D I R
0057720 E C T O R Y
0057740
0057760 006 006 ( * D I R E C T
0060000 O R Y r e a l l y i s t r
0060020 e a t e d a s \r 006 001
0060040
*
0060120 006 006 { H o s t
0060140 } d e v i c e % : < d i r e c t
0060160 o r y > ) 006 001 \r
0060200
0060220 [ 006 002 f o r 006 001
0060240 X 006 002 o n 006 001 ( U N P A C K
0060260 F I L E N A M E . S T R I N G
0060300 V A L ) 006 002 b y 006 001 ( C D D
0060320 R X ) \r
0060340
0060360 006 002 d o 006 001 ( C
0060400 O N D \r
0060420
0060440 [ ( E Q
0060460 ( C A R X ) \r
0060500
*
0060540 ' N A M E ) \r
0060560
*
0060620 ( O R ( E V A L V
0060640 ' D I R E C T O R Y ) \r
0060660
*
0060720 ( S E T Q
0060740 D I R E C T O R Y ( O R ( C
0060760 A D R X ) \r
0061000
*
0061060 B L I P ] \r
0061100
*
0061140 ( T ( O R ( E V
0061160 A L V ( C A R X ) ) \r
0061200
*
0061240 ( S E T
0061260 ( C A R X ) \r
0061300
*
0061340 ( O R
0061360 ( C A D R X ) \r
0061400
*
0061460 B L I P ] ) \r
0061500 ( ( D
0061520 E V I C E H O S T N A M E
0061540 E X T E N S I O N V E R S I O
0061560 N T E M P O R A R Y ) \r
0061600
0061620 ( O R ( E V A L
0061640 V V A R ) \r
0061660
0061700 ( S E T V A R ( O R
0061720 V A L B L I P ) ) ) ) \r
0061740
0061760 ( \ I L L E G A L . A R G
0062000 V A R ) ) \r
0062020 ( S E T Q I ( A
0062040 D D 1 I ) ) \r
0062060 ( G O L P ) )
0062100 ) \r ( R
0062120 E T U R N ( C O N C A T L I S
0062140 T \r
0062160 ( N C O N C ( A
0062200 N D H O S T ( N E Q H O S
0062220 T B L I P ) \r
0062240
0062260 ( L I S T "
0062300 { " H O S T " } " ) ) \r
0062320
0062340 [ A N D D
0062360 E V I C E ( N E Q D E V I C
0062400 E B L I P ) \r
0062420
0062440 ( S E L C H A
0062460 R Q ( N T H C H A R C O D E
0062500 D E V I C E - 1 ) \r
0062520
*
0062560 ( % : ( L I S T D E V I C
0062600 E ) ) \r
0062620
0062640 ( L I S T
0062660 D E V I C E ' % : ] \r
0062700
0062720 ( A N D D I R
0062740 E C T O R Y ( N E Q D I R E
0062760 C T O R Y B L I P ) \r
0063000
0063020 ( P R
0063040 O G N ( S E T Q D I R E C T
0063060 O R Y ( C O N C A T D I R E
0063100 C T O R Y ) ) \r
0063120
*
0063160 [ 006 002 f o r 006 001 C 006 002 f r o
0063200 m 006 001 1 006 002 t o 006 001 ( N C
0063220 H A R S D I R E C T O R Y ) \r
0063240
*
0063300 006 002 d o 006
0063320 001 ( C O N D \r
0063340
*
0063400 ( [ F M E M B
0063420 ( N T H C H A R C O D E D I
0063440 R E C T O R Y C ) \r
0063460
*
0063540 ( C O N S T A N T ( L
0063560 I S T ( C H A R C O D E / )
0063600 \r
0063620
*
0063700 ( C H A R C
0063720 O D E > ] \r
0063740
*
0064000 ( R P L C H A
0064020 R C O D E D I R E C T O R Y
0064040 C ( C H A R C O D E % . ] \r
0064060
*
0064120 ( L I S T " [
0064140 " D I R E C T O R Y " ] " )
0064160 ) ) \r
0064200 (
0064220 A N D N A M E ( N E Q N A
0064240 M E B L I P ) \r
0064260
0064300 ( L I S T
0064320 N A M E ) ) \r
0064340
0064360 ( A N D ( O R ( A N D
0064400 E X T E N S I O N ( N E Q
0064420 E X T E N S I O N B L I P ) )
0064440 \r
0064460
0064500 ( A N D V E R S I
0064520 O N ( N E Q V E R S I O N
0064540 B L I P ) ) ) \r
0064560
0064600 ( L I S T (
0064620 C O N D \r
0064640
0064660 (
0064700 ( A N D E X T E N S I O N (
0064720 E Q ( C H C O N 1 E X T E N
0064740 S I O N ) \r
0064760
*
0065040 ( C H A R C O D E % .
0065060 ) ) ) \r
0065100
0065120 B
0065140 L I P ) \r
0065160
0065200 (
0065220 T ' % . ) ) \r
0065240
0065260 (
0065300 O R E X T E N S I O N B L I
0065320 P ) ) ) \r
0065340
0065360 ( A N D V E R S I O N ( N
0065400 E Q V E R S I O N B L I P )
0065420 \r
0065440
0065460 ( C O N D \r
0065500
0065520 ( ( F I
0065540 X P V E R S I O N ) \r
0065560
*
0065620 ( L I S T ' ; V E R S I O
0065640 N ) ) \r
0065660
0065700 ( T ( S E L C
0065720 H A R Q ( C H C O N 1 V E R
0065740 S I O N ) \r
0065760
*
0066020 ( ; ( L I S T V E R S I
0066040 O N ) ) \r
0066060
*
0066120 ( ( % . ! ) \r
0066140
*
0066200 ( L I S T
0066220 ' ; ( S U B S T R I N G V
0066240 E R S I O N 2 - 1 ) ) ) \r
0066260
*
0066320 ( L I S T
0066340 ' ; V E R S I O N ] ) \r \r (
0066360 006 004 R E P A C K F I L E N A M E
0066400 . S T R I N G . 3 6 0 0 006 001 \r
0066420 [ L A M B D A N 006 006 006 001
0066440
*
0066520 006 006 ( * e j s % : " 1 3 - A
0066540 u g - 8 5 1 8 : 4 4 " ) 006 001 \r
0066560 \r
0066600 006 006 ( * * C a n
0066620 y o u b e l i e v e t h i s
0066640 ? ? ? ) 006 001 \r \r ( 006 002 i
0066660 f 006 001 ( A N D ( E Q N 1
0066700 ) \r (
0066720 L I S T P ( A R G N 1 ) )
0066740 ) \r 006 002 t h e n
0066760 006 001
0067000
*
0067040 006 006 ( * s p r e a d a
0067060 r g u m e n t l i s t ) 006 001 \r
0067100 ( A P
0067120 P L Y ( F U N C T I O N R E
0067140 P A C K F I L E N A M E . S T R
0067160 I N G . 3 6 0 0 ) \r
0067200 ( A
0067220 R G N 1 ) ) \r 006
0067240 002 e l s e 006 001 \r ( P
0067260 R O G ( ( B L I P " " ) \r
0067300 ( I 1
0067320 ) \r H
0067340 O S T D E V I C E S T R U C
0067360 T U R E D I R E C T O R Y N
0067400 A M E E X T E N S I O N V E
0067420 R S I O N P A C K L I S T V
0067440 A R V A L T E M P ) \r
0067460 ( 006 002 D E C L
0067500 A R E 006 001 ( S P E C V A R S
0067520 H O S T D E V I C E S T R U
0067540 C T U R E D I R E C T O R Y
0067560 N A M E E X T E N S I O N V
0067600 E R S I O N ) ) \r
0067620 L P ( C O N D \r
0067640 ( ( N O T
0067660 ( I G R E A T E R P I N ) )
0067700 \r
0067720 ( C O N D \r
0067740 ( ( L I S T
0067760 P ( S E T Q V A R ( A R G
0070000 N I ) ) ) \r
0070020 ( S E T
0070040 Q V A L ( C D R V A R ) )
0070060 \r
0070100 ( S E T Q V A R (
0070120 C A R V A R ) ) ) \r
0070140 ( (
0070160 N O T ( I G R E A T E R P (
0070200 S E T Q I ( A D D 1 I ) )
0070220 \r
0070240
0070260 N ) ) \r
0070300 ( S E T Q V
0070320 A L ( A R G N I ) ) ) \r
0070340
0070360 ( T ( S E T Q V A L ) )
0070400 ) \r
0070420 ( O R ( S T R I N G P V
0070440 A L ) \r
0070460 ( A T O M V A
0070500 L ) \r
0070520 ( E R R O R X (
0070540 L I S T 2 7 V A L ) ) )
0070560
0070600 006 006 ( * f i e l d s m u s t
0070620 b e a t o m ) 006 001 \r
0070640 ( S E L
0070660 E C T Q V A R \r
0070700 ( B O
0070720 D Y ( M A P ( U N P A C K F
0070740 I L E N A M E . S T R I N G (
0070760 C O N D \r
0071000
*
0071040 ( (
0071060 L I S T P V A L ) \r
0071100
*
0071160 006 006 ( * P A C
0071200 K F I L E N A M E . S T R I N G
0071220 f o r e r r o r \r 006 001
0071240
*
0071320 006 006 c h e
0071340 c k i n g o f f i e l d s )
0071360 006 001 \r
0071400
*
0071440 ( 006 002
0071460 R E P A C K F I L E N A M E . S
0071500 T R I N G . 3 6 0 0 006 001 V A L
0071520 ) ) \r
0071540
*
0071600 ( T V
0071620 A L ) ) ) \r
0071640
0071660 [ F U N C T I O N (
0071700 L A M B D A ( X ) \r
0071720 \r
0071740 006 006 ( * N I L = > n o t
0071760 y e t s e e n , B L I P =
0072000 > s e e n a s N I L . ) 006
0072020 001 \r \r
0072040
0072060 ( O
0072100 R ( E V A L V ( C A R X )
0072120 ) \r
0072140
*
0072200 ( S E T ( C A R X ) \r
0072220
*
0072300 ( O R ( C A D R X ) \r
0072320
*
0072400 B L I P ] \r
0072420
0072440 ( F U N
0072460 C T I O N C D D R ) ) ) \r
0072500
0072520 ( H O S T ( O R H O S T
0072540 ( S E T Q H O S T ( 006 002 i
0072560 f 006 001 V A L \r
0072600
*
0072640 006 002 t h e n
0072660 006 001 ( S E L C H A R Q ( C H
0072700 C O N 1 V A L ) \r
0072720
*
0073000 ( ( { % [ % ( )
0073020 \r
0073040
*
0073120 ( S U B S T R I N G V A
0073140 L 2 \r
0073160
*
0073240 ( S E L
0073260 C H A R Q ( N T H C H A R C O
0073300 D E V A L - 1 \r
0073320
*
0073440 ) \r
0073460
*
0073560 ( ( } % ] % ) ) \r
0073600
*
0073720 - 2 ) \r
0073740
*
0074040 - 1 ) ) ) \r
0074060
*
0074140 V A L ) \r
0074160
*
0074220 006 002 e l s e 006 001
0074240 B L I P ) ) ) ) \r
0074260 ( D
0074300 I R E C T O R Y
0074320
0074340 006 006 ( * D I R E
0074360 C T O R Y r e a l l y i s
0074400 t r e a t e d a s \r 006 001
0074420
*
0074500 006 006 { H o
0074520 s t } d e v i c e % : < d i r e
0074540 c t o r y > ) 006 001 \r
0074560
0074600 [ 006 002 f o r 006
0074620 001 X 006 002 o n 006 001 ( U N P A
0074640 C K F I L E N A M E . S T R I N
0074660 G V A L ) 006 002 b y 006 001 ( C
0074700 D D R X ) \r
0074720
0074740 006 002 d o 006 001
0074760 ( C O N D \r
0075000
0075020 [ (
0075040 E Q ( C A R X ) \r
0075060
*
0075120 ' N A M E ) \r
0075140
*
0075200 ( O R ( E V A
0075220 L V ' D I R E C T O R Y ) \r
0075240
*
0075300 ( S E T
0075320 Q D I R E C T O R Y ( O R
0075340 ( C A D R X ) \r
0075360
*
0075440 B L I P ] \r
0075460
*
0075520 ( T ( O R (
0075540 E V A L V ( C A R X ) ) \r
0075560
*
0075620 ( S
0075640 E T ( C A R X ) \r
0075660
*
0075720 (
0075740 O R ( C A D R X ) \r
0075760
*
0076040 B L I P ] ) \r
0076060 (
0076100 ( D E V I C E H O S T N A M
0076120 E E X T E N S I O N V E R S
0076140 I O N ) \r
0076160 (
0076200 O R ( E V A L V V A R ) \r
0076220
0076240 ( S E T
0076260 V A R ( O R V A L B L I
0076300 P ) ) ) ) \r
0076320 ( \ I L L E
0076340 G A L . A R G V A R ) ) \r
0076360 ( S
0076400 E T Q I ( A D D 1 I ) ) \r
0076420
0076440 ( G O L P ) ) ) \r
0076460 ( R E T U R N ( C
0076500 O N C A T L I S T \r
0076520 (
0076540 N C O N C ( A N D H O S T
0076560 ( N E Q H O S T B L I P ) \r
0076600
*
0076640 ( L I S T H O S T " : " )
0076660 ) \r
0076700 [ A
0076720 N D D E V I C E ( N E Q D
0076740 E V I C E B L I P ) \r
0076760
0077000 ( S E
0077020 L C H A R Q ( N T H C H A R C
0077040 O D E D E V I C E - 1 ) \r
0077060
*
0077120 ( % : ( L I S T D
0077140 E V I C E ) ) \r
0077160
0077200 ( L
0077220 I S T D E V I C E ' % : ] \r
0077240
0077260 ( A N D
0077300 D I R E C T O R Y ( N E Q
0077320 D I R E C T O R Y B L I P ) \r
0077340
*
0077400 ( P R O G N ( S E T Q D I
0077420 R E C T O R Y ( C O N C A T
0077440 D I R E C T O R Y ) ) \r
0077460
*
0077520 [ 006 002 f o r 006 001 C 006
0077540 002 f r o m 006 001 1 006 002 t o 006 001
0077560 ( N C H A R S D I R E C T O
0077600 R Y ) \r
0077620
0077640 006
0077660 002 d o 006 001 ( C O N D \r
0077700
*
0077740 ( [ F
0077760 M E M B ( N T H C H A R C O D
0100000 E D I R E C T O R Y C ) \r
0100020
*
0100100 ( C O N S T A N
0100120 T ( L I S T ( C H A R C O D
0100140 E / ) \r
0100160
*
0100240 ( C
0100260 H A R C O D E % . ) \r
0100300
*
0100400 ( C H A R C O D E /
0100420 ) \r
0100440
*
0100520 ( C H A R
0100540 C O D E \ ] \r
0100560
*
0100620 ( R P L C H
0100640 A R C O D E D I R E C T O R Y
0100660 C ( C H A R C O D E > ] \r
0100700
*
0100740 ( L I S T " >
0100760 " D I R E C T O R Y " > " )
0101000 ) ) \r
0101020 (
0101040 A N D N A M E ( N E Q N A
0101060 M E B L I P ) \r
0101100
0101120 ( L I S T
0101140 N A M E ) ) \r
0101160
0101200 ( A N D ( O R ( A N D
0101220 E X T E N S I O N ( N E Q
0101240 E X T E N S I O N B L I P ) )
0101260 \r
0101300
0101320 ( A N D V E R S I
0101340 O N ( N E Q V E R S I O N
0101360 B L I P ) ) ) \r
0101400
0101420 ( L I S T (
0101440 C O N D \r
0101460
0101500 (
0101520 ( A N D E X T E N S I O N (
0101540 E Q ( C H C O N 1 E X T E N
0101560 S I O N ) \r
0101600
*
0101660 ( C H A R C O D E % .
0101700 ) ) ) \r
0101720
0101740 B
0101760 L I P ) \r
0102000
0102020 (
0102040 T ' % . ) ) \r
0102060
0102100 (
0102120 O R E X T E N S I O N B L I
0102140 P ) ) ) \r
0102160
0102200 ( A N D V E R S I O N ( N
0102220 E Q V E R S I O N B L I P )
0102240 \r
0102260
0102300 ( C O N D \r
0102320
0102340 ( ( F I
0102360 X P V E R S I O N ) \r
0102400
*
0102440 ( L I S T ' % . V E R S I
0102460 O N ) ) \r
0102500
0102520 ( T ( S E L
0102540 C H A R Q ( C H C O N 1 V E
0102560 R S I O N ) \r
0102600
*
0102640 ( ; ( L I S T V E R S
0102660 I O N ) ) \r
0102700
*
0102740 ( ( % . ! ) \r
0102760
*
0103020 ( L I S
0103040 T ' % . ( S U B S T R I N G
0103060 V E R S I O N 2 - 1 ) ) )
0103100 \r
0103120
0103140 ( L
0103160 ( L I S T ' % . ' O L D E S
0103200 T ) ) \r
0103220
*
0103260 ( ( H 0 ) \r
0103300
*
0103340 ( L I S T '
0103360 % . ' N E W E S T ) ) \r
0103400
*
0103440 ( L I S T '
0103460 % . V E R S I O N ] ) \r \r ( 006
0103500 004 R E P A C K F I L E N A M E .
0103520 S T R I N G . T O P S 2 0 006 001 \r
0103540 [ L A M B D A N 006 006 006 001
0103560
*
0103640 006 006 ( * e j s % : " 1 3 -
0103660 A u g - 8 5 1 8 : 4 4 " ) 006 001
0103700 \r ( 006 002 i f 006 001 ( A N
0103720 D ( E Q N 1 ) \r
0103740 ( L I S T P (
0103760 A R G N 1 ) ) ) \r
0104000 006 002 t h e n 006 001
0104020
*
0104060 006 006 ( *
0104100 s p r e a d a r g u m e n t
0104120 l i s t ) 006 001 \r
0104140 ( A P P L Y ( F U
0104160 N C T I O N R E P A C K F I L
0104200 E N A M E . S T R I N G . T O P
0104220 S 2 0 ) \r
0104240 ( A R G N
0104260 1 ) ) \r 006 002 e l s e
0104300 006 001 \r ( P R O G (
0104320 ( B L I P " " ) \r
0104340 ( I 1 ) \r
0104360 H O S T D
0104400 E V I C E S T R U C T U R E
0104420 D I R E C T O R Y N A M E E
0104440 X T E N S I O N V E R S I O N
0104460 T E M P O R A R Y P R O T E
0104500 C T I O N A C C O U N T \r
0104520 P A C K
0104540 L I S T V A R V A L T E M
0104560 P ) \r (
0104600 006 002 D E C L A R E 006 001 ( S P E
0104620 C V A R S H O S T D E V I C
0104640 E S T R U C T U R E D I R E
0104660 C T O R Y N A M E E X T E N
0104700 S I O N V E R S I O N T E M
0104720 P O R A R Y \r
0104740
0104760 P R O T E C T I O N A
0105000 C C O U N T ) ) \r
0105020 L P ( C O N D \r
0105040 ( ( N O T
0105060 ( I G R E A T E R P I N ) )
0105100 \r
0105120 ( C O N D \r
0105140 ( ( L I S T
0105160 P ( S E T Q V A R ( A R G
0105200 N I ) ) ) \r
0105220 ( S E T
0105240 Q V A L ( C D R V A R ) )
0105260 \r
0105300 ( S E T Q V A R (
0105320 C A R V A R ) ) ) \r
0105340 ( (
0105360 N O T ( I G R E A T E R P (
0105400 S E T Q I ( A D D 1 I ) )
0105420 \r
0105440
0105460 N ) ) \r
0105500 ( S E T Q V
0105520 A L ( A R G N I ) ) ) \r
0105540
0105560 ( T ( S E T Q V A L ) )
0105600 ) \r
0105620 ( O R ( S T R I N G P V
0105640 A L ) \r
0105660 ( A T O M V A
0105700 L ) \r
0105720 ( E R R O R X (
0105740 L I S T 2 7 V A L ) ) )
0105760
0106000 006 006 ( * f i e l d s m u s t
0106020 b e a t o m ) 006 001 \r
0106040 ( S E L
0106060 E C T Q V A R \r
0106100 ( B O
0106120 D Y ( M A P ( U N P A C K F
0106140 I L E N A M E . S T R I N G (
0106160 C O N D \r
0106200
*
0106240 ( (
0106260 L I S T P V A L ) \r
0106300
*
0106360 006 006 ( * P A C
0106400 K F I L E N A M E . S T R I N G
0106420 f o r e r r o r \r 006 001
0106440
*
0106520 006 006 c h e
0106540 c k i n g o f f i e l d s )
0106560 006 001 \r
0106600
*
0106640 ( 006 002
0106660 R E P A C K F I L E N A M E . S
0106700 T R I N G . T O P S 2 0 006 001 V
0106720 A L ) ) \r
0106740
*
0107000 ( T
0107020 V A L ) ) ) \r
0107040
0107060 [ F U N C T I O N
0107100 ( L A M B D A ( X ) \r
0107120 \r
0107140 006 006 ( * N I L = > n o
0107160 t y e t s e e n , B L I P
0107200 = > s e e n a s N I L .
0107220 ) 006 001 \r \r
0107240
*
0107300 ( O R ( E V A L V ( C A R
0107320 X ) ) \r
0107340
*
0107400 ( S E T ( C A R X ) \r
0107420
*
0107500 ( O R ( C A D R X )
0107520 \r
0107540
*
0107600 B L I P ] \r
0107620
0107640 ( F
0107660 U N C T I O N C D D R ) ) ) \r
0107700
0107720 ( H O S T ( O R H O
0107740 S T ( S E T Q H O S T ( 006
0107760 002 i f 006 001 V A L \r
0110000
*
0110040 006 002 t h
0110060 e n 006 001 ( S E L C H A R Q (
0110100 C H C O N 1 V A L ) \r
0110120
*
0110200 ( ( { % [ %
0110220 ( ) \r
0110240
*
0110320 ( S U B S T R I N G
0110340 V A L 2 \r
0110360
*
0110440 ( S
0110460 E L C H A R Q ( N T H C H A R
0110500 C O D E V A L - 1 \r
0110520
*
0110640 ) \r
0110660
*
0110760 ( ( } % ] % ) ) \r
0111000
*
0111120 - 2 ) \r
0111140
*
0111240 - 1 ) ) ) \r
0111260
*
0111340 V A L ) \r
0111360
*
0111420 006 002 e l s e
0111440 006 001 B L I P ) ) ) ) \r
0111460
0111500 ( D I R E C T O R Y
0111520
0111540 006 006 ( * D I
0111560 R E C T O R Y r e a l l y i
0111600 s t r e a t e d a s \r 006 001
0111620
*
0111700 006 006 {
0111720 H o s t } d e v i c e % : < d i
0111740 r e c t o r y > ) 006 001 \r
0111760
0112000 [ 006 002 f o
0112020 r 006 001 X 006 002 o n 006 001 ( U N
0112040 P A C K F I L E N A M E . S T R
0112060 I N G V A L ) 006 002 b y 006 001
0112100 ( C D D R X ) \r
0112120
0112140 006 002 d o 006
0112160 001 ( C O N D \r
0112200
*
0112240 [ ( E Q ( C A R X ) \r
0112260
*
0112320 ' N A M E )
0112340 \r
0112360
0112400 ( O R ( E
0112420 V A L V ' D I R E C T O R Y )
0112440 \r
0112460
0112500 ( S
0112520 E T Q D I R E C T O R Y ( O
0112540 R ( C A D R X ) \r
0112560
*
0112640 B L I P
0112660 ] \r
0112700
0112720 ( T ( O R
0112740 ( E V A L V ( C A R X ) )
0112760 \r
0113000
*
0113040 ( S E T ( C A R X ) \r
0113060
*
0113140 ( O R ( C A D R X ) \r
0113160
*
0113240 B L I P ] ) \r
0113260
0113300 ( ( D E V I C E H O S T N
0113320 A M E E X T E N S I O N V E
0113340 R S I O N T E M P O R A R Y )
0113360 \r
0113400 ( O R (
0113420 E V A L V V A R ) \r
0113440
0113460 ( S E T V A R
0113500 ( O R V A L B L I P ) ) )
0113520 ) \r
0113540 ( \ I L L E G A L .
0113560 A R G V A R ) ) \r
0113600 ( S E T Q
0113620 I ( A D D 1 I ) ) \r
0113640 ( G O
0113660 L P ) ) ) \r
0113700 ( S E L E C T Q T E M P O
0113720 R A R Y \r
0113740 ( ( T S ; S )
0113760
*
0114020 006 006 ( * h a c k f o r
0114040 I n t e r l i s p - D ! ) 006 001 \r
0114060
0114100 ( O R H O S T D E
0114120 V I C E ( P R O G N ( S E T
0114140 Q H O S T ' C O R E ) \r
0114160
*
0114220 ( S E T Q
0114240 T E M P O R A R Y ) ) ) ) \r
0114260 N I
0114300 L ) \r (
0114320 R E T U R N ( C O N C A T L I
0114340 S T \r
0114360 ( N C O N C (
0114400 A N D H O S T ( N E Q H O
0114420 S T B L I P ) \r
0114440
0114460 ( L I S T
0114500 " { " H O S T " } " ) ) \r
0114520
0114540 [ A N D
0114560 D E V I C E ( N E Q D E V I
0114600 C E B L I P ) \r
0114620
0114640 ( S E L C H
0114660 A R Q ( N T H C H A R C O D E
0114700 D E V I C E - 1 ) \r
0114720
*
0114760 ( % : ( L I S T D E V I
0115000 C E ) ) \r
0115020
0115040 ( L I S T
0115060 D E V I C E ' % : ] \r
0115100
0115120 ( A N D D I
0115140 R E C T O R Y ( N E Q D I R
0115160 E C T O R Y B L I P ) \r
0115200
0115220 ( P
0115240 R O G N ( S E T Q D I R E C
0115260 T O R Y ( C O N C A T D I R
0115300 E C T O R Y ) ) \r
0115320
*
0115360 [ 006 002 f o r 006 001 C 006 002 f r
0115400 o m 006 001 1 006 002 t o 006 001 ( N
0115420 C H A R S D I R E C T O R Y )
0115440 \r
0115460
0115500 006 002 d o
0115520 006 001 ( C O N D \r
0115540
*
0115600 ( [ F M E M
0115620 B ( N T H C H A R C O D E D
0115640 I R E C T O R Y C ) \r
0115660
*
0115740 ( C O N S T A N T (
0115760 L I S T ( C H A R C O D E /
0116000 ) \r
0116020
*
0116100 ( C H A R
0116120 C O D E > ] \r
0116140
*
0116200 ( R P L C H
0116220 A R C O D E D I R E C T O R Y
0116240 C ( C H A R C O D E % . ]
0116260 \r
0116300
0116320 ( L I S T "
0116340 < " D I R E C T O R Y " > "
0116360 ) ) ) \r
0116400
0116420 ( A N D N A M E ( N E Q N
0116440 A M E B L I P ) \r
0116460
0116500 ( L I S T
0116520 N A M E ) ) \r
0116540
0116560 ( A N D ( O R ( A N
0116600 D E X T E N S I O N ( N E Q
0116620 E X T E N S I O N B L I P )
0116640 ) \r
0116660
0116700 ( A N D V E R S
0116720 I O N ( N E Q V E R S I O N
0116740 B L I P ) ) ) \r
0116760
0117000 ( L I S T
0117020 ( C O N D \r
0117040
*
0117100 ( ( A N D E X T E N S I O N
0117120 ( E Q ( C H C O N 1 E X T E
0117140 N S I O N ) \r
0117160
*
0117240 ( C H A R C O D E %
0117260 . ) ) ) \r
0117300
*
0117340 B L I P ) \r
0117360
*
0117420 ( T ' % . ) ) \r
0117440
*
0117500 ( O R E X T E N S I O N B L
0117520 I P ) ) ) \r
0117540
0117560 [ A N D V E R S I O N (
0117600 N E Q V E R S I O N B L I P
0117620 ) \r
0117640
0117660 ( C O N D \r
0117700
0117720 ( ( F
0117740 I X P V E R S I O N ) \r
0117760
*
0120020 ( L I S T ' % . V E R S
0120040 I O N ) ) \r
0120060
0120100 ( T ( S E
0120120 L C H A R Q ( C H C O N 1 V
0120140 E R S I O N ) \r
0120160
*
0120220 ( ; ( L I S T V E R
0120240 S I O N ) ) \r
0120260
*
0120320 ( ( % . ! ) \r
0120340
*
0120400 ( L I
0120420 S T ' % . ( S U B S T R I N
0120440 G V E R S I O N 2 - 1 ) )
0120460 ) \r
0120500
0120520 ( L
0120540 ( L I S T ' % . - 2 ) ) \r
0120560
*
0120620 ( H (
0120640 L I S T ' % . 0 ) ) \r
0120660
*
0120720 ( L I S T '
0120740 % . V E R S I O N ] \r
0120760
0121000 ( A N D T E M
0121020 P O R A R Y ( N E Q T E M P
0121040 O R A R Y B L I P ) \r
0121060
0121100 ( L I
0121120 S T ' ; ( S E L E C T Q T
0121140 E M P O R A R Y \r
0121160
*
0121220 ( ( S ; S ) \r
0121240
*
0121320 ' S ) \r
0121340
*
0121400 T ] ) \r \r ( 006 004 R E P
0121420 A C K F I L E N A M E . S T R I
0121440 N G . U N I X 006 001 \r [ L A M
0121460 B D A N 006 006 006 001
0121500
*
0121540 006 006 ( *
0121560 e j s % : " 1 3 - A u g - 8 5
0121600 1 8 : 4 5 " ) 006 001 \r (
0121620 006 002 i f 006 001 ( A N D ( E Q
0121640 N 1 ) \r
0121660 ( L I S T P ( A R G N
0121700 1 ) ) ) \r 006 002 t
0121720 h e n 006 001
0121740
*
0122000 006 006 ( * s p r e a
0122020 d a r g u m e n t l i s t )
0122040 006 001 \r
0122060 ( A P P L Y ( F U N C T I O N
0122100 R E P A C K F I L E N A M E .
0122120 S T R I N G . U N I X ) \r
0122140
0122160 ( A R G N 1 ) ) \r
0122200 006 002 e l s e 006 001 \r
0122220 ( P R O G ( ( B L I P " "
0122240 ) \r (
0122260 I 1 ) \r
0122300 H O S T D E V I C E S T
0122320 R U C T U R E D I R E C T O R
0122340 Y N A M E E X T E N S I O N
0122360 V E R S I O N P A C K L I S
0122400 T V A R V A L T E M P ) \r
0122420 ( 006 002 D
0122440 E C L A R E 006 001 ( S P E C V A
0122460 R S H O S T D E V I C E S
0122500 T R U C T U R E D I R E C T O
0122520 R Y N A M E E X T E N S I O
0122540 N V E R S I O N ) ) \r
0122560 L P ( C O N D \r
0122600 ( ( N
0122620 O T ( I G R E A T E R P I
0122640 N ) ) \r
0122660 ( C O N D \r
0122700 ( ( L
0122720 I S T P ( S E T Q V A R (
0122740 A R G N I ) ) ) \r
0122760 (
0123000 S E T Q V A L ( C D R V A
0123020 R ) ) \r
0123040 ( S E T Q V A
0123060 R ( C A R V A R ) ) ) \r
0123100
0123120 ( ( N O T ( I G R E A T E R
0123140 P ( S E T Q I ( A D D 1
0123160 I ) ) \r
0123200
0123220 N ) ) \r
0123240 ( S E T
0123260 Q V A L ( A R G N I ) )
0123300 ) \r
0123320 ( T ( S E T Q V A
0123340 L ) ) ) \r
0123360 ( O R ( S T R I N G
0123400 P V A L ) \r
0123420 ( A T O M
0123440 V A L ) \r
0123460 ( E R R O R
0123500 X ( L I S T 2 7 V A L ) )
0123520 )
0123540 006 006 ( * f i e l d s m
0123560 u s t b e a t o m ) 006 001 \r
0123600 (
0123620 S E L E C T Q V A R \r
0123640
0123660 ( B O D Y ( M A P ( U N P A
0123700 C K F I L E N A M E . S T R I N
0123720 G ( C O N D \r
0123740
*
0124020 ( ( L I S T P V A L ) \r
0124040
*
0124120 006 006 ( *
0124140 P A C K F I L E N A M E . S T R
0124160 I N G f o r e r r o r \r 006
0124200 001
0124220
*
0124260 006 006
0124300 c h e c k i n g o f f i e l
0124320 d s ) 006 001 \r
0124340
*
0124420 ( 006 002 R E P A C K F I L E N A M
0124440 E . S T R I N G . U N I X 006 001
0124460 V A L ) ) \r
0124500
*
0124540 (
0124560 T V A L ) ) ) \r
0124600
0124620 [ F U N C T I O
0124640 N ( L A M B D A ( X ) \r
0124660 \r
0124700 006 006 ( * N I L = > n
0124720 o t y e t s e e n , B L I
0124740 P = > s e e n a s N I L
0124760 . ) 006 001 \r \r
0125000
*
0125040 ( O R ( E V A L V ( C A R
0125060 X ) ) \r
0125100
*
0125140 ( S E T ( C A R X )
0125160 \r
0125200
*
0125240 ( O R ( C A D R X
0125260 ) \r
0125300
*
0125340 B L I P ] \r
0125360
0125400 (
0125420 F U N C T I O N C D D R ) ) )
0125440 \r
0125460 ( H O S T ( O R H
0125500 O S T ( S E T Q H O S T (
0125520 006 002 i f 006 001 V A L \r
0125540
*
0125600 006 002 t
0125620 h e n 006 001 ( S E L C H A R Q
0125640 ( C H C O N 1 V A L ) \r
0125660
*
0125740 ( ( { % [
0125760 % ( ) \r
0126000
*
0126060 ( S U B S T R I N G
0126100 V A L 2 \r
0126120
*
0126200 (
0126220 S E L C H A R Q ( N T H C H A
0126240 R C O D E V A L - 1 \r
0126260
*
0126400 ) \r
0126420
*
0126520 ( ( } % ] % ) )
0126540 \r
0126560
*
0126660 - 2 ) \r
0126700
*
0127000 - 1 ) ) ) \r
0127020
*
0127100 V A L ) \r
0127120
*
0127160 006 002 e l s
0127200 e 006 001 B L I P ) ) ) ) \r
0127220
0127240 ( D I R E C T O R Y
0127260
0127300 006 006 ( * D
0127320 I R E C T O R Y r e a l l y
0127340 i s t r e a t e d a s \r 006
0127360 001
0127400
*
0127440 006 006
0127460 { H o s t } d e v i c e % : < d
0127500 i r e c t o r y > ) 006 001 \r
0127520
0127540 [ 006 002 f
0127560 o r 006 001 X 006 002 o n 006 001 ( U
0127600 N P A C K F I L E N A M E . S T
0127620 R I N G V A L ) 006 002 b y 006 001
0127640 ( C D D R X ) \r
0127660
0127700 006 002 d o
0127720 006 001 ( C O N D \r
0127740
*
0130000 [ ( E Q ( C A R X ) \r
0130020
*
0130060 ' N A M E
0130100 ) \r
0130120
0130140 ( O R (
0130160 E V A L V ' D I R E C T O R Y
0130200 ) \r
0130220
0130240 (
0130260 S E T Q D I R E C T O R Y (
0130300 O R ( C A D R X ) \r
0130320
*
0130400 B L I
0130420 P ] \r
0130440
0130460 ( T ( O
0130500 R ( E V A L V ( C A R X )
0130520 ) \r
0130540
*
0130600 ( S E T ( C A R X ) \r
0130620
*
0130700 ( O R ( C A D R X ) \r
0130720
*
0131000 B L I P ] ) \r
0131020
0131040 ( ( D E V I C E H O S T
0131060 N A M E E X T E N S I O N V
0131100 E R S I O N ) \r
0131120
0131140 ( O R ( E V A L V V A R
0131160 ) \r
0131200 (
0131220 S E T V A R ( O R V A L
0131240 B L I P ) ) ) ) \r
0131260 ( \ I
0131300 L L E G A L . A R G V A R ) )
0131320 \r
0131340 ( S E T Q I ( A D D 1 I
0131360 ) ) \r
0131400 ( G O L P ) ) ) \r
0131420 ( R E T U R N
0131440 ( C O N C A T L I S T \r
0131460
0131500 ( N C O N C ( A N D H O
0131520 S T ( N E Q H O S T B L I
0131540 P ) \r
0131560
0131600 ( L I S T " { " H O
0131620 S T " } " ) ) \r
0131640
0131660 ( A N D D E V I C E
0131700 ( N E Q D E V I C E B L I
0131720 P ) \r
0131740
0131760 ( L I S T " / " D E
0132000 V I C E ) ) \r
0132020
0132040 ( A N D D I R E C T O R
0132060 Y ( N E Q D I R E C T O R Y
0132100 B L I P ) \r
0132120
0132140 ( P R O G N (
0132160 S E T Q D I R E C T O R Y (
0132200 C O N C A T D I R E C T O R Y
0132220 ) ) \r
0132240
0132260 [ 006 002 f o
0132300 r 006 001 C 006 002 f r o m 006 001 1
0132320 006 002 t o 006 001 ( N C H A R S
0132340 D I R E C T O R Y ) \r
0132360
*
0132420 006 002 d o 006 001 ( C O
0132440 N D \r
0132460
*
0132520 ( [ F M E M B ( N T H
0132540 C H A R C O D E D I R E C T O
0132560 R Y C ) \r
0132600
*
0132640 (
0132660 C O N S T A N T ( L I S T (
0132700 C H A R C O D E > ) \r
0132720
*
0133020 ( C H A R C O D E %
0133040 . ] \r
0133060
*
0133120 ( R P L C H A R C O D
0133140 E D I R E C T O R Y C ( C
0133160 H A R C O D E / ] \r
0133200
*
0133240 ( L I S T " / " D I R
0133260 E C T O R Y " / " ) ) \r
0133300
0133320 ( L
0133340 I S T " / " D I R E C T O R
0133360 Y " / " ) ) \r
0133400
0133420 ( A N D N A M E ( N
0133440 E Q N A M E B L I P ) \r
0133460
0133500 (
0133520 L I S T N A M E ) ) \r
0133540
0133560 ( A N D ( O R
0133600 ( A N D E X T E N S I O N
0133620 ( N E Q E X T E N S I O N B
0133640 L I P ) ) \r
0133660
0133700 ( A N D
0133720 V E R S I O N ( N E Q V E R
0133740 S I O N B L I P ) ) ) \r
0133760
0134000 ( L
0134020 I S T ( C O N D \r
0134040
*
0134100 ( ( O R ( A N D E X
0134120 T E N S I O N ( E Q ( C H C
0134140 O N 1 E X T E N S I O N ) \r
0134160
*
0134260 ( C H A R C O D E % . ) ) )
0134300 \r
0134320
*
0134360 ( O R ( N U L L E X T E N S
0134400 I O N ) \r
0134420
*
0134460 ( E Q E X T E
0134500 N S I O N B L I P ) \r
0134520
*
0134560 (
0134600 S T R E Q U A L E X T E N S I
0134620 O N " " ) ) ) \r
0134640
*
0134700 B L I P ) \r
0134720
*
0134760 ( T ' % . ) ) \r
0135000
*
0135040 ( O R E X T E N S I O
0135060 N B L I P ] ) \r \r ( 006 004 \ R E
0135100 P A C K F I L E N A M E . N E W
0135120 . T R A N S L A T I O N 006 001 \r
0135140 [ L A M B D A ( O S T Y P E
0135160 F U N C T I O N ) \r (
0135200 006 002 D E C L A R E 006 001 ( G L O
0135220 B A L V A R S \ R E P A C K F
0135240 I L E N A M E . O S T Y P E . T
0135260 A B L E ) ) 006 006 006 001
0135300 006 006 ( * e j s % : " 2 7 - A
0135320 p r - 8 5 1 3 : 3 6 " ) 006 001 \r
0135340 ( P U T H A S H O S T
0135360 Y P E F U N C T I O N \ R E
0135400 P A C K F I L E N A M E . O S T
0135420 Y P E . T A B L E ] ) \r \r ( 006 004
0135440 \ R E P A C K F I L E N A M E .
0135460 N E W . T R A N S L A T I O N S
0135500 006 001 \r [ N L A M B D A N A
0135520 M E S 006 006 006 001
0135540
*
0135600 006 006 ( * e j s % : "
0135620 2 7 - A p r - 8 5 1 3 : 3 6 "
0135640 ) 006 001 \r \r
0135660 006 006 ( * *
0135700 S u p p l y a p r o p e r t
0135720 y - l i s t f o r m a t a r
0135740 g u m e n t o f o s t y p e
0135760 s a n d t r a n s l a t i n
0136000 g \r 006 001 006
0136020 006 f u n c t i o n s t o b e
0136040 a d d e d t o o s t y p e
0136060 t a b l e ) 006 001 \r \r (
0136100 006 002 f o r 006 001 T A I L 006 002 o
0136120 n 006 001 N A M E S 006 002 b y 006 001
0136140 ( C D D R T A I L ) 006 002 d
0136160 o 006 001 ( 006 002 f o r 006 001 O S T
0136200 Y P E 006 002 i n s i d e 006 001 (
0136220 C A R T A I L ) \r
0136240
*
0136300 006 002 d o 006 001 ( 006 002
0136320 \ R E P A C K F I L E N A M E .
0136340 N E W . T R A N S L A T I O N 006
0136360 001 O S T Y P E ( C A D R T
0136400 A I L ] ) \r ) \r \r ( R P A Q ?
0136420 006 002 \ R E P A C K F I L E N A M
0136440 E . O S T Y P E . T A B L E 006 001
0136460 ( H A S H A R R A Y 3 0 1
0136500 . 1 ) ) \r ( D E C L A R E % :
0136520 D O E V A L @ C O M P I L E D
0136540 O N T C O P Y \r \r ( G L O B A L
0136560 V A R S \ R E P A C K F I L E
0136600 N A M E . O S T Y P E . T A B L
0136620 E ) \r ) \r ( \ R E P A C K F I L
0136640 E N A M E . N E W . T R A N S L
0136660 A T I O N S ( I N T E R L I S
0136700 P I F S ) \r R E
0136720 P A C K F I L E N A M E . S T R
0136740 I N G . D \r ( T O
0136760 P S - 2 0 T O P S 2 0 ) \r
0137000 R E P A C K F I L E N
0137020 A M E . S T R I N G . T O P S 2
0137040 0 \r ( S Y M B O L
0137060 I C S - 3 6 0 0 L I S P M ) \r
0137100 R E P A C K F I L
0137120 E N A M E . S T R I N G . 3 6 0
0137140 0 V M S R E P A C K F I L E
0137160 N A M E . S T R I N G . V M S
0137200 U N I X R E P A C K F I L E N
0137220 A M E . S T R I N G . U N I X
0137240 \r M S - D O S R
0137260 E P A C K F I L E N A M E . S T
0137300 R I N G . M S D O S ) \r ( D E C
0137320 L A R E % : D O N T E V A L @
0137340 L O A D D O E V A L @ C O M P
0137360 I L E D O N T C O P Y C O M
0137400 P I L E R V A R S \r \r ( A D D
0137420 T O V A R 006 002 N L A M A 006 001
0137440 \ R E P A C K F I L E N A M E .
0137460 N E W . T R A N S L A T I O N S
0137500 ) \r \r ( A D D T O V A R 006 002 N
0137520 L A M L 006 001 ) \r \r ( A D D T O
0137540 V A R 006 002 L A M A 006 001 R E P
0137560 A C K F I L E N A M E . S T R I
0137600 N G . U N I X R E P A C K F I
0137620 L E N A M E . S T R I N G . T O
0137640 P S 2 0 R E P A C K F I L E N
0137660 A M E . S T R I N G . 3 6 0 0
0137700 \r
0137720 R E P A C K F I L E
0137740 N A M E . S T R I N G . V M S
0137760 R E P A C K F I L E N A M E . S
0140000 T R I N G . T I R E P A C K F
0140020 I L E N A M E . S T R I N G . M
0140040 S D O S \r
0140060 R E P A C
0140100 K F I L E N A M E . S T R I N G
0140120 . D ) \r ) \r ( P U T P R O P S
0140140 T C P N A M E S C O P Y R I G
0140160 H T ( " X e r o x C o r p o
0140200 r a t i o n " 1 9 8 5 1 9 8
0140220 7 ) ) \r ( D E C L A R E % : D
0140240 O N T C O P Y \r ( F I L E M
0140260 A P ( N I L ( 1 9 2 7 4 8
0140300 3 9 8 ( R E P A C K F I L E N
0140320 A M E . S T R I N G 1 9 3 7
0140340 . 2 3 6 2 ) ( R E P A C K F
0140360 I L E N A M E . S T R I N G . D
0140400 2 3 6 4 . 8 7 9 7 ) ( \r
0140420 R E P A C K F I L E N A M E . S
0140440 T R I N G . M S D O S 8 7 9 9
0140460 . 1 4 8 2 2 ) ( R E P A C
0140500 K F I L E N A M E . S T R I N G
0140520 . T I 1 4 8 2 4 . 2 1 4 6
0140540 4 ) ( \r R E P A C K F I L E N
0140560 A M E . S T R I N G . V M S 2
0140600 1 4 6 6 . 2 7 8 9 2 ) ( R
0140620 E P A C K F I L E N A M E . S T
0140640 R I N G . 3 6 0 0 2 7 8 9 4
0140660 . 3 4 6 2 7 ) ( \r R E P A C
0140700 K F I L E N A M E . S T R I N G
0140720 . T O P S 2 0 3 4 6 2 9 .
0140740 4 1 7 4 3 ) ( R E P A C K F I
0140760 L E N A M E . S T R I N G . U N
0141000 I X 4 1 7 4 5 . 4 7 6 7 9
0141020 ) ( \r \ R E P A C K F I L E N
0141040 A M E . N E W . T R A N S L A T
0141060 I O N 4 7 6 8 1 . 4 7 9 0
0141100 6 ) ( \ R E P A C K F I L E N
0141120 A M E . N E W . T R A N S L A T
0141140 I O N S 4 7 9 0 8 . 4 8 3
0141160 9 6 ) ) ) ) ) \r S T O P \r
0141175