$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>LIBRARY>TCPFTP.DCOM!2
0000000 ( F I L E C R E A T E D " 1 2
0000020 - M a r - 8 5 1 4 : 5 7 : 2 8
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > T C P F T P
0000120 . ; 8 ) \r " 7 - M a r - 8 5
0000140 1 2 : 3 7 : 0 6 " r e c o m
0000160 p i l e d c h a n g e s : \
0000200 T C P F T P . L O G I N \ T C
0000220 P F T P . O P E N F I L E \ T
0000240 C P . B Y E \r \ T C P F T P .
0000260 T R A N S F E R . C O M P L E T
0000300 E i n " I N T E R L I S P -
0000320 D 7 - M a r - 8 5 . . . "
0000340 d a t e d " 7 - M a r - 8
0000360 5 1 2 : 4 2 : 2 2 " ) \r ( F I
0000400 L E C R E A T E D " 1 2 - M a
0000420 r - 8 5 1 4 : 5 0 : 0 2 " {
0000440 E R I S } < L I S P C O R E > L
0000460 I B R A R Y > T C P F T P . ; 8
0000500 2 4 4 9 3 c h a n g e s t
0000520 o : ( F N S \r \ T C P F T P
0000540 . L O G I N \ T C P F T P . O
0000560 P E N F I L E \ T C P . B Y E
0000600 \ T C P F T P . T R A N S F E
0000620 R . C O M P L E T E ) ( V A R
0000640 S T C P F T P C O M S ) p r
0000660 e v i o u s d a t e : \r "
0000700 9 - M a r - 8 5 1 8 : 2 6 : 0
0000720 9 " { E R I S } < L I S P C O
0000740 R E > L I B R A R Y > T C P F T
0000760 P . ; 5 ) \r A R P A C M D D 1
0001000 \r ( P 1 O U T C P 0 I
0001020 N C I 5 W A N T A R G I
0001040 4 D I S C A R D I 3 W
0001060 A N T I 2 A R G I 1
0001100 C M D I 0 T C P F T P C O
0001120 N F 2 F T P D E B U G L O
0001140 G F 3 F T P D E B U G F L
0001160 G ) \0 366 002 002 \0 006 @ 001 @ 002 001 021 002
0001200 001 A 262 @ S 262 027 A R \n \0 \0 277 o \0 \0
0001220 \0 R \n \0 \0 277 B R \n \0 \0 277 A I \n \0
0001240 \0 277 o \0 \0 \0 I \n \0 \0 277 B I \n \0 \0
0001260 277 I \t \0 \0 277 I \t \0 \0 277 S 237 R \t \0
0001300 \0 277 S 230 o \0 \0 \0 R \n \0 \0 277 H \t \0
0001320 \0 b 002 277 S 236 A R \n \0 \0 277 o \0 \0 \0
0001340 R \n \0 \0 277 A E 360 246 E 003 237 A E 034 233
0001360 H l - 360 223 A \t \0 \0 A 020 H l -
0001400 360 234 H \t \0 \0 277 H \t \0 \0 A 360 262 365 A
0001420 C 360 250 C 003 233 A d C 034 227 277 H \t \0 \0
0001440 A 020 A D 360 250 D 003 233 A d D 034 227 277 H
0001460 \t \0 \0 260 216 A d 005 001 241 005 002 264 006 A l
0001500 d 333 d l 002 360 244 d l 003 360 226 277 A \t \0
0001520 \0 260 025 d l 004 360 244 d l 005 360 230 277 H i
0001540 \n \0 \0 \t \0 \0 277 H \t \0 \0 261 377 V \0 (
0001560 3 6 1 Q D I S C A R D L I N E
0001600 3 5 4 Q E R R O R 3 5 1 Q
0001620 G E T L I N E 3 2 7 Q F T
0001640 P H E L P 2 7 1 Q D I S C A
0001660 R D L I N E 2 4 6 Q D I S C
0001700 A R D L I N E 2 2 1 Q \ T C
0001720 P F T P . I N P U T 2 1 4 Q
0001740 D I S C A R D L I N E 2 0 0 Q
0001760 F T P H E L P 1 5 2 Q P R
0002000 I N 1 1 4 1 Q P R I N 1 1
0002020 2 7 Q \ T C P F T P . I N P U
0002040 T 1 2 2 Q P R I N 1 1 0 7
0002060 Q T E R P R I 1 0 0 Q F O
0002100 R C E O U T P U T 7 3 Q T E
0002120 L N E T . E O L 6 6 Q P R I
0002140 N 3 6 0 Q P R I N 3 4 7 Q
0002160 P R I N 3 4 1 Q P R I N 1
0002200 3 3 Q P R I N 1 2 2 Q P
0002220 R I N 1 ) \r N I L \r ( 1 4 6 Q
0002240 " " 1 1 6 Q " < " 5
0002260 4 Q " " 2 7 Q " " ) \r
0002300 F T P H E L P D 1 \r ( I 0
0002320 A R G ) \0 \n \0 \0 \0 001 @ o \0 \0 \0
0002340 \n \0 \0 020 \0 ( 7 E R R O R ) \r N
0002360 I L \r ( 4 " u n r e c o g
0002400 n i z e d r e s p o n s e f
0002420 r o m r e m o t e F T P s
0002440 e r v e r " ) \r C M D R E A D C
0002460 O D E D 1 \r ( I 0 I N )
0002500 \0 021 \0 \0 \0 001 @ \t \0 \0 @ \t \0 \0 @ \t
0002520 \0 \0 \v \0 \0 020 \0 ( 1 6 Q P A C K
0002540 * 1 3 Q C M D R E A D 7
0002560 C M D R E A D 3 C M D R E A
0002600 D ) \r N I L \r ( ) \r C M D R E A
0002620 D D 1 \r ( P 0 C H I 0
0002640 I N F 1 F T P D E B U G
0002660 F L G F 2 F T P D E B U G
0002700 L O G ) \0 017 001 002 \0 001 @ 021 001 \0
0002720 Q 224 H R \n \0 \0 H 020 \0 ( 1 3 Q B
0002740 O U T ) \r N I L \r ( ) \r D I S C
0002760 A R D L I N E D 1 \r ( P 0
0003000 C H I 0 I N ) \0 / 001 \0 \0
0003020 001 ` \0 \0 262 " @ \t \0 \0 021 020 \0 @ X
0003040 l \n 360 227 ` \0 \0 \t \0 \0 h 020 ` \0 \0 H
0003060 \n \0 \0 277 260 351 @ l \n 360 262 373 h 020 \0
0003100 ( 4 1 Q B O U T 3 0 Q T E
0003120 R P R I 1 0 Q \ B A C K F I
0003140 L E P T R ) \r ( 3 5 Q F T P D
0003160 E B U G L O G 2 5 Q F T P D
0003200 E B U G L O G 2 F T P D E B
0003220 U G F L G ) \r ( ) \r G E T L I N
0003240 E D 1 \r ( P 2 C H P 1
0003260 S T R I N G P 0 P O S
0003300 I 1 F L G I 0 I N )
0003320 \0 - 003 \0 \0 002 k l P \t \0 \0 021 022 002 @
0003340 Z l \n 360 263 024 H d l P 363 246 277 I H
0003360 J + 277 H k 324 270 260 350 I k H k 331 \v \0
0003400 \0 020 \0 ( 5 2 Q S U B S T R I N
0003420 G 5 A L L O C S T R I N G )
0003440 \r N I L \r ( ) \r \ T C P F T P .
0003460 I N P U T D 1 \r ( P 2 C H
0003500 P 1 G O T C O D E P 0
0003520 C O D E I 0 S T R E A M
0003540 ) \0 9 003 \0 \0 001 j 021 ! 002 J l - 360
0003560 263 . J j 360 263 ) J l 360 263 # @ 272
0003600 I 263 031 l 0 J 363 263 023 J l 9 363 253 H l
0003620 \n 326 J l 0 325 324 270 260 324 i 271 260 320 H 020
0003640 \0 N I L \r N I L \r ( ) \r T E L N
0003660 E T . E O L D 1 \r ( I 0 S
0003700 T R E A M ) \0 022 \0 \0 \0 001 @ l \r
0003720 \n \0 \0 @ l \n \n \0 \0 @ \t \0 \0 020 \0 (
0003740 1 7 Q F O R C E O U T P U T
0003760 1 3 Q B O U T 5 B O U T )
0004000 \r N I L \r ( ) \r \ T C P F T P .
0004020 G E T . O S T Y P E D 1 \r ( P
0004040 1 E N T R Y P 0 H O S
0004060 T I 0 D E V I C E F 2
0004100 \ H O S T N A M E S ) \0 & 002
0004120 001 \0 001 @ 006 \0 \0 311 \0 021 021 001 H R \n \0
0004140 \0 230 H g \0 \0 \n \0 \0 265 016 H ` \0 \0 035
0004160 d 224 006 \0 \0 311 \b 020 \0 ( 2 5 Q G E
0004200 T H O S T I N F O 1 5 Q F A
0004220 S S O C ) \r ( 4 1 Q H O S T S
0004240 . T X T . E N T R Y 3 3 Q \
0004260 I P . H O S T N A M E S 2 2 Q
0004300 O S T Y P E 3 F D E V ) \r
0004320 ( ) \r \ T C P F T P . H O S T N
0004340 A M E P D 1 \r ( P 2 F I L
0004360 I N G N A M E P 1 F U L L
0004400 H O S T N A M E P 0 S E R
0004420 V E R I 1 D E V I C E I
0004440 0 H O S T ) \0 257 005 \0 \0 002 @
0004460 \t \0 \0 021 A 004 H 241 h 020 @ \t \0 \0 \t \0
0004500 \0 Y i d \v \0 \0 265 003 202 261 \0 222 @ o \0
0004520 \0 \0 \n \0 \0 Z I ` \0 \0 ` \0 \0 \n \0 \0
0004540 d I 024 \0 277 d g \0 \0 024 022 277 d g \0 \0
0004560 024 026 277 d g \0 \0 024 002 277 d g \0 \0 024 \f
0004600 277 d g \0 \0 024 030 277 d g \0 \0 024 2 277 d
0004620 g \0 \0 024 004 277 d g \0 \0 024 020 277 d g \0
0004640 \0 024 016 277 d g \0 \0 024 006 277 d g \0 \0 024
0004660 \n 277 d g \0 \0 024 \b 277 h d d H h 032 032
0004700 032 032 273 d K 024 ( 277 ` \0 \0 006 \0 \0 311 *
0004720 274 d L 024 * 277 b 002 \n \0 \0 A 020 \0 ( 2
0004740 5 3 Q \ D E F I N E D E V I C
0004760 E 6 0 Q N C R E A T E 2 4
0005000 5 Q P A C K * 2 7 Q \ G E
0005020 T D E V I C E F R O M N A M E
0005040 2 1 Q M K A T O M 1 6 Q U
0005060 - C A S E 3 D O D I P . H O
0005100 S T P ) \r ( 2 3 6 Q F D E V
0005120 2 3 3 Q \ T C P . D E V I C E
0005140 2 0 6 Q N I L L 1 7 7 Q
0005160 \ T C P F T P . G E N E R A T E
0005200 F I L E S 1 7 0 Q \ T C P F
0005220 T P . D I R E C T O R Y N A M E
0005240 P 1 6 1 Q \ T C P F T P . G
0005260 E T F I L E N A M E 1 5 2 Q
0005300 N I L L 1 4 3 Q \ T C P F T
0005320 P . D E L E T E F I L E 1 3 4
0005340 Q \ T C P F T P . G E T E O F
0005360 P T R 1 2 5 Q N I L L 1 1
0005400 6 Q N I L L 1 0 7 Q \ T C
0005420 P F T P . C L O S E F I L E 1
0005440 0 0 Q N I L L 7 1 Q \ T C
0005460 P F T P . O P E N F I L E 5 5
0005500 Q \ T C P . D E V I C E 5 2
0005520 Q 004 003 F D E V T Y P E # ) \r (
0005540 4 2 Q " F i l i n g " ) \r
0005560 \ G E T . T C P F T P . C O N N
0005600 E C T I O N D 1 \r ( P 1 I
0005620 N S T R E A M P 0 D E V I
0005640 N F O I 0 D E V I C E )
0005660 \0 0 002 \0 \0 001 @ 006 \0 \0 311 ( 021 021 001 H
0005700 001 Y 004 ` \0 \0 360 262 026 I \t \0 \0 236 I \t
0005720 \0 \0 251 I \t \0 \0 232 I 277 260 370 @ \t \0
0005740 \0 264 003 @ 020 \0 ( 5 2 Q \ T C P F
0005760 T P . O P E N . C O N N E C T I
0006000 O N 4 0 Q R E A D P 3 3 Q
0006020 E O F P 2 6 Q O P E N P )
0006040 \r ( 1 7 Q 004 003 S T R E A M T Y
0006060 P E # 3 F D E V ) \r ( ) \r \
0006100 T C P F T P . O P E N . C O N N
0006120 E C T I O N A 0 0 0 1 D 1 \r (
0006140 I 0 S T R E A M ) \0 005 \0 \0
0006160 \0 001 \b \0 \0 020 \0 ( 2 Z E R O ) \r
0006200 N I L \r ( ) \r \ T C P F T P . O
0006220 P E N . C O N N E C T I O N D
0006240 1 \r ( P 1 I N S T R E A M
0006260 P 0 D E V I N F O I 0
0006300 D E V I C E ) \0 C 002 \0 \0 001 @ 006
0006320 \0 \0 311 ( 021 021 001 H 002 002 002 001 l 025 h g
0006340 \0 \0 g \0 \0 \r 005 \0 \0 Y d 006 \0 \0 g \0
0006360 \0 024 " I 264 033 H I 030 277 H 002 I \t \0 \0
0006400 030 277 I \t \0 \0 l 334 360 264 006 @ \t \0 \0 020
0006420 \0 ( 1 0 0 Q \ T C P F T P . L
0006440 O G I N 6 7 Q \ T C P F T P
0006460 . I N P U T 6 1 Q T C P . O
0006500 T H E R . S T R E A M 3 2 Q
0006520 T C P . O P E N ) \r ( 4 2 Q \
0006540 T C P F T P . O P E N . C O N N
0006560 E C T I O N A 0 0 0 1 3 7 Q
0006600 S T R E A M 2 6 Q I N P U T
0006620 2 3 Q A C T I V E 3 F D
0006640 E V ) \r ( ) \r \ T C P F T P . L
0006660 O G I N D 1 \r ( P 2 I N F
0006700 O P 1 H O S T P 0 D
0006720 E V I N F O I 0 D E V I C
0006740 E ) \0 236 003 \0 \0 001 @ 006 \0 \0 311 ( 021
0006760 ! 002 H 002 002 002 001 Y 277 I \t \0 \0 272 H o
0007000 \0 \0 \0 J 001 o \0 \0 \0 \f \0 \0 d l 346 360
0007020 244 d l 312 360 221 i 020 d n 001 K 360 262 0 277
0007040 H o \0 \0 \0 J 002 \t \0 \0 o \0 \0 \0 \f \0
0007060 \0 d l 346 360 263 341 d n 001 K 360 245 d n 002
0007100 022 360 226 277 I \t \0 \0 260 260 277 260 ) d n 001
0007120 L 360 262 ' 277 H o \0 \0 \0 o \0 \0 \0 I \n
0007140 \0 \0 \t \0 \0 \v \0 \0 d l 346 360 263 252 n 001
0007160 L 360 263 214 \b \0 \0 h 020 n 002 022 360 262 367 I
0007200 \t \0 \0 261 377 u \0 ( 2 3 1 Q L O G
0007220 I N 2 1 5 Q F T P H E L P
0007240 1 7 6 Q A R P A C M D 1 7 3
0007260 Q P R O M P T F O R W O R D
0007300 1 7 0 Q C O N C A T 1 3 6 Q
0007320 L O G I N 1 0 7 Q A R P A
0007340 C M D 1 0 0 Q \ D E C R Y P
0007360 T . P W D 4 2 Q A R P A C M
0007400 D 2 3 Q \ I N T E R N A L /
0007420 G E T P A S S W O R D ) \r ( 3
0007440 F D E V ) \r ( 1 6 4 Q " A c
0007460 c o u n t f o r l o g g i n
0007500 g i n t o " 1 6 0 Q " A
0007520 C C T " 1 0 4 Q ( 3 4 6 Q
0007540 5 1 3 Q 1 0 2 2 Q ) 7 3 Q
0007560 " P A S S " 3 7 Q ( 3 1 2 Q
0007600 3 4 6 Q 5 1 3 Q 5 1 4 Q
0007620 1 0 2 2 Q ) 3 1 Q " U S E R
0007640 " ) \r \ T C P F T P . D E L E T
0007660 E F I L E A 0 0 0 1 D 1 \r ( N
0007700 A M E E R R O R S E T F 0
0007720 D E V I N F O F 1 N A M
0007740 E F 2 O S T Y P E ) \0 037
0007760 \0 003 002 \0 P o \0 \0 \0 g \0 \0 h g \0 \0
0010000 Q \f \0 \0 R \n \0 \0 o \0 \0 \0 \f \0 \0 h
0010020 032 020 \0 ( 3 2 Q A R P A C M D
0010040 2 3 Q R E P A C K F I L E N A
0010060 M E . S T R I N G 1 7 Q P A
0010100 C K F I L E N A M E . S T R I N
0010120 G ) \r ( 1 3 Q B O D Y 7 H
0010140 O S T ) \r ( 2 7 Q ( 3 1 0 Q
0010160 3 4 2 Q 3 7 2 Q ) 4 " D
0010200 E L E " ) \r \ T C P F T P . D E
0010220 L E T E F I L E D 1 \r ( P 2
0010240 C O D E P 1 O S T Y P E
0010260 P 0 D E V I N F O I 1
0010300 D E V I C E I 0 N A M E
0010320 ) \0 , 003 \0 \0 002 A 006 \0 \0 311 ( A \t
0010340 \0 \0 021 022 002 A \t \0 \0 o \0 \0 \0 \t \0 \0
0010360 001 d l 372 360 252 d l 342 360 245 d l 310 360 264
0010400 003 @ 020 \0 ( 2 7 Q \ T C P F T P
0010420 . D E L E T E F I L E A 0 0 0 1
0010440 2 0 Q \ G E T . T C P F T P
0010460 . C O N N E C T I O N 1 1 Q
0010500 \ T C P F T P . G E T . O S T Y
0010520 P E ) \r ( 3 F D E V ) \r ( 2
0010540 4 Q ( \ T C P F T P . D E L E
0010560 T E F I L E A 0 0 0 1 ) ) \r \ T
0010600 C P F T P . D I R E C T O R Y N
0010620 A M E P A 0 0 0 1 D 1 \r ( N A
0010640 M E E R R O R S E T F 0
0010660 D E V I N F O F 1 R E S E
0010700 T V A R S L S T F 2 R E S
0010720 E T Y F 3 D E V I C E F
0010740 4 H O S T / D I R ) \0 333 \0
0010760 005 002 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g
0011000 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 P h 032 032
0011020 h 032 032 032 032 h 032 032 g \0 \0 g \0 \0 o \0
0011040 \0 \0 g \0 \0 g \0 \0 P h 032 032 h 032 032 032
0011060 032 h 032 032 h 032 032 032 g \0 \0 o \0 \0 \0 g
0011100 \0 \0 g \0 \0 P h 032 032 o \0 \0 \0 032 032 032
0011120 032 g \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0
0011140 \0 g \0 \0 P h 032 032 h 032 032 032 032 h 032 032
0011160 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0011200 P h 032 032 h 032 032 032 032 h 032 032 h 032 032 032
0011220 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 P h 032
0011240 032 o \0 \0 \0 032 032 032 032 h 032 032 032 032 032 h
0011260 032 032 h h 032 032 Q 032 c 002 277 S \t \0 \0 T
0011300 g \0 \0 \n \0 \0 \n \0 \0 c 004 i 020 \0 ( 3
0011320 2 5 Q \ T C P F T P . C O N N
0011340 E C T 3 2 2 Q F I L E N A M
0011360 E F I E L D 3 1 3 Q \ G E T
0011400 . T C P F T P . C O N N E C T I
0011420 O N ) \r ( 3 1 7 Q D I R E C T
0011440 O R Y 2 5 1 Q Q U O T E 2
0011460 4 6 Q o f 2 3 7 Q r e p l
0011500 a c e 2 1 4 Q Q U O T E 2
0011520 1 1 Q o f 2 0 2 Q f e t c
0011540 h 1 7 7 Q C L O S E F 1 6
0011560 0 Q Q U O T E 1 5 5 Q o f
0011600 1 4 6 Q f e t c h 1 4 3 Q
0011620 O P E N P 1 4 0 Q A N D
0011640 1 2 1 Q Q U O T E 1 1 6 Q
0011660 o f 1 0 7 Q r e p l a c e
0011700 6 4 Q Q U O T E 6 1 Q o f
0011720 5 2 Q f e t c h 4 7 Q C
0011740 L O S E F 3 0 Q Q U O T E
0011760 2 5 Q o f 1 6 Q f e t c h
0012000 1 3 Q O P E N P 1 0 Q A
0012020 N D 5 R E S E T S T A T E
0012040 2 C O N D ) \r ( 2 6 1 Q (
0012060 w i t h N I L ) 2 4 3 Q (
0012100 T C P F T P C O N T C P O U T
0012120 ) 2 0 6 Q ( T C P F T P C O
0012140 N T C P O U T ) 1 5 2 Q (
0012160 T C P F T P C O N T C P O U T
0012200 ) 1 3 1 Q ( w i t h N I L
0012220 ) 1 1 3 Q ( T C P F T P C O
0012240 N T C P I N ) 5 6 Q ( T C
0012260 P F T P C O N T C P I N ) 2
0012300 2 Q ( T C P F T P C O N T C
0012320 P I N ) ) \r \ T C P F T P . D I
0012340 R E C T O R Y N A M E P D 1 \r
0012360 ( P 3 R E S E T Z P 2
0012400 R E S E T Y P 1 L I S P X
0012420 H I S T P 0 D E V I N F O
0012440 I 1 D E V I C E I 0
0012460 H O S T / D I R F 4 L I S
0012500 P X H I S T F 5 R E S E T
0012520 V A R S L S T ) \0 + 004 002 \0 002 A
0012540 006 \0 \0 311 ( 021 001 \0 T 021 ! 003 U o \0 \0
0012560 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 [ \n \0
0012600 \0 K 223 \b \0 \0 020 J 020 \0 ( 4 6 Q E
0012620 R R O R ! 4 1 Q R E S E T R
0012640 E S T O R E 2 7 Q \ T C P F
0012660 T P . D I R E C T O R Y N A M E
0012700 P A 0 0 0 1 ) \r ( 3 5 Q E R R
0012720 O R 2 4 Q I N T E R N A L
0012740 3 F D E V ) \r ( 2 1 Q ( \
0012760 T C P F T P . D I R E C T O R Y
0013000 N A M E P A 0 0 0 1 ) ) \r \ T C
0013020 P F T P . E N D O F S T R E A M
0013040 O P D 1 \r ( I 1 S I L E N
0013060 T L Y I 0 S T R E A M )
0013100 \0 \r \0 \0 \0 002 @ \t \0 \0 A 265 006 @ \t \0
0013120 \0 020 \0 ( 1 2 Q \ E O S E R R O
0013140 R 3 \ T C P F T P . T R A N
0013160 S F E R . C O M P L E T E ) \r N
0013200 I L \r ( ) \r \ T C P F T P . G E
0013220 N E R A T E F I L E S A 0 0 0 1
0013240 D 1 \r ( N A M E E R R O R S
0013260 E T F 0 D E V I N F O F
0013300 1 P A T T E R N F 2 O
0013320 S T Y P E ) \0 035 \0 003 002 \0 P o \0
0013340 \0 \0 g \0 \0 h g \0 \0 Q \f \0 \0 R \n \0
0013360 \0 l 226 \f \0 \0 h 032 020 \0 ( 3 0 Q A
0013400 R P A C M D 2 3 Q R E P A C
0013420 K F I L E N A M E . S T R I N G
0013440 1 7 Q P A C K F I L E N A M
0013460 E . S T R I N G ) \r ( 1 3 Q B
0013500 O D Y 7 H O S T ) \r ( 4
0013520 " N L S T " ) \r \ T C P F T P .
0013540 G E N E R A T E F I L E S D 1
0013560 \r ( P 4 C O D E P 3 D
0013600 A T A S T R E A M P 2 D A
0013620 T A S T R E A M E V E N T P
0013640 1 O S T Y P E P 0 D E V
0013660 I N F O I 3 O P T I O N S
0013700 I 2 D E S I R E D P R O P
0013720 S I 1 P A T T E R N I
0013740 0 D E V I C E ) \0 C 005 \0 \0 004
0013760 @ 006 \0 \0 311 ( 021 001 \0 @ \t \0 \0 021 1 004
0014000 @ \t \0 \0 H g \0 \0 \n \0 \0 Z \b \0 \0 o
0014020 \0 \0 \0 \t \0 \0 001 \ d l 226 360 264 025 @ J
0014040 g \0 \0 \v \0 \0 264 \v g \0 \0 g \0 \0 H 032
0014060 032 020 \0 ( 6 5 Q \ T C P F T P .
0014100 W A I T . F O R . D A T A C O N
0014120 N E C T I O N 4 5 Q \ T C P
0014140 F T P . G E N E R A T E F I L E
0014160 S A 0 0 0 1 3 6 Q B L O C K
0014200 3 2 Q \ T C P F T P . S P A
0014220 W N . D A T A C O N N E C T I O
0014240 N 2 3 Q \ G E T . T C P F T
0014260 P . C O N N E C T I O N 1 4 Q
0014300 \ T C P F T P . G E T . O S T
0014320 Y P E ) \r ( 7 5 Q N I L L 7
0014340 2 Q \ T C P F T P . G E N E R
0014360 A T E N E X T F I L E 6 2 Q
0014400 I N P U T 2 7 Q I N P U T
0014420 3 F D E V ) \r ( 4 2 Q ( \
0014440 T C P F T P . G E N E R A T E F
0014460 I L E S A 0 0 0 1 ) ) \r \ T C P
0014500 F T P . G E N E R A T E N E X T
0014520 F I L E A 0 0 0 1 D 1 \r ( N A
0014540 M E E R R O R S E T L ( 0
0014560 N I L ) P 1 R F 2
0014600 D A T A S T R E A M ) \0 B 002 001
0014620 002 \0 R o \0 \0 \0 021 001 \0 H d 002 263 . g
0014640 \0 \0 \t \0 \0 021 001 001 h d I \v \0 \0 277 g
0014660 \0 \0 g \0 \0 I \v \0 \0 277 o \0 \0 \0 h I
0014700 \v \0 \0 277 I 022 030 i 031 277 H 022 001 \n \0 \0
0014720 h 032 020 \0 ( 7 5 Q R E A D 6 0
0014740 Q S E T S E P R 4 6 Q S E
0014760 T S Y N T A X 3 3 Q S E T B
0015000 R K 2 2 Q C O P Y R E A D T
0015020 A B L E ) \r ( 4 2 Q O T H E R
0015040 3 7 Q % % 1 7 Q O R I G
0015060 ) \r ( 5 3 Q ( 1 5 Q 1 2 Q
0015100 3 7 Q ) 4 ( N I L ) ) \r \
0015120 T C P F T P . G E N E R A T E N
0015140 E X T F I L E D 1 \r ( P 2
0015160 N A M E P 1 C O D E P
0015200 0 D A T A S T R E A M I 1
0015220 N A M E O N L Y I 0 G E
0015240 N F I L E S T A T E ) \0 N 003 \0
0015260 \0 002 @ 002 002 001 021 ! 002 H g \0 \0 \n \0 \0
0015300 237 H \t \0 \0 252 o \0 \0 \0 \t \0 \0 001 Z 265
0015320 % @ h d o \0 \0 \0 \f \0 \0 Y l 372 360 247
0015340 I d l 342 360 262 026 277 H \t \0 \0 264 \a H \t
0015360 \0 \0 h 020 g \0 \0 \n \0 \0 020 \t \0 \0 020 \0
0015400 ( 1 1 3 Q F T P H E L P 1 0
0015420 7 Q R E P A C K F I L E N A M
0015440 E . S T R I N G 7 7 Q C L O
0015460 S E F 7 1 Q O P E N P 5 0
0015500 Q A R P A C M D 3 2 Q \ T
0015520 C P F T P . G E N E R A T E N E
0015540 X T F I L E A 0 0 0 1 2 2 Q
0015560 E O F P 1 5 Q O P E N P ) \r
0015600 ( 1 0 4 Q D 1 2 Q I N P U
0015620 T ) \r ( 4 5 Q ( 3 4 2 Q 3
0015640 7 2 Q ) 2 7 Q ( \ T C P F T
0015660 P . G E N E R A T E N E X T F I
0015700 L E A 0 0 0 1 ) ) \r \ T C P F T
0015720 P . G E T F I L E N A M E A 0 0
0015740 0 1 D 1 \r ( N A M E E R R O
0015760 R S E T F 0 D E V I N F O
0016000 F 1 N A M E F 2 O S
0016020 T Y P E ) \0 035 \0 003 002 \0 P o \0 \0
0016040 \0 g \0 \0 h g \0 \0 Q \f \0 \0 R \n \0 \0
0016060 l 226 \f \0 \0 h 032 020 \0 ( 3 0 Q A R
0016100 P A C M D 2 3 Q R E P A C K
0016120 F I L E N A M E . S T R I N G
0016140 1 7 Q P A C K F I L E N A M E
0016160 . S T R I N G ) \r ( 1 3 Q B O
0016200 D Y 7 H O S T ) \r ( 4 "
0016220 N L S T " ) \r \ T C P F T P . G
0016240 E T F I L E N A M E D 1 \r ( P
0016260 1 2 Q F I L E P 6 A L
0016300 L P O S S I B I L I T I E S P
0016320 5 G E N E R A T O R P 4
0016340 C O D E P 3 D A T A S T
0016360 R E A M P 2 D A T A S T R
0016400 E A M E V E N T P 1 O S T
0016420 Y P E P 0 D E V I N F O
0016440 I 2 D E V I C E I 1 R
0016460 E C O G I 0 N A M E ) \0
0016500 202 \v \0 \0 003 B 006 \0 \0 311 ( B \t \0 \0 021
0016520 R 006 B \t \0 \0 H g \0 \0 \n \0 \0 Z \b \0
0016540 \0 o \0 \0 \0 \t \0 \0 001 \ d l 226 360 264 =
0016560 B J g \0 \0 \v \0 \0 [ 264 2 g \0 \0 g \0
0016600 \0 H 032 032 ] 264 & 021 @ \n M \t \0 \0 _ 024
0016620 265 034 O 016 022 ^ 001 264 024 g \0 \0 @ g \0 \0
0016640 \n \0 \0 g \0 \0 N 001 \f \0 \0 020 _ 022 277 O
0016660 020 265 \r O 022 h 032 _ 020 _ 016 277 260 316 O 022
0016700 & _ 020 277 260 306 \0 ( 1 4 5 Q P A C
0016720 K * 1 3 5 Q F I L E N A M E
0016740 F I E L D 1 1 0 Q \ G E N E
0016760 R A T E N E X T F I L E 6 2 Q
0017000 \ T C P F T P . W A I T . F O
0017020 R . D A T A C O N N E C T I O N
0017040 4 2 Q \ T C P F T P . G E T
0017060 F I L E N A M E A 0 0 0 1 3 3
0017100 Q B L O C K 2 7 Q \ T C P
0017120 F T P . S P A W N . D A T A C O
0017140 N N E C T I O N 2 0 Q \ G E
0017160 T . T C P F T P . C O N N E C T
0017200 I O N 1 1 Q \ T C P F T P .
0017220 G E T . O S T Y P E ) \r ( 1 4 0
0017240 Q } 1 3 2 Q H O S T 1 2
0017260 6 Q { 7 3 Q N I L L 7 0
0017300 Q \ T C P F T P . G E N E R A
0017320 T E N E X T F I L E 5 7 Q I
0017340 N P U T 2 4 Q I N P U T 3
0017360 F D E V ) \r ( 3 7 Q ( \ T
0017400 C P F T P . G E T F I L E N A M
0017420 E A 0 0 0 1 ) ) \r \ T C P F T P
0017440 . C O N N E C T D 1 \r ( P 0
0017460 D E V I N F O I 1 D I R
0017500 E C T O R Y I 0 D E V I C
0017520 E ) \0 1 001 \0 \0 002 @ 006 \0 \0 311 ( 021
0017540 001 \0 H o \0 \0 \0 g \0 \0 A \n \0 \0 @ \t
0017560 \0 \0 \n \0 \0 o \0 \0 \0 \f \0 \0 d l 310 360
0017600 245 d l 372 360 264 003 i 020 \0 ( 4 2 Q A
0017620 R P A C M D 3 3 Q R E P A C
0017640 K F I L E N A M E . S T R I N G
0017660 3 0 Q \ T C P F T P . G E T
0017700 . O S T Y P E 2 4 Q P A C K
0017720 F I L E N A M E . S T R I N G )
0017740 \r ( 2 0 Q D I R E C T O R Y
0017760 3 F D E V ) \r ( 3 7 Q ( 3
0020000 1 0 Q 3 7 2 Q 7 0 2 Q 1 0
0020020 4 6 Q ) 1 5 Q " C W D " ) \r
0020040 \ T C P F T P . O P E N F I L E
0020060 A 0 0 0 1 D 1 \r ( N A M E E
0020100 R R O R S E T F 0 D E V I
0020120 N F O F 1 F T P C M D F
0020140 2 F I L E N A M E ) \0 016 \0
0020160 003 002 \0 P Q R o \0 \0 \0 \f \0 \0 h 032 020
0020200 \0 ( 1 1 Q A R P A C M D ) \r N
0020220 I L \r ( 6 ( 1 7 5 Q 2 2 6
0020240 Q 3 4 2 Q 3 7 2 Q 6 5 1 Q
0020260 6 5 2 Q 7 0 2 Q 7 0 3 Q
0020300 1 0 4 6 Q ) ) \r \ T C P F T P .
0020320 O P E N F I L E D 1 \r ( P 1
0020340 1 Q F T P C M D P 1 0 Q
0020360 C O D E P 7 S T R E A M D
0020400 E V P 6 D A T A S T R E A
0020420 M P 5 D A T A S T R E A M
0020440 E V E N T P 4 T Y P E P
0020460 3 D E V I N F O P 2 F
0020500 I L E N A M E P 1 O S T Y
0020520 P E P 0 H O S T I 4
0020540 D E V I C E I 3 P A R A M
0020560 E T E R S I 2 R E C O G
0020600 I 1 A C C E S S I 0 N
0020620 A M E F 1 2 Q D E F A U L
0020640 T F I L E T Y P E ) 001 023 \n 001 \0
0020660 005 D 006 \0 \0 311 \0 021 001 \0 D \t \0 \0 021 001
0020700 001 g \0 \0 h g \0 \0 @ \f \0 \0 I \n \0 \0
0020720 021 021 003 D 006 \0 \0 311 ( 273 g \0 \0 C \n \0
0020740 \0 002 001 265 004 W 024 021 Q \t D \t \0 \0 L g
0020760 \0 \0 360 231 K o \0 \0 \0 o \0 \0 \0 210 K o
0021000 \0 \0 \0 o \0 \0 \0 l 310 \f \0 \0 277 K A d
0021020 g \0 \0 360 223 277 g \0 \0 \n \0 \0 ] \b \0 \0
0021040 A d g \0 \0 360 226 277 o \0 \0 \0 260 g \0
0021060 \0 360 225 o \0 \0 \0 260 025 A g \0 \0 360 224 o
0021100 \0 \0 \0 207 o \0 \0 \0 A \n \0 \0 _ 022 o \0
0021120 \0 \0 \t \0 \0 001 _ 020 d l } 360 247 d d l
0021140 226 360 262 N 277 D M A d g \0 \0 360 223 277 g
0021160 \0 \0 \v \0 \0 ^ d 262 8 006 \0 \0 g \0 \0 024
0021200 " N 006 \0 \0 @ 024 004 N 006 \0 \0 311 006 _ 016
0021220 d 006 \0 \0 O 016 006 \0 \0 g \0 \0 024 016 277 g
0021240 \0 \0 024 \f N g \0 \0 g \0 \0 \v \0 \0 N 020
0021260 n 001 302 360 247 O 020 d n 002 & 360 221 h 020 \t
0021300 \0 \0 020 \0 ( 4 2 0 Q F T P H E L
0021320 P 3 7 4 Q S T R E A M A D D
0021340 P R O P 3 0 3 Q \ T C P F T
0021360 P . W A I T . F O R . D A T A C
0021400 O N N E C T I O N 2 4 3 Q \
0021420 T C P F T P . O P E N F I L E A
0021440 0 0 0 1 2 3 2 Q E R R O R
0021460 1 5 6 Q B L O C K 1 5 2 Q
0021500 \ T C P F T P . S P A W N . D A
0021520 T A C O N N E C T I O N 1 3 2
0021540 Q A R P A C M D 7 4 Q \ G
0021560 E T . T C P F T P . C O N N E C
0021600 T I O N 5 7 Q F A S S O C
0021620 3 6 Q R E P A C K F I L E N A
0021640 M E . S T R I N G 3 2 Q P A
0021660 C K F I L E N A M E . S T R I N
0021700 G 1 4 Q \ T C P F T P . G E
0021720 T . O S T Y P E ) \r ( 3 7 1 Q
0021740 \ T C P F T P . T R A N S F E R
0021760 . C O M P L E T E 3 6 6 Q A
0022000 F T E R C L O S E 3 6 0 Q N
0022020 I L L 3 5 2 Q N I L L 3 4
0022040 7 Q F D E V 3 4 2 Q F D E
0022060 V 3 3 2 Q S T R E A M 3 2
0022100 3 Q S T R E A M 3 1 5 Q \
0022120 T C P F T P . E N D O F S T R E
0022140 A M O P 3 1 2 Q S T R E A M
0022160 3 0 0 Q A P P E N D 2 7 2
0022200 Q O U T P U T 2 1 3 Q A P
0022220 P E N D 1 7 7 Q O U T P U T
0022240 1 6 3 Q I N P U T 1 4 7 Q
0022260 A P P E N D 1 4 1 Q O U T
0022300 P U T 1 0 0 Q T E X T 5 3
0022320 Q T Y P E 4 5 Q F D E V
0022340 2 6 Q B O D Y 2 2 Q H O S
0022360 T 3 F D E V ) \r ( 2 4 0 Q
0022400 ( \ T C P F T P . O P E N F I
0022420 L E A 0 0 0 1 ) 2 2 6 Q " A
0022440 C C E S S m u s t b e o n
0022460 e o f I N P U T , O U T P
0022500 U T , o r A P P E N D " 2
0022520 2 1 Q " A P P E " 2 0 5 Q
0022540 " S T O R " 1 7 2 Q " R E T
0022560 R " 1 2 5 Q " L 8 " 1 2
0022600 1 Q " T Y P E " 1 1 3 Q "
0022620 A N " 1 0 7 Q " T Y P E "
0022640 ) \r \ T C P F T P . C L O S E
0022660 D 1 \r ( P 0 D E V I N F O
0022700 I 0 D E V I C E ) \0 , 001 \0
0022720 \0 001 @ 006 \0 \0 311 ( 021 001 \0 H 002 001 g \0
0022740 \0 \n \0 \0 226 H 002 001 \t \0 \0 277 H 001 g \0
0022760 \0 \n \0 \0 264 \b H 001 \t \0 \0 h 020 \0 ( 5
0023000 0 Q C L O S E F 4 1 Q O P
0023020 E N P 3 0 Q C L O S E F 2
0023040 1 Q O P E N P ) \r ( 3 6 Q I
0023060 N P U T 1 6 Q O U T P U T
0023100 3 F D E V ) \r ( ) \r \ T C P F
0023120 T P . F L U S H D 1 \r ( P 0
0023140 I N S T R E A M I 0 D E
0023160 V I C E ) \0 035 001 \0 \0 001 @ 006 \0 \0
0023200 311 ( 001 021 001 \0 H \t \0 \0 264 \r H \t \0 \0
0023220 264 \a H 277 260 367 020 \0 ( 2 3 Q R E
0023240 A D P 1 5 Q R E A D P ) \r (
0023260 3 F D E V ) \r ( ) \r \ T C P F
0023300 T P . I N I T D 1 \r N I L \0
0023320 e \0 \0 \0 \0 h ` \0 \0 037 d g \0 \0 024 \0
0023340 277 d g \0 \0 024 020 277 d g \0 \0 024 \b 277 d
0023360 g \0 \0 024 : 277 d g \0 \0 024 8 277 d g \0
0023400 \0 024 6 277 d g \0 \0 024 4 277 d g \0 \0 024
0023420 2 277 d g \0 \0 024 0 277 d g \0 \0 024 . 277
0023440 d g \0 \0 024 * 277 d g \0 \0 024 $ 277 d g
0023460 \0 \0 024 006 277 \n \0 \0 020 \0 ( 1 4 2 Q
0023500 \ D E F I N E D E V I C E ) \r (
0023520 1 3 4 Q N I L L 1 2 5 Q \
0023540 G E N E R I C . R E A D P 1 1
0023560 6 Q N I L L 1 0 7 Q \ I S
0023600 . N O T . R A N D A C C E S S P
0023620 1 0 0 Q \ I L L E G A L . D
0023640 E V I C E O P 7 1 Q \ I S .
0023660 N O T . R A N D A C C E S S P
0023700 6 2 Q \ I L L E G A L . D E V
0023720 I C E O P 5 3 Q \ G E N E R
0023740 I C . B I N S 4 4 Q \ G E N
0023760 E R I C . B O U T S 3 5 Q \
0024000 G E N E R I C . R E N A M E F I
0024020 L E 2 6 Q N I L L 1 7 Q
0024040 \ T C P F T P . H O S T N A M E
0024060 P 1 0 Q T C P F T P 3 004
0024100 003 F D E V T Y P E # ) \r ( ) \r \
0024120 T C P . B Y E D 1 \r ( P 2
0024140 I N S T R E A M P 1 D E V
0024160 I N F O P 0 D E V I C E
0024200 I 0 H O S T ) \0 N 003 \0 \0 001
0024220 @ h i \v \0 \0 021 ! 002 H d 224 006 \0 \0 311
0024240 ( Y 001 272 I 264 7 J \t \0 \0 224 J 277 260
0024260 370 I o \0 \0 \0 o \0 \0 \0 o \0 \0 \0 \f \0
0024300 \0 I 002 002 001 \t \0 \0 227 I 002 002 001 \t \0 \0
0024320 277 J \t \0 \0 I 002 001 \t \0 \0 i 020 \0 ( 1
0024340 1 2 Q C L O S E F 1 0 4 Q
0024360 C L O S E F 7 7 Q C L O S E
0024400 F 6 7 Q O P E N P 6 0 Q
0024420 A R P A C M D 3 2 Q R E A D
0024440 P 5 \ G E T D E V I C E F R
0024460 O M N A M E ) \r ( 1 6 Q F D E
0024500 V ) \r ( 5 5 Q ( 3 3 5 Q 7
0024520 6 4 Q ) 5 1 Q " " 4 5 Q
0024540 " Q U I T " ) \r \ T C P F T P .
0024560 O P E N . D A T A . C O N N E C
0024600 T I O N D 1 \r ( P 0 T C B
0024620 I 2 E V E N T I 1 A
0024640 C C E S S I 0 T C P F T P
0024660 C O N ) \0 ; 001 \0 \0 003 @ 001 006 \0 \0
0024700 311 \f 021 001 \0 @ 002 002 @ 002 002 002 001 H 006 \0
0024720 \0 310 033 k 331 H 006 \0 \0 310 032 g \0 \0 A \r
0024740 005 \0 \0 030 B 004 ` \0 \0 360 224 B \t \0 \0 277
0024760 @ 002 002 001 020 \0 ( 6 3 Q N O T I F
0025000 Y . E V E N T 4 7 Q T C P .
0025020 O P E N ) \r ( 5 5 Q 004 003 E V E
0025040 N T T Y P E # 4 2 Q P A S S
0025060 I V E 3 5 Q T C P . C O N T
0025100 R O L . B L O C K 2 5 Q T C
0025120 P . C O N T R O L . B L O C K
0025140 4 S T R E A M ) \r ( ) \r \ T C
0025160 P F T P . S P A W N . D A T A C
0025200 O N N E C T I O N D 1 \r ( P
0025220 1 P R O C E S S P 0 E V
0025240 E N T I 1 A C C E S S I
0025260 0 T C P F T P C O N F 2
0025300 R E S E T V A R S L S T ) \0
0025320 = 002 001 \0 002 \b \0 \0 021 021 001 g \0 \0 g \0
0025340 \0 @ h 032 032 g \0 \0 A h 032 032 H h 032 032
0025360 032 032 \t \0 \0 Y g \0 \0 g \0 \0 g \0 \0 I
0025400 h 032 032 h 032 032 032 h h 032 032 R 032 c 004 H
0025420 020 \0 ( 3 7 Q A D D . P R O C E
0025440 S S 2 C R E A T E . E V E N
0025460 T ) \r ( 5 1 Q D E L . P R O C
0025500 E S S 4 6 Q R E S E T S T A
0025520 T E 4 3 Q A N D 2 2 Q Q
0025540 U O T E 1 3 Q Q U O T E 1
0025560 0 Q \ T C P F T P . O P E N .
0025600 D A T A . C O N N E C T I O N )
0025620 \r ( ) \r \ T C P F T P . T R A N
0025640 S F E R . C O M P L E T E D 1
0025660 \r ( P 0 D E V I C E I 0
0025700 D A T A S T R E A M ) \0 L 001
0025720 \0 \0 001 @ 006 \0 \0 311 020 021 001 \0 @ g \0 \0
0025740 h \v \0 \0 H 264 8 @ 006 \0 \0 311 022 263 / @
0025760 g \0 \0 \n \0 \0 227 @ \t \0 \0 \t \0 \0 277 H
0026000 006 \0 \0 311 ( h d o \0 \0 \0 \f \0 \0 @ 006
0026020 \0 \0 i 024 022 @ 006 \0 \0 h 024 020 h 020 \0 (
0026040 7 2 Q A R P A C M D 5 2 Q
0026060 T C P . C L O S E . S E N D E R
0026100 4 7 Q T C P . O T H E R . S
0026120 T R E A M 4 2 Q O P E N P
0026140 2 0 Q S T R E A M P R O P ) \r
0026160 ( 1 0 5 Q S T R E A M 7 6 Q
0026200 S T R E A M 5 7 Q F D E V
0026220 3 7 Q I N P U T 2 7 Q S
0026240 T R E A M 1 4 Q A F T E R C
0026260 L O S E 3 S T R E A M ) \r (
0026300 6 7 Q ( 3 4 2 Q 3 7 2 Q )
0026320 ) \r \ T C P F T P . W A I T . F
0026340 O R . D A T A C O N N E C T I O
0026360 N D 1 \r ( P 1 S T R E A M
0026400 P 0 T C P F T P C O N I
0026420 2 A C C E S S I 1 E V
0026440 E N T I 0 D E V I C E )
0026460 \0 * 002 \0 \0 003 @ 006 \0 \0 311 ( 021 021 001 A
0026500 o \0 \0 \0 \n \0 \0 H 002 002 001 B \n \0 \0 264
0026520 017 H 002 002 001 Y d 006 \0 \0 @ 024 020 I 020 \0
0026540 ( 3 0 Q O P E N P 2 0 Q A
0026560 W A I T . E V E N T ) \r ( 4 3 Q
0026600 S T R E A M 3 F D E V ) \r
0026620 ( 1 5 Q 3 5 2 3 0 0 Q ) \r (
0026640 P R E T T Y C O M P R I N T T
0026660 C P F T P C O M S ) \r ( R P A Q
0026700 Q T C P F T P C O M S ( ( C
0026720 O M S ( * * F N S f r o
0026740 m L a r r y ' s I n t e r l
0026760 i s p - 1 0 L I S P U S E R S
0027000 p a c k a g e ) ( F N S A
0027020 R P A C M D F T P H E L P \r
0027040 C M D R E A D C O D E C M D R
0027060 E A D D I S C A R D L I N E
0027100 G E T L I N E \ T C P F T P .
0027120 I N P U T T E L N E T . E O L
0027140 ) ( D E C L A R E : D O N T
0027160 E V A L @ L O A D \r D O E V A
0027200 L @ C O M P I L E D O N T C O
0027220 P Y C O M P I L E R V A R S
0027240 ( A D D V A R S ( N L A M A )
0027260 ( N L A M L ) ( L A M A F
0027300 T P H E L P ) ) ) ) ( C O M S
0027320 ( * * F N S f o r t h
0027340 e \r I n t e r l i s p - D s
0027360 t r e a m s f a c i l i t y )
0027400 ( F N S \ T C P F T P . G E
0027420 T . O S T Y P E \ T C P F T P
0027440 . H O S T N A M E P \ G E T .
0027460 T C P F T P . C O N N E C T I O
0027500 N \r \ T C P F T P . O P E N .
0027520 C O N N E C T I O N \ T C P F
0027540 T P . L O G I N \ T C P F T P
0027560 . D E L E T E F I L E \ T C P
0027600 F T P . D I R E C T O R Y N A M
0027620 E P \ T C P F T P . E N D O F
0027640 S T R E A M O P \r \ T C P F T
0027660 P . G E N E R A T E F I L E S
0027700 \ T C P F T P . G E N E R A T E
0027720 N E X T F I L E \ T C P F T P
0027740 . G E T F I L E N A M E \ T C
0027760 P F T P . C O N N E C T \ T C
0030000 P F T P . O P E N F I L E \r \
0030020 T C P F T P . C L O S E \ T C
0030040 P F T P . F L U S H \ T C P F
0030060 T P . I N I T ) ( R E C O R D
0030100 S T C P D A T A S T R E A M
0030120 T C P F T P C O N ) ) ( C O M
0030140 S ( * * D a t a \r c o n
0030160 n e c t i o n h a n d l i n g
0030200 ) ( F N S \ T C P . B Y E
0030220 \ T C P F T P . O P E N . D A T
0030240 A . C O N N E C T I O N \ T C
0030260 P F T P . S P A W N . D A T A C
0030300 O N N E C T I O N \r \ T C P F
0030320 T P . T R A N S F E R . C O M P
0030340 L E T E \ T C P F T P . W A I
0030360 T . F O R . D A T A C O N N E C
0030400 T I O N ) ) ( F I L E S ( S
0030420 Y S L O A D F R O M V A L U
0030440 E O F \r L I S P U S E R S D I
0030460 R E C T O R I E S ) T C P F
0030500 I L E N A M E S ) ( P ( \ T
0030520 C P F T P . I N I T ) ) ( A D
0030540 V I S E \ C A N O N I C A L .
0030560 H O S T N A M E ) ( D E C L A
0030600 R E : \r D O N T E V A L @ L O
0030620 A D D O E V A L @ C O M P I L
0030640 E D O N T C O P Y C O M P I
0030660 L E R V A R S ( A D D V A R S
0030700 ( N L A M A ) ( N L A M L )
0030720 ( L A M A ) ) ) ) ) \r ( A C C
0030740 E S S F N S T C P D A T A S T
0030760 R E A M ( ( T C P C O N T R O
0031000 L D E V I C E ( f e t c h (
0031020 S T R E A M F 3 ) o f D A
0031040 T U M ) ( r e p l a c e ( S
0031060 T R E A M F 3 ) o f D A T
0031100 U M \r w i t h N E W V A L U
0031120 E ) ) ( S E E N E O S ( f e
0031140 t c h ( S T R E A M F 4 )
0031160 o f D A T U M ) ( r e p l a
0031200 c e ( S T R E A M F 4 ) o
0031220 f D A T U M w i t h N E W
0031240 V A L U E ) ) ) ) \r ( R E C O R
0031260 D T C P F T P C O N ( T C P
0031300 I N T C P O U T D A T A S T
0031320 R E A M T C P H O S T ) ) \r (
0031340 F I L E S L O A D ( S Y S L O
0031360 A D F R O M V A L U E O F
0031400 L I S P U S E R S D I R E C T O
0031420 R I E S ) T C P F I L E N A
0031440 M E S ) \r ( \ T C P F T P . I N
0031460 I T ) \r ( P U T P R O P S \ C
0031500 A N O N I C A L . H O S T N A M
0031520 E R E A D V I C E ( N I L
0031540 ( A R O U N D N I L ( C O N
0031560 D ( ( N U M B E R P N A M E
0031600 ) N A M E ) ( T * ) ) ) )
0031620 ) \r ( R E A D V I S E \ C A N
0031640 O N I C A L . H O S T N A M E )
0031660 \r ( P U T P R O P S T C P F T
0031700 P C O P Y R I G H T ( " X e
0031720 r o x C o r p o r a t i o n "
0031740 1 9 8 5 ) ) \r N I L \r
0031754