$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>FTPSERVER!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 6 - F e b - 8
0000140 7 2 1 : 1 7 : 3 9 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > F T P S E R V E R .
0000220 ; 4 006 001 2 4 5 5 8 \r \r
0000240 c h a n g e s t o % :
0000260 ( V A R S F T P S E R V E
0000300 R C O M S ) \r \r p r
0000320 e v i o u s d a t e % : " 1
0000340 6 - D e c - 8 6 1 7 : 5 6 : 5
0000360 4 " { E R I S } < L I S P C O
0000400 R E > L I B R A R Y > F T P S E
0000420 R V E R . ; 3 ) \r \r \r ( * " \r
0000440 C o p y r i g h t ( c ) 1 9
0000460 8 3 , 1 9 8 4 , 1 9 8 6 ,
0000500 1 9 8 7 b y X e r o x C o
0000520 r p o r a t i o n . A l l
0000540 r i g h t s r e s e r v e d .
0000560 \r " ) \r \r ( P R E T T Y C O M P
0000600 R I N T F T P S E R V E R C O
0000620 M S ) \r \r ( R P A Q Q 006 002 F T
0000640 P S E R V E R C O M S 006 001 ( (
0000660 F N S \ F T P S E R V E R . T
0000700 O P F T P S E R V E R \ G E
0000720 T F I L E T Y P E \ S F T P .
0000740 C O M M A N D L O O P \ S F T
0000760 P . R E T R I E V E \r
0001000
0001020 \ S F T P . E N U
0001040 M E R A T E \ S F T P . S T O
0001060 R E \ S F T P . V E R S I O N
0001100 ) \r
0001120 ( F N S \ S F
0001140 T P . O P E N F I L E . F R O M
0001160 . P L I S T \ S F T P . P L I
0001200 S T . F R O M . F I L E \ S F
0001220 T P . S E N D P L I S T \r
0001240
0001260 \ S F T P . P
0001300 R O T O C O L . E R R O R \ S
0001320 F T P . M A R K . E R R O R \
0001340 S F T P . R E A D P L I S T \
0001360 S F T P . T I M E O U T F N \r
0001400
0001420 \ S F T P
0001440 . E R R O R H A N D L E R \ S
0001460 F T P . W H E N C L O S E D ) \r
0001500
0001520 [ C O M S * ` (
0001540 ( V A R S ( \ S F T P . V E R
0001560 S I O N ' , ( D A T E ] \r
0001600
0001620 [ I N I T V A R S ( F
0001640 T P S E R V E R . D E F A U L T
0001660 . H O S T ' D S K ) \r
0001700
0001720 ( F T P S E R
0001740 V E R . D E F A U L T . P R O P
0001760 S ' ( T Y P E C R E A T I O
0002000 N D A T E W R I T E D A T E
0002020 R E A D D A T E L E N G T H
0002040 \r
0002060
*
0002120 A U
0002140 T H O R ] \r
0002160 ( D E C
0002200 L A R E % : D O N T C O P Y
0002220 ( M A C R O S . I F D E S I R
0002240 E D . ) \r
0002260
0002300 ( F I L E S ( L O A D C O
0002320 M P ) \r
0002340
0002360 D P U P F T P
0002400 B S P ) ) ) ) \r ( D E F I N E Q
0002420 \r \r ( 006 004 \ F T P S E R V E R .
0002440 T O P 006 001 \r [ L A M B D A
0002460 ( F T P D E B U G L O G ) 006 006 006
0002500 001
0002520
0002540 006 006 ( * b v m %
0002560 : " 1 6 - N o v - 8 4 1 1 :
0002600 4 6 " ) 006 001 \r ( P R O G
0002620 ( P U P S O C S O C K E T
0002640 I N S T R E A M E V E N T S
0002660 A V E R ) \r
0002700 ( C O N D \r
0002720 ( F T P D E B U G L O G
0002740 [ C O N D \r
0002760
0003000 ( ( O R ( E Q F T P D
0003020 E B U G L O G T ) \r
0003040
0003060 ( L I
0003100 S T P F T P D E B U G L O G )
0003120 ) \r
0003140
0003160 ( S E T Q F T P D E B U G L O
0003200 G ( G E T S T R E A M ( C R
0003220 E A T E W ( L I S T P F T P
0003240 D E B U G L O G ) \r
0003260
*
0003340 " F T P
0003360 S e r v e r t r a f f i c "
0003400 ) \r
0003420
*
0003460 ' O U T P U T
0003500 ) ) \r
0003520
0003540 ( W I N D O W P R O P F T P
0003560 D E B U G L O G ' P A G E F U
0003600 L L F N ( F U N C T I O N N
0003620 I L L ) ) \r
0003640
0003660 ( D S P S C R O L L '
0003700 O N F T P D E B U G L O G ) \r
0003720
0003740 ( D
0003760 S P F O N T ' ( G A C H A 8
0004000 ) F T P D E B U G L O G ) ) \r
0004020
0004040 ( T
0004060 ( S E T Q F T P D E B U G L O
0004100 G ( G E T S T R E A M F T P
0004120 D E B U G L O G ' O U T P U T
0004140 ] \r
0004160 ( p r i n t o u t
0004200 F T P D E B U G L O G " F T P
0004220 S e r v e r s t a r t e d
0004240 a t " ( D A T E ) \r
0004260
0004300 T T ) ) ) \r
0004320 ( R E S E T S A
0004340 V E N I L ( S E T Q S A V
0004360 E R ( L I S T [ F U N C T I
0004400 O N ( L A M B D A ( S O C )
0004420 \r
0004440
*
0004500 ( A N D S O C
0004520 ( C L O S E R T P S O C K E T
0004540 S O C 0 ] \r
0004560
*
0004620 N I L ) ) ) \r
0004640 T O P ( S E T Q S O C K E T
0004660 ( O P E N R T P S O C K E T
0004700 N I L ' ( S E R V E R R E T
0004720 U R N ) ( O P E N P U P S O C
0004740 K E T \ P U P S O C K E T . F
0004760 T P T ) \r
0005000
0005020 N I L ) ) \r
0005040 ( R P L A C A ( C D R
0005060 S A V E R ) \r
0005100 S O C K E T )
0005120 \r ( S E T Q
0005140 E V E N T ( 006 002 f e t c h 006
0005160 001 R T P E V E N T 006 002 o f 006
0005200 001 S O C K E T ) ) \r
0005220 ( 006 002 u n t i l 006 001
0005240 ( E Q ( 006 002 f e t c h 006 001 R
0005260 T P S T A T E 006 002 o f 006 001 S
0005300 O C K E T ) \r
0005320 \ S T A
0005340 T E . O P E N ) 006 002 d o 006 001
0005360 ( A W A I T . E V E N T E V E
0005400 N T ) ) \r [
0005420 C O N D \r
0005440 ( ( S E T Q I N S T R E A
0005460 M ( C R E A T E B S P S T R E
0005500 A M S O C K E T N I L ( F
0005520 U N C T I O N \ S F T P . E R
0005540 R O R H A N D L E R ) \r
0005560
*
0005620 ( I M I N \ F T P . I D L E .
0005640 T I M E O U T M A X . S M A L
0005660 L P ) \r
0005700
0005720 ( F U N C T I O
0005740 N \ S F T P . T I M E O U T F
0005760 N ) \r
0006000
0006020 ( F U N C T I O N
0006040 \ S F T P . W H E N C L O S E
0006060 D ) ) ) \r
0006100 ( N L S E T Q ( R E S E
0006120 T L S T ( R E S E T S A V E
0006140 N I L ( L I S T ' C L O S E
0006160 B S P S T R E A M I N S T R E
0006200 A M 0 ) ) \r
0006220
0006240 ( R P L A C A ( C D R
0006260 S A V E R ) \r
0006300
0006320 N I L )
0006340 \r
0006360 ( C
0006400 O N D \r
0006420
0006440 ( F T P D E B U G L O G
0006460 ( p r i n t o u t F T P D E
0006500 B U G L O G T " C o n n e c
0006520 t i o n o p e n w i t h "
0006540 \r
0006560
*
0006620 ( P O R T S T R I N G
0006640 ( 006 002 f e t c h 006 001 F R N P
0006660 O R T 006 002 o f 006 001 S O C K E
0006700 T ) \r
0006720
*
0006760 ( \
0007000 M A K E N U M B E R ( 006 002 f e
0007020 t c h 006 001 F R N S O C K E T H
0007040 I \r
0007060
*
0007140 006 002 o
0007160 f 006 001 S O C K E T ) \r
0007200
*
0007260 ( 006
0007300 002 f e t c h 006 001 F R N S O C K
0007320 E T L O 006 002 o f 006 001 S O C K
0007340 E T ) ) ) \r
0007360
*
0007420 T ) \r
0007440
*
0007500 ( R E S E T S A V E F
0007520 T P D E B U G F L G T ) ) ) \r
0007540
0007560 ( 006 002
0007600 \ S F T P . C O M M A N D L O O
0007620 P 006 001 I N S T R E A M ( B S
0007640 P O U T P U T S T R E A M I N
0007660 S T R E A M ) \r
0007700
0007720 F T P D
0007740 E B U G L O G ] \r
0007760 ( G O T O P ] ) \r \r ( 006
0010000 004 F T P S E R V E R 006 001 \r [
0010020 L A M B D A ( F T P D E B U G
0010040 L O G ) 006 006 006 001
0010060
0010100 006 006
0010120 ( * b v m % : " 1 6 - N o v
0010140 - 8 4 1 0 : 5 2 " ) 006 001 \r
0010160 ( A D D . P R O C E S S (
0010200 L I S T ( F U N C T I O N \
0010220 F T P S E R V E R . T O P ) \r
0010240
0010260 ( K W O T E F T P
0010300 D E B U G L O G ) ) \r
0010320 ' N A M E \r
0010340 ' F T P S E R V E
0010360 R \r ' R E
0010400 S T A R T A B L E \r
0010420 ' H A R D R E S E T ]
0010440 ) \r \r ( 006 004 \ G E T F I L E T Y
0010460 P E 006 001 \r [ L A M B D A (
0010500 F I L E F I L E O P E N P ) 006
0010520 006 006 001
0010540
0010560 006 006 ( * b v m % :
0010600 " 1 6 - N o v - 8 4 1 1 : 5
0010620 7 " ) 006 001 \r ( R E S E T
0010640 L S T ( P R O G ( S T R E A
0010660 M ) \r
0010700 [ C O N D \r
0010720
0010740 [ F I L E O P E N P (
0010760 S E T Q S T R E A M ( G E T
0011000 S T R E A M F I L E ' I N P
0011020 U T ] \r
0011040 ( T ( R
0011060 E S E T S A V E N I L ( L I
0011100 S T ' C L O S E F ( S E T Q
0011120 S T R E A M ( O P E N S T R
0011140 E A M F I L E ' I N P U T ]
0011160 \r
0011200 ( R E T U R N ( \ I
0011220 N F E R . F I L E . T Y P E S
0011240 T R E A M ] ) \r \r ( 006 004 \ S F T
0011260 P . C O M M A N D L O O P 006 001 \r
0011300 [ L A M B D A ( I N S O
0011320 U T S F T P D E B U G L O G )
0011340 \r ( 006 002 D E C L A R E 006
0011360 001 ( S P E C V A R S F T P D
0011400 E B U G L O G ) ) 006 006 006 001
0011420
0011440 006 006 ( * b v m % :
0011460 " 2 9 - F e b - 8 4 1 2 : 5
0011500 3 " ) 006 001 \r ( 006 002 b i n
0011520 d 006 001 M A R K 006 002 r e p e a
0011540 t w h i l e 006 001 ( S E L E C T
0011560 C ( S E T Q M A R K ( F T
0011600 P G E T M A R K I N S ) ) \r
0011620
0011640 ( (
0011660 M A R K # V E R S I O N ) \r
0011700
*
0011740 ( 006 002 \ S F T P . V E R
0011760 S I O N 006 001 I N S O U T S )
0012000 ) \r
0012020
0012040 ( ( M A R K # R E T R I E V
0012060 E ) \r
0012100
0012120 ( 006 002 \ S F T P
0012140 . R E T R I E V E 006 001 I N S
0012160 O U T S ) ) \r
0012200
0012220 ( ( M A R K # N E
0012240 W - S T O R E ) \r
0012260
0012300 ( 006
0012320 002 \ S F T P . S T O R E 006 001 I
0012340 N S O U T S ) ) \r
0012360
0012400 ( ( M A R K #
0012420 S T O R E ) \r
0012440
0012460 ( 006 002
0012500 \ S F T P . S T O R E 006 001 I N
0012520 S O U T S T ) ) \r
0012540
0012560 ( ( M A R K
0012600 # N E W - E N U M E R A T E )
0012620 \r
0012640
0012660 ( 006 002 \ S F T P . E
0012700 N U M E R A T E 006 001 I N S O
0012720 U T S T ) ) \r
0012740
0012760 ( ( M A R K # E
0013000 N U M E R A T E ) \r
0013020
0013040 (
0013060 006 002 \ S F T P . E N U M E R A T
0013100 E 006 001 I N S O U T S ) ) \r
0013120
0013140 ( (
0013160 M A R K # E O C ) \r
0013200
*
0013240 T ) \r
0013260
0013300 ( ( M A R K # C O M M E N
0013320 T ) \r
0013340
0013360 ( O R ( \ F T
0013400 P . F L U S H . T O . E O C I
0013420 N S F T P D E B U G L O G ) \r
0013440
*
0013500 ( 006 002 \ S F T P
0013520 . P R O T O C O L . E R R O R 006
0013540 001 I N S O U T S ) ) ) \r
0013560
0013600 ( ( L
0013620 I S T ( M A R K # Y E S ) \r
0013640
*
0013700 ( M A R K # N O )
0013720 \r
0013740
0013760 ( M A R K # H E
0014000 R E - I S - P L I S T ) \r
0014020
*
0014060 ( M A R K # H E R E - I
0014100 S - F I L E ) ) \r
0014120
0014140 ( 006
0014160 002 \ S F T P . P R O T O C O L .
0014200 E R R O R 006 001 I N S O U T S
0014220 ) ) \r
0014240
0014260 ( 0
0014300
0014320 006 006 ( * t i m e d o u t ) 006 001
0014340 \r
0014360
0014400 N I L ) \r
0014420
0014440 ( P R O G N ( F
0014460 T P P U T M A R K O U T S (
0014500 M A R K # N O ) ) \r
0014520
*
0014560 ( F T P P U T C O D E O U T
0014600 S \ N O . U N I M P L E M E N
0014620 T E D ) \r
0014640
0014660 ( P R I N
0014700 3 " U n i m p l e m e n t e d
0014720 c o m m a n d " O U T S )
0014740 \r
0014760
0015000 ( P R I N 3 ( M
0015020 K S T R I N G M A R K ) \r
0015040
*
0015100 O U T S )
0015120 \r
0015140
0015160 ( . E O C . O U
0015200 T S ) \r
0015220
0015240 T ] ) \r \r (
0015260 006 004 \ S F T P . R E T R I E V E
0015300 006 001 \r [ L A M B D A ( I N
0015320 S O U T S ) 006 006 006 001
0015340
*
0015400 006 006 ( * b v m % : "
0015420 1 6 - N o v - 8 4 1 6 : 0 8 "
0015440 ) 006 001 \r
0015460
*
0015540 006 006 ( * D o t h e R E T
0015560 R I E V E c o m m a n d . \r 006
0015600 001
0015620
*
0015660 006 006
0015700 P l i s t c o m e s n e x t
0015720 ) 006 001 \r ( R E S E T L S
0015740 T ( P R O G ( P L I S T F
0015760 I L E ) \r
0016000 ( S E T Q P
0016020 L I S T ( O R ( 006 002 \ S F T
0016040 P . R E A D P L I S T 006 001 I N
0016060 S O U T S ) \r
0016100
0016120 ( R E T
0016140 U R N ) ) ) \r
0016160 ( O R (
0016200 E Q ( F T P G E T M A R K I
0016220 N S ) \r
0016240
0016260 ( M A R K # E O C ) ) \r
0016300
0016320 ( R E T U R N ( 006 002
0016340 \ S F T P . P R O T O C O L . E
0016360 R R O R 006 001 I N S O U T S )
0016400 ) ) \r
0016420 ( S E T Q F I L
0016440 E ( O R ( 006 002 \ S F T P . O
0016460 P E N F I L E . F R O M . P L I
0016500 S T 006 001 P L I S T ' I N P U
0016520 T O U T S ) \r
0016540
0016560 ( R E T U
0016600 R N T ) ) ) \r
0016620 ( R E S
0016640 E T S A V E N I L ( L I S T
0016660 ' C L O S E F F I L E ) ) \r
0016700
0016720 ( 006 002 \ S F T P . S E N
0016740 D P L I S T 006 001 ( 006 002 \ S F T
0016760 P . P L I S T . F R O M . F I L
0017000 E 006 001 F I L E N I L ( 006 002
0017020 f o r 006 001 P A I R 006 002 i n 006
0017040 001 P L I S T \r
0017060
*
0017160 006 002 w h e n 006 001 ( E Q ( C A
0017200 R P A I R ) \r
0017220
*
0017320 ' D E S I R E
0017340 D - P R O P E R T Y ) \r
0017360
*
0017460 006 002 c o l l e c t 006 001
0017500 ( C A D R P A I R ) ) \r
0017520
*
0017560 T ) \r
0017600
0017620 O U T S ) \r
0017640
0017660 ( S E L E C T C ( F T P G E
0017700 T M A R K I N S ) \r
0017720
0017740 ( ( M A R K # N O )
0017760
0020000 006 006 ( * n o ,
0020020 u s e r d o e s n ' t w a
0020040 n t f i l e ) 006 001 \r
0020060
0020100 ( \ F T P . F L
0020120 U S H . T O . E O C I N S F
0020140 T P D E B U G L O G ) ) \r
0020160
0020200 ( ( M A R K # Y E S
0020220 ) \r
0020240
0020260 ( F T P G E T C O D E I N S )
0020300 \r
0020320 ( \
0020340 F T P . F L U S H . T O . E O C
0020360 I N S F T P D E B U G L O G
0020400 ) \r
0020420 (
0020440 F T P P U T M A R K O U T S
0020460 ( M A R K # H E R E - I S - F
0020500 I L E ) ) \r
0020520
0020540 ( C O P Y B Y T E S F I
0020560 L E O U T S ) \r
0020600
0020620 ( F T P P U T M A R
0020640 K O U T S ( M A R K # Y E
0020660 S ) ) \r
0020700
0020720 ( F T P P U T C O D E O U T
0020740 S 0 ) \r
0020760
0021000 ( P R I N 3 " F i l e s
0021020 e n t o k " O U T S ) ) \r
0021040
0021060 ( R E T U R N (
0021100 006 002 \ S F T P . P R O T O C O L
0021120 . E R R O R 006 001 I N S O U T
0021140 S ) ) ) \r \r
0021160 006 006 ( * A
0021200 t t h i s p o i n t w e
0021220 w o u l d n o r m a l l y a
0021240 d v a n c e t o t h e n e
0021260 x t f i l e , b u t w e '
0021300 r e n o t \r 006 001
0021320 006 006 d o i n g * ' s
0021340 y e t ) 006 001 \r \r
0021360 ( . E O
0021400 C . O U T S ) \r
0021420 ( R E
0021440 T U R N T ] ) \r \r ( 006 004 \ S F
0021460 T P . E N U M E R A T E 006 001 \r
0021500 [ L A M B D A ( I N S O U
0021520 T S N E W P ) 006 006 006 001
0021540
*
0021600 006 006 ( * ; " E d i t e d 1
0021620 6 - D e c - 8 6 1 7 : 4 6 b
0021640 y l m m " ) 006 001 \r
0021660
*
0021740 006 006 ( * ; \r 006
0021760 001
0022000
*
0022040 006 006 " D o t
0022060 h e E N U M E R A T E c o m
0022100 m a n d . P l i s t c o m
0022120 e s n e x t " ) 006 001 \r
0022140 ( P R O G ( P L I S T F I L
0022160 E D E S I R E D P R O P S G
0022200 E N E R A T O R P A T T E R N
0022220 S C R A T C H F O U N D S O
0022240 M E ) \r ( S
0022260 E T Q P L I S T ( O R ( 006
0022300 002 \ S F T P . R E A D P L I S T
0022320 006 001 I N S O U T S ) \r
0022340
0022360 ( R E T U R N ) )
0022400 ) \r ( O R
0022420 ( E Q ( F T P G E T M A R K
0022440 I N S ) \r
0022460 ( M A R K # E O
0022500 C ) ) \r
0022520 ( R E T U R N ( 006 002 \ S F
0022540 T P . P R O T O C O L . E R R O
0022560 R 006 001 I N S O U T S ) ) ) \r
0022600 [ S E T Q
0022620 D E S I R E D P R O P S ( 006 002
0022640 f o r 006 001 P A I R 006 002 i n 006
0022660 001 P L I S T 006 002 w h e n 006 001
0022700 ( E Q ( C A R P A I R ) \r
0022720
*
0023000 ' D E S I R E
0023020 D - P R O P E R T Y ) \r
0023040
0023060 006 002 c o
0023100 l l e c t 006 001 ( M K A T O M
0023120 ( C A D R P A I R ] \r
0023140 ( S E T Q G E N E
0023160 R A T O R ( O R ( 006 002 \ S F
0023200 T P . O P E N F I L E . F R O M
0023220 . P L I S T 006 001 P L I S T '
0023240 E N U M E R A T E O U T S (
0023260 O R D E S I R E D P R O P S
0023300 \r
0023320
*
0023400 F
0023420 T P S E R V E R . D E F A U L T
0023440 . P R O P S \r
0023460
*
0023560 ) ) \r
0023600
0023620 ( R E T U
0023640 R N T ) ) ) \r
0023660 ( S E T Q P A T T E R N
0023700 ( D I R E C T O R Y . M A T C H
0023720 . S E T U P ( C A R G E N E
0023740 R A T O R ) ) ) \r
0023760 ( S E T Q G E N E R A T
0024000 O R ( C D R G E N E R A T O
0024020 R ) ) \r ( S
0024040 E T Q S C R A T C H ( 006 002 f
0024060 r o m 006 001 1 006 002 t o 006 001 1
0024100 2 7 006 002 c o l l e c t 006 001 N
0024120 I L ) ) \r L P (
0024140 C O N D \r
0024160 ( ( S E T Q F I L E ( \
0024200 G E N E R A T E N E X T F I L E
0024220 G E N E R A T O R N I L S
0024240 C R A T C H ) ) \r
0024260 [ C O N D \r
0024300 ( (
0024320 C O N D \r
0024340 [ ( L I S T
0024360 P F I L E ) \r
0024400 ( D
0024420 I R E C T O R Y . M A T C H P
0024440 A T T E R N ( S E T Q F I L
0024460 E ( C O N C A T C O D E S F
0024500 I L E ] \r
0024520 ( T T ) )
0024540 \r
0024560 [ C O N D \r
0024600 ( (
0024620 O R ( N O T N E W P ) \r
0024640
0024660 ( N O T F O U
0024700 N D S O M E ) ) \r
0024720 (
0024740 F T P P U T M A R K O U T S
0024760 ( M A R K # H E R E - I S - P
0025000 L I S T ] \r
0025020 ( S E T Q F O
0025040 U N D S O M E T ) \r
0025060 ( \ F
0025100 T P . P R I N T P L I S T O U
0025120 T S ( 006 002 \ S F T P . P L I S
0025140 T . F R O M . F I L E 006 001 ( M
0025160 K A T O M F I L E ) \r
0025200
*
0025240 N I L D
0025260 E S I R E D P R O P S N I L
0025300 G E N E R A T O R ] \r
0025320 ( G O L P )
0025340 ) \r (
0025360 ( N U L L F O U N D S O M E )
0025400 \r (
0025420 F T P P U T M A R K O U T S
0025440 ( M A R K # N O ) ) \r
0025460 ( F T P P U
0025500 T C O D E O U T S \ N O . F
0025520 I L E . N O T . F O U N D T )
0025540 \r (
0025560 P R I N 3 " F i l e n o t
0025600 f o u n d " O U T S ) ) ) \r
0025620 ( . E O C .
0025640 O U T S ) \r
0025660 ( R E T U R N T ] ) \r \r ( 006 004
0025700 \ S F T P . S T O R E 006 001 \r
0025720 [ L A M B D A ( I N S O U T
0025740 S O L D S T Y L E ) 006 006 006 001
0025760
0026000 006
0026020 006 ( * b v m % : " 1 6 - N o
0026040 v - 8 4 1 6 : 0 6 " ) 006 001 \r
0026060
*
0026140 006 006 ( *
0026160 D o t h e S T O R E c o
0026200 m m a n d . \r 006 001
0026220
*
0026300 006 006 P l i s t c o
0026320 m e s n e x t ) 006 001 \r
0026340 ( R E S E T L S T ( P R O G
0026360 ( P L I S T F I L E S U C C
0026400 E S S S A V E R ) \r
0026420 (
0026440 S E T Q P L I S T ( O R (
0026460 006 002 \ S F T P . R E A D P L I S
0026500 T 006 001 I N S O U T S ) \r
0026520
*
0026560 ( R E T U R N ) ) ) \r
0026600
0026620 ( O R ( E Q ( F T P G E T
0026640 M A R K I N S ) \r
0026660
0026700 ( M A R K # E O C
0026720 ) ) \r
0026740 ( R E T U
0026760 R N ( 006 002 \ S F T P . P R O T
0027000 O C O L . E R R O R 006 001 I N S
0027020 O U T S ) ) ) \r
0027040 ( S E
0027060 T Q F I L E ( O R ( 006 002 \
0027100 S F T P . O P E N F I L E . F R
0027120 O M . P L I S T 006 001 P L I S T
0027140 ' O U T P U T O U T S ) \r
0027160
*
0027220 ( R E T U R N T ) ) ) \r
0027240
0027260 ( R E S E T S A V E N I
0027300 L ( S E T Q S A V E R ( L
0027320 I S T [ F U N C T I O N ( L
0027340 A M B D A ( S T R E A M ) \r
0027360
*
0027460 ( D E L F I L E ( C L O S E F
0027500 S T R E A M ] \r
0027520
*
0027560 F I
0027600 L E ) ) ) \r
0027620 ( C O N D \r
0027640
0027660 ( O L D S T Y L E
0027700 ( F T P P U T M A R K O U T
0027720 S ( M A R K # Y E S ) ) \r
0027740
0027760 ( F T
0030000 P P U T C O D E O U T S 0 )
0030020 \r
0030040 (
0030060 . E O C . O U T S ) ) \r
0030100
0030120 ( T ( 006 002 \ S F T P .
0030140 S E N D P L I S T 006 001 ( 006 002 \
0030160 S F T P . P L I S T . F R O M .
0030200 F I L E 006 001 F I L E T \r
0030220
*
0030300 ( 006 002 f o r 006 001 P A I R 006 002
0030320 i n 006 001 P L I S T 006 002 w h e
0030340 n 006 001 ( E Q ( C A R P A I
0030360 R ) \r
0030400
*
0030500 ' D E S I R E D - P R O P E R
0030520 T Y ) \r
0030540
*
0030600 006 002 c o l l e
0030620 c t 006 001 ( C A D R P A I R )
0030640 ) \r
0030660
*
0030720 T ) \r
0030740
0030760 O U T S ) ) ) \r
0031000
0031020 ( S E L E C T C ( F T
0031040 P G E T M A R K I N S ) \r
0031060
0031100 ( ( M A R K # N O
0031120 )
0031140 006 006 ( *
0031160 n o , u s e r d o e s n ' t
0031200 w a n t f i l e ) 006 001 \r
0031220
0031240 ( F T P G
0031260 E T C O D E I N S T ) \r
0031300
0031320 ( \ F T P
0031340 . F L U S H . T O . E O C I N
0031360 S F T P D E B U G L O G ) ) \r
0031400
0031420 ( ( M A R K #
0031440 H E R E - I S - F I L E ) \r
0031460
0031500 ( S E T
0031520 Q S U C C E S S ( O R ( N
0031540 L S E T Q ( C O P Y B Y T E S
0031560 I N S F I L E ) ) \r
0031600
*
0031640 ( P R O G
0031660 N ( \ F T P . F L U S H . T O
0031700 . M A R K I N S ) \r
0031720
*
0032000 N I L ) ) ) \r
0032020
0032040 ( S E L E C T C ( F
0032060 T P G E T M A R K I N S ) \r
0032100
*
0032140 ( ( M A R K # Y E S ) \r
0032160
*
0032220 ( F T P G E T C O D E
0032240 I N S ) \r
0032260
0032300 ( \ F T P
0032320 . F L U S H . T O . E O C I N
0032340 S F T P D E B U G L O G ) \r
0032360
*
0032420 [ C O N D \r
0032440
*
0032500 ( ( N U L L S U C C E
0032520 S S ) \r
0032540
0032560 ( 006
0032600 002 \ S F T P . M A R K . E R R O
0032620 R 006 001 O U T S ) ) \r
0032640
*
0032700 ( T ( F T P P U T M A
0032720 R K O U T S ( M A R K # Y
0032740 E S ) ) \r
0032760
*
0033020 ( F T P P U T C O D E O U T
0033040 S 0 ) \r
0033060
*
0033120 ( P R I N 3 " F i l e s t
0033140 o r e d o k " O U T S ) \r
0033160
*
0033220 ( C L O S
0033240 E F F I L E ) \r
0033260
*
0033320 ( R P L A C A S A V
0033340 E R ( F U N C T I O N N I L
0033360 L ] ) \r
0033400
0033420 ( ( M A R K # N O )
0033440
0033460 006 006 ( * S t o r e f a i l
0033500 e d ) 006 001 \r
0033520
0033540 ( F T P
0033560 G E T C O D E I N S T ) \r
0033600
*
0033640 ( \ F T P . F L U S H
0033660 . T O . E O C I N S F T P D
0033700 E B U G L O G ) ) \r
0033720
0033740 ( 006 002 \ S
0033760 F T P . P R O T O C O L . E R R
0034000 O R 006 001 I N S O U T S ) ) )
0034020 \r
0034040 ( 006 002 \ S F T
0034060 P . P R O T O C O L . E R R O R
0034100 006 001 I N S O U T S ) ) \r
0034120
0034140 ( . E O C . O U T S ) \r
0034160
0034200 ( R E T U R N T ] ) \r \r
0034220 ( 006 004 \ S F T P . V E R S I O N
0034240 006 001 \r [ L A M B D A ( I N
0034260 S O U T S ) 006 006 006 001
0034300
*
0034340 006 006 ( * b v m % : "
0034360 1 9 - A U G - 8 3 2 2 : 3 3 "
0034400 ) 006 001 \r ( \ F T P . F L
0034420 U S H . T O . E O C I N S F
0034440 T P D E B U G L O G ) \r
0034460 ( F T P P U T M A R K O U T S
0034500 ( M A R K # V E R S I O N )
0034520 ) \r ( F T P P U T C O D
0034540 E O U T S \ F T P . V E R S
0034560 I O N ) \r ( P R I N 3
0034600 " I n t e r l i s p - D F t p
0034620 S e r v e r o f " O U T
0034640 S ) \r ( P R I N 3 \ S
0034660 F T P . V E R S I O N O U T S
0034700 ) \r ( . E O C . O U T
0034720 S ] ) \r ) \r ( D E F I N E Q \r \r
0034740 ( 006 004 \ S F T P . O P E N F I L
0034760 E . F R O M . P L I S T 006 001 \r
0035000 [ L A M B D A ( P L I S T
0035020 A C C E S S O U T S D E S I
0035040 R E D P R O P S ) 006 006 006 001
0035060
0035100 006 006 ( * ; " E d i t e d 1
0035120 6 - D e c - 8 6 1 7 : 4 1 b
0035140 y l m m " ) 006 001 \r
0035160
*
0035240 006 006 ( * ; \r 006
0035260 001
0035300
0035320 006 006 " O p e n
0035340 s f i l e f r o m u s e r
0035360 ' s P L I S T , o r a n s
0035400 w e r s N O a n d r e t u
0035420 r n s N I L " ) 006 001 \r
0035440 ( P R O G ( F I L E F I L E
0035460 N A M E P I E C E S E R R O
0035500 R M Y P L I S T ) \r
0035520 ( 006 002 f o r 006 001 P A
0035540 I R 006 002 i n 006 001 P L I S T
0035560 006 002 d o 006 001 ( S E L E C T Q
0035600 ( C A R P A I R ) \r
0035620
0035640 (
0035660 S E R V E R - F I L E N A M E
0035700 \r
0035720
0035740 ( S E T Q
0035760 F I L E N A M E ( C A D R P
0036000 A I R ) ) ) \r
0036020
0036040 ( D E V I
0036060 C E [ 006 002 p u s h 006 001 P I E
0036100 C E S ' H O S T ( C O N D \r
0036120
*
0036220 ( ( E Q ( N T H C H A R C
0036240 O D E ( C A D R P A I R ) \r
0036260
*
0036360 - 1
0036400 ) \r
0036420
*
0036500 ( C H A R C O
0036520 D E % : ) ) \r
0036540
*
0036620 ( S U B S
0036640 T R I N G ( C A D R P A I R
0036660 ) \r
0036700
*
0036760 1 - 2
0037000 ) ) \r
0037020
*
0037100 ( T ( C A D R P A
0037120 I R ] ) \r
0037140
0037160 ( D I R E C T
0037200 O R Y ( 006 002 p u s h 006 001 P I
0037220 E C E S ' D I R E C T O R Y
0037240 ( C A D R P A I R ) ) ) \r
0037260
*
0037320 ( N A M E - B O D Y ( 006 002
0037340 p u s h 006 001 P I E C E S ' B
0037360 O D Y ( C A D R P A I R ) )
0037400 ) \r
0037420
0037440 ( V E R S I O N (
0037460 006 002 p u s h 006 001 P I E C E S
0037500 ' V E R S I O N ( 006 002 i f 006 001
0037520 ( S T R I N G . E Q U A L (
0037540 C A D R P A I R ) \r
0037560
*
0037660 " H " ) \r
0037700
*
0040000 006 002 t h e n 006 001 " "
0040020 \r
0040040
*
0040120 006 002 e l s e 006 001 (
0040140 C A D R P A I R ) ) ) ) \r
0040160
*
0040220 ( T Y P E [ 006 002 p u s h 006
0040240 001 M Y P L I S T ( L I S T
0040260 ' T Y P E ( M K A T O M ( U
0040300 - C A S E ( C A D R P A I R
0040320 ] ) \r
0040340
0040360 ( C R E A T I O N
0040400 - D A T E ( 006 002 p u s h 006 001
0040420 M Y P L I S T ( L I S T ' C
0040440 R E A T I O N D A T E ( C A D
0040460 R P A I R ) ) ) ) \r
0040500
0040520 (
0040540 E N D - O F - L I N E - C O N V
0040560 E N T I O N \r
0040600
*
0040640 [ 006 002 p u s h 006 001 M Y P L I
0040660 S T ( L I S T ' E O L C O N
0040700 V E N T I O N ( U - C A S E
0040720 ( C A D R P A I R ] ) \r
0040740
*
0041000 ( S I Z E [ 006 002 p u s h 006 001
0041020 M Y P L I S T ( L I S T '
0041040 L E N G T H ( M K A T O M (
0041060 C A D R P A I R ] ) \r
0041100
*
0041140 N I L ) ) \r
0041160 ( S E T Q F I L E N A M E (
0041200 C O N D \r
0041220
0041240 [ ( N U L L F I L E N A M E
0041260 ) \r
0041300 (
0041320 P A C K F I L E N A M E . S T R
0041340 I N G ( N C O N C P I E C E
0041360 S ( L I S T ' H O S T F T
0041400 P S E R V E R . D E F A U L T .
0041420 H O S T ] \r
0041440
0041460 ( ( N U L L ( F I L E N A
0041500 M E F I E L D F I L E N A M E
0041520 ' H O S T ) ) \r
0041540
0041560 ( P A C K F I L E N
0041600 A M E . S T R I N G ' H O S T
0041620 F T P S E R V E R . D E F A U
0041640 L T . H O S T ' B O D Y F I
0041660 L E N A M E ) ) \r
0041700
0041720 ( T F I L E N A M E
0041740 ) ) ) \r ( R
0041760 E T U R N ( C O N D \r
0042000
0042020 ( [ N L S E T Q ( S E T Q
0042040 F I L E ( C O N D \r
0042060
*
0042120 [ ( E Q A C C E
0042140 S S ' E N U M E R A T E ) \r
0042160
*
0042220 ( S E T
0042240 Q F I L E N A M E ( D I R E
0042260 C T O R Y . F I L L . P A T T E
0042300 R N F I L E N A M E ) ) \r
0042320
*
0042360 ( C O N S
0042400 F I L E N A M E ( \ G E N E
0042420 R A T E F I L E S F I L E N A
0042440 M E D E S I R E D P R O P S \r
0042460
*
0042560 ' S O R T ] \r
0042600
*
0042640 ( T ( O P E N S T
0042660 R E A M F I L E N A M E A C
0042700 C E S S N I L N I L \r
0042720
*
0043000 ( C O N S ' S E Q U E N
0043020 T I A L M Y P L I S T ] \r
0043040
0043060 F I L E ) \r
0043100 (
0043120 T ( 006 002 \ S F T P . M A R K .
0043140 E R R O R 006 001 O U T S ) \r
0043160
0043200 ( . E O C . O U T
0043220 S ) \r
0043240 N I L ] )
0043260 \r \r ( 006 004 \ S F T P . P L I S T
0043300 . F R O M . F I L E 006 001 \r [
0043320 L A M B D A ( F I L E N E W
0043340 D E S I R E D P R O P S F I
0043360 L E O P E N P G E N E R A T O
0043400 R ) 006 006 006 001 006 006
0043420 ( * b v m % : " 1 6 - N o v
0043440 - 8 4 1 2 : 3 2 " ) 006 001 \r
0043460 \r
0043500 006 006 ( * G e n e r a t e
0043520 s a P L I S T f r o m F
0043540 I L E . N E W i s t r u e
0043560 i f f i l e i s b e i n
0043600 g w r i t t e n a n e w \r
0043620 006 001 006 006 D E
0043640 S I R E D P R O P S m a y r
0043660 e s t r i c t w h a t w e
0043700 s e n d ) 006 001 \r \r ( P R
0043720 O G ( [ P I E C E S ( U N P
0043740 A C K F I L E N A M E . S T R I
0043760 N G ( C O N D \r
0044000
*
0044040 ( ( 006 002 t y p e ? 006
0044060 001 S T R E A M F I L E ) \r
0044100
*
0044140 ( F U
0044160 L L N A M E F I L E ) ) \r
0044200
*
0044240 ( T F I
0044260 L E ] \r I
0044300 N F O F N I N F O H A N D L E
0044320 H O S T D I R N A M E E
0044340 X T V E R S I O N A U T H O
0044360 R T Y P E P L I S T ) \r
0044400 ( C O N D \r
0044420 ( G E N E
0044440 R A T O R ( S E T Q I N F O
0044460 F N ( F U N C T I O N \ G E
0044500 N E R A T E F I L E I N F O ) )
0044520 \r
0044540 ( S E T Q I N F O H
0044560 A N D L E G E N E R A T O R )
0044600 ) \r (
0044620 T ( S E T Q I N F O F N (
0044640 F U N C T I O N G E T F I L E
0044660 I N F O ) ) \r
0044700 ( S E T Q I N F
0044720 O H A N D L E F I L E ) ) ) \r
0044740 ( 006 002 f o r
0044760 006 001 T A I L 006 002 o n 006 001 P
0045000 I E C E S 006 002 b y 006 001 ( C D
0045020 D R T A I L ) \r
0045040 006 002 d o 006 001 ( S E
0045060 L E C T Q ( C A R T A I L )
0045100 \r
0045120 ( H O S T [ C O N D
0045140 \r
0045160 ( (
0045200 E Q ( M K A T O M ( C A D R
0045220 T A I L ) ) \r
0045240
0045260 F T P S E R
0045300 V E R . D E F A U L T . H O S T
0045320 ) \r
0045340
0045360 ( R P L A C A ( C D R T A I
0045400 L ) ) ) \r
0045420
0045440 ( T ( S E T Q H O S T
0045460 ( C A D R T A I L ] ) \r
0045500
0045520 ( D I R E C T O R Y ( S E T
0045540 Q D I R ( C A D R T A I L
0045560 ) ) ) \r
0045600 ( N A M E ( S
0045620 E T Q N A M E ( C A D R T
0045640 A I L ) ) ) \r
0045660 ( E X T E
0045700 N S I O N ( S E T Q E X T
0045720 ( C A D R T A I L ) ) ) \r
0045740
0045760 ( V E R S I O N ( S E T Q
0046000 V E R S I O N ( C A D R T
0046020 A I L ) ) ) \r
0046040 N I L ) )
0046060 \r [ S E T Q
0046100 P L I S T ( N C O N C ( .
0046120 I F D E S I R E D . S E R V E
0046140 R - F I L E N A M E ( P A C K
0046160 F I L E N A M E . S T R I N G
0046200 P I E C E S ) ) \r
0046220
0046240 ( . I F D E S I R E
0046260 D . N A M E - B O D Y ( C O
0046300 N D \r
0046320
*
0046360 ( E X T (
0046400 C O N C A T N A M E " . "
0046420 E X T ) ) \r
0046440
*
0046500 ( T
0046520 N A M E ) ) ) \r
0046540
0046560 ( . I F D E S I R E D
0046600 . V E R S I O N V E R S I O
0046620 N ) \r
0046640
0046660 ( . I F D E S I R E D . E N D
0046700 - O F - L I N E - C O N V E N T
0046720 I O N ' C R ) \r
0046740
0046760 ( A N D D I R (
0047000 . I F D E S I R E D . D I R E
0047020 C T O R Y D I R ) ) \r
0047040
0047060 ( A N D H O
0047100 S T ( . I F D E S I R E D .
0047120 D E V I C E H O S T ] \r
0047140 [ C O N D \r
0047160 ( ( N O T
0047200 N E W ) \r
0047220 ( S E T Q P L I S T (
0047240 N C O N C P L I S T [ . I F
0047260 D E S I R E D . T Y P E ( S
0047300 E T Q T Y P E ( O R ( A P
0047320 P L Y * I N F O F N I N F O
0047340 H A N D L E \r
0047360
*
0047460 ' T Y P E ) \r
0047500
*
0047600 ( 006 002 \ G E T F I L E
0047620 T Y P E 006 001 F I L E F I L E
0047640 O P E N P ] \r
0047660
0047700 ( A N D ( E Q
0047720 T Y P E ' B I N A R Y ) \r
0047740
*
0050000 ( L I S T ( L I S T
0050020 ' B Y T E - S I Z E 8 ) ) )
0050040 \r
0050060
0050100 ( . I F D E S I R E D . C
0050120 R E A T I O N - D A T E ( A P
0050140 P L Y * I N F O F N I N F O
0050160 H A N D L E ' C R E A T I O N
0050200 D A T E ) ) \r
0050220
0050240 ( . I F D E S I
0050260 R E D . W R I T E - D A T E
0050300 ( A P P L Y * I N F O F N I
0050320 N F O H A N D L E ' W R I T E
0050340 D A T E ) ) \r
0050360
0050400 ( . I F D E S I
0050420 R E D . R E A D - D A T E (
0050440 A P P L Y * I N F O F N I N
0050460 F O H A N D L E ' R E A D D A
0050500 T E ) ) \r
0050520
0050540 ( . I F D E S I R E
0050560 D . S I Z E ( A P P L Y *
0050600 I N F O F N I N F O H A N D L
0050620 E ' L E N G T H ) ) \r
0050640
0050660 ( . I
0050700 F D E S I R E D . A U T H O R
0050720 ( A P P L Y * I N F O F N
0050740 I N F O H A N D L E ' A U T H
0050760 O R ] \r ( R
0051000 E T U R N P L I S T ] ) \r \r (
0051020 006 004 \ S F T P . S E N D P L I S
0051040 T 006 001 \r [ L A M B D A ( P
0051060 L I S T O U T S ) 006 006 006 001
0051100
*
0051140 006 006 ( * b v m % :
0051160 " 2 0 - A U G - 8 3 0 0 : 0 7
0051200 " ) 006 001 \r ( F T P P U T
0051220 M A R K O U T S ( M A R K #
0051240 H E R E - I S - P L I S T ) )
0051260 \r ( \ F T P . P R I N T
0051300 P L I S T O U T S P L I S T
0051320 ) \r ( . E O C . O U T
0051340 S ] ) \r \r ( 006 004 \ S F T P . P R
0051360 O T O C O L . E R R O R 006 001 \r
0051400 [ L A M B D A ( I N S O U
0051420 T S ) 006 006 006 001
0051440
*
0051500 006 006 ( * b v m % : " 1 9 - A
0051520 U G - 8 3 1 8 : 1 4 " ) 006 001 \r
0051540 ( F T P P U T M A R K
0051560 O U T S ( M A R K # N O ) )
0051600 \r ( F T P P U T C O D E
0051620 O U T S \ N O . P R O T O C
0051640 O L . E R R O R ) \r ( P
0051660 R I N 3 " P r o t o c o l E
0051700 r r o r - A b o r t i n g
0051720 c o n n e c t i o n " O U T S
0051740 ) \r ( C L O S E B S P S
0051760 T R E A M I N S 0 ) \r
0052000 N I L ] ) \r \r ( 006 004 \ S F T P
0052020 . M A R K . E R R O R 006 001 \r
0052040 [ L A M B D A ( O U T S ) 006 006
0052060 006 001
0052100
0052120 006
0052140 006 ( * b v m % : " 2 9 - F e
0052160 b - 8 4 1 3 : 5 0 " ) 006 001 \r
0052200 \r
0052220 006 006 ( * P u t o u t
0052240 a N O m a r k f o l l o
0052260 w e d b y a p p r o p r i a
0052300 t e e r r o r c o d e a n
0052320 d m e s s a g e f o r l a
0052340 s t \r 006 001
0052360 006 006 e r r o r . C a l l e r
0052400 s u p p l i e s E O C ) 006 001 \r
0052420 \r ( P R O G ( ( E R N
0052440 ( E R R O R N ) ) ) \r
0052460 ( F T P P U T M A R
0052500 K O U T S ( M A R K # N O
0052520 ) ) \r ( F T
0052540 P P U T C O D E O U T S ( S
0052560 E L E C T Q ( C A R E R N )
0052600 \r
0052620
0052640 ( 5 \ N O . D I S K . E R R O
0052660 R ) \r
0052700
0052720 ( 9 \ N O . F I L E . P R
0052740 O T E C T E D ) \r
0052760
0053000 ( 2 2 \ N O .
0053020 S T O R A G E . F U L L ) \r
0053040
0053060 ( 2 3
0053100 \ N O . F I L E . N O T . F O
0053120 U N D ) \r
0053140
0053160 \ N O . F I L E . P R O
0053200 T E C T E D ) ) \r
0053220 ( P R I N 3 ( C O N C A
0053240 T ( E R R O R S T R I N G (
0053260 C A R E R N ) ) \r
0053300
0053320 " : " \r
0053340 (
0053360 C A D R E R N ) ) \r
0053400 O U T S
0053420 ] ) \r \r ( 006 004 \ S F T P . R E A
0053440 D P L I S T 006 001 \r [ L A M B
0053460 D A ( I N S O U T S ) 006 006 006
0053500 001
0053520
0053540 006 006 ( * b
0053560 v m % : " 2 0 - A U G - 8 3
0053600 1 8 : 4 7 " ) 006 001 \r
0053620 \r 006
0053640 006 ( * R e a d p l i s t f
0053660 r o m u s e r , r e t u r n
0053700 N I L , a b o r t i n g c
0053720 o n n e c t i o n , o n e r
0053740 r o r ) 006 001 \r \r ( P R O
0053760 G [ ( P L I S T ( N L S E T
0054000 Q ( R E A D P L I S T I N S
0054020 ] \r ( R E T
0054040 U R N ( C O N D \r
0054060 (
0054100 ( N U L L P L I S T ) \r
0054120
0054140 ( 006 002 \ S F T P . P R O T
0054160 O C O L . E R R O R 006 001 I N S
0054200 O U T S ) ) \r
0054220 ( T
0054240 ( C O N D \r
0054260
0054300 ( F T P D E B U G F L G ( P
0054320 R I N 2 ( C A R P L I S T )
0054340 \r
0054360
*
0054420 F T P D E B U G L O G ) ) ) \r
0054440
0054460 ( C A R P L I S
0054500 T ] ) \r \r ( 006 004 \ S F T P . T I
0054520 M E O U T F N 006 001 \r [ L A M
0054540 B D A ( S T R E A M ) 006 006 006 001
0054560
*
0054620 006 006 ( *
0054640 b v m % : " 2 0 - A U G - 8 3
0054660 1 7 : 4 5 " ) 006 001 \r (
0054700 C O N D \r ( ( B S
0054720 P O P E N P S T R E A M ' I
0054740 N P U T ) \r ( 006
0054760 002 r e p l a c e 006 001 I O T I M
0055000 E O U T F N 006 002 o f 006 001 ( 006
0055020 002 f e t c h 006 001 B S P S O C
0055040 006 002 o f 006 001 S T R E A M ) 006
0055060 002 w i t h 006 001 N I L ) \r
0055100 ( C L O S E B S P S T
0055120 R E A M S T R E A M ] ) \r \r (
0055140 006 004 \ S F T P . E R R O R H A N
0055160 D L E R 006 001 \r [ L A M B D A
0055200 ( I N S T R E A M E R R C O
0055220 D E ) 006 006 006 001
0055240
0055260 006 006 ( * b v m
0055300 % : " 2 0 - A U G - 8 3 0 0
0055320 : 3 1 " ) 006 001 \r ( S E L
0055340 E C T Q E R R C O D E \r
0055360 ( M A R K . E N C O U
0055400 N T E R E D \r
0055420 ( C O N D \r
0055440 ( ( 006 002 f
0055460 e t c h 006 001 F T P O P E N P
0055500 006 002 o f 006 001 I N S T R E A M )
0055520 \r
0055540 ( S T R E A M O P ' E N D
0055560 O F S T R E A M O P I N S T R
0055600 E A M I N S T R E A M ) ) \r
0055620 (
0055640 T - 1 ) ) ) \r
0055660 ( E R R O R ! ] ) \r \r ( 006 004 \ S
0055700 F T P . W H E N C L O S E D 006 001
0055720 \r [ L A M B D A ( S T R E
0055740 A M ) 006 006 006 001
0055760
*
0056020 006 006 ( * b v m % : " 1 6
0056040 - N o v - 8 4 1 0 : 3 1 " ) 006
0056060 001 \r ( A N D ( F I N D
0056100 . P R O C E S S ' F T P S E R
0056120 V E R ) \r ( P
0056140 R O C E S S . E V A L ' F T P
0056160 S E R V E R ' ( P R O G N (
0056200 A N D F T P D E B U G L O G
0056220 ( p r i n t o u t F T P D E B
0056240 U G L O G T \r
0056260
*
0056340 " C o n n
0056360 e c t i o n c l o s e d " T
0056400 ) \r
0056420
*
0056460 ( R E S E T ] ) \r ) \r \r ( R P
0056500 A Q Q 006 002 \ S F T P . V E R S
0056520 I O N 006 001 " 2 6 - F e b - 8 7
0056540 2 1 : 1 9 : 1 6 " ) \r \r ( R P
0056560 A Q ? 006 002 F T P S E R V E R .
0056600 D E F A U L T . H O S T 006 001 '
0056620 D S K ) \r \r ( R P A Q ? 006 002 F
0056640 T P S E R V E R . D E F A U L T
0056660 . P R O P S 006 001 ' ( T Y P E
0056700 C R E A T I O N D A T E W R I
0056720 T E D A T E R E A D D A T E
0056740 L E N G T H A U T H O R ) ) \r
0056760 ( D E C L A R E % : D O N T C
0057000 O P Y \r ( D E C L A R E % :
0057020 E V A L @ C O M P I L E \r [ P
0057040 U T P R O P S . I F D E S I R
0057060 E D . M A C R O ( ( P R O P
0057100 . L I S T F O R M ) \r
0057120
0057140 ( A N D (
0057160 O R ( N U L L D E S I R E D
0057200 P R O P S ) \r
0057220
0057240 ( F M
0057260 E M B ' P R O P D E S I R E
0057300 D P R O P S ) ) \r
0057320
0057340 ( P R O G
0057360 ( ( P R O P V A L . L I S
0057400 T F O R M ) ) \r
0057420
*
0057460 ( R E T U R N ( A N D P R O
0057500 P V A L ( L I S T ( L I S T
0057520 ' P R O P P R O P V A L ] \r
0057540 ) \r \r ( F I L E S L O A D ( L
0057560 O A D C O M P ) \r
0057600 D P U P F T P B S P ) \r ) \r (
0057620 P U T P R O P S F T P S E R V
0057640 E R C O P Y R I G H T ( " X
0057660 e r o x C o r p o r a t i o n
0057700 " 1 9 8 3 1 9 8 4 1 9 8 6
0057720 1 9 8 7 ) ) \r ( D E C L A R E
0057740 % : D O N T C O P Y \r ( F
0057760 I L E M A P ( N I L ( 1 2 8
0060000 8 1 4 8 0 5 ( \ F T P S E R
0060020 V E R . T O P 1 2 9 8 . 4
0060040 0 9 2 ) ( F T P S E R V E R
0060060 4 0 9 4 . 4 3 8 5 ) ( \ G
0060100 E T F I L E T Y P E 4 3 8 7
0060120 . \r 4 7 7 5 ) ( \ S F T P .
0060140 C O M M A N D L O O P 4 7 7 7
0060160 . 6 8 2 9 ) ( \ S F T P .
0060200 R E T R I E V E 6 8 3 1 .
0060220 9 0 0 0 ) ( \ S F T P . E N U
0060240 M E R A T E 9 0 0 2 . 1 1
0060260 1 9 5 ) ( \r \ S F T P . S T O
0060300 R E 1 1 1 9 7 . 1 4 4 7 8
0060320 ) ( \ S F T P . V E R S I O N
0060340 1 4 4 8 0 . 1 4 8 0 3 ) )
0060360 ( 1 4 8 0 6 2 3 8 6 7 ( \
0060400 S F T P . O P E N F I L E . F R
0060420 O M . P L I S T \r 1 4 8 1 6
0060440 . 1 8 0 9 6 ) ( \ S F T P .
0060460 P L I S T . F R O M . F I L E
0060500 1 8 0 9 8 . 2 1 0 0 5 ) (
0060520 \ S F T P . S E N D P L I S T
0060540 2 1 0 0 7 . 2 1 2 1 9 ) (
0060560 \r \ S F T P . P R O T O C O L .
0060600 E R R O R 2 1 2 2 1 . 2 1
0060620 5 1 0 ) ( \ S F T P . M A R K
0060640 . E R R O R 2 1 5 1 2 . 2
0060660 2 2 9 0 ) ( \ S F T P . R E A
0060700 D P L I S T 2 2 2 9 2 . 2
0060720 2 8 5 1 ) ( \r \ S F T P . T I
0060740 M E O U T F N 2 2 8 5 3 .
0060760 2 3 1 3 3 ) ( \ S F T P . E R
0061000 R O R H A N D L E R 2 3 1 3 5
0061020 . 2 3 4 8 1 ) ( \ S F T P
0061040 . W H E N C L O S E D 2 3 4 8
0061060 3 . 2 3 8 6 5 ) ) ) ) \r ) \r
0061100 S T O P \r
0061105