$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TCPCHAT!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 0 - A p r - 8
0000140 7 1 3 : 4 3 : 2 3 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > T C P C H A T . ; 1
0000220 7 006 001 1 7 5 2 0 \r \r
0000240 c h a n g e s t o % :
0000260 ( F N S T C P C H A T . T E
0000300 R M I N A L . T Y P E T C P C
0000320 H A T . O P T I O N . O U T P U
0000340 T T C P C H A T . O P E N \r
0000360
0000400 T C P C H A T
0000420 . O P T I O N . I N P U T ) \r
0000440
0000460 ( V A R S T E L N E T .
0000500 C O M M A N D S T E L N E T .
0000520 O P T I O N S ) \r
0000540 ( R E
0000560 C O R D S T E L N E T . O P T
0000600 I O N ) \r
0000620 ( F I L E S
0000640 C H A T D E C L S ) \r \r
0000660 p r e v i o u s d a t e %
0000700 : " 2 - A p r - 8 7 1 1 :
0000720 5 7 : 4 8 " { E R I S } < L I
0000740 S P C O R E > L I B R A R Y > T
0000760 C P C H A T . ; 1 5 ) \r \r \r ( *
0001000 " \r C o p y r i g h t ( c )
0001020 1 9 8 5 , 1 9 8 6 , 1 9 8
0001040 7 b y X e r o x C o r p o
0001060 r a t i o n . A l l r i g
0001100 h t s r e s e r v e d . \r " )
0001120 \r \r ( P R E T T Y C O M P R I N
0001140 T T C P C H A T C O M S ) \r \r
0001160 ( R P A Q Q 006 002 T C P C H A T
0001200 C O M S 006 001 ( ( F N S T C P
0001220 C H A T . B I N T C P C H A T
0001240 . H O S T . F I L T E R T C P
0001260 C H A T . N E G O T I A T E T
0001300 C P C H A T . O P E N \r
0001320
0001340 T C P C H A T . O P
0001360 T I O N . C O M M A N D T C P
0001400 C H A T . O P T I O N . I N P U
0001420 T T C P C H A T . O P T I O N
0001440 . O U T P U T \r
0001460
0001500 T C P C H A T . O P T I O N
0001520 . T R A C E T C P C H A T . T
0001540 E R M I N A L . T Y P E ) \r
0001560
0001600 ( C O M S ( C O N S T A N
0001620 T S * T E L N E T . C O M M
0001640 A N D S ) \r
0001660
0001700 ( C O N S T A N T S * T E L
0001720 N E T . M A R K S ) ) \r
0001740
0001760 ( V A R S T C P C H A T . T E
0002000 L N E T . T T Y . T Y P E S T
0002020 E L N E T . O P T I O N S ) \r
0002040
0002060 ( G L O B A L V A R S T
0002100 C P C H A T . T E L N E T . T T
0002120 Y . T Y P E S T E L N E T . O
0002140 P T I O N S T E L N E T . M A
0002160 R K S ) \r
0002200 ( A D D V A R
0002220 S ( C H A T . P R O T O C O L
0002240 T Y P E S ( T C P . T C P
0002260 C H A T . H O S T . F I L T E R
0002300 ) ) ) \r
0002320 ( I N I T V A R
0002340 S ( T C P C H A T . T R A C E
0002360 F L G ) \r
0002400
0002420 ( T C P C H A T . T R A C E F I
0002440 L E ) ) \r
0002460 ( R E C O R D
0002500 S T E L N E T . O P T I O N
0002520 T E L N E T . O P T I O N S T A
0002540 T E ) \r
0002560 ( F I L E S (
0002600 S Y S L O A D ) \r
0002620
0002640 T C P C H A T ) \r
0002660
0002700 ( D E C L A R E % : E V A
0002720 L @ C O M P I L E D O N T C O
0002740 P Y ( F I L E S C H A T D E
0002760 C L S ) ) ) ) \r ( D E F I N E Q
0003000 \r \r ( 006 004 T C P C H A T . B I N
0003020 006 001 \r [ L A M B D A ( S T
0003040 R E A M ) 006 006 006 001
0003060
*
0003120 006 006 ( * e j s % : "
0003140 2 2 - A p r - 8 5 1 6 : 3 1 "
0003160 ) 006 001 \r ( 006 002 b i n d 006
0003200 001 C H A R 006 002 w h i l e 006 001
0003220 ( E Q ( S E T Q C H A R
0003240 ( \ B U F F E R E D . B I N S
0003260 T R E A M ) ) \r
0003300
0003320 T E L N E T . I A C ) 006 002 d
0003340 o 006 001 ( 006 002 T C P C H A T . N
0003360 E G O T I A T E 006 001 S T R E A
0003400 M ) 006 002 f i n a l l y 006 001 (
0003420 R E T U R N C H A R ] ) \r \r (
0003440 006 004 T C P C H A T . H O S T . F
0003460 I L T E R 006 001 \r [ L A M B D
0003500 A ( H O S T ) 006 006 006 001
0003520
*
0003560 006 006 ( * e j
0003600 s % : " 3 0 - M a r - 8 6 1
0003620 6 : 0 5 " ) 006 001 \r ( C O
0003640 N D \r ( ( A N D
0003660 \ I P F L G ( D O D I P . H O
0003700 S T P H O S T ) ) \r
0003720 ( L I S T ( \ C A N O N
0003740 I C A L . H O S T N A M E H O
0003760 S T ) \r
0004000 ( F U N C T I O N T C P C
0004020 H A T . O P E N ] ) \r \r ( 006 004 T
0004040 C P C H A T . N E G O T I A T E
0004060 006 001 \r [ L A M B D A ( S T
0004100 R E A M ) 006 006 006 001
0004120
*
0004160 006 006 ( * e j s % : "
0004200 2 2 - A p r - 8 5 1 5 : 5 5 "
0004220 ) 006 001 \r ( 006 002 T C P C H
0004240 A T . O P T I O N . I N P U T 006
0004260 001 ( T C P . O T H E R . S T R
0004300 E A M S T R E A M ) \r
0004320 ( \ B U F F E R E
0004340 D . B I N S T R E A M ) \r
0004360 ( \ B U F F E
0004400 R E D . B I N S T R E A M ] )
0004420 \r \r ( 006 004 T C P C H A T . O P E
0004440 N 006 001 \r [ L A M B D A ( H
0004460 O S T ) 006 006 006 001
0004500
*
0004540 006 006 ( * ; " E d i
0004560 t e d 1 7 - A p r - 8 7 1 0
0004600 : 0 6 b y j r b : " ) 006 001 \r
0004620 ( P R O G ( ( S T R E
0004640 A M ( T C P . O P E N ( D O
0004660 D I P . H O S T P H O S T ) \r
0004700
0004720 \ T C P . T
0004740 E L N E T . P O R T N I L '
0004760 A C T I V E ' I N P U T ) ) \r
0005000 [ O S T Y
0005020 P E ( O R ( A N D ( G E T
0005040 H A S H ( U - C A S E H O S
0005060 T ) \r
0005100
0005120 \ I P . H O S T N A
0005140 M E S ) \r
0005160
0005200 ( 006 002 f e t c h 006 001 ( H O S
0005220 T S . T X T . E N T R Y H T E
0005240 . O S . T Y P E ) 006 002 o f 006 001
0005260 ( G E T H A S H ( U - C A S
0005300 E H O S T ) \r
0005320
*
0005420 \ I P . H O S T N A M E S
0005440 ) ) ) \r
0005460 ( G E T H
0005500 O S T I N F O H O S T ' O S
0005520 T Y P E ] \r
0005540 O U T P U T S T R E A M ) \r
0005560 ( C O N D \r
0005600 ( S T R
0005620 E A M ( 006 002 r e p l a c e 006 001
0005640 ( S T R E A M B I N A B L E
0005660 ) 006 002 o f 006 001 S T R E A M
0005700 006 002 w i t h 006 001 N I L ) \r
0005720
*
0006000 006 006 ( *
0006020 ; " C a n ' t r u n m i c
0006040 r o c o d e d " ) 006 001 \r
0006060
0006100 ( 006 002 r e p l a c e 006 001 ( S T
0006120 R E A M S T R M B I N F N )
0006140 006 002 o f 006 001 S T R E A M 006 002
0006160 w i t h 006 001 ( F U N C T I O N
0006200 T C P C H A T . B I N ) ) \r
0006220
0006240 ( S T R E A M P R O P S
0006260 T R E A M ' S E T D I S P L A
0006300 Y T Y P E ( F U N C T I O N
0006320 N I L L ) ) \r
0006340 [ C O N D
0006360 \r
0006400 ( ( E Q O S T
0006420 Y P E ' I N T E R L I S P ) \r
0006440
0006460 ( R E T U R N
0006500 ( C O N S S T R E A M ( T C
0006520 P . O T H E R . S T R E A M S
0006540 T R E A M ] \r
0006560
*
0006640 006 006 ( * ; \r 006 001
0006660
0006700 006 006 " ( S T R E A M
0006720 P R O P S T R E A M ( Q U O
0006740 T E S E T D I S P L A Y T Y P
0006760 E ) ( F U N C T I O N T C P
0007000 C H A T . T E R M I N A L . T Y
0007020 P E ) ) " ) 006 001 \r
0007040 ( S E
0007060 T Q O U T P U T S T R E A M
0007100 ( T C P . O T H E R . S T R E A
0007120 M S T R E A M ) ) \r
0007140 [
0007160 S T R E A M P R O P O U T P U
0007200 T S T R E A M ' O P T I O N S
0007220 T A T E S ( 006 002 f o r 006 001 O
0007240 P T I O N 006 002 i n 006 001 T E L
0007260 N E T . O P T I O N S \r
0007300
*
0007360 006 002 c o l l
0007400 e c t 006 001 ( 006 002 c r e a t e 006
0007420 001 T E L N E T . O P T I O N S
0007440 T A T E \r
0007460
*
0007560 O P T I O N _ \r
0007600
*
0007700 ( 006 002 f e t c h
0007720 006 001 ( T E L N E T . O P T I O
0007740 N \r
0007760
*
0010060 O P T I O N ) \r
0010100
*
0010200 006
0010220 002 o f 006 001 O P T I O N ] \r
0010240
0010260 ( 006 002 T C P C H A T . O P T
0010300 I O N . C O M M A N D 006 001 O U
0010320 T P U T S T R E A M T E L N E
0010340 T . D O T E L N E T . E C H O
0010360 ) \r
0010400 ( 006 002 T C P C H A T
0010420 . O P T I O N . C O M M A N D 006
0010440 001 O U T P U T S T R E A M T
0010460 E L N E T . D O T E L N E T .
0010500 S U P P R E S S . G O A H E A D
0010520 ) \r
0010540 ( 006 002 T C P C H A T
0010560 . O P T I O N . C O M M A N D 006
0010600 001 O U T P U T S T R E A M T
0010620 E L N E T . W I L L T E L N E
0010640 T . S U P P R E S S . G O A H E
0010660 A D ) \r
0010700 ( C O N D \r
0010720
0010740 ( ( N E Q O S T Y P
0010760 E ' U N I X ) \r
0011000
0011020 ( 006 002 T C P C H A T . O P T I
0011040 O N . C O M M A N D 006 001 O U T
0011060 P U T S T R E A M T E L N E T
0011100 . D O T E L N E T . B I N A R
0011120 Y ) \r
0011140 ( 006 002 T C
0011160 P C H A T . O P T I O N . C O M
0011200 M A N D 006 001 O U T P U T S T R
0011220 E A M T E L N E T . W I L L
0011240 T E L N E T . B I N A R Y ) ) )
0011260 \r
0011300 ( R E T U R N ( C O
0011320 N S S T R E A M O U T P U T
0011340 S T R E A M ] ) \r \r ( 006 004 T C P
0011360 C H A T . O P T I O N . C O M M
0011400 A N D 006 001 \r [ L A M B D A
0011420 ( O U T P U T S T R E A M C O
0011440 M M A N D O P T I O N T R A
0011460 C E C A P T I O N ) 006 006 006 001
0011500 006 006 ( * e j s %
0011520 : " 1 - J a n - 0 1 1 1 :
0011540 4 3 " ) 006 001 \r ( L E T
0011560 ( [ O P T I O N S T A T E ( F
0011600 A S S O C O P T I O N ( S T
0011620 R E A M P R O P O U T P U T S
0011640 T R E A M ' O P T I O N S T A
0011660 T E S ] \r G
0011700 O . A H E A D . W I T H . C O M
0011720 M A N D ) \r (
0011740 S E L E C T C C O M M A N D \r
0011760 ( T E
0012000 L N E T . D O [ C O N D \r
0012020
0012040 ( ( N E Q (
0012060 006 002 f e t c h 006 001 ( T E L N E
0012100 T . O P T I O N S T A T E D O
0012120 I N G ) 006 002 o f 006 001 O P T I
0012140 O N S T A T E ) \r
0012160
0012200 ' Y E S ) \r
0012220
0012240 ( S E T
0012260 Q G O . A H E A D . W I T H .
0012300 C O M M A N D T ) \r
0012320
0012340 ( 006 002 r e p l a c
0012360 e 006 001 ( T E L N E T . O P T I
0012400 O N S T A T E D O I N G ) 006
0012420 002 o f 006 001 O P T I O N S T A T
0012440 E 006 002 w i t h 006 001 ' Y E S ]
0012460 ) \r (
0012500 T E L N E T . W I L L [ C O N
0012520 D \r
0012540 (
0012560 ( N E Q ( 006 002 f e t c h 006 001
0012600 ( T E L N E T . O P T I O N S T
0012620 A T E W I L L I N G ) 006 002 o
0012640 f 006 001 O P T I O N S T A T E )
0012660 \r
0012700
0012720 ' Y E S ) \r
0012740
0012760 ( S E T Q G O
0013000 . A H E A D . W I T H . C O M M
0013020 A N D T ) \r
0013040
0013060 ( 006 002 r e p l a c e 006
0013100 001 ( T E L N E T . O P T I O N
0013120 S T A T E W I L L I N G ) 006
0013140 002 o f 006 001 O P T I O N S T A T
0013160 E \r
0013200
0013220 006 002 w i t h 006 001 ' Y E S
0013240 ] ) \r
0013260 ( T E L N E T . D O N T [ C O
0013300 N D \r
0013320
0013340 ( ( N E Q ( 006 002 f e t c h 006 001
0013360 ( T E L N E T . O P T I O N S
0013400 T A T E D O I N G ) 006 002 o f
0013420 006 001 O P T I O N S T A T E ) \r
0013440
*
0013500 ' N O ) \r
0013520
0013540 ( S E T Q G O . A
0013560 H E A D . W I T H . C O M M A N
0013600 D T ) \r
0013620
0013640 ( 006 002 r e p l a c e 006 001
0013660 ( T E L N E T . O P T I O N S T
0013700 A T E D O I N G ) 006 002 o f 006
0013720 001 O P T I O N S T A T E 006 002
0013740 w i t h 006 001 ' N O ] ) \r
0013760 ( T E L N E
0014000 T . W O N T [ C O N D \r
0014020
0014040 ( ( N E Q
0014060 ( 006 002 f e t c h 006 001 ( T E L N
0014100 E T . O P T I O N S T A T E W
0014120 I L L I N G ) 006 002 o f 006 001 O
0014140 P T I O N S T A T E ) \r
0014160
0014200 '
0014220 N O ) \r
0014240
0014260 ( S E T Q G O . A H E A D
0014300 . W I T H . C O M M A N D T )
0014320 \r
0014340 (
0014360 006 002 r e p l a c e 006 001 ( T E L
0014400 N E T . O P T I O N S T A T E
0014420 W I L L I N G ) 006 002 o f 006 001
0014440 O P T I O N S T A T E \r
0014460
0014500 006 002 w
0014520 i t h 006 001 ' N O ] ) \r
0014540 N I L ) \r
0014560 ( C O N D \r
0014600 ( G O . A H E
0014620 A D . W I T H . C O M M A N D
0014640 ( B O U T O U T P U T S T R E
0014660 A M T E L N E T . I A C ) \r
0014700
0014720 ( B O U T O U T P U T S T
0014740 R E A M C O M M A N D ) \r
0014760
0015000 ( B O U T O U T P U T S T R
0015020 E A M O P T I O N ) \r
0015040 (
0015060 F O R C E O U T P U T O U T P
0015100 U T S T R E A M ) \r
0015120 ( 006 002
0015140 T C P C H A T . O P T I O N . T
0015160 R A C E 006 001 C O M M A N D O
0015200 P T I O N ( O R T R A C E C
0015220 A P T I O N ' S E N D ] ) \r \r
0015240 ( 006 004 T C P C H A T . O P T I O
0015260 N . I N P U T 006 001 \r [ L A M
0015300 B D A ( O U T P U T S T R E A
0015320 M C O M M A N D O P T I O N
0015340 ) 006 006 006 001
0015360 006 006 ( *
0015400 ; " E d i t e d 1 6 - A p r
0015420 - 8 7 1 3 : 3 0 b y j r b
0015440 : " ) 006 001 \r ( L E T (
0015460 ( O P T I O N R E C O R D ( F
0015500 A S S O C O P T I O N T E L
0015520 N E T . O P T I O N S ) ) ) \r
0015540 ( C O N D \r
0015560 ( O P T I O
0015600 N R E C O R D ( S E L E C T C
0015620 C O M M A N D \r
0015640
0015660 ( T E L N E T . D
0015700 O ( 006 002 T C P C H A T . O P T
0015720 I O N . T R A C E 006 001 ' D O
0015740 O P T I O N ' R E C V ) \r
0015760
*
0016020 ( 006 002 T C P C H A
0016040 T . O P T I O N . O U T P U T 006
0016060 001 O U T P U T S T R E A M (
0016100 006 002 f e t c h 006 001 ( T E L N E
0016120 T . O P T I O N \r
0016140
*
0016240 O N
0016260 . D O ) \r
0016300
*
0016400 006 002 o f 006 001 O P T I
0016420 O N R E C O R D ) \r
0016440
*
0016500 O P T I O N
0016520 ) ) \r
0016540
0016560 ( T E L N E T . D O N T ( 006
0016600 002 T C P C H A T . O P T I O N .
0016620 T R A C E 006 001 ' D O N T O P
0016640 T I O N ' R E C V ) \r
0016660
*
0016720 ( 006 002 T C P C H A
0016740 T . O P T I O N . O U T P U T 006
0016760 001 O U T P U T S T R E A M (
0017000 006 002 f e t c h 006 001 ( T E L N E
0017020 T . O P T I O N \r
0017040
*
0017160 O N . D O N T ) \r
0017200
*
0017300 006 002 o f 006
0017320 001 O P T I O N R E C O R D ) \r
0017340
*
0017420 O P T I O N ) ) \r
0017440
0017460 ( T E L N E T
0017500 . W I L L ( 006 002 T C P C H A T
0017520 . O P T I O N . T R A C E 006 001
0017540 ' W I L L O P T I O N ' R E
0017560 C V ) \r
0017600
0017620 (
0017640 006 002 T C P C H A T . O P T I O N
0017660 . O U T P U T 006 001 O U T P U T
0017700 S T R E A M ( 006 002 f e t c h 006
0017720 001 ( T E L N E T . O P T I O N
0017740 \r
0017760
*
0020060 O N . W I L L )
0020100 \r
0020120
*
0020220 006 002 o f 006 001 O P T I O N
0020240 R E C O R D ) \r
0020260
*
0020320 O P T I O N
0020340 ) ) \r
0020360
0020400 ( T E L N E T . W O N T ( 006
0020420 002 T C P C H A T . O P T I O N .
0020440 T R A C E 006 001 ' W O N T O P
0020460 T I O N ' R E C V ) \r
0020500
*
0020540 ( 006 002 T C P C H A
0020560 T . O P T I O N . O U T P U T 006
0020600 001 O U T P U T S T R E A M (
0020620 006 002 f e t c h 006 001 ( T E L N E
0020640 T . O P T I O N \r
0020660
*
0021000 O N . W O N T ) \r
0021020
*
0021120 006 002 o f 006
0021140 001 O P T I O N R E C O R D ) \r
0021160
*
0021240 O P T I O N ) ) \r
0021260
0021300 ( T E L N E T
0021320 . S B ( 006 002 T C P C H A T . O
0021340 P T I O N . T R A C E 006 001 ' S
0021360 B O P T I O N ' R E C V ) \r
0021400
*
0021440 ( 006 002 T C P C
0021460 H A T . O P T I O N . O U T P U
0021500 T 006 001 O U T P U T S T R E A M
0021520 ( 006 002 f e t c h 006 001 ( T E L
0021540 N E T . O P T I O N \r
0021560
*
0021700 O N . S B ) \r
0021720
*
0022020 006 002 o f 006 001 O P
0022040 T I O N R E C O R D ) \r
0022060
*
0022120 O P T I
0022140 O N ) ) \r
0022160
0022200 C O M M A N D ) ) \r
0022220 ( T ( 006 002 T
0022240 C P C H A T . O P T I O N . T R
0022260 A C E 006 001 C O M M A N D O P
0022300 T I O N ) \r
0022320 ( 006 002 T C P C H A T .
0022340 O P T I O N . O U T P U T 006 001
0022360 O U T P U T S T R E A M ' W O
0022400 N T O P T I O N ] ) \r \r ( 006 004
0022420 T C P C H A T . O P T I O N . O
0022440 U T P U T 006 001 \r [ L A M B D
0022460 A ( O U T P U T S T R E A M
0022500 C O M M A N D O P T I O N ) 006
0022520 006 006 001
0022540 006 006 ( * ;
0022560 " E d i t e d 1 7 - A p r - 8
0022600 7 1 6 : 3 4 b y j r b : "
0022620 ) 006 001 \r ( L E T ( C M
0022640 D N U M ) \r (
0022660 C O N D \r
0022700 ( ( N U L L C O M M A N D )
0022720 ) \r ( [
0022740 S E T Q C M D N U M ( C D R
0022760 ( F A S S O C C O M M A N D
0023000 ` ( ( W I L L \ , T E L N
0023020 E T . W I L L ) \r
0023040
*
0023100 ( W O N T
0023120 \ , T E L N E T . W O N T ) \r
0023140
*
0023220 ( 006 002 D O 006 001 \ , T E L N
0023240 E T . D O ) \r
0023260
*
0023320 ( D O N T \ ,
0023340 T E L N E T . D O N T ] \r
0023360 ( 006 002 T C
0023400 P C H A T . O P T I O N . C O M
0023420 M A N D 006 001 O U T P U T S T R
0023440 E A M C M D N U M O P T I O
0023460 N ' S E N D B A C K ) ) \r
0023500 ( T ( A P
0023520 P L Y * C O M M A N D ( T C
0023540 P . O T H E R . S T R E A M O
0023560 U T P U T S T R E A M ] ) \r \r (
0023600 006 004 T C P C H A T . O P T I O N
0023620 . T R A C E 006 001 \r [ L A M B
0023640 D A ( C O M M A N D O P T I
0023660 O N P R E F I X ) 006 006 006 001
0023700
0023720 006 006 ( * e
0023740 j s % : " 2 2 - A p r - 8 5
0023760 1 6 : 4 1 " ) 006 001 \r ( 006
0024000 002 D E C L A R E 006 001 ( G L O B
0024020 A L V A R S T C P C H A T . T
0024040 R A C E F L G T C P C H A T .
0024060 T R A C E F I L E ) ) \r
0024100 ( C O N D \r ( T C
0024120 P C H A T . T R A C E F L G [
0024140 C O N D \r
0024160
0024200 ( ( S M A L L P C O M M A N
0024220 D ) \r
0024240
0024260 ( S E T Q C O M M A N D ( S
0024300 E L E C T C C O M M A N D \r
0024320
*
0024360 ( T
0024400 E L N E T . D O ' D O ) \r
0024420
*
0024460 ( T E
0024500 L N E T . D O N T ' D O N T )
0024520 \r
0024540
*
0024600 ( T E L N E T . W I L L ' W I
0024620 L L ) \r
0024640
*
0024700 ( T E L N E T . W O N T
0024720 ' W O N T ) \r
0024740
*
0025000 C O M M A N D ] \r
0025020 ( p r
0025040 i n t o u t T C P C H A T . T
0025060 R A C E F I L E P R E F I X
0025100 " : " C O M M A N D " "
0025120 ) \r
0025140 ( P R I N T C O N S T A N T O
0025160 P T I O N T E L N E T . M A R
0025200 K S T C P C H A T . T R A C E
0025220 F I L E ) \r
0025240 ( T E R P R I T C P C
0025260 H A T . T R A C E F I L E ] ) \r
0025300 \r ( 006 004 T C P C H A T . T E R M
0025320 I N A L . T Y P E 006 001 \r [ L
0025340 A M B D A ( I N P U T S T R E
0025360 A M ) 006 006 006 001
0025400
0025420 006 006 (
0025440 * ; " E d i t e d 2 0 - A
0025460 p r - 8 7 1 3 : 4 2 b y j
0025500 r b : " ) 006 001 \r ( L E T
0025520 ( ( C O M M A N D ) ) \r
0025540 ( S E L E C T C (
0025560 \ B U F F E R E D . B I N I N
0025600 P U T S T R E A M ) \r
0025620 ( T E L N E T .
0025640 S E N D
0025660
0025700 006 006 ( * ; "
0025720 O K , s h o u l d b e f o
0025740 l l o w e d b y I A C S E
0025760 " ) 006 001 \r
0026000 (
0026020 006 002 I F 006 001 T C P C H A T . T
0026040 R A C E F L G \r
0026060
0026100 006 002 T H E N 006 001 (
0026120 p r i n t o u t T C P C H A T
0026140 . T R A C E F I L E " R E Q U
0026160 E S T I S S E N D " ) ) \r
0026200
0026220 ( 006 002 I F 006 001
0026240 ( E Q ( S E T Q C O M M A
0026260 N D ( \ B U F F E R E D . B I
0026300 N I N P U T S T R E A M ) ) \r
0026320
*
0026360 T E L N E T . I A C ) \r
0026400
0026420 006 002 T H
0026440 E N 006 001 ( 006 002 I F 006 001 T C P
0026460 C H A T . T R A C E F L G \r
0026500
*
0026540 006 002 T H E N 006 001 ( p
0026560 r i n t o u t T C P C H A T .
0026600 T R A C E F I L E " I A C "
0026620 ) ) \r
0026640 006
0026660 002 E L S E 006 001 ( 006 002 I F 006 001
0026700 T C P C H A T . T R A C E F L G
0026720 \r
0026740
0026760 006 002 T H E N 006 001 (
0027000 p r i n t o u t " E X P E C
0027020 T E D I A C , G O T " C
0027040 O M M A N D ) ) ) \r
0027060
0027100 ( 006 002 I F 006 001 ( E Q
0027120 ( S E T Q C O M M A N D ( \
0027140 B U F F E R E D . B I N I N P
0027160 U T S T R E A M ) ) \r
0027200
0027220 T E L
0027240 N E T . S E ) \r
0027260
0027300 006 002 T H E N 006 001 (
0027320 006 002 I F 006 001 T C P C H A T . T
0027340 R A C E F L G \r
0027360
0027400 006
0027420 002 T H E N 006 001 ( p r i n t o u
0027440 t T C P C H A T . T R A C E F
0027460 I L E " S E " ) ) \r
0027500
0027520 006 002 E L S E 006 001
0027540 ( 006 002 I F 006 001 T C P C H A T
0027560 . T R A C E F L G \r
0027600
0027620 006
0027640 002 T H E N 006 001 ( p r i n t o u
0027660 t " E X P E C T E D S E ,
0027700 G O T " C O M M A N D ) )
0027720 ) \r
0027740 ( 006 002 I
0027760 F 006 001 T C P C H A T . T R A C
0030000 E F L G \r
0030020
0030040 006 002 T H E N 006 001 ( T E R
0030060 P R I T C P C H A T . T R A C
0030100 E F I L E ) ) \r
0030120
0030140 [ L E T * [ ( O U T P U T
0030160 S T R E A M ( T C P . O T H E
0030200 R . S T R E A M I N P U T S T
0030220 R E A M ) ) \r
0030240
0030260 ( D I S P L A Y
0030300 T Y P E ( O R ( C D R ( F
0030320 A S S O C ( 006 002 f e t c h 006 001
0030340 ( C H A T D I S P L A Y T Y P
0030360 E D P Y N A M E ) \r
0030400
*
0030460 006 002 o
0030500 f 006 001 ( S T R E A M P R O P
0030520 I N P U T S T R E A M \r
0030540
*
0030640 ' D I S P L A Y
0030660 T Y P E ) ) \r
0030700
*
0030760 T C P C H A T . T E L
0031000 N E T . T T Y . T Y P E S ) ) \r
0031020
*
0031100 ( C D R ( F A S S O C (
0031120 006 002 f e t c h 006 001 ( C H A T D
0031140 I S P L A Y T Y P E D P Y N A
0031160 M E ) \r
0031200
*
0031260 006 002 o f 006 001 ( S T
0031300 R E A M P R O P O U T P U T S
0031320 T R E A M \r
0031340
*
0031440 ' D I S P L A Y T Y P E ) )
0031460 \r
0031500
*
0031540 T
0031560 C P C H A T . T E L N E T . T T
0031600 Y . T Y P E S ] \r
0031620
0031640 ( B O U T O
0031660 U T P U T S T R E A M T E L N
0031700 E T . I A C ) \r
0031720
0031740 ( B O U T O U
0031760 T P U T S T R E A M T E L N E
0032000 T . S B ) \r
0032020
0032040 ( B O U T O U T P
0032060 U T S T R E A M T E L N E T .
0032100 T E R M I N A L . T Y P E ) \r
0032120
0032140 (
0032160 B O U T O U T P U T S T R E A
0032200 M T E L N E T . I S ) \r
0032220
0032240 ( P R
0032260 I N 1 D I S P L A Y T Y P E
0032300 O U T P U T S T R E A M ) \r
0032320
0032340 ( B
0032360 O U T O U T P U T S T R E A M
0032400 T E L N E T . I A C ) \r
0032420
0032440 ( B O
0032460 U T O U T P U T S T R E A M
0032500 T E L N E T . S E ) \r
0032520
0032540 ( F O R C
0032560 E O U T P U T O U T P U T S T
0032600 R E A M ) \r
0032620
0032640 ( C O N D \r
0032660
0032700 (
0032720 T C P C H A T . T R A C E F L G
0032740 ( p r i n t o u t T C P C H
0032760 A T . T R A C E F I L E \r
0033000
*
0033060 " S E N D (
0033100 B A C K ) I A C S B T E R
0033120 M I N A L - T Y P E I S "
0033140 \r
0033160
*
0033220 D I S
0033240 P L A Y T Y P E " I A C S
0033260 E " T ] ) \r
0033300 ( T E L N E T . I S
0033320
*
0033360 006 006 ( * ; \r 006 001
0033400
0033420 006 006 " W e
0033440 t o l d t h e m w e c o
0033460 u l d n ' t h a n d l e t h
0033500 i s - o r w o u l d h a
0033520 v e h a d t h e y a s k e
0033540 d . . . " ) 006 001 \r
0033560
0033600 ( 006 002 I F 006 001 T C P C H A T
0033620 . T R A C E F L G \r
0033640
0033660 006 002 T H E N 006 001 (
0033700 p r i n t o u t T C P C H A T
0033720 . T R A C E F I L E \r
0033740
*
0034000 " R E Q U E S T I S
0034020 I S , w h i c h i s a n
0034040 e r r o r : r e s t o f c
0034060 o m m a n d i s : " T ) ) \r
0034100
0034120 ( 006 002 W H I L E
0034140 006 001 ( N E Q ( S E T Q C O
0034160 M M A N D ( \ B U F F E R E D
0034200 . B I N I N P U T S T R E A M
0034220 ) ) \r
0034240
0034260 T E L N E T . S E
0034300 ) 006 002 D O 006 001 ( 006 002 I F 006 001
0034320 T C P C H A T . T R A C E F L
0034340 G \r
0034360
*
0034420 006 002 T H E N 006 001
0034440 ( P R I N 1 ( C H A R A C T
0034460 E R C O M M A N D ) \r
0034500
*
0034560 T C
0034600 P C H A T . T R A C E F I L E )
0034620 ) ) \r
0034640 ( 006 002 I F
0034660 006 001 T C P C H A T . T R A C E
0034700 F L G \r
0034720
0034740 006 002 T H E N 006 001 ( p r i n t o
0034760 u t T C P C H A T . T R A C E
0035000 F I L E " S E " T ) ) ) \r
0035020 ( 006 002
0035040 I F 006 001 T C P C H A T . T R A
0035060 C E F L G \r
0035100 006 002 T H E N 006 001
0035120 ( p r i n t o u t T C P C H A
0035140 T . T R A C E F I L E " R E Q
0035160 U E S T I S " C O M M A N
0035200 D " , w h i c h i s a n
0035220 e r r o r " T ] ) \r ) \r \r (
0035240 R P A Q Q 006 002 T E L N E T . C
0035260 O M M A N D S 006 001 ( ( T E L N
0035300 E T . S E 2 4 0 ) \r
0035320
0035340 ( T E L N E T . S B 2 5
0035360 0 ) \r
0035400 ( T E L N
0035420 E T . W I L L 2 5 1 ) \r
0035440
0035460 ( T E L N E T . W O N
0035500 T 2 5 2 ) \r
0035520 (
0035540 T E L N E T . D O 2 5 3 ) \r
0035560
0035600 ( T E L N E T . D
0035620 O N T 2 5 4 ) \r
0035640
0035660 ( T E L N E T . I A C 2 5 5
0035700 ) \r
0035720 ( T E L N E
0035740 T . S E N D 1 ) \r
0035760
0036000 ( T E L N E T . I S 0 ) )
0036020 ) \r ( D E C L A R E % : E V A
0036040 L @ C O M P I L E \r \r ( R P A
0036060 Q Q 006 002 T E L N E T . S E 006 001
0036100 2 4 0 ) \r \r ( R P A Q Q 006 002
0036120 T E L N E T . S B 006 001 2 5 0 )
0036140 \r \r ( R P A Q Q 006 002 T E L N E
0036160 T . W I L L 006 001 2 5 1 ) \r \r (
0036200 R P A Q Q 006 002 T E L N E T . W
0036220 O N T 006 001 2 5 2 ) \r \r ( R P A
0036240 Q Q 006 002 T E L N E T . D O 006 001
0036260 2 5 3 ) \r \r ( R P A Q Q 006 002
0036300 T E L N E T . D O N T 006 001 2 5
0036320 4 ) \r \r ( R P A Q Q 006 002 T E L
0036340 N E T . I A C 006 001 2 5 5 ) \r \r
0036360 ( R P A Q Q 006 002 T E L N E T .
0036400 S E N D 006 001 1 ) \r \r ( R P A Q
0036420 Q 006 002 T E L N E T . I S 006 001
0036440 0 ) \r \r ( C O N S T A N T S (
0036460 T E L N E T . S E 2 4 0 ) \r
0036500 ( T E L N E T . S B
0036520 2 5 0 ) \r ( T E
0036540 L N E T . W I L L 2 5 1 ) \r
0036560 ( T E L N E T . W O
0036600 N T 2 5 2 ) \r (
0036620 T E L N E T . D O 2 5 3 ) \r
0036640 ( T E L N E T . D O
0036660 N T 2 5 4 ) \r (
0036700 T E L N E T . I A C 2 5 5 ) \r
0036720 ( T E L N E T . S
0036740 E N D 1 ) \r ( T
0036760 E L N E T . I S 0 ) ) \r ) \r \r
0037000 ( R P A Q Q 006 002 T E L N E T .
0037020 M A R K S 006 001 ( ( T E L N E T
0037040 . B I N A R Y 0 ) \r
0037060
0037100 ( T E L N E T . E C H O 1 ) \r
0037120
0037140 ( T E L N E T . S U P
0037160 P R E S S . G O A H E A D 3 )
0037200 \r
0037220 ( T E L N E T . S T
0037240 A T U S 5 ) \r
0037260 ( T E
0037300 L N E T . T I M I N G . M A R K
0037320 6 ) \r
0037340 ( T E L N E T
0037360 . T E R M I N A L . T Y P E 2
0037400 4 ) ) ) \r ( D E C L A R E % :
0037420 E V A L @ C O M P I L E \r \r (
0037440 R P A Q Q 006 002 T E L N E T . B
0037460 I N A R Y 006 001 0 ) \r \r ( R P A
0037500 Q Q 006 002 T E L N E T . E C H O
0037520 006 001 1 ) \r \r ( R P A Q Q 006 002
0037540 T E L N E T . S U P P R E S S .
0037560 G O A H E A D 006 001 3 ) \r \r ( R
0037600 P A Q Q 006 002 T E L N E T . S T
0037620 A T U S 006 001 5 ) \r \r ( R P A Q
0037640 Q 006 002 T E L N E T . T I M I N
0037660 G . M A R K 006 001 6 ) \r \r ( R P
0037700 A Q Q 006 002 T E L N E T . T E R
0037720 M I N A L . T Y P E 006 001 2 4 )
0037740 \r \r ( C O N S T A N T S ( T E
0037760 L N E T . B I N A R Y 0 ) \r
0040000 ( T E L N E T . E C
0040020 H O 1 ) \r ( T E
0040040 L N E T . S U P P R E S S . G O
0040060 A H E A D 3 ) \r
0040100 ( T E L N E T . S T A T U S 5
0040120 ) \r ( T E L N E T
0040140 . T I M I N G . M A R K 6 ) \r
0040160 ( T E L N E T . T
0040200 E R M I N A L . T Y P E 2 4 )
0040220 ) \r ) \r \r ( R P A Q Q 006 002 T C
0040240 P C H A T . T E L N E T . T T Y
0040260 . T Y P E S 006 001 ( ( D M 2 5 0
0040300 0 . D A T A M E D I A - 2 5
0040320 0 0 ) \r
0040340
0040360 ( V T 1 0 0 . D E
0040400 C - V T 1 0 0 ) ) ) \r \r ( R P A
0040420 Q Q 006 002 T E L N E T . O P T I
0040440 O N S 006 001 ( ( 0 W I L L W
0040460 O N T N I L D O N T ) \r
0040500
0040520 ( 1 W O N T W O N
0040540 T D O D O ) \r
0040560
0040600 ( 3 W I L L W I L L N I L
0040620 N I L ) \r
0040640 ( 5
0040660 W O N T W O N T D O N T D
0040700 O N T ) \r
0040720 ( 6 W
0040740 I L L N I L N I L N I L )
0040760 \r
0041000 ( 2 4 W I L L
0041020 N I L D O N T N I L T C
0041040 P C H A T . T E R M I N A L . T
0041060 Y P E ) ) ) \r ( D E C L A R E %
0041100 : D O E V A L @ C O M P I L E
0041120 D O N T C O P Y \r \r ( G L O B
0041140 A L V A R S T C P C H A T . T
0041160 E L N E T . T T Y . T Y P E S
0041200 T E L N E T . O P T I O N S T
0041220 E L N E T . M A R K S ) \r ) \r \r
0041240 ( A D D T O V A R 006 002 C H A T
0041260 . P R O T O C O L T Y P E S 006 001
0041300 ( T C P . T C P C H A T .
0041320 H O S T . F I L T E R ) ) \r \r (
0041340 R P A Q ? 006 002 T C P C H A T .
0041360 T R A C E F L G 006 001 ) \r \r ( R
0041400 P A Q ? 006 002 T C P C H A T . T
0041420 R A C E F I L E 006 001 ) \r ( D E
0041440 C L A R E % : E V A L @ C O M
0041460 P I L E \r \r ( R E C O R D 006 002
0041500 T E L N E T . O P T I O N 006 001
0041520 ( O P T I O N O N . D O O N
0041540 . D O N T O N . W I L L O N
0041560 . W O N T O N . S B ) ) \r \r (
0041600 R E C O R D 006 002 T E L N E T .
0041620 O P T I O N S T A T E 006 001 ( O
0041640 P T I O N W I L L I N G D O
0041660 I N G ) ) \r ) \r ( F I L E S L O
0041700 A D ( S Y S L O A D ) \r
0041720 T C P C H A T ) \r ( D
0041740 E C L A R E % : E V A L @ C O
0041760 M P I L E D O N T C O P Y \r
0042000 ( F I L E S L O A D C H A T D
0042020 E C L S ) \r ) \r ( P U T P R O P
0042040 S T C P C H A T C O P Y R I
0042060 G H T ( " X e r o x C o r p
0042100 o r a t i o n " 1 9 8 5 1 9
0042120 8 6 1 9 8 7 ) ) \r ( D E C L A
0042140 R E % : D O N T C O P Y \r
0042160 ( F I L E M A P ( N I L ( 1
0042200 5 2 8 1 5 0 0 5 ( T C P C H
0042220 A T . B I N 1 5 3 8 . 1 8
0042240 2 1 ) ( T C P C H A T . H O S
0042260 T . F I L T E R 1 8 2 3 .
0042300 2 0 7 4 ) ( \r T C P C H A T .
0042320 N E G O T I A T E 2 0 7 6 .
0042340 2 3 2 0 ) ( T C P C H A T .
0042360 O P E N 2 3 2 2 . 4 8 4 0
0042400 ) ( T C P C H A T . O P T I O
0042420 N . C O M M A N D 4 8 4 2 .
0042440 6 8 1 4 ) ( \r T C P C H A T
0042460 . O P T I O N . I N P U T 6 8
0042500 1 6 . 9 4 8 3 ) ( T C P C
0042520 H A T . O P T I O N . O U T P U
0042540 T 9 4 8 5 . 1 0 1 0 9 )
0042560 ( T C P C H A T . O P T I O N .
0042600 T R A C E 1 0 1 1 1 . \r 1
0042620 0 9 4 3 ) ( T C P C H A T . T
0042640 E R M I N A L . T Y P E 1 0 9
0042660 4 5 . 1 5 0 0 3 ) ) ) ) ) \r
0042700 S T O P \r
0042705