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