$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>MINISERVE!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 " 1
0000120 7 - A p r - 8 7 1 1 : 3 7 : 5
0000140 1 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > M I N
0000200 I S E R V E . ; 3 006 001 1 5 9 4
0000220 8 \r \r c h a n g
0000240 e s t o % : ( F N S \ G
0000260 E T . P U P # . F R O M . N S #
0000300 \ N S T I M E S E R V E R \
0000320 H A N D L E . N S . T I M E R E
0000340 Q ) \r
0000360 ( V A R S M I N
0000400 I S E R V E C O M S ) \r \r
0000420 p r e v i o u s d a t e
0000440 % : " 1 2 - J u n - 8 4 1 5
0000460 : 4 3 : 1 3 " { E R I S } < L
0000500 I S P C O R E > L I B R A R Y >
0000520 M I N I S E R V E . ; 1 ) \r \r \r
0000540 ( * " \r C o p y r i g h t (
0000560 c ) 1 9 8 4 , 1 9 8 7 b y
0000600 X e r o x C o r p o r a t i
0000620 o n . A l l r i g h t s
0000640 r e s e r v e d . \r " ) \r \r ( P
0000660 R E T T Y C O M P R I N T M I
0000700 N I S E R V E C O M S ) \r \r ( R
0000720 P A Q Q 006 002 M I N I S E R V E
0000740 C O M S 006 001 [ ( F N S S T A
0000760 R T M I N I S E R V E R ) \r
0001000
0001020 ( F N S \ N S T I M E
0001040 S E R V E R \ H A N D L E . N
0001060 S . T I M E R E Q ) \r
0001100
0001120 ( F N S \ P U P T I M E S E
0001140 R V E R \ H A N D L E . P U P
0001160 . A L T O T I M E R E Q ) \r
0001200
0001220 ( D E C L A R E % : E
0001240 V A L @ C O M P I L E D O N T
0001260 C O P Y ( R E C O R D S T I
0001300 M E P U P C O N T E N T S T I
0001320 M E X I P ) \r
0001340
0001360 ( C O N S T A N T S \
0001400 T I M E S O C K E T \ X I P T
0001420 . E X C H A N G E \ E X T Y P
0001440 E . T I M E \ X I P T . O L D
0001460 T I M E \r
0001500
0001520 \ T I M E V
0001540 E R S I O N \ T I M E O P . T
0001560 I M E R E Q U E S T \ T I M E
0001600 O P . T I M E R E S P O N S E
0001620 \r
0001640
0001660 \ N S T I M E L E N G
0001700 T H ) \r
0001720
0001740 ( C O N S T A N T S \ P U P
0001760 S O C K E T . M I S C S E R V I
0002000 C E S \ P T . A L T O T I M E
0002020 R E Q U E S T \r
0002040
0002060 \ P T
0002100 . A L T O T I M E R E S P O N S
0002120 E \ P U P O V L E N \ T I M
0002140 E P U P L E N G T H ) \r
0002160
0002200 ( G L O B A L
0002220 V A R S \ B e g i n D S T \
0002240 E n d D S T \ T i m e Z o n e
0002260 C o m p ) ) \r
0002300 ( C O
0002320 M S ( * P U P I D S E R V E
0002340 R ) \r
0002360 (
0002400 F N S \ P U P . I D . S E R V
0002420 E R \ H A N D L E . P U P . L
0002440 O O K U P \ G E T . P U P # .
0002460 F R O M . N S # ) \r
0002500
0002520 ( I N I T V A R S
0002540 N S . T O . P U P . A L I S T
0002560 N S . T O . P U P . F I L E ) \r
0002600
0002620 ( D E C
0002640 L A R E % : E V A L @ C O M P
0002660 I L E D O N T C O P Y ( G L
0002700 O B A L V A R S N S . T O . P
0002720 U P . A L I S T \r
0002740
*
0003020 N S
0003040 . T O . P U P . F I L E ) \r
0003060
*
0003120 ( F I L E S ( L O A D C O M
0003140 P ) \r
0003160
0003200 L L N
0003220 S ] ) \r ( D E F I N E Q \r \r ( 006
0003240 004 S T A R T M I N I S E R V E R
0003260 006 001 \r [ L A M B D A N I L
0003300 006 006 006 001
0003320
*
0003360 006 006 ( * ; " E d i t
0003400 e d 1 6 - A p r - 8 7 1 8 :
0003420 5 2 b y r a f " ) 006 001 \r
0003440 ( A D D . P R O C E S S '
0003460 ( 006 002 \ P U P T I M E S E R V E
0003500 R 006 001 ) ' R E S T A R T A B L
0003520 E ' H A R D R E S E T ) \r
0003540 ( A D D . P R O C E S S '
0003560 ( 006 002 \ N S T I M E S E R V E R
0003600 006 001 ) ' R E S T A R T A B L E
0003620 ' H A R D R E S E T ) \r
0003640 ( A D D . P R O C E S S ' (
0003660 006 002 \ P U P . I D . S E R V E R
0003700 006 001 ) ' R E S T A R T A B L E
0003720 ' H A R D R E S E T ) \r
0003740 T ] ) \r ) \r ( D E F I N E Q \r
0003760 \r ( 006 004 \ N S T I M E S E R V E
0004000 R 006 001 \r [ L A M B D A ( T
0004020 R A C E F L G ) 006 006 006 001
0004040
*
0004100 006 006 ( * e d i t e d
0004120 % : " 1 5 - M a y - 8 5 1 8
0004140 : 5 4 " ) 006 001 \r ( R E S
0004160 E T L S T ( P R O G ( ( S O
0004200 C ( O P E N N S O C K E T \
0004220 T I M E S O C K E T T ) ) \r
0004240
0004260 X I P E V E N T ) \r
0004300
0004320 ( R E S E T S A V E N I
0004340 L ( L I S T ' C L O S E N S
0004360 O C K E T S O C ) ) \r
0004400
0004420 ( S E T Q E V E N T ( N S O
0004440 C K E T E V E N T S O C ) ) \r
0004460
0004500 ( d o ( C O N D \r
0004520
0004540 ( ( S E T Q
0004560 X I P ( G E T X I P S O C )
0004600 ) \r
0004620 ( 006
0004640 002 \ H A N D L E . N S . T I M E
0004660 R E Q 006 001 S O C X I P T R
0004700 A C E F L G ) ) \r
0004720
0004740 ( T ( A W A I T . E V
0004760 E N T E V E N T ] ) \r \r ( 006 004
0005000 \ H A N D L E . N S . T I M E R
0005020 E Q 006 001 \r [ L A M B D A (
0005040 S O C X I P T R A C E F L G
0005060 ) 006 006 006 001
0005100
0005120 006 006 ( * j l "
0005140 7 - N o v - 8 5 1 2 : 2 1 " )
0005160 006 001 \r ( P R O G ( ( B
0005200 U F ( f e t c h ( X I P X
0005220 I P C O N T E N T S ) \r
0005240
0005260 o f X I P ) ) \r
0005300 T I M E ) \r
0005320 ( C O N D \r
0005340 ( [ N O T
0005360 ( A N D ( O R ( E Q ( f e
0005400 t c h ( X I P X I P T Y P E
0005420 ) \r
0005440
0005460 o f X I P )
0005500 \r
0005520
0005540 \ X I P T . E X C H A N G E )
0005560 \r
0005600 ( E Q
0005620 ( f e t c h ( X I P X I P
0005640 T Y P E ) \r
0005660
0005700 o f
0005720 X I P ) \r
0005740
0005760 1 2 3 ) ) \r
0006000
0006020 ( E Q ( f e t c h ( T
0006040 I M E B O D Y T I M E O P ) \r
0006060
*
0006120 o f B U F ) \r
0006140
0006160 \ T I M E O P . T
0006200 I M E R E Q U E S T ) \r
0006220
0006240 ( C O N D \r
0006260
0006300 [ ( E Q \ M A C H I
0006320 N E T Y P E \ D A N D E L I O
0006340 N ) \r
0006360 (
0006400 N O T ( E Q P 0 ( f e t c
0006420 h ( I O P A G E D L T O D V
0006440 A L I D ) \r
0006460
*
0006520 o f \ I O P A G E ]
0006540 \r
0006560 ( T T
0006600 ) ) \r
0006620 ( N O T
0006640 ( E Q U A L \ M Y . N S H O S
0006660 T N U M B E R ( f e t c h (
0006700 X I P X I P S O U R C E H O S
0006720 T ) \r
0006740
*
0007000 o
0007020 f X I P ] \r
0007040 ( R E L E A S E . X I
0007060 P X I P ) ) \r
0007100 ( T \r
0007120 \r 006 006
0007140 ( * * P U T S T U F F I
0007160 N X I P ) 006 001 \r \r
0007200 ( C O N D \r
0007220
0007240 ( T R A C E F L G ( p r
0007260 i n t o u t T R A C E F L G
0007300 " S e r v i n g t i m e t o
0007320 " . P P V T L ( f e t c h
0007340 ( X I P X I P S O U R C E H
0007360 O S T ) \r
0007400
*
0007500 o f X I P ) \r
0007520
*
0007560 T ) ) ) \r
0007600 ( S E T Q T I M
0007620 E ( L I S P . T O . A L T O .
0007640 D A T E ( I D A T E ) ) ) \r
0007660 (
0007700 r e p l a c e ( X I P X I P
0007720 L E N G T H ) \r
0007740 o
0007760 f X I P w i t h ( I P L U
0010000 S \ X I P O V L E N ( U N F
0010020 O L D 1 5 B Y T E S P E R W
0010040 O R D ) ) ) \r
0010060 \r 006 006 ( *
0010100 * U S E D N O T O W O
0010120 R K W I T H T H A T % :
0010140 ( r e p l a c e \r 006 001
0010160 006 006 ( P A C K E T E X
0010200 C H A N G E X I P P A C K E T
0010220 E X C H A N G E T Y P E ) o f
0010240 X I P w i t h \ E X T Y P
0010260 E . R E S P O N S E ) ) 006 001 \r \r
0010300
0010320 ( r e p l a c e ( T I M E B O
0010340 D Y T I M E O P ) \r
0010360
0010400 o f B U F w i t h \ T
0010420 I M E O P . T I M E R E S P O N
0010440 S E ) \r
0010460 ( r e p l a c e ( T I
0010500 M E B O D Y T I M E V E R S I
0010520 O N ) \r
0010540 o f B U
0010560 F w i t h \ T I M E V E R S
0010600 I O N ) \r
0010620 ( C O N D \r
0010640 ( (
0010660 I L E S S P \ T i m e Z o n e
0010700 C o m p 0 ) \r
0010720 ( r e p
0010740 l a c e ( T I M E B O D Y T
0010760 I M E Z O N E S I G N ) \r
0011000
0011020 o f B U F w
0011040 i t h 1 ) ) \r
0011060 ( T ( r
0011100 e p l a c e ( T I M E B O D Y
0011120 T I M E Z O N E S I G N ) \r
0011140
0011160 o f B
0011200 U F w i t h 0 ) ) ) \r
0011220 ( r e
0011240 p l a c e ( T I M E B O D Y
0011260 T I M E Z O N E H O U R S ) \r
0011300
0011320 o f B U F w i t
0011340 h ( A B S \ T i m e Z o n e
0011360 C o m p ) ) \r
0011400 ( r e p l a c e
0011420 ( T I M E B O D Y T I M E Z O
0011440 N E M I N U T E S ) \r
0011460
0011500 o f B U F w i t h 0 )
0011520 \r
0011540 ( r e p l a c e ( T I M E B
0011560 O D Y T I M E B E G I N D S T
0011600 ) \r
0011620 o f B U F
0011640 w i t h \ B e g i n D S T ) \r
0011660
0011700 ( r e p l a c e ( T I M E B O
0011720 D Y T I M E E N D D S T ) \r
0011740
0011760 o f B U F w i t
0012000 h \ E n d D S T ) \r
0012020 ( r e p l
0012040 a c e ( T I M E B O D Y T I
0012060 M E V A L U E H I ) \r
0012100
0012120 o f B U F w i t h ( f
0012140 e t c h ( F I X P H I N U M
0012160 ) \r
0012200
0012220 o f T
0012240 I M E ) ) \r
0012260 ( r e p l a c e (
0012300 T I M E B O D Y T I M E V A L
0012320 U E L O ) \r
0012340 o f
0012360 B U F w i t h ( f e t c h
0012400 ( F I X P L O N U M ) \r
0012420
*
0012460 o f T I M E ) )
0012500 \r
0012520 ( r e p l a c e ( T I M E B
0012540 I G O V E R 1 ) \r
0012560
0012600 o f B U F w i t h 0 ) \r
0012620
0012640 ( r e p l a c e ( T I M E B I
0012660 G O V E R 2 ) \r
0012700
0012720 o f B U F w i t h 6 5 5 3
0012740 5 ) \r
0012760 ( r e p l a c e ( T I M
0013000 E B I G O V E R 3 ) \r
0013020
0013040 o f B U F w i t h 6
0013060 5 5 3 5 ) \r
0013100 ( S W A P X I P A D
0013120 D R E S S E S X I P ) \r
0013140 ( r e
0013160 p l a c e ( X I P X I P S O
0013200 U R C E H O S T ) \r
0013220
0013240 o f X I P w i t h ( \ L
0013260 O C A L N S H O S T N U M B E R
0013300 ) ) \r
0013320 ( r e p l a c e ( X I P
0013340 X I P S O U R C E N E T ) \r
0013360
0013400 o f X I P w i t
0013420 h ( \ L O C A L N S N E T N U
0013440 M B E R ) ) \r
0013460 ( r e p l a c e
0013500 E P R E Q U E U E o f X I P
0013520 w i t h ' F R E E ) \r
0013540 ( S E
0013560 N D X I P S O C X I P ] ) \r
0013600 ) \r ( D E F I N E Q \r \r ( 006 004 \
0013620 P U P T I M E S E R V E R 006 001 \r
0013640 [ L A M B D A N I L 006 006 006
0013660 001
0013700
*
0013740 006 006 ( * b v m % : " 2 3 -
0013760 J a n - 8 4 1 6 : 2 1 " ) 006 001
0014000 \r ( P R O G ( ( P U P
0014020 S O C ( O P E N P U P S O C K
0014040 E T \ P U P S O C K E T . M I
0014060 S C S E R V I C E S T ) ) \r
0014100 E V E N T
0014120 P U P ) \r (
0014140 R E S E T S A V E N I L ( L
0014160 I S T ' C L O S E P U P S O C
0014200 K E T P U P S O C ) ) \r
0014220 ( S E T Q E V E
0014240 N T ( P U P S O C K E T E V E
0014260 N T P U P S O C ) ) \r
0014300 L P ( C O N D \r
0014320 ( ( S E T Q
0014340 P U P ( G E T P U P P U P S
0014360 O C ) ) \r
0014400 ( S E L E C T C ( f e t
0014420 c h ( P U P P U P T Y P E )
0014440 \r
0014460 o
0014500 f P U P ) \r
0014520 ( \ P T . A L
0014540 T O T I M E R E Q U E S T \r
0014560
0014600 ( 006 002 \ H A N D L E
0014620 . P U P . A L T O T I M E R E Q
0014640 006 001 P U P S O C P U P ) ) \r
0014660
0014700 N I L ) \r
0014720 ( B L O C K ) ) \r
0014740 ( T
0014760
*
0015020 006 006 ( *
0015040 W a i t f o r a P u p ) 006
0015060 001 \r
0015100 ( A W A I T . E V E N T E
0015120 V E N T ) ) ) \r
0015140 ( G O L P ] ) \r \r ( 006 004 \
0015160 H A N D L E . P U P . A L T O T
0015200 I M E R E Q 006 001 \r [ L A M B
0015220 D A ( M I S C S O C P U P )
0015240 006 006 006 001
0015260
0015300 006 006 ( * b
0015320 v m % : " 1 6 - N O V - 8 3
0015340 1 0 : 4 8 " ) 006 001 \r
0015360 \r 006
0015400 006 ( * * A l t o t i m e
0015420 r e q u e s t ) 006 001 \r \r
0015440 ( P R O G [ ( D A T A ( f e
0015460 t c h ( P U P P U P C O N T
0015500 E N T S ) \r
0015520 o f
0015540 P U P ) ) \r
0015560 ( T I M E ( A L T O . T O
0015600 . L I S P . D A T E ( I D A T
0015620 E ] \r ( S W
0015640 A P P U P P O R T S P U P ) \r
0015660 ( r e p l a
0015700 c e T I M E P U P V A L U E H
0015720 I o f D A T A w i t h (
0015740 \ H I N U M T I M E ) ) \r
0015760 ( r e p l a c e
0016000 T I M E P U P V A L U E L O
0016020 o f D A T A w i t h ( \ L
0016040 O N U M T I M E ) ) \r
0016060 ( C O N D \r
0016100 ( ( M I N U S
0016120 P \ T i m e Z o n e C o m p )
0016140 \r (
0016160 r e p l a c e T I M E P U P E
0016200 A S T P o f D A T A w i t
0016220 h T ) \r
0016240 ( r e p l a c e T I M E
0016260 P U P H O U R S o f D A T A
0016300 w i t h ( I M I N U S \ T
0016320 i m e Z o n e C o m p ) ) ) \r
0016340 ( T (
0016360 r e p l a c e T I M E P U P E
0016400 A S T P o f D A T A w i t
0016420 h N I L ) \r
0016440 ( r e p l a c e
0016460 T I M E P U P H O U R S o f
0016500 D A T A w i t h \ T i m e Z
0016520 o n e C o m p ) ) ) \r
0016540 ( r e p l a c e T I
0016560 M E P U P M I N U T E S o f
0016600 D A T A w i t h 0 ) \r
0016620 ( r e p l a c e
0016640 T I M E P U P B E G I N D S T
0016660 o f D A T A w i t h \ B e
0016700 g i n D S T ) \r
0016720 ( r e p l a c e T I M E P
0016740 U P E N D D S T o f D A T A
0016760 w i t h \ E n d D S T ) \r
0017000 ( r e p l a c
0017020 e ( P U P P U P T Y P E ) \r
0017040
0017060 o f P U P w i t h \ P T
0017100 . A L T O T I M E R E S P O N S
0017120 E ) \r ( r e
0017140 p l a c e ( P U P P U P L E
0017160 N G T H ) \r
0017200 o f P U P w i
0017220 t h ( C O N S T A N T ( I P
0017240 L U S \ P U P O V L E N \ T
0017260 I M E P U P L E N G T H ) ) ) \r
0017300 ( S E N D P
0017320 U P M I S C S O C P U P ) \r
0017340 ( \ R E L E
0017360 A S E . E T H E R P A C K E T
0017400 P U P ] ) \r ) \r ( D E C L A R E
0017420 % : E V A L @ C O M P I L E
0017440 D O N T C O P Y \r ( D E C L A
0017460 R E % : E V A L @ C O M P I L
0017500 E \r \r ( B L O C K R E C O R D
0017520 006 002 T I M E P U P C O N T E N T
0017540 S 006 001 ( ( T I M E P U P V A L
0017560 U E H I W O R D ) \r
0017600
0017620 ( T I M E P U
0017640 P V A L U E L O W O R D ) \r
0017660
0017700 ( T I
0017720 M E P U P E A S T P F L A G )
0017740 \r
0017760 (
0020000 T I M E P U P H O U R S B I T
0020020 S 7 ) \r
0020040
0020060 ( T I M E P U P M I N U T
0020100 E S B I T S 8 ) \r
0020120
0020140 ( T I M E P U
0020160 P B E G I N D S T W O R D ) \r
0020200
0020220 ( T
0020240 I M E P U P E N D D S T W O R
0020260 D ) ) 006 006 (
0020300 * f o r m a t o f a l t o
0020320 t i m e r e s p o n s e ) 006
0020340 001 \r
0020360 )
0020400 \r \r ( A C C E S S F N S 006 002 T
0020420 I M E X I P 006 001 ( ( T I M E B
0020440 O D Y ( f e t c h ( P A C K
0020460 E T E X C H A N G E X I P P A
0020500 C K E T E X C H A N G E B O D Y
0020520 ) \r
0020540
0020560 o f D A T U M )
0020600 ) ) \r
0020620 [ B L O C K R E C O
0020640 R D T I M E B O D Y ( ( T I
0020660 M E V E R S I O N W O R D )
0020700 006 006 ( * P r o t o c o l v e
0020720 r s i o n ) 006 001 \r
0020740
*
0021000 ( T I M E O P W O R D )
0021020 006 006 ( * W h a t
0021040 k i n d o f r e q u e s t /
0021060 r e s p o n s e ) 006 001 \r
0021100
*
0021140 ( T I M E V A L U E
0021160 F I X P ) \r
0021200
*
0021240 ( T I M E Z O N E S I G N W
0021260 O R D ) 006 006 ( * 0 = w e s
0021300 t o f p r i m e m e r i d
0021320 i a n , 1 = \r 006 001
0021340
*
0021420 006 006 e a s t )
0021440 006 001 \r
0021460
0021500 ( T I
0021520 M E Z O N E H O U R S W O R D
0021540 ) \r
0021560
*
0021620 006
0021640 006 ( * H o u r s f r o m p
0021660 r i m e m e r i d i a n ) 006 001
0021700 \r
0021720
0021740 ( T I M E
0021760 Z O N E M I N U T E S W O R D
0022000 ) \r
0022020
*
0022060 006
0022100 006 ( * M i n u t e s | . . .
0022120 | ) 006 001 \r
0022140
0022160 (
0022200 T I M E B E G I N D S T W O R
0022220 D ) 006 006 ( * D a y o f y e
0022240 a r w h e n D S T s t a r
0022260 t s ) 006 001 \r
0022300
*
0022340 ( T I M E E N D D S T W O R D
0022360 ) 006 006 ( * D a y o f y
0022400 e a r w h e n D S T s t o
0022420 p s ) 006 001 \r
0022440
*
0022500 ) \r
0022520 ( B L O
0022540 C K R E C O R D T I M E B O D
0022560 Y ( ( N I L 2 W O R D ) \r
0022600
*
0022660 ( T I M E V A L U E H I W O
0022700 R D ) \r
0022720
*
0022760 ( T I M E V A L U E L
0023000 O W O R D ] ) \r ) \r \r ( D E C
0023020 L A R E % : E V A L @ C O M P
0023040 I L E \r \r ( R P A Q Q 006 002 \
0023060 T I M E S O C K E T 006 001 8 ) \r
0023100 \r ( R P A Q Q 006 002 \ X I P T .
0023120 E X C H A N G E 006 001 4 ) \r \r (
0023140 R P A Q Q 006 002 \ E X T Y P E .
0023160 T I M E 006 001 1 ) \r \r ( R P A Q
0023200 Q 006 002 \ X I P T . O L D T I M
0023220 E 006 001 1 2 3 ) \r \r ( R P A Q Q
0023240 006 002 \ T I M E V E R S I O N 006
0023260 001 2 ) \r \r ( R P A Q Q 006 002 \
0023300 T I M E O P . T I M E R E Q U E
0023320 S T 006 001 1 ) \r \r ( R P A Q Q
0023340 006 002 \ T I M E O P . T I M E R E
0023360 S P O N S E 006 001 2 ) \r \r ( R P
0023400 A Q Q 006 002 \ N S T I M E L E N
0023420 G T H 006 001 2 4 ) \r \r ( C O N S
0023440 T A N T S \ T I M E S O C K E
0023460 T \ X I P T . E X C H A N G E
0023500 \ E X T Y P E . T I M E \ X
0023520 I P T . O L D T I M E \ T I M
0023540 E V E R S I O N \ T I M E O P
0023560 . T I M E R E Q U E S T \r
0023600 \ T I M E O P . T I M
0023620 E R E S P O N S E \ N S T I M
0023640 E L E N G T H ) \r ) \r \r ( D E C
0023660 L A R E % : E V A L @ C O M P
0023700 I L E \r \r ( R P A Q Q 006 002 \
0023720 P U P S O C K E T . M I S C S E
0023740 R V I C E S 006 001 4 ) \r \r ( R P
0023760 A Q Q 006 002 \ P T . A L T O T I
0024000 M E R E Q U E S T 006 001 1 3 4 )
0024020 \r \r ( R P A Q Q 006 002 \ P T . A
0024040 L T O T I M E R E S P O N S E 006
0024060 001 1 3 5 ) \r \r ( R P A Q Q 006
0024100 002 \ P U P O V L E N 006 001 2 2 )
0024120 \r \r ( R P A Q Q 006 002 \ T I M E
0024140 P U P L E N G T H 006 001 1 0 ) \r
0024160 \r ( C O N S T A N T S \ P U P
0024200 S O C K E T . M I S C S E R V I
0024220 C E S \ P T . A L T O T I M E
0024240 R E Q U E S T \ P T . A L T O
0024260 T I M E R E S P O N S E \ P U
0024300 P O V L E N \ T I M E P U P L
0024320 E N G T H ) \r ) \r \r ( D E C L A
0024340 R E % : D O E V A L @ C O M P
0024360 I L E D O N T C O P Y \r \r ( G
0024400 L O B A L V A R S \ B e g i n
0024420 D S T \ E n d D S T \ T i m
0024440 e Z o n e C o m p ) \r ) \r ) \r \r
0024460 \r \r 006 004 ( * P U P I D S E R V
0024500 E R ) 006 001 \r \r ( D E F I N E Q \r
0024520 \r ( 006 004 \ P U P . I D . S E R V
0024540 E R 006 001 \r [ L A M B D A (
0024560 T R A C E F L G ) 006 006 006 001
0024600
*
0024640 006 006 ( * b v m % :
0024660 " 2 8 - O C T - 8 3 1 5 : 5
0024700 9 " ) 006 001 \r
0024720 \r 006 006 ( *
0024740 * S e r v e r t h a t p r
0024760 o v i d e s p u p n u m b e
0025000 r s g i v e n N S n u m b
0025020 e r s . \r 006 001
0025040 006 006 W o r k s o f f a l i
0025060 s t N S . T O . P U P . A L I
0025100 S T ) 006 001 \r \r ( R E S E
0025120 T L S T ( P R O G ( ( S O C
0025140 ( O P E N N S O C K E T \ N
0025160 S . W K S . P U P L O O K U P
0025200 T ) ) \r
0025220 X I P E V E
0025240 N T ) \r
0025260 ( R E S E T S A
0025300 V E N I L ( L I S T ' C L
0025320 O S E N S O C K E T S O C ) )
0025340 \r
0025360 ( C O N D \r
0025400
0025420 ( T R A C E F L G ( p r i
0025440 n t o u t T R A C E F L G "
0025460 P u p I D s e r v e r s t
0025500 a r t e d a t " ( D A T E
0025520 ) \r
0025540
0025560 T ) ) ) \r
0025600 R
0025620 E T R Y \r
0025640 [ C O N D \r
0025660
0025700 ( ( N L I S T P N
0025720 S . T O . P U P . A L I S T ) \r
0025740
0025760 ( C O N D \r
0026000
0026020 ( N S . T O .
0026040 P U P . F I L E ( S E T Q N
0026060 S . T O . P U P . A L I S T (
0026100 R E A D F I L E N S . T O . P
0026120 U P . F I L E ) ) ) \r
0026140
0026160 ( ( G E T D ' N e
0026200 t D i r N a m e L o o k u p )
0026220 006 006 ( * F o r
0026240 u s e w i t h G A T E W A
0026260 Y , w e a r e o k ) 006 001 \r
0026300
0026320 ) \r
0026340
0026360 ( T ( E R R
0026400 O R \r
0026420
0026440 " N S . T O . P U P . A L I
0026460 S T i s e m p t y , a n d
0026500 t h e r e i s n o N S .
0026520 T O . P U P . F I L E t o r
0026540 e a d f r o m " \r
0026560
0026600 )
0026620 \r
0026640 (
0026660 G O R E T R Y ] \r
0026700 ( S
0026720 E T Q E V E N T ( N S O C K
0026740 E T E V E N T S O C ) ) \r
0026760 L P
0027000 ( C O N D \r
0027020 (
0027040 ( S E T Q X I P ( G E T X I
0027060 P S O C ) ) \r
0027100
0027120 ( 006 002 \ H A N D L E . P U P . L
0027140 O O K U P 006 001 S O C X I P
0027160 T R A C E F L G ) ) \r
0027200
0027220 ( T ( A W A I T . E V E N
0027240 T E V E N T ) ) ) \r
0027260 (
0027300 G O L P ] ) \r \r ( 006 004 \ H A N
0027320 D L E . P U P . L O O K U P 006 001
0027340 \r [ L A M B D A ( N S O C
0027360 X I P T R A C E F I L E ) 006
0027400 006 006 001
0027420
0027440 006 006 ( * b v m % : " 1 2
0027460 - J u n - 8 4 1 5 : 1 4 " ) 006
0027500 001 \r \r
0027520 006 006 ( * * H a
0027540 n d l e r e q u e s t s f o
0027560 r P u p l o o k u p f r o
0027600 m N S h o s t s . \r 006 001
0027620 006 006 T h i s i
0027640 s d e s i g n e d t o b e
0027660 c a l l e d b o t h f r o
0027700 m w i t h i n g G A T E W A
0027720 Y a n d i n t h e s t a
0027740 n d a l o n e \r 006 001
0027760 006 006 P U P I D S E R V
0030000 E R ) 006 001 \r \r ( D E C L
0030020 A R E ( G L O B A L V A R S
0030040 \ 1 0 M B L O C A L N D B ) ) \r
0030060 ( P R O G ( B U F P
0030100 U P # N S H O S T # ) \r
0030120 ( C O N D \r
0030140 ( ( O R (
0030160 N E Q ( f e t c h ( X I P
0030200 X I P T Y P E ) \r
0030220
0030240 o f X I P ) \r
0030260
0030300 \ X I P T . P U P L
0030320 O O K U P ) \r
0030340 ( N E Q ( f
0030360 e t c h ( P A C K E T E X C H
0030400 A N G E X I P P A C K E T E X
0030420 C H A N G E T Y P E ) \r
0030440
0030460 o f X I P
0030500 ) \r
0030520 \ E X T Y P E
0030540 . R E Q U E S T ) ) \r
0030560 ( R E L E A S
0030600 E . X I P X I P ) ) \r
0030620 ( T ( S E T
0030640 Q N S H O S T # ( \ L O A D
0030660 N S H O S T N U M B E R ( f e
0030700 t c h ( P A C K E T E X C H A
0030720 N G E X I P P A C K E T E X C
0030740 H A N G E B O D Y ) \r
0030760
*
0031040 o f X I P ) ) ) \r
0031060 \r
0031100 006 006 ( * N o t e % : T h
0031120 e f o l l o w i n g o n l y
0031140 h a n d l e s 3 2 b i t
0031160 h o s t n u m b e r s a t
0031200 t h e m o m e n t ! ) 006 001 \r \r
0031220
0031240 [ C O N D \r
0031260 [ ( S E T Q
0031300 P U P # ( 006 002 \ G E T . P U P
0031320 # . F R O M . N S # 006 001 N S H
0031340 O S T # ) ) \r
0031360 [ A N D
0031400 \ 1 0 M B L O C A L N D B ( p
0031420 u s h ( f f e t c h ( N D B
0031440 N D B T R A N S L A T I O N S
0031460 ) \r
0031500
*
0031540 o f \ 1 0 M B L O
0031560 C A L N D B ) \r
0031600
*
0031640 ( C O N S ( f e t c
0031660 h P U P H O S T # o f P U
0031700 P # ) \r
0031720
*
0031760 ( L I S T N S H
0032000 O S T # ( C L O C K 0 ] \r
0032020
*
0032100 006 006 ( *
0032120 A d d p u p / n s t r a n
0032140 s l a t i o n t o o u r t
0032160 a b l e ) 006 001 \r
0032200 ( r e p
0032220 l a c e ( X I P X I P L E N
0032240 G T H ) \r
0032260
0032300 o f X I P w i t h ( I P L
0032320 U S \ X I P O V L E N ( U N
0032340 F O L D 6 B Y T E S P E R W
0032360 O R D ) ) ) \r
0032400 \r 006 006 ( *
0032420 D a t a % : 2 w o r d s
0032440 f o r I D , 1 f o r P A
0032460 C K E T E X C H A N G E T Y P E
0032500 , 1 f o r P U P # . \r 006 001
0032520 006 006 T h a t
0032540 ' s o n l y 4 , b u t M
0032560 e s a 1 0 . 0 s e e m s t
0032600 o w a n t 6 w o r d s ,
0032620 t h e l a s t 2 b e i n g
0032640 z e r o ) 006 001 \r \r
0032660 ( r
0032700 e p l a c e ( P A C K E T E X
0032720 C H A N G E X I P P A C K E T
0032740 E X C H A N G E T Y P E ) \r
0032760
0033000 o f X I P
0033020 w i t h \ E X T Y P E . R E S
0033040 P O N S E ) \r
0033060 ( S E T Q
0033100 B U F ( f e t c h ( P A C
0033120 K E T E X C H A N G E X I P P
0033140 A C K E T E X C H A N G E B O D
0033160 Y ) \r
0033200
0033220 o f X I P ) )
0033240 \r
0033260 ( \ P U T B A S E B
0033300 U F 0 P U P # ) \r
0033320 (
0033340 \ P U T B A S E B U F 1 0
0033360 ) \r
0033400 ( \ P U T B A S E
0033420 B U F 2 0 ) \r
0033440 ( C O
0033460 N D \r
0033500 ( T R A C E
0033520 F I L E ( P R I N T N S H O S
0033540 T N U M B E R N S H O S T #
0033560 T R A C E F I L E ) \r
0033600
0033620 ( p r i n t o
0033640 u t T R A C E F I L E " =
0033660 " ( P O R T S T R I N G P
0033700 U P # ) \r
0033720
0033740 T ] \r
0033760
0034000 ( T ( R E T U R N ( R E L E
0034020 A S E . X I P X I P ) ) ) \r
0034040
0034060 ( N I L \r
0034100 \r 006 006 (
0034120 * T h i s i s w h a t t
0034140 o d o f o r a n e g a t
0034160 i v e r e s p o n s e . \r 006 001
0034200 006 006 H o w e
0034220 v e r , t h e c u r r e n t
0034240 s t a t e o f t h e w o
0034260 r l d i s t h a t w e c
0034300 a n ' t r e l i a b l y g i
0034320 v e n e g a t i v e \r 006 001
0034340 006 006 r e s p o
0034360 n s e s ( s o m e o n e e l
0034400 s e m i g h t k n o w b e
0034420 t t e r ) % , s o s k i p
0034440 t h i s ) 006 001 \r \r
0034460
0034500 ( r e p l a c e ( P A C K E
0034520 T E X C H A N G E X I P P A C
0034540 K E T E X C H A N G E T Y P E )
0034560 \r
0034600
0034620 o f X I P w i t h \ E X T
0034640 Y P E . N E G A T I V E ) \r
0034660
0034700 ( r e p l a c e (
0034720 X I P X I P L E N G T H ) \r
0034740
0034760 o f
0035000 X I P w i t h ( I P L U S
0035020 \ X I P O V L E N ( U N F O
0035040 L D 3 B Y T E S P E R W O R
0035060 D ) ) ) \r
0035100 ( C O
0035120 N D \r
0035140 ( T
0035160 R A C E F I L E ( p r i n t o
0035200 u t T R A C E F I L E " N o
0035220 p u p n u m b e r f o r
0035240 " ) \r
0035260
0035300 ( P R I N T N S H O S
0035320 T N U M B E R N S H O S T #
0035340 T R A C E F I L E ) \r
0035360
0035400 ( T E
0035420 R P R I T R A C E F I L E ] \r
0035440
0035460 ( S W A P X I P A D D R E S S E
0035500 S X I P ) \r
0035520 ( r e p l a c e
0035540 ( X I P X I P S O U R C E H O
0035560 S T ) \r
0035600 o f X I
0035620 P w i t h ( \ L O C A L N S
0035640 H O S T N U M B E R ) ) \r
0035660 ( r e
0035700 p l a c e ( X I P X I P S O
0035720 U R C E N E T ) \r
0035740
0035760 o f X I P w i t h ( \ L O
0036000 C A L N S N E T N U M B E R ) )
0036020 \r
0036040 ( r e p l a c e E P R E Q U
0036060 E U E o f X I P w i t h
0036100 ' F R E E ) \r
0036120 ( S E N D X I P
0036140 N S O C X I P ] ) \r \r ( 006 004 \
0036160 G E T . P U P # . F R O M . N S
0036200 # 006 001 \r [ L A M B D A ( N
0036220 S H O S T # ) 006 006 006 001
0036240
*
0036300 006 006 ( * ; " E d i
0036320 t e d 1 7 - A p r - 8 7 1 1
0036340 : 3 6 b y r a f " ) 006 001 \r
0036360 ( C D R ( S A S S O C
0036400 N S H O S T # N S . T O . P U
0036420 P . A L I S T ] ) \r ) \r \r ( R P
0036440 A Q ? 006 002 N S . T O . P U P .
0036460 A L I S T 006 001 N I L ) \r \r ( R
0036500 P A Q ? 006 002 N S . T O . P U P
0036520 . F I L E 006 001 N I L ) \r ( D E
0036540 C L A R E % : E V A L @ C O M
0036560 P I L E D O N T C O P Y \r (
0036600 D E C L A R E % : D O E V A L
0036620 @ C O M P I L E D O N T C O P
0036640 Y \r \r ( G L O B A L V A R S N
0036660 S . T O . P U P . A L I S T N
0036700 S . T O . P U P . F I L E ) \r )
0036720 \r \r ( F I L E S L O A D ( L O
0036740 A D C O M P ) \r L
0036760 L N S ) \r ) \r ( P U T P R O P S
0037000 M I N I S E R V E C O P Y R
0037020 I G H T ( " X e r o x C o r
0037040 p o r a t i o n " 1 9 8 4 1
0037060 9 8 7 ) ) \r ( D E C L A R E % :
0037100 D O N T C O P Y \r ( F I L
0037120 E M A P ( N I L ( 1 6 8 4
0037140 2 0 2 2 ( S T A R T M I N I S
0037160 E R V E R 1 6 9 4 . 2 0 2
0037200 0 ) ) ( 2 0 2 3 6 0 1 7 (
0037220 \ N S T I M E S E R V E R 2 0
0037240 3 3 . 2 5 5 5 ) ( \r \ H A
0037260 N D L E . N S . T I M E R E Q
0037300 2 5 5 7 . 6 0 1 5 ) ) ( 6
0037320 0 1 8 7 9 4 3 ( \ P U P T I
0037340 M E S E R V E R 6 0 2 8 .
0037360 6 7 6 2 ) ( \ H A N D L E . P
0037400 U P . A L T O T I M E R E Q 6
0037420 7 6 4 \r . 7 9 4 1 ) ) ( 1
0037440 0 5 6 7 1 5 6 4 3 ( \ P U P
0037460 . I D . S E R V E R 1 0 5 7 7
0037500 . 1 1 9 7 5 ) ( \ H A N D
0037520 L E . P U P . L O O K U P 1 1
0037540 9 7 7 . 1 5 4 6 6 ) ( \r \
0037560 G E T . P U P # . F R O M . N S
0037600 # 1 5 4 6 8 . 1 5 6 4 1 )
0037620 ) ) ) ) \r S T O P \r
0037632