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