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