$ od -c -N 50000 [eris]<Lisp>JCAI>library>TCPFTP.DCOM!1
0000000 ( F I L E C R E A T E D " 1
0000020 - J u l - 8 5 1 3 : 2 8 : 2 5
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 . ; 3 1 ) \r " 2 9 - J u n - 8
0000140 5 1 7 : 2 7 : 0 1 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 \ T C P F T P . G E T F I L E N
0000220 A M E i n " I N T E R L I S
0000240 P - D 2 9 - J u n - 8 5 . .
0000260 . " d a t e d \r " 2 9 - J u
0000300 n - 8 5 1 7 : 4 1 : 3 2 " ) \r
0000320 ( F I L E C R E A T E D " 1
0000340 - J u l - 8 5 1 3 : 2 7 : 0 7
0000360 " { E R I S } < L I S P C O R
0000400 E > L I B R A R Y > T C P F T P
0000420 . ; 3 1 3 6 2 7 4 c h a n g
0000440 e s t o : ( F N S \r \ T C
0000460 P F T P . G E T F I L E N A M E
0000500 ) p r e v i o u s d a t e :
0000520 " 2 8 - J u n - 8 5 1 4 : 3
0000540 6 : 1 8 " { E R I S } < L I S
0000560 P C O R E > L I B R A R Y > T C
0000600 P F T P . ; 2 9 ) \r A R P A C M
0000620 D A 0 0 0 1 A 0 0 0 2 D 1 \r (
0000640 N A M E E R R O R S E T F
0000660 0 C M D F 1 I N C F
0000700 2 O U T C F 3 F T P D E
0000720 B U G L O G F 4 F T P D E
0000740 B U G F L G F 5 W A N T A
0000760 R G F 6 W A N T F 7
0001000 D I S C A R D F 1 0 Q R E
0001020 S E T V A R S L S T F 1 1 Q
0001040 A R G F 1 2 Q R E S E T
0001060 Y ) 001 < \0 \v 002 \0 g \0 \0 g \0 \0 g
0001100 \0 \0 g \0 \0 Q o \0 \0 \0 032 032 g \0 \0 Q
0001120 h 032 032 h 032 032 032 g \0 \0 g \0 \0 R o \0
0001140 \0 \0 032 032 g \0 \0 R h 032 032 h 032 032 032 h
0001160 032 032 032 h 032 032 h h 032 032 W 020 032 c 020 277
0001200 P 262 B T 262 030 P S \n \0 \0 277 o \0 \0 \0
0001220 S \n \0 \0 277 W 022 S \n \0 \0 277 P R \n \0
0001240 \0 277 o \0 \0 \0 R \n \0 \0 277 W 022 R \n \0
0001260 \0 277 R \t \0 \0 277 R \t \0 \0 277 T 237 S \t
0001300 \0 \0 277 T 230 o \0 \0 \0 S \n \0 \0 277 Q \t
0001320 \0 \0 c \0 277 T 236 P S \n \0 \0 277 o \0 \0
0001340 \0 S \n \0 \0 277 P U 360 247 U 003 262 023 P U
0001360 034 234 Q l - 360 262 - P \t \0 \0 260 & Q
0001400 l - 360 234 Q \t \0 \0 277 Q \t \0 \0 P 360
0001420 262 365 P V 360 250 V 003 237 P d V 034 233 277 Q
0001440 \t \0 \0 277 P c 024 i 020 P W 016 360 252 W 016
0001460 003 234 P d W 016 034 227 277 Q \t \0 \0 260 205 P
0001500 3 264 006 P l d 333 d l 002 360 244 d l 003
0001520 360 226 277 P \t \0 \0 260 025 d l 004 360 244 d l
0001540 005 360 230 277 Q i \n \0 \0 \t \0 \0 277 Q \t \0
0001560 \0 261 377 Q \0 ( 4 6 7 Q D I S C A
0001600 R D L I N E 4 6 2 Q E R R O
0001620 R 4 5 7 Q G E T L I N E 4
0001640 3 5 Q F T P H E L P 4 0 3 Q
0001660 D I S C A R D L I N E 3 5 1
0001700 Q D I S C A R D L I N E 3 2
0001720 4 Q \ T C P F T P . I N P U T
0001740 3 1 7 Q D I S C A R D L I N
0001760 E 3 0 3 Q F T P H E L P 2
0002000 5 3 Q P R I N 1 2 4 2 Q P
0002020 R I N 1 2 3 0 Q \ T C P F T
0002040 P . I N P U T 2 2 3 Q P R I
0002060 N 1 2 1 0 Q T E R P R I 2
0002100 0 1 Q F O R C E O U T P U T
0002120 1 7 4 Q T E L N E T . E O L
0002140 1 6 7 Q P R I N 3 1 6 0 Q
0002160 P R I N 3 1 4 7 Q P R I N 3
0002200 1 4 1 Q P R I N 1 1 3 2 Q
0002220 P R I N 1 1 2 1 Q P R I N
0002240 1 ) \r ( 5 5 Q C L O S E F 4
0002260 3 Q O P E N P 4 0 Q A N D
0002300 2 5 Q C L O S E F 1 3 Q
0002320 O P E N P 1 0 Q A N D 5
0002340 R E S E T S T A T E 2 C O N
0002360 D ) \r ( 2 4 7 Q " " 2 1
0002400 7 Q " < " 1 5 4 Q " "
0002420 1 2 6 Q " " 5 0 Q ( (
0002440 Q U O T E O U T P U T ) ) 2
0002460 0 Q ( ( Q U O T E I N P U T
0002500 ) ) ) \r A R P A C M D A 0 0 0 1
0002520 D 1 \r ( N A M E E R R O R S
0002540 E T P 4 R E S E T Z P
0002560 3 R E S E T Y P 2 L I S
0002600 P X H I S T P 1 O U T C
0002620 P 0 I N C F 5 T C P F
0002640 T P C O N F 6 L I S P X H
0002660 I S T F 7 R E S E T V A R
0002700 S L S T F 1 0 Q R E S E T
0002720 Y ) \0 : 005 004 002 \0 ` \0 \0 h i \v \0
0002740 \0 277 U 001 U 002 001 021 002 001 V 021 ! 004 W 016
0002760 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0
0003000 \ \n \0 \0 277 L 223 \b \0 \0 200 K 022 022 c 020
0003020 i 020 \0 ( 6 0 Q E R R O R ! 5
0003040 2 Q R E S E T R E S T O R E
0003060 4 0 Q A R P A C M D A 0 0 0 1
0003100 A 0 0 0 2 7 O B T A I N . M
0003120 O N I T O R L O C K ) \r ( 4 6 Q
0003140 E R R O R 3 5 Q I N T E R
0003160 N A L 2 \ T C P F T P . A R
0003200 P A C M D . L O C K ) \r ( 3 2
0003220 Q ( A R P A C M D A 0 0 0 1 A
0003240 0 0 0 2 ) ) \r A R P A C M D D
0003260 1 \r ( P 2 R E S E T Z P
0003300 1 R E S E T Y P 0 L I S
0003320 P X H I S T I 5 W A N T A
0003340 R G I 4 D I S C A R D I
0003360 3 W A N T I 2 A R G
0003400 I 1 C M D I 0 T C P F
0003420 T P C O N F 3 L I S P X H
0003440 I S T F 4 R E S E T V A R
0003460 S L S T ) \0 " 003 002 \0 006 S 021 ! 002
0003500 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0003520 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3
0003540 5 Q E R R O R ! 3 0 Q R E
0003560 S E T R E S T O R E 1 6 Q A
0003600 R P A C M D A 0 0 0 1 ) \r ( 2 4
0003620 Q E R R O R 1 3 Q I N T E
0003640 R N A L ) \r ( 1 0 Q ( A R P
0003660 A C M D A 0 0 0 1 ) ) \r F T P H
0003700 E L P D 1 \r ( I 0 A R G )
0003720 \0 \n \0 \0 \0 001 @ o \0 \0 \0 \n \0 \0 020
0003740 \0 ( 7 E R R O R ) \r N I L \r (
0003760 4 " u n r e c o g n i z e
0004000 d r e s p o n s e f r o m
0004020 r e m o t e F T P s e r v e
0004040 r " ) \r C M D R E A D C O D E
0004060 D 1 \r ( I 0 I N ) \0 021 \0 \0
0004100 \0 001 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0 \v \0
0004120 \0 020 \0 ( 1 6 Q P A C K * 1 3
0004140 Q C M D R E A D 7 C M D R
0004160 E A D 3 C M D R E A D ) \r N
0004200 I L \r ( ) \r C M D R E A D D 1
0004220 \r ( P 0 C H I 0 I N
0004240 F 1 F T P D E B U G F L G
0004260 F 2 F T P D E B U G L O G )
0004300 \0 \r 001 002 \0 001 @ 021 001 \0 Q 222 H R
0004320 ! H 020 \0 N I L \r N I L \r ( ) \r D
0004340 I S C A R D L I N E D 1 \r ( P
0004360 0 C H I 0 I N ) \0 -
0004400 001 \0 \0 001 ` \0 \0 262 @ \t \0 \0 021 020 \0
0004420 @ X l \n 360 227 ` \0 \0 \t \0 \0 h 020 `
0004440 \0 \0 H ! 277 260 353 @ l \n 360 262 373 h 020
0004460 \0 ( 3 0 Q T E R P R I 1 0 Q
0004500 \ B A C K F I L E P T R ) \r (
0004520 3 5 Q F T P D E B U G L O G
0004540 2 5 Q F T P D E B U G L O G
0004560 2 F T P D E B U G F L G ) \r (
0004600 ) \r G E T L I N E D 1 \r ( P
0004620 2 C H P 1 S T R I N G
0004640 P 0 P O S I 1 F L G
0004660 I 0 I N ) \0 - 003 \0 \0 002 k l
0004700 P \t \0 \0 021 022 002 @ Z l \n 360 263 024 H
0004720 d l P 363 246 277 I H J + 277 H k 324 270 260
0004740 350 I k H k 331 \v \0 \0 020 \0 ( 5 2 Q
0004760 S U B S T R I N G 5 A L L O
0005000 C S T R I N G ) \r N I L \r ( ) \r
0005020 \ T C P F T P . I N P U T D 1
0005040 \r ( P 2 C H P 1 G O T
0005060 C O D E P 0 C O D E I
0005100 0 S T R E A M ) \0 9 003 \0 \0 001
0005120 j 021 ! 002 J l - 360 263 . J j 360 263 ) J
0005140 l 360 263 # @ 272 I 263 031 l 0 J 363 263
0005160 023 J l 9 363 253 H l \n 326 J l 0 325 324 270
0005200 260 324 i 271 260 320 H 020 \0 N I L \r N I L
0005220 \r ( ) \r T E L N E T . E O L D
0005240 1 \r ( I 0 S T R E A M ) \0
0005260 016 \0 \0 \0 001 @ l \r ! @ l \n ! @ \t \0
0005300 \0 020 \0 ( 1 3 Q F O R C E O U T
0005320 P U T ) \r N I L \r ( ) \r \ T C P
0005340 F T P . G E T . O S T Y P E D
0005360 1 \r ( P 1 E N T R Y P 0
0005400 H O S T I 0 D E V I C E
0005420 F 2 \ H O S T N A M E S )
0005440 \0 $ 002 001 \0 001 @ 006 \0 \0 311 \0 021 021 001
0005460 H R 026 230 H g \0 \0 \n \0 \0 265 016 H ` \0
0005500 \0 035 d 224 006 \0 \0 311 \b 020 \0 ( 2 3 Q
0005520 G E T H O S T I N F O ) \r ( 3 7
0005540 Q H O S T S . T X T . E N T R
0005560 Y 3 1 Q \ I P . H O S T N A
0005600 M E S 2 0 Q O S T Y P E 3
0005620 F D E V ) \r ( ) \r \ T C P F T
0005640 P . E V E N T F N D 1 \r ( P
0005660 4 D A T A S T R E A M P 3
0005700 T C P O U T P 2 T C P I
0005720 N P 1 T C P F T P C O N
0005740 I 1 F L G I 0 F D E V
0005760 ) \0 Y 005 \0 \0 002 A g \0 \0 360 254 A g
0006000 \0 \0 360 246 A g \0 \0 360 264 020 @ 006 \0 \0 311
0006020 ( 021 A 004 H 003 265 004 h 020 001 Y 001 272 I 002
0006040 001 273 I 002 002 001 274 J g \0 \0 \n \0 \0 224 J
0006060 \t \0 \0 277 K g \0 \0 \n \0 \0 224 K \t \0 \0
0006100 277 L \t \0 \0 224 L \t \0 \0 277 H 002 X 260 307
0006120 \0 ( 1 2 1 Q C L O S E F 1 1
0006140 4 Q O P E N P 1 0 7 Q C L
0006160 O S E F 1 0 2 Q O P E N P
0006200 7 2 Q C L O S E F 6 5 Q O
0006220 P E N P ) \r ( 7 7 Q O U T P U
0006240 T 6 2 Q I N P U T 2 6 Q
0006260 F D E V 1 7 Q B E F O R E M
0006300 A K E S Y S 1 1 Q B E F O R
0006320 E S Y S O U T 3 B E F O R E
0006340 L O G O U T ) \r ( ) \r \ T C P F
0006360 T P . H O S T N A M E P D 1 \r
0006400 ( P 2 F I L I N G N A M E
0006420 P 1 F U L L H O S T N A M E
0006440 P 0 S E R V E R I 1
0006460 D E V I C E I 0 H O S T )
0006500 \0 254 004 \0 \0 002 @ \t \0 \0 265 006 @ \t \0
0006520 \0 021 1 003 H 241 h 020 @ \t \0 \0 \t \0 \0 Y
0006540 i d \v \0 \0 265 003 202 261 \0 211 @ o \0 \0 \0
0006560 \n \0 \0 Z I ` \0 \0 ` \0 \0 \n \0 \0 d I
0006600 024 \0 277 d g \0 \0 024 022 277 d g \0 \0 024 026
0006620 277 d g \0 \0 024 \f 277 d g \0 \0 024 030 277 d
0006640 g \0 \0 024 2 277 d g \0 \0 024 004 277 d g \0
0006660 \0 024 020 277 d g \0 \0 024 016 277 d g \0 \0 024
0006700 006 277 d g \0 \0 024 \n 277 d g \0 \0 024 \b 277
0006720 d h 024 ( 277 ` \0 \0 006 \0 \0 311 * 273 d K
0006740 024 * 277 b 002 \n \0 \0 A ` \0 \0 032 027 \0 \0
0006760 A 020 \0 ( 2 4 0 Q \ D E F I N E
0007000 D E V I C E 6 6 Q N C R E A
0007020 T E 2 5 3 Q P A C K * 3 5
0007040 Q \ G E T D E V I C E F R O M
0007060 N A M E 2 7 Q M K A T O M
0007100 2 4 Q U - C A S E 1 1 Q \
0007120 I P . R E A D . S T R I N G . A
0007140 D D R E S S 3 D O D I P . H
0007160 O S T P ) \r ( 2 5 0 Q \ T C P
0007200 F T P . D E V I C E S 2 4 4 Q
0007220 \ T C P F T P . D E V I C E S
0007240 2 2 3 Q F D E V 2 2 0 Q
0007260 \ T C P . D E V I C E 2 0 5 Q
0007300 N I L L 1 7 6 Q \ T C P F
0007320 T P . G E N E R A T E F I L E S
0007340 1 6 7 Q \ T C P F T P . D I
0007360 R E C T O R Y N A M E P 1 6 0
0007400 Q \ T C P F T P . G E T F I L
0007420 E N A M E 1 5 1 Q N I L L
0007440 1 4 2 Q \ T C P F T P . D E L
0007460 E T E F I L E 1 3 3 Q \ T C
0007500 P F T P . G E T E O F P T R 1
0007520 2 4 Q N I L L 1 1 5 Q N I
0007540 L L 1 0 6 Q N I L L 7 7 Q
0007560 \ T C P F T P . O P E N F I L
0007600 E 6 3 Q \ T C P . D E V I C
0007620 E 6 0 Q 004 003 F D E V T Y P E
0007640 # ) \r ( 5 0 Q " F i l i n
0007660 g " ) \r \ G E T . T C P F T P .
0007700 C O N N E C T I O N A 0 0 0 1
0007720 D 1 \r ( N A M E E R R O R S E
0007740 T L ( 0 N I L ) F 2
0007760 T C P F T P C O N F 3 I N
0010000 S T R E A M F 4 D E V I C
0010020 E F 5 O U T S T R E A M
0010040 F 6 C O N N E C T I O N S
0010060 F 7 R E S E T Y ) \0 r 002 006
0010100 002 \0 ` \0 \0 h i \v \0 \0 277 V 021 021 001 H
0010120 003 265 020 h 022 c 004 265 034 T \t \0 \0 c 016 i
0010140 020 001 Y 002 002 002 001 245 I 265 353 i 260 350 H 002
0010160 X 260 337 001 c 006 262 5 R 002 001 c \n 262 . S
0010200 g \0 \0 \n \0 \0 262 % U g \0 \0 \n \0 \0 262
0010220 034 S \t \0 \0 263 026 S \t \0 \0 224 S 277 260
0010240 370 R 002 002 002 i 030 277 R 260 264 R T \n \0 \0
0010260 277 260 250 \0 ( 1 5 5 Q \ T C P F T
0010300 P . D E L E T E . C O N N E C T
0010320 I O N 1 3 0 Q R E A D P 1
0010340 2 2 Q E O F P 1 1 4 Q O P
0010360 E N P 1 0 3 Q O P E N P 3
0010400 2 Q \ T C P F T P . O P E N .
0010420 C O N N E C T I O N 7 O B T
0010440 A I N . M O N I T O R L O C K )
0010460 \r ( 1 1 1 Q O U T P U T 1 0
0010500 0 Q I N P U T 2 \ T C P F
0010520 T P . C O N N E C T I O N . L O
0010540 C K ) \r ( ) \r \ G E T . T C P F
0010560 T P . C O N N E C T I O N D 1
0010600 \r ( P 6 R E S E T Z P 5
0010620 R E S E T Y P 4 L I S P
0010640 X H I S T P 3 O U T S T R
0010660 E A M P 2 I N S T R E A M
0010700 P 1 T C P F T P C O N P
0010720 0 C O N N E C T I O N S I
0010740 0 D E V I C E F 7 L I
0010760 S P X H I S T F 1 0 Q R E
0011000 S E T V A R S L S T ) \0 - \a 002
0011020 \0 001 @ 006 \0 \0 311 ( 021 1 003 W 016 021 ! 006
0011040 W 020 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g
0011060 \0 \0 ^ \n \0 \0 N 223 \b \0 \0 020 M 020 \0 (
0011100 5 0 Q E R R O R ! 4 3 Q R
0011120 E S E T R E S T O R E 3 1 Q
0011140 \ G E T . T C P F T P . C O N N
0011160 E C T I O N A 0 0 0 1 ) \r ( 3 7
0011200 Q E R R O R 2 6 Q I N T E
0011220 R N A L 3 F D E V ) \r ( 2
0011240 3 Q ( \ G E T . T C P F T P .
0011260 C O N N E C T I O N A 0 0 0 1 )
0011300 ) \r \ T C P F T P . O P E N . C
0011320 O N N E C T I O N A 0 0 0 1 D
0011340 1 \r ( I 0 S T R E A M ) \0
0011360 005 \0 \0 \0 001 \b \0 \0 020 \0 ( 2 Z E R
0011400 O ) \r N I L \r ( ) \r \ T C P F T
0011420 P . O P E N . C O N N E C T I O
0011440 N D 1 \r ( P 3 O U T S T R
0011460 E A M P 2 I N S T R E A M
0011500 P 1 T C P F T P C O N P
0011520 0 H O S T I 0 D E V I
0011540 C E ) \0 { 004 \0 \0 001 @ 006 \0 \0 311 \0
0011560 \t \0 \0 021 021 001 h d d i h d h 032 032 032
0011600 032 032 032 271 H l 025 h g \0 \0 g \0 \0 \r 005
0011620 \0 \0 021 001 002 J d 222 \t \0 \0 021 001 003 J d
0011640 262 C 006 \0 \0 g \0 \0 024 " J 006 \0 \0 @ 024
0011660 006 K 006 \0 \0 @ 024 006 I J 030 I 002 K 030 J
0011700 \t \0 \0 l 334 360 262 027 @ I \n \0 \0 @ 006 \0
0011720 \0 I @ 006 \0 \0 311 ( 032 024 ( I 020 I @ \n
0011740 \0 \0 h 020 \0 ( 1 6 7 Q \ T C P F
0011760 T P . D E L E T E . C O N N E C
0012000 T I O N 1 4 2 Q \ T C P F T
0012020 P . L O G I N 1 3 0 Q \ T C
0012040 P F T P . I N P U T 6 0 Q T
0012060 C P . O T H E R . S T R E A M
0012100 4 7 Q T C P . O P E N 1 0 Q
0012120 D O D I P . H O S T P ) \r ( 1
0012140 5 3 Q F D E V 1 4 6 Q F D
0012160 E V 1 1 2 Q S T R E A M 1
0012200 0 3 Q S T R E A M 7 5 Q \
0012220 T C P F T P . O P E N . C O N N
0012240 E C T I O N A 0 0 0 1 7 2 Q
0012260 S T R E A M 4 3 Q I N P U T
0012300 4 0 Q A C T I V E 3 F D
0012320 E V ) \r ( ) \r \ T C P F T P . A
0012340 S S U R E . C L E A N U P D 1
0012360 \r N I L \0 # \0 \0 \0 \0 ` \0 \0 \t \0
0012400 \0 231 ` \0 \0 \t \0 \0 h 360 265 022 o \0 \0 \0
0012420 g \0 \0 g \0 \0 \v \0 \0 027 \0 \0 020 \0 ( 3
0012440 5 Q A D D . P R O C E S S 1
0012460 4 Q P R O C E S S . F I N I S
0012500 H E D P 5 P R O C E S S P )
0012520 \r ( 4 0 Q \ T C P F T P . C L
0012540 E A N U P . P R O C E S S 3 2
0012560 Q N O 2 7 Q R E S T A R T
0012600 A B L E 1 1 Q \ T C P F T P
0012620 . C L E A N U P . P R O C E S S
0012640 2 \ T C P F T P . C L E A N
0012660 U P . P R O C E S S ) \r ( 2 4
0012700 Q ( \ T C P F T P . C L E A N
0012720 U P ) ) \r \ T C P F T P . C L E
0012740 A N U P A 0 0 0 1 A 0 0 0 2 D
0012760 1 \r ( N A M E E R R O R S E T
0013000 F 0 C O N N E C T I O N
0013020 F 1 C O N N E C T I O N S P
0013040 F 2 D E V I C E ) \0 V \0
0013060 003 002 \0 P d 002 002 002 001 263 6 002 002 002 002 001
0013100 \t \0 \0 262 + P 001 \t \0 \0 277 P 002 001 \t \0
0013120 \0 277 P 002 002 001 227 P 002 002 001 \t \0 \0 277 Q
0013140 m 377 324 c 002 277 P R i \v \0 \0 260 031 P 001
0013160 g \0 \0 \n \0 \0 254 Q m 377 324 c 002 277 P R
0013200 \n \0 \0 200 h h 032 020 \0 ( 1 1 7 Q \
0013220 T C P F T P . D E L E T E . C O
0013240 N N E C T I O N 1 0 2 Q O P
0013260 E N P 7 0 Q \ T C P F T P .
0013300 D E L E T E . C O N N E C T I O
0013320 N 5 2 Q C L O S E F ? 3 5
0013340 Q C L O S E F ? 2 6 Q C L
0013360 O S E F ? 1 7 Q T I M E R E
0013400 X P I R E D ? ) \r ( 7 7 Q I N
0013420 P U T ) \r ( ) \r \ T C P F T P .
0013440 C L E A N U P A 0 0 0 1 D 1 \r
0013460 ( N A M E E R R O R S E T F
0013500 0 R E S E T Y ) \0 025 \0 001 002
0013520 \0 ` \0 \0 h i \v \0 \0 277 o \0 \0 \0 \t \0
0013540 \0 c \0 i 020 \0 ( 1 7 Q \ T C P F
0013560 T P . C L E A N U P A 0 0 0 1 A
0013600 0 0 0 2 7 O B T A I N . M O
0013620 N I T O R L O C K ) \r ( 2 \ T
0013640 C P F T P . C O N N E C T I O N
0013660 . L O C K ) \r ( 1 4 Q ( \ T
0013700 C P F T P . C L E A N U P A 0 0
0013720 0 1 A 0 0 0 2 ) ) \r \ T C P F T
0013740 P . C L E A N U P D 1 \r ( P
0013760 6 R E S E T Z P 5 R E S
0014000 E T Y P 4 L I S P X H I S
0014020 T P 3 C O N N E C T I O N
0014040 P 2 D E V I C E P 1
0014060 C O N N E C T I O N S P P 0
0014100 I N T E R V A L F 7 L I
0014120 S P X H I S T F 1 0 Q R E
0014140 S E T V A R S L S T ) \0 y \a 002
0014160 \0 \0 ` \0 \0 l 004 327 021 021 001 j 271 ` \0 \0
0014200 260 D d 001 021 021 003 J 006 \0 \0 311 ( 260 1 d
0014220 001 273 I k 324 271 W 016 021 ! 006 W 020 o \0 \0
0014240 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 ^ \n \0
0014260 \0 277 N 223 \b \0 \0 277 023 \b \0 \0 277 002 003 265
0014300 320 h 023 002 003 265 275 I d j 360 255 005 003 224 I
0014320 \t \0 \0 244 H \t \0 \0 277 I j 360 252 I 005 003
0014340 262 233 I \t \0 \0 262 225 h 020 \0 ( 1 6 3 Q
0014360 \ F Z E R O P 1 4 5 Q B L
0014400 O C K 1 4 0 Q \ F Z E R O P
0014420 1 1 1 Q B L O C K 1 0 4 Q
0014440 E R R O R ! 7 6 Q R E S E
0014460 T R E S T O R E 6 4 Q \ T C
0014500 P F T P . C L E A N U P A 0 0 0
0014520 1 ) \r ( 7 2 Q E R R O R 6 1
0014540 Q I N T E R N A L 3 0 Q F
0014560 D E V 1 5 Q \ T C P F T P .
0014600 D E V I C E S 2 \ T C P F T
0014620 P . I D L E . T I M E O U T ) \r
0014640 ( 5 6 Q ( \ T C P F T P . C
0014660 L E A N U P A 0 0 0 1 ) ) \r \ T
0014700 C P F T P . R E L E A S E . C O
0014720 N N E C T I O N D 1 \r ( I 0
0014740 T C P F T P C O N ) \0 \0 \0
0014760 \0 001 @ 002 002 002 h 030 @ 002 002 h 030 @ 002 002
0015000 002 002 l 002 037 \t \0 \0 ` \0 \0 366 030 \b \0 \0
0015020 020 \0 ( 3 5 Q \ T C P F T P . A
0015040 S S U R E . C L E A N U P 2 5
0015060 Q \ C L O C K 0 ) \r ( 3 0 Q
0015100 \ T C P F T P . I D L E . T I M
0015120 E O U T ) \r ( ) \r \ T C P F T P
0015140 . L O G I N D 1 \r ( P 1 I
0015160 N F O P 0 H O S T I 1
0015200 T C P F T P C O N I 0 D
0015220 E V I C E ) \0 277 002 \0 \0 002 021 001
0015240 @ 006 \0 \0 311 \0 X 277 I 001 \t \0 \0 j 360 247
0015260 I 002 \t \0 \0 j 360 225 H \t \0 \0 260 353 H \t
0015300 \0 \0 Y 277 A o \0 \0 \0 I 001 o \0 \0 \0 \f
0015320 \0 \0 d l 346 360 244 d l 312 360 221 i 020 d n
0015340 001 K 360 262 . 277 A o \0 \0 \0 I 002 \t \0 \0
0015360 o \0 \0 \0 \f \0 \0 d l 346 360 263 341 d n 001
0015400 K 360 246 d n 002 022 360 262 M 277 H \t \0 \0 260
0015420 230 d n 001 L 360 262 $ 277 A o \0 \0 \0 o \0
0015440 \0 \0 H \n \0 \0 \t \0 \0 \v \0 \0 d l 346 360
0015460 263 254 n 001 L 360 263 216 260 036 d n 001 367 360 263
0015500 204 d n 001 364 360 245 d n 002 022 360 227 277 H \t
0015520 \0 \0 261 377 U 277 \b \0 \0 h 020 \0 ( 2 7 3
0015540 Q F T P H E L P 2 6 4 Q L
0015560 O G I N 2 1 6 Q A R P A C M
0015600 D 2 1 3 Q P R O M P T F O R
0015620 W O R D 2 1 0 Q C O N C A T
0015640 1 6 1 Q L O G I N 1 3 1 Q
0015660 A R P A C M D 1 2 2 Q \ D
0015700 E C R Y P T . P W D 6 4 Q A
0015720 R P A C M D 4 4 Q \ I N T E
0015740 R N A L / G E T P A S S W O R D
0015760 3 6 Q L O G I N 2 7 Q N
0016000 C H A R S 1 7 Q N C H A R S
0016020 ) \r ( 6 F D E V ) \r ( 2 0 4
0016040 Q " A c c o u n t f o r l
0016060 o g g i n g i n t o " 2 0
0016100 0 Q " A C C T " 1 2 6 Q (
0016120 3 4 6 Q 5 1 3 Q 1 0 2 2 Q )
0016140 1 1 5 Q " P A S S " 6 1 Q
0016160 ( 3 1 2 Q 3 4 6 Q 5 1 3 Q
0016200 5 1 4 Q 7 6 4 Q 7 6 7 Q
0016220 1 0 2 2 Q ) 5 3 Q " U S E R
0016240 " ) \r \ T C P F T P . D E L E T
0016260 E F I L E A 0 0 0 1 D 1 \r ( N
0016300 A M E E R R O R S E T F 0
0016320 T C P F T P C O N F 1 N
0016340 A M E F 2 O S T Y P E )
0016360 \0 037 \0 003 002 \0 P o \0 \0 \0 g \0 \0 h g
0016400 \0 \0 Q \f \0 \0 R \n \0 \0 o \0 \0 \0 \f \0
0016420 \0 h 032 020 \0 ( 3 2 Q A R P A C M
0016440 D 2 3 Q R E P A C K F I L E
0016460 N A M E . S T R I N G 1 7 Q
0016500 P A C K F I L E N A M E . S T R
0016520 I N G ) \r ( 1 3 Q B O D Y 7
0016540 H O S T ) \r ( 2 7 Q ( 3 1
0016560 0 Q 3 4 2 Q 3 7 2 Q ) 4
0016600 " D E L E " ) \r \ T C P F T P .
0016620 D E L E T E F I L E D 1 \r ( P
0016640 2 C O D E P 1 O S T Y
0016660 P E P 0 T C P F T P C O N
0016700 I 1 D E V I C E I 0
0016720 N A M E ) \0 0 003 \0 \0 002 A \t \0 \0
0016740 021 001 \0 A \t \0 \0 021 001 001 o \0 \0 \0 \t \0
0016760 \0 001 021 001 002 H \t \0 \0 J l 372 360 252 J l
0017000 342 360 245 J l 310 360 264 003 @ 020 \0 ( 3 4 Q
0017020 \ T C P F T P . R E L E A S E
0017040 . C O N N E C T I O N 2 4 Q
0017060 \ T C P F T P . D E L E T E F I
0017100 L E A 0 0 0 1 1 2 Q \ T C P
0017120 F T P . G E T . O S T Y P E 3
0017140 \ G E T . T C P F T P . C O N
0017160 N E C T I O N ) \r N I L \r ( 2
0017200 1 Q ( \ T C P F T P . D E L E
0017220 T E F I L E A 0 0 0 1 ) ) \r \ T
0017240 C P F T P . D I R E C T O R Y N
0017260 A M E P A 0 0 0 1 A 0 0 0 2 D
0017300 1 \r ( I 0 T C P F T P C O N
0017320 F 0 R E S E T S T A T E )
0017340 \0 + \0 001 \0 001 @ \t \0 \0 P 264 $ @ 001
0017360 \t \0 \0 225 @ 001 \t \0 \0 277 @ h 030 @ 002 001
0017400 \t \0 \0 226 @ 002 001 \t \0 \0 277 @ 002 h 030 001
0017420 020 \0 ( 4 2 Q C L O S E F 3 3
0017440 Q O P E N P 2 1 Q C L O S
0017460 E F 1 3 Q O P E N P 3 \
0017500 T C P F T P . R E L E A S E . C
0017520 O N N E C T I O N ) \r N I L \r (
0017540 ) \r \ T C P F T P . D I R E C T
0017560 O R Y N A M E P A 0 0 0 1 D 1
0017600 \r ( N A M E E R R O R S E T
0017620 F 0 T C P F T P C O N F
0017640 1 R E S E T V A R S L S T F
0017660 2 R E S E T Y F 3 D E
0017700 V I C E F 4 H O S T / D I
0017720 R ) \0 ! \0 005 002 \0 g \0 \0 P h 032 032
0017740 h h 032 032 Q 032 c 002 277 S P T g \0 \0 \n
0017760 \0 \0 \v \0 \0 c 004 i 020 \0 ( 3 3 Q \
0020000 T C P F T P . C O N N E C T 3
0020020 0 Q F I L E N A M E F I E L D
0020040 ) \r ( 2 5 Q D I R E C T O R Y
0020060 2 \ T C P F T P . D I R E C
0020100 T O R Y N A M E P A 0 0 0 1 A 0
0020120 0 0 2 ) \r ( ) \r \ T C P F T P .
0020140 D I R E C T O R Y N A M E P D
0020160 1 \r ( P 3 R E S E T Z P
0020200 2 R E S E T Y P 1 L I S
0020220 P X H I S T P 0 T C P F T
0020240 P C O N I 1 D E V I C E
0020260 I 0 H O S T / D I R F 4
0020300 L I S P X H I S T F 5 R
0020320 E S E T V A R S L S T ) \0 ) 004
0020340 002 \0 002 A \t \0 \0 021 001 \0 T 021 ! 003 U o
0020360 \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 [
0020400 \n \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 4 4 Q
0020420 E R R O R ! 3 7 Q R E S E
0020440 T R E S T O R E 2 5 Q \ T C
0020460 P F T P . D I R E C T O R Y N A
0020500 M E P A 0 0 0 1 3 \ G E T .
0020520 T C P F T P . C O N N E C T I O
0020540 N ) \r ( 3 3 Q E R R O R 2 2
0020560 Q I N T E R N A L ) \r ( 1 7
0020600 Q ( \ T C P F T P . D I R E C
0020620 T O R Y N A M E P A 0 0 0 1 ) )
0020640 \r \ T C P F T P . E N D O F S T
0020660 R E A M O P D 1 \r ( I 1 S
0020700 I L E N T L Y I 0 S T R E
0020720 A M ) \0 \r \0 \0 \0 002 @ \t \0 \0 A 265
0020740 006 @ \t \0 \0 020 \0 ( 1 2 Q \ E O S
0020760 E R R O R 3 \ T C P F T P .
0021000 T R A N S F E R . C O M P L E T
0021020 E ) \r N I L \r ( ) \r \ T C P F T
0021040 P . G E N E R A T E F I L E S A
0021060 0 0 0 1 D 1 \r ( N A M E E R
0021100 R O R S E T F 0 P A T T E
0021120 R N F 1 O S T Y P E F
0021140 2 T C P F T P C O N ) \0 234 \0
0021160 003 002 \0 R o \0 \0 \0 Q g \0 \0 360 262 z P
0021200 g \0 \0 \n \0 \0 g \0 \0 360 262 < P g \0 \0
0021220 \n \0 \0 g \0 \0 360 262 / P g \0 \0 \n \0 \0
0021240 g \0 \0 360 262 " g \0 \0 h g \0 \0 h g \0
0021260 \0 h g \0 \0 o \0 \0 \0 g \0 \0 P \r \n \0
0021300 \0 g \0 \0 260 ? P g \0 \0 \n \0 \0 g \0 \0
0021320 360 262 027 g \0 \0 h g \0 \0 h g \0 \0 P \r
0021340 006 \0 \0 g \0 \0 260 035 g \0 \0 h g \0 \0 P
0021360 \f \0 \0 g \0 \0 213 g \0 \0 h g \0 \0 P \f
0021400 \0 \0 Q \n \0 \0 l 226 \f \0 \0 h 032 020 \0 (
0021420 2 2 7 Q A R P A C M D 2 2 2
0021440 Q R E P A C K F I L E N A M E
0021460 . S T R I N G 2 1 6 Q P A C
0021500 K F I L E N A M E . S T R I N G
0021520 1 7 7 Q P A C K F I L E N A
0021540 M E . S T R I N G 1 5 7 Q P
0021560 A C K F I L E N A M E . S T R I
0021600 N G 1 3 1 Q F I L E N A M E
0021620 F I E L D 1 1 5 Q P A C K F
0021640 I L E N A M E . S T R I N G 5
0021660 4 Q F I L E N A M E F I E L D
0021700 3 7 Q F I L E N A M E F I E
0021720 L D 2 2 Q F I L E N A M E F
0021740 I E L D ) \r ( 2 1 2 Q B O D Y
0021760 2 0 6 Q H O S T 2 0 2 Q
0022000 U N I X 1 7 3 Q B O D Y 1
0022020 6 7 Q H O S T 1 6 2 Q U N
0022040 I X 1 5 2 Q B O D Y 1 4 6
0022060 Q V E R S I O N 1 4 2 Q H
0022100 O S T 1 3 4 Q * 1 2 6 Q
0022120 V E R S I O N 1 2 0 Q U N I
0022140 X 1 1 0 Q B O D Y 1 0 1 Q
0022160 N A M E 7 5 Q E X T E N S
0022200 I O N 7 1 Q V E R S I O N
0022220 6 5 Q H O S T 5 7 Q * 5
0022240 1 Q N A M E 4 2 Q * 3 4
0022260 Q E X T E N S I O N 2 5 Q
0022300 * 1 7 Q V E R S I O N 1 0
0022320 Q U N I X ) \r ( 1 0 5 Q "
0022340 * " 4 " N L S T " ) \r \ T C
0022360 P F T P . G E N E R A T E F I L
0022400 E S D 1 \r ( P 4 C O D E
0022420 P 3 D A T A S T R E A M P
0022440 2 D A T A S T R E A M E V E
0022460 N T P 1 O S T Y P E P
0022500 0 T C P F T P C O N I 3
0022520 O P T I O N S I 2 D E S I
0022540 R E D P R O P S I 1 P A T
0022560 T E R N I 0 D E V I C E )
0022600 \0 ^ 005 \0 \0 004 @ \t \0 \0 021 001 \0 @ \t
0022620 \0 \0 021 1 004 H g \0 \0 \n \0 \0 Z \b \0 \0
0022640 o \0 \0 \0 \t \0 \0 001 \ d l 226 360 262 & @
0022660 H J g \0 \0 \f \0 \0 [ 264 031 H 002 002 002 002
0022700 002 A g \0 \0 \n \0 \0 030 g \0 \0 g \0 \0 H
0022720 032 032 020 J 006 \0 \0 311 002 \t \0 \0 H \t \0 \0
0022740 \b \0 \0 020 \0 ( 1 3 3 Q \ N U L L
0022760 F I L E G E N E R A T O R 1 3
0023000 0 Q \ T C P F T P . R E L E A
0023020 S E . C O N N E C T I O N 1 2
0023040 4 Q D E L . P R O C E S S 1
0023060 0 0 Q F I L E N A M E F I E L
0023100 D 6 0 Q \ T C P F T P . W A
0023120 I T . F O R . D A T A C O N N E
0023140 C T I O N 3 7 Q \ T C P F T
0023160 P . G E N E R A T E F I L E S A
0023200 0 0 0 1 3 0 Q B L O C K 2
0023220 4 Q \ T C P F T P . S P A W N
0023240 . D A T A C O N N E C T I O N
0023260 1 2 Q \ T C P F T P . G E T .
0023300 O S T Y P E 3 \ G E T . T C
0023320 P F T P . C O N N E C T I O N )
0023340 \r ( 1 1 7 Q E V E N T 1 0 7
0023360 Q N I L L 1 0 4 Q \ T C P
0023400 F T P . G E N E R A T E N E X T
0023420 F I L E 7 5 Q D I R E C T O
0023440 R Y 5 5 Q I N P U T 2 1 Q
0023460 I N P U T ) \r ( 3 4 Q ( \
0023500 T C P F T P . G E N E R A T E F
0023520 I L E S A 0 0 0 1 ) ) \r \ T C P
0023540 F T P . G E N E R A T E N E X T
0023560 F I L E A 0 0 0 1 D 1 \r ( N A
0023600 M E E R R O R S E T L ( 0
0023620 N I L ) P 1 R F 2
0023640 D A T A S T R E A M ) \0 B 002 001
0023660 002 \0 R o \0 \0 \0 021 001 \0 H d 002 263 . g
0023700 \0 \0 \t \0 \0 021 001 001 h d I \v \0 \0 277 g
0023720 \0 \0 g \0 \0 I \v \0 \0 277 o \0 \0 \0 h I
0023740 \v \0 \0 277 I 022 030 i 031 277 H 022 001 \n \0 \0
0023760 h 032 020 \0 ( 7 5 Q R E A D 6 0
0024000 Q S E T S E P R 4 6 Q S E
0024020 T S Y N T A X 3 3 Q S E T B
0024040 R K 2 2 Q C O P Y R E A D T
0024060 A B L E ) \r ( 4 2 Q O T H E R
0024100 3 7 Q % % 1 7 Q O R I G
0024120 ) \r ( 5 3 Q ( 1 5 Q 1 2 Q
0024140 3 7 Q ) 4 ( N I L ) ) \r \
0024160 T C P F T P . G E N E R A T E N
0024200 E X T F I L E D 1 \r ( P 2
0024220 N A M E P 1 C O D E P
0024240 0 D A T A S T R E A M I 1
0024260 N A M E O N L Y I 0 T C
0024300 P F T P C O N ) \0 211 003 \0 \0 002 @
0024320 002 002 001 021 ! 002 H g \0 \0 \n \0 \0 262 E H
0024340 \t \0 \0 263 ? o \0 \0 \0 \t \0 \0 001 Z 262 4
0024360 A 227 J g \0 \0 \n \0 \0 020 g \0 \0 @ 001 006
0024400 \0 \0 311 006 006 \0 \0 311 \0 g \0 \0 @ 002 002 002
0024420 002 002 001 g \0 \0 J g \0 \0 \n \0 \0 \r 006 \0
0024440 \0 020 H \t \0 \0 224 H \t \0 \0 277 @ h d o
0024460 \0 \0 \0 \f \0 \0 Y l 372 360 247 I d l 342 360
0024500 262 023 277 H \t \0 \0 224 H \t \0 \0 277 @ \t \0
0024520 \0 h 020 \t \0 \0 020 \0 ( 2 0 6 Q F T
0024540 P H E L P 2 0 1 Q \ T C P F
0024560 T P . R E L E A S E . C O N N E
0024600 C T I O N 1 7 4 Q C L O S E
0024620 F 1 6 7 Q O P E N P 1 4 6
0024640 Q A R P A C M D 1 3 3 Q C
0024660 L O S E F 1 2 6 Q O P E N P
0024700 1 2 1 Q P A C K F I L E N A
0024720 M E . S T R I N G 1 1 5 Q R
0024740 E P A C K F I L E N A M E . S T
0024760 R I N G 5 1 Q R E P A C K F
0025000 I L E N A M E . S T R I N G 3
0025020 4 Q \ T C P F T P . G E N E R
0025040 A T E N E X T F I L E A 0 0 0 1
0025060 2 3 Q E O F P 1 5 Q O P
0025100 E N P ) \r ( 1 1 2 Q D 1 0 6
0025120 Q B O D Y 7 4 Q D I R E C
0025140 T O R Y 6 7 Q F D E V 6 2
0025160 Q S T R E A M 5 5 Q H O S
0025200 T 4 6 Q D 1 2 Q I N P U
0025220 T ) \r ( 1 4 3 Q ( 3 4 2 Q
0025240 3 7 2 Q ) 3 1 Q ( \ T C P F
0025260 T P . G E N E R A T E N E X T F
0025300 I L E A 0 0 0 1 ) ) \r \ T C P F
0025320 T P . G E T F I L E N A M E A 0
0025340 0 0 1 D 1 \r ( N A M E E R R
0025360 O R S E T F 0 T C P F T P
0025400 C O N F 1 N A M E F 2
0025420 O S T Y P E ) \0 035 \0 003 002 \0 P
0025440 o \0 \0 \0 g \0 \0 h g \0 \0 Q \f \0 \0 R
0025460 \n \0 \0 l 226 \f \0 \0 h 032 020 \0 ( 3 0 Q
0025500 A R P A C M D 2 3 Q R E P
0025520 A C K F I L E N A M E . S T R I
0025540 N G 1 7 Q P A C K F I L E N
0025560 A M E . S T R I N G ) \r ( 1 3 Q
0025600 B O D Y 7 H O S T ) \r (
0025620 4 " N L S T " ) \r \ T C P F T
0025640 P . G E T F I L E N A M E D 1
0025660 \r ( P 1 2 Q F I L E P 6
0025700 A L L P O S S I B I L I T I E
0025720 S P 5 G E N E R A T O R
0025740 P 4 C O D E P 3 D A T
0025760 A S T R E A M P 2 D A T A
0026000 S T R E A M E V E N T P 1
0026020 O S T Y P E P 0 T C P F T
0026040 P C O N I 2 D E V I C E
0026060 I 1 R E C O G I 0 N A
0026100 M E ) \0 207 \v \0 \0 003 B \t \0 \0 B \t
0026120 \0 \0 021 R 006 H g \0 \0 \n \0 \0 Z \b \0 \0
0026140 o \0 \0 \0 \t \0 \0 001 \ d l 226 360 262 S B
0026160 H J g \0 \0 \f \0 \0 [ 264 V g \0 \0 g \0
0026200 \0 H 032 032 ] 264 J H 002 002 002 002 002 @ g \0
0026220 \0 \n \0 \0 030 277 021 @ \n M \t \0 \0 _ 024 265
0026240 \a O 016 022 001 020 _ 022 277 O 020 265 \r O 022 h
0026260 032 _ 020 _ 016 277 260 343 O 022 & _ 020 277 260 333
0026300 J 006 \0 \0 311 002 \t \0 \0 277 H \t \0 \0 h 020
0026320 \0 ( 2 0 3 Q \ T C P F T P . R
0026340 E L E A S E . C O N N E C T I O
0026360 N 1 7 6 Q D E L . P R O C E
0026400 S S 1 2 2 Q \ G E N E R A T
0026420 E N E X T F I L E 1 1 1 Q F
0026440 I L E N A M E F I E L D 5 5 Q
0026460 \ T C P F T P . W A I T . F O
0026500 R . D A T A C O N N E C T I O N
0026520 3 4 Q \ T C P F T P . G E T
0026540 F I L E N A M E A 0 0 0 1 2 5
0026560 Q B L O C K 2 1 Q \ T C P
0026600 F T P . S P A W N . D A T A C O
0026620 N N E C T I O N 7 \ T C P F
0026640 T P . G E T . O S T Y P E 3
0026660 \ G E T . T C P F T P . C O N N
0026700 E C T I O N ) \r ( 1 7 1 Q E V
0026720 E N T 1 0 6 Q D I R E C T O
0026740 R Y 6 6 Q N I L L 6 3 Q
0026760 \ T C P F T P . G E N E R A T E
0027000 N E X T F I L E 5 2 Q I N P
0027020 U T 1 6 Q I N P U T ) \r (
0027040 3 1 Q ( \ T C P F T P . G E T
0027060 F I L E N A M E A 0 0 0 1 ) ) \r
0027100 \ T C P F T P . C O N N E C T
0027120 D 1 \r ( P 0 D I R E C T O R
0027140 Y N A M E I 2 D I R E C T
0027160 O R Y I 1 T C P F T P C O
0027200 N I 0 D E V I C E ) \0 4
0027220 001 \0 \0 003 g \0 \0 B \n \0 \0 @ \t \0 \0 \n
0027240 \0 \0 021 001 \0 H \t \0 \0 j 360 263 032 A o \0
0027260 \0 \0 H o \0 \0 \0 \f \0 \0 d l 310 360 245 d
0027300 l 372 360 264 003 i 020 \0 ( 4 5 Q A R P
0027320 A C M D 2 4 Q N C H A R S
0027340 1 5 Q R E P A C K F I L E N A
0027360 M E . S T R I N G 1 2 Q \ T
0027400 C P F T P . G E T . O S T Y P E
0027420 6 P A C K F I L E N A M E .
0027440 S T R I N G ) \r ( 2 D I R E C
0027460 T O R Y ) \r ( 4 2 Q ( 3 1 0
0027500 Q 3 7 2 Q 7 0 2 Q 1 0 4 6
0027520 Q ) 3 5 Q " C W D " ) \r \ T
0027540 C P F T P . O P E N F I L E A 0
0027560 0 0 1 D 1 \r ( N A M E E R R
0027600 O R S E T F 0 T C P F T P
0027620 C O N F 1 F T P C M D F
0027640 2 F I L E N A M E ) \0 016 \0
0027660 003 002 \0 P Q R o \0 \0 \0 \f \0 \0 h 032 020
0027700 \0 ( 1 1 Q A R P A C M D ) \r N
0027720 I L \r ( 6 ( 1 7 5 Q 2 2 6
0027740 Q 3 4 2 Q 3 7 2 Q 6 5 1 Q
0027760 6 5 2 Q 7 0 2 Q 7 0 3 Q
0030000 1 0 4 6 Q ) ) \r \ T C P F T P .
0030020 O P E N F I L E D 1 \r ( P 1
0030040 1 Q S T R E A M D E V P 1
0030060 0 Q F T P C M D P 7 C O
0030100 D E P 6 D A T A S T R E A
0030120 M P 5 D A T A S T R E A M
0030140 E V E N T P 4 T Y P E P
0030160 3 T C P F T P C O N P 2
0030200 F I L E N A M E P 1 O S
0030220 T Y P E P 0 H O S T I
0030240 4 D E V I C E I 3 P A R
0030260 A M E T E R S I 2 R E C O
0030300 G I 1 A C C E S S I 0
0030320 N A M E ) 001 226 \n \0 \0 005 D 006 \0
0030340 \0 311 \0 021 001 \0 D \t \0 \0 021 001 001 g \0 \0
0030360 h g \0 \0 @ \f \0 \0 I \n \0 \0 021 001 002 D
0030400 \t \0 \0 021 001 003 g \0 \0 C 026 002 001 265 023 J
0030420 g \0 \0 \n \0 \0 ` \0 \0 026 002 265 005 ` \0 \0
0030440 021 Q \t L g \0 \0 360 231 K o \0 \0 \0 o \0
0030460 \0 \0 210 K o \0 \0 \0 o \0 \0 \0 l 310 \f \0
0030500 \0 277 K A d g \0 \0 360 223 277 g \0 \0 \n \0
0030520 \0 ] \b \0 \0 A d g \0 \0 360 226 277 o \0 \0
0030540 \0 260 g \0 \0 360 225 o \0 \0 \0 260 025 A g
0030560 \0 \0 360 224 o \0 \0 \0 207 o \0 \0 \0 A \n \0
0030600 \0 _ 020 277 o \0 \0 \0 \t \0 \0 001 _ 016 l }
0030620 360 250 O 016 d l 226 360 262 ~ 277 D K M A d
0030640 g \0 \0 360 223 277 g \0 \0 \f \0 \0 ^ d 242 261
0030660 \0 302 006 \0 \0 g \0 \0 024 " 277 N 006 \0 \0 @
0030700 024 004 277 N 006 \0 \0 ` \0 \0 223 l 002 260 025 I
0030720 d g \0 \0 360 222 277 k 210 g \0 \0 360 222 l 002
0030740 200 j 317 030 001 277 N 006 \0 \0 K 024 024 277 N 006
0030760 \0 \0 311 006 _ 022 006 \0 \0 O 022 006 \0 \0 g \0
0031000 \0 024 016 277 g \0 \0 024 \f 277 N g \0 \0 g \0
0031020 \0 \v \0 \0 N 020 n 001 251 360 262 2 o \0 \0 \0
0031040 \t \0 \0 277 M 006 \0 \0 311 002 \t \0 \0 277 n 023
0031060 210 \t \0 \0 277 K A d g \0 \0 360 223 277 g \0
0031100 \0 \n \0 \0 275 \b \0 \0 277 261 377 \f O 016 n 001
0031120 302 360 251 O 016 d n 002 & 360 262 023 277 M 006 \0
0031140 \0 311 002 \t \0 \0 277 K \t \0 \0 277 202 \t \0 \0
0031160 h 020 \0 ( 6 2 2 Q F T P H E L P
0031200 6 1 5 Q \ T C P F T P . R E
0031220 L E A S E . C O N N E C T I O N
0031240 6 1 0 Q D E L . P R O C E S
0031260 S 5 5 2 Q B L O C K 5 4 6
0031300 Q \ T C P F T P . S P A W N .
0031320 D A T A C O N N E C T I O N 5
0031340 2 6 Q D I S M I S S 5 1 7 Q
0031360 D E L . P R O C E S S 5 0 5
0031400 Q P R O M P T P R I N T 4 6
0031420 6 Q S T R E A M A D D P R O P
0031440 3 1 6 Q \ T C P F T P . W A
0031460 I T . F O R . D A T A C O N N E
0031500 C T I O N 2 5 5 Q \ T C P F
0031520 T P . O P E N F I L E A 0 0 0 1
0031540 2 4 3 Q E R R O R 1 6 7 Q
0031560 B L O C K 1 6 3 Q \ T C P
0031600 F T P . S P A W N . D A T A C O
0031620 N N E C T I O N 1 4 3 Q A R
0031640 P A C M D 7 0 Q F I L E N A
0031660 M E F I E L D 4 5 Q \ G E T
0031700 . T C P F T P . C O N N E C T I
0031720 O N 3 6 Q R E P A C K F I L
0031740 E N A M E . S T R I N G 3 2 Q
0031760 P A C K F I L E N A M E . S T
0032000 R I N G 1 4 Q \ T C P F T P
0032020 . G E T . O S T Y P E ) \r ( 6 0
0032040 3 Q E V E N T 5 4 3 Q A P
0032060 P E N D 5 3 5 Q O U T P U T
0032100 5 1 2 Q E V E N T 4 6 3 Q
0032120 \ T C P F T P . T R A N S F E
0032140 R . C O M P L E T E 4 6 0 Q
0032160 A F T E R C L O S E 4 5 1 Q
0032200 N I L L 4 4 3 Q N I L L 4
0032220 4 0 Q F D E V 4 3 3 Q F D
0032240 E V 4 2 4 Q S T R E A M 4
0032260 1 4 Q S T R E A M 3 7 6 Q
0032300 T O P S - 2 0 3 6 6 Q U N I
0032320 X 3 5 4 Q T C P . U S E . S
0032340 T A N D A R D . E O L 3 5 1 Q
0032360 S T R E A M 3 4 1 Q S T R
0032400 E A M 3 3 2 Q \ T C P F T P
0032420 . E N D O F S T R E A M O P 3
0032440 2 7 Q S T R E A M 3 1 3 Q
0032460 A P P E N D 3 0 5 Q O U T P
0032500 U T 2 2 4 Q A P P E N D 2
0032520 1 0 Q O U T P U T 1 7 4 Q
0032540 I N P U T 1 6 0 Q A P P E N
0032560 D 1 5 2 Q O U T P U T 1 1
0032600 1 Q T E X T 1 0 2 Q T C P
0032620 . D E F A U L T F I L E T Y P E
0032640 7 3 Q T C P F T P . D E F A
0032660 U L T . F I L E T Y P E S 6 5
0032700 Q E X T E N S I O N 5 3 Q
0032720 T Y P E 2 6 Q B O D Y 2 2
0032740 Q H O S T 3 F D E V ) \r (
0032760 5 0 2 Q " T C P F T P : P
0033000 l e a s e w a i t ; t h e
0033020 r e m o t e f t p s e r v e
0033040 r i s b u s y . " 2 5 2 Q
0033060 ( \ T C P F T P . O P E N F I
0033100 L E A 0 0 0 1 ) 2 3 7 Q " A
0033120 C C E S S m u s t b e o n
0033140 e o f I N P U T , O U T P
0033160 U T , o r A P P E N D " 2
0033200 3 2 Q " A P P E " 2 1 6 Q
0033220 " S T O R " 2 0 3 Q " R E T
0033240 R " 1 3 6 Q " L 8 " 1 3
0033260 2 Q " T Y P E " 1 2 4 Q "
0033300 A N " 1 2 0 Q " T Y P E "
0033320 ) \r \ T C P F T P . C L O S E
0033340 D 1 \r ( P 0 D E V I N F O
0033360 I 0 D E V I C E ) \0 , 001 \0
0033400 \0 001 @ 006 \0 \0 311 ( 021 001 \0 H 002 001 g \0
0033420 \0 \n \0 \0 226 H 002 001 \t \0 \0 277 H 001 g \0
0033440 \0 \n \0 \0 264 \b H 001 \t \0 \0 h 020 \0 ( 5
0033460 0 Q C L O S E F 4 1 Q O P
0033500 E N P 3 0 Q C L O S E F 2
0033520 1 Q O P E N P ) \r ( 3 6 Q I
0033540 N P U T 1 6 Q O U T P U T
0033560 3 F D E V ) \r ( ) \r \ T C P F
0033600 T P . F L U S H D 1 \r ( P 0
0033620 I N S T R E A M I 0 D E
0033640 V I C E ) \0 035 001 \0 \0 001 @ 006 \0 \0
0033660 311 ( 001 021 001 \0 H \t \0 \0 264 \r H \t \0 \0
0033700 264 \a H 277 260 367 020 \0 ( 2 3 Q R E
0033720 A D P 1 5 Q R E A D P ) \r (
0033740 3 F D E V ) \r ( ) \r \ T C P F
0033760 T P . I N I T D 1 \r N I L \0
0034000 e \0 \0 \0 \0 h ` \0 \0 037 d g \0 \0 024 \0
0034020 277 d g \0 \0 024 020 277 d g \0 \0 024 \b 277 d
0034040 g \0 \0 024 : 277 d g \0 \0 024 8 277 d g \0
0034060 \0 024 6 277 d g \0 \0 024 4 277 d g \0 \0 024
0034100 2 277 d g \0 \0 024 0 277 d g \0 \0 024 . 277
0034120 d g \0 \0 024 * 277 d g \0 \0 024 $ 277 d g
0034140 \0 \0 024 006 277 \n \0 \0 020 \0 ( 1 4 2 Q
0034160 \ D E F I N E D E V I C E ) \r (
0034200 1 3 4 Q N I L L 1 2 5 Q \
0034220 G E N E R I C . R E A D P 1 1
0034240 6 Q N I L L 1 0 7 Q \ I S
0034260 . N O T . R A N D A C C E S S P
0034300 1 0 0 Q \ I L L E G A L . D
0034320 E V I C E O P 7 1 Q \ I S .
0034340 N O T . R A N D A C C E S S P
0034360 6 2 Q \ I L L E G A L . D E V
0034400 I C E O P 5 3 Q \ G E N E R
0034420 I C . B I N S 4 4 Q \ G E N
0034440 E R I C . B O U T S 3 5 Q \
0034460 G E N E R I C . R E N A M E F I
0034500 L E 2 6 Q \ T C P F T P . E
0034520 V E N T F N 1 7 Q \ T C P F
0034540 T P . H O S T N A M E P 1 0 Q
0034560 T C P F T P 3 004 003 F D E V
0034600 T Y P E # ) \r ( ) \r \ T C P . B
0034620 Y E D 1 \r ( P 4 I N S T R
0034640 E A M P 3 T C P F T P C O
0034660 N P 1 C O N N E C T I O N
0034700 S P 0 D E V I C E I 0
0034720 H O S T ) \0 T 005 \0 \0 001 @ h i
0034740 \v \0 \0 021 021 001 H d 224 006 \0 \0 311 ( Y 021
0034760 ! 004 J 003 265 004 h 020 001 [ 001 \ 277 L \t \0
0035000 \0 223 L 260 370 K o \0 \0 \0 o \0 \0 \0 o
0035020 \0 \0 \0 \f \0 \0 277 K 002 002 001 \t \0 \0 277 L
0035040 \t \0 \0 277 K 002 001 \t \0 \0 277 J 002 Z 260 305
0035060 \0 ( 1 1 4 Q C L O S E F ? 1
0035100 0 5 Q C L O S E F ? 1 0 0 Q
0035120 C L O S E F ? 7 0 Q A R P
0035140 A C M D 4 3 Q R E A D P 5
0035160 \ G E T D E V I C E F R O M N
0035200 A M E ) \r ( 1 6 Q F D E V ) \r
0035220 ( 6 5 Q ( 3 3 5 Q 7 6 4 Q
0035240 ) 6 1 Q " " 5 5 Q " Q U
0035260 I T " ) \r \ T C P F T P . M A Y
0035300 B E . A B O R T D 1 \r ( P 1
0035320 T C P O U T S T R E A M P
0035340 0 T C P F T P C O N I 0
0035360 D A T A S T R E A M ) \0 P 002 \0
0035400 \0 001 @ 006 \0 \0 311 024 021 021 001 H 002 001 271 @
0035420 g \0 \0 h \v \0 \0 @ 006 \0 \0 311 022 263 2 @
0035440 g \0 \0 \n \0 \0 264 * @ \t \0 \0 \t \0 \0 \b
0035460 \0 \0 I l 364 ! I l 362 ! I \t \0 \0 H o
0035500 \0 \0 \0 o \0 \0 \0 o \0 \0 \0 \f \0 \0 020 h
0035520 020 \0 ( 1 1 3 Q A R P A C M D
0035540 7 3 Q T C P . U R G E N T . M
0035560 A R K 5 7 Q B L O C K 5 4
0035600 Q T C P . C L O S E . S E N D
0035620 E R 5 1 Q T C P . O T H E R
0035640 . S T R E A M 4 3 Q O P E N
0035660 P 2 4 Q S T R E A M P R O P
0035700 ) \r ( 4 0 Q I N P U T 3 0 Q
0035720 S T R E A M 2 0 Q B E F O
0035740 R E C L O S E 3 S T R E A M
0035760 ) \r ( 1 1 0 Q ( 3 4 2 Q 6
0036000 5 2 Q 3 7 2 Q ) 1 0 4 Q "
0036020 " 1 0 0 Q " A B O R " ) \r \
0036040 T C P F T P . O P E N . D A T A
0036060 . C O N N E C T I O N A 0 0 0 1
0036100 D 1 \r ( N A M E E R R O R S
0036120 E T P 1 P O R T P 0
0036140 T C B F 2 T C P F T P C O
0036160 N F 3 E V E N T F 4
0036200 A C C E S S F 5 R E S E T
0036220 Y ) \0 Y 002 004 002 \0 ` \0 \0 h i \v \0
0036240 \0 277 R 001 006 \0 \0 311 \f \b \0 \0 021 002 001 R
0036260 o \0 \0 \0 I \t \0 \0 o \0 \0 \0 \f \0 \0 277
0036300 R 002 002 H 006 \0 \0 313 034 H 006 \0 \0 310 033 k
0036320 331 I g \0 \0 T \r 005 \0 \0 030 277 S 004 ` \0
0036340 \0 360 224 S \t \0 \0 277 R 022 002 002 001 c \n i
0036360 020 \0 ( 1 1 5 Q N O T I F Y . E
0036400 V E N T 1 0 0 Q T C P . O P
0036420 E N 4 5 Q A R P A C M D 3
0036440 6 Q \ T C P F T P . P O R T .
0036460 S T R I N G 2 2 Q \ T C P .
0036500 S E L E C T . P O R T 7 O B
0036520 T A I N . M O N I T O R L O C K
0036540 ) \r ( 1 0 7 Q 004 003 E V E N T T
0036560 Y P E # 7 3 Q P A S S I V E
0036600 6 3 Q T C P . C O N T R O L
0036620 . B L O C K 5 5 Q T C P . C
0036640 O N T R O L . B L O C K 1 5 Q
0036660 S T R E A M 2 \ T C P F T
0036700 P . D A T A C O N N E C T I O N
0036720 . L O C K ) \r ( 4 2 Q ( 3 1
0036740 0 Q ) 3 2 Q " P O R T " ) \r
0036760 \ T C P F T P . O P E N . D A T
0037000 A . C O N N E C T I O N D 1 \r
0037020 ( P 2 R E S E T Z P 1
0037040 R E S E T Y P 0 L I S P X
0037060 H I S T I 2 E V E N T I
0037100 1 A C C E S S I 0 T C
0037120 P F T P C O N F 3 L I S P
0037140 X H I S T F 4 R E S E T V
0037160 A R S L S T ) \0 " 003 002 \0 003 S 021
0037200 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202
0037220 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0
0037240 ( 3 5 Q E R R O R ! 3 0 Q
0037260 R E S E T R E S T O R E 1 6 Q
0037300 \ T C P F T P . O P E N . D A
0037320 T A . C O N N E C T I O N A 0 0
0037340 0 1 ) \r ( 2 4 Q E R R O R 1
0037360 3 Q I N T E R N A L ) \r ( 1
0037400 0 Q ( \ T C P F T P . O P E N
0037420 . D A T A . C O N N E C T I O N
0037440 A 0 0 0 1 ) ) \r \ T C P F T P .
0037460 P O R T . S T R I N G D 1 \r (
0037500 P 0 I P A D D R E S S I
0037520 0 P O R T ) \0 L 001 \0 \0 001 \b \0
0037540 \0 021 001 \0 H l 030 \n \0 \0 l 377 345 o \0 \0
0037560 \0 H l 020 \n \0 \0 l 377 345 o \0 \0 \0 H l
0037600 \b \n \0 \0 l 377 345 o \0 \0 \0 H l 377 345 o
0037620 \0 \0 \0 @ l \b \n \0 \0 l 377 345 o \0 \0 \0
0037640 @ l 377 345 \r \v \0 \0 020 \0 ( 1 1 1 Q
0037660 C O N C A T 7 2 Q R S H 4
0037700 5 Q R S H 3 0 Q R S H 1
0037720 3 Q R S H 2 \ L O C A L .
0037740 I P . A D D R E S S ) \r N I L \r
0037760 ( 1 0 1 Q " , " 6 4 Q "
0040000 , " 5 4 Q " , " 3 7 Q "
0040020 , " 2 2 Q " , " ) \r \ T C P
0040040 F T P . S P A W N . D A T A C O
0040060 N N E C T I O N D 1 \r ( P 1
0040100 P R O C E S S P 0 E V E
0040120 N T I 1 A C C E S S I
0040140 0 T C P F T P C O N F 2
0040160 R E S E T V A R S L S T ) \0 ~
0040200 002 001 \0 002 \b \0 \0 021 021 001 g \0 \0 g \0 \0
0040220 @ h 032 032 g \0 \0 A h 032 032 H h 032 032 032
0040240 032 \t \0 \0 Y g \0 \0 g \0 \0 g \0 \0 I h
0040260 032 032 g \0 \0 g \0 \0 @ 001 o \0 \0 \0 032 032
0040300 g \0 \0 @ 001 h 032 032 h 032 032 032 g \0 \0 g
0040320 \0 \0 @ 002 001 o \0 \0 \0 032 032 g \0 \0 @ 002
0040340 001 h 032 032 h 032 032 032 h 032 032 032 032 h 032 032
0040360 h h 032 032 R 032 c 004 H 006 \0 \0 I 024 002 H
0040400 020 \0 ( 3 7 Q A D D . P R O C E
0040420 S S 2 C R E A T E . E V E N
0040440 T ) \r ( 1 6 7 Q E V E N T 1
0040460 3 1 Q C L O S E F 1 1 5 Q
0040500 O P E N P 1 1 2 Q A N D 7
0040520 6 Q C L O S E F 6 3 Q O P
0040540 E N P 6 0 Q A N D 5 1 Q
0040560 D E L . P R O C E S S 4 6 Q
0040600 R E S E T S T A T E 4 3 Q C
0040620 O N D 2 2 Q Q U O T E 1 3
0040640 Q Q U O T E 1 0 Q \ T C P
0040660 F T P . O P E N . D A T A . C O
0040700 N N E C T I O N ) \r ( 1 2 4 Q
0040720 ( ( Q U O T E O U T P U T )
0040740 ) 7 1 Q ( ( Q U O T E I N
0040760 P U T ) ) ) \r \ T C P F T P . T
0041000 R A N S F E R . C O M P L E T E
0041020 D 1 \r ( P 0 T C P F T P C
0041040 O N I 0 D A T A S T R E A
0041060 M ) \0 S 001 \0 \0 001 @ 006 \0 \0 311 024 021
0041100 001 \0 @ g \0 \0 h \v \0 \0 H 264 ? @ 006 \0
0041120 \0 311 022 263 6 @ g \0 \0 \n \0 \0 227 @ \t \0
0041140 \0 \t \0 \0 277 H h d o \0 \0 \0 \f \0 \0 @
0041160 006 \0 \0 i 024 022 @ 006 \0 \0 h 024 020 @ 006 \0
0041200 \0 h 024 024 H \t \0 \0 020 h 020 \0 ( 1 1 6
0041220 Q \ T C P F T P . R E L E A S
0041240 E . C O N N E C T I O N 6 5 Q
0041260 A R P A C M D 5 2 Q T C P
0041300 . C L O S E . S E N D E R 4 7
0041320 Q T C P . O T H E R . S T R E
0041340 A M 4 2 Q O P E N P 2 0 Q
0041360 S T R E A M P R O P ) \r ( 1 0
0041400 7 Q S T R E A M 1 0 0 Q S
0041420 T R E A M 7 1 Q S T R E A M
0041440 3 7 Q I N P U T 2 7 Q S
0041460 T R E A M 1 4 Q A F T E R C
0041500 L O S E 3 S T R E A M ) \r (
0041520 6 2 Q ( 3 4 2 Q 6 5 2 Q
0041540 3 7 2 Q ) ) \r \ T C P F T P . W
0041560 A I T . F O R . D A T A C O N N
0041600 E C T I O N D 1 \r ( P 0 S
0041620 T R E A M I 3 A C C E S S
0041640 I 2 E V E N T I 1 T
0041660 C P F T P C O N I 0 D E V
0041700 I C E ) \0 $ 001 \0 \0 004 021 020 \0 B o
0041720 \0 \0 \0 \n \0 \0 A 002 002 001 C \n \0 \0 264 017
0041740 A 002 002 001 X d 006 \0 \0 @ 024 020 H 020 \0 (
0041760 2 2 Q O P E N P 1 2 Q A W
0042000 A I T . E V E N T ) \r ( 3 5 Q
0042020 S T R E A M ) \r ( 7 3 5 2 3
0042040 0 0 Q ) \r \ T C P F T P . D E L
0042060 E T E . C O N N E C T I O N A 0
0042100 0 0 1 D 1 \r ( N A M E E R R
0042120 O R S E T F 0 T C P F T P
0042140 C O N ) \0 \v \0 001 002 \0 P o \0 \0 \0
0042160 \n \0 \0 i 020 \0 ( 7 A R P A C M D
0042200 ) \r N I L \r ( 4 " B Y E " )
0042220 \r \ T C P F T P . D E L E T E .
0042240 C O N N E C T I O N D 1 \r ( P
0042260 0 I N S T R E A M I 2
0042300 S E N D B Y E I 1 D E V I
0042320 C E I 0 T C P F T P C O N
0042340 ) \0 6 002 \0 \0 003 @ 001 021 021 001 B 227 o
0042360 \0 \0 \0 \t \0 \0 277 H 265 025 A 006 \0 \0 @ A
0042400 006 \0 \0 311 ( \n \0 \0 Y 024 ( I 020 006 \0 \0
0042420 311 \f 006 \0 \0 311 R \t \0 \0 277 260 337 \0 ( 6
0042440 1 Q D E L . P R O C E S S 3
0042460 7 Q D R E M O V E 1 5 Q \
0042500 T C P F T P . D E L E T E . C O
0042520 N N E C T I O N A 0 0 0 1 ) \r (
0042540 5 4 Q T C P . C O N T R O L .
0042560 B L O C K 4 7 Q S T R E A M
0042600 3 2 Q F D E V 2 5 Q F D
0042620 E V ) \r ( 1 2 Q ( \ T C P F
0042640 T P . D E L E T E . C O N N E C
0042660 T I O N A 0 0 0 1 ) ) \r ( P R E
0042700 T T Y C O M P R I N T T C P F
0042720 T P C O M S ) \r ( R P A Q Q T
0042740 C P F T P C O M S ( ( C O M S
0042760 ( * * F N S f r o m L
0043000 a r r y ' s I n t e r l i s p
0043020 - 1 0 L I S P U S E R S p a
0043040 c k a g e ) ( F N S A R P A
0043060 C M D F T P H E L P \r C M D
0043100 R E A D C O D E C M D R E A D
0043120 D I S C A R D L I N E G E T
0043140 L I N E \ T C P F T P . I N P
0043160 U T T E L N E T . E O L ) (
0043200 I N I T V A R S ( \ T C P F T
0043220 P . A R P A C M D . L O C K (
0043240 \r C R E A T E . M O N I T O R L
0043260 O C K " A R P A C M D L o c
0043300 k " ) ) ) ( G L O B A L V A R
0043320 S \ T C P F T P . A R P A C M
0043340 D . L O C K ) ( D E C L A R E
0043360 : D O N T E V A L @ L O A D
0043400 \r D O E V A L @ C O M P I L E
0043420 D O N T C O P Y C O M P I L E
0043440 R V A R S ( A D D V A R S (
0043460 N L A M A ) ( N L A M L ) (
0043500 L A M A F T P H E L P ) ) ) )
0043520 ( C O M S ( * * F N S
0043540 f o r t h e \r I n t e r l i
0043560 s p - D s t r e a m s f a c
0043600 i l i t y ) ( F N S \ T C P
0043620 F T P . G E T . O S T Y P E \
0043640 T C P F T P . E V E N T F N \
0043660 T C P F T P . H O S T N A M E P
0043700 \r \ G E T . T C P F T P . C O
0043720 N N E C T I O N \ T C P F T P
0043740 . O P E N . C O N N E C T I O N
0043760 \ T C P F T P . A S S U R E .
0044000 C L E A N U P \ T C P F T P .
0044020 C L E A N U P \r \ T C P F T P
0044040 . R E L E A S E . C O N N E C T
0044060 I O N \ T C P F T P . L O G I
0044100 N \ T C P F T P . D E L E T E
0044120 F I L E \ T C P F T P . D I R
0044140 E C T O R Y N A M E P \r \ T C
0044160 P F T P . E N D O F S T R E A M
0044200 O P \ T C P F T P . G E N E R
0044220 A T E F I L E S \ T C P F T P
0044240 . G E N E R A T E N E X T F I L
0044260 E \ T C P F T P . G E T F I L
0044300 E N A M E \r \ T C P F T P . C
0044320 O N N E C T \ T C P F T P . O
0044340 P E N F I L E \ T C P F T P .
0044360 C L O S E \ T C P F T P . F L
0044400 U S H \ T C P F T P . I N I T
0044420 ) ( R E C O R D S T C P D A
0044440 T A S T R E A M \r T C P F T P
0044460 C O N ) ( I N I T V A R S (
0044500 T C P . D E F A U L T F I L E T
0044520 Y P E ( Q U O T E B I N A R
0044540 Y ) ) ( T C P F T P . D E F A
0044560 U L T . F I L E T Y P E S ( Q
0044600 U O T E ( ( D C O M . \r B
0044620 I N A R Y ) ( B I N . B I
0044640 N A R Y ) ( N I L . T E X
0044660 T ) ) ) ) ( T C P . U S E . S
0044700 T A N D A R D . E O L T ) (
0044720 \ T C P F T P . D E V I C E S )
0044740 ( \r \ T C P F T P . C L E A N
0044760 U P . P R O C E S S ) ) ( G L
0045000 O B A L V A R S \ T C P F T P
0045020 . D E V I C E S \ T C P F T P
0045040 . C L E A N U P . P R O C E S S
0045060 T C P . D E F A U L T F I L E
0045100 T Y P E \r T C P . U S E . S T
0045120 A N D A R D . E O L ) ) ( C O
0045140 M S ( * * D a t a c o n
0045160 n e c t i o n h a n d l i n g
0045200 ) ( F N S \ T C P . B Y E
0045220 \ T C P F T P . M A Y B E . A B
0045240 O R T \r \ T C P F T P . O P E
0045260 N . D A T A . C O N N E C T I O
0045300 N \ T C P F T P . P O R T . S
0045320 T R I N G \ T C P F T P . S P
0045340 A W N . D A T A C O N N E C T I
0045360 O N \r \ T C P F T P . T R A N
0045400 S F E R . C O M P L E T E \ T
0045420 C P F T P . W A I T . F O R . D
0045440 A T A C O N N E C T I O N \ T
0045460 C P F T P . D E L E T E . C O N
0045500 N E C T I O N ) ( I N I T V A
0045520 R S ( \r \ T C P F T P . D A T
0045540 A C O N N E C T I O N . L O C K
0045560 ( C R E A T E . M O N I T O R
0045600 L O C K " T C P F T P D a t
0045620 a C o n n e c t i o n L o c
0045640 k " ) ) ( \r \ T C P F T P . C
0045660 O N N E C T I O N . L O C K (
0045700 C R E A T E . M O N I T O R L O
0045720 C K " T C P F T P C o n n e
0045740 c t i o n L o c k " ) ) ( \
0045760 T C P F T P . I D L E . T I M E
0046000 O U T ( T I M E S 1 0 \r 6
0046020 0 1 0 0 0 ) ) ) ( G L O B A
0046040 L V A R S \ T C P F T P . D A
0046060 T A C O N N E C T I O N . L O C
0046100 K \ T C P F T P . C O N N E C
0046120 T I O N . L O C K \ T C P F T
0046140 P . I D L E . T I M E O U T ) )
0046160 ( \r F I L E S ( S Y S L O A
0046200 D F R O M V A L U E O F L
0046220 I S P U S E R S D I R E C T O R
0046240 I E S ) T C P N A M E S T C
0046260 P ) ( P ( \ T C P F T P . I
0046300 N I T ) ) ( D E C L A R E :
0046320 \r D O N T E V A L @ L O A D D
0046340 O E V A L @ C O M P I L E D O
0046360 N T C O P Y C O M P I L E R V
0046400 A R S ( A D D V A R S ( N L
0046420 A M A ) ( N L A M L ) ( L A
0046440 M A ) ) ) ) ) \r ( R P A Q ? \
0046460 T C P F T P . A R P A C M D . L
0046500 O C K ( C R E A T E . M O N I
0046520 T O R L O C K " A R P A C M D
0046540 L o c k " ) ) \r ( A C C E S S
0046560 F N S T C P D A T A S T R E A
0046600 M ( ( T C P C O N T R O L D E
0046620 V I C E ( f e t c h ( S T R
0046640 E A M F 3 ) o f D A T U M
0046660 ) ( r e p l a c e ( S T R E
0046700 A M F 3 ) o f D A T U M \r
0046720 w i t h N E W V A L U E ) )
0046740 ( S E E N E O S ( f e t c h
0046760 ( S T R E A M F 4 ) o f
0047000 D A T U M ) ( r e p l a c e
0047020 ( S T R E A M F 4 ) o f D
0047040 A T U M w i t h N E W V A L
0047060 U E ) ) ( \r T C P F T P C O N
0047100 ( f e t c h ( S T R E A M
0047120 F 5 ) o f D A T U M ) ( r
0047140 e p l a c e ( S T R E A M F
0047160 5 ) o f D A T U M w i t h
0047200 N E W V A L U E ) ) ) ) \r ( R
0047220 E C O R D T C P F T P C O N
0047240 ( T C P I N T C P O U T D A
0047260 T A S T R E A M B U S Y ? I
0047300 D L E T I M E R G E N E R A T
0047320 E F I L E S D I R E C T O R Y )
0047340 ) \r ( R P A Q ? T C P . D E F
0047360 A U L T F I L E T Y P E ( Q U
0047400 O T E B I N A R Y ) ) \r ( R P
0047420 A Q ? T C P F T P . D E F A U
0047440 L T . F I L E T Y P E S ( Q U
0047460 O T E ( ( D C O M . B I N
0047500 A R Y ) ( B I N . B I N A
0047520 R Y ) ( N I L . T E X T )
0047540 ) ) ) \r ( R P A Q ? T C P . U
0047560 S E . S T A N D A R D . E O L
0047600 T ) \r ( R P A Q ? \ T C P F T
0047620 P . D E V I C E S ) \r ( R P A Q
0047640 ? \ T C P F T P . C L E A N U
0047660 P . P R O C E S S ) \r ( R P A Q
0047700 ? \ T C P F T P . D A T A C O
0047720 N N E C T I O N . L O C K ( C
0047740 R E A T E . M O N I T O R L O C
0047760 K " T C P F T P D a t a C
0050000 o n n e c t i o n L o c k " )
0050020 ) \r ( R P A Q ? \ T C P F T P
0050040 . C O N N E C T I O N . L O C K
0050060 ( C R E A T E . M O N I T O R
0050100 L O C K " T C P F T P C o n
0050120 n e c t i o n L o c k " ) ) \r
0050140 ( R P A Q ? \ T C P F T P . I
0050160 D L E . T I M E O U T ( T I M
0050200 E S 1 0 6 0 1 0 0 0 ) ) \r
0050220 ( F I L E S L O A D ( S Y S L
0050240 O A D F R O M V A L U E O F
0050260 L I S P U S E R S D I R E C T
0050300 O R I E S ) T C P N A M E S
0050320 T C P ) \r ( \ T C P F T P . I N
0050340 I T ) \r ( P U T P R O P S T C
0050360 P F T P C O P Y R I G H T (
0050400 " X e r o x C o r p o r a t i
0050420 o n " 1 9 8 5 ) ) \r N I L \r
0050437