$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TCPFTP!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 : 0 7 : 1 6 " 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 F T P . ; 4 2
0000220 006 001 5 9 7 2 0 \r \r
0000240 c h a n g e s t o % :
0000260 ( V A R S T C P F T P C O M S
0000300 ) \r \r p r e v i o u
0000320 s d a t e % : " 8 - J a n
0000340 - 8 7 1 6 : 4 0 : 2 5 " { E
0000360 R I S } < L I S P C O R E > L I
0000400 B R A R Y > T C P F T P . ; 4 1
0000420 ) \r \r \r ( * " \r C o p y r i g
0000440 h t ( c ) 1 9 8 5 , 1 9 8
0000460 6 , 1 9 0 0 , 1 9 8 7 b y
0000500 X e r o x C o r p o r a t i
0000520 o n . A l l r i g h t s
0000540 r e s e r v e d . \r " ) \r \r ( P
0000560 R E T T Y C O M P R I N T T C
0000600 P F T P C O M S ) \r \r ( R P A Q
0000620 Q 006 002 T C P F T P C O M S 006 001
0000640 \r [ [ C O M S
0000660 \r \r
0000700 006 006 ( * ; ; " F
0000720 N S f r o m L a r r y ' s
0000740 I n t e r l i s p - 1 0 L I S
0000760 P U S E R S p a c k a g e " )
0001000 006 001 \r \r
0001020 ( F N S A R P A C M D F
0001040 T P H E L P C M D R E A D C O
0001060 D E C M D R E A D D I S C A
0001100 R D L I N E G E T L I N E \
0001120 T C P F T P . I N P U T T E L
0001140 N E T . E O L ) \r
0001160 ( I N I T V A R S
0001200 ( \ T C P F T P . A R P A C M
0001220 D . L O C K ( C R E A T E . M
0001240 O N I T O R L O C K " A R P A
0001260 C M D L o c k " ) ) ) \r
0001300 ( G L O B
0001320 A L V A R S \ T C P F T P . A
0001340 R P A C M D . L O C K ) \r
0001360 ( D E C L
0001400 A R E % : D O N T E V A L @ L
0001420 O A D D O E V A L @ C O M P I
0001440 L E D O N T C O P Y C O M P
0001460 I L E R V A R S ( A D D V A R
0001500 S ( N L A M A ) \r
0001520
*
0001620 ( N L
0001640 A M L ) \r
0001660
*
0001760 ( L A M A F T
0002000 P H E L P ] \r (
0002020 C O M S \r
0002040 \r 006 006 ( *
0002060 ; ; " F N S f o r t h e
0002100 I n t e r l i s p - D s t r e
0002120 a m s f a c i l i t y " ) 006 001
0002140 \r \r
0002160 ( F N S \ T C P F T P . C O N
0002200 T R O L . C L O S E D \ T C P
0002220 F T P . G E T . O S T Y P E \
0002240 T C P F T P . E V E N T F N \
0002260 T C P F T P . H O S T N A M E P
0002300 \r
0002320 \ G E T . T C P F T P
0002340 . C O N N E C T I O N \ T C P
0002360 F T P . O P E N . C O N N E C T
0002400 I O N \ T C P F T P . A S S U
0002420 R E . C L E A N U P \r
0002440 \
0002460 T C P F T P . C L E A N U P \
0002500 T C P F T P . R E L E A S E . C
0002520 O N N E C T I O N \ T C P F T
0002540 P . L O G I N \ T C P F T P .
0002560 D E L E T E F I L E \r
0002600 \
0002620 T C P F T P . D I R E C T O R Y
0002640 N A M E P \ T C P F T P . E N
0002660 D O F S T R E A M O P \ T C P
0002700 F T P . G E N E R A T E F I L E
0002720 S \r
0002740 \ T C P F T P . G E
0002760 N E R A T E N E X T F I L E \
0003000 T C P F T P . G E T F I L E N A
0003020 M E \ T C P F T P . G E T F I
0003040 L E I N F O \r
0003060 \ T C P F
0003100 T P . S E T F I L E I N F O \
0003120 T C P F T P . R E N A M E F I L
0003140 E \ T C P F T P . C O N N E C
0003160 T \ T C P F T P . O P E N F I
0003200 L E \r
0003220 \ T C P F T P . C
0003240 L O S E \ T C P F T P . F L U
0003260 S H \ T C P F T P . I N I T )
0003300 \r (
0003320 D E C L A R E % : E V A L @ C
0003340 O M P I L E D O N T C O P Y
0003360 ( E X P O R T ( R E C O R D S
0003400 T C P D A T A S T R E A M T
0003420 C P F T P C O N ) ) ) \r
0003440 ( A D D V A
0003460 R S ( T C P F T P . D E F A U
0003500 L T . F I L E T Y P E S ( N I
0003520 L . T E X T ) \r
0003540
0003560 ( D C O M .
0003600 B I N A R Y ) \r
0003620
0003640 ( d c o m . B I
0003660 N A R Y ) \r
0003700
0003720 ( L I S P . T E X T
0003740 ) \r
0003760
0004000 ( l i s p . T E X T ) \r
0004020
0004040 ( L S P
0004060 . T E X T ) \r
0004100
0004120 ( l s p . T E
0004140 X T ) \r
0004160
0004200 ( R S T . B I N A R Y )
0004220 \r
0004240 (
0004260 r s t . B I N A R Y ) \r
0004300
0004320 ( B I N
0004340 . B I N A R Y ) \r
0004360
0004400 ( b i n .
0004420 B I N A R Y ) ) ) \r
0004440 ( I N I T V A R
0004460 S ( T C P . D E F A U L T F I
0004500 L E T Y P E ' B I N A R Y ) \r
0004520
0004540 ( T C P . U S E . S T
0004560 A N D A R D . E O L T ) \r
0004600
0004620 ( \ T C P F T P . D E V I
0004640 C E S ) \r
0004660 ( \ T C P F
0004700 T P . C L E A N U P . P R O C E
0004720 S S ) ) \r
0004740 ( G L O B A L V A R S \
0004760 T C P F T P . D E V I C E S \
0005000 T C P F T P . C L E A N U P . P
0005020 R O C E S S T C P . D E F A U
0005040 L T F I L E T Y P E \r
0005060
0005100 T C P . U S E . S T A N D A R
0005120 D . E O L ) ) \r
0005140 ( C O M S \r
0005160 \r 006 006 ( *
0005200 ; ; " D a t a c o n n e c
0005220 t i o n h a n d l i n g " ) 006
0005240 001 \r \r
0005260 ( F N S \ T C P . B Y E \
0005300 T C P F T P . M A Y B E . A B O
0005320 R T \ T C P F T P . D A T A .
0005340 C L O S E D \ T C P F T P . O
0005360 P E N . D A T A . C O N N E C T
0005400 I O N \r
0005420 \ T C P F T P .
0005440 P O R T . S T R I N G \ T C P
0005460 F T P . S P A W N . D A T A C O
0005500 N N E C T I O N \ T C P F T P
0005520 . T R A N S F E R . C O M P L E
0005540 T E \r
0005560 \ T C P F T P . W
0005600 A I T . F O R . D A T A C O N N
0005620 E C T I O N \ T C P F T P . D
0005640 E L E T E . C O N N E C T I O N
0005660 ) \r
0005700 ( I N I T V A R S ( \ T C P F
0005720 T P . D A T A C O N N E C T I O
0005740 N . L O C K ( C R E A T E . M
0005760 O N I T O R L O C K \r
0006000
*
0006060 " T C P F T P
0006100 D a t a C o n n e c t i o n
0006120 L o c k " ) ) \r
0006140 ( \ T
0006160 C P F T P . C O N N E C T I O N
0006200 . L O C K ( C R E A T E . M O
0006220 N I T O R L O C K " T C P F T
0006240 P C o n n e c t i o n L o c
0006260 k " ) ) \r
0006300 ( \ T C P F
0006320 T P . I D L E . T I M E O U T
0006340 ( T I M E S 1 0 6 0 1 0 0
0006360 0 ) ) ) \r
0006400 ( G L O B A L V A R S \
0006420 T C P F T P . D A T A C O N N E
0006440 C T I O N . L O C K \ T C P F
0006460 T P . C O N N E C T I O N . L O
0006500 C K \ T C P F T P . I D L E .
0006520 T I M E O U T ) ) \r
0006540 ( F I L E S ( S Y S L O A
0006560 D ) \r
0006600 T C P N A M E S T C P ) \r
0006620 ( P ( \ T C P
0006640 F T P . I N I T ) ) \r
0006660 ( D E C L A R E % : D O
0006700 N T E V A L @ L O A D D O E V
0006720 A L @ C O M P I L E D O N T C
0006740 O P Y C O M P I L E R V A R S
0006760 ( A D D V A R S ( N L A M A
0007000 ) \r
0007020
*
0007100 (
0007120 N L A M L ) \r
0007140
*
0007240 ( L A M A ] ) \r \r \r \r 006
0007260 004 ( * ; ; " F N S f r o m
0007300 L a r r y ' s I n t e r l i
0007320 s p - 1 0 L I S P U S E R S
0007340 p a c k a g e " ) 006 001 \r \r ( D E
0007360 F I N E Q \r \r ( 006 004 A R P A C M
0007400 D 006 001 \r [ L A M B D A ( T
0007420 C P F T P C O N C M D A R G
0007440 W A N T D I S C A R D W A
0007460 N T A R G ) 006 006 006 001
0007500 006 006 ( * e j s % :
0007520 " 1 5 - N o v - 8 6 1 5 : 0 9
0007540 " ) 006 001 006 006 006 001 \r
0007560
*
0007640 006 006 ( * l m m "
0007660 1 6 - O C T - 7 8 0 2 : 5 7 "
0007700 ) 006 001 \r ( 006 002 D E C L A
0007720 R E 006 001 ( G L O B A L V A R S
0007740 \ T C P F T P . A R P A C M D
0007760 . L O C K ) ) \r ( W I T
0010000 H . M O N I T O R \ T C P F T
0010020 P . A R P A C M D . L O C K \r
0010040 ( L E T (
0010060 ( I N C ( 006 002 f e t c h 006 001
0010100 ( T C P F T P C O N T C P I N
0010120 ) 006 002 o f 006 001 T C P F T P C
0010140 O N ) ) \r
0010160 ( O U T C ( 006 002 f
0010200 e t c h 006 001 ( T C P F T P C O
0010220 N T C P O U T ) 006 002 o f 006 001
0010240 T C P F T P C O N ) ) ) \r
0010260 ( R
0010300 E S E T L S T [ R E S E T S A
0010320 V E N I L ` ( C O N D \r
0010340
*
0010400 ( R E S E
0010420 T S T A T E ( A N D ( O P E
0010440 N P % , I N C ' I N P U T
0010460 ) \r
0010500
*
0010560 ( C L O S E F % , I N C ) )
0010600 \r
0010620
*
0010660 ( A N D ( O P E N P
0010700 % , O U T C ' O U T P U T
0010720 ) \r
0010740
*
0011000 ( C L O S
0011020 E F % , O U T C ] \r
0011040
0011060 ( P R O G N I L \r
0011100
0011120 [ C O N D \r
0011140
*
0011200 ( C M D [ C O N D \r
0011220
*
0011260 ( F T P D E B U G F L G
0011300 ( p r i n t o u t F T P D E B
0011320 U G L O G C M D ) \r
0011340
*
0011400 ( C O N D \r
0011420
*
0011500 ( A R G ( p r i n t o u t
0011520 F T P D E B U G L O G " "
0011540 A R G ] \r
0011560
0011600 ( P R I N
0011620 3 C M D O U T C ) \r
0011640
*
0011700 ( C O N D \r
0011720
0011740 (
0011760 A R G ( P R I N 3 " " O
0012000 U T C ) \r
0012020
*
0012060 ( P R I N 3 A R G O U T
0012100 C ) ) ) \r
0012120
0012140 ( 006 002 T E L
0012160 N E T . E O L 006 001 O U T C ) \r
0012200
*
0012240 ( F O R C E O U T P U
0012260 T O U T C ) 006 006 (
0012300 * f l u s h ) 006 001 \r
0012320
*
0012360 ( C O N D \r
0012400
0012420 ( F
0012440 T P D E B U G F L G ( T E R P
0012460 R I F T P D E B U G L O G ] \r
0012500
0012520 L P ( C O
0012540 N D \r
0012560
0012600 ( F T P D E B U G F L G
0012620 ( p r i n t o u t F T P D E B
0012640 U G L O G " < " ) ) ) \r
0012660
0012700 ( S E T Q
0012720 C M D ( 006 002 \ T C P F T P .
0012740 I N P U T 006 001 I N C ) ) \r
0012760
0013000 ( C O N D
0013020 \r
0013040
0013060 ( F T P D E B U G F L G ( p
0013100 r i n t o u t F T P D E B U G
0013120 L O G C M D " " ) ) ) \r
0013140
0013160 ( C O N
0013200 D \r
0013220
0013240 ( ( E Q M E M B C M D W
0013260 A N T A R G ) \r
0013300
0013320 ( A N D ( E
0013340 Q ( B I N I N C ) \r
0013360
*
0013420 ( C H A R C O D E
0013440 006 002 - 006 001 ) ) \r
0013460
0013500 ( 006
0013520 002 F T P H E L P 006 001 C M D ) )
0013540 \r
0013560
0013600 ( R E T U R N C M D ) ) )
0013620 \r
0013640 [ C
0013660 O N D \r
0013700
0013720 ( ( E Q ( B I N I N
0013740 C ) \r
0013760
0014000 ( C H A R C O D
0014020 E 006 002 - 006 001 ) ) \r
0014040
0014060 ( 006 002 d o
0014100 006 001 ( 006 002 D I S C A R D L I N
0014120 E 006 001 I N C ) 006 002 r e p e a
0014140 t u n t i l 006 001 ( E Q ( 006 002
0014160 \ T C P F T P . I N P U T 006 001
0014200 I N C ) \r
0014220
*
0014300 C M D ]
0014320 \r
0014340 ( C
0014360 O N D \r
0014400
0014420 ( ( E Q M E M B C M D
0014440 W A N T ) \r
0014460
0014500 ( 006 002 D I S C A
0014520 R D L I N E 006 001 I N C ) \r
0014540
0014560 (
0014600 R E T U R N C M D ) ) \r
0014620
0014640 ( ( E
0014660 Q M E M B C M D D I S C A R
0014700 D ) \r
0014720
0014740 ( 006 002 D I S C A R D L I
0014760 N E 006 001 I N C ) \r
0015000
0015020 ( G O L
0015040 P ) ) ) \r
0015060
0015100 ( S E L E C T Q ( A N D
0015120 ( F I X P C M D ) \r
0015140
*
0015200 ( I Q U O T I E N T
0015220 C M D 1 0 0 ) ) \r
0015240
0015260 ( ( 2
0015300 3 ) \r
0015320
0015340 ( 006 002 F T P
0015360 H E L P 006 001 C M D ) ) \r
0015400
0015420 ( (
0015440 4 5 ) \r
0015460
0015500 ( E R R
0015520 O R ( 006 002 G E T L I N E 006 001
0015540 I N C T ) ) ) \r
0015560
0015600 N I L ) \r
0015620
0015640 ( 006 002 D
0015660 I S C A R D L I N E 006 001 I N C
0015700 ) \r
0015720 (
0015740 G O L P ] ) \r \r ( 006 004 F T P H
0015760 E L P 006 001 \r [ L A M B D A
0016000 ( A R G ) 006 006 006 001
0016020
*
0016060 006 006 ( * e j s %
0016100 : " 2 9 - J a n - 8 5 1 7 :
0016120 0 2 " ) 006 001 \r ( E R R O
0016140 R A R G " u n r e c o g n
0016160 i z e d r e s p o n s e f r
0016200 o m r e m o t e F T P s e
0016220 r v e r " ] ) \r \r ( 006 004 C M D R
0016240 E A D C O D E 006 001 \r [ L A M
0016260 B D A ( 006 002 I N 006 001 ) 006 006 006 001
0016300
*
0016340 006
0016360 006 ( * l m m " 3 1 - M A Y -
0016400 7 8 0 0 : 4 5 " ) 006 001 \r
0016420 ( P A C K * ( 006 002 C M D R E
0016440 A D 006 001 I N ) \r
0016460 ( 006 002 C M D R E A D 006 001
0016500 I N ) \r
0016520 ( 006 002 C M D R E A D 006 001 I N ]
0016540 ) \r \r ( 006 004 C M D R E A D 006 001 \r
0016560 [ L A M B D A ( 006 002 I N 006
0016600 001 ) 006 006 006 001
0016620
*
0016660 006 006 ( * e j s % :
0016700 " 1 2 - J a n - 8 5 1 4 : 2 8
0016720 " ) 006 001 \r ( [ L A M B D
0016740 A ( C H ) \r ( C
0016760 O N D \r ( F
0017000 T P D E B U G F L G ( B O U T
0017020 C H F T P D E B U G L O G )
0017040 ) ) \r C H ] \r
0017060 ( B I N I N ] ) \r \r ( 006
0017100 004 D I S C A R D L I N E 006 001 \r
0017120 [ L A M B D A ( 006 002 I N 006 001
0017140 ) 006 006 006 001
0017160
*
0017220 006 006 ( * e j s % : "
0017240 3 - F e b - 8 6 1 6 : 1 6 "
0017260 ) 006 001 006 006 006 001 \r
0017300
*
0017360 006 006 ( * l m m " 3
0017400 1 - M A Y - 7 8 0 0 : 4 5 " )
0017420 006 001 \r ( 006 002 D E C L A R
0017440 E 006 001 ( G L O B A L V A R S
0017460 F T P D E B U G F L G F T P D
0017500 E B U G L O G ) ) \r ( C
0017520 O N D \r ( F T P D
0017540 E B U G F L G ( \ B A C K F I
0017560 L E P T R I N ) \r
0017600 ( 006 002 b i n d 006
0017620 001 C H 006 002 u n t i l 006 001 [
0017640 F M E M B ( S E T Q C H (
0017660 B I N I N ) ) \r
0017700
0017720 ( C O
0017740 N S T A N T ( L I S T ( C H
0017760 A R C O D E L F ) \r
0020000
*
0020040 (
0020060 C H A R C O D E N U L L ] 006
0020100 002 d o 006 001 ( B O U T F T P D
0020120 E B U G L O G C H ) \r
0020140 006 002 f
0020160 i n a l l y 006 001 ( T E R P R I
0020200 F T P D E B U G L O G ) ) ) \r
0020220 ( T ( 006 002 u n t
0020240 i l 006 001 ( F M E M B ( B I N
0020260 I N ) \r
0020300 ( C O
0020320 N S T A N T ( L I S T ( C H
0020340 A R C O D E L F ) \r
0020360
*
0020420 ( C H A R C O D E N U L
0020440 L ] ) \r \r ( 006 004 G E T L I N E 006
0020460 001 \r [ L A M B D A ( 006 002 I
0020500 N 006 001 F L G ) 006 006 006 001
0020520
*
0020560 006 006 ( * e j s %
0020600 : " 1 2 - J a n - 8 5 1 4 :
0020620 4 0 " ) 006 001 006 006 006 001 \r
0020640
*
0020720 006 006 ( * l m m
0020740 " 3 1 - M A Y - 7 8 0 0 : 4
0020760 6 " ) 006 001 \r ( 006 002 b i n
0021000 d 006 001 C H ( S T R I N G _
0021020 ( A L L O C S T R I N G 8 0
0021040 ) ) 006 002 f o r 006 001 P O S 006
0021060 002 f r o m 006 001 1 006 002 w h i l
0021100 e 006 001 ( N E Q ( S E T Q C
0021120 H ( B I N I N ) ) \r
0021140
*
0021220 (
0021240 C H A R C O D E L F ) ) \r
0021260 006 002 d o 006 001 ( C O N
0021300 D \r (
0021320 ( L E Q P O S 8 0 ) \r
0021340 ( R P L C
0021360 H A R C O D E S T R I N G P
0021400 O S C H ) ) ) 006 002 f i n a l
0021420 l y 006 001 ( R E T U R N ( S U
0021440 B S T R I N G S T R I N G 1
0021460 ( S U B 1 P O S ] ) \r \r ( 006
0021500 004 \ T C P F T P . I N P U T 006 001
0021520 \r [ L A M B D A ( S T R E
0021540 A M ) 006 006 006 001
0021560
*
0021620 006 006 ( * e j s % : " 1 5
0021640 - N o v - 8 6 1 5 : 0 2 " ) 006
0021660 001 \r ( P R O G ( ( C O
0021700 D E 0 ) ) \r
0021720 [ 006 002 b i n d 006 001 C H 006 002
0021740 u n t i l 006 001 ( O R ( E Q
0021760 C H ( C H A R C O D E 006 002 -
0022000 006 001 ) ) \r
0022020
0022040 ( E Q C H 0 ) \r
0022060
0022100 ( E Q C H
0022120 ( C H A R C O D E S P A C E )
0022140 ) ) 006 002 d o 006 001 ( S E T Q
0022160 C H ( B I N S T R E A M ) )
0022200 \r
0022220
*
0022260 [ C O N D
0022300 \r
0022320
*
0022360 ( (
0022400 A N D ( I G E Q C H ( C H
0022420 A R C O D E 0 ) ) \r
0022440
*
0022520 ( I
0022540 L E Q C H ( C H A R C O D E
0022560 9 ) ) ) \r
0022600
*
0022660 ( S E T Q C O D E (
0022700 I P L U S ( I T I M E S C O
0022720 D E 1 0 ) \r
0022740
*
0023040 ( I D I F F E R E
0023060 N C E \r
0023100
*
0023200 C H \r
0023220
*
0023320 ( C H A R C O
0023340 D E 0 ] \r
0023360 006 002 f i n a l l y 006 001 (
0023400 C O N D \r
0023420 ( ( E
0023440 Q C H ( C H A R C O D E 006
0023460 002 - 006 001 ) ) \r
0023500
0023520 ( C O N D \r
0023540
0023560 ( F T P D E B U G F L G (
0023600 p r i n t o u t F T P D E B U
0023620 G L O G T " < " C O D E
0023640 ) ) ) \r
0023660 ( 006 002
0023700 D I S C A R D L I N E 006 001 S T
0023720 R E A M ) \r
0023740 (
0023760 006 002 \ T C P F T P . I N P U T 006
0024000 001 S T R E A M ] \r
0024020 ( R E T U R N C O D E
0024040 ] ) \r \r ( 006 004 T E L N E T . E O
0024060 L 006 001 \r [ L A M B D A ( S
0024100 T R E A M ) 006 006 006 001
0024120
*
0024160 006 006 ( * e j s % :
0024200 " 5 - J a n - 8 5 1 8 : 4 4
0024220 " ) 006 001 \r ( B O U T S
0024240 T R E A M ( C H A R C O D E
0024260 C R ) ) \r ( B O U T S
0024300 T R E A M ( C H A R C O D E
0024320 L F ) ) \r ( F O R C E O
0024340 U T P U T S T R E A M ] ) \r )
0024360 \r \r ( R P A Q ? 006 002 \ T C P F
0024400 T P . A R P A C M D . L O C K 006
0024420 001 ( C R E A T E . M O N I T O
0024440 R L O C K " A R P A C M D L
0024460 o c k " ) ) \r ( D E C L A R E %
0024500 : D O E V A L @ C O M P I L E
0024520 D O N T C O P Y \r \r ( G L O B
0024540 A L V A R S \ T C P F T P . A
0024560 R P A C M D . L O C K ) \r ) \r (
0024600 D E C L A R E % : D O N T E V
0024620 A L @ L O A D D O E V A L @ C
0024640 O M P I L E D O N T C O P Y
0024660 C O M P I L E R V A R S \r \r (
0024700 A D D T O V A R 006 002 N L A M A
0024720 006 001 ) \r \r ( A D D T O V A R
0024740 006 002 N L A M L 006 001 ) \r \r ( A D
0024760 D T O V A R 006 002 L A M A 006 001
0025000 F T P H E L P ) \r ) \r \r \r \r 006 004
0025020 ( * ; ; " F N S f o r t
0025040 h e I n t e r l i s p - D s
0025060 t r e a m s f a c i l i t y "
0025100 ) 006 001 \r \r ( D E F I N E Q \r \r (
0025120 006 004 \ T C P F T P . C O N T R O
0025140 L . C L O S E D 006 001 \r [ L A
0025160 M B D A ( I N S T R E A M O
0025200 U T S T R E A M ) 006 006 006 001
0025220
0025240 006 006 ( *
0025260 e j s % : " 2 8 - J u l - 8
0025300 6 1 4 : 3 0 " ) 006 001 \r
0025320 ( L E T * [ ( D E V I C E (
0025340 006 002 f e t c h 006 001 ( S T R E A
0025360 M D E V I C E ) 006 002 o f 006 001
0025400 I N S T R E A M ) ) \r
0025420 ( T C P F T P C O
0025440 N ( 006 002 f o r 006 001 C O N N
0025460 006 002 i n 006 001 ( 006 002 f e t c h 006
0025500 001 ( F D E V D E V I C E I N
0025520 F O ) 006 002 o f 006 001 D E V I C
0025540 E ) \r
0025560 006 002 t h
0025600 e r e i s 006 001 ( E Q ( 006 002 f
0025620 e t c h 006 001 ( T C P F T P C O
0025640 N T C P I N ) 006 002 o f 006 001
0025660 C O N N ) \r
0025700
0025720 I N S T R
0025740 E A M ] \r (
0025760 C O N D \r
0026000 ( T C P F T P C O N ( 006 002
0026020 r e p l a c e 006 001 ( S T R E A
0026040 M A C C E S S ) 006 002 o f 006 001
0026060 I N S T R E A M 006 002 w i t h
0026100 006 001 ( 006 002 r e p l a c e 006 001
0026120 ( S T R E A M A C C E S S ) \r
0026140
*
0026240 006 002 o f 006 001 O U T S
0026260 T R E A M 006 002 w i t h 006 001 N
0026300 I L ) ) \r
0026320 ( 006 002 r e p l
0026340 a c e 006 001 ( F D E V D E V I
0026360 C E I N F O ) 006 002 o f 006 001 D
0026400 E V I C E 006 002 w i t h 006 001 (
0026420 D R E M O V E T C P F T P C O
0026440 N ( 006 002 f e t c h 006 001 ( F D
0026460 E V \r
0026500
*
0026600 D
0026620 E V I C E I N F O \r
0026640
*
0026760 ) \r
0027000
*
0027100 006 002
0027120 o f 006 001 D E V I C E ] ) \r \r (
0027140 006 004 \ T C P F T P . G E T . O S
0027160 T Y P E 006 001 \r [ L A M B D A
0027200 ( D E V I C E ) 006 006 006 001
0027220
*
0027260 006 006 ( * e j s
0027300 % : " 2 3 - F e b - 8 5 1 6
0027320 : 4 0 " ) 006 001 \r ( L E T
0027340 * ( ( H O S T ( 006 002 f e t c
0027360 h 006 001 ( F D E V D E V I C E
0027400 N A M E ) 006 002 o f 006 001 D E V
0027420 I C E ) ) \r
0027440 E N T R Y ) \r
0027460 ( C O N D \r
0027500 [ ( A N D ( F A S S
0027520 O C H O S T \ H O S T N A M
0027540 E S ) \r
0027560 ( G E T H O S T I
0027600 N F O H O S T ' O S T Y P E
0027620 ] \r (
0027640 ( S E T Q E N T R Y ( G E T
0027660 H A S H H O S T \ I P . H O
0027700 S T N A M E S ) ) \r
0027720 ( 006 002 f e t c h
0027740 006 001 ( H O S T S . T X T . E N
0027760 T R Y H T E . O S . T Y P E )
0030000 006 002 o f 006 001 E N T R Y ] ) \r
0030020 \r ( 006 004 \ T C P F T P . E V E N
0030040 T F N 006 001 \r [ L A M B D A
0030060 ( F D E V F L G ) 006 006 006 001
0030100
*
0030140 006 006 ( * e j s %
0030160 : " 2 3 - A p r - 8 5 1 8 :
0030200 5 6 " ) 006 001 \r
0030220 \r 006 006 ( *
0030240 * C a l l e d w h e n a
0030260 m a j o r e v e n t h a p
0030300 p e n s ) 006 001 \r \r ( S E
0030320 L E C T Q F L G \r
0030340 ( ( B E F O R E L O G O U T
0030360 B E F O R E S Y S O U T B E
0030400 F O R E M A K E S Y S ) \r
0030420 [ 006 002 b i
0030440 n d 006 001 T C P I N T C P O U
0030460 T D A T A S T R E A M 006 002 f
0030500 o r 006 001 T C P F T P C O N 006
0030520 002 i n 006 001 ( 006 002 f e t c h 006 001
0030540 ( F D E V D E V I C E I N F
0030560 O ) 006 002 o f 006 001 F D E V ) \r
0030600
0030620 006 002 d o 006 001 ( S E T Q T C P
0030640 I N ( 006 002 f e t c h 006 001 ( T
0030660 C P F T P C O N T C P I N )
0030700 006 002 o f 006 001 T C P F T P C O N
0030720 ) ) \r
0030740 ( S E T Q T C P O
0030760 U T ( 006 002 f e t c h 006 001 ( T
0031000 C P F T P C O N T C P O U T )
0031020 006 002 o f 006 001 T C P F T P C O
0031040 N ) ) \r
0031060 ( S E T Q D A T
0031100 A S T R E A M ( 006 002 f e t c h
0031120 006 001 ( T C P F T P C O N D A
0031140 T A S T R E A M ) 006 002 o f 006 001
0031160 T C P F T P C O N ) ) \r
0031200
0031220 ( C O N D \r
0031240 ( ( O P
0031260 E N P T C P I N ' I N P U T
0031300 ) \r
0031320 ( C L O S E F
0031340 T C P I N ) ) ) \r
0031360 ( C O
0031400 N D \r
0031420 ( ( O P E N P
0031440 T C P O U T ' O U T P U T )
0031460 \r
0031500 ( C L O S E F
0031520 T C P O U T ) ) ) \r
0031540 ( C O
0031560 N D \r
0031600 ( ( O P E N P
0031620 D A T A S T R E A M ) \r
0031640
0031660 ( C L O S E F D A T A
0031700 S T R E A M ] ) \r
0031720 N I L ] ) \r \r ( 006 004 \ T C P F
0031740 T P . H O S T N A M E P 006 001 \r
0031760 [ L A M B D A ( H O S T D
0032000 E V I C E ) 006 006 006 001
0032020
*
0032060 006 006 ( * e j s % : " 2 4 - M
0032100 a r - 8 6 1 4 : 3 6 " ) 006 001 \r
0032120 ( 006 002 D E C L A R E 006 001
0032140 ( G L O B A L V A R S \ T C
0032160 P . D E V I C E \ T C P F T P
0032200 . D E V I C E S ) ) \r (
0032220 P R O G ( ( S E R V E R ( O
0032240 R ( D O D I P . H O S T P H
0032260 O S T ) \r
0032300 ( \ I P
0032320 . R E A D . S T R I N G . A D D
0032340 R E S S H O S T ) ) ) \r
0032360 F U L L H O S T
0032400 N A M E F I L I N G N A M E )
0032420 \r ( R E T U
0032440 R N ( C O N D \r
0032460 ( (
0032500 N O T S E R V E R ) \r
0032520
0032540 N I L ) \r
0032560 ( ( \ G
0032600 E T D E V I C E F R O M N A M E
0032620 ( S E T Q F U L L H O S T N
0032640 A M E ( M K A T O M ( U - C
0032660 A S E H O S T ) ) ) \r
0032700
0032720 T T ) ) \r
0032740
0032760 ( T ( S E T Q F I L
0033000 I N G N A M E ( P A C K * H
0033020 O S T " F i l i n g " ) ) \r
0033040
0033060 ( \ D E F I N E
0033100 D E V I C E F U L L H O S T N
0033120 A M E ( S E T Q D E V I C E
0033140 \r
0033160
*
0033220 ( 006 002 c r e a t e 006
0033240 001 F D E V \r
0033260
*
0033320 006
0033340 002 u s i n g 006 001 \ T C P . D E
0033360 V I C E D E V I C E N A M E
0033400 _ F U L L H O S T N A M E \r
0033420
*
0033500 O P
0033520 E N F I L E _ ( F U N C T I
0033540 O N \ T C P F T P . O P E N F
0033560 I L E ) \r
0033600
*
0033660 R E N A M E F I L E _
0033700 ( F U N C T I O N \r
0033720
*
0034020 \ T C P F T P . R
0034040 E N A M E F I L E ) \r
0034060
*
0034140 R E O P E N F
0034160 I L E _ ( F U N C T I O N
0034200 N I L L ) \r
0034220
*
0034300 G E T F I L E I N F O
0034320 _ ( F U N C T I O N \r
0034340
*
0034440 \ T C P F T
0034460 P . G E T F I L E I N F O ) \r
0034500
*
0034560 S E T
0034600 F I L E I N F O _ ( F U N C
0034620 T I O N \r
0034640
*
0034740 \ T C P F T P . S E T F I
0034760 L E I N F O ) \r
0035000
*
0035060 G E T E O F P T R
0035100 _ ( F U N C T I O N \ T C P
0035120 F T P . G E T E O F P T R \r
0035140
*
0035240 ) \r
0035260
*
0035340 D E L E T E F
0035360 I L E _ ( F U N C T I O N
0035400 \r
0035420
*
0035500 \ T C
0035520 P F T P . D E L E T E F I L E )
0035540 \r
0035560
*
0035620 H
0035640 O S T N A M E P _ ( F U N C
0035660 T I O N N I L L ) \r
0035700
*
0035760 G E T F I L E
0036000 N A M E _ ( F U N C T I O N
0036020 \r
0036040
*
0036120 \
0036140 T C P F T P . G E T F I L E N A
0036160 M E ) \r
0036200
*
0036260 D I R E C T O R Y N A M E P
0036300 _ ( F U N C T I O N \r
0036320
*
0036420 \ T C
0036440 P F T P . D I R E C T O R Y N A
0036460 M E P \r
0036500
*
0036600 ) \r
0036620
*
0036700 G E N E R A T E F I L E
0036720 S _ ( F U N C T I O N \r
0036740
*
0037040 \ T
0037060 C P F T P . G E N E R A T E F I
0037100 L E S ) \r
0037120
*
0037200 E V E N T F N _ ( F U
0037220 N C T I O N N I L L ) \r
0037240
*
0037320 D E V I C
0037340 E I N F O _ N I L ) ) ) \r
0037360
0037400 ( 006 002 p u s h 006 001
0037420 \ T C P F T P . D E V I C E S
0037440 D E V I C E ) \r
0037460
0037500 D E V I C E ] ) \r \r ( 006 004 \ G
0037520 E T . T C P F T P . C O N N E C
0037540 T I O N 006 001 \r [ L A M B D A
0037560 ( D E V I C E ) 006 006 006 001
0037600
*
0037640 006 006 ( * e j s
0037660 % : " 4 - J u n - 8 5 1 7
0037700 : 5 4 " ) 006 001 \r ( L E T
0037720 ( ( C O N N E C T I O N S (
0037740 006 002 f e t c h 006 001 ( F D E V
0037760 D E V I C E I N F O ) 006 002 o f
0040000 006 001 D E V I C E ) ) \r
0040020 T C P F T P C O N
0040040 I N S T R E A M O U T S T R E
0040060 A M ) \r ( W I
0040100 T H . M O N I T O R \ T C P F
0040120 T P . C O N N E C T I O N . L O
0040140 C K ( C O N D \r
0040160
*
0040220 [ [ S E T
0040240 Q T C P F T P C O N \r
0040260
*
0040340 ( 006 002 f o r 006 001 T C P F T P C
0040360 O N 006 002 i n 006 001 C O N N E C
0040400 T I O N S \r
0040420
*
0040460 006 002 t
0040500 h e r e i s 006 001 ( N U L L (
0040520 006 002 f e t c h 006 001 ( T C P F T
0040540 P C O N B U S Y ? ) \r
0040560
*
0040660 006 002 o f 006 001 T C P F T
0040700 P C O N ] \r
0040720
*
0040760 ( C O N D \r
0041000
*
0041060 ( ( A N D ( S E T Q
0041100 I N S T R E A M ( 006 002 f e t
0041120 c h 006 001 ( T C P F T P C O N
0041140 T C P I N ) \r
0041160
*
0041260 006 002 o f 006 001 T C P F
0041300 T P C O N ) ) \r
0041320
*
0041400 ( S E T Q O U T S T R
0041420 E A M ( 006 002 f e t c h 006 001 (
0041440 T C P F T P C O N T C P O U T
0041460 ) \r
0041500
*
0041600 006 002 o f 006 001 T C P F T P C O
0041620 N ) ) \r
0041640
*
0041720 ( O P E N P I N S T R E A M
0041740 ' I N P U T ) \r
0041760
*
0042040 ( O P E N P O U T S T
0042060 R E A M ' O U T P U T ) \r
0042100
*
0042160 ( N O T (
0042200 E O F P I N S T R E A M ) ) )
0042220 \r
0042240
*
0042300 ( 006 002 w h i l e
0042320 006 001 ( R E A D P I N S T R E
0042340 A M ) \r
0042360
*
0042420 006 002
0042440 d o 006 001 ( B I N I N S T R E
0042460 A M ) ) \r
0042500
*
0042540 ( 006 002 r
0042560 e p l a c e 006 001 ( T C P F T P
0042600 C O N B U S Y ? ) 006 002 o f 006
0042620 001 T C P F T P C O N \r
0042640
*
0042720 006 002 w i t h 006 001 T
0042740 ) \r
0042760
*
0043020 T C P F T P C
0043040 O N ) \r
0043060
*
0043120 ( T ( 006 002
0043140 \ T C P F T P . D E L E T E . C
0043160 O N N E C T I O N 006 001 T C P F
0043200 T P C O N D E V I C E ) \r
0043220
*
0043300 ( 006 002 \ T C P F T
0043320 P . O P E N . C O N N E C T I O
0043340 N 006 001 D E V I C E ] \r
0043360
*
0043420 ( T
0043440 ( 006 002 \ T C P F T P . O P E N
0043460 . C O N N E C T I O N 006 001 D E
0043500 V I C E ] ) \r \r ( 006 004 \ T C P F
0043520 T P . O P E N . C O N N E C T I
0043540 O N 006 001 \r [ L A M B D A (
0043560 D E V I C E ) 006 006 006 001
0043600
*
0043640 006 006 ( * e j s % :
0043660 " 2 8 - J u l - 8 6 1 2 : 3
0043700 7 " ) 006 001 \r ( L E T *
0043720 [ ( H O S T ( D O D I P . H O
0043740 S T P ( 006 002 f e t c h 006 001 (
0043760 F D E V D E V I C E N A M E )
0044000 006 002 o f 006 001 D E V I C E ) )
0044020 ) \r ( T C
0044040 P F T P C O N ( 006 002 c r e a t
0044060 e 006 001 T C P F T P C O N \r
0044100
0044120 B U S Y ?
0044140 _ T ) ) \r
0044160 [ I N S T R E A M ( T C P
0044200 . O P E N H O S T \ T C P .
0044220 F T P . P O R T N I L ' A C
0044240 T I V E ' I N P U T N I L
0044260 ' ( W H E N C L O S E D F N \r
0044300
*
0044400 \
0044420 T C P F T P . C O N T R O L . C
0044440 L O S E D \r
0044460
*
0044560 ] \r
0044600 ( O U T S T R E A M (
0044620 C O N D \r
0044640 ( I
0044660 N S T R E A M ( T C P . O T H
0044700 E R . S T R E A M I N S T R E
0044720 A M ] \r ( C
0044740 O N D \r
0044760 ( I N S T R E A M [ 006 002 r e
0045000 p l a c e 006 001 ( S T R E A M
0045020 E N D O F S T R E A M O P ) 006
0045040 002 o f 006 001 I N S T R E A M 006
0045060 002 w i t h 006 001 ( F U N C T I O
0045100 N ( L A M B D A ( S T R E A
0045120 M ) \r
0045140
*
0045240 ( Z E R O ] \r
0045260
0045300 ( 006 002 r e p l a c e 006 001 (
0045320 S T R E A M D E V I C E ) 006
0045340 002 o f 006 001 I N S T R E A M 006
0045360 002 w i t h 006 001 D E V I C E ) \r
0045400
0045420 ( 006 002 r e p l a c e 006 001
0045440 ( S T R E A M D E V I C E )
0045460 006 002 o f 006 001 O U T S T R E A
0045500 M 006 002 w i t h 006 001 D E V I C
0045520 E ) \r
0045540 ( 006 002 r e p l a c
0045560 e 006 001 ( T C P F T P C O N T
0045600 C P I N ) 006 002 o f 006 001 T C P
0045620 F T P C O N 006 002 w i t h 006 001
0045640 I N S T R E A M ) \r
0045660 ( 006
0045700 002 r e p l a c e 006 001 ( T C P F
0045720 T P C O N T C P O U T ) 006 002
0045740 o f 006 001 T C P F T P C O N 006
0045760 002 w i t h 006 001 O U T S T R E A
0046000 M ) \r
0046020 ( S E L E C T Q
0046040 ( 006 002 \ T C P F T P . I N P U T
0046060 006 001 I N S T R E A M ) \r
0046100
0046120 ( 2 2 0 [ C O N D \r
0046140
*
0046200 ( F T P D E B U G F L G ( p r
0046220 i n t o u t F T P D E B U G L
0046240 O G T " < 2 2 0 " ) \r
0046260
*
0046320 ( 006 002 D I S C A R D
0046340 L I N E 006 001 ( 006 002 f e t c h 006
0046360 001 ( T C P F T P C O N T C P
0046400 I N ) 006 002 o f 006 001 T C P F T
0046420 P C O N ] \r
0046440
0046460 ( 006 002 \ T C P F T P . L O
0046500 G I N 006 001 D E V I C E T C P
0046520 F T P C O N ) \r
0046540
0046560 ( 006 002 p u s h 006 001 (
0046600 006 002 f e t c h 006 001 ( F D E V
0046620 D E V I C E I N F O ) 006 002 o f
0046640 006 001 D E V I C E ) \r
0046660
0046700 T C
0046720 P F T P C O N ) \r
0046740
0046760 T C P F T P C O N )
0047000 \r
0047020 ( P R O G N
0047040 ( 006 002 \ T C P F T P . D E L E T
0047060 E . C O N N E C T I O N 006 001 T
0047100 C P F T P C O N D E V I C E )
0047120 \r
0047140
0047160 N I L ] ) \r \r ( 006 004 \ T C P F T
0047200 P . A S S U R E . C L E A N U P
0047220 006 001 \r [ L A M B D A N I L
0047240 006 006 006 001
0047260
*
0047320 006 006 ( * e j s % : "
0047340 2 7 - A p r - 8 5 1 4 : 0 8 "
0047360 ) 006 001 \r \r
0047400 006 006 ( * *
0047420 S p a w n a c l e a n u p
0047440 f u n c t i o n i f n e c e
0047460 s s a r y ) 006 001 \r \r ( C
0047500 O N D \r [ ( A N D
0047520 ( P R O C E S S P \ T C P F
0047540 T P . C L E A N U P . P R O C E
0047560 S S ) \r
0047600 ( N O T ( P R O C E S S . F
0047620 I N I S H E D P \ T C P F T P
0047640 . C L E A N U P . P R O C E S S
0047660 ] \r ( T ( S E T
0047700 Q \ T C P F T P . C L E A N U
0047720 P . P R O C E S S ( A D D . P
0047740 R O C E S S ' ( 006 002 \ T C P F
0047760 T P . C L E A N U P 006 001 ) ' R
0050000 E S T A R T A B L E ' N O ] )
0050020 \r \r ( 006 004 \ T C P F T P . C L E
0050040 A N U P 006 001 \r [ L A M B D A
0050060 N I L 006 006 006 001
0050100
*
0050140 006 006 ( * e j s
0050160 % : " 2 8 - J u l - 8 6 1 2
0050200 : 2 6 " ) 006 001 \r ( 006 002 D
0050220 E C L A R E 006 001 ( G L O B A L
0050240 V A R S \ T C P F T P . I D L
0050260 E . T I M E O U T \ T C P F T
0050300 P . D E V I C E S \ T C P F T
0050320 P . C O N N E C T I O N . L O C
0050340 K ) ) \r ( L E T \r
0050360 ( ( I N T E R V A L ( Q U
0050400 O T I E N T \ T C P F T P . I
0050420 D L E . T I M E O U T 4 ) ) \r
0050440 C O N N E C T I O N
0050460 S P ) \r ( 006 002 r e p e
0050500 a t w h i l e 006 001 ( N O T (
0050520 Z E R O P C O N N E C T I O N
0050540 S P ) ) \r 006 002 d
0050560 o 006 001 \r ( S E T
0050600 Q C O N N E C T I O N S P 0
0050620 ) \r ( 006 002 f o r
0050640 006 001 D E V I C E 006 002 i n 006 001
0050660 \ T C P F T P . D E V I C E S
0050700 \r 006 002 d o
0050720 006 001 ( 006 002 f o r 006 001 C O N N
0050740 E C T I O N 006 002 i n 006 001 ( A
0050760 P P E N D ( 006 002 f e t c h 006 001
0051000 ( F D E V D E V I C E I N F
0051020 O ) 006 002 o f 006 001 D E V I C E
0051040 ) ) \r
0051060 006 002 d o 006 001 ( 006 002 a d
0051100 d 006 001 C O N N E C T I O N S P
0051120 1 ) \r
0051140 [ W I T H . M O
0051160 N I T O R \ T C P F T P . C O
0051200 N N E C T I O N . L O C K \r
0051220
0051240 ( N L S E T Q
0051260 ( C O N D \r
0051300
0051320 ( ( A
0051340 N D ( N U L L ( 006 002 f e t c
0051360 h 006 001 ( T C P F T P C O N B
0051400 U S Y ? ) 006 002 o f 006 001 C O N
0051420 N E C T I O N ) ) \r
0051440
*
0051500 ( T I M E R E X P I
0051520 R E D ? ( 006 002 f e t c h 006 001
0051540 ( T C P F T P C O N I D L E T
0051560 I M E R ) 006 002 o f 006 001 C O N
0051600 N E C T I O N \r
0051620
*
0051700 ) ) ) \r
0051720
*
0051760 ( C L O S E F ? ( 006
0052000 002 f e t c h 006 001 ( T C P F T P
0052020 C O N T C P I N ) 006 002 o f 006
0052040 001 C O N N E C T I O N ) ) \r
0052060
*
0052120 ( C L O S E F ? (
0052140 006 002 f e t c h 006 001 ( T C P F T
0052160 P C O N T C P O U T ) 006 002 o
0052200 f 006 001 C O N N E C T I O N ) )
0052220 \r
0052240
0052260 [ C O N D \r
0052300
*
0052340 ( ( 006 002 f e t c
0052360 h 006 001 ( T C P F T P C O N D
0052400 A T A S T R E A M ) 006 002 o f 006
0052420 001 C O N N E C T I O N ) \r
0052440
*
0052500 ( C L O S E F
0052520 ? ( 006 002 f e t c h 006 001 ( T C
0052540 P F T P C O N D A T A S T R E
0052560 A M ) 006 002 o f 006 001 C O N N E
0052600 C T I O N ] \r
0052620
0052640 ( 006
0052660 002 a d d 006 001 C O N N E C T I O
0052700 N S P - 1 ) \r
0052720
0052740 (
0052760 006 002 \ T C P F T P . D E L E T E
0053000 . C O N N E C T I O N 006 001 C O
0053020 N N E C T I O N D E V I C E
0053040 T ) ) \r
0053060
0053100 ( [ O R (
0053120 N O T ( O P E N P ( 006 002 f e
0053140 t c h 006 001 ( T C P F T P C O N
0053160 T C P I N ) 006 002 o f 006 001 C
0053200 O N N E C T I O N ) \r
0053220
*
0053300 ' I N P U T ) ) \r
0053320
*
0053360 ( N E Q ' E S T A
0053400 B L I S H E D ( 006 002 f e t c h
0053420 006 001 ( T C P . C O N T R O L .
0053440 B L O C K T C B . S T A T E )
0053460 \r
0053500
*
0053560 006 002 o f 006 001 ( 006 002 f e t c h
0053600 006 001 ( T C P S T R E A M T C
0053620 B ) \r
0053640
*
0053720 006 002 o f 006 001
0053740 ( 006 002 f e t c h 006 001 ( T C P F
0053760 T P C O N T C P I N ) \r
0054000
*
0054100 006 002 o f 006 001
0054120 C O N N E C T I O N ] \r
0054140
*
0054200 ( 006 002 a d d 006 001 C O N N
0054220 E C T I O N S P - 1 ) \r
0054240
*
0054300 ( 006 002 \ T C P F T P . D
0054320 E L E T E . C O N N E C T I O N
0054340 006 001 C O N N E C T I O N D E
0054360 V I C E ] \r
0054400 ( B L O C K
0054420 ) ) ) \r ( C O N
0054440 D \r ( ( N
0054460 O T ( Z E R O P C O N N E C
0054500 T I O N S P ) ) \r
0054520 ( B L O C K I N T E
0054540 R V A L ] ) \r \r ( 006 004 \ T C P F
0054560 T P . R E L E A S E . C O N N E
0054600 C T I O N 006 001 \r [ L A M B D
0054620 A ( T C P F T P C O N ) 006 006 006
0054640 001
0054660
0054700 006 006 ( * j m
0054720 h " 1 1 - O c t - 8 5 1 3 :
0054740 4 3 " ) 006 001 \r ( C O N D
0054760 \r ( T C P F T P C
0055000 O N ( 006 002 r e p l a c e 006 001
0055020 ( T C P F T P C O N B U S Y ?
0055040 ) 006 002 o f 006 001 T C P F T P C
0055060 O N 006 002 w i t h 006 001 N I L )
0055100 \r (
0055120 006 002 r e p l a c e 006 001 ( T C P
0055140 F T P C O N D A T A S T R E A
0055160 M ) 006 002 o f 006 001 T C P F T P
0055200 C O N 006 002 w i t h 006 001 N I L
0055220 ) \r
0055240 ( 006 002 r e p l a c e 006 001 ( T C
0055260 P F T P C O N I D L E T I M E
0055300 R ) 006 002 o f 006 001 T C P F T P
0055320 C O N 006 002 w i t h 006 001 ( S E
0055340 T U P T I M E R \ T C P F T P
0055360 . I D L E . T I M E O U T ) ) \r
0055400 ( 006
0055420 002 \ T C P F T P . A S S U R E .
0055440 C L E A N U P 006 001 ] ) \r \r ( 006 004
0055460 \ T C P F T P . L O G I N 006 001 \r
0055500 [ L A M B D A ( D E V I C
0055520 E T C P F T P C O N ) 006 006 006 001
0055540
*
0055600 006 006 ( * e j s % : " 3 1 -
0055620 D e c - 0 0 1 6 : 1 7 " ) 006 001
0055640 \r \r
0055660 006 006 ( * * L o g
0055700 u s i n ) 006 001 \r \r (
0055720 P R O G ( ( O S T Y P E ( 006
0055740 002 \ T C P F T P . G E T . O S T
0055760 Y P E 006 001 D E V I C E ) ) \r
0056000 ( H O S T
0056020 ( 006 002 f e t c h 006 001 ( F D E V
0056040 D E V I C E N A M E ) 006 002 o
0056060 f 006 001 D E V I C E ) ) \r
0056100 ( L O G I N R E
0056120 T R Y C O U N T 0 ) \r
0056140 I N F O ) \r
0056160 R E T R Y \r
0056200 ( S E T Q I N F O ( \
0056220 I N T E R N A L / G E T P A S S
0056240 W O R D H O S T ) ) \r
0056260 \r
0056300 006 006 ( * * L o o p t h r
0056320 o u g h t h i s l a b e l
0056340 i f t h e s e r v e r r e
0056360 j e c t e d t h e o u r n
0056400 a m e ) 006 001 \r \r
0056420 ( C O N D \r
0056440 ( [ O R ( N U L L
0056460 I N F O ) \r
0056500 ( E Q 0 ( N
0056520 C H A R S ( C A R I N F O )
0056540 ) ) \r
0056560 ( E Q 0 ( N C H A
0056600 R S ( C D R I N F O ] \r
0056620 \r
0056640 006 006 ( * N e e d t o
0056660 l o g i n . C a n ' t s e n
0056700 d U n i x h o s t s a s
0056720 t r i n g o f n o c h a r
0056740 s a s n a m e o r \r 006 001
0056760 006 006 p a s s
0057000 w o r d ! ) 006 001 \r \r
0057020 ( L O G I N H
0057040 O S T ) \r
0057060 ( G O R E T R Y ) ) ) \r
0057100 R E T R Y 1 \r
0057120 006 006 ( * * L o
0057140 o p t h r o u g h t h i s
0057160 l a b e l i f t h e s e r
0057200 v e r r e j e c t e d s o m
0057220 e t h i n g e l s e ) 006 001 \r
0057240 ( S E L E C T
0057260 Q ( 006 002 A R P A C M D 006 001 T
0057300 C P F T P C O N " U S E R "
0057320 ( C O N D \r
0057340
*
0057400 ( ( A N D ( E Q
0057420 O S T Y P E ' U N I X ) \r
0057440
*
0057520 ( E Q ( C A R I N F
0057540 O ) \r
0057560
*
0057620 ( U -
0057640 C A S E ( C A R I N F O ) )
0057660 ) \r
0057700
*
0057740 ( E Q L O G I
0057760 N R E T R Y C O U N T 0 ) ) \r
0060000
*
0060060 ( L - C A S E ( C A R I N
0060100 F O ) ) ) \r
0060120
*
0060160 ( T ( C A R I N
0060200 F O ) ) ) \r
0060220
0060240 ' ( 2 0 2 2 3 0 3 3 1 3 3
0060260 2 5 0 0 5 0 3 5 3 0 ) ) \r
0060300 ( (
0060320 2 3 0 2 0 2 )
0060340
0060360 006 006 (
0060400 * W e ' r e l o g g e d i
0060420 n ) 006 001 \r
0060440 ( R E T U R N
0060460 T ) ) \r
0060500 ( 3 3 1
0060520
*
0060560 006 006 ( * N e e d s a p a
0060600 s s w o r d ) 006 001 \r
0060620 ( S E
0060640 L E C T Q ( 006 002 A R P A C M D
0060660 006 001 T C P F T P C O N " P A
0060700 S S " ( \ D E C R Y P T . P W
0060720 D ( C D R I N F O ) ) \r
0060740
*
0061000 ' ( 2 3 0 3 3 1 3 3 2 5
0061020 3 0 ) ) \r
0061040 ( 2 3 0
0061060 ( R E T U R N T ) ) \r
0061100
0061120 ( 3 3 2 ( S E L E C T
0061140 Q ( 006 002 A R P A C M D 006 001 T
0061160 C P F T P C O N " A C C T "
0061200 ( P R O M P T F O R W O R D (
0061220 C O N C A T \r
0061240
*
0061340 " A c c o u n t f o r l
0061360 o g g i n g i n t o " \r
0061400
*
0061520 H O S T ) ) \r
0061540
*
0061600 ' ( 2 3 0 2 0 2
0061620 5 3 0 ) ) \r
0061640
0061660 ( 2 3 0 ( R E T
0061700 U R N T ) ) \r
0061720
0061740 ( G O R E T R
0061760 Y 1 ) ) ) \r
0062000 ( ( 3
0062020 3 1 5 3 0 ) \r
0062040
0062060 ( L O G I N H O S T
0062100 ) \r
0062120 ( 006
0062140 002 a d d 006 001 L O G I N R E T R
0062160 Y C O U N T 1 ) \r
0062200
0062220 ( G O R E T R Y )
0062240 ) \r
0062260 ( 006 002 F T P H
0062300 E L P 006 001 ) ) ) \r
0062320 ( 3 3 2 ( S E L
0062340 E C T Q ( 006 002 A R P A C M D 006
0062360 001 T C P F T P C O N " A C C
0062400 T " ( P R O M P T F O R W O R
0062420 D ( C O N C A T \r
0062440
*
0062540 " A c c o u n t f o
0062560 r l o g g i n g i n t o "
0062600 \r
0062620
*
0062700 H O
0062720 S T ) ) \r
0062740
0062760 ' ( 2 3 0 2 0
0063000 2 5 3 0 ) ) \r
0063020 (
0063040 2 3 0 ( R E T U R N T ) ) \r
0063060
0063100 ( G O R E T R Y
0063120 1 ) ) ) \r
0063140 ( 5 0 3 ( G O R E T R
0063160 Y 1 ) ) \r
0063200 ( ( 5 0 0 5 3 0 )
0063220
*
0063260 006 006 ( * N o s u c h u
0063300 s e r ? ) 006 001 \r
0063320 ( L O G I
0063340 N H O S T ) \r
0063360 ( 006 002 a d
0063400 d 006 001 L O G I N R E T R Y C O
0063420 U N T 1 ) \r
0063440 ( G O R E
0063460 T R Y ) ) \r
0063500 ( 006 002 F T P H E L P 006 001
0063520 ] ) \r \r ( 006 004 \ T C P F T P . D
0063540 E L E T E F I L E 006 001 \r [ L
0063560 A M B D A ( N A M E D E V I
0063600 C E ) 006 006 006 001
0063620
0063640 006 006 (
0063660 * e j s % : " 7 - A p r -
0063700 8 6 1 1 : 5 2 " ) 006 001 \r
0063720 \r
0063740 006 006 ( * * F T P d e l
0063760 e t e r e q u e s t ) 006 001 \r \r
0064000 ( L E T * [ ( T C P F
0064020 T P C O N ( 006 002 \ G E T . T C
0064040 P F T P . C O N N E C T I O N 006
0064060 001 D E V I C E ) ) \r
0064100 ( O S T Y P E ( 006
0064120 002 \ T C P F T P . G E T . O S T
0064140 Y P E 006 001 D E V I C E ) ) \r
0064160 ( C O D E
0064200 ( C A R ( N L S E T Q ( 006 002
0064220 A R P A C M D 006 001 T C P F T P
0064240 C O N " D E L E " ( R E P A
0064260 C K F I L E N A M E . S T R I N
0064300 G ( P A C K F I L E N A M E .
0064320 S T R I N G \r
0064340
*
0064440 ' H O S T N I L
0064460 \r
0064500
*
0064600 ' B O D Y N A M E ) \r
0064620
*
0064700 O S T Y
0064720 P E ) \r
0064740
0064760 ' ( 2 0 0 2
0065000 2 6 2 5 0 4 5 0 5 5 0 ] \r
0065020 ( 006 002 \ T C
0065040 P F T P . R E L E A S E . C O N
0065060 N E C T I O N 006 001 T C P F T P
0065100 C O N ) \r (
0065120 S E L E C T Q C O D E \r
0065140 ( ( 2 5 0
0065160 2 2 6 2 0 0 ) \r
0065200 N A
0065220 M E ) \r
0065240 N I L ] ) \r \r ( 006 004 \ T C P
0065260 F T P . D I R E C T O R Y N A M
0065300 E P 006 001 \r [ L A M B D A (
0065320 H O S T / D I R D E V I C E )
0065340 006 006 006 001
0065360
0065400 006 006 ( * e j s % :
0065420 " 2 7 - A p r - 8 5 1 4 : 0
0065440 4 " ) 006 001 \r ( L E T (
0065460 ( T C P F T P C O N ( 006 002 \ G
0065500 E T . T C P F T P . C O N N E C
0065520 T I O N 006 001 D E V I C E ) ) )
0065540 \r ( R E S E T
0065560 L S T ( R E S E T S A V E N
0065600 I L ( L I S T [ F U N C T I
0065620 O N ( L A M B D A ( T C P F
0065640 T P C O N ) \r
0065660
*
0065720 ( 006 002 \ T
0065740 C P F T P . R E L E A S E . C O
0065760 N N E C T I O N 006 001 T C P F T
0066000 P C O N ) \r
0066020
*
0066060 ( C O N D \r
0066100
*
0066160 ( R E S E T S T A
0066200 T E ( A N D ( O P E N P (
0066220 006 002 f e t c h 006 001 ( T C P F T
0066240 P C O N \r
0066260
*
0066360 T C P I
0066400 N ) \r
0066420
*
0066520 006 002 o f 006 001 T C P F
0066540 T P C O N ) ) \r
0066560
*
0066660 ( C L O S E F ( 006 002 f e t c h
0066700 006 001 ( T C P F T P C O N \r
0066720
*
0067040 T C P I N ) \r
0067060
*
0067200 006 002 o f 006 001 T C P F T P C O N
0067220 ) ) ) \r
0067240
*
0067320 ( 006 002 r e p l a c e 006 001 (
0067340 T C P F T P C O N T C P I N )
0067360 006 002 o f 006 001 T C P F T P C O
0067400 N \r
0067420
*
0067500 006 002 w i t h 006 001 N I L )
0067520 \r
0067540
*
0067600 (
0067620 A N D ( O P E N P ( 006 002 f e
0067640 t c h 006 001 ( T C P F T P C O N
0067660 T C P O U T ) \r
0067700
*
0070000 006 002 o f 006 001 T C P
0070020 F T P C O N ) ) \r
0070040
*
0070120 ( C L O
0070140 S E F ( 006 002 f e t c h 006 001 (
0070160 T C P F T P C O N T C P O U T
0070200 ) \r
0070220
*
0070320 006 002 o f 006 001 T C P F T P C O N
0070340 ) ) ) \r
0070360
*
0070440 ( 006 002 r e p l a c e 006 001 (
0070460 T C P F T P C O N T C P O U T
0070500 ) \r
0070520
*
0070600 006 002 o f 006 001 T C P F T P
0070620 C O N 006 002 w i t h 006 001 N I L
0070640 ] \r
0070660
0070700 T C P F T P
0070720 C O N ) ) \r
0070740 ( 006 002 \ T C P F T P
0070760 . C O N N E C T 006 001 D E V I C
0071000 E T C P F T P C O N ( F I L
0071020 E N A M E F I E L D H O S T /
0071040 D I R ' D I R E C T O R Y ] )
0071060 \r \r ( 006 004 \ T C P F T P . E N D
0071100 O F S T R E A M O P 006 001 \r [
0071120 L A M B D A ( S T R E A M S
0071140 I L E N T L Y ) 006 006 006 001
0071160
0071200 006 006
0071220 ( * e j s % : " 3 - F e b
0071240 - 8 5 1 7 : 0 1 " ) 006 001 \r
0071260 ( 006 002 \ T C P F T P . T R A
0071300 N S F E R . C O M P L E T E 006 001
0071320 S T R E A M ) \r ( O R
0071340 S I L E N T L Y ( \ E O S E
0071360 R R O R S T R E A M ] ) \r \r (
0071400 006 004 \ T C P F T P . G E N E R A
0071420 T E F I L E S 006 001 \r [ L A M
0071440 B D A ( D E V I C E P A T T
0071460 E R N D E S I R E D P R O P S
0071500 O P T I O N S ) 006 006 006 001
0071520 006 006 ( *
0071540 e j s % : " 2 6 - S e p - 8 6
0071560 1 8 : 2 8 " ) 006 001 \r
0071600 \r
0071620 006 006 ( * * F T P d i r e c
0071640 t o r y r e q u e s t ) 006 001 \r
0071660 \r ( L E T * ( ( T C P
0071700 F T P C O N ( 006 002 \ G E T . T
0071720 C P F T P . C O N N E C T I O N
0071740 006 001 D E V I C E ) ) \r
0071760 ( O S T Y P E (
0072000 006 002 \ T C P F T P . G E T . O S
0072020 T Y P E 006 001 D E V I C E ) ) \r
0072040 D A T A S
0072060 T R E A M E V E N T D A T A S
0072100 T R E A M C O D E ) \r
0072120 ( S E T Q D A T A
0072140 S T R E A M E V E N T ( 006 002 \
0072160 T C P F T P . S P A W N . D A T
0072200 A C O N N E C T I O N 006 001 T C
0072220 P F T P C O N ' I N P U T ) )
0072240 \r ( B L O C
0072260 K ) \r [ S E
0072300 T Q C O D E ( C A R ( N L
0072320 S E T Q ( 006 002 A R P A C M D 006
0072340 001 T C P F T P C O N " N L S
0072360 T " \r
0072400
0072420 [ C O N
0072440 D \r
0072460
0072500 [ (
0072520 E Q O S T Y P E ' U N I X )
0072540 \r
0072560
0072600 ( C
0072620 O N D \r
0072640
*
0072700 ( ( A N D ( E Q ( F
0072720 I L E N A M E F I E L D P A T
0072740 T E R N ' V E R S I O N ) \r
0072760
*
0073040 ' * ) \r
0073060
*
0073140 ( E Q ( F I L E N A M E
0073160 F I E L D P A T T E R N ' E
0073200 X T E N S I O N ) \r
0073220
*
0073300 ' * ) \r
0073320
*
0073360 ( E
0073400 Q ( F I L E N A M E F I E L D
0073420 P A T T E R N ' N A M E ) \r
0073440
*
0073520 ' * ) ) \r
0073540
*
0073620 ( R E P A C K F I L E N A M E .
0073640 S T R I N G ( P A C K F I L E
0073660 N A M E . S T R I N G \r
0073700
*
0074000 ' H O S T N I L '
0074020 V E R S I O N N I L \r
0074040
*
0074140 ' E X T E N S I O N
0074160 N I L ' N A M E " * " \r
0074200
*
0074300 ' B O D Y P A T
0074320 T E R N ) \r
0074340
*
0074400 ' U
0074420 N I X ) ) \r
0074440
*
0074500 ( ( E Q ( F I L E
0074520 N A M E F I E L D P A T T E R
0074540 N ' V E R S I O N ) \r
0074560
*
0074640 ' * ) \r
0074660
*
0074720 ( R E P A C K F I L
0074740 E N A M E . S T R I N G ( P A
0074760 C K F I L E N A M E . S T R I N
0075000 G \r
0075020
*
0075100 ' H O S T
0075120 N I L ' V E R S I O N N I
0075140 L \r
0075160
*
0075240 ' B O D Y
0075260 P A T T E R N ) \r
0075300
*
0075360 ' U N I X ) ) \r
0075400
*
0075440 ( T ( R E
0075460 P A C K F I L E N A M E . S T R
0075500 I N G ( P A C K F I L E N A M
0075520 E . S T R I N G \r
0075540
*
0075640 ' H O S T N I L ' B
0075660 O D Y P A T T E R N ) \r
0075700
*
0075760 ' U N I X ] \r
0076000
*
0076040 ( T ( C O
0076060 N D \r
0076100
*
0076140 ( ( E Q O S T Y P E
0076160 ' I N T E R L I S P ) \r
0076200
*
0076260 ( P A C K F I L E N A M E . S T
0076300 R I N G ' H O S T N I L '
0076320 B O D Y P A T T E R N ) ) \r
0076340
*
0076420 ( T ( R E P A C K F I L E N
0076440 A M E . S T R I N G ( P A C K
0076460 F I L E N A M E . S T R I N G \r
0076500
*
0076600 ' H O
0076620 S T N I L ' B O D Y P A T
0076640 T E R N ) \r
0076660
*
0076740 O S T Y P E ] \r
0076760
*
0077020 1 5 0 ] \r
0077040 ( S E L E C T Q C O D E \r
0077060 ( 1
0077100 5 0 \r \r
0077120 006 006 ( * *
0077140 H e r e w e g o ) 006 001 \r \r
0077160
0077200 ( C O N D \r
0077220 ( (
0077240 S E T Q D A T A S T R E A M
0077260 ( 006 002 \ T C P F T P . W A I T .
0077300 F O R . D A T A C O N N E C T I
0077320 O N 006 001 D E V I C E T C P F
0077340 T P C O N \r
0077360
*
0077420 D A T A S T R E A M
0077440 E V E N T ' I N P U T ) ) \r
0077460
0077500 ( 006 002 r e p l a c e
0077520 006 001 ( T C P F T P C O N G E
0077540 N E R A T E F I L E S D I R E C
0077560 T O R Y ) 006 002 o f 006 001 T C P
0077600 F T P C O N \r
0077620
0077640 006 002 w i t h 006 001 ( F I L E N
0077660 A M E F I E L D P A T T E R N
0077700 ' D I R E C T O R Y ) ) \r
0077720
0077740 ( 006 002 c r e a t e 006 001
0077760 F I L E G E N O B J \r
0100000
0100020 N E X T F I
0100040 L E F N _ ( F U N C T I O N
0100060 \ T C P F T P . G E N E R A T
0100100 E N E X T F I L E ) \r
0100120
0100140 F I L E I N F
0100160 O F N _ ( F U N C T I O N
0100200 N I L L ) \r
0100220
0100240 G E N F I L E S T A T E
0100260 _ T C P F T P C O N ) ) \r
0100300
0100320 ( T ( E R R O R "
0100340 C o u l d n ' t o p e n d a
0100360 t a c o n n e c t i o n t o
0100400 r e m o t e T C P F T P s
0100420 e r v e r " ) ) ) ) \r
0100440 ( P R O G N
0100460 ( D E L . P R O C E S S ( C A
0100500 R D A T A S T R E A M E V E N
0100520 T ) ) \r
0100540 ( 006 002 \ T C P
0100560 F T P . R E L E A S E . C O N N
0100600 E C T I O N 006 001 T C P F T P C
0100620 O N ) \r
0100640 ( \ N U L L F
0100660 I L E G E N E R A T O R ] ) \r \r
0100700 ( 006 004 \ T C P F T P . G E N E R
0100720 A T E N E X T F I L E 006 001 \r
0100740 [ L A M B D A ( T C P F T P C
0100760 O N N A M E O N L Y ) 006 006 006 001
0101000
0101020 006
0101040 006 ( * e d i t e d % : " 5
0101060 - M a r - 8 6 1 9 : 1 4 " ) 006
0101100 001 \r ( P R O G ( ( D A
0101120 T A S T R E A M ( 006 002 f e t c
0101140 h 006 001 ( T C P F T P C O N D
0101160 A T A S T R E A M ) 006 002 o f 006
0101200 001 T C P F T P C O N ) ) \r
0101220 [ O S T Y P E
0101240 ( 006 002 \ T C P F T P . G E T .
0101260 O S T Y P E 006 001 ( 006 002 f e t c
0101300 h 006 001 ( S T R E A M D E V I
0101320 C E ) 006 002 o f 006 001 ( 006 002 f e
0101340 t c h 006 001 ( T C P F T P C O N
0101360 T C P I N ) \r
0101400
*
0101460 006 002 o f
0101500 006 001 T C P F T P C O N ] \r
0101520 [ F I L E N A
0101540 M E R D T B L ( D E F E R R E
0101560 D C O N S T A N T ( P R O G
0101600 [ ( R ( C O P Y R E A D T A B
0101620 L E ' O R I G ] \r
0101640
*
0101700 ( S E T
0101720 B R K N I L N I L R ) \r
0101740
*
0102020 ( S E T S Y N T A X ' % %
0102040 ' O T H E R R ) \r
0102060
*
0102120 ( S E T
0102140 S E P R ' ( 1 3 1 0 3 1 )
0102160 N I L R ) \r
0102200
*
0102240 ( R E T U R
0102260 N R ] \r
0102300 C O D E N A M E ) \r
0102320 ( R E T U R N ( C O
0102340 N D \r
0102360 [ [ A N D ( O
0102400 P E N P D A T A S T R E A M
0102420 ' I N P U T ) \r
0102440
0102460 ( N O T ( E O F P D A
0102500 T A S T R E A M ) ) \r
0102520
0102540 ( S E T Q N A M E
0102560 ( C A R ( N L S E T Q ( R
0102600 E A D D A T A S T R E A M F
0102620 I L E N A M E R D T B L ] \r
0102640
0102660 ( C O N D \r
0102700
0102720 ( ( A N D ( O R ( E Q
0102740 O S T Y P E ' T O P S - 2 0
0102760 ) \r
0103000
0103020 ( E Q O S T Y P E
0103040 ' T O P S 2 0 ) ) \r
0103060
0103100 ( S T R P O S
0103120 " ? N o t f o u n d " N
0103140 A M E N I L N I L N I L
0103160 N I L U P P E R C A S E A R R
0103200 A Y ) ) \r
0103220 (
0103240 N L S E T Q ( 006 002 u n t i l 006
0103260 001 ( E O F P D A T A S T R E
0103300 A M ) 006 002 d o 006 001 ( R E A D
0103320 D A T A S T R E A M F I L E
0103340 N A M E R D T B L ) ) ) \r
0103360
0103400 ( A N D ( O P E
0103420 N P D A T A S T R E A M ) \r
0103440
0103460 ( C
0103500 L O S E F D A T A S T R E A M
0103520 ) ) \r
0103540 ( S E
0103560 L E C T Q [ S E T Q C O D E
0103600 ( 006 002 A R P A C M D 006 001 T C
0103620 P F T P C O N N I L N I L
0103640 ' ( 2 2 6 2 5 0 ] \r
0103660
0103700 ( ( 2 5 0 2
0103720 2 6 ) \r
0103740
0103760 ( A N D ( O P
0104000 E N P D A T A S T R E A M ) \r
0104020
*
0104060 ( C L O S E F
0104100 D A T A S T R E A M ) ) \r
0104120
*
0104160 ( 006 002 \ T C P F T P . R E L E A
0104200 S E . C O N N E C T I O N 006 001
0104220 T C P F T P C O N ) \r
0104240
0104260 N I
0104300 L ) \r
0104320
0104340 ( 006 002 F T P H E L P 006 001 C O
0104360 D E ) ) ) \r
0104400 (
0104420 N A M E O N L Y ( R E P A C K
0104440 F I L E N A M E . S T R I N G
0104460 N A M E ' I N T E R L I S P )
0104500 ) \r
0104520 ( T ( P
0104540 A C K F I L E N A M E . S T R I
0104560 N G ' H O S T ( 006 002 f e t c
0104600 h 006 001 ( F D E V D E V I C E
0104620 N A M E ) \r
0104640
*
0104720 006 002 o f 006 001 ( 006 002 f e t c h 006
0104740 001 ( S T R E A M D E V I C E
0104760 ) \r
0105000
*
0105060 006 002 o f 006 001 ( 006 002 f e t c
0105100 h 006 001 ( T C P F T P C O N T
0105120 C P I N ) \r
0105140
*
0105220 006 002 o f
0105240 006 001 T C P F T P C O N ) ) ) \r
0105260
*
0105320 ' D I R E C T O R Y \r
0105340
*
0105400 ( 006 002 f e t c h 006 001 ( T C P
0105420 F T P C O N G E N E R A T E F
0105440 I L E S D I R E C T O R Y ) 006
0105460 002 o f 006 001 T C P F T P C O N )
0105500 \r
0105520
0105540 ' B O D Y \r
0105560
0105600 ( R E
0105620 P A C K F I L E N A M E . S T R
0105640 I N G N A M E ' I N T E R L
0105660 I S P ] \r
0105700 ( T ( A N
0105720 D ( O P E N P D A T A S T R
0105740 E A M ) \r
0105760
0106000 ( C L O S E F D A T A S T
0106020 R E A M ) ) \r
0106040 (
0106060 S E L E C T Q [ S E T Q C O
0106100 D E ( 006 002 A R P A C M D 006 001
0106120 T C P F T P C O N N I L N I
0106140 L ' ( 2 2 6 2 5 0 ] \r
0106160
0106200 ( ( 2 5 0 2
0106220 2 6 ) \r
0106240
0106260 ( A N D ( O P E N
0106300 P D A T A S T R E A M ) \r
0106320
*
0106360 ( C L O S E F D A T A
0106400 S T R E A M ) ) \r
0106420
0106440 ( 006 002 \ T C
0106460 P F T P . R E L E A S E . C O N
0106500 N E C T I O N 006 001 T C P F T P
0106520 C O N ) \r
0106540
0106560 N I L ) \r
0106600
0106620 ( 006 002 F T P H E L
0106640 P 006 001 C O D E ] ) \r \r ( 006 004 \
0106660 T C P F T P . G E T F I L E N A
0106700 M E 006 001 \r [ L A M B D A (
0106720 N A M E R E C O G D E V I C
0106740 E ) 006 006 006 001
0106760
0107000 006 006 ( * e j s % :
0107020 " 2 6 - S e p - 8 6 1 8 : 2
0107040 9 " ) 006 001 \r
0107060 \r 006 006 ( *
0107100 * F T P d i r e c t o r y
0107120 r e q u e s t ) 006 001 \r \r
0107140 ( C O N D \r ( ( E
0107160 Q R E C O G ' N E W ) \r
0107200 N A M E ) \r
0107220 ( T ( P R O G ( ( T C
0107240 P F T P C O N ( 006 002 \ G E T .
0107260 T C P F T P . C O N N E C T I O
0107300 N 006 001 D E V I C E ) ) \r
0107320 ( O
0107340 S T Y P E ( 006 002 \ T C P F T P
0107360 . G E T . O S T Y P E 006 001 D E
0107400 V I C E ) ) \r
0107420 D A T A S T R E
0107440 A M E V E N T D A T A S T R E
0107460 A M C O D E G E N E R A T O
0107500 R A L L P O S S I B I L I T I
0107520 E S ) \r
0107540 ( S E T Q D A T A S T
0107560 R E A M E V E N T ( 006 002 \ T C
0107600 P F T P . S P A W N . D A T A C
0107620 O N N E C T I O N 006 001 T C P F
0107640 T P C O N ' I N P U T ) ) \r
0107660 (
0107700 B L O C K ) \r
0107720 [ S E T Q C O D
0107740 E ( C A R ( N L S E T Q (
0107760 006 002 A R P A C M D 006 001 T C P F
0110000 T P C O N " N L S T " ( C O
0110020 N D \r
0110040
*
0110120 ( ( E Q O S T
0110140 Y P E ' I N T E R L I S P ) \r
0110160
*
0110260 ( P A C K F I L E N
0110300 A M E . S T R I N G \r
0110320
*
0110420 ' H O S T N I L ' B O D
0110440 Y N A M E ) ) \r
0110460
*
0110540 ( T
0110560 ( R E P A C K F I L E N A M E
0110600 . S T R I N G \r
0110620
*
0110720 ( P A C K F I L E N A M E . S
0110740 T R I N G \r
0110760
*
0111060 ' H O S T N I L ' B O D Y
0111100 N A M E ) \r
0111120
*
0111200 O
0111220 S T Y P E ) ) ) \r
0111240
*
0111300 1 5 0 ] \r
0111320 ( R E
0111340 T U R N ( S E L E C T Q C O
0111360 D E \r
0111400 (
0111420 1 5 0 \r \r
0111440 006 006 ( * *
0111460 H e r e w e g o ) 006 001 \r \r
0111500
*
0111540 ( C O N D \r
0111560
0111600 ( ( A N D
0111620 ( S E T Q D A T A S T R E A
0111640 M ( 006 002 \ T C P F T P . W A I
0111660 T . F O R . D A T A C O N N E C
0111700 T I O N 006 001 \r
0111720
*
0112000 D E V I C E T C P F T P
0112020 C O N D A T A S T R E A M E V
0112040 E N T \r
0112060
*
0112140 ' I N P U T ) ) \r
0112160
*
0112220 ( S E T Q G E N E R A T
0112240 O R ( 006 002 c r e a t e 006 001 F
0112260 I L E G E N O B J \r
0112300
*
0112360 N E X T F
0112400 I L E F N _ ( F U N C T I O
0112420 N \r
0112440
*
0112540 \ T C P F T P . G E N E R A T E
0112560 N E X T F I L E \r
0112600
*
0112700 ) \r
0112720
*
0113000 F I L E I
0113020 N F O F N _ ( F U N C T I O
0113040 N N I L L ) \r
0113060
*
0113140 G E N F I L E
0113160 S T A T E _ T C P F T P C O
0113200 N ) ) ) \r
0113220
0113240 ( 006 002 r e p
0113260 l a c e 006 001 ( T C P F T P C O
0113300 N G E N E R A T E F I L E S D
0113320 I R E C T O R Y ) 006 002 o f 006 001
0113340 T C P F T P C O N \r
0113360
*
0113420 006 002 w i t h 006 001 ( F I L
0113440 E N A M E F I E L D N A M E
0113460 ' D I R E C T O R Y ) ) \r
0113500
*
0113540 ( S E T Q A L L P O S S I
0113560 B I L I T I E S ( 006 002 b i n d
0113600 006 001 F I L E 006 002 w h i l e 006
0113620 001 ( S E T Q F I L E ( \r
0113640
*
0113760 \ G E N E R A T E N E X T
0114000 F I L E \r
0114020
*
0114120 G E
0114140 N E R A T O R ) ) \r
0114160
*
0114240 006 002 c o l l e
0114260 c t 006 001 F I L E ) ) \r
0114300
*
0114340 ( M K A T O M ( C A R A L
0114360 L P O S S I B I L I T I E S ) )
0114400 ) \r
0114420
0114440 ( T ( E R R O R
0114460 \r
0114500
0114520 " C
0114540 o u l d n ' t o p e n d a t
0114560 a c o n n e c t i o n t o
0114600 r e m o t e T C P F T P s e
0114620 r v e r . " \r
0114640
*
0114700 ) ) ) ) \r
0114720
0114740 ( P R O G N ( D E
0114760 L . P R O C E S S ( C A R D
0115000 A T A S T R E A M E V E N T ) )
0115020 \r
0115040
0115060 ( 006 002 \ T C P F T P . R
0115100 E L E A S E . C O N N E C T I O
0115120 N 006 001 T C P F T P C O N ) \r
0115140
*
0115200 N I L ] ) \r \r ( 006 004 \ T C P
0115220 F T P . G E T F I L E I N F O 006
0115240 001 \r [ L A M B D A ( S T R
0115260 E A M A T T R I B D E V I C
0115300 E ) 006 006 006 001
0115320
0115340 006 006 ( * e j s % : " 2
0115360 0 - M a r - 8 6 2 1 : 0 1 " )
0115400 006 001 \r ( C O N D \r
0115420 ( ( 006 002 t y p e ? 006 001
0115440 S T R E A M S T R E A M ) \r
0115460 ( S T R E A M P R
0115500 O P S T R E A M A T T R I B
0115520 ) ) \r ( ( E Q A
0115540 T T R I B ' E O L ) \r
0115560 ' C R L F ] ) \r \r ( 006 004
0115600 \ T C P F T P . S E T F I L E I
0115620 N F O 006 001 \r [ L A M B D A
0115640 ( S T R E A M A T T R I B V
0115660 A L U E D E V I C E ) 006 006 006 001
0115700
0115720 006 006 ( * e j s %
0115740 : " 9 - N o v - 8 5 1 4 :
0115760 2 0 " ) 006 001 \r ( S T R E
0116000 A M P R O P S T R E A M A T
0116020 T R I B V A L U E ] ) \r \r ( 006
0116040 004 \ T C P F T P . R E N A M E F
0116060 I L E 006 001 \r [ L A M B D A
0116100 ( O L D N A M E N E W N A M E
0116120 D E V I C E ) 006 006 006 001
0116140
0116160 006 006 ( * e j s %
0116200 : " 2 4 - M a r - 8 6 1 5 :
0116220 1 5 " ) 006 001 \r
0116240 \r 006 006 ( *
0116260 * F T P d e l e t e r e
0116300 q u e s t ) 006 001 \r \r ( L
0116320 E T ( ( O S T Y P E ( 006 002 \
0116340 T C P F T P . G E T . O S T Y P
0116360 E 006 001 D E V I C E ) ) \r
0116400 ( T C P F T P C O
0116420 N ( 006 002 \ G E T . T C P F T P
0116440 . C O N N E C T I O N 006 001 D E
0116460 V I C E ) ) \r
0116500 C O D E ) \r
0116520 ( R E S E T L S T ( R E S E T
0116540 S A V E N I L ( L I S T [
0116560 F U N C T I O N ( L A M B D A
0116600 ( C O N ) \r
0116620
*
0116660 ( 006 002 \ T
0116700 C P F T P . R E L E A S E . C O
0116720 N N E C T I O N 006 001 C O N ] \r
0116740
*
0117000 T C P F T P C O
0117020 N ) ) \r
0117040 ( P R O G N I L \r
0117060
0117100 R E T R Y \r
0117120 [ S E T
0117140 Q C O D E ( C A R ( N L S
0117160 E T Q ( 006 002 A R P A C M D 006 001
0117200 T C P F T P C O N " R N F R
0117220 " ( R E P A C K F I L E N A M
0117240 E . S T R I N G \r
0117260
*
0117360 ( P A C K F I L E N A M E .
0117400 S T R I N G \r
0117420
*
0117520 ' H O S T N I L ' B O D Y
0117540 O L D N A M E ) \r
0117560
*
0117660 O S T Y P E ) \r
0117700
*
0117760 ' ( 3 5 0 4 5 0 5 5 0 ] \r
0120000
0120020 ( S E L E C T Q C O
0120040 D E \r
0120060 ( 3 5
0120100 0 [ S E T Q C O D E ( C A
0120120 R ( N L S E T Q ( 006 002 A R P
0120140 A C M D 006 001 T C P F T P C O N
0120160 " R N T O " \r
0120200
*
0120260 ( R E P A C K F I L
0120300 E N A M E . S T R I N G \r
0120320
*
0120400 ( P A C
0120420 K F I L E N A M E . S T R I N G
0120440 ' H O S T N I L \r
0120460
*
0120560 ' B O D Y N E W N A M E ) \r
0120600
*
0120660 O
0120700 S T Y P E ) \r
0120720
*
0121000 ' ( 2 5 0 5 5 3 ] \r
0121020
0121040 (
0121060 S E L E C T Q C O D E \r
0121100
*
0121140 ( 2 5 0 ( R E T U R N N E W
0121160 N A M E ) ) \r
0121200
0121220 N I L ) ) \r
0121240
0121260 ( P R O G N
0121300 ( S E T Q O L D N A M E (
0121320 L I S P E R R O R " F I L E
0121340 N O T F O U N D " O L D N A
0121360 M E T ) ) \r
0121400
0121420 ( G O R E T R
0121440 Y ] ) \r \r ( 006 004 \ T C P F T P .
0121460 C O N N E C T 006 001 \r [ L A M
0121500 B D A ( D E V I C E T C P F
0121520 T P C O N D I R E C T O R Y )
0121540 006 006 006 001
0121560 006 006 ( *
0121600 e j s % : " 2 4 - J u n - 8 5
0121620 1 7 : 1 0 " ) 006 001 \r (
0121640 L E T [ ( D I R E C T O R Y N
0121660 A M E ( R E P A C K F I L E N
0121700 A M E . S T R I N G ( P A C K
0121720 F I L E N A M E . S T R I N G
0121740 ' D I R E C T O R Y D I R E C
0121760 T O R Y ) \r
0122000
0122020 ( 006 002 \ T C P F T P
0122040 . G E T . O S T Y P E 006 001 D E
0122060 V I C E ] \r (
0122100 C O N D \r
0122120 ( ( N E Q 0 ( N C H A R S
0122140 D I R E C T O R Y N A M E ) )
0122160 \r ( S
0122200 E L E C T Q ( 006 002 A R P A C M
0122220 D 006 001 T C P F T P C O N " C
0122240 W D " D I R E C T O R Y N A M
0122260 E ' ( 2 0 0 2 5 0 4 5 0
0122300 5 5 0 ) ) \r
0122320 ( ( 2 0 0 2 5 0
0122340 ) \r
0122360 T ) \r
0122400 N I L
0122420 ) ) \r (
0122440 T \r \r
0122460 006 006 ( * T h e
0122500 u s e r s p e c i f i e d
0122520 n o c o n n e c t d i r e c
0122540 t o r y . \r 006 001
0122560 006 006 W e ' l l h a v e t
0122600 o a s s u m e h e o r s
0122620 h e m e a n t h i s o r
0122640 h e r o w n l o g i n d i
0122660 r e c t o r y , w h o s e n
0122700 a m e \r 006 001
0122720 006 006 w e c a n ' t e v e n
0122740 a c c u r a t e l y g u e s
0122760 s . T h u s , w e l e a v
0123000 e i t a t t h i s ) 006 001 \r
0123020 \r
0123040 T ] ) \r \r ( 006 004 \ T C P F T P .
0123060 O P E N F I L E 006 001 \r [ L A
0123100 M B D A ( N A M E A C C E S
0123120 S R E C O G P A R A M E T E
0123140 R S D E V I C E ) 006 006 006 001
0123160 006 006 ( *
0123200 e j s % : " 2 6 - S e p - 8
0123220 6 1 8 : 5 2 " ) 006 001 \r
0123240 ( 006 002 D E C L A R E 006 001 ( G L
0123260 O B A L V A R S T C P . D E F
0123300 A U L T F I L E T Y P E T C P
0123320 . U S E . S T A N D A R D . E O
0123340 L T C P F T P . D E F A U L T
0123360 . F I L E T Y P E S ) ) \r
0123400 ( L E T * ( ( H O S T ( 006
0123420 002 f e t c h 006 001 ( F D E V D
0123440 E V I C E N A M E ) 006 002 o f 006
0123460 001 D E V I C E ) ) \r
0123500 ( O S T Y P E ( 006
0123520 002 \ T C P F T P . G E T . O S T
0123540 Y P E 006 001 D E V I C E ) ) \r
0123560 [ F I L E N
0123600 A M E ( C O N D \r
0123620
0123640 ( ( E Q O S T Y P E ' I
0123660 N T E R L I S P ) \r
0123700
0123720 ( P A C K F I L E N A M E
0123740 . S T R I N G ' H O S T N I
0123760 L ' B O D Y N A M E ) ) \r
0124000
0124020 ( T ( R E P A C
0124040 K F I L E N A M E . S T R I N G
0124060 ( P A C K F I L E N A M E . S
0124100 T R I N G ' H O S T N I L
0124120 ' B O D Y N A M E ) \r
0124140
0124160 O S
0124200 T Y P E ] \r
0124220 ( F I L E N A M E . E X T E N
0124240 S I O N ( F I L E N A M E F I
0124260 E L D F I L E N A M E ' E X
0124300 T E N S I O N ) ) \r
0124320 ( T C P F T P C O N
0124340 ( 006 002 \ G E T . T C P F T P . C
0124360 O N N E C T I O N 006 001 D E V I
0124400 C E ) ) \r
0124420 ( T Y P E ( O R ( C A D R
0124440 ( F A S S O C ' T Y P E P A
0124460 R A M E T E R S ) ) \r
0124500
0124520 ( C D R ( F A S S O C F I L
0124540 E N A M E . E X T E N S I O N
0124560 T C P F T P . D E F A U L T . F
0124600 I L E T Y P E S ) ) \r
0124620
0124640 ( C D R ( F A S S O C ( U -
0124660 C A S E F I L E N A M E . E X
0124700 T E N S I O N ) \r
0124720
0124740 T C P F T P
0124760 . D E F A U L T . F I L E T Y P
0125000 E S ) ) \r
0125020 T C P . D E
0125040 F A U L T F I L E T Y P E ) ) \r
0125060 D A T A S
0125100 T R E A M E V E N T D A T A S
0125120 T R E A M C O D E F T P C M
0125140 D S T R E A M D E V ) \r
0125160 ( S E L E C T Q
0125200 T Y P E \r
0125220 ( T E X T ( 006 002 A R P A
0125240 C M D 006 001 T C P F T P C O N
0125260 " T Y P E " " A N " 2 0 0
0125300 ) ) \r
0125320 ( 006 002 A R P A C M D 006 001 T C
0125340 P F T P C O N " T Y P E " "
0125360 L 8 " 2 0 0 ) ) \r
0125400 ( S E T Q D A T A S
0125420 T R E A M E V E N T ( 006 002 \ T
0125440 C P F T P . S P A W N . D A T A
0125460 C O N N E C T I O N 006 001 T C P
0125500 F T P C O N ( C O N D \r
0125520
*
0125620 ( ( E Q A C C
0125640 E S S ' O U T P U T ) \r
0125660
*
0125760 ' A P P E N D
0126000 ) \r
0126020
*
0126100 ( T
0126120 A C C E S S ) ) \r
0126140
*
0126200 T ) ) \r ( B
0126220 L O C K ) \r
0126240 ( P R O G N I L \r
0126260 L O O P \r
0126300 ( S E T Q
0126320 F T P C M D ( S E L E C T Q
0126340 A C C E S S \r
0126360
0126400 ( I N P U T
0126420 ' " R E T R " ) \r
0126440
0126460 ( O U T P U
0126500 T ' " S T O R " ) \r
0126520
0126540 ( A P P
0126560 E N D ' " A P P E " ) \r
0126600
0126620 ( E
0126640 R R O R " A C C E S S m u s
0126660 t b e o n e o f I N P U
0126700 T , O U T P U T , o r A P
0126720 P E N D " A C C E S S ) ) ) \r
0126740
0126760 [ S E T Q C O D E ( C A R
0127000 ( N L S E T Q ( 006 002 A R P A C
0127020 M D 006 001 T C P F T P C O N F
0127040 T P C M D F I L E N A M E \r
0127060
*
0127120 ' (
0127140 1 2 5 1 5 0 2 2 6 2 5 0
0127160 4 2 5 4 2 6 4 5 0 4 5 1
0127200 5 5 0 ] \r
0127220 ( S E L E C T Q C O
0127240 D E \r
0127260 ( ( 1 2 5 1 5 0
0127300 ) \r \r
0127320 006 006 ( * * H
0127340 e r e w e g o ) 006 001 \r \r
0127360
0127400 ( C O N D \r
0127420
0127440 ( [ S E T Q
0127460 D A T A S T R E A M ( 006 002 \ T
0127500 C P F T P . W A I T . F O R . D
0127520 A T A C O N N E C T I O N 006 001 \r
0127540
*
0127600 D
0127620 E V I C E T C P F T P C O N
0127640 D A T A S T R E A M E V E N T \r
0127660
*
0127720 (
0127740 C O N D \r
0127760
*
0130020 ( ( E Q A C C E
0130040 S S ' O U T P U T ) \r
0130060
*
0130120 '
0130140 A P P E N D ) \r
0130160
*
0130220 ( T A C C
0130240 E S S ] \r
0130260
0130300 ( 006 002 r e p l a c e 006 001 (
0130320 S T R E A M E N D O F S T R E
0130340 A M O P ) 006 002 o f 006 001 D A T
0130360 A S T R E A M \r
0130400
0130420 006 002 w i t h 006 001
0130440 ( F U N C T I O N \ T C P F
0130460 T P . E N D O F S T R E A M O P
0130500 ) ) \r
0130520
0130540 ( 006 002 r e p l a c e 006 001 ( S T
0130560 R E A M F U L L F I L E N A M
0130600 E ) 006 002 o f 006 001 D A T A S T
0130620 R E A M 006 002 w i t h 006 001 N A
0130640 M E ) \r
0130660
0130700 [ 006 002 r e p l a c e 006 001 ( S
0130720 T R E A M E O L C O N V E N T
0130740 I O N ) 006 002 o f 006 001 D A T A
0130760 S T R E A M \r
0131000
0131020 006 002 w i t h 006 001
0131040 ( C O N D \r
0131060
0131100 ( T
0131120 C P . U S E . S T A N D A R D .
0131140 E O L C R L F . E O L C ) \r
0131160
*
0131220 ( T ( S E L E C
0131240 T Q O S T Y P E \r
0131260
*
0131320 ( U N I X L
0131340 F . E O L C ) \r
0131360
*
0131420 ( T O P S - 2 0
0131440 C R L F . E O L C ) \r
0131460
*
0131520 C R . E O L
0131540 C ] \r
0131560
0131600 ( S T R E A M P R O P D A T A
0131620 S T R E A M ' T Y P E T Y P
0131640 E ) \r
0131660
0131700 ( 006 002 r e p l a c e 006 001 ( T C
0131720 P D A T A S T R E A M T C P F
0131740 T P C O N ) 006 002 o f 006 001 D A
0131760 T A S T R E A M 006 002 w i t h 006
0132000 001 T C P F T P C O N ) \r
0132020
0132040 ( S E T Q
0132060 S T R E A M D E V ( 006 002 f e t
0132100 c h 006 001 ( S T R E A M D E V
0132120 I C E ) 006 002 o f 006 001 D A T A
0132140 S T R E A M ) ) \r
0132160
0132200 ( 006 002 r e p l a c e
0132220 006 001 ( F D E V G E T F I L E
0132240 N A M E ) 006 002 o f 006 001 S T R
0132260 E A M D E V 006 002 w i t h 006 001
0132300 ( F U N C T I O N N I L L ) )
0132320 \r
0132340 ( 006
0132360 002 r e p l a c e 006 001 ( F D E V
0132400 G E T F I L E I N F O ) 006 002
0132420 o f 006 001 S T R E A M D E V 006
0132440 002 w i t h 006 001 ( F U N C T I O
0132460 N \r
0132500
*
0132560 \
0132600 T C P F T P . G E T F I L E I N
0132620 F O ) ) \r
0132640
0132660 ( S T R E A M A D D P R O P
0132700 D A T A S T R E A M ' A F T
0132720 E R C L O S E ( F U N C T I O
0132740 N \r
0132760
*
0133040 \ T C P F T P . T
0133060 R A N S F E R . C O M P L E T E
0133100 ) ) \r
0133120
0133140 ( R E T U R N D A T A S T R E
0133160 A M ) ) \r
0133200
0133220 ( T ( E R R O R " C o u l
0133240 d n ' t o p e n d a t a c
0133260 o n n e c t i o n t o r e m
0133300 o t e T C P F T P s e r v e
0133320 r " ) ) ) ) \r
0133340 ( 4 2 5
0133360
*
0133420 006 006 ( * T h e f o r
0133440 e i g n p o r t i s b u s
0133460 y ) 006 001 \r
0133500 ( P
0133520 R O M P T P R I N T " T C P F
0133540 T P : P l e a s e w a i t ;
0133560 t h e r e m o t e f t p
0133600 s e r v e r i s b u s y . "
0133620 ) \r
0133640 ( D E L .
0133660 P R O C E S S ( C A R D A T
0133700 A S T R E A M E V E N T ) ) \r
0133720
0133740 ( D I S M I S S
0133760 5 0 0 0 ) \r
0134000
0134020 [ S E T Q D A T A S T R E A M
0134040 E V E N T ( 006 002 \ T C P F T P
0134060 . S P A W N . D A T A C O N N E
0134100 C T I O N 006 001 T C P F T P C O
0134120 N \r
0134140
*
0134200 ( C O N D \r
0134220
*
0134300 ( ( E Q A C C E
0134320 S S ' O U T P U T ) \r
0134340
*
0134420 ' A P P E N D ) \r
0134440
*
0134520 ( T A C C E S
0134540 S ] \r
0134560 ( B L O
0134600 C K ) \r
0134620 ( G O
0134640 L O O P ) ) \r
0134660 ( ( 4 5
0134700 0 5 5 0 ) \r
0134720
0134740 ( D E L . P R O C E S S ( C
0134760 A R D A T A S T R E A M E V E
0135000 N T ) ) \r
0135020 ( 006
0135040 002 \ T C P F T P . R E L E A S E
0135060 . C O N N E C T I O N 006 001 T C
0135100 P F T P C O N ) \r
0135120
0135140 N I L ) \r
0135160 ( 006 002 F T
0135200 P H E L P 006 001 C O D E ] ) \r \r
0135220 ( 006 004 \ T C P F T P . C L O S E
0135240 006 001 \r [ L A M B D A ( D E
0135260 V I C E ) 006 006 006 001
0135300
*
0135340 006 006 ( * e j s % : "
0135360 2 3 - A p r - 8 5 1 8 : 4 1 "
0135400 ) 006 001 \r \r
0135420 006 006 ( * *
0135440 T h i s n e e d s w o r k )
0135460 006 001 \r \r ( P R O G ( (
0135500 D E V I N F O ( 006 002 f e t c h
0135520 006 001 ( F D E V D E V I C E I
0135540 N F O ) 006 002 o f 006 001 D E V I
0135560 C E ) ) ) \r
0135600 ( A N D ( O P E N P ( 006 002 f
0135620 e t c h 006 001 ( T C P F T P C O
0135640 N T C P O U T ) 006 002 o f 006 001
0135660 D E V I N F O ) \r
0135700
0135720 ' O U T P U T ) \r
0135740 ( C L O S E F
0135760 ( 006 002 f e t c h 006 001 ( T C P F
0136000 T P C O N T C P O U T ) 006 002
0136020 o f 006 001 D E V I N F O ) ) ) \r
0136040 ( A N D (
0136060 O P E N P ( 006 002 f e t c h 006 001
0136100 ( T C P F T P C O N T C P I
0136120 N ) 006 002 o f 006 001 D E V I N F
0136140 O ) \r
0136160 ' I N P U T )
0136200 \r
0136220 ( C L O S E F ( 006 002 f e t c h
0136240 006 001 ( T C P F T P C O N T C
0136260 P I N ) 006 002 o f 006 001 D E V I
0136300 N F O ] ) \r \r ( 006 004 \ T C P F T
0136320 P . F L U S H 006 001 \r [ L A M
0136340 B D A ( D E V I C E ) 006 006 006 001
0136360
*
0136420 006 006 ( *
0136440 e j s % : " 2 3 - A p r - 8 5
0136460 1 8 : 5 6 " ) 006 001 \r
0136500 \r
0136520 006 006 ( * * T h i s n e e d
0136540 s w o r k ) 006 001 \r \r (
0136560 P R O G [ ( I N S T R E A M
0136600 ( 006 002 f e t c h 006 001 ( T C P F
0136620 T P C O N T C P I N ) 006 002 o
0136640 f 006 001 ( 006 002 f e t c h 006 001 (
0136660 F D E V D E V I C E I N F O )
0136700 006 002 o f 006 001 D E V I C E ] \r
0136720 ( C O N D \r
0136740 ( ( R
0136760 E A D P I N S T R E A M ) \r
0137000 ( 006 002
0137020 u n t i l 006 001 ( N O T ( R E
0137040 A D P I N S T R E A M ) ) 006
0137060 002 d o 006 001 ( B I N I N S T R
0137100 E A M ] ) \r \r ( 006 004 \ T C P F T
0137120 P . I N I T 006 001 \r [ L A M B
0137140 D A N I L 006 006 006 001
0137160
*
0137220 006 006 ( * e
0137240 j s % : " 1 0 - A p r - 8 5
0137260 1 9 : 2 5 " ) 006 001 \r ( \
0137300 D E F I N E D E V I C E N I L
0137320 ( 006 002 c r e a t e 006 001 F D E
0137340 V \r
0137360
0137400 D E V I C E N A M E _ ' T C
0137420 P F T P \r
0137440
0137460 H O S T N A M E P _ (
0137500 F U N C T I O N \ T C P F T P
0137520 . H O S T N A M E P ) \r
0137540
0137560 E V E N T F
0137600 N _ ( F U N C T I O N \ T
0137620 C P F T P . E V E N T F N ] ) \r
0137640 ) \r ( D E C L A R E % : E V A
0137660 L @ C O M P I L E D O N T C O
0137700 P Y \r ( * " F O L L O W I N
0137720 G D E F I N I T I O N S E X
0137740 P O R T E D " ) \r \r ( D E C L A
0137760 R E % : E V A L @ C O M P I L
0140000 E \r \r ( A C C E S S F N S 006 002
0140020 T C P D A T A S T R E A M 006 001
0140040 ( ( T C P C O N T R O L D E V I
0140060 C E ( 006 002 f e t c h 006 001 ( S
0140100 T R E A M F 3 ) 006 002 o f 006 001
0140120 D A T U M ) \r
0140140
0140160 ( 006 002 r e p l
0140200 a c e 006 001 ( S T R E A M F 3
0140220 ) 006 002 o f 006 001 D A T U M 006
0140240 002 w i t h 006 001 N E W V A L U E
0140260 ) ) \r
0140300 ( S E
0140320 E N E O S ( 006 002 f e t c h 006 001
0140340 ( S T R E A M F 4 ) 006 002 o
0140360 f 006 001 D A T U M ) \r
0140400
0140420 ( 006 002 r
0140440 e p l a c e 006 001 ( S T R E A M
0140460 F 4 ) 006 002 o f 006 001 D A T U
0140500 M 006 002 w i t h 006 001 N E W V A
0140520 L U E ) ) \r
0140540
0140560 ( T C P F T P C O N ( 006 002 f e
0140600 t c h 006 001 ( S T R E A M F 5
0140620 ) 006 002 o f 006 001 D A T U M ) \r
0140640
*
0140700 ( 006 002 r e p l a c e 006 001 ( S
0140720 T R E A M F 5 ) 006 002 o f 006 001
0140740 D A T U M 006 002 w i t h 006 001
0140760 N E W V A L U E ) ) ) ) \r \r ( R
0141000 E C O R D 006 002 T C P F T P C O
0141020 N 006 001 ( T C P I N T C P O U
0141040 T D A T A S T R E A M B U S
0141060 Y ? I D L E T I M E R G E N
0141100 E R A T E F I L E S D I R E C T
0141120 O R Y ) ) \r ) \r \r ( * " E N D
0141140 E X P O R T E D D E F I N I
0141160 T I O N S " ) \r \r ) \r \r ( A D D
0141200 T O V A R 006 002 T C P F T P . D
0141220 E F A U L T . F I L E T Y P E S
0141240 006 001 ( N I L . T E X T ) \r
0141260
*
0141320 ( D C O M . B I N A R
0141340 Y ) \r
0141360
0141400 ( d c o m . B I
0141420 N A R Y ) \r
0141440
0141460 ( L I S P .
0141500 T E X T ) \r
0141520