$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>PUPPRINT.DCOM!1
0000000 ( F I L E C R E A T E D " 3 0
0000020 - J a n - 8 5 2 2 : 2 5 : 4 8
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 > S O U R C E S > P U P P R I
0000120 N T . ; 1 ) \r " 3 0 - J a n -
0000140 8 5 1 3 : 3 6 : 2 7 " t c o
0000160 m p l ' d i n " I N T E R L
0000200 I S P - D 3 0 - J a n - 8 5
0000220 . . . " d a t e d " 3 0 - J
0000240 a n - 8 5 1 3 : 5 1 : 2 5 " )
0000260 \r ( F I L E C R E A T E D " 3
0000300 0 - J a n - 8 5 2 2 : 2 5 : 2
0000320 7 " { E R I S } < L I S P C O
0000340 R E > S O U R C E S > P U P P R
0000360 I N T . ; 1 1 3 5 7 3 c h a
0000400 n g e s t o : ( V A R S \r
0000420 P U P P R I N T C O M S ) ) \r E
0000440 F T P A 0 0 0 1 D 1 \r ( N A M
0000460 E E R R O R S E T P 3 1 Q
0000500 I P U P P 3 0 Q C A P A
0000520 B I L I T I E S P 2 7 Q C
0000540 L O S E R P 2 6 Q A B O R
0000560 T E R P 2 5 Q P R E S S D
0000600 A T A P A G E # P 2 4 Q T
0000620 H I S P A G E L E N G T H P
0000640 2 3 Q L E N G T H P 2 2 Q
0000660 L A S T P A G E L E N G T H
0000700 P 2 1 Q L A S T P A G E #
0000720 P 2 0 Q S O C P 1 7 Q
0000740 I D P 1 6 Q C U R P A G E
0000760 # P 1 5 Q N E W S T A T U
0001000 S P 1 4 Q S T A T U S P
0001020 1 3 Q H O S T N A M E P
0001040 1 2 Q N C P 1 1 Q N A M
0001060 E S T R I N G P 1 0 Q E N
0001100 D I N G P 7 R E S U L T
0001120 P 6 D A T A P 5 S T R
0001140 E A M P 4 # S I D E S P
0001160 3 O P U P P 2 C H E C
0001200 K S T A T U S P 1 T I M E
0001220 O U T P 0 H O S T P O R T
0001240 F 3 6 Q R E S E T V A R S
0001260 L S T F 3 7 Q P R I N T O
0001300 P T I O N S F 4 0 Q H O S
0001320 T F 4 1 Q F I L E F 4
0001340 2 Q R E S E T Y ) 004 034 036 005 002
0001360 \0 W @ g \0 \0 \n \0 \0 ` \0 \0 W > \b \0
0001400 \0 W > 003 g \0 \0 \n \0 \0 021 365 023 021 240 035
0001420 W B d 004 ` \0 \0 360 245 g \0 \0 \n \0 \0 275
0001440 g \0 \0 M h 032 032 _ . h h 032 032 W < 032
0001460 c < 277 M g \0 \0 \n \0 \0 _ & n 001 377 345
0001500 _ $ 277 O & 343 342 _ " 277 W > 262 R O $
0001520 j 360 251 o \0 \0 \0 W B \n \0 \0 277 O " k
0001540 331 _ * 277 h d i \v \0 \0 _ 022 \t \0 \0 _
0001560 024 l 037 361 231 O 022 k l 037 \v \0 \0 260 036 l
0001600 $ O 024 h i \n \0 \0 _ 026 \t \0 \0 330 361 235
0001620 O 022 o \0 \0 \0 O 026 \v \0 \0 _ 022 277 g \0
0001640 \0 \b \0 \0 _ h 032 032 h h 032 032 W < 032
0001660 c < 277 K H l 020 l 030 m 377 O i \r \a
0001700 \0 \0 277 g \0 \0 O K h 032 032 032 _ , h
0001720 h 032 032 W < 032 c < 277 O 034 236 ` \0 \0 232
0001740 o \0 \0 \0 ` \0 \0 \n \0 \0 277 j _ 036 277 O
0001760 034 j 360 263 ) M \t \0 \0 j 360 263 035 M \t \0
0002000 \0 225 M j \n \0 \0 216 O . 002 M \t \0 \0 g
0002020 \0 \0 \n \0 \0 ] 030 277 j _ 034 277 K l 030 317
0002040 037 207 277 L d 005 001 241 005 002 242 261 \0 354 O 0
0002060 263 o H \t \0 \0 _ 032 265 B O 030 001 l 002 360
0002100 262 V h 272 H \t \0 \0 _ 0 263 U j d ` \0
0002120 \0 \v \0 \0 277 o \0 \0 \0 ` \0 \0 \n \0 \0 277
0002140 W @ ` \0 \0 \n \0 \0 277 o \0 \0 \0 ` \0 \0
0002160 \n \0 \0 277 h _ 030 277 260 266 O 030 364 263 275 j
0002200 d ` \0 \0 \v \0 \0 277 O 032 _ 030 002 ` \0 \0
0002220 \n \0 \0 277 260 246 ` \0 \0 \t \0 \0 277 260 225 g
0002240 \0 \0 O 0 \n \0 \0 002 001 \t \0 \0 l T 360 262
0002260 S L k 360 263 024 g \0 \0 O 0 \n \0 \0 002 001
0002300 \t \0 \0 l T 360 262 < K l ( 320 ^ n 252 314
0002320 315 \0 277 N n 360 377 315 001 277 K g \0 \0 L k
0002340 360 223 g \0 \0 202 g \0 \0 h 032 032 h 032 N l
0002360 002 320 \n \0 \0 l 032 330 315 036 277 m 377 _ 034 261
0002400 \0 275 W @ i \n \0 \0 277 o \0 \0 \0 i \n \0
0002420 \0 277 i \t \0 \0 277 O 034 O " 360 262 030 O $
0002440 j 360 224 i _ 020 260 & K O $ _ ( l 026 330
0002460 315 036 260 027 O " O 034 361 233 K n 002 \0 _ (
0002500 l 026 330 315 036 202 i _ 020 277 O 020 235 K l 032
0002520 317 037 207 277 K l 026 315 036 260 c K l 036 320 l
0002540 002 \n \0 \0 O 036 360 263 V M K l ( 320 276 _
0002560 6 006 \0 \0 311 006 006 \0 \0 311 6 _ 4 277 O 6
0002600 N j O ( l 004 O 4 016 277 O 034 O * 360 262
0002620 . N k 315 \b 277 N W > d d 005 001 241 005 002
0002640 256 g \0 \0 \n \0 \0 d 005 001 241 005 002 265 003 k
0002660 315 \t 277 N l 232 320 O 022 \n \0 \0 277 K l 036
0002700 320 l 002 O 036 \v \0 \0 277 ` \0 \0 _ 8 277 k
0002720 _ : O 8 363 222 261 \0 362 J 262 9 H \t \0 \0
0002740 _ 032 d 262 / O 030 364 263 ) j d ` \0 \0 \v
0002760 \0 \0 277 O 032 _ 030 002 ` \0 \0 \n \0 \0 277 O
0003000 030 001 d l 003 360 243 d k 360 224 277 ` \0 \0 Y
0003020 277 h 272 O K h d I \r 005 \0 \0 _ 2 265
0003040 022 W > 226 O 036 j 360 221 i 272 O : k 324 260
0003060 241 312 037 207 d l 031 360 262 A 277 O 2 l 036 320
0003100 l 002 \n \0 \0 O 2 \t \0 \0 277 O 036 360 262 323
0003120 O 036 k 324 _ 036 277 O 034 k 324 _ 034 277 O 020
0003140 242 261 376 266 K l 036 320 l 002 O 036 \v \0 \0 277
0003160 O K \n \0 \0 277 260 U l 033 360 262 C ` \0
0003200 \0 232 o \0 \0 \0 ` \0 \0 \n \0 \0 277 O 2 310
0003220 ( O 2 \t \0 \0 277 d l 002 360 235 277 g \0 \0
0003240 O 2 l 002 \n \0 \0 032 260 4 d l 003 360 231 277
0003260 ` \0 \0 \t \0 \0 261 375 " l 004 360 261 375 034 O
0003300 2 \t \0 \0 277 261 377 \ O 020 262 030 O , g \0
0003320 \0 030 277 M 006 \0 \0 311 004 265 003 M 022 022 c D
0003340 i 020 j d ` \0 \0 \v \0 \0 277 o \0 \0 \0 `
0003360 \0 \0 \n \0 \0 277 W @ ` \0 \0 \n \0 \0 277 o
0003400 \0 \0 \0 ` \0 \0 \n \0 \0 261 374 317 \0 ( 2 0
0003420 2 7 Q P R I N 1 2 0 1 4 Q
0003440 P R I N 1 2 0 0 3 Q P R I N
0003460 1 1 7 7 0 Q T A B 1 7 2 2
0003500 Q R E L E A S E . P U P 1 7
0003520 0 4 Q D I S M I S S 1 6 6 5
0003540 Q G E T P U P S T R I N G 1
0003560 6 4 4 Q R E L E A S E . P U P
0003600 1 6 3 2 Q P R I N 1 1 6 0
0003620 4 Q S E N D P U P 1 5 7 5 Q
0003640 \ P U T B A S E F I X P 1 5
0003660 3 0 Q R E L E A S E . P U P
0003700 1 5 2 3 Q \ G E T B A S E F I
0003720 X P 1 4 5 3 Q E X C H A N G
0003740 E P U P S 1 4 1 4 Q P R I N
0003760 1 1 4 0 0 Q T A B 1 3 5 6
0004000 Q P U P . P R I N T E R . S T
0004020 A T U S 1 3 2 6 Q \ P U T B
0004040 A S E F I X P 1 3 1 2 Q S e
0004060 t B c p l S t r i n g 1 2 6 5
0004100 Q L I S T G E T 1 1 6 2 Q
0004120 \ G E T B A S E F I X P 1 0 4
0004140 4 Q T E R P R I 1 0 3 7 Q
0004160 P R I N 1 1 0 2 6 Q P R I N
0004200 1 1 0 0 3 Q \ S T O R E P L
0004220 I S T 7 2 1 Q C H C O N 1
0004240 7 1 4 Q A S S O C 6 7 2 Q
0004260 C H C O N 1 6 6 5 Q A S S O
0004300 C 6 5 2 Q B L O C K 6 4 1
0004320 Q P R I N 1 6 2 5 Q T A B
0004340 6 0 1 Q P R I N 1 5 6 6 Q
0004360 P R I N 1 5 5 5 Q P R I N
0004400 1 5 4 2 Q T A B 5 2 6 Q
0004420 P U P . P R I N T E R . P R O P
0004440 E R T I E S 5 0 4 Q P U P .
0004460 P R I N T E R . S T A T U S 4
0004500 4 3 Q O P E N S T R E A M 4
0004520 3 5 Q C L O S E F 4 2 5 Q
0004540 S E T F I L E P T R 4 1 7 Q
0004560 R A N D A C C E S S P 4 0 7 Q
0004600 G E T F I L E P T R 3 7 0 Q
0004620 P R I N 1 3 2 0 Q S E T U
0004640 P P U P 2 6 2 Q O P E N P U
0004660 P S O C K E T 2 5 1 Q C O N
0004700 C A T 2 3 3 Q N C H A R S
0004720 2 2 6 Q E T H E R H O S T N A
0004740 M E 2 1 3 Q S U B S T R I N
0004760 G 1 7 5 Q N C H A R S 1 7
0005000 0 Q U S E R N A M E 1 5 2 Q
0005020 H E L P 1 1 0 Q G E T F I
0005040 L E I N F O 5 5 Q O P E N S
0005060 T R E A M 3 0 Q L I S T G E
0005100 T 1 7 Q A L L O C A T E . P
0005120 U P 7 B E S T P U P A D D R
0005140 E S S ) \r ( 2 0 2 4 Q P R O M
0005160 P T W I N D O W 2 0 1 1 Q P
0005200 R O M P T W I N D O W 2 0 0 0
0005220 Q P R O M P T W I N D O W 1
0005240 7 6 5 Q P R O M P T W I N D O
0005260 W 1 7 4 5 Q S T R E A M 1
0005300 7 3 7 Q * 1 7 0 1 Q \ E F
0005320 T P . L O N G T I M E O U T 1
0005340 6 5 6 Q R E J E C T 1 6 2 7
0005360 Q P U P T R A C E F I L E 1
0005400 6 1 7 Q P U P T R A C E F L G
0005420 1 4 3 5 Q \ E F T P . L O N
0005440 G T I M E O U T 1 4 1 1 Q P
0005460 R O M P T W I N D O W 1 3 7 5
0005500 Q P R O M P T W I N D O W 1
0005520 3 3 2 Q \ M A X E T H E R T R
0005540 I E S 1 2 6 2 Q # C O P I E
0005560 S 1 2 0 7 Q F D E V 1 2 0
0005600 2 Q S T R E A M 7 6 7 Q T
0005620 R U E 7 6 3 Q F A L S E 7
0005640 5 4 Q D U P L E X 7 0 7 Q
0005660 D U P L E X 6 6 0 Q P R I N
0005700 T - I N S T A N C E 6 4 7 Q
0005720 \ E F T P . T I M E O U T 6 3
0005740 6 Q P R O M P T W I N D O W
0005760 6 2 2 Q P R O M P T W I N D O
0006000 W 5 7 6 Q P R O M P T W I N
0006020 D O W 5 6 3 Q P R O M P T W
0006040 I N D O W 5 5 2 Q P R O M P
0006060 T W I N D O W 5 3 7 Q P R O
0006100 M P T W I N D O W 4 4 0 Q I
0006120 N P U T 3 6 5 Q P U P T R A
0006140 C E F I L E 3 5 5 Q P U P T
0006160 R A C E F L G 3 2 4 Q \ A B
0006200 O R T . E F T P 2 5 7 Q C L
0006220 O S E P U P S O C K E T 1 0 5
0006240 Q L E N G T H 6 1 Q C L O
0006260 S E F 5 2 Q I N P U T 4 5
0006300 Q 004 003 S T R E A M T Y P E #
0006320 2 5 Q # S I D E S 1 2 Q \
0006340 E F T P . T I M E O U T 4 E
0006360 R R O R ) \r ( 2 0 2 1 Q " ]
0006400 " 1 7 7 5 Q " [ N o r e s
0006420 p o n s e f r o m " 1 6 2
0006440 4 Q " [ a b o r t ] " 1 0 3
0006460 3 Q " d o e s n o t s u
0006500 p p o r t # s i d e s s p e
0006520 c i f i c a t i o n " 5 7 3 Q
0006540 " ] " 5 4 7 Q " [ N o r
0006560 e s p o n s e f r o m " 3
0006600 6 2 Q " ( r e s t a r t i n
0006620 g ) " 2 4 4 Q " o n "
0006640 1 4 5 Q " P r e s s f i l e
0006660 w i t h n o n - i n t e g r
0006700 a l n u m b e r o f p a g
0006720 e s ? " ) \r E F T P D 1 \r ( P
0006740 2 R E S E T Z P 1 R E
0006760 S E T Y P 0 L I S P X H I
0007000 S T I 2 P R I N T O P T I
0007020 O N S I 1 F I L E I 0
0007040 H O S T F 3 L I S P X H
0007060 I S T F 4 R E S E T V A R
0007100 S L S T ) \0 " 003 002 \0 003 S 021 ! 002
0007120 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0007140 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3
0007160 5 Q E R R O R ! 3 0 Q R E
0007200 S E T R E S T O R E 1 6 Q E
0007220 F T P A 0 0 0 1 ) \r ( 2 4 Q E
0007240 R R O R 1 3 Q I N T E R N A
0007260 L ) \r ( 1 0 Q ( E F T P A 0
0007300 0 0 1 ) ) \r \ A B O R T . E F T
0007320 P D 1 \r ( I 1 P U P I
0007340 0 S O C ) \0 026 \0 \0 \0 002 A l 033
0007360 317 037 207 A l 027 315 036 A k 315 ( @ A \n \0
0007400 \0 020 \0 ( 2 3 Q S E N D P U P )
0007420 \r N I L \r ( ) \r P U P . P R I N
0007440 T E R . S T A T U S D 1 \r ( P
0007460 4 I P U P P 3 R E S U
0007500 L T P 2 O P U P P 1
0007520 S O C P 0 H O S T P O R T
0007540 I 0 P R I N T E R ) \0 220
0007560 \a \0 \0 001 @ ` \0 \0 \n \0 \0 \b \0 \0 \b \0
0007600 \0 021 C 006 H 241 h 020 J H l 021 l 200 h I
0007620 \r 006 \0 \0 ` \0 \0 275 k ^ M 363 263 J I J
0007640 h i \f \0 \0 \ 265 004 260 9 312 037 207 d l 201
0007660 360 262 024 277 L 310 ( L l 002 \n \0 \0 032 273 L
0007700 \t \0 \0 260 9 l 004 360 262 024 ` \0 \0 227 L `
0007720 \0 \0 \n \0 \0 277 L \t \0 \0 260 " L \t \0 \0
0007740 277 N k 324 260 265 ` \0 \0 262 024 o \0 \0 \0 `
0007760 \0 \0 \n \0 \0 277 ` \0 \0 \t \0 \0 277 J \t \0
0010000 \0 K 020 \0 ( 2 1 4 Q R E L E A S
0010020 E . P U P 2 0 7 Q T E R P R
0010040 I 2 0 0 Q P R I N 1 1 5 3
0010060 Q R E L E A S E . P U P 1 4
0010100 5 Q R E L E A S E . P U P 1
0010120 4 0 Q P R I N T E R R O R P U
0010140 P 1 1 6 Q R E L E A S E . P
0010160 U P 1 1 0 Q G E T P U P S T
0010200 R I N G 6 0 Q E X C H A N G
0010220 E P U P S 3 7 Q S E T U P P
0010240 U P 1 4 Q A L L O C A T E .
0010260 P U P 1 1 Q \ G E T M I S C
0010300 S O C K E T 6 B E S T P U P
0010320 A D D R E S S ) \r ( 2 0 4 Q P
0010340 U P T R A C E F I L E 1 7 5 Q
0010360 P U P T R A C E F I L E 1 6
0010400 4 Q P U P T R A C E F L G 1
0010420 3 5 Q P U P T R A C E F I L E
0010440 1 3 0 Q P U P T R A C E F L
0010460 G 4 2 Q \ M A X E T H E R T
0010500 R I E S 3 P R O M P T W I N
0010520 D O W ) \r ( 1 7 2 Q " P r i
0010540 n t e r s t a t u s r e q u
0010560 e s t t i m e d o u t " ) \r
0010600 P U P . P R I N T E R . P R O P
0010620 E R T I E S D 1 \r ( P 4 I
0010640 P U P P 3 R E S U L T P
0010660 2 O P U P P 1 S O C
0010700 P 0 H O S T P O R T I 0
0010720 P R I N T E R ) \0 177 \a \0 \0 001
0010740 @ ` \0 \0 \n \0 \0 \b \0 \0 \b \0 \0 021 C 006
0010760 H 241 h 020 J H l 021 l 202 h I \r 006 \0 \0
0011000 ` \0 \0 275 k ^ M 363 263 7 I J h i \f \0
0011020 \0 \ 265 \a N k 324 260 356 312 037 207 d l 203 360
0011040 232 277 L \t \0 \0 \t \0 \0 [ 260 + l 004 360 262
0011060 345 ` \0 \0 262 " L ` \0 \0 \n \0 \0 260 030 `
0011100 \0 \0 262 024 o \0 \0 \0 ` \0 \0 \n \0 \0 277 `
0011120 \0 \0 \t \0 \0 277 L 223 L \t \0 \0 K 020 \0 (
0011140 1 7 3 Q R E L E A S E . P U P
0011160 1 6 4 Q T E R P R I 1 5 5
0011200 Q P R I N 1 1 3 4 Q P R I
0011220 N T E R R O R P U P 1 1 0 Q
0011240 R E A D P L I S T 1 0 5 Q G
0011260 E T P U P S T R E A M 6 0 Q
0011300 E X C H A N G E P U P S 3 7 Q
0011320 S E T U P P U P 1 4 Q A L
0011340 L O C A T E . P U P 1 1 Q \
0011360 G E T M I S C S O C K E T 6
0011400 B E S T P U P A D D R E S S ) \r
0011420 ( 1 6 1 Q P U P T R A C E F I
0011440 L E 1 5 2 Q P U P T R A C E
0011460 F I L E 1 4 1 Q P U P T R A
0011500 C E F L G 1 3 1 Q P U P T R
0011520 A C E F I L E 1 2 3 Q P U P
0011540 T R A C E F L G 4 2 Q \ M A
0011560 X E T H E R T R I E S 3 P R
0011600 O M P T W I N D O W ) \r ( 1 4
0011620 7 Q " P r i n t e r c a p a
0011640 b i l i t y r e q u e s t t
0011660 i m e d o u t " ) \r ( P R E T
0011700 T Y C O M P R I N T P U P P R
0011720 I N T C O M S ) \r ( R P A Q Q
0011740 P U P P R I N T C O M S ( ( F
0011760 N S E F T P \ A B O R T . E
0012000 F T P P U P . P R I N T E R .
0012020 S T A T U S P U P . P R I N T
0012040 E R . P R O P E R T I E S ) (
0012060 D E C L A R E : \r D O N T C O
0012100 P Y ( C O N S T A N T S *
0012120 E F T P P U P T Y P E S ) ( C
0012140 O N S T A N T S * E F T P C
0012160 O N S T A N T S ) ( A D D V A
0012200 R S * ( L I S T ( C O N S
0012220 ( Q U O T E P U P T Y P E S
0012240 \r ) E F T P P U P T Y P E S )
0012260 ) ) ( G L O B A L V A R S \
0012300 E F T P . T I M E O U T \ E F
0012320 T P . L O N G T I M E O U T ) )
0012340 ( I N I T V A R S ( \ E F T
0012360 P . T I M E O U T 5 0 0 0 )
0012400 ( \r \ E F T P . L O N G T I M E
0012420 O U T 1 5 0 0 0 ) ) ) ) \r ( R
0012440 P A Q ? \ E F T P . T I M E O
0012460 U T 5 0 0 0 ) \r ( R P A Q ?
0012500 \ E F T P . L O N G T I M E O U
0012520 T 1 5 0 0 0 ) \r ( P U T P R O
0012540 P S P U P P R I N T C O P Y
0012560 R I G H T ( " X e r o x C o
0012600 r p o r a t i o n " 1 9 8 5 )
0012620 ) \r N I L \r
0012626