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