$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TCPCONFIG!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 - A p r - 8
0000140 7 1 2 : 4 0 : 3 7 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > T C P C O N F I G .
0000220 ; 1 4 006 001 3 6 3 5 9 \r \r
0000240 c h a n g e s t o %
0000260 : ( F N S T C P C O N F .
0000300 G E T . L O C A L . A D D R E S
0000320 S E S T C P C O N F . G E T .
0000340 L O C A L . M A S K S ) \r \r
0000360 p r e v i o u s d a t
0000400 e % : " 8 - J a n - 8 7 1
0000420 6 : 3 6 : 2 7 " { E R I S } <
0000440 L I S P C O R E > L I B R A R Y
0000460 > T C P C O N F I G . ; 1 2 ) \r
0000500 \r \r ( * " \r C o p y r i g h t
0000520 ( c ) 1 9 8 5 , 1 9 8 6 ,
0000540 1 9 8 7 b y X e r o x C
0000560 o r p o r a t i o n . A l l
0000600 r i g h t s r e s e r v e d
0000620 . \r " ) \r \r ( P R E T T Y C O M
0000640 P R I N T T C P C O N F I G C
0000660 O M S ) \r \r ( R P A Q Q 006 002 T
0000700 C P C O N F I G C O M S 006 001 (
0000720 ( C O M S ( * T C P c o n
0000740 f i g u r a t i o n m o d u l
0000760 e ) \r
0001000 (
0001020 E X P O R T ( R E C O R D S
0001040 I P I N I T ) ) \r
0001060
0001100 ( I N I T V A R S (
0001120 \ I P . D E F A U L T . C O N F
0001140 I G U R A T I O N ( c r e a t
0001160 e I P I N I T ) ) ) \r
0001200
0001220 ( F N S T C P
0001240 . C O N F I G U R E T C P . C
0001260 O N F I G U R E . W I N D O W
0001300 T C P C O N F . D I A L O G U E
0001320 \r
0001340
0001360 T C P C O N F . G E T . D
0001400 O M A I N . S E R V E R S T C
0001420 P C O N F . G E T . L O C A L .
0001440 A D D R E S S E S \r
0001460
0001500 T C P C
0001520 O N F . G E T . L O C A L . M A
0001540 S K S T C P C O N F . P R I N
0001560 T . C O N F I G U R A T I O N
0001600 \ I P N E T A D D R E S S \r
0001620
*
0001660 \ I P . R E A D . S T R I N G .
0001700 A D D R E S S T C P C O N F .
0001720 G E T . L O C A L . N E T W O R
0001740 K S \r
0001760
0002000 T C P C O N F . S E T
0002020 . P R O P E R T Y T C P C O N
0002040 F . T I T L E C O M M A N D F N
0002060 ) ) ) ) \r \r \r \r 006 004 ( * T C P
0002100 c o n f i g u r a t i o n m
0002120 o d u l e ) 006 001 \r \r ( * " F O
0002140 L L O W I N G D E F I N I T I
0002160 O N S E X P O R T E D " ) \r \r
0002200 ( D E C L A R E % : E V A L @
0002220 C O M P I L E \r \r ( R E C O R D
0002240 006 002 I P I N I T 006 001 ( L O C
0002260 A L . A D D R E S S E S L O C
0002300 A L . N E T W O R K S D E F A
0002320 U L T . G A T E W A Y H T E .
0002340 F I L E H O S T N A M E S U
0002360 B N E T M A S K \r
0002400
0002420 D O M A I N . S E R V E R S L
0002440 O C A L . D O M A I N ) ) \r ) \r
0002460 \r ( * " E N D E X P O R T E
0002500 D D E F I N I T I O N S " ) \r
0002520 \r \r ( R P A Q ? 006 002 \ I P . D
0002540 E F A U L T . C O N F I G U R A
0002560 T I O N 006 001 ( c r e a t e I
0002600 P I N I T ) ) \r ( D E F I N E Q
0002620 \r \r ( 006 004 T C P . C O N F I G U
0002640 R E 006 001 \r [ L A M B D A N
0002660 I L 006 006 006 001
0002700
*
0002740 006 006 ( * e j s % :
0002760 " 1 0 - A u g - 8 5 1 3 : 0
0003000 8 " ) 006 001 \r
0003020 \r 006 006 ( *
0003040 * C r e a t e s a n i n s
0003060 p e c t w i n d o w t o h
0003100 o l d a c o n f i g u r a t
0003120 i o n d i a l o g u e w i t
0003140 h t h e u s e r ) 006 001 \r \r
0003160 ( 006 002 D E C L A R E 006 001
0003200 ( G L O B A L V A R S \ I P .
0003220 D E F A U L T . C O N F I G U R
0003240 A T I O N ) ) \r [ C O N
0003260 D \r ( ( I N F I L
0003300 E P ' { D S K } I P . I N I T
0003320 ) \r ( L E T [
0003340 ( S T R E A M ( O P E N S T R
0003360 E A M ' { D S K } I P . I N I
0003400 T ' I N P U T ' O L D ) ) \r
0003420 ( P
0003440 R O P E R L E N G T H ( L E N
0003460 G T H ( 006 002 c r e a t e 006 001
0003500 I P I N I T ] \r
0003520 ( S E T Q \ I P . D
0003540 E F A U L T . C O N F I G U R A
0003560 T I O N ( R E A D S T R E A
0003600 M ) ) \r
0003620 ( C L O S E F S T R E A M )
0003640 \r ( 006
0003660 002 u n t i l 006 001 ( E Q L E N G
0003700 T H \ I P . D E F A U L T . C
0003720 O N F I G U R A T I O N P R O
0003740 P E R L E N G T H ) 006 002 d o 006
0003760 001 ( S E T Q \r
0004000
*
0004100 \ I P . D E F A U L T . C
0004120 O N F I G U R A T I O N \r
0004140
*
0004240 ( N C O N C 1 \r
0004260
*
0004360 \ I P .
0004400 D E F A U L T . C O N F I G U R
0004420 A T I O N \r
0004440
*
0004540 N I L ] \r
0004560 ( C O N D \r ( (
0004600 006 002 T C P C O N F . D I A L O G
0004620 U E 006 001 ) \r ( L
0004640 E T [ ( S T R E A M ( O P E
0004660 N S T R E A M ' { D S K } I P
0004700 . I N I T ' O U T P U T ' N
0004720 E W ] \r
0004740 ( P R I N 2 \ I P . D E F A
0004760 U L T . C O N F I G U R A T I O
0005000 N S T R E A M ) \r
0005020 ( C L O S E F S
0005040 T R E A M ] ) \r \r ( 006 004 T C P .
0005060 C O N F I G U R E . W I N D O W
0005100 006 001 \r [ L A M B D A N I L
0005120 006 006 006 001
0005140
*
0005200 006 006 ( * M P L " 2
0005220 - J u n - 8 5 2 3 : 1 5 " ) 006
0005240 001 \r \r
0005260 006 006 ( * * C r
0005300 e a t e s a n i n s p e c t
0005320 w i n d o w t o h o l d
0005340 a c o n f i g u r a t i o n
0005360 d i a l o g u e w i t h t h
0005400 e u s e r ) 006 001 \r \r (
0005420 006 002 D E C L A R E 006 001 ( G L O
0005440 B A L V A R S \ I P . D E F A
0005460 U L T . C O N F I G U R A T I O
0005500 N ) ) \r ( L E T * ( (
0005520 H E I G H T ( H E I G H T I F
0005540 W I N D O W ( I T I M E S (
0005560 L E N G T H ( R E C O R D F I
0005600 E L D N A M E S ' I P I N I T
0005620 ) ) \r
0005640
0005660 ( F O
0005700 N T H E I G H T ( 006 002 f e t c
0005720 h 006 001 ( F O N T C L A S S D
0005740 I S P L A Y F D ) 006 002 o f 006 001
0005760 D E F A U L T F O N T ) ) ) \r
0006000
0006020 T ) ) \r
0006040 ( P O S ( G
0006060 E T B O X P O S I T I O N 6 0
0006100 0 H E I G H T ) ) \r
0006120 ( I N S P E C T W
0006140 ( C R E A T E W ( C R E A T E
0006160 R E G I O N ( 006 002 f e t c h 006
0006200 001 ( P O S I T I O N X C O O
0006220 R D ) 006 002 o f 006 001 P O S ) \r
0006240
*
0006300 ( 006 002 f e t c h 006 001
0006320 ( P O S I T I O N Y C O O R D
0006340 ) 006 002 o f 006 001 P O S ) \r
0006360
*
0006420 6 0 0 H E I G H T ) \r
0006440
0006460 " T C P /
0006500 I P C o n f i g u r a t i o n
0006520 W i n d o w " ) ) ) \r
0006540 ( I N S P E C T [
0006560 C O N D \r
0006600 ( ( A N D
0006620 ( B O U N D P ' \ I P . D E
0006640 F A U L T . C O N F I G U R A T
0006660 I O N ) \r
0006700
0006720 \ I P . D E F A U L T . C O N
0006740 F I G U R A T I O N ) ) \r
0006760
0007000 ( T ( S E T Q \ I P .
0007020 D E F A U L T . C O N F I G U R
0007040 A T I O N ( 006 002 c r e a t e 006
0007060 001 I P I N I T ] \r
0007100 ' I P I N
0007120 I T I N S P E C T W ) \r
0007140 ( W I N D O W P R
0007160 O P I N S P E C T W ' T I T
0007200 L E " T C P / I P C o n f i
0007220 g u r a t i o n W i n d o w "
0007240 ) \r ( 006 002 f
0007260 o r 006 001 I T E M 006 002 i n 006 001
0007300 ( W I N D O W P R O P I N S
0007320 P E C T W ' S E L E C T A B L
0007340 E I T E M S ) 006 002 b y 006 001 (
0007360 C D D R I T E M ) \r
0007400 006 002 d o 006 001 (
0007420 R P L A C A ( C D R I T E M
0007440 ) \r
0007460 ( F U N C T I
0007500 O N T C P C O N F . S E T . P
0007520 R O P E R T Y ) ) ) \r
0007540 ( 006 002 f o r 006 001 I T
0007560 E M 006 002 i n 006 001 ( C D R (
0007600 W I N D O W P R O P I N S P E
0007620 C T W ' S E L E C T A B L E I
0007640 T E M S ) ) 006 002 b y 006 001 ( C
0007660 D D R I T E M ) \r
0007700 006 002 d o 006 001 ( R
0007720 P L A C A ( C D R I T E M )
0007740 \r
0007760 ( F U N C T I O
0010000 N N I L L ) ) ) \r
0010020 ( W I N D O W P R O P
0010040 I N S P E C T W ' T I T L E C
0010060 O M M A N D F N ( F U N C T I
0010100 O N T C P C O N F . T I T L E
0010120 C O M M A N D F N ] ) \r \r ( 006 004
0010140 T C P C O N F . D I A L O G U E
0010160 006 001 \r [ L A M B D A N I L
0010200 006 006 006 001
0010220
*
0010260 006 006 ( * e j s % : "
0010300 1 4 - N o v - 8 6 1 4 : 0 6 "
0010320 ) 006 001 \r ( 006 002 b i n d 006
0010340 001 S A T I S F I E D ? C H A
0010360 N G E D F L G ( O L D C O N F
0010400 I G U R A T I O N _ ( C O P
0010420 Y A L L \ I P . D E F A U L T
0010440 . C O N F I G U R A T I O N ) )
0010460 006 002 r e p e a t u n t i l 006 001
0010500 \r
0010520
*
0010620 S A T I S F
0010640 I E D ? \r 006 002 d o
0010660 006 001 \r [ N L S E T
0010700 Q \r ( P R O G N
0010720 \r ( p r i n t
0010740 o u t T " H e r e i s t
0010760 h e c u r r e n t c o n f i
0011000 g u r a t i o n : " T ) \r
0011020 ( 006 002 T C P C O N
0011040 F . P R I N T . C O N F I G U R
0011060 A T I O N 006 001 ) \r
0011100 ( C O N D \r
0011120 [ ( E Q ( A S K U S E
0011140 R N I L N I L " A r e y
0011160 o u s a t i s f i e d w i t
0011200 h t h e c u r r e n t c o
0011220 n f i g u r a t i o n ? " ) \r
0011240
0011260 ' N ) \r
0011300 ( p r i n t o u t T . P
0011320 A R A 0 0 \r
0011340 ' ( I n
0011360 t h e f o l l o w i n g d
0011400 i a l o g u e , y o u w i l
0011420 l b e p r e s e n t e d w
0011440 i t h t h e c u r r e n t
0011460 v a l u e f o r a \r
0011500
0011520 c o n f i g u r a t
0011540 i o n p a r a m e t e r , 006
0011560 002 a n d 006 001 t h e n b e g
0011600 i v e n a c h a n c e t o
0011620 e n t e r a n e w v a l
0011640 u e . \r
0011660 S i
0011700 m p l y t y p e < C R > t
0011720 o d e f a u l t t o t h e
0011740 c u r r e n t v a l u e . )
0011760 T ) \r
0012000 ( 006 002 f o r 006 001 P R O P E R
0012020 T Y 006 002 i n 006 001 ' ( H O S T
0012040 N A M E H T E . F I L E D E
0012060 F A U L T . G A T E W A Y L O
0012100 C A L . N E T W O R K S L O C
0012120 A L . A D D R E S S E S \r
0012140
*
0012200 S U B N E T M A S K D
0012220 O M A I N . S E R V E R S L O
0012240 C A L . D O M A I N ) \r
0012260 006 002 d o
0012300 006 001 ( C O N D \r
0012320 (
0012340 ( L I S T P ( R E C O R D A C
0012360 C E S S P R O P E R T Y \ I
0012400 P . D E F A U L T . C O N F I G
0012420 U R A T I O N ( R E C L O O K
0012440 ' I P I N I T ) \r
0012460
0012500 '
0012520 F E T C H ) ) \r
0012540 (
0012560 p r i n t o u t T T P R O
0012600 P E R T Y 2 0 . P P V T L
0012620 ( R E C O R D A C C E S S P R
0012640 O P E R T Y \r
0012660
*
0012740 \ I P . D E F A U
0012760 L T . C O N F I G U R A T I O N
0013000 \r
0013020
*
0013100 ( R E C L O O K ' I P I N I T
0013120 ) \r
0013140
*
0013220 ' F E T C H ) \r
0013240
0013260 T ) ) \r
0013300
0013320 ( T ( p r i n t o u t T
0013340 T P R O P E R T Y 2 0 ( R
0013360 E C O R D A C C E S S P R O P
0013400 E R T Y \ I P . D E F A U L T
0013420 . C O N F I G U R A T I O N \r
0013440
*
0013520 ( R E C L O O
0013540 K ' I P I N I T ) \r
0013560
*
0013640 ' F E T C H ) \r
0013660
0013700 T ) )
0013720 ) \r
0013740 ( R E S E T L S T (
0013760 S E L E C T Q P R O P E R T Y
0014000 \r
0014020
0014040 ( H O S T N A M E [ L E T
0014060 [ ( N A M E ( M K A T O M
0014100 ( U - C A S E ( T T Y I N \r
0014120
*
0014220 " P l e a s e e n t e
0014240 r t h i s h o s t ' s n a
0014260 m e : " \r
0014300
*
0014400 N I L \r
0014420
*
0014500 " E n t
0014520 e r a n a m e t o c a l
0014540 l t h i s h o s t b y " \r
0014560
*
0014660 ' S
0014700 T R I N G ] \r
0014720
*
0014760 ( 006 002 r e p l a c
0015000 e 006 001 ( I P I N I T H O S T
0015020 N A M E ) 006 002 o f 006 001 \r
0015040
*
0015140 \ I P . D E
0015160 F A U L T . C O N F I G U R A T
0015200 I O N \r
0015220
*
0015260 006 002 w i t h 006 001
0015300 ( O R N A M E ( 006 002 f e t c
0015320 h 006 001 ( I P I N I T H O S T
0015340 N A M E ) \r
0015360
*
0015440 006 002 o f 006 001
0015460 \ I P . D E F A U L T . C O N
0015500 F I G U R A T I O N ] ) \r
0015520
0015540 ( H
0015560 T E . F I L E ( 006 002 r e p l a
0015600 c e 006 001 ( I P I N I T H T E
0015620 . F I L E ) 006 002 o f 006 001 \ I
0015640 P . D E F A U L T . C O N F I G
0015660 U R A T I O N \r
0015700
*
0015740 006 002 w i t h 006 001 (
0015760 O R ( T T Y I N \r " P l e
0016000 a s e e n t e r t h e n a
0016020 m e o f a H O S T S . T X
0016040 T f i l e . I f y o u
0016060 h a v e n o H O S T S . T X
0016100 T f i l e , t y p e a c
0016120 a r r i a g e r e t u r n . "
0016140 \r
0016160
*
0016240 N I L \r
0016260 " E n t e r t h e n a m
0016300 e o f a f i l e t o b
0016320 e u s e d i n t r a n s l
0016340 a t i n g I P h o s t n a
0016360 m e s t o I P h o s t a
0016400 d d r e s s e s . " \r
0016420
*
0016500 ' S T R I N G
0016520 ) \r
0016540
*
0016600 ( 006 002 f e t c
0016620 h 006 001 ( I P I N I T H T E .
0016640 F I L E ) 006 002 o f 006 001 \r
0016660
*
0016760 \ I P . D E
0017000 F A U L T . C O N F I G U R A T
0017020 I O N \r
0017040
*
0017120 ) ) ) ) \r
0017140
0017160 ( D E F A U L T
0017200 . G A T E W A Y \r
0017220
*
0017260 [ 006 002 b i n d 006 001 A D D R E S
0017300 S . S T R I N G D E F A U L T
0017320 . G A T E W A Y 006 002 u n t i l
0017340 006 001 D E F A U L T . G A T E W
0017360 A Y \r
0017400
0017420 006 002 d o
0017440 006 001 ( S E T Q A D D R E S S
0017460 . S T R I N G ( T T Y I N "
0017500 P l e a s e e n t e r t h e
0017520 I P a d d r e s s o f t
0017540 h e d e f a u l t g a t e w
0017560 a y f o r t h i s h o s t
0017600 . I f y o u h a v e n
0017620 o g a t e w a y , j u s t
0017640 t y p e a c a r r i a g e
0017660 r e t u r n : " \r
0017700
*
0020000 N I L \r
0020020
*
0020060 " E
0020100 n t e r a n I P a d d r e
0020120 s s , i n t h e f o r m
0020140 1 9 2 . 1 0 . 2 0 0 . 1 " \r
0020160
*
0020260 ' S T R I N G ) ) \r
0020300
*
0020340 [ C O N
0020360 D \r
0020400
*
0020440 ( ( N U L L A D D R E S S .
0020460 S T R I N G ) \r
0020500
*
0020540 ( S E T Q D E
0020560 F A U L T . G A T E W A Y N I
0020600 L ) \r
0020620
*
0020660 ( G O $ $ O U T ) ) \r
0020700
*
0020740 ( T
0020760 ( S E T Q D E F A U L T . G
0021000 A T E W A Y ( 006 002 \ I P . R E
0021020 A D . S T R I N G . A D D R E S
0021040 S 006 001 \r
0021060
*
0021140 A D D
0021160 R E S S . S T R I N G ] \r
0021200
*
0021240 006 002 f i n a l l y 006
0021260 001 ( 006 002 r e p l a c e 006 001 (
0021300 I P I N I T D E F A U L T . G
0021320 A T E W A Y ) 006 002 o f 006 001 \r
0021340
*
0021440 \ I P .
0021460 D E F A U L T . C O N F I G U R
0021500 A T I O N \r
0021520
*
0021560 006 002 w i t h
0021600 006 001 ( O R A D D R E S S . S
0021620 T R I N G ( 006 002 f e t c h 006 001
0021640 ( I P I N I T \r
0021660
*
0022000 D E F A U L T . G A T E W A Y \r
0022020
*
0022140 ) \r
0022160
*
0022260 006 002 o f 006
0022300 001 \r
0022320
*
0022400 \
0022420 I P . D E F A U L T . C O N F I
0022440 G U R A T I O N \r
0022460
*
0022560 ] ) \r
0022600
*
0022640 ( L O C A L . N E T W O R K S
0022660 \r
0022700
0022720 [ L E T ( ( L O
0022740 C A L . N E T W O R K S ( 006 002
0022760 T C P C O N F . G E T . L O C A
0023000 L . N E T W O R K S 006 001 ) ) ) \r
0023020
*
0023060 ( C O N D
0023100 \r
0023120
0023140 (
0023160 L O C A L . N E T W O R K S (
0023200 006 002 r e p l a c e 006 001 ( I P I
0023220 N I T L O C A L . N E T W O R
0023240 K S ) \r
0023260
*
0023340 006 002 o f 006 001 \ I P .
0023360 D E F A U L T . C O N F I G U R
0023400 A T I O N \r
0023420
*
0023500 006 002 w i t h 006 001
0023520 ( O R L O C A L . N E T W O R
0023540 K S \r
0023560
*
0023640 ( 006 002
0023660 f e t c h 006 001 ( I P I N I T
0023700 \r
0023720
*
0024020 L O C A L . N E
0024040 T W O R K S \r
0024060
*
0024160 )
0024200 \r
0024220
*
0024300 006 002
0024320 o f 006 001 \r
0024340
*
0024440 \ I P . D E F A U L T . C O
0024460 N F I G U R A T I O N \r
0024500
*
0024600 ] ) \r
0024620
*
0024660 ( L O C A L . A D D R E S S E
0024700 S 006 006 (
0024720 * H a v e t o h a v e a
0024740 s k e d f o r \r 006 001
0024760
*
0025040 006 006 l o c a l
0025060 . n e t w o r k s b e f o r e
0025100 t h i s q u e s t i o n ) 006
0025120 001 \r
0025140
0025160 [ L E T ( ( L
0025200 O C A L . A D D R E S S E S (
0025220 006 002 T C P C O N F . G E T . L O
0025240 C A L . A D D R E S S E S 006 001 )
0025260 ) ) \r
0025300
0025320 ( C
0025340 O N D \r
0025360
*
0025420 ( L O C A L . A D D R E S S
0025440 E S ( 006 002 r e p l a c e 006 001
0025460 ( I P I N I T L O C A L . A D
0025500 D R E S S E S ) \r
0025520
*
0025600 006 002 o f 006
0025620 001 \ I P . D E F A U L T . C O
0025640 N F I G U R A T I O N \r
0025660
*
0025740 006 002
0025760 w i t h 006 001 ( O R L O C A L
0026000 . A D D R E S S E S \r
0026020
*
0026120 ( 006 002 f e t c h 006 001
0026140 ( I P I N I T \r
0026160
*
0026300 L O C A L . A D D R E S S E S \r
0026320
*
0026440 ) \r
0026460
*
0026560 006 002 o f 006 001
0026600 \r
0026620
*
0026700 \ I P
0026720 . D E F A U L T . C O N F I G U
0026740 R A T I O N \r
0026760
*
0027060 ] ) \r
0027100
0027120 ( S U
0027140 B N E T M A S K
0027160 006 006 ( * H a
0027200 v e t o h a v e a s k e d
0027220 f o r \r 006 001
0027240
*
0027320 006 006 l o c a l . n e t
0027340 w o r k s b e f o r e t h i
0027360 s q u e s t i o n ) 006 001 \r
0027400
*
0027440 [ L E T
0027460 ( ( L O C A L . M A S K S ( 006
0027500 002 T C P C O N F . G E T . L O C
0027520 A L . M A S K S 006 001 ) ) ) \r
0027540
*
0027620 ( C O N D \r
0027640
*
0027700 ( L O C A
0027720 L . M A S K S ( 006 002 r e p l a
0027740 c e 006 001 ( I P I N I T S U B
0027760 N E T M A S K ) \r
0030000
*
0030060 006 002
0030100 o f 006 001 \ I P . D E F A U L T
0030120 . C O N F I G U R A T I O N \r
0030140
*
0030240 006 002 w i t h 006 001 ( O R
0030260 L O C A L . M A S K S \r
0030300
*
0030400 ( 006 002 f e
0030420 t c h 006 001 ( I P I N I T \r
0030440
*
0030560 S U B N E T
0030600 M A S K \r
0030620
*
0030740 ) \r
0030760
*
0031060 006 002 o f 006 001 \r
0031100
*
0031200 \ I P . D E F A
0031220 U L T . C O N F I G U R A T I O
0031240 N \r
0031260
*
0031360 ] ) \r
0031400
0031420 ( D O M A
0031440 I N . S E R V E R S \r
0031460
*
0031520 [ L E T ( ( D O M A I N .
0031540 S E R V E R S ( 006 002 T C P C O
0031560 N F . G E T . D O M A I N . S E
0031600 R V E R S 006 001 ) ) ) \r
0031620
*
0031660 ( C O N D \r
0031700
*
0031740 ( D O M A I
0031760 N . S E R V E R S ( 006 002 r e p
0032000 l a c e 006 001 ( I P I N I T D
0032020 O M A I N . S E R V E R S ) \r
0032040
*
0032140 006 002 o f 006 001 \ I P . D E F A U
0032160 L T . C O N F I G U R A T I O N
0032200 \r
0032220
*
0032300 006 002 w i t h 006 001 ( O R D
0032320 O M A I N . S E R V E R S \r
0032340
*
0032440 ( 006 002 f e t c h
0032460 006 001 ( I P I N I T \r
0032500
*
0032620 D O M A I N . S E R V E R
0032640 S \r
0032660
*
0032760 ) \r
0033000
*
0033100 006 002 o f 006 001
0033120 \r
0033140
*
0033220 \ I P
0033240 . D E F A U L T . C O N F I G U
0033260 R A T I O N \r
0033300
*
0033400 ] ) \r
0033420
0033440 ( L O C
0033460 A L . D O M A I N [ L E T [
0033500 ( N A M E ( M K A T O M ( U
0033520 - C A S E ( T T Y I N \r
0033540
*
0033600 " P l e a
0033620 s e e n t e r t h i s h o
0033640 s t ' s l o c a l d o m a i
0033660 n ( < C R > i f n o n e )
0033700 : " \r
0033720
*
0034020 N I L \r
0034040
0034060 " E
0034100 n t e r t h e n a m e o f
0034120 t h e i n t e r n e t d o
0034140 m a i n i n w h i c h t h
0034160 i s h o s t r e s i d e s .
0034200 " \r
0034220
*
0034320 ' S T R I N G ] \r
0034340
*
0034420 ( 006 002 r e p l a c e 006 001 ( I
0034440 P I N I T L O C A L . D O M A
0034460 I N ) 006 002 o f 006 001 \r
0034500
*
0034600 \ I P . D E F A
0034620 U L T . C O N F I G U R A T I O
0034640 N \r
0034660
*
0034720 006 002 w i t h 006
0034740 001 ( O R N A M E ( 006 002 f e
0034760 t c h 006 001 ( I P I N I T L O
0035000 C A L . D O M A I N ) \r
0035020
*
0035120 006 002 o f 006 001 \ I P . D
0035140 E F A U L T . C O N F I G U R A
0035160 T I O N ] ) \r
0035200
0035220 N I L ] \r
0035240 ( T ( S E T
0035260 Q S A T I S F I E D ? T ]
0035300 006 002 f i n a l l y 006 001 ( R E T
0035320 U R N ( N O T ( E Q U A L
0035340 O L D C O N F I G U R A T I O N
0035360 \r
0035400
*
0035460 \ I P . D E F A U L T . C O N
0035500 F I G U R A T I O N ] ) \r \r ( 006
0035520 004 T C P C O N F . G E T . D O M
0035540 A I N . S E R V E R S 006 001 \r
0035560 [ L A M B D A N I L 006 006 006 001
0035600
*
0035640 006
0035660 006 ( * e j s % : " 5 - N o
0035700 v - 8 6 1 3 : 0 1 " ) 006 001 \r
0035720 \r
0035740 006 006 ( * * R e t u r
0035760 n a l i s t o f d o m a
0036000 i n s e r v e r a d d r e s
0036020 s e s f o r t h i s h o s
0036040 t ) 006 001 \r \r ( 006 002 b i n
0036060 d 006 001 L I S T A D D R E S S
0036100 E S 006 002 u n t i l 006 001 A D D
0036120 R E S S E S \r 006 002
0036140 d o 006 001 ( S E T Q L I S T
0036160 ( T T Y I N " P l e a s e e
0036200 n t e r t h e a d d r e s s
0036220 e s o f t h e l o c a l
0036240 d o m a i n s e r v e r s f
0036260 o r t h i s h o s t , s e
0036300 p a r a t e d b y s p a c e
0036320 s . I f y o u h a v e
0036340 n o d o m a i n s e r v e r
0036360 s , t y p e N O N E : "
0036400 \r
0036420 N I L
0036440 \r
0036460 " E n t e
0036500 r a l i s t o f I P a
0036520 d d r e s s e s , i n t h e
0036540 f o r m 3 6 . 4 7 . 0 . 4 5
0036560 , s e p a r a t e d b y s
0036600 p a c e s . " \r
0036620
0036640 ) ) \r
0036660 [ C O N D \r
0036700 ( ( A N D L I S T (
0036720 E Q ( C A R L I S T ) \r
0036740
0036760 ' N O N E )
0037000 ) \r
0037020 ( R E T U R N N I L ) ) \r
0037040 [ ( A N D
0037060 L I S T ( S E T Q A D D R
0037100 E S S E S ( C A R ( N L S E
0037120 T Q ( 006 002 f o r 006 001 A D D R
0037140 E S S 006 002 i n 006 001 L I S T
0037160 006 002 c o l l e c t 006 001 ( 006 002 \r
0037200 006 001
0037220
*
0037320 006 002 \ I P . R E A D . S T R I N
0037340 G . A D D R E S S 006 001 \r
0037360
*
0037460 A
0037500 D D R E S S ] \r
0037520 ( ( N U L L L I S T
0037540 ) \r
0037560 ( S E T Q L I S T ( 006 002 f e
0037600 t c h 006 001 ( I P I N I T D O
0037620 M A I N . S E R V E R S ) 006 002
0037640 o f 006 001 \ I P . D E F A U L T
0037660 . C O N F I G U R A T I O N ) )
0037700 \r (
0037720 S E T Q A D D R E S S E S (
0037740 006 002 f o r 006 001 A D D R E S S
0037760 006 002 i n 006 001 L I S T 006 002 c o
0040000 l l e c t 006 001 ( 006 002 \ I P . R
0040020 E A D . S T R I N G . A D D R E
0040040 S S 006 001 A D D R E S S ] \r
0040060 006 002 f i n a l l y 006 001
0040100 ( R E T U R N L I S T ] ) \r
0040120 \r ( 006 004 T C P C O N F . G E T .
0040140 L O C A L . A D D R E S S E S 006
0040160 001 \r [ L A M B D A N I L 006
0040200 006 006 001
0040220
*
0040260 006 006 ( * ; " E d i t e
0040300 d 2 - A p r - 8 7 1 2 : 4
0040320 0 b y F S " ) 006 001 \r
0040340 \r
0040360 006 006 ( * ; ; " R e t u r n
0040400 t h e l o c a l n e t w o
0040420 r k l i s t f o r t h i s
0040440 h o s t . T h e l i s t
0040460 i s a n a l i s t k e y
0040500 e d b y n e t w o r k a d
0040520 d r e s s , a n d c o n t a
0040540 i n i n g o t h e r w i s e
0040560 t h e a t o m 1 0 o r 3
0040600 i n d i c a t i n g t h e
0040620 k i n d o f n e t w o r k "
0040640 ) 006 001 \r \r ( L E T ( (
0040660 A D D R E S S E S ( 006 002 f e t
0040700 c h 006 001 ( I P I N I T L O C
0040720 A L . A D D R E S S E S ) 006 002
0040740 o f 006 001 \ I P . D E F A U L T
0040760 . C O N F I G U R A T I O N ) )
0041000 \r ( I P A d
0041020 d r e s s H e l p M s g " E n
0041040 t e r a n I P a d d r e s
0041060 s . L e a v e t h e h o
0041100 s t n u m b e r p o r t i o
0041120 n o f t h e a d d r e s s
0041140 0 . " ) \r
0041160 ( I P A d d r e s s E r r o r M
0041200 s g \r
0041220 " T h e n e t w o r
0041240 k a d d r e s s y o u h a
0041260 v e e n t e r e d i s i n
0041300 a n i n c o r r e c t f o
0041320 r m . P l e a s e t r y
0041340 a g a i n . " ) ) \r
0041360 ( L E T [ [ 1 0 M B A D
0041400 D R E S S ( C O N D \r
0041420
0041440 ( \ 1 0 M
0041460 B L O C A L N D B ( 006 002 b i n
0041500 d 006 001 S T R I N G A D D R E
0041520 S S 006 002 u n t i l 006 001 A D D
0041540 R E S S \r
0041560
*
0041620 006 002 d o 006 001 ( S E
0041640 T Q S T R I N G ( T T Y I N
0041660 \r
0041700 " P l e a s e e n
0041720 t e r t h i s h o s t ' s
0041740 I P a d d r e s s o n t h
0041760 e 1 0 M B n e t w o r k ,
0042000 i n t h e f o r m 3 6 . 9
0042020 . 0 . 9 : " \r
0042040
*
0042140 N I L I P A d d r e s s H e
0042160 l p M s g \r
0042200
*
0042260 ' S
0042300 T R I N G ) ) \r
0042320
*
0042360 [ C O N
0042400 D \r
0042420
*
0042460 ( ( A N D S
0042500 T R I N G ( S E T Q A D D R
0042520 E S S ( 006 002 \r 006 001
0042540
*
0042640 006 002 \ I P . R E
0042660 A D . S T R I N G . A D D R E S
0042700 S 006 001 \r
0042720
*
0043020 S T R I N G ) ) \r
0043040
*
0043120 ( Z E
0043140 R O P ( 006 002 \ I P N E T A D D
0043160 R E S S 006 001 A D D R E S S ) )
0043200 ) \r
0043220
*
0043260 ( S E T Q
0043300 A D D R E S S N I L ) \r
0043320
*
0043400 ( p r i n t o u t T
0043420 I P A d d r e s s E r r o r M
0043440 s g T ) ) \r
0043460
*
0043520 ( (
0043540 N U L L S T R I N G ) \r
0043560
*
0043640 ( S E T Q S T R I N
0043660 G ( 006 002 p o p 006 001 A D D R E
0043700 S S E S ) ) \r
0043720
*
0043760 (
0044000 S E T Q A D D R E S S ( 006 002
0044020 \ I P . R E A D . S T R I N G .
0044040 A D D R E S S 006 001 S T R I N G
0044060 \r
0044100
*
0044160 ] \r
0044200
*
0044260 006 002 f i n a l l y 006 001 ( R E
0044300 T U R N ( L I S T S T R I N
0044320 G ] \r
0044340 ( 3 M B A D D R E S S ( C
0044360 O N D \r
0044400
0044420 ( \ 3 M B L O C A L N D B
0044440 ( 006 002 b i n d 006 001 S T R I N G
0044460 A D D R E S S 006 002 u n t i l
0044500 006 001 A D D R E S S \r
0044520
*
0044560 006 002 d o 006 001
0044600 ( S E T Q S T R I N G ( T
0044620 T Y I N \r
0044640 " P l e a
0044660 s e e n t e r t h i s h o
0044700 s t ' s I P a d d r e s s
0044720 o n t h e 3 M B n e t w o
0044740 r k , i n t h e f o r m
0044760 3 6 . 9 . 0 . 9 : " \r
0045000
*
0045100 N I L I P A d d r e s s
0045120 H e l p M s g \r
0045140
*
0045220 ' S
0045240 T R I N G ) ) \r
0045260
*
0045320 [ C O N D \r
0045340
*
0045420 ( ( A N D S T R I N
0045440 G ( S E T Q A D D R E S S
0045460 ( 006 002 \r 006 001
0045500
*
0045600 006 002 \ I P . R E A D . S
0045620 T R I N G . A D D R E S S 006 001 \r
0045640
*
0045760 S T R I N G ) ) \r
0046000
*
0046060 ( Z E R O P ( 006 002 \
0046100 I P N E T A D D R E S S 006 001 A
0046120 D D R E S S ) ) ) \r
0046140
*
0046220 ( S E T Q A D D R E S S N I
0046240 L ) \r
0046260
*
0046320 ( p r i n t o
0046340 u t T I P A d d r e s s E r
0046360 r o r M s g T ) ) \r
0046400
*
0046460 ( ( N U L L S T R I N G ) \r
0046500
*
0046560 ( S E T Q S T R I N
0046600 G ( 006 002 p o p 006 001 A D D R E
0046620 S S E S ) ) \r
0046640
*
0046700 ( S E
0046720 T Q A D D R E S S ( 006 002 \ I
0046740 P . R E A D . S T R I N G . A D
0046760 D R E S S 006 001 S T R I N G ] \r
0047000
*
0047040 006
0047060 002 f i n a l l y 006 001 ( R E T U
0047100 R N ( L I S T S T R I N G ]
0047120 \r (
0047140 A P P E N D 1 0 M B A D D R E
0047160 S S 3 M B A D D R E S S ] ) \r
0047200 \r ( 006 004 T C P C O N F . G E T .
0047220 L O C A L . M A S K S 006 001 \r
0047240 [ L A M B D A N I L 006 006 006 001
0047260
*
0047320 006
0047340 006 ( * ; " E d i t e d 1
0047360 - A p r - 8 7 1 8 : 2 9 b y
0047400 F S " ) 006 001 \r
0047420 \r 006 006 (
0047440 * ; ; " R e t u r n t h e
0047460 l o c a l n e t w o r k l
0047500 i s t f o r t h i s h o s
0047520 t . T h e l i s t i s
0047540 a n a l i s t k e y e d b
0047560 y n e t w o r k a d d r e s
0047600 s , a n d c o n t a i n i n
0047620 g o t h e r w i s e t h e
0047640 a t o m 1 0 o r 3 i n d
0047660 i c a t i n g t h e k i n d
0047700 o f n e t w o r k " ) 006 001 \r
0047720 \r ( L E T ( ( S U B N
0047740 E T M A S K ( 006 002 f e t c h 006
0047760 001 ( I P I N I T S U B N E T
0050000 M A S K ) 006 002 o f 006 001 \ I P
0050020 . D E F A U L T . C O N F I G U
0050040 R A T I O N ) ) \r
0050060 ( I P A d d r e s s H e l
0050100 p M s g " E n t e r a n I
0050120 P a d d r e s s . I f t
0050140 h e b i t w i s e - A N D o
0050160 f t h i s a d d r e s s a
0050200 n d a n y d e s t i n a t i
0050220 o n I P a d d r e s s i s
0050240 n o t e q u a l t o t h
0050260 e b i t w i s e - A N D o f
0050300 t h i s a d d r e s s a n
0050320 d t h e h o s t ' s l o c
0050340 a l I P a d d r e s s , t
0050360 h e d e s t i n a t i o n I
0050400 P a d d r e s s w i l l b
0050420 e c o n s i d e r e d t o
0050440 b e o n a n o t h e r ( s
0050460 u b ) n e t w o r k " \r
0050500 ) \r
0050520 ( I P A d d r
0050540 e s s E r r o r M s g \r
0050560 " T
0050600 h e n e t w o r k a d d r e
0050620 s s y o u h a v e e n t e
0050640 r e d i s i n a n i n c
0050660 o r r e c t f o r m . P l
0050700 e a s e t r y a g a i n . "
0050720 ) ) \r ( L E T
0050740 [ [ 1 0 M B A D D R E S S (
0050760 C O N D \r
0051000
0051020 ( \ 1 0 M B L O C A L N
0051040 D B ( 006 002 b i n d 006 001 S T R
0051060 I N G A D D R E S S 006 002 u n
0051100 t i l 006 001 A D D R E S S \r
0051120
*
0051160 006
0051200 002 d o 006 001 ( S E T Q S T R I
0051220 N G ( T T Y I N \r
0051240 " P l e a s e e n t
0051260 e r t h e s u b n e t a d
0051300 d r e s s m a s k f o r t
0051320 h i s h o s t ' s 1 0 M B
0051340 n e t w o r k , i n t h e
0051360 f o r m 3 9 . 9 . 0 . 0 : "
0051400 \r
0051420
*
0051500 N I L I P
0051520 A d d r e s s H e l p M s g \r
0051540
*
0051640 ' S T R I N G ) )
0051660 \r
0051700
*
0051740 [ C O N D \r
0051760
*
0052040 ( ( A N D S T R I N G (
0052060 S E T Q A D D R E S S ( 006 002
0052100 \r 006 001
0052120
*
0052220 006 002 \ I P . R E A D . S T R I
0052240 N G . A D D R E S S 006 001 \r
0052260
*
0052400 S T R I N G ) ) \r
0052420
*
0052500 ( Z E R O P ( 006 002
0052520 \ I P N E T A D D R E S S 006 001
0052540 A D D R E S S ) ) ) \r
0052560
*
0052640 ( S E T Q A D D R E S S
0052660 N I L ) \r
0052700
*
0052740 ( p
0052760 r i n t o u t T I P A d d r
0053000 e s s E r r o r M s g T ) ) \r
0053020
*
0053100 ( ( N U L L S T
0053120 R I N G ) \r
0053140
*
0053200 ( S
0053220 E T Q S T R I N G ( 006 002 p o
0053240 p 006 001 S U B N E T M A S K ) )
0053260 \r
0053300
*
0053340 ( S E T Q A
0053360 D D R E S S ( 006 002 \ I P . R E
0053400 A D . S T R I N G . A D D R E S
0053420 S 006 001 S T R I N G \r
0053440
*
0053540 ] \r
0053560
*
0053620 006 002 f i n
0053640 a l l y 006 001 ( R E T U R N (
0053660 L I S T S T R I N G ] \r
0053700 ( 3 M B
0053720 A D D R E S S ( C O N D \r
0053740
0053760 ( \ 3 M
0054000 B L O C A L N D B ( 006 002 b i n
0054020 d 006 001 S T R I N G A D D R E
0054040 S S 006 002 u n t i l 006 001 A D D
0054060 R E S S \r
0054100
*
0054140 006 002 d o 006 001 ( S E T Q
0054160 S T R I N G ( T T Y I N \r
0054200 " P l e a
0054220 s e e n t e r t h e s u b
0054240 n e t a d d r e s s m a s k
0054260 f o r t h i s h o s t ' s
0054300 3 M B n e t w o r k , i n
0054320 t h e f o r m 3 6 . 9 . 0
0054340 . 0 : " \r
0054360
*
0054440 N I L
0054460 I P A d d r e s s H e l p M s
0054500 g \r
0054520
*
0054600 ' S T R I N G )
0054620 ) \r
0054640
*
0054700 [ C O N D \r
0054720
*
0054760 (
0055000 ( A N D S T R I N G ( S E T
0055020 Q A D D R E S S ( 006 002 \r 006 001
0055040
*
0055140 006 002
0055160 \ I P . R E A D . S T R I N G .
0055200 A D D R E S S 006 001 \r
0055220
*
0055320 S T R I N
0055340 G ) ) \r
0055360
*
0055420 (
0055440 Z E R O P ( 006 002 \ I P N E T A
0055460 D D R E S S 006 001 A D D R E S S
0055500 ) ) ) \r
0055520
*
0055560 ( S E T Q
0055600 A D D R E S S N I L ) \r
0055620
*
0055700 ( p r i n t o u t T I
0055720 P A d d r e s s E r r o r M s g
0055740 T ) ) \r
0055760
*
0056020 ( ( N U L L
0056040 S T R I N G ) \r
0056060
*
0056120 (
0056140 S E T Q S T R I N G ( 006 002 p
0056160 o p 006 001 S U B N E T M A S K )
0056200 ) \r
0056220
*
0056260 ( S E T Q A D
0056300 D R E S S ( 006 002 \ I P . R E A
0056320 D . S T R I N G . A D D R E S S
0056340 006 001 S T R I N G ] \r
0056360
*
0056420 006 002 f i n a
0056440 l l y 006 001 ( R E T U R N ( L
0056460 I S T S T R I N G ] \r
0056500 ( A P P E N
0056520 D 1 0 M B A D D R E S S 3 M
0056540 B A D D R E S S ] ) \r \r ( 006 004 T
0056560 C P C O N F . P R I N T . C O N
0056600 F I G U R A T I O N 006 001 \r [
0056620 L A M B D A N I L 006 006 006 001
0056640
*
0056700 006 006
0056720 ( * e j s % : " 5 - J u n
0056740 - 8 5 1 2 : 3 2 " ) 006 001 \r
0056760 ( 006 002 b i n d 006 001 ( D E C
0057000 _ ( R E C L O O K ' I P I
0057020 N I T ) ) 006 002 f o r 006 001 F I
0057040 E L D 006 002 i n 006 001 ( R E C O
0057060 R D F I E L D N A M E S ' I P
0057100 I N I T ) \r 006 002 d
0057120 o 006 001 ( C O N D \r
0057140 ( ( L I S T P (
0057160 R E C O R D A C C E S S F I E
0057200 L D \ I P . D E F A U L T . C
0057220 O N F I G U R A T I O N D E C
0057240 ' F E T C H ) ) \r
0057260 ( p r i n t o u
0057300 t T F I E L D 2 0 . P P
0057320 V T L ( R E C O R D A C C E S
0057340 S F I E L D \ I P . D E F A
0057360 U L T . C O N F I G U R A T I O
0057400 N D E C \r
0057420
*
0057460 ' F E T C H ) \r
0057500
0057520 T ) ) \r
0057540 ( T ( p r i n t o u
0057560 t T F I E L D 2 0 ( R E
0057600 C O R D A C C E S S F I E L D
0057620 \ I P . D E F A U L T . C O N
0057640 F I G U R A T I O N D E C '
0057660 F E T C H ) \r
0057700 T ]
0057720 ) \r \r ( 006 004 \ I P N E T A D D R
0057740 E S S 006 001 \r [ L A M B D A
0057760 ( I P A D D R E S S ) 006 006 006 001
0060000
*
0060040 006 006 ( * e j s %
0060060 : " 2 5 - M a r - 8 6 1 6 :
0060100 1 6 " ) 006 001 \r ( L E T
0060120 ( ( N E T F I E L D ( L R S H
0060140 I P A D D R E S S 2 9 ) ) )
0060160 \r ( C O N D \r
0060200 ( ( E Q
0060220 \ I P . C L A S S . C N E T
0060240 F I E L D ) \r
0060260 ( L D B \ I P . C L A
0060300 S S . C . N E T . B Y T E S P E
0060320 C I P A D D R E S S ) ) \r
0060340 ( ( E Q \
0060360 I P . C L A S S . B ( S E T Q
0060400 N E T F I E L D ( L R S H
0060420 N E T F I E L D 1 ) ) ) \r
0060440 ( L D B
0060460 \ I P . C L A S S . B . N E T .
0060500 B Y T E S P E C I P A D D R E
0060520 S S ) ) \r
0060540 ( ( E Q \ I P . C L A S S .
0060560 A ( L R S H N E T F I E L D
0060600 1 ) ) \r
0060620 ( L D B \ I P . C L A S S
0060640 . A . N E T . B Y T E S P E C
0060660 I P A D D R E S S ) ) \r
0060700 ( T 0 ] ) \r \r
0060720 ( 006 004 \ I P . R E A D . S T R I
0060740 N G . A D D R E S S 006 001 \r [
0060760 L A M B D A ( S T R I N G . O
0061000 R . A T O M ) 006 006 006 001
0061020
0061040 006 006
0061060 ( * e j s % : " 2 7 - D e c
0061100 - 8 4 1 5 : 4 2 " ) 006 001 \r
0061120 \r
0061140 006 006 ( * * C o n v e r
0061160 t a d o t t e d n o t a t
0061200 i o n - - | 3 6 . 9 . 0 . 9
0061220 | - - \r 006 001
0061240 006 006 t o a n i n t e r n a
0061260 l n o t a t i o n ) 006 001 \r \r
0061300 ( 006 002 b i n d 006 001 ( C E
0061320 L L _ ( A R R A Y 4 ' B
0061340 Y T E 0 0 ) ) \r
0061360 ( I N D E X _ 0 ) \r
0061400 ( T E M P
0061420 _ 0 ) 006 002 f o r 006 001 C H A
0061440 R 006 002 i n s t r i n g 006 001 (
0061460 M K S T R I N G S T R I N G .
0061500 O R . A T O M ) \r
0061520 006 002 w h i l e 006 001 ( A N D (
0061540 I L E Q I N D E X 3 ) \r
0061560
0061600 ( I L E Q T E M P ( M A S K
0061620 . 1 ' S 0 8 ) ) ) 006 002 d o
0061640 006 001 [ C O N D \r
0061660
*
0061720 ( ( E
0061740 Q C H A R ( C H A R C O D E
0061760 % . ) ) \r
0062000
*
0062040 ( \ B Y T
0062060 E S E T A C E L L I N D E X
0062100 T E M P ) \r
0062120
*
0062160 ( S E T
0062200 Q T E M P 0 ) \r
0062220
*
0062260 (
0062300 006 002 a d d 006 001 I N D E X 1 )
0062320 ) \r
0062340
*
0062400 ( ( A N D ( I G E
0062420 Q C H A R ( C H A R C O D E
0062440 0 ) ) \r
0062460
*
0062520 (
0062540 I L E Q C H A R ( C H A R C
0062560 O D E 9 ) ) ) \r
0062600
*
0062640 ( S
0062660 E T Q T E M P ( I P L U S
0062700 ( I T I M E S T E M P 1 0 )
0062720 \r
0062740
*
0063020 ( I D I F F E R
0063040 E N C E C H A R ( C H A R C
0063060 O D E \r
0063100
*
0063200 0 ]
0063220 \r 006 002 f i n a l l
0063240 y 006 001 ( C O N D \r
0063260 ( ( I L
0063300 E Q T E M P ( M A S K . 1 '
0063320 S 0 8 ) ) \r
0063340 ( \ B Y T
0063360 E S E T A C E L L I N D E X
0063400 T E M P ) ) ) \r
0063420 ( R E T U R N ( C
0063440 O N D \r
0063460 ( ( E Q
0063500 I N D E X 3 ) \r
0063520
0063540 ( 006 002 c r e a t e 006 001 F
0063560 I X P \r
0063600
0063620 H I N U M _ ( 006 002 c
0063640 r e a t e 006 001 W O R D \r
0063660
*
0063720 H I B Y
0063740 T E _ ( \ B Y T E L T C E
0063760 L L 0 ) \r
0064000
*
0064040 L O B Y T E _ ( \
0064060 B Y T E L T C E L L 1 ) ) \r
0064100
*
0064140 L O N U M _ ( 006 002 c r e a t
0064160 e 006 001 W O R D \r
0064200
*
0064240 H I B Y T E _
0064260 ( \ B Y T E L T C E L L 2
0064300 ) \r
0064320
*
0064360 L O B Y T E _ ( \ B Y T E
0064400 L T C E L L 3 ] ) \r \r ( 006 004
0064420 T C P C O N F . G E T . L O C A
0064440 L . N E T W O R K S 006 001 \r [
0064460 L A M B D A N I L 006 006 006 001
0064500
*
0064540 006 006
0064560 ( * e j s % : " 5 - J u n
0064600 - 8 5 1 2 : 2 7 " ) 006 001 \r
0064620 \r
0064640 006 006 ( * * R e t u r n
0064660 t h e l o c a l n e t w o
0064700 r k l i s t f o r t h i s
0064720 h o s t . \r 006 001
0064740 006 006 T h e l i s t i s
0064760 a n a l i s t k e y e d
0065000 b y n e t w o r k a d d r e
0065020 s s , a n d c o n t a i n i
0065040 n g o t h e r w i s e t h e
0065060 \r 006 001 006 006
0065100 a t o m 1 0 o r 3 i n d
0065120 i c a t i n g t h e k i n d
0065140 o f n e t w o r k ) 006 001 \r \r
0065160 ( L E T [ [ 1 0 M B A
0065200 D D R E S S ( C O N D \r
0065220
0065240 ( \ 1 0 M B L O C
0065260 A L N D B ( 006 002 b i n d 006 001
0065300 S T R I N G A D D R E S S 006
0065320 002 u n t i l 006 001 A D D R E S S
0065340 \r
0065360
0065400 006 002 d
0065420 o 006 001 ( S E T Q S T R I N G
0065440 ( T T Y I N \r
0065460 " P l e a s e
0065500 e n t e r t h e n e t w o r
0065520 k n u m b e r f o r t h i
0065540 s h o s t ' s 1 0 M B n e
0065560 t w o r k , i n t h e f o
0065600 r m 3 6 . 0 . 0 . 0 : " \r
0065620
*
0065720 N I L \r
0065740
0065760 " E n t e r a n
0066000 I P a d d r e s s . L e a
0066020 v e t h e h o s t n u m b
0066040 e r p o r t i o n o f t h
0066060 e a d d r e s s 0 . " \r
0066100
*
0066200 ' S T R I N G ) ) \r
0066220
*
0066260 [ C O N D \r
0066300
*
0066360 ( ( A N D S T R I N G (
0066400 S E T Q A D D R E S S ( 006 002
0066420 \ I P . R E A D . S T R I N G .
0066440 A D D R E S S 006 001 \r
0066460
*
0066560 S T R I N G ) )
0066600 \r
0066620
*
0066660 ( Z E R O P
0066700 ( 006 002 \ I P N E T A D D R E S S
0066720 006 001 A D D R E S S ) ) ) \r
0066740
*
0067020 ( S E T Q A D D R E S S N
0067040 I L ) \r
0067060
*
0067120 ( p r i n t o u t
0067140 T \r
0067160 " T h e n e t w
0067200 o r k a d d r e s s y o u
0067220 h a v e e n t e r e d i s
0067240 i n a n i n c o r r e c t
0067260 f o r m . P l e a s e t r
0067300 y a g a i n . " \r
0067320
*
0067400 T ) ) \r
0067420
*
0067460 ( ( N U L
0067500 L S T R I N G ) \r
0067520
*
0067560 [ S E
0067600 T Q S T R I N G ( C A A R
0067620 ( S O M E ( 006 002 f e t c h 006 001
0067640 ( I P I N I T \r
0067660
*
0070000 L O C A L . N E T W O R K S \r
0070020
*
0070140 ) \r
0070160
*
0070260 006 002 o f 006
0070300 001 \r
0070320
*
0070400 \
0070420 I P . D E F A U L T . C O N F I
0070440 G U R A T I O N \r
0070460
*
0070560 ) \r
0070600
*
0070700 ( F U N C T
0070720 I O N ( L A M B D A ( E N T
0070740 R Y ) \r
0070760
*
0071060 ( E Q \r
0071100
*
0071220 ( C D R E N
0071240 T R Y ) \r
0071260
*
0071360 ' 1
0071400 0 ] \r
0071420
*
0071460 ( S E T Q A D D R
0071500 E S S ( 006 002 \ I P . R E A D .
0071520 S T R I N G . A D D R E S S 006 001
0071540 S T R I N G ] \r
0071560
*
0071620 006 002 f i n a l l y 006 001
0071640 ( R E T U R N ( L I S T (
0071660 C O N S S T R I N G 1 0 ] \r
0071700 ( 3 M B A D
0071720 D R E S S ( C O N D \r
0071740
0071760 ( \ 3 M B L O C A L N
0072000 D B ( 006 002 b i n d 006 001 S T R
0072020 I N G A D D R E S S 006 002 u n
0072040 t i l 006 001 A D D R E S S \r
0072060
*
0072120 006 002 d o 006 001 (
0072140 S E T Q S T R I N G ( T T Y
0072160 I N \r
0072200 " P l e a s e e n t e
0072220 r t h e n e t w o r k n u
0072240 m b e r f o r t h i s h o
0072260 s t ' s 3 M B n e t w o r k
0072300 , i n t h e f o r m 3 6
0072320 . 0 . 0 . 0 : " \r
0072340
*
0072420 N I L
0072440 \r
0072460 "
0072500 E n t e r a n I P a d d r
0072520 e s s . L e a v e t h e
0072540 h o s t n u m b e r p o r t
0072560 i o n o f t h e a d d r e
0072600 s s 0 . " \r
0072620
*
0072700 ' S T R I N G )
0072720 ) \r
0072740
0072760 [
0073000 C O N D \r
0073020
*
0073060 ( ( A N D S T R I N
0073100 G ( S E T Q A D D R E S S
0073120 ( 006 002 \ I P . R E A D . S T R I
0073140 N G . A D D R E S S 006 001 \r
0073160
*
0073260 S T R I N G )
0073300 ) \r
0073320
*
0073360 ( Z E R O P (
0073400 006 002 \ I P N E T A D D R E S S 006
0073420 001 A D D R E S S ) ) ) \r
0073440
*
0073500 ( S
0073520 E T Q A D D R E S S N I L )
0073540 \r
0073560
*
0073620 ( p r i n t o u t T \r
0073640
0073660 " T h e n e t w o r k a
0073700 d d r e s s y o u h a v e
0073720 e n t e r e d i s i n a n
0073740 i n c o r r e c t f o r m .
0073760 P l e a s e t r y a g a
0074000 i n . " \r
0074020
*
0074060 T )
0074100 ) \r
0074120
*
0074160 ( ( N U L L S T R I N G )
0074200 \r
0074220
*
0074260 [ S E T Q S T R I N G (
0074300 C A A R ( S O M E ( 006 002 f e
0074320 t c h 006 001 ( I P I N I T \r
0074340
*
0074460 L O C A L . N E T W
0074500 O R K S \r
0074520
*
0074620 ) \r
0074640
*
0074740 006 002 o f
0074760 006 001 \r
0075000
*
0075100 \ I P . D E F A U L T . C O N F
0075120 I G U R A T I O N \r
0075140
*
0075240 ) \r
0075260
*
0075360 ( F U N C T I O N
0075400 ( L A M B D A ( E N T R Y )
0075420 \r
0075440
*
0075540 ( E Q \r
0075560
*
0075700 ( C D R E N T R Y ) \r
0075720
*
0076040 ' 3 ] \r
0076060
*
0076120 ( S E T Q
0076140 A D D R E S S ( 006 002 \ I P . R
0076160 E A D . S T R I N G . A D D R E
0076200 S S 006 001 S T R I N G ] \r
0076220
*
0076260 006 002 f i n a l l y
0076300 006 001 ( R E T U R N ( L I S T
0076320 ( C O N S S T R I N G 3 ]
0076340 \r ( A P P E N
0076360 D 1 0 M B A D D R E S S 3 M
0076400 B A D D R E S S ] ) \r \r ( 006 004 T
0076420 C P C O N F . S E T . P R O P E
0076440 R T Y 006 001 \r [ L A M B D A
0076460 ( P R O P E R T Y D A T U M
0076500 I N S P E C T W ) 006 006 006 001
0076520
0076540 006 006 ( * M P L
0076560 " 2 - J u n - 8 5 2 2 : 3 2
0076600 " ) 006 001 \r ( C O N D \r
0076620 ( ( M O U S E S T A
0076640 T E ( N O T U P ) ) \r
0076660 ( U N T I L M O U S E
0076700 S T A T E U P ) \r
0076720 ( R E S E T L S T ( R E S
0076740 E T S A V E ( T T Y D I S P L
0076760 A Y S T R E A M ( G E T P R O
0077000 M P T W I N D O W I N S P E C
0077020 T W 5 ) ) ) \r
0077040 [ R E S E T S A V
0077060 E N I L ( L I S T ( F U N
0077100 C T I O N ( L A M B D A N I
0077120 L \r
0077140
*
0077200 ( C L O S E W ( W F R O M
0077220 D S ( T T Y D I S P L A Y S T
0077240 R E A M ] \r
0077260 ( S E L E C T Q P R
0077300 O P E R T Y \r
0077320 ( H O S T N
0077340 A M E ( 006 002 b i n d 006 001 N A
0077360 M E 006 002 u n t i l 006 001 N A M
0077400 E 006 002 d o 006 001 [ S E T Q N
0077420 A M E ( M K A T O M ( U - C
0077440 A S E ( T T Y I N \r
0077460
*
0077560 " P l e a s e e n t e r t h
0077600 i s h o s t ' s n a m e :
0077620 " \r
0077640
*
0077740 N I L \r
0077760
*
0100060 " E n t e r a n a m e
0100100 t o c a l l t h i s h o s
0100120 t b y " \r
0100140
*
0100240 ' S
0100260 T R I N G ] \r
0100300
0100320 006 002 f i n a l l y
0100340 006 001 ( I N S P E C T W . R E P
0100360 L A C E I N S P E C T W P R
0100400 O P E R T Y N A M E ) ) ) \r
0100420
0100440 ( H T E . F I L E ( I N S
0100460 P E C T W . R E P L A C E I N
0100500 S P E C T W P R O P E R T Y
0100520 ( T T Y I N \r " P l e a s e
0100540 e n t e r t h e n a m e
0100560 o f a H O S T S . T X T f
0100600 i l e . I f y o u h a v
0100620 e n o H O S T S . T X T f
0100640 i l e , t y p e a c a r r
0100660 i a g e r e t u r n . " \r
0100700
*
0101000 N I L \r
0101020 " E n t e r
0101040 t h e n a m e o f a f i
0101060 l e t o b e u s e d i n
0101100 t r a n s l a t i n g I P
0101120 h o s t n a m e s t o I P
0101140 h o s t a d d r e s s e s .
0101160 " \r
0101200
*
0101260 ' S T R I N
0101300 G ) ) ) \r
0101320 ( D E F A U L T
0101340 . G A T E W A Y \r
0101360
0101400 ( 006 002 b i n d 006 001 A D D R
0101420 E S S . S T R I N G D E F A U
0101440 L T . G A T E W A Y 006 002 u n t
0101460 i l 006 001 D E F A U L T . G A T
0101500 E W A Y \r
0101520
0101540 006 002 d o 006 001 ( S E T Q A D D
0101560 R E S S . S T R I N G ( T T Y
0101600 I N " P l e a s e e n t e r
0101620 t h e I P a d d r e s s
0101640 o f t h e d e f a u l t g
0101660 a t e w a y f o r t h i s
0101700 h o s t . I f y o u h a
0101720 v e n o g a t e w a y , j
0101740 u s t t y p e a c a r r i
0101760 a g e r e t u r n : " \r
0102000
*
0102060 N I L \r
0102100
*
0102160 " E n t e r a n I P
0102200 a d d r e s s , i n t h e
0102220 f o r m 1 9 2 . 1 0 . 2 0 0
0102240 . 1 " \r
0102260
*
0102320 ' S
0102340 T R I N G ) ) \r
0102360
0102400 [ C O N D \r
0102420
0102440 ( ( N
0102460 U L L A D D R E S S . S T R I
0102500 N G ) \r
0102520
0102540 ( S E T Q D E F A
0102560 U L T . G A T E W A Y N I L )
0102600 \r
0102620
0102640 ( G O $ $ O U T ) ) \r
0102660
*
0102720 ( T ( S E T Q D E F A U L T
0102740 . G A T E W A Y ( 006 002 \ I P .
0102760 R E A D . S T R I N G . A D D R
0103000 E S S 006 001 A D D R E S S . S T
0103020 R I N G ] \r
0103040
0103060 006 002 f i n a l l y 006 001 ( I N
0103100 S P E C T W . R E P L A C E I
0103120 N S P E C T W P R O P E R T Y
0103140 A D D R E S S . S T R I N G )
0103160 ) ) \r
0103200 ( L O C A L . N E T
0103220 W O R K S \r
0103240 [
0103260 L E T ( ( L O C A L . N E T W
0103300 O R K S ( 006 002 T C P C O N F .
0103320 G E T . L O C A L . N E T W O R
0103340 K S 006 001 ) ) ) \r
0103360
0103400 ( C O N D \r
0103420
0103440 ( L O C A
0103460 L . N E T W O R K S ( I N S P
0103500 E C T W . R E P L A C E I N S
0103520 P E C T W P R O P E R T Y L
0103540 O C A L . N E T W O R K S ] ) \r
0103560
0103600 ( L O C A L . A D D R E S
0103620 S E S \r
0103640 [ L E
0103660 T ( ( L O C A L . A D D R E S
0103700 S E S ( 006 002 T C P C O N F . G
0103720 E T . L O C A L . A D D R E S S
0103740 E S 006 001 ) ) ) \r
0103760
0104000 ( C O N D \r
0104020
0104040 ( L O C A
0104060 L . A D D R E S S E S ( I N S
0104100 P E C T W . R E P L A C E I N
0104120 S P E C T W P R O P E R T Y
0104140 L O C A L . A D D R E S S E S ]
0104160 ) \r
0104200 ( D E F A U L T . I N
0104220 S P E C T W . P R O P C O M M A
0104240 N D F N P R O P E R T Y D A
0104260 T U M I N S P E C T W ] ) \r \r
0104300 ( 006 004 T C P C O N F . T I T L E
0104320 C O M M A N D F N 006 001 \r [ L
0104340 A M B D A ( I N S P E C T W
0104360 D A T U M ) 006 006 006 001
0104400
0104420 006 006 (
0104440 * M P L " 2 - J u n - 8 5
0104460 2 2 : 4 3 " ) 006 001 \r
0104500 \r
0104520 006 006 ( * * C a l l e d w h
0104540 e n m i d d l e b u t t o n
0104560 g o e s d o w n i n t i
0104600 t l e b a r ) 006 001 \r \r
0104620 ( C O N D \r ( ( M
0104640 O U S E S T A T E ( N O T U
0104660 P ) ) \r ( S E L
0104700 E C T Q [ M E N U ( 006 002 c r
0104720 e a t e 006 001 M E N U \r
0104740
0104760 I T E M S
0105000 _ ' ( R e F e t c h C r e a
0105020 t e % I n i t ] \r
0105040 ( R e F e t c h (
0105060 I N S P E C T W . R E D I S P L
0105100 A Y I N S P E C T W ) ) \r
0105120 ( C r e a t
0105140 e % I n i t ( R E S E T L S
0105160 T ( R E S E T S A V E ( T T
0105200 Y D I S P L A Y S T R E A M (
0105220 G E T P R O M P T W I N D O W
0105240 I N S P E C T W 5 ) ) ) \r
0105260
0105300 [
0105320 R E S E T S A V E N I L ( L
0105340 I S T ( F U N C T I O N ( L
0105360 A M B D A N I L \r
0105400
*
0105460 ( C L O
0105500 S E W ( W F R O M D S ( T T
0105520 Y D I S P L A Y S T R E A M ] \r
0105540
*
0105600 ( L E T [ ( F I L E ( T T
0105620 Y I N \r
0105640
*
0105700 " P l e a s e s p
0105720 e c i f y t h e n a m e f
0105740 o r t h e n e w I P i n
0105760 i t f i l e : " \r
0106000
*
0106060 N I L \r
0106100
0106120 " E n
0106140 t e r a f i l e n a m e .
0106160 C a r r i a g e r e t u r n
0106200 d e f a u l t s t o { D S
0106220 K } I P . I N I T " \r
0106240
*
0106300 '
0106320 S T R I N G ] \r
0106340
0106360 ( S
0106400 E T Q F I L E ( O P E N S T
0106420 R E A M F I L E ' O U T P U
0106440 T ' N E W ) ) \r
0106460
0106500 (
0106520 P R I N 2 D A T U M F I L E
0106540 ) \r
0106560
0106600 ( C L O S E F
0106620 F I L E ) ) ) ) \r
0106640 N I L ] ) \r ) \r ( P U
0106660 T P R O P S T C P C O N F I G
0106700 C O P Y R I G H T ( " X e r
0106720 o x C o r p o r a t i o n "
0106740 1 9 8 5 1 9 8 6 1 9 8 7 ) )
0106760 \r ( D E C L A R E % : D O N T
0107000 C O P Y \r ( F I L E M A P
0107020 ( N I L ( 1 4 1 6 3 6 2 6 8
0107040 ( T C P . C O N F I G U R E
0107060 1 4 2 6 . 2 5 9 9 ) ( T C
0107100 P . C O N F I G U R E . W I N D
0107120 O W 2 6 0 1 . 4 1 8 7 )
0107140 ( \r T C P C O N F . D I A L O G
0107160 U E 4 1 8 9 . 1 5 1 8 0 )
0107200 ( T C P C O N F . G E T . D O
0107220 M A I N . S E R V E R S 1 5 1
0107240 8 2 . 1 6 4 6 3 ) ( T C P
0107260 C O N F . G E T . L O C A L . A
0107300 D D R E S S E S \r 1 6 4 6 5
0107320 . 2 0 0 9 5 ) ( T C P C O N
0107340 F . G E T . L O C A L . M A S K
0107360 S 2 0 0 9 7 . 2 3 9 1 4 )
0107400 ( T C P C O N F . P R I N T .
0107420 C O N F I G U R A T I O N 2 3
0107440 9 1 6 . 2 4 5 2 9 ) ( \r \
0107460 I P N E T A D D R E S S 2 4 5
0107500 3 1 . 2 5 0 3 8 ) ( \ I P
0107520 . R E A D . S T R I N G . A D D
0107540 R E S S 2 5 0 4 0 . 2 6 8
0107560 9 1 ) ( T C P C O N F . G E T
0107600 . L O C A L . N E T W O R K S
0107620 2 6 8 9 3 \r . 3 2 0 1 0 )
0107640 ( T C P C O N F . S E T . P R O
0107660 P E R T Y 3 2 0 1 2 . 3 5
0107700 0 0 6 ) ( T C P C O N F . T I
0107720 T L E C O M M A N D F N 3 5 0
0107740 0 8 . 3 6 2 6 6 ) ) ) ) ) \r
0107760 S T O P \r
0107765