$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>PUPPRINT!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 0 - F e b - 8 7 1 8 : 3 7 : 1
0000140 2 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > P U P
0000200 P R I N T . ; 4 006 001 2 3 1 6 6
0000220 \r \r c h a n g e
0000240 s t o % : ( F N S E F T
0000260 P ) \r \r p r e v i o
0000300 u s d a t e % : " 2 5 - A p
0000320 r - 8 6 1 2 : 4 4 : 5 2 " {
0000340 E R I S } < L I S P C O R E > S
0000360 O U R C E S > P U P P R I N T .
0000400 ; 2 ) \r \r \r ( * " \r C o p y r
0000420 i g h t ( c ) 1 9 8 5 , 1
0000440 9 8 6 , 1 9 8 7 b y X e r
0000460 o x C o r p o r a t i o n .
0000500 A l l r i g h t s r e s e
0000520 r v e d . \r " ) \r \r ( P R E T T
0000540 Y C O M P R I N T P U P P R I
0000560 N T C O M S ) \r \r ( R P A Q Q
0000600 006 002 P U P P R I N T C O M S 006 001
0000620 ( ( F N S E F T P \ A B O
0000640 R T . E F T P \ S T O R E P L
0000660 I S T P U P . P R I N T E R .
0000700 S T A T U S P U P . P R I N T
0000720 E R . P R O P E R T I E S ) \r
0000740
0000760 ( D E C L A R E % : D
0001000 O N T C O P Y ( C O N S T A N
0001020 T S * E F T P P U P T Y P E
0001040 S ) \r
0001060 (
0001100 C O N S T A N T S * E F T P
0001120 C O N S T A N T S ) \r
0001140
0001160 ( A D D V A R S
0001200 * ( L I S T ( C O N S ' P
0001220 U P T Y P E S E F T P P U P T
0001240 Y P E S ) ) ) \r
0001260
0001300 ( G L O B A L V A R S
0001320 \ E F T P . T I M E O U T \ E
0001340 F T P . L O N G T I M E O U T )
0001360 ) \r
0001400 ( I N I T V A R S
0001420 ( \ E F T P . T I M E O U T
0001440 5 0 0 0 ) \r
0001460
0001500 ( \ E F T P . L O N G T I M
0001520 E O U T 1 5 0 0 0 ) ) ) ) \r (
0001540 D E F I N E Q \r \r ( 006 004 E F T P
0001560 006 001 \r [ L A M B D A ( H O
0001600 S T F I L E P R I N T O P T
0001620 I O N S ) 006 006 006 001
0001640
0001660 006 006 ( * ; " E d i t
0001700 e d 2 0 - F e b - 8 7 1 8 :
0001720 3 6 b y j d s " ) 006 001 \r \r 006
0001740 006 ( * ; ; ; " I m p l e m e
0001760 n t s t h e E F T P ( % "
0002000 E a s y F T P % " ) p r o t
0002020 o c o l f o r s e n d i n g
0002040 f i l e s t o S P R U C E
0002060 a n d P R E S S p r i n t
0002100 e r s . T h i s i s a
0002120 s u b s e t o f t h e f u
0002140 l l P U P F T P . " ) 006 001 \r
0002160 \r ( R E S E T L S T (
0002200 P R O G ( ( H O S T P O R T
0002220 ( B E S T P U P A D D R E S S
0002240 H O S T ' E R R O R ) ) \r
0002260
0002300 ( T I M E O U T \ E F T
0002320 P . T I M E O U T ) \r
0002340
0002360 ( C H E C K S T A T U S P R I
0002400 N T O P T I O N S ) \r
0002420
0002440 ( O P U P ( A L L O C A T E .
0002460 P U P ) ) \r
0002500 % # S I D
0002520 E S % # C O P I E S D O C N
0002540 A M E C R D A T E S T R E A
0002560 M D A T A R E S U L T E N
0002600 D I N G U S E R N A M E S T R
0002620 I N G N C \r
0002640 H O S
0002660 T N A M E S T A T U S N E W
0002700 S T A T U S C U R P A G E #
0002720 I D S O C L A S T P A G E #
0002740 L A S T P A G E L E N G T H
0002760 L E N G T H \r
0003000 T H I
0003020 S P A G E L E N G T H P R E S
0003040 S D A T A P A G E # A B O R T
0003060 E R C L O S E R C A P A B I
0003100 L I T I E S I P U P ) \r
0003120
0003140 [ S E T Q S T R E A M ( C
0003160 O N D \r
0003200
0003220 ( ( A N D ( T
0003240 Y P E N A M E P F I L E ' S
0003260 T R E A M ) \r
0003300
*
0003340 ( O P E N P F I L E ) )
0003360 006 006 ( * ; \r 006 001
0003400
*
0003460 006 006 " I t
0003500 ' s a n o p e n s t r e a
0003520 m , s o j u s t u s e i
0003540 t . " ) 006 001 \r
0003560
0003600 F I L E
0003620 ) \r
0003640
0003660 ( T
0003700 006
0003720 006 ( * ; " o t h e r w i s e
0003740 , O P E N i t . " ) 006 001 \r
0003760
*
0004020 ( O P E N S T R E A
0004040 M F I L E ' I N P U T ] \r
0004060
0004100 ( R E S E T S A V E N I
0004120 L ( S E T Q C L O S E R (
0004140 L I S T ' C L O S E F ? S T
0004160 R E A M ) ) ) \r
0004200 ( S E T
0004220 Q L E N G T H ( G E T F I L
0004240 E I N F O S T R E A M ' L E
0004260 N G T H ) ) \r
0004300 ( S E T Q
0004320 L A S T P A G E L E N G T H
0004340 ( 006 002 f e t c h 006 001 ( B Y T E
0004360 P T R O F F S E T ) 006 002 o f
0004400 006 001 L E N G T H ) ) \r
0004420
0004440 ( S E T Q L A S T P A G E #
0004460 ( 006 002 f e t c h 006 001 ( B Y T E
0004500 P T R P A G E ) 006 002 o f 006 001
0004520 L E N G T H ) ) \r
0004540 [ C
0004560 O N D \r
0004600 ( P R I N
0004620 T O P T I O N S ( C O N D \r
0004640
*
0004700 ( ( N E Q L A S
0004720 T P A G E L E N G T H 0 ) \r
0004740
*
0005000 ( H E L P " P
0005020 r e s s f i l e w i t h n
0005040 o n - i n t e g r a l n u m b
0005060 e r o f p a g e s ? " F I
0005100 L E ) ) \r
0005120
0005140 )
0005160
0005200 006 006 ( * ; \r 006 001
0005220
*
0005260 006 006 " F i n a l p a
0005300 g e o f p r e s s f i l e
0005320 h o l d s s p e c i a l p
0005340 r i n t i n g p a r a m e t e
0005360 r s " ) 006 001 \r
0005400
0005420 ( S E T Q P R E S S
0005440 D A T A P A G E # ( S U B 1
0005460 L A S T P A G E # ) ) \r
0005500
0005520 [ C O N D \r
0005540
*
0005600 ( ( N L I S T P P R I N T O
0005620 P T I O N S ) 006 006 (
0005640 * ; \r 006 001
0005660
*
0005740 006 006 " O l d s t y l e
0005760 , w h e r e t h i s a r g
0006000 w a s # C O P I E S " ) 006 001
0006020 \r
0006040
0006060 ( S E T Q % # C O P I E
0006100 S P R I N T O P T I O N S ) )
0006120 \r
0006140
0006160 ( T
0006200 006 006
0006220 ( * ; " N e w s t y l e ,
0006240 p r o p l i s t " ) 006 001 \r
0006260
*
0006320 ( S E T Q % # S I D E S
0006340 ( L I S T G E T P R I N T O
0006360 P T I O N S ' % # S I D E S )
0006400 ) \r
0006420
0006440 [ C O N D \r
0006460
*
0006520 ( ( S E T Q D O C N A M
0006540 E ( L I S T G E T P R I N T
0006560 O P T I O N S ' D O C U M E N
0006600 T . N A M E ) ) \r
0006620
*
0006660 ( S E T Q D O C N A M E (
0006700 C O N D \r
0006720
*
0006760 ( (
0007000 G R E A T E R P ( N C H A R S
0007020 D O C N A M E ) \r
0007040
*
0007120 5 1 ) \r
0007140
*
0007220 006 006 ( *
0007240 ; \r 006 001
0007260
*
0007340 006 006 " F o r m a t o n l
0007360 y a l l o w s 2 6 - w o r d
0007400 b c p l s t r i n g " ) 006 001
0007420 \r
0007440
*
0007500 ( S U B S
0007520 T R I N G D O C N A M E 1
0007540 5 1 ) ) \r
0007560
*
0007620 ( T
0007640 ( M K S T R I N G D O C N A
0007660 M E ] \r
0007700
0007720 ( S E T Q % #
0007740 C O P I E S ( L I S T G E T
0007760 P R I N T O P T I O N S ' % #
0010000 C O P I E S ] \r
0010020
0010040 ( C O N D \r
0010060
0010100 ( ( N
0010120 O T ( A N D ( S M A L L P
0010140 % # C O P I E S ) \r
0010160
*
0010220 ( I G R E A T E R P
0010240 % # C O P I E S 0 ) ) ) \r
0010260
*
0010340 006 006 ( *
0010360 ; \r 006 001
0010400
*
0010460 006 006 " U n r e a s o n a b
0010500 l e # C o p i e s v a l u e
0010520 s g o t o 1 . " ) 006 001 \r
0010540
*
0010600 ( S E T Q % # C O P I E S
0010620 1 ) ) ) \r
0010640
0010660 [ C O N D \r
0010700
0010720 ( ( S E T Q
0010740 C R D A T E ( L I S T G E T
0010760 P R I N T O P T I O N S ' D
0011000 O C U M E N T . C R E A T I O N
0011020 . D A T E ) ) \r
0011040
0011060 ( O R ( S
0011100 T R I N G P C R D A T E ) \r
0011120
*
0011160 ( S E T Q C R D A T
0011200 E ( G D A T E C R D A T E
0011220 ( D A T E F O R M A T T I M E
0011240 . Z O N E ] \r
0011260
*
0011340 006 006 ( * ; \r 006 001
0011360
*
0011420 006 006 " F i n a l l y
0011440 , f i g u r e o u t w h a
0011460 t t o p u t i n t h e
0011500 ' P r i n t e d F o r : ' f
0011520 i e l d " ) 006 001 \r
0011540
0011560 ( C O N D \r
0011600
0011620 ( (
0011640 I G R E A T E R P [ S E T Q
0011660 N C ( N C H A R S ( S E T Q
0011700 U S E R N A M E S T R I N G \r
0011720
*
0012000 (
0012020 U S E R N A M E N I L N I L
0012040 T ] \r
0012060
0012100 3 1 )
0012120
0012140 006 006 ( * ; \r 006 001
0012160
*
0012240 006 006 " T h i s f i e
0012260 l d l i m i t e d t o 1 6
0012300 - w o r d b c p l s t r i n
0012320 g " ) 006 001 \r
0012340
0012360 ( S E T Q U S
0012400 E R N A M E S T R I N G ( S U
0012420 B S T R I N G U S E R N A M E
0012440 S T R I N G 1 3 1 ) ) ) \r
0012460
*
0012520 ( ( I L E S S P [ I P L U S
0012540 N C ( N C H A R S ( S E T Q
0012560 H O S T N A M E ( E T H E R
0012600 H O S T N A M E N I L T ] \r
0012620
*
0012660 2 8 ) \r
0012700
0012720 (
0012740 S E T Q U S E R N A M E S T R
0012760 I N G ( C O N C A T U S E R
0013000 N A M E S T R I N G " o n
0013020 " H O S T N A M E ] \r
0013040
0013060 [ R E S E T S A V E N I L (
0013100 L I S T ' C L O S E P U P S O
0013120 C K E T ( S E T Q S O C (
0013140 O P E N P U P S O C K E T ] \r
0013160
0013200 ( S E T U P P U P O P U
0013220 P H O S T P O R T \ P U P S
0013240 O C K E T . E F T P \ E F T P
0013260 . D A T A - 1 S O C T ) \r
0013300
0013320 ( R E S E T S A V E N
0013340 I L ( S E T Q A B O R T E R
0013360 ( L I S T ' \ A B O R T . E
0013400 F T P S O C O P U P ) ) ) \r
0013420
0013440 R E S T A R T \r
0013460 ( C O N
0013500 D \r
0013520 ( ( A N D C
0013540 U R P A G E # P U P T R A C E
0013560 F L G ) \r
0013600 ( P R
0013620 I N 1 " ( r e s t a r t i n
0013640 g ) " P U P T R A C E F I L E
0013660 ) ) ) \r
0013700 ( S E T Q I D
0013720 0 ) \r
0013740 ( C O N D \r
0013760
0014000 ( ( N E Q C U R P A
0014020 G E # 0 ) \r
0014040 [
0014060 C O N D \r
0014100
0014120 ( ( E Q ( G E T F I L E P T R
0014140 S T R E A M ) \r
0014160
0014200 0 ) ) \r
0014220
0014240 ( ( R A N D A C
0014260 C E S S P S T R E A M ) \r
0014300
0014320 ( S E T F I
0014340 L E P T R S T R E A M 0 ) )
0014360 \r
0014400 ( T (
0014420 R P L A C A ( C D R C L O S
0014440 E R ) \r
0014460
0014500 ( S E T Q S
0014520 T R E A M ( O P E N S T R E A
0014540 M ( C L O S E F S T R E A M
0014560 ) \r
0014600
*
0014640 ' I N P U
0014660 T ] \r
0014700 ( S E T Q
0014720 C U R P A G E # 0 ) ) ) \r
0014740
0014760 ( 006 002 r e p l a c e 006 001
0015000 P U P T Y P E 006 002 o f 006 001 O
0015020 P U P 006 002 w i t h 006 001 \ E F
0015040 T P . D A T A ) \r
0015060 [ C O
0015100 N D \r
0015120 ( ( F I X P
0015140 % # S I D E S ) \r
0015160
0015200 [ 006 002 w h i l e 006 001 ( N O
0015220 T C A P A B I L I T I E S ) \r
0015240
0015260 006 002 d o 006
0015300 001 [ 006 002 d o 006 001
0015320
0015340 006 006 ( * ; \r 006 001
0015360
*
0015420 006 006 " P r i n t e r
0015440 c a p a b i l i t y r e q u e
0015460 s t o n l y h o n o r e d
0015500 w h i l e p r i n t e r i s
0015520 i d l e " ) 006 001 \r
0015540
0015560 [ C O N
0015600 D \r
0015620
0015640 ( ( S E T Q N E
0015660 W S T A T U S ( 006 002 P U P . P
0015700 R I N T E R . S T A T U S 006 001
0015720 H O S T P O R T ) ) \r
0015740
*
0016000 ( C O N D \r
0016020
*
0016060 ( ( N O T ( E Q U A L N E W
0016100 S T A T U S S T A T U S ) ) \r
0016120
*
0016160 ( p r i n t
0016200 o u t P R O M P T W I N D O W
0016220 . T A B 0 0 ( C D R ( S
0016240 E T Q S T A T U S N E W S T
0016260 A T U S ] \r
0016300
0016320 ( C O N D \r
0016340
*
0016400 ( ( E Q ( C A R S T A
0016420 T U S ) \r
0016440
0016460 \
0016500 P S . I D L E ) \r
0016520
0016540 (
0016560 R E T U R N ) ) \r
0016600
0016620 ( T
0016640 ( B L O C K \ E F T P . T I
0016660 M E O U T ] \r
0016700
0016720 ( S E T Q C H E C K
0016740 S T A T U S N I L ) \r
0016760
0017000 ( C O N D \r
0017020
*
0017060 ( ( N O T ( S E T Q C A P
0017100 A B I L I T I E S ( 006 002 P U P
0017120 . P R I N T E R . P R O P E R T
0017140 I E S 006 001 H O S T P O R T ) )
0017160 ) \r
0017200
0017220 ( p r i n t o u t P R
0017240 O M P T W I N D O W . T A B 0
0017260 0 " [ N o r e s p o n s e
0017300 f r o m " H O S T " ] "
0017320 ) \r
0017340
0017360 ( S E T Q S T A T U S
0017400 ] \r
0017420 ( C O N D \r
0017440
0017460 ( [ A N D
0017500 ( E Q ( C H C O N 1 ( C A
0017520 D R ( A S S O C ' P R I N T
0017540 - I N S T A N C E C A P A B I
0017560 L I T I E S ) ) ) \r
0017600
0017620 (
0017640 C H A R C O D E T ) ) \r
0017660
0017700 ( O
0017720 R ( E Q % # S I D E S 1 )
0017740 \r
0017760
0020000 ( E Q ( C H C O N
0020020 1 ( C A D R ( A S S O C '
0020040 D U P L E X C A P A B I L I T
0020060 I E S ) ) ) \r
0020100
*
0020140 ( C H A R C O D E T ]
0020160 006 006 ( * ; " P r e p
0020200 a r e c a p a b i l i t i e s
0020220 " ) 006 001 \r
0020240
0020260 ( S E T Q D A T A ( 006 002 f
0020300 e t c h 006 001 P U P C O N T E N
0020320 T S 006 002 o f 006 001 O P U P ) )
0020340 \r
0020360 ( \ P
0020400 U T B A S E D A T A 0 \ S
0020420 P R U C E P W D 1 ) \r
0020440
0020460 ( \ P U T B A S E
0020500 D A T A 1 \ S P R U C E P
0020520 W D 2 ) \r
0020540
0020560 ( 006 002 r e p l a c e 006 001 P U
0020600 P L E N G T H 006 002 o f 006 001 O
0020620 P U P \r
0020640
0020660 006 002 w i t h 006 001 ( I P L
0020700 U S ( 006 002 \ S T O R E P L I S
0020720 T 006 001 [ L I S T ( L I S T
0020740 ' D U P L E X ( C O N D \r
0020760
*
0021060 ( ( E
0021100 Q % # S I D E S 1 ) \r
0021120
*
0021220 ' F A
0021240 L S E ) \r
0021260
*
0021360 ( T ' T R U E ] \r
0021400
*
0021460 ( \ A D D B A S E D A T A 2
0021500 ) ) \r
0021520
0021540 \ P
0021560 U P O V L E N 4 ) )
0021600 006 006 ( * ; \r 006 001
0021620
0021640 006 006 " L
0021660 e n g t h o f p u p = l
0021700 e n g t h o f p l i s t p
0021720 l u s o v e r h e a d p l u
0021740 s t w o c o d e w o r d s
0021760 " ) 006 001 \r
0022000
0022020 ( S E T Q C U R P A G E #
0022040 - 1 ) \r
0022060
0022100 ( G O S E N D P A G E ) ) \r
0022120
0022140 ( T ( p r
0022160 i n t o u t T H O S T "
0022200 d o e s n o t s u p p o r t
0022220 # s i d e s s p e c i f i c
0022240 a t i o n " T ] \r
0022260 N E W P A G
0022300 E \r
0022320 ( C O N D \r
0022340
0022360 [ ( E Q C U R P A G E #
0022400 L A S T P A G E # ) \r
0022420
0022440 ( C O N D \r
0022460
0022500 ( ( E Q L A S T P A
0022520 G E L E N G T H 0 ) \r
0022540
0022560 ( S E T Q E N
0022600 D I N G T ) ) \r
0022620
0022640 ( T ( 006 002 r e p l a c
0022660 e 006 001 P U P L E N G T H 006 002
0022700 o f 006 001 O P U P 006 002 w i t h
0022720 006 001 ( I P L U S \ P U P O V
0022740 L E N ( S E T Q T H I S P A
0022760 G E L E N G T H \r
0023000
*
0023100 L A S T P A
0023120 G E L E N G T H ] \r
0023140
0023160 [ ( I L E S S P C U R P A G
0023200 E # L A S T P A G E # ) \r
0023220
0023240 ( 006 002 r e p l a c e
0023260 006 001 P U P L E N G T H 006 002 o
0023300 f 006 001 O P U P 006 002 w i t h 006
0023320 001 ( I P L U S \ P U P O V L
0023340 E N ( S E T Q T H I S P A G
0023360 E L E N G T H \r
0023400
*
0023500 B Y T E S P E R P A G E ]
0023520 \r
0023540 ( T ( S E T Q
0023560 E N D I N G T ) ) ) \r
0023600
0023620 [ C O N D \r
0023640 ( E
0023660 N D I N G ( 006 002 r e p l a c e
0023700 006 001 P U P T Y P E 006 002 o f 006
0023720 001 O P U P 006 002 w i t h 006 001
0023740 \ E F T P . E N D ) \r
0023760
0024000 ( 006 002 r e p l
0024020 a c e 006 001 P U P L E N G T H
0024040 006 002 o f 006 001 O P U P 006 002 w i
0024060 t h 006 001 \ P U P O V L E N ) )
0024100 \r
0024120 ( ( N E Q ( 006
0024140 002 f e t c h 006 001 P U P I D 006
0024160 002 o f 006 001 O P U P ) \r
0024200
0024220 I D )
0024240
0024260 006 006 ( * ;
0024300 \r 006 001
0024320
*
0024360 006 006 " R e a d C U R P
0024400 A G E # ' t h p a g e o f
0024420 f i l e i n t o p u p ' s
0024440 d a t a p a r t " ) 006 001 \r
0024460
0024500 ( \ B I N S S T R
0024520 E A M ( S E T Q D A T A (
0024540 006 002 f e t c h 006 001 P U P C O N
0024560 T E N T S 006 002 o f 006 001 O P U
0024600 P ) ) \r
0024620
0024640 0 T H I S P A G E L E N
0024660 G T H ) \r
0024700 ( C O
0024720 N D \r
0024740 ( (
0024760 E Q C U R P A G E # P R E S
0025000 S D A T A P A G E # )
0025020 006 006 ( * ; \r 006 001
0025040
*
0025120 006 006 " F i l l i
0025140 n p r i n t p a r a m e t e
0025160 r s f o r t h i s r u n "
0025200 ) 006 001 \r
0025220
0025240 ( \ P U T B A S E D A T A 8
0025260 1 )
0025300 006 006 ( * ; " F i r s t c
0025320 o p y t o p r i n t = 1
0025340 " ) 006 001 \r
0025360
0025400 ( \ P U T B A S E D A T A
0025420 9 % # C O P I E S )
0025440 006 006 ( * ; " N u m b e r
0025460 o f c o p i e s " ) 006 001 \r
0025500
0025520 ( C O N D
0025540 \r
0025560
0025600 ( D O C N A M E ( S e t B c p
0025620 l S t r i n g ( \ A D D B A S
0025640 E D A T A 1 2 8 ) \r
0025660
*
0025720 D O C N A
0025740 M E ) ) ) \r
0025760
0026000 ( S e t B c p l S t r i n g
0026020 ( \ A D D B A S E D A T A
0026040 1 5 4 ) \r
0026060
0026100 U S E R N A M E
0026120 S T R I N G ) ) )
0026140 006 006 ( * S e t " p r i n
0026160 t e d b y " ) 006 001 \r
0026200
0026220 ( C O N D \r
0026240
0026260 ( C R D A T E ( S e t
0026300 B c p l S t r i n g ( \ A D D
0026320 B A S E D A T A 1 7 0 ) \r
0026340
*
0026400 C R D A T E ]
0026420 \r
0026440 S E N D P A G E \r
0026460 ( 006
0026500 002 r e p l a c e 006 001 P U P I D
0026520 006 002 o f 006 001 O P U P 006 002 w
0026540 i t h 006 001 I D ) \r
0026560 [ 006
0026600 002 t o 006 001 \ M A X E T H E R T
0026620 R I E S \r
0026640 006 002 d o
0026660 006 001 ( C O N D \r
0026700
0026720 ( C H E C K S T A T
0026740 U S ( C O N D \r
0026760
*
0027020 ( ( A N D ( S E T
0027040 Q N E W S T A T U S ( 006 002 P
0027060 U P . P R I N T E R . S T A T U
0027100 S 006 001 H O S T P O R T ) ) \r
0027120
*
0027200 ( N O T ( E Q U A L N E
0027220 W S T A T U S S T A T U S ) )
0027240 ) \r
0027260
*
0027320 ( p r i n t o u t P R O M P T
0027340 W I N D O W . T A B 0 0 (
0027360 C D R ( S E T Q S T A T U S
0027400 \r
0027420
*
0027520 N E W S T A T U S ) )
0027540 ) \r
0027560
*
0027620 ( S E L E C T C ( C A R S T
0027640 A T U S ) \r
0027660
*
0027720 ( ( L I S T \
0027740 P S . B U S Y \ P S . N O T S
0027760 P O O L I N G ) \r
0030000
*
0030060 006 006 ( * ; \r 006
0030100 001 006 006 " I t m a y b e
0030120 a w h i l e . M a y b e
0030140 I s h o u l d a b o r t
0030160 i n c a s e o f N O T S
0030200 P O O L I N G , b u t b y
0030220 c o n v e n t i o n w e j u
0030240 s t w a i t " ) 006 001 \r
0030260
*
0030340 ( S E T Q T I M E O U T
0030360 \ E F T P . L O N G T I M E O
0030400 U T ) ) \r
0030420
*
0030460 N I L ) ) ) \r
0030500
*
0030540 ( S E T Q C H E C K S T A
0030560 T U S N I L ) ) ) \r
0030600
0030620 [ C O N D \r
0030640
0030660 ( ( S E T Q I
0030700 P U P ( E X C H A N G E P U P
0030720 S S O C O P U P N I L N
0030740 I L T I M E O U T ) ) \r
0030760
0031000 ( S E L E
0031020 C T C ( 006 002 f e t c h 006 001 P
0031040 U P T Y P E 006 002 o f 006 001 I P
0031060 U P ) \r
0031100
0031120 ( \ E F T P . A C K
0031140 [ C O N D \r
0031160
*
0031220 ( ( E Q ( P R O
0031240 G 1 ( 006 002 f e t c h 006 001 P U
0031260 P I D 006 002 o f 006 001 I P U P )
0031300 \r
0031320
*
0031360 ( R E
0031400 L E A S E . P U P I P U P ) )
0031420 \r
0031440
*
0031500 I D ) 006 006
0031520 ( * ; \r 006 001
0031540
*
0031620 006 006 " P a c k e t a
0031640 c k n o w l e d g e d , p r o
0031660 c e e d n o r m a l l y " ) 006
0031700 001 \r
0031720
*
0031760 ( 006 002 a d d 006 001 I D 1
0032000 ) \r
0032020
*
0032060 ( 006 002 a d d 006 001 C U R P
0032100 A G E # 1 ) \r
0032120
*
0032160 ( C O N D \r
0032200
*
0032260 ( E N D I N G \r
0032300 \r
0032320 006 006 ( * ; ; " A c k n o w
0032340 l e d g e d t h e E N D s
0032360 i g n a l . W e n o w e
0032400 c h o t h e E N D o n e
0032420 b i g g e r , s o t h a t
0032440 t h e r e c e i v e r c a n
0032460 s t o p d a l l y i n g " )
0032500 006 001 \r \r
0032520
*
0032560 (
0032600 006 002 r e p l a c e 006 001 P U P I
0032620 D 006 002 o f 006 001 O P U P 006 002
0032640 w i t h 006 001 I D ) \r
0032660
*
0032740 ( S E N D P U P S
0032760 O C O P U P ) \r
0033000
*
0033060 ( G O D O N E ) ) \r
0033100
*
0033160 ( T ( G O N E W P A G
0033200 E ] ) \r
0033220
0033240 ( \ E F T P . A B O
0033260 R T ( C O N D \r
0033300
*
0033340 ( P U P T
0033360 R A C E F L G ( P R I N 1 "
0033400 [ a b o r t ] " P U P T R A C
0033420 E F I L E ) ) ) \r
0033440
*
0033500 ( S E L E C T C
0033520 ( P R O G 1 ( \ G E T P U P
0033540 W O R D I P U P 0 ) \r
0033560
*
0033640 006 006 ( * ;
0033660 " E F T P a b o r t c o d
0033700 e " ) 006 001 \r
0033720
*
0034000 ( R E L E A S E . P U
0034020 P I P U P ) ) \r
0034040
*
0034100 ( \ E A
0034120 B O R T . R E C E I V E R \r
0034140
*
0034220 006 006 ( *
0034240 ; \r 006 001
0034260
*
0034340 006 006 " i t d i d n ' t l
0034360 i k e t h e f i l e f o r
0034400 s o m e r e a s o n " ) 006 001
0034420 \r
0034440
*
0034500 ( S E T Q R
0034520 E S U L T ( C O N S ' R E J
0034540 E C T ( G E T P U P S T R I N
0034560 G \r
0034600
*
0034700 I P U P 2 ) ) ) \r
0034720
*
0035000 ( G O A B O R
0035020 T ) ) \r
0035040
*
0035100 ( \ E A B O R T .
0035120 B U S Y ( D I S M I S S \ E
0035140 F T P . L O N G T I M E O U T )
0035160 ) \r
0035200
*
0035240 ( \ E A B O R T . S Y
0035260 N C H \r
0035300
*
0035360 006 006 ( * ; " O u t o f
0035400 s y n c h - - s t a r t o v
0035420 e r " ) 006 001 ) \r
0035440
*
0035500 N I L ) \r
0035520
*
0035560 (
0035600 G O R E S T A R T ) ) \r
0035620
0035640 (
0035660 R E L E A S E . P U P I P U P
0035700 ] \r
0035720 ( C O N
0035740 D \r
0035760 (
0036000 ( A N D P R I N T O P T I O N
0036020 S ( E Q I D 0 ) ) 006
0036040 006 ( * ; \r 006 001
0036060
*
0036140 006 006 " W h a t ' s
0036160 g o i n g o n ? C h e c k
0036200 s t a t u s a g a i n " ) 006
0036220 001 \r
0036240
0036260 ( S E T Q C H E C K S T A T U
0036300 S T ) ) ) \r
0036320 006 002
0036340 f i n a l l y 006 001 ( C O N D \r
0036360
*
0036420 ( E N D I N G
0036440 006 006 (
0036460 * ; \r 006 001
0036500
0036520 006 006 " W e l
0036540 l , w e n e v e r g o t
0036560 t h e e n d a c k n o w l
0036600 e d g e d , b u t i t p r
0036620 o b a b l y w o r k e d " ) 006
0036640 001 \r
0036660
0036700 ( G O D
0036720 O N E ) ) \r
0036740
0036760 ( T ( p r i n
0037000 t o u t P R O M P T W I N D O
0037020 W . T A B 0 0 " [ N o r
0037040 e s p o n s e f r o m " H
0037060 O S T " ] " ) \r
0037100
0037120 ( G
0037140 O R E S T A R T ] \r
0037160 D O N E \r
0037200
*
0037260 006 006 (
0037300 * ; " s u c c e e d e d ,
0037320 f l u s h a b o r t c o d e
0037340 " ) 006 001 \r
0037360 ( F R P L A C
0037400 A A B O R T E R ' * ) \r
0037420
0037440 ( S E T Q R E S U L T (
0037460 006 002 f e t c h 006 001 F U L L N A
0037500 M E 006 002 o f 006 001 S T R E A M
0037520 ) ) \r
0037540 A B O R T \r
0037560 ( R E
0037600 T U R N R E S U L T ] ) \r \r (
0037620 006 004 \ A B O R T . E F T P 006 001 \r
0037640 [ L A M B D A ( S O C P
0037660 U P ) 006 006 006 001
0037700
*
0037740 006 006 ( * b v m % : " 3 -
0037760 N O V - 8 2 1 1 : 1 7 " ) 006 001
0040000 \r \r
0040020 006 006 ( * * A b o
0040040 r t s t h e E F T P t r a
0040060 n s f e r i n p r o g r e s
0040100 s t o S O C , u s i n g
0040120 P U P f o r a n o u t p u
0040140 t p u p ) 006 001 \r \r ( 006
0040160 002 r e p l a c e 006 001 P U P T Y
0040200 P E 006 002 o f 006 001 P U P 006 002
0040220 w i t h 006 001 \ E F T P . A B O
0040240 R T ) \r ( 006 002 r e p l a
0040260 c e 006 001 P U P L E N G T H 006
0040300 002 o f 006 001 P U P 006 002 w i t h
0040320 006 001 ( A D D 1 \ P U P O V L
0040340 E N ) ) \r ( \ P U T B A
0040360 S E ( 006 002 f e t c h 006 001 P U
0040400 P C O N T E N T S 006 002 o f 006 001
0040420 P U P ) \r
0040440 0 \ E A B O R T . S E N D E
0040460 R ) \r ( S E N D P U P
0040500 S O C P U P ] ) \r \r ( 006 004 \ S
0040520 T O R E P L I S T 006 001 \r [ L
0040540 A M B D A ( L S T B A S E
0040560 L I M I T ) 006 006 006 001
0040600
0040620 006 006 (
0040640 * b v m % : " 2 4 - A p r -
0040660 8 6 1 6 : 2 6 " ) 006 001 \r
0040700 ( L E T ( ( C N T 0 ) \r
0040720 P R E ) \r
0040740 ( \ P U T B A S E
0040760 B Y T E B A S E 0 ( C H A
0041000 R C O D E " ( " ) ) \r
0041020 ( 006 002 f o r 006 001 P A
0041040 I R 006 002 i n 006 001 L S T 006 002
0041060 d o 006 001 ( S E T Q P R E (
0041100 C H A R C O D E " ( " ) ) \r
0041120
0041140 [ 006 002 f
0041160 o r 006 001 X 006 002 i n 006 001 P A
0041200 I R \r
0041220
0041240 006 002 d o 006 001 ( \ P U T B
0041260 A S E B Y T E B A S E ( 006 002
0041300 a d d 006 001 C N T 1 ) \r
0041320
*
0041360 P R E ) \r
0041400
0041420 (
0041440 S E T Q P R E ( C H A R C O
0041460 D E S P A C E ) ) \r
0041500
0041520 ( 006
0041540 002 f o r 006 001 C H 006 002 i n p n
0041560 a m e 006 001 X 006 002 d o 006 001 (
0041600 S E L C H A R Q C H \r
0041620
*
0041700 ( ( % ( % )
0041720 % ' ) \r
0041740
*
0042020 006 006 ( * n e e d t o
0042040 q u o t e t h e s e ) 006 001 \r
0042060
*
0042160 ( \ P U T B A S E B Y T E B
0042200 A S E ( 006 002 a d d 006 001 C N T
0042220 1 ) \r
0042240
*
0042320 ( C H
0042340 A R C O D E % ' ) ) ) \r
0042360
*
0042440 N I L ) \r
0042460
*
0042540 ( C O N D \r
0042560
*
0042640 ( ( I L E Q C
0042660 H \ M A X T H I N C H A R ) \r
0042700
*
0042760 ( \ P U
0043000 T B A S E B Y T E B A S E (
0043020 006 002 a d d 006 001 C N T 1 ) \r
0043040
*
0043140 C H ) ) \r
0043160
*
0043240 ( T ( E R R O R \r
0043260
*
0043340 " A t t e m p t
0043360 t o s t o r e f a t s t r
0043400 i n g i n t h i n p l i s
0043420 t " \r
0043440
*
0043520 X ] \r
0043540
0043560 ( \ P U T B A
0043600 S E B Y T E B A S E ( 006 002 a
0043620 d d 006 001 C N T 1 ) \r
0043640
*
0043700 ( C H A R C O D E " ) " ) ) )
0043720 \r ( \ P U T B
0043740 A S E B Y T E B A S E ( 006 002
0043760 a d d 006 001 C N T 1 ) \r
0044000 ( C H
0044020 A R C O D E " ) " ) ) \r
0044040 ( A D D 1 C N T ]
0044060 ) \r \r ( 006 004 P U P . P R I N T E
0044100 R . S T A T U S 006 001 \r [ L A
0044120 M B D A ( P R I N T E R ) 006 006
0044140 006 001
0044160
0044200 006 006 ( *
0044220 b v m % : " 2 5 - A p r - 8
0044240 6 1 2 : 4 1 " ) 006 001 \r
0044260 \r
0044300 006 006 ( * * C h e c k s s
0044320 t a t u s o f p r i n t e r
0044340 , r e t u r n s a d o t t
0044360 e d p a i r \r 006 001
0044400 006 006 ( s t a t u s c o d
0044420 e . s t r i n g ) ) 006 001 \r \r
0044440 ( P R O G ( ( H O S T
0044460 P O R T ( B E S T P U P A D D
0044500 R E S S P R I N T E R P R O
0044520 M P T W I N D O W ) ) \r
0044540 ( S O C ( \ G E
0044560 T M I S C S O C K E T ) ) \r
0044600 ( O P U P (
0044620 A L L O C A T E . P U P ) ) \r
0044640 R E S U L T
0044660 I P U P ) \r
0044700 ( O R H O S T P O R T ( R
0044720 E T U R N ) ) \r
0044740 ( S E T U P P U P O P U P
0044760 H O S T P O R T \ P U P S O
0045000 C K E T . P R I N T E R S T A T
0045020 U S \ P T . P R I N T E R S T
0045040 A T U S N I L S O C ) \r
0045060 [ 006 002 t o 006 001
0045100 \ M A X E T H E R T R I E S 006
0045120 002 w h e n 006 001 ( S E T Q I P
0045140 U P ( E X C H A N G E P U P S
0045160 S O C O P U P N I L T )
0045200 ) \r 006
0045220 002 d o 006 001 ( S E L E C T C (
0045240 006 002 f e t c h 006 001 P U P T Y P
0045260 E 006 002 o f 006 001 I P U P ) \r
0045300
0045320 ( \ P T . S T A T U S R E
0045340 S P O N S E \r
0045360
0045400 ( R E T U R N ( P R O G 1
0045420 ( S E T Q R E S U L T ( C O
0045440 N S ( \ G E T B A S E ( 006 002
0045460 f e t c h 006 001 P U P C O N T E
0045500 N T S 006 002 o f 006 001 I P U P )
0045520 \r
0045540
*
0045620 0 ) \r
0045640
*
0045720 ( G E T P U P S T R I N G I
0045740 P U P 2 ) ) ) \r
0045760
*
0046020 ( R E L E A S E . P U P I P
0046040 U P ) ) ) ) \r
0046060 ( \ P T .
0046100 E R R O R ( A N D P U P T R
0046120 A C E F L G ( P R I N T E R R
0046140 O R P U P I P U P P U P T R
0046160 A C E F I L E ) ) \r
0046200
0046220 ( R E T U R N
0046240 ( R E L E A S E . P U P I P
0046260 U P ) ) ) \r
0046300 ( R E L E A
0046320 S E . P U P I P U P ) ) 006 002
0046340 f i n a l l y 006 001 ( C O N D \r
0046360
*
0046440 ( P U P T R A C E F L G
0046460 ( p r i n t o u t P U P T R A
0046500 C E F I L E \r
0046520
*
0046600 " P r i n
0046620 t e r s t a t u s r e q u e
0046640 s t t i m e d o u t " \r
0046660
*
0046760 T ] \r
0047000 ( R E L E A S E . P U P
0047020 O P U P ) \r
0047040 ( R E T U R N R E S U L T ] )
0047060 \r \r ( 006 004 P U P . P R I N T E R
0047100 . P R O P E R T I E S 006 001 \r
0047120 [ L A M B D A ( P R I N T E R
0047140 ) 006 006 006 001
0047160
0047200 006
0047220 006 ( * b v m % : " 2 5 - A p
0047240 r - 8 6 1 2 : 4 1 " ) 006 001 \r
0047260 \r
0047300 006 006 ( * * A s k s
0047320 p r i n t e r a b o u t i t
0047340 s c a p a b i l i t i e s ,
0047360 r e t u r n s p r o p e r t y
0047400 l i s t ) 006 001 \r \r ( P
0047420 R O G ( ( H O S T P O R T (
0047440 B E S T P U P A D D R E S S P
0047460 R I N T E R P R O M P T W I N
0047500 D O W ) ) \r
0047520 ( S O C ( \ G E T M I S C S
0047540 O C K E T ) ) \r
0047560 ( O P U P ( A L L O C A
0047600 T E . P U P ) ) \r
0047620 R E S U L T I P U P )
0047640 \r ( O R H
0047660 O S T P O R T ( R E T U R N )
0047700 ) \r ( S E T
0047720 U P P U P O P U P H O S T P
0047740 O R T \ P U P S O C K E T . P
0047760 R I N T E R S T A T U S \ P T
0050000 . P R I N T E R C A P A B I L I
0050020 T Y N I L S O C ) \r
0050040 [ 006 002 t o 006 001 \ M
0050060 A X E T H E R T R I E S 006 002 w
0050100 h e n 006 001 ( S E T Q I P U P
0050120 ( E X C H A N G E P U P S S
0050140 O C O P U P N I L T ) ) \r
0050160 006 002 d
0050200 o 006 001 ( S E L E C T C ( 006 002
0050220 f e t c h 006 001 P U P T Y P E
0050240 006 002 o f 006 001 I P U P ) \r
0050260
0050300 ( \ P T . C A P A B I L I T Y
0050320 R E S P O N S E \r
0050340
0050360 [ R E T U R N ( S E T Q
0050400 R E S U L T ( R E A D P L I
0050420 S T ( G E T P U P S T R E A M
0050440 I P U P ] ) \r
0050460 ( \ P T
0050500 . E R R O R ( A N D P U P T
0050520 R A C E F L G ( P R I N T E R
0050540 R O R P U P I P U P P U P T
0050560 R A C E F I L E ) ) \r
0050600
0050620 ( R E T U R
0050640 N ) ) \r
0050660 N I L ) 006 002 f
0050700 i n a l l y 006 001 ( C O N D \r
0050720
*
0050760 ( P U P T R A C E F L G
0051000 ( p r i n t o u t P U P T R A
0051020 C E F I L E \r
0051040
*
0051120 " P r i n t e r c a p a b i l
0051140 i t y r e q u e s t t i m e
0051160 d o u t " T ] \r
0051200 ( A N D I P U P ( R
0051220 E L E A S E . P U P I P U P )
0051240 ) \r ( R E T
0051260 U R N R E S U L T ] ) \r ) \r (
0051300 D E C L A R E % : D O N T C O
0051320 P Y \r \r ( R P A Q Q 006 002 E F
0051340 T P P U P T Y P E S 006 001 ( ( \
0051360 E F T P . D A T A 2 4 ) \r
0051400
0051420 ( \ E F T P . A C K 2 5
0051440 ) \r
0051460 ( \ E F T P . E N
0051500 D 2 6 ) \r
0051520 ( \ E F T
0051540 P . A B O R T 2 7 ) ) ) \r ( D
0051560 E C L A R E % : E V A L @ C O
0051600 M P I L E \r \r ( R P A Q Q 006
0051620 002 \ E F T P . D A T A 006 001 2 4
0051640 ) \r \r ( R P A Q Q 006 002 \ E F T
0051660 P . A C K 006 001 2 5 ) \r \r ( R P
0051700 A Q Q 006 002 \ E F T P . E N D 006
0051720 001 2 6 ) \r \r ( R P A Q Q 006 002
0051740 \ E F T P . A B O R T 006 001 2 7
0051760 ) \r \r ( C O N S T A N T S ( \
0052000 E F T P . D A T A 2 4 ) \r
0052020 ( \ E F T P . A C K
0052040 2 5 ) \r ( \ E F T
0052060 P . E N D 2 6 ) \r
0052100 ( \ E F T P . A B O R T 2 7
0052120 ) ) \r ) \r \r \r ( R P A Q Q 006 002
0052140 E F T P C O N S T A N T S 006 001
0052160 ( ( \ E A B O R T . S E N D E R
0052200 1 ) \r
0052220 ( \ E A B O
0052240 R T . R E C E I V E R 2 ) \r
0052260
0052300 ( \ E A B O R T . B U
0052320 S Y 3 ) \r
0052340 ( \ E A
0052360 B O R T . S Y N C H 4 ) \r
0052400
0052420 ( \ E A B O R T . L O N
0052440 G W A I T 6 ) \r
0052460 (
0052500 \ E A B O R T . M E D W A I T
0052520 7 ) \r
0052540 ( \ E A B O R
0052560 T . S U S P E N D 8 ) \r
0052600
0052620 ( \ P S . N O T S P O O L
0052640 I N G 1 ) \r
0052660 ( \ P
0052700 S . I D L E 2 ) \r
0052720
0052740 ( \ P S . B U S Y 3 ) \r
0052760
0053000 ( \ S P R U C E P W D 1
0053020 4 3 7 2 4 ) \r
0053040 ( \ S
0053060 P R U C E P W D 2 6 1 6 9 5 )
0053100 ) ) \r ( D E C L A R E % : E V
0053120 A L @ C O M P I L E \r \r ( R P
0053140 A Q Q 006 002 \ E A B O R T . S E
0053160 N D E R 006 001 1 ) \r \r ( R P A Q
0053200 Q 006 002 \ E A B O R T . R E C E
0053220 I V E R 006 001 2 ) \r \r ( R P A Q
0053240 Q 006 002 \ E A B O R T . B U S Y
0053260 006 001 3 ) \r \r ( R P A Q Q 006 002
0053300 \ E A B O R T . S Y N C H 006 001
0053320 4 ) \r \r ( R P A Q Q 006 002 \ E A
0053340 B O R T . L O N G W A I T 006 001
0053360 6 ) \r \r ( R P A Q Q 006 002 \ E A
0053400 B O R T . M E D W A I T 006 001 7
0053420 ) \r \r ( R P A Q Q 006 002 \ E A B
0053440 O R T . S U S P E N D 006 001 8 )
0053460 \r \r ( R P A Q Q 006 002 \ P S . N
0053500 O T S P O O L I N G 006 001 1 ) \r
0053520 \r ( R P A Q Q 006 002 \ P S . I D
0053540 L E 006 001 2 ) \r \r ( R P A Q Q
0053560 006 002 \ P S . B U S Y 006 001 3 ) \r
0053600 \r ( R P A Q Q 006 002 \ S P R U C
0053620 E P W D 1 006 001 4 3 7 2 4 ) \r \r
0053640 ( R P A Q Q 006 002 \ S P R U C E
0053660 P W D 2 006 001 6 1 6 9 5 ) \r \r (
0053700 C O N S T A N T S ( \ E A B O
0053720 R T . S E N D E R 1 ) \r
0053740 ( \ E A B O R T . R E C
0053760 E I V E R 2 ) \r
0054000 ( \ E A B O R T . B U S Y 3 )
0054020 \r ( \ E A B O R T
0054040 . S Y N C H 4 ) \r
0054060 ( \ E A B O R T . L O N G W A
0054100 I T 6 ) \r ( \ E
0054120 A B O R T . M E D W A I T 7 )
0054140 \r ( \ E A B O R T
0054160 . S U S P E N D 8 ) \r
0054200 ( \ P S . N O T S P O O L
0054220 I N G 1 ) \r ( \
0054240 P S . I D L E 2 ) \r
0054260 ( \ P S . B U S Y 3 ) \r
0054300 ( \ S P R U C E P W
0054320 D 1 4 3 7 2 4 ) \r
0054340 ( \ S P R U C E P W D 2 6 1
0054360 6 9 5 ) ) \r ) \r \r \r ( A D D T O
0054400 V A R 006 002 P U P T Y P E S 006 001
0054420 ( \ E F T P . D A T A 2 4 )
0054440 \r
0054460 ( \ E F T P . A C K 2
0054500 5 ) \r
0054520 ( \ E F T P . E N D
0054540 2 6 ) \r
0054560 ( \ E F T P . A
0054600 B O R T 2 7 ) ) \r \r ( D E C L
0054620 A R E % : D O E V A L @ C O M
0054640 P I L E D O N T C O P Y \r \r (
0054660 G L O B A L V A R S \ E F T P
0054700 . T I M E O U T \ E F T P . L
0054720 O N G T I M E O U T ) \r ) \r ) \r
0054740 \r ( R P A Q ? 006 002 \ E F T P .
0054760 T I M E O U T 006 001 5 0 0 0 ) \r
0055000 \r ( R P A Q ? 006 002 \ E F T P .
0055020 L O N G T I M E O U T 006 001 1 5
0055040 0 0 0 ) \r ( P U T P R O P S P
0055060 U P P R I N T C O P Y R I G H
0055100 T ( " X e r o x C o r p o r
0055120 a t i o n " 1 9 8 5 1 9 8 6
0055140 1 9 8 7 ) ) \r ( D E C L A R E
0055160 % : D O N T C O P Y \r ( F
0055200 I L E M A P ( N I L ( 8 6 3
0055220 2 1 1 8 2 ( E F T P 8 7 3
0055240 . 1 6 2 6 9 ) ( \ A B O R
0055260 T . E F T P 1 6 2 7 1 . 1
0055300 6 7 1 3 ) ( \ S T O R E P L I
0055320 S T 1 6 7 1 5 . 1 8 4 8 1
0055340 ) ( \r P U P . P R I N T E R .
0055360 S T A T U S 1 8 4 8 3 . 2
0055400 0 0 1 6 ) ( P U P . P R I N T
0055420 E R . P R O P E R T I E S 2 0
0055440 0 1 8 . 2 1 1 8 0 ) ) ) ) )
0055460 \r S T O P \r
0055466