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