$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>CHAT!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 6 - J a n - 8
0000140 7 2 2 : 2 4 : 1 9 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > C H A T . ; 4 1 006 001
0000220 6 7 0 9 0 \r \r
0000240 c h a n g e s t o % : ( V
0000260 A R S C H A T C O M S ) \r
0000300
0000320 ( V A R I A B L E S C H A
0000340 T . T T Y . P R O C E S S C H
0000360 A T . A L L H O S T S C H A T
0000400 . A U T O C R L F C H A T . C
0000420 O N T R O L C H A R \r
0000440
0000460 C H A T . D I S P
0000500 L A Y T Y P E S C H A T . D R
0000520 I V E R T Y P E S C H A T . E
0000540 M A C S C O M M A N D S C H A
0000560 T . E M U L A T O R T Y P E \r
0000600
0000620 C H A T .
0000640 F O N T C H A T . H O S T M E
0000660 N U C H A T . I N . E M A C S
0000700 ? C H A T . I N T E R R U P T
0000720 S C H A T . K E Y A C T I O N
0000740 S \r
0000760 C H
0001000 A T . M E T A C H A R C H A T
0001020 . P R O T O C O L T Y P E S C
0001040 H A T . R E O P E N M E N U C
0001060 H A T . W A I T . T I M E \r
0001100
0001120 C H A T . W
0001140 I N D O W . R E G I O N C H A
0001160 T . W I N D O W . S I Z E C H
0001200 A T D E B U G F L G C H A T M
0001220 E N U C H A T W I N D O W \r
0001240
0001260 C H A T W
0001300 I N D O W L S T C L O S E C H
0001320 A T W I N D O W F L G D E F A
0001340 U L T C H A T H O S T N E T W
0001360 O R K L O G I N F O ) \r \r
0001400 p r e v i o u s d a t e
0001420 % : " 4 - D e c - 8 6 2 3
0001440 : 2 9 : 3 9 " { E R I S } < L
0001460 I S P C O R E > L I B R A R Y >
0001500 C H A T . ; 4 0 ) \r \r \r ( * "
0001520 \r C o p y r i g h t ( c ) 1
0001540 9 8 2 , 1 9 8 3 , 1 9 8 4 ,
0001560 1 9 8 5 , 1 9 8 6 , 1 9 8
0001600 7 b y X e r o x C o r p o
0001620 r a t i o n . A l l r i g
0001640 h t s r e s e r v e d . \r " )
0001660 \r \r ( P R E T T Y C O M P R I N
0001700 T C H A T C O M S ) \r \r ( R P
0001720 A Q Q 006 002 C H A T C O M S 006 001
0001740 \r [ ( C O M S
0001760
*
0002020 006
0002040 003 ( * ; " C H A T t y p e
0002060 i n " ) 006 001 \r
0002100 ( F N S C H A T C
0002120 H A T . C H O O S E . E M U L A
0002140 T O R C H A T . S E T . E M U
0002160 L A T O R C H A T . C H A N G
0002200 E . E M U L A T O R C H A T .
0002220 I N I T \r
0002240 F I N D . C H
0002260 A T . P R O T O C O L C H A T
0002300 . T Y P E I N C H A T . B I N
0002320 C H A T . C L O S E C H A T
0002340 . D E A C T I V A T E . W I N D
0002360 O W \r
0002400 C H A T . C L O S
0002420 E F N C H A T . C L O S E . C
0002440 O N N E C T I O N C H A T . L
0002460 O G I N ) \r
0002500 ( V A R I A B L E S C
0002520 H A T . T T Y . P R O C E S S )
0002540 ) \r ( C O M S
0002560
*
0002620 006
0002640 003 ( * ; " C H A T s t r e
0002660 a m s " ) 006 001 \r
0002700 ( F N S A D D . C
0002720 H A T . M E S S A G E C H A T
0002740 . L O G I N F O C H A T . S E
0002760 N D S C R E E N P A R A M S C
0003000 H A T . S E T D I S P L A Y T Y
0003020 P E \r
0003040 C H A T . L O G I
0003060 N F O C H A T . F L U S H & W
0003100 A I T C H A T . E N D O F S T
0003120 R E A M O P C H A T . O P T I
0003140 O N M E N U ) ) \r
0003160 ( C O M S
0003200
*
0003240 006 003 ( * ; " C H
0003260 A T t y p e o u t " ) 006 001 \r
0003300 ( F N
0003320 S C H A T . T Y P E O U T C
0003340 H A T . T Y P E O U T . C L O S
0003360 E C H A T . D I D . R E S H A
0003400 P E C H A T . S C R E E N P A
0003420 R A M S ) ) \r (
0003440 C O M S
0003460
*
0003520 006 003 ( * ; " w i n d
0003540 o w s t u f f " ) 006 001 \r
0003560 ( F N S
0003600 G E T C H A T W I N D O W C H
0003620 A T . B U T T O N F N C H A T
0003640 . H O L D C H A T . M E N U
0003660 C H A T . C L E A R . F R O M .
0003700 M E N U \r
0003720 C H A T . T A
0003740 K E . I N P U T C H A T . T A
0003760 K E . I N P U T 1 D O . C H A
0004000 T . O P T I O N C H A T . R E
0004020 C O N N E C T C H A T . R E C
0004040 O N N E C T . O F F \r
0004060 C
0004100 H A T . R E S H A P E W I N D O
0004120 W C H A T . T T Y E N T R Y F
0004140 N C H A T . T T Y E X I T F N
0004160 C H A T . T Y P E S C R I P T
*
0004220 1 \r
0004240 ) ) \r
0004260 [ C O M S
0004300
*
0004340 006 003 ( * ; " f o r
0004360 d i a l o u t s " ) 006 001 \r
0004400 ( F N S
0004420 C H A T . C H O O S E . P H O
0004440 N E . N U M B E R ) \r
0004460 ( I N I T V A
0004500 R S ( C H A T . P H O N E . N
0004520 U M B E R . M E N U ) \r
0004540
0004560 ( C H A T . P H O N E . N U M
0004600 B E R S ' ( O t h e r ] \r
0004620 ( C O M S
0004640
*
0004700 006 003 ( *
0004720 ; " f o r E M A C S " ) 006 001
0004740 \r (
0004760 F N S C H A T . E M A C S . M
0005000 O V E C H A T . S W I T C H .
0005020 E M A C S ) ) \r
0005040 ( C O M S ( F N S C H A T .
0005060 I C O N F N ) \r
0005100 ( B I T M A P S T
0005120 T Y K B D T T Y K B D M A S K
0005140 ) \r
0005160 ( V A R S T T Y K B D I C O N
0005200 S P E C R E G I O N ) \r
0005220 ( I N I T V
0005240 A R S ( T T Y K B D I C O N S
0005260 P E C ) ) ) \r (
0005300 V A R I A B L E S C H A T . A
0005320 L L H O S T S C H A T . A U T
0005340 O C R L F C H A T . C O N T R
0005360 O L C H A R C H A T . D I S P
0005400 L A Y T Y P E S C H A T . D R
0005420 I V E R T Y P E S \r
0005440 C H A T . E
0005460 M A C S C O M M A N D S C H A
0005500 T . E M U L A T O R T Y P E C
0005520 H A T . F O N T C H A T . H O
0005540 S T M E N U C H A T . I N . E
0005560 M A C S ? \r
0005600 C H A T . I N T E R
0005620 R U P T S C H A T . K E Y A C
0005640 T I O N S C H A T . M E T A C
0005660 H A R C H A T . P R O T O C O
0005700 L T Y P E S C H A T . R E O P
0005720 E N M E N U \r
0005740 C H A T . W A I T
0005760 . T I M E C H A T . W I N D O
0006000 W . R E G I O N C H A T . W I
0006020 N D O W . S I Z E C H A T D E
0006040 B U G F L G C H A T M E N U
0006060 C H A T W I N D O W \r
0006100 C H A T W
0006120 I N D O W L S T C L O S E C H
0006140 A T W I N D O W F L G D E F A
0006160 U L T C H A T H O S T N E T W
0006200 O R K L O G I N F O ) \r
0006220 ( A D D V A R S ( C H
0006240 A T M E N U I T E M S ) ) \r
0006260 ( D E C L A R E % :
0006300 E V A L @ C O M P I L E D O
0006320 N T C O P Y ( L O C A L V A R
0006340 S . T ) \r
0006360 ( F I L E S ( S O
0006400 U R C E ) \r
0006420 C H A T
0006440 D E C L S ) \r
0006460 ( R E C O R D S E
0006500 M A C S C O M M A N D S ) \r
0006520 ( G L
0006540 O B A L V A R S C H A T M E N
0006560 U I T E M S ) ) \r
0006600 ( I N I T V A R S ( I N V E
0006620 R T W I N D O W F N ' I N V E
0006640 R T W ) ) \r ( C
0006660 O M S ( F N S \ S P A W N .
0006700 C H A T ) \r
0006720 ( D E C L A R E % : D
0006740 O N T E V A L @ L O A D D O C
0006760 O P Y ( A D D V A R S ( B a
0007000 c k g r o u n d M e n u C o m m
0007020 a n d s ( C H A T ' ( \ S P
0007040 A W N . C H A T ) \r
0007060
*
0007140 " R u n s a n e w
0007160 C H A T p r o c e s s ; p
0007200 r o m p t s f o r h o s t "
0007220 \r
0007240
*
0007340 ) ) ) \r
0007360 (
0007400 P ( S E T Q B a c k g r o u
0007420 n d M e n u ) ) \r
0007440 ( F
0007460 I L E S D M C H A T ) \r
0007500
*
0007560 006 003 ( * ;
0007600 \r 006 001
0007620
*
0007660 006 003 "
0007700 n e e d D M C H A T s i n c
0007720 e i t s t h e d e f a u l
0007740 t e m u l a t o r " ) 006 001 \r
0007760
0010000 ( I N I T R E C O R D S
0010020 C H A T . S T A T E ] ) \r \r \r
0010040 \r 006 004 ( * ; " C H A T t y
0010060 p e i n " ) 006 001 \r \r ( D E F I N
0010100 E Q \r \r ( 006 004 C H A T 006 001 \r
0010120 ( L A M B D A ( H O S T L O
0010140 G O P T I O N I N I T S T R E
0010160 A M W I N D O W F R O M M E
0010200 N U ) 006 006 006 001 006
0010220 006 ( * l m m " 2 4 - O c t -
0010240 8 6 1 7 : 0 6 " ) 006 001 \r
0010260 ( P R O G ( C O N N E C T I
0010300 O N S T R E A M S O P E N F
0010320 N R E S U L T P R O C E S S
0010340 H O S T S D I S P L A Y T Y
0010360 P E ) \r ( O
0010400 R H O S T ( C O N D \r
0010420
0010440 ( F R O M M E N U ( C O
0010460 N D \r
0010500
0010520 ( ( O R C H A T .
0010540 H O S T M E N U ( P R O G N
0010560 ( S E T Q H O S T S C H A T
0010600 . A L L H O S T S ) \r
0010620
*
0010700 ( C O N D \r
0010720
*
0011000 ( D
0011020 E F A U L T C H A T H O S T (
0011040 006 002 p u s h n e w 006 001 H O S T
0011060 S \r
0011100
*
0011200 D E F A U L T
0011220 C H A T H O S T \r
0011240
*
0011360 ) ) ) \r
0011400
*
0011460 H O S T S ) ) \r
0011500
0011520 ( S
0011540 E T Q H O S T ( M E N U (
0011560 O R C H A T . H O S T M E N U
0011600 ( S E T Q C H A T . H O S T
0011620 M E N U \r
0011640
*
0011720 ( 006 002
0011740 c r e a t e 006 001 M E N U \r
0011760
*
0012060 I T E
0012100 M S _ \r
0012120
*
0012220 ( A P P E N D H O S T
0012240 S \r
0012260
*
0012360 ' ( O t h e r )
0012400 ) \r
0012420
*
0012520 T I T L E _ " H o s t " )
0012540 ) ) ) ) \r
0012560
0012600 ( C O N D \r
0012620
*
0012660 ( ( E Q H O S T
0012700 ' O t h e r ) \r
0012720
*
0012760 ( S E T Q H O S T N I L ) )
0013000 \r
0013020
0013040 ( ( N U L L H
0013060 O S T ) \r
0013100
0013120 ( R E
0013140 T U R N ) ) ) ) ) ) \r
0013160
0013200 ( T ( S E T Q H O S T D
0013220 E F A U L T C H A T H O S T ) )
0013240 ) ) \r T O P ( C O
0013260 N D \r
0013300 ( ( N O T H O S T ) \r
0013320 ( T T Y . P
0013340 R O C E S S ( T H I S . P R O
0013360 C E S S ) ) \r
0013400 ( C O N D \r
0013420 ( ( N O
0013440 T ( S E T Q H O S T ( M K
0013460 A T O M ( P R O M P T F O R W
0013500 O R D " \r H o s t : " N I
0013520 L " E n t e r n a m e o f
0013540 h o s t t o c h a t t o
0013560 , o r < c r > t o a b o
0013600 r t " ( C O N D \r
0013620
*
0013700 ( F R O M
0013720 M E N U ( C O N D \r
0013740
*
0014040 ( W I N D O W
0014060 ( \r
0014100
*
0014200 G E T P R O M
0014220 P T W I N D O W \r
0014240
*
0014360 W I N D O W ) ) \r
0014400
*
0014500 ( T P R O M P T
0014520 W I N D O W ) ) ) ) \r
0014540
*
0014600 N I L
0014620 N I L ( C H A R C O D E ( C
0014640 R ) ) ) ) ) ) \r
0014660 ( G O F A
0014700 I L ) ) ) ) ) \r
0014720 ( C O N D \r
0014740 ( ( N O T ( S E T Q
0014760 O P E N F N ( 006 002 F I N D .
0015000 C H A T . P R O T O C O L 006 001
0015020 H O S T ) ) ) 006 006 006 001 \r
0015040
*
0015120 006 006 ( * ; " D o n
0015140 ' t k n o w h o w t o t
0015160 a l k t o t h i s h o s t
0015200 " ) 006 001 \r
0015220 ( S E T Q R E S U L T
0015240 ( C O N C A T " U n k n o w n
0015260 C h a t h o s t : " H O
0015300 S T ) ) \r
0015320 ( C O N D \r
0015340 ( F R O M M
0015360 E N U ( p r i n t o u t ( C
0015400 O N D \r
0015420
0015440 ( W I N
0015460 D O W ( G E T P R O M P T W I
0015500 N D O W W I N D O W ) ) \r
0015520
*
0015560 ( T P R O M P T W
0015600 I N D O W ) ) \r
0015620
0015640 T R E S U
0015660 L T ) ) ) ) \r
0015700 ( ( N O T ( S E T Q
0015720 S T R E A M S ( A P P L Y *
0015740 ( P R O G N ( S E T Q H O S
0015760 T ( C A R O P E N F N ) ) \r
0016000
*
0016060 006 006 (
0016100 * V a l u e r e t u r n e d
0016120 w a s \r 006 001
0016140
*
0016220 006 006 ( C a n o n i c a l
0016240 H o s t N a m e O p e n F n )
0016260 ) 006 001 \r
0016300
*
0016340 ( C A D R O P E N F N
0016360 ) ) \r
0016400
0016420 H O S T )
0016440 ) ) \r
0016460 ( S E T Q R E S U L T " F
0016500 a i l e d " ) ) \r
0016520 ( T ( S E T Q D
0016540 I S P L A Y T Y P E ( 006 002 C H
0016560 A T . C H O O S E . E M U L A T
0016600 O R 006 001 H O S T ) ) \r
0016620 ( S E T
0016640 Q W I N D O W ( 006 002 G E T C
0016660 H A T W I N D O W 006 001 H O S T
0016700 W I N D O W ( 006 002 f e t c h
0016720 006 001 ( C H A T D I S P L A Y T
0016740 Y P E D P Y N A M E ) 006 002 o
0016760 f 006 001 \r
0017000
*
0017100 D
0017120 I S P L A Y T Y P E \r
0017140
*
0017220 ) ) ) \r
0017240 ( 006
0017260 002 C H A T . I N I T 006 001 S T R
0017300 E A M S W I N D O W H O S T
0017320 D I S P L A Y T Y P E ) \r
0017340 ( C
0017360 O N D \r
0017400 ( ( N O T ( F M
0017420 E M B H O S T C H A T . A L
0017440 L H O S T S ) ) \r
0017460 ( S E
0017500 T Q C H A T . A L L H O S T S
0017520 ( C O N S H O S T C H A T
0017540 . A L L H O S T S ) ) \r
0017560
0017600 ( S E T Q C H A T . H O S T M
0017620 E N U ) ) ) \r
0017640 ( L E T ( ( P R
0017660 O C ( A D D . P R O C E S S
0017700 ( L I S T ' C H A T . T Y P E
0017720 I N ( K W O T E H O S T ) \r
0017740
*
0020000 (
0020020 K W O T E W I N D O W ) \r
0020040
*
0020100 ( K W
0020120 O T E L O G O P T I O N ) \r
0020140
*
0020200 ( K
0020220 W O T E I N I T S T R E A M )
0020240 ) \r
0020260
0020300 ' N A M E \r
0020320
0020340 ( P
0020360 A C K * " C H A T # " H O S
0020400 T ) \r
0020420
0020440 ' R E S T A R T A B
0020460 L E \r
0020500
0020520 ' N O ) ) ) \r
0020540
0020560 ( P R O C E S S P R O P P
0020600 R O C ' K E Y A C T I O N (
0020620 L E T ( ( K E Y ( K E Y A C
0020640 T I O N T A B L E \ D E F A U
0020660 L T K E Y A C T I O N ) ) ) \r
0020700
*
0020760 ( 006 002 f o r 006 001 P
0021000 A I R 006 002 i n 006 001 ( C U R R
0021020 E N T I N T E R R U P T S K E
0021040 Y ) \r
0021060
*
0021120 006 002 w
0021140 h e n 006 001 ( L E Q ( C A R
0021160 P A I R ) \r
0021200
*
0021260 2 5 5 ) \r
0021300
*
0021360 006 002 d o 006 001
0021400 ( I N T C H A R ( C A R P A
0021420 I R ) \r
0021440
*
0021520 N I L N I L
0021540 K E Y ) ) \r
0021560
*
0021640 006 006 ( * ; \r 006 001
0021660
*
0021740 006 006 " t u
0021760 r n o f f a l l i n t e r
0022000 r u p t s i n c h a r s e t
0022020 0 " ) 006 001 \r
0022040
*
0022100 ( 006
0022120 002 f o r 006 001 P A I R 006 002 i n
0022140 006 001 C H A T . I N T E R R U P
0022160 T S \r
0022200
*
0022240 006 002 d
0022260 o 006 001 ( I N T C H A R ( C A
0022300 R P A I R ) \r
0022320
*
0022400 N I L
0022420 N I L K E Y ) ) \r
0022440
*
0022520 ( 006 002 f o r 006 001 P A I R 006
0022540 002 i n 006 001 C H A T . K E Y A C
0022560 T I O N S \r
0022600
*
0022660 006 002 d o 006 001 ( K E Y A C T I O
0022700 N ( C A R P A I R ) \r
0022720
*
0023020 ( C D R P A I R ) \r
0023040
*
0023140 K E Y ) ) \r
0023160
*
0023220 K E Y
0023240 ) ) \r
0023260 ( 006 002 i f 006 001
0023300 C H A T . T T Y . P R O C E S S
0023320 \r
0023340 006 002 t h e n
0023360 006 001 ( T T Y . P R O C E S S
0023400 P R O C ) ) ) \r
0023420 ( R E T U R N
0023440 H O S T ) ) ) \r F A
0023460 I L \r ( C O
0023500 N D \r
0023520 ( ( A N D W I N D O W ( W I
0023540 N D O W P R O P W I N D O W
0023560 ' C H A T H O S T ) ) \r
0023600 ( W I N D O
0023620 W P R O P W I N D O W ' B U
0023640 T T O N E V E N T F N ( F U N
0023660 C T I O N C H A T . R E C O N
0023700 N E C T ) ) ) ) \r
0023720 ( R E T U R N R E S U L
0023740 T ) ) ) ) \r \r ( 006 004 C H A T . C
0023760 H O O S E . E M U L A T O R 006 001
0024000 \r ( L A M B D A ( H O S T
0024020 ) 006 006 006 001
0024040
*
0024100 006 006 ( * l m m " 2 0 - O
0024120 c t - 8 6 1 6 : 2 8 " ) 006 001 006
0024140 006 006 001 \r
0024160
*
0024220 006 006 ( * ; ; \r 006
0024240 001
0024260
0024300 006 006 " R e t u r n s a r e c
0024320 o r d o f t y p e C H A T
0024340 D I S P L A Y T Y P E t o b
0024360 e u s e d f o r t h i s
0024400 s e s s i o n " ) 006 001 \r
0024420 ( C O N D \r ( ( F
0024440 I X P C H A T . D I S P L A Y
0024460 T Y P E S ) \r (
0024500 C O N D \r
0024520 ( C H A T . E M U L A T O R T Y
0024540 P E ( 006 002 c r e a t e 006 001 C
0024560 H A T D I S P L A Y T Y P E \r
0024600
*
0024640 H O S T _ N I L \r
0024660
*
0024720 D P Y N A M E _ C H
0024740 A T . E M U L A T O R T Y P E \r
0024760
*
0025020 D P Y C O D E _ C
0025040 H A T . D I S P L A Y T Y P E S
0025060 ) ) ) ) \r ( ( L I
0025100 S T P C H A T . D I S P L A Y
0025120 T Y P E S ) \r (
0025140 O R ( F A S S O C H O S T
0025160 C H A T . D I S P L A Y T Y P E
0025200 S ) \r (
0025220 F A S S O C N I L C H A T .
0025240 D I S P L A Y T Y P E S ) ) ) \r
0025260 ( T ( E R R O R
0025300 " P l e a s e s e t C H A
0025320 T . D I S P L A Y T Y P E S t
0025340 o b e a l i s t o f (
0025360 H O S T T T Y - T Y P E - #
0025400 E M U L A T O R T Y P E ) " ) \r
0025420 N I L ) ) )
0025440 ) \r \r ( 006 004 C H A T . S E T . E
0025460 M U L A T O R 006 001 \r ( L A M
0025500 B D A ( C H A T . S T A T E
0025520 W I N D O W N E W E M U L A T
0025540 O R ) 006 006 006 001
0025560 006 006 ( *
0025600 l m m " 2 0 - O c t - 8 6 1
0025620 8 : 0 3 " ) 006 001 \r ( L E
0025640 T ( ( T Y P E O U T P R O C
0025660 ( 006 002 f e t c h 006 001 ( C H A T
0025700 . S T A T E T Y P E O U T P R
0025720 O C ) 006 002 o f 006 001 C H A T .
0025740 S T A T E ) ) ) \r
0025760 ( C O N D \r
0026000 ( N E W E M U L A T O R
0026020 ( D E L . P R O C E S S T Y
0026040 P E O U T P R O C ) \r
0026060 ( C
0026100 L E A R W W I N D O W ) \r
0026120
0026140 ( A D D . P R O C E S S ` (
0026160 006 002 C H A T . T Y P E O U T 006 001
0026200 , W I N D O W ' , N E W E M
0026220 U L A T O R ' , C H A T . S T
0026240 A T E ) ) ) ) ) ) ) \r \r ( 006 004 C
0026260 H A T . C H A N G E . E M U L A
0026300 T O R 006 001 \r ( L A M B D A
0026320 ( C H A T . S T A T E ) \r
0026340 ( L E T * ( ( W I N D O W
0026360 ( 006 002 f e t c h 006 001 ( C H A T
0026400 . S T A T E W I N D O W ) 006
0026420 002 o f 006 001 C H A T . S T A T E
0026440 ) ) \r ( T
0026460 Y P E O U T P R O C ( 006 002 f e
0026500 t c h 006 001 ( C H A T . S T A T
0026520 E T Y P E O U T P R O C ) 006
0026540 002 o f 006 001 C H A T . S T A T E
0026560 ) ) \r ( N
0026600 E W E M U L A T O R ( M E N U
0026620 ( 006 002 c r e a t e 006 001 M E N
0026640 U \r
0026660
0026700 I T E M S _ (
0026720 006 002 f o r 006 001 E N T R Y 006 002
0026740 i n 006 001 C H A T . D R I V E R
0026760 T Y P E S 006 002 c o l l e c t 006
0027000 001 ( C A R E N T R Y ) ) \r
0027020
*
0027060 C E N T E R F L G _
0027100 T \r
0027120
0027140 T I T L E _ "
0027160 A v a i l a b l e t e r m i n
0027200 a l s " ) ) ) ) \r
0027220 ( C O N D \r
0027240 ( N E W E M U L A T
0027260 O R ( D E L . P R O C E S S
0027300 T Y P E O U T P R O C ) \r
0027320
0027340 ( C L E A R W W I N D O W )
0027360 \r
0027400 ( A D D . P R O C E S
0027420 S ` ( 006 002 C H A T . T Y P E O
0027440 U T 006 001 % , W I N D O W (
0027460 Q U O T E % , N E W E M U L
0027500 A T O R ) \r
0027520
0027540 %
0027560 , C H A T . S T A T E ) ) ) )
0027600 ) ) ) \r \r ( 006 004 C H A T . I N I
0027620 T 006 001 \r ( L A M B D A ( S
0027640 T R E A M S W I N D O W H O
0027660 S T D I S P L A Y T Y P E ) 006
0027700 006 006 001
0027720 006 006 ( * e j s % :
0027740 " 1 4 - J u n - 8 5 1 5 : 0 9
0027760 " ) 006 001 \r ( L E T * (
0030000 ( I N S T R E A M ( C A R S
0030020 T R E A M S ) ) \r
0030040 ( O U T S T R E A M (
0030060 C D R S T R E A M S ) ) \r
0030100 ( D P Y N A M
0030120 E ( 006 002 f e t c h 006 001 ( C H
0030140 A T D I S P L A Y T Y P E D P
0030160 Y N A M E ) 006 002 o f 006 001 D I
0030200 S P L A Y T Y P E ) ) \r
0030220 ( S T A T E ( 006
0030240 002 c r e a t e 006 001 C H A T . S
0030260 T A T E \r
0030300 R U
0030320 N N I N G ? _ T \r
0030340
0030360 C H A T I N E M A C S
0030400 _ C H A T . I N . E M A C S ?
0030420 \r
0030440 I N S T R E
0030460 A M _ I N S T R E A M \r
0030500
0030520 O U T S T R E A M
0030540 _ O U T S T R E A M \r
0030560
0030600 W I N D O W _ W
0030620 I N D O W \r
0030640 D
0030660 S P _ ( W I N D O W P R O P
0030700 W I N D O W ' D S P ) ) ) )
0030720 \r ( W I N D
0030740 O W P R O P W I N D O W ' C
0030760 H A T S T A T E S T A T E ) \r
0031000 ( C O N D \r
0031020 ( ( E
0031040 Q D P Y N A M E ' T E D I T
0031060 ) \r
0031100 ( 006 002 r e p l a c e 006 001 ( C H
0031120 A T . S T A T E T E X T S T R
0031140 E A M ) 006 002 o f 006 001 S T A T
0031160 E 006 002 w i t h 006 001 ( T E D I
0031200 T S T R E A M . I N I T W I N
0031220 D O W \r
0031240
*
0031320 ( F U N C T I O
0031340 N T E D I T C H A T . M E N U
0031360 F N ) ) ) ) \r
0031400 ( T ( W I N D O W P R
0031420 O P W I N D O W ' C U R S O
0031440 R M O V E D F N N I L ) \r
0031460 ( W
0031500 I N D O W P R O P W I N D O W
0031520 ' R E S H A P E F N ( F U N
0031540 C T I O N C H A T . R E S H A
0031560 P E W I N D O W ) ) \r
0031600 ( W I N D
0031620 O W P R O P W I N D O W ' B
0031640 U T T O N E V E N T F N ( F U
0031660 N C T I O N C H A T . B U T T
0031700 O N F N ) ) \r
0031720 ( W I N D O W P R
0031740 O P W I N D O W ' R E P A I
0031760 N T F N N I L ) \r
0032000 ( W I N D O
0032020 W P R O P W I N D O W ' N E
0032040 W R E G I O N F N N I L ) \r
0032060 (
0032100 W I N D O W P R O P W I N D O
0032120 W ' W I N D O W E N T R Y F N
0032140 ' G I V E . T T Y . P R O C E
0032160 S S ) \r
0032200 ( W I N D O W P R O P
0032220 W I N D O W ' R I G H T B U T
0032240 T O N F N N I L ) \r
0032260 ( W I N D
0032300 O W P R O P W I N D O W ' C
0032320 U R S O R O U T F N N I L ) \r
0032340
0032360 ( W I N D O W P R O P W I N D
0032400 O W ' S C R O L L F N N I L
0032420 ) ) ) \r ( W
0032440 I N D O W A D D P R O P W I N
0032460 D O W ' C L O S E F N ( F U
0032500 N C T I O N C H A T . C L O S
0032520 E F N ) ) \r
0032540 ( W I N D O W P R O P W I N D
0032560 O W ' I C O N W I N D O W N
0032600 I L ) \r ( W
0032620 I N D O W P R O P W I N D O W
0032640 ' I C O N F N ( F U N C T I
0032660 O N C H A T . I C O N F N ) )
0032700 \r ( S T R E
0032720 A M P R O P I N S T R E A M
0032740 ' O L D E O S O P ( 006 002 f e t
0032760 c h 006 001 E N D O F S T R E A M
0033000 O P 006 002 o f 006 001 I N S T R E
0033020 A M ) ) \r (
0033040 S T R E A M P R O P I N S T R
0033060 E A M ' D I S P L A Y T Y P E
0033100 D I S P L A Y T Y P E ) \r
0033120 ( 006 002 r e p l a
0033140 c e 006 001 E N D O F S T R E A M
0033160 O P 006 002 o f 006 001 I N S T R E
0033200 A M 006 002 w i t h 006 001 ( F U N
0033220 C T I O N C H A T . E N D O F
0033240 S T R E A M O P ) ) ) ) ) \r \r (
0033260 006 004 F I N D . C H A T . P R O T
0033300 O C O L 006 001 \r ( L A M B D A
0033320 ( N A M E ) 006 006 006 001
0033340
*
0033400 006 006 ( * e j s
0033420 % : " 1 3 - N o v - 8 4 1 6
0033440 : 2 4 " ) 006 001 \r
0033460 \r 006 006 (
0033500 * * F i n d a p r o t o
0033520 c o l f o r u s e b y C
0033540 H A T b y c a l l i n g t
0033560 h e f i l t e r f n s o n
0033600 \r 006 001 006 006
0033620 C H A T . P R O T O C O L S .
0033640 T h e f n s s h o u l d r
0033660 e t u r n a C H A T . P R O
0033700 T O C O L t h a t c a n b
0033720 e u s e d t o \r 006 001
0033740 006 006 c o n t a c t
0033760 N A M E o r N I L . ) 006 001
0034000 \r \r ( 006 002 f o r 006 001 P
0034020 A I R 006 002 i n 006 001 C H A T .
0034040 P R O T O C O L T Y P E S 006 002
0034060 b i n d 006 001 R E S U L T 006 002
0034100 w h e n 006 001 ( S E T Q R E S
0034120 U L T ( A P P L Y * ( C D R
0034140 P A I R ) \r
0034160
*
0034260 N A M E ) ) \r 006 002
0034300 d o 006 001 ( R E T U R N R E S
0034320 U L T ) ) ) ) \r \r ( 006 004 C H A T
0034340 . T Y P E I N 006 001 \r ( L A M
0034360 B D A ( H O S T W I N D O W
0034400 L O G O P T I O N I N I T S
0034420 T R E A M ) 006 006 006 001
0034440 006 006 ( *
0034460 l m m " 1 4 - O c t - 8 6 1
0034500 1 : 2 8 " ) 006 001 \r ( 006 002
0034520 D E C L A R E 006 001 ( S P E C V
0034540 A R S S T R E A M ) ) 006 006 006 001
0034560
0034600 006 006
0034620 ( * ; " s o t h a t m e
0034640 n u c a n c h a n g e i t
0034660 " ) 006 001 \r ( P R O G (
0034700 ( T H I S P R O C ( T H I S .
0034720 P R O C E S S ) ) \r
0034740 ( D E F A U L T S T R
0034760 E A M T ) \r
0035000 ( S T A T E ( W I N D O W
0035020 P R O P W I N D O W ' C H A
0035040 T S T A T E ) ) \r
0035060 C H A T S T R E A M I
0035100 N S T R E A M W I N D O W S T
0035120 R E A M S T R E A M C H D
0035140 I S P L A Y T Y P E D I S P L
0035160 A Y N A M E C H A T P R O M P
0035200 T W I N D O W \r
0035220 L O C A L E C H O S T R
0035240 E A M ) \r (
0035260 S E T Q C H A T S T R E A M
0035300 ( 006 002 f e t c h 006 001 ( C H A T
0035320 . S T A T E O U T S T R E A M
0035340 ) 006 002 o f 006 001 S T A T E ) )
0035360 \r ( S E T Q
0035400 I N S T R E A M ( 006 002 f e t
0035420 c h 006 001 ( C H A T . S T A T E
0035440 I N S T R E A M ) 006 002 o f 006
0035460 001 S T A T E ) ) \r
0035500 ( P R O C E S S P R O P
0035520 T H I S P R O C ' T T Y E N
0035540 T R Y F N ( F U N C T I O N
0035560 C H A T . T T Y E N T R Y F N )
0035600 ) \r ( P R O
0035620 C E S S P R O P T H I S P R O
0035640 C ' W I N D O W W I N D O W
0035660 ) \r ( S E T
0035700 Q W I N D O W S T R E A M (
0035720 W I N D O W P R O P W I N D O
0035740 W ' D S P ) ) \r
0035760 ( D S P F O N T ( O R
0036000 C H A T . F O N T ( D E F A U
0036020 L T F O N T ' D I S P L A Y )
0036040 ) \r
0036060 W I N D O W S T R E A M )
0036100 \r ( D S P R
0036120 E S E T W I N D O W S T R E A
0036140 M ) \r ( W I
0036160 N D O W P R O P W I N D O W
0036200 ' P R O C E S S ( T H I S . P
0036220 R O C E S S ) ) \r
0036240 ( W I N D O W P R O P W
0036260 I N D O W ' C H A T H O S T
0036300 ( C O N S H O S T L O G O P
0036320 T I O N ) ) \r
0036340 ( R E S E T S A V E N I L
0036360 ( L I S T ( F U N C T I O N
0036400 ( L A M B D A ( W I N D O W
0036420 S T A T E ) \r
0036440
*
0036500 ( A N D R E S E T S T A T
0036520 E ( 006 002 f e t c h 006 001 ( C H
0036540 A T . S T A T E R U N N I N G
0036560 ? ) 006 002 o f 006 001 S T A T E )
0036600 \r
0036620
*
0036660 ( 006 002 C H A T . C L O S E 006 001
0036700 W I N D O W T ) ) ) ) \r
0036720
0036740 W I N
0036760 D O W S T A T E ) ) 006 006 006 001
0037000 006 006 ( * ; \r 006 001
0037020 006 006 " I f a n e r r o r
0037040 o c c u r s , p r o c e s s
0037060 i s k i l l e d , o r H
0037100 A R D R E S E T h a p p e n s
0037120 , t h i s w i l l f l u s
0037140 h t h e c o n n e c t i o n
0037160 e t c " ) 006 001 \r
0037200 ( C O N D \r
0037220 ( ( S E T Q D I S
0037240 P L A Y T Y P E ( S T R E A M
0037260 P R O P I N S T R E A M ' D
0037300 I S P L A Y T Y P E ) ) \r
0037320 ( S E T Q
0037340 D I S P L A Y N A M E ( 006 002
0037360 f e t c h 006 001 ( C H A T D I S
0037400 P L A Y T Y P E D P Y N A M E
0037420 ) 006 002 o f 006 001 D I S P L A Y
0037440 T Y P E ) ) ) ) \r
0037460 ( 006 002 r e p l a c e 006 001
0037500 ( C H A T . S T A T E T Y P E
0037520 O U T P R O C ) 006 002 o f 006 001
0037540 S T A T E 006 002 w i t h 006 001 (
0037560 A D D . P R O C E S S ` ( 006 002
0037600 C H A T . T Y P E O U T 006 001 %
0037620 , W I N D O W \r
0037640
*
0037740 ( Q U O T E %
0037760 , D I S P L A Y N A M E ) \r
0040000
*
0040100 ( Q
0040120 U O T E % , S T A T E ) ) \r
0040140
*
0040240 ' N A M E \r
0040260
*
0040340 ' C H A T . T Y
0040360 P E O U T ) ) \r
0040400 ( C O N D \r
0040420 ( D I S P L A Y T Y P
0040440 E ( 006 002 C H A T . S E T D I S
0040460 P L A Y T Y P E 006 001 I N S T R
0040500 E A M ( 006 002 f e t c h 006 001 (
0040520 C H A T D I S P L A Y T Y P E
0040540 D P Y C O D E ) 006 002 o f 006 001
0040560 \r
0040600
*
0040700 D I S P L
0040720 A Y T Y P E \r
0040740
*
0041020 ) ) ) ) \r
0041040 ( 006 002 C H A T . S C R
0041060 E E N P A R A M S 006 001 S T A T
0041100 E I N S T R E A M W I N D O
0041120 W ) \r ( A N
0041140 D ( N E Q L O G O P T I O N
0041160 ' N O N E ) \r
0041200 ( 006 002 C H A T . L
0041220 O G I N 006 001 H O S T L O G O
0041240 P T I O N W I N D O W S T A
0041260 T E ) ) \r (
0041300 C O N D \r
0041320 ( I N I T S T R E A M ( N
0041340 L S E T Q ( S E T Q S T R E
0041360 A M ( C O N D \r
0041400
*
0041440 ( ( S T R I
0041460 N G P I N I T S T R E A M ) \r
0041500
*
0041560 ( O P E N S T R I N G S T R
0041600 E A M I N I T S T R E A M ) )
0041620 \r
0041640
*
0041700 ( T ( O P E N S T R E A M
0041720 I N I T S T R E A M ' I N P
0041740 U T ) ) ) ) ) ) ) \r
0041760 ( T T Y D I S P L A Y S
0042000 T R E A M W I N D O W S T R E
0042020 A M ) 006 006 006 001
0042040 006 006 ( * ; \r 006 001
0042060
*
0042120 006 006 " S o t h a t
0042140 \ T T Y B A C K G R O U N D f
0042160 l a s h e s t h e c a r e t
0042200 w h e r e w e e x p e c t
0042220 " ) 006 001 \r (
0042240 006 002 b i n d 006 001 O U T P U T S
0042260 T R E A M 006 002 w h i l e 006 001
0042300 ( E Q ( 006 002 f e t c h 006 001 (
0042320 C H A T . S T A T E R U N N I
0042340 N G ? ) 006 002 o f 006 001 S T A T
0042360 E ) \r
0042400
0042420 T ) \r
0042440 006 002 d o 006 001
0042460 ( C O N D \r
0042500 ( ( N U L L
0042520 S T R E A M ) \r
0042540 ( S E
0042560 T Q S T R E A M D E F A U L
0042600 T S T R E A M ) ) ) \r
0042620 ( S E T Q
0042640 O U T P U T S T R E A M ( 006
0042660 002 i f 006 001 ( 006 002 f e t c h 006 001
0042700 ( C H A T . S T A T E L O C
0042720 A L E C H O ) 006 002 o f 006 001 S
0042740 T A T E ) \r
0042760
0043000 006 002 t
0043020 h e n 006 001 ( O R L O C A L E
0043040 C H O S T R E A M ( S E T Q
0043060 L O C A L E C H O S T R E A M \r
0043100
*
0043200 ( C L : M A K E - B R O A D C
0043220 A S T - S T R E A M \r
0043240
*
0043320 C H A
0043340 T S T R E A M \r
0043360
*
0043440 ( G E T S T
0043460 R E A M W I N D O W ' O U T
0043500 P U T ) ) ) ) \r
0043520
0043540 006 002 e
0043560 l s e 006 001 C H A T S T R E A M
0043600 ) ) \r
0043620 ( C O N D \r
0043640 ( ( E Q
0043660 S T R E A M T ) 006 006 006 001
0043700
0043720 006 006 ( * ;
0043740 ; " H a n d l e t e r m i n
0043760 a l s p e c i a l l y " ) 006 001
0044000 \r
0044020 ( O R ( T T Y . P R
0044040 O C E S S P ) \r
0044060
0044100 ( \ W A I T . F O R . T T Y ) )
0044120 \r
0044140 ( C O N D \r
0044160
0044200 ( ( \ S Y S B U F P ) \r
0044220
0044240 ( 006 002 d o 006 001 ( S
0044260 E T Q C H ( \ G E T K E Y )
0044300 ) \r
0044320 ( C
0044340 O N D \r
0044360
0044400 ( ( I L E Q C H \ M A
0044420 X T H I N C H A R ) \r
0044440
0044460 ( B O U T
0044500 O U T P U T S T R E A M ( C
0044520 O N D \r
0044540
*
0044600 ( ( E Q C
0044620 H C H A T . C O N T R O L C H
0044640 A R ) 006 006 006 001 \r
0044660
*
0044740 006 006 ( * ; " C o n
0044760 t r o l i f y i t " ) 006 001 \r
0045000
*
0045060 ( L O G A N D ( 006
0045100 002 C H A T . B I N 006 001 C H A T
0045120 S T R E A M S T A T E ) \r
0045140
*
0045220 3 1 ) )
0045240 \r
0045260
*
0045320 ( ( E Q C H C
0045340 H A T . M E T A C H A R ) 006 006 006
0045360 001 \r
0045400
*
0045440 006
0045460 006 ( * ; " P r e f i x m e
0045500 t a , t u r n o n 2 0 0 q
0045520 b i t " ) 006 001 \r
0045540
*
0045620 ( L O G O R ( 006 002 C H A T . B
0045640 I N 006 001 C H A T S T R E A M
0045660 S T A T E ) \r
0045700
*
0045760 1 2 8 ) ) \r
0046000
*
0046060 ( T C H ) ) ) ) \r
0046100
0046120 ( ( E Q (
0046140 L R S H C H 8 ) \r
0046160
0046200 1
0046220 ) 006 006 006 001
0046240 006 006 ( *
0046260 ; " M E T A c h a r s e
0046300 t = > a s c i i m e t a "
0046320 ) 006 001 \r
0046340
0046360 ( B O U T O U T P U T
0046400 S T R E A M ( L O G O R 1 2
0046420 8 ( L O G A N D C H 1 2 7
0046440 ) ) ) ) \r
0046460
0046500 ( T 006 006 006 001
0046520 006 006 ( *
0046540 ; " N o t i n c h a r s e
0046560 t z e r o , n o t a m e
0046600 t a . M o s t h o s t s
0046620 d o n ' t u n d e r s t a n d
0046640 . ( P R I N T C C O D E C H
0046660 C H A T S T R E A M ) ( C H A
0046700 R S E T C H A T S T R E A M
0046720 0 ) " ) 006 001 \r
0046740
0046760 ( F L A S H W
0047000 I N D O W W I N D O W ) ) )
0047020 006 002 r e p e a t w h i l e 006 001
0047040 ( \ S Y S B U F P ) ) \r
0047060
0047100 ( F O R C E O U T P U T
0047120 C H A T S T R E A M ) ) ) ) \r
0047140
0047160 ( T ( 006 002 u n t i l 006 001
0047200 ( E O F P S T R E A M ) 006
0047220 002 d o 006 001 ( B O U T O U T P
0047240 U T S T R E A M ( \ B I N S
0047260 T R E A M ) ) ) \r
0047300 (
0047320 F O R C E O U T P U T C H A T
0047340 S T R E A M ) \r
0047360 ( C
0047400 L O S E F S T R E A M ) \r
0047420
0047440 ( S E T Q S T R E A M
0047460 ) \r
0047500 ( C O N D \r
0047520
0047540 ( ( S E T Q C H
0047560 A T P R O M P T W I N D O W (
0047600 G E T P R O M P T W I N D O W
0047620 W I N D O W N I L N I L T
0047640 ) ) 006 006 006 001 \r
0047660
*
0047720 006 006 ( * ;
0047740 \r 006 001
0047760
*
0050020 006 006 " I n d i c a t e c o m p
0050040 l e t i o n o f I n p u t
0050060 i f c a m e f r o m m e n
0050100 u c o m m a n d " ) 006 001 \r
0050120
0050140 ( C L E A R W
0050160 C H A T P R O M P T W I N D O W
0050200 ) ) ) ) ) \r
0050220 ( \ T T Y B A C K G
0050240 R O U N D ) ) 006 006 006 001
0050260
0050300 006 006 ( * ; ; " G e
0050320 t h e r e i f w e c l o
0050340 s e c o n n e c t i o n . " )
0050360 006 001 \r ( S E
0050400 L E C T Q ( 006 002 f e t c h 006 001
0050420 ( C H A T . S T A T E R U N
0050440 N I N G ? ) 006 002 o f 006 001 S T
0050460 A T E ) \r
0050500 ( C L O S E ( 006 002 C H A
0050520 T . C L O S E 006 001 W I N D O W
0050540 ) ) \r
0050560 ( A B O R T ( 006 002 C H A T .
0050600 C L O S E 006 001 W I N D O W T
0050620 ) ) \r
0050640 ( N I L 006 006 006 001
0050660
*
0050720 006 006 ( * ; " A l r e
0050740 a d y d e a d . " ) 006 001 ) \r
0050760 ( S H
0051000 O U L D N T ( C O N C A T "
0051020 U n k n o w n s t a t e i n
0051040 C H A T : " ( 006 002 f e t c
0051060 h 006 001 ( C H A T . S T A T E
0051100 R U N N I N G ? ) 006 002 o f 006 001
0051120 S T A T E ) ) ) ) \r
0051140 ( B L O C K ) ) ) ) \r
0051160 \r ( 006 004 C H A T . B I N 006 001 \r
0051200 ( L A M B D A ( O U T S T R
0051220 E A M S T A T E ) 006 006 006 001
0051240
*
0051300 006 006 ( * r d a % : " 2 0 - A
0051320 u g - 8 4 2 3 : 0 9 " ) 006 001 \r
0051340 ( 006 002 u n t i l 006 001 (
0051360 \ S Y S B U F P ) 006 002 b i n d
0051400 006 001 ( F I R S T T I M E _
0051420 T ) 006 002 d o 006 001 ( C O N D \r
0051440
*
0051520 ( F I R S T T I M E ( F O R
0051540 C E O U T P U T O U T S T R E
0051560 A M ) \r
0051600
*
0051640 ( S E T
0051660 Q F I R S T T I M E N I L )
0051700 ) ) \r
0051720
*
0051760 ( \ T T Y B A C K G R O U N D
0052000 ) ) \r ( \ G E T K E Y )
0052020 ) ) \r \r ( 006 004 C H A T . C L O S
0052040 E 006 001 \r ( L A M B D A ( W
0052060 I N D O W A B O R T E D C L
0052100 O S I N G ) 006 006 006 001
0052120
0052140 006 006 ( * l m m " 2
0052160 4 - O c t - 8 6 1 6 : 3 9 " )
0052200 006 001 006 006 006 001 \r
0052220
*
0052260 006 006 ( * ; ;
0052300 " C l o s e c h a t c o n
0052320 n e c t i o n t h a t i s
0052340 u s i n g W I N D O W . A
0052360 l s o s e r v e s a s t h
0052400 e C L O S E F N o f t h i
0052420 s w i n d o w , w h e n C
0052440 L O S I N G i s N I L " ) 006
0052460 001 \r ( 006 002 D E C L A R E
0052500 006 001 ( G L O B A L V A R S H
0052520 I G H L I G H T S H A D E ) ) \r
0052540 ( P R O G ( ( C H A T
0052560 S T A T E ( W I N D O W P R O
0052600 P W I N D O W ' C H A T S T
0052620 A T E ) ) \r
0052640 ( A C T I V E ? ( O P E N W
0052660 P W I N D O W ) ) \r
0052700 I C O N P R O C
0052720 F I L E K E E P ) \r
0052740 ( D E T A C H A L L W
0052760 I N D O W S W I N D O W ) 006 006
0053000 006 001
0053020 006 006 ( *
0053040 ; " R e s t o r e R E P L
0053060 A C E m o d e f o r B I T
0053100 B L T " ) 006 001 \r
0053120 ( D S P O P E R A T I O N
0053140 ' R E P L A C E W I N D O W )
0053160 006 006 006 001
0053200 006 006 ( * ;
0053220 " T u r n s c r o l l i n g
0053240 b a c k o n " ) 006 001 \r
0053260 ( D S P S C R O L L
0053300 ' O N W I N D O W ) \r
0053320 ( C O N D \r
0053340 ( C H A T S
0053360 T A T E ( D E L . P R O C E S
0053400 S ( 006 002 f e t c h 006 001 ( C H
0053420 A T . S T A T E T Y P E O U T
0053440 P R O C ) 006 002 o f 006 001 C H A
0053460 T S T A T E ) ) \r
0053500 ( C O
0053520 N D \r
0053540 ( ( S E T Q
0053560 F I L E ( 006 002 f e t c h 006 001
0053600 ( C H A T . S T A T E T Y P
0053620 E S C R I P T S T R E A M ) 006
0053640 002 o f 006 001 C H A T S T A T E )
0053660 ) \r
0053700 ( C O N D \r
0053720
0053740 ( A C T I
0053760 V E ? ( T E R P R I W I N D
0054000 O W ) \r
0054020
0054040 ( P R I N 1 " C l
0054060 o s i n g " W I N D O W ) \r
0054100
*
0054140 ( P R I N T ( C L O S E F
0054160 F I L E ) \r
0054200
*
0054240 W I N D O W ) ) \r
0054260
0054300 ( T ( C L O S E F F
0054320 I L E ) ) ) ) ) \r
0054340 ( A N
0054360 D A C T I V E ? ( \ C H E C
0054400 K C A R E T W I N D O W ) ) \r
0054420
0054440 ( 006 002 r e p l a c e 006 001
0054460 ( C H A T . S T A T E R U N
0054500 N I N G ? ) 006 002 o f 006 001 ( W
0054520 I N D O W P R O P W I N D O W
0054540 ' C H A T S T A T E N I L )
0054560 006 002 w i t h 006 001 N I L ) \r
0054600
0054620 ( O R A B O R T E D (
0054640 P R O G N ( A L L O W . B U T
0054660 T O N . E V E N T S ) \r
0054700
*
0054740 ( 006 002 C H A T . C L O S E
0054760 . C O N N E C T I O N 006 001 ( 006
0055000 002 f e t c h 006 001 ( C H A T . S
0055020 T A T E I N S T R E A M ) \r
0055040
*
0055140 006 002 o f 006 001 C H A T S T A T E
0055160 ) \r
0055200
*
0055240 ( 006 002 f e t c h 006 001 ( C H A T
0055260 . S T A T E O U T S T R E A M
0055300 ) 006 002 o f 006 001 C H A T S T A
0055320 T E ) ) ) ) ) \r
0055340 ( T ( R E T U R N )
0055360 ) ) \r ( S E
0055400 T Q C H A T W I N D O W L S T
0055420 ( D R E M O V E W I N D O W
0055440 C H A T W I N D O W L S T ) )
0055460 \r ( S E T Q
0055500 P R O C ( W I N D O W P R O
0055520 P W I N D O W ' P R O C E S
0055540 S N I L ) ) 006 006 006 001 \r
0055560
*
0055620 006 006
0055640 ( * ; ; " S a v e t h e
0055660 p r o c e s s r u n n i n g ,
0055700 i f a n y ; d o n ' t
0055720 d o a n y t h i n g w i t h
0055740 i t u n t i l a f t e r
0055760 w e c l o s e t h e w i n
0056000 d o w , i f w e ' r e g o
0056020 i n g t o , s o t h a t
0056040 w i n d o w s d o n ' t f l
0056060 i p a r o u n d e x c e s s
0056100 i v e l y " ) 006 001 \r
0056120 ( W I N D O W P R O P
0056140 W I N D O W ' C L O S E F N
0056160 N I L ) 006 006 006 001
0056200 006 006 ( * ; \r 006 001
0056220 006 006 " C l e a r
0056240 a l l C L O S E f u n c t i
0056260 o n s s o t h a t n e x t
0056300 t i m e t h i s c h a t w
0056320 i n d o w i s r e u s e d
0056340 i t w i l l b e c l e a n
0056360 " ) 006 001 \r (
0056400 C O N D \r
0056420 ( A C T I V E ? 006 006 006 001
0056440
*
0056500 006 006 ( * ; " C h a
0056520 n g e t i t l e t o i n d
0056540 i c a t e c l o s u r e " ) 006
0056560 001 \r
0056600 ( 006 002 C H A T . D E
0056620 A C T I V A T E . W I N D O W 006
0056640 001 W I N D O W ) \r
0056660 ( C
0056700 O N D \r
0056720 ( ( A N D
0056740 ( N O T ( S E T Q K E E P
0056760 ( W I N D O W P R O P W I N
0057000 D O W ' K E E P C H A T N I
0057020 L ) ) ) \r
0057040
0057060 ( N O T C L O S I N G ) \r
0057100
0057120 ( O R
0057140 C L O S E C H A T W I N D O W
0057160 F L G ( N E Q W I N D O W
0057200 C H A T W I N D O W ) ) ) \r
0057220
0057240 ( C L O S E W W I
0057260 N D O W ) ) ) \r
0057300 ( C O N
0057320 D \r
0057340 ( ( E Q K E
0057360 E P ' N E W ) 006 006 006 001
0057400 006 006 ( * ; \r
0057420 006 001
0057440 006 006
0057460 " I n v o k e d v i a t h e
0057500 N e w c o m m a n d - -
0057520 s t a r t u p a n e w c
0057540 o n n e c t i o n i n t h i
0057560 s w i n d o w " ) 006 001 \r
0057600
0057620 ( A D D . P R O C E S
0057640 S ( L I S T ( F U N C T I O
0057660 N C H A T ) \r
0057700
*
0057740 N I L N I L N I L W
0057760 I N D O W T ) ) ) ) \r
0060000
0060020 ( C O N D \r
0060040 ( P R
0060060 O C 006 006 006 001
0060100 006 006 ( *
0060120 ; \r 006 001
0060140
0060160 006 006 " D o
0060200 t h i s l a s t , b e c a
0060220 u s e i f w e a r e P R
0060240 O C , D E L . P R O C E S S
0060260 w o n ' t r e t u r n " ) 006 001
0060300 \r
0060320 ( D
0060340 E L . P R O C E S S P R O C )
0060360 ) ) ) \r
0060400 ( ( A N D ( S E T Q I C O
0060420 N ( W I N D O W P R O P W I
0060440 N D O W ' I C O N W I N D O W
0060460 ) ) \r
0060500 ( O P E N W P I C
0060520 O N ) ) 006 006 006 001
0060540 006 006 ( * ;
0060560 \r 006 001
0060600
*
0060640 006 006 " S h a d e t h e i c
0060660 o n i f t h e c h a t w
0060700 i n d o w i s c u r r e n t
0060720 l y c l o s e d " ) 006 001 \r
0060740 ( I C O
0060760 N W . S H A D E I C O N H I
0061000 G H L I G H T S H A D E ) 006 006 006
0061020 001 006 006 ( * ; \r 006 001
0061040
*
0061100 006 006 " A n d
0061120 a r r a n g e f o r m i d
0061140 d l e - b u t t o n t o o f
0061160 f e r R e c o n n e c t o p
0061200 t i o n " ) 006 001 \r
0061220 ( W I N D O W P R
0061240 O P I C O N ' O L D B U T T
0061260 O N E V E N T F N ( W I N D O
0061300 W P R O P I C O N ' B U T T
0061320 O N E V E N T F N \r
0061340
*
0061420 ( F U N C T I O N C H A T
0061440 . R E C O N N E C T ) ) ) ) ) )
0061460 ) ) \r \r ( 006 004 C H A T . D E A C
0061500 T I V A T E . W I N D O W 006 001 \r
0061520 ( L A M B D A ( W I N D O
0061540 W ) 006 006 006 001
0061560
*
0061620 006 006 ( * b v m % : " 4 -
0061640 S e p - 8 5 1 9 : 4 1 " ) 006 001
0061660 \r ( L E T ( ( T I T L
0061700 E ( W I N D O W P R O P W I
0061720 N D O W ' T I T L E ) ) ) \r
0061740 ( W I N D O W P
0061760 R O P W I N D O W ' T I T L
0062000 E ( C O N C A T ( S U B S T
0062020 R I N G T I T L E 1 ( I P
0062040 L U S ( O R ( S T R P O S
0062060 " , h e i g h t " T I T L E
0062100 ) \r
0062120
*
0062200 0 ) \r
0062220
*
0062320 - 1 ) ) \r
0062340
*
0062400 " , c l o s e d " ) ) \r
0062420 ( W I N D O W P
0062440 R O P W I N D O W ' B U T T
0062460 O N E V E N T F N ( F U N C T
0062500 I O N C H A T . R E C O N N E
0062520 C T ) ) \r ( W
0062540 I N D O W P R O P W I N D O W
0062560 ' E X P A N D F N N I L ) )
0062600 ) ) \r \r ( 006 004 C H A T . C L O S
0062620 E F N 006 001 \r ( L A M B D A
0062640 ( W I N D O W ) 006 006 006 001
0062660
*
0062720 006 006 ( * l m m
0062740 " 2 4 - O c t - 8 6 1 6 : 3 9
0062760 " ) 006 001 006 006 006 001 \r
0063000
*
0063040 006 006 ( *
0063060 ; ; " C l o s e t h i s c
0063100 h a t c o n n e c t i o n m
0063120 a k i n g s u r e t h a t
0063140 t h e w i n d o w g e t s
0063160 c l o s e d . U s e d a s
0063200 C L O S E F N o f t h e
0063220 c h a t w i n d o w . " ) 006 001
0063240 \r ( 006 002 C H A T . C L O
0063260 S E 006 001 W I N D O W N I L
0063300 T ) ) ) \r \r ( 006 004 C H A T . C L
0063320 O S E . C O N N E C T I O N 006 001
0063340 \r ( L A M B D A ( I N S T
0063360 R E A M O U T S T R E A M ) 006
0063400 006 006 001
0063420
0063440 006 006 ( * r d a % : " 2 3
0063460 - A u g - 8 4 1 5 : 2 5 " ) 006
0063500 001 \r \r
0063520 006 006 ( * * C l
0063540 o s e t h e s t r e a m s
0063560 f o r a c o n n e c t i o n
0063600 i f t h e y a r e o p e
0063620 n . ) 006 001 \r \r ( C O N D
0063640 \r ( ( O P E N P
0063660 I N S T R E A M ) \r
0063700 ( C L O S E F I N S T R E
0063720 A M ) ) ) \r ( C O N D \r
0063740 ( ( O P E N P O
0063760 U T S T R E A M ) \r
0064000 ( C L O S E F O U T S T R
0064020 E A M ) ) ) ) ) \r \r ( 006 004 C H A
0064040 T . L O G I N 006 001 \r ( L A M
0064060 B D A ( H O S T O P T I O N
0064100 W I N D O W C H A T S T A T
0064120 E ) 006 006 006 001
0064140 006 006 ( *
0064160 l m m " 7 - J a n - 8 6 1
0064200 1 : 5 5 " ) 006 001 006 006 006 001 \r
0064220
*
0064260 006
0064300 006 ( * ; ; \r 006 001
0064320 006 006 " L o g i n
0064340 t o H O S T . I f a j
0064360 o b a l r e a d y e x i s t
0064400 s o n H O S T , A t t a c
0064420 h t o i t u n l e s s O
0064440 P T I O N o v e r r i d e s .
0064460 " ) 006 001 \r ( P R O G (
0064500 ( O S T Y P E ( G E T O S T Y
0064520 P E H O S T ) ) \r
0064540 ( L O G I N F O ( G
0064560 E T H O S T I N F O H O S T
0064600 ' L O G I N F O ) ) \r
0064620 ( S T A T E ( W I
0064640 N D O W P R O P W I N D O W
0064660 ' C H A T S T A T E ) ) \r
0064700 N A M E / P A S
0064720 S C O M I N S T R E A M O
0064740 U T S T R E A M ) \r
0064760 ( O R L O G I N F O
0065000 ( R E T U R N ) ) \r
0065020 ( S E T Q I N S T R E
0065040 A M ( 006 002 f e t c h 006 001 ( C
0065060 H A T . S T A T E I N S T R E
0065100 A M ) 006 002 o f 006 001 S T A T E
0065120 ) ) \r ( S E
0065140 T Q N A M E / P A S S ( \ I
0065160 N T E R N A L / G E T P A S S W
0065200 O R D H O S T N I L N I L
0065220 N I L N I L O S T Y P E )
0065240 ) \r ( S E T
0065260 Q C O M ( C O N D \r
0065300
0065320 ( O P T I O N ) \r
0065340
0065360 ( ( A S S O C ' A T T A
0065400 C H L O G I N F O ) \r
0065420
0065440 ( O R ( 006 002 C H A T .
0065460 L O G I N F O 006 001 I N S T R E
0065500 A M H O S T ( C A R N A M
0065520 E / P A S S ) ) \r
0065540
0065560 ' L O G I N ) ) \r
0065600
0065620 ( T 006 006 006 001
0065640
0065660 006 006 ( * ; \r 006 001
0065700
0065720 006 006 " D o
0065740 n ' t k n o w h o w t o
0065760 d o a n y t h i n g b u t
0066000 l o g i n , s o s i l l y
0066020 t o t r y a n y t h i n g
0066040 e l s e " ) 006 001 \r
0066060
0066100 ' L O G I N ) ) ) \r
0066120 ( C O N D \r
0066140 ( ( N U L L
0066160 ( S E T Q L O G I N F O (
0066200 A S S O C C O M L O G I N F
0066220 O ) ) ) \r
0066240 ( p r i n t o u t P R O
0066260 M P T W I N D O W T " L o g
0066300 i n o p t i o n " C O M
0066320 " n o t i m p l e m e n t e
0066340 d f o r t h i s t y p e
0066360 o f h o s t " ) ) \r
0066400 ( T ( S E T Q
0066420 O U T S T R E A M ( 006 002 f e
0066440 t c h 006 001 ( C H A T . S T A T
0066460 E O U T S T R E A M ) 006 002 o
0066500 f 006 001 S T A T E ) ) \r
0066520 ( 006 002 f
0066540 o r 006 001 X 006 002 i n 006 001 ( C
0066560 D R L O G I N F O ) 006 002 d o
0066600 006 001 ( S E L E C T Q X \r
0066620
*
0066660 ( C R
0066700 ( B O U T O U T S T R E A M
0066720 ( C H A R C O D E C R ) ) \r
0066740
*
0067020 ( F O R C E O U T P U T
0067040 O U T S T R E A M ) ) \r
0067060
*
0067120 ( L F (
0067140 B O U T O U T S T R E A M (
0067160 C H A R C O D E L F ) ) \r
0067200
*
0067260 ( F O R C E O U T P U T O U
0067300 T S T R E A M ) ) \r
0067320
*
0067360 ( U S E R N A
0067400 M E ( P R I N 3 ( C A R N
0067420 A M E / P A S S ) \r
0067440
*
0067520 O U T S T R
0067540 E A M ) ) \r
0067560
*
0067620 ( P A S S W O R D (
0067640 P R I N 3 ( \ D E C R Y P T .
0067660 P W D ( C D R N A M E / P A
0067700 S S ) ) \r
0067720
*
0070000 O U T S T R E A M ) )
0070020 \r
0070040
*
0070100 ( W A I T 006 006 006 001 006 006 (
0070120 * ; " S o m e s y s t e m
0070140 s d o n o t p e r m i t
0070160 t y p e a h e a d " ) 006 001 \r
0070200
*
0070260 ( C O N D \r
0070300
*
0070360 ( ( N O T ( 006 002 C H A T . F
0070400 L U S H & W A I T 006 001 I N S T
0070420 R E A M ) ) 006 006 006 001 \r
0070440
*
0070520 006 006 ( * ; "
0070540 C o u l d n ' t s y n c , s
0070560 o w a i t l o n g e r . " )
0070600 006 001 \r
0070620
*
0070660 ( D I S
0070700 M I S S C H A T . W A I T . T
0070720 I M E ) ) ) \r
0070740
*
0071000 ( D I S
0071020 M I S S C H A T . W A I T . T
0071040 I M E ) ) \r
0071060
*
0071120 ( P R I N 3 X O U
0071140 T S T R E A M ) ) ) \r
0071160 ( F O R C
0071200 E O U T P U T O U T S T R E A
0071220 M ) ) ) ) ) ) \r ) \r \r ( D E F G
0071240 L O B A L V A R 006 002 C H A T .
0071260 T T Y . P R O C E S S 006 001 T )
0071300 \r \r \r \r \r 006 004 ( * ; " C H A
0071320 T s t r e a m s " ) 006 001 \r \r (
0071340 D E F I N E Q \r \r ( 006 004 A D D .
0071360 C H A T . M E S S A G E 006 001 \r
0071400 ( L A M B D A ( S T R E A M
0071420 M S G ) 006 006 006 001
0071440
*
0071500 006 006 ( * r d a % : " 2 2 - A
0071520 u g - 8 4 1 8 : 0 7 " ) 006 001 \r
0071540 ( S T R E A M P R O P
0071560 S T R E A M ' M E S S A G E
0071600 ( C O N C A T ( O R ( S T R
0071620 E A M P R O P S T R E A M '
0071640 M E S S A G E ) \r
0071660
*
0071720 " " ) \r
0071740
*
0072000 M S G ) ) ) ) \r \r ( 006 004 C H A T
0072020 . L O G I N F O 006 001 \r ( L A
0072040 M B D A ( I N S T R E A M H
0072060 O S T N A M E ) 006 006 006 001
0072100
0072120 006 006 ( *
0072140 r d a % : " 2 2 - A u g - 8
0072160 4 1 7 : 0 4 " ) 006 001 \r
0072200 \r
0072220 006 006 ( * * I n v o k e t
0072240 h e L O G I N F O m e t h o
0072260 d f o r I N S T R E A M ,
0072300 i f a n y . ) 006 001 \r \r
0072320 ( P R O G ( ( F N ( S T R E
0072340 A M P R O P I N S T R E A M
0072360 ' L O G I N F O ) ) ) \r
0072400 ( R E T U R N ( C
0072420 O N D \r
0072440 ( ( F N T Y P
0072460 F N ) \r
0072500 ( A P P L
0072520 Y * F N H O S T N A M E )
0072540 ) ) ) ) ) ) \r \r ( 006 004 C H A T .
0072560 S E N D S C R E E N P A R A M S
0072600 006 001 \r ( L A M B D A ( I N
0072620 S T R E A M H E I G H T W I
0072640 D T H ) 006 006 006 001
0072660
0072700 006 006 ( * e j s % : "
0072720 1 3 - N o v - 8 4 1 5 : 3 3 "
0072740 ) 006 001 \r \r
0072760 006 006 ( * *
0073000 I n v o k e t h e S E N D S
0073020 C R E E N P A R A M S m e t h
0073040 o d f o r I N S T R E A M ,
0073060 i f a n y . ) 006 001 \r \r
0073100 ( P R O G ( ( F N ( S T R
0073120 E A M P R O P I N S T R E A M
0073140 ' S E N D S C R E E N P A R A
0073160 M S ) ) ) \r
0073200 ( R E T U R N ( C O N D \r
0073220
0073240 ( ( F N T Y P F N ) \r
0073260
0073300 ( A P P L Y * F N
0073320 I N S T R E A M H E I G H T
0073340 W I D T H ) ) ) ) ) ) ) \r \r ( 006
0073360 004 C H A T . S E T D I S P L A Y
0073400 T Y P E 006 001 \r ( L A M B D A
0073420 ( I N S T R E A M C O D E )
0073440 006 006 006 001
0073460
0073500 006 006 ( * e j s
0073520 % : " 1 3 - N o v - 8 4 1 5
0073540 : 3 5 " ) 006 001 \r
0073560 \r 006 006 (
0073600 * * I n v o k e t h e S
0073620 E T D I S P L A Y T Y P E m e
0073640 t h o d f o r I N S T R E A
0073660 M . ) 006 001 \r \r ( P R O G
0073700 ( ( F N ( S T R E A M P R O
0073720 P I N S T R E A M ' S E T D
0073740 I S P L A Y T Y P E ) ) ) \r
0073760 ( R E T U R N
0074000 ( A N D ( N U M B E R P C O
0074020 D E ) \r
0074040 ( C O N D
0074060 \r
0074100 ( ( F N T
0074120 Y P F N ) \r
0074140
0074160 ( A P P L Y * F N I N S
0074200 T R E A M C O D E ) ) ) ) ) )
0074220 ) ) \r \r ( 006 004 C H A T . L O G I
0074240 N F O 006 001 \r ( L A M B D A
0074260 ( I N S T R E A M H O S T N
0074300 A M E ) 006 006 006 001
0074320
0074340 006 006 ( * r d a %
0074360 : " 2 2 - A u g - 8 4 1 7 :
0074400 0 4 " ) 006 001 \r
0074420 \r 006 006 ( *
0074440 * I n v o k e t h e L O
0074460 G I N F O m e t h o d f o r
0074500 I N S T R E A M , i f a n
0074520 y . ) 006 001 \r \r ( P R O G
0074540 ( ( F N ( S T R E A M P R O
0074560 P I N S T R E A M ' L O G I
0074600 N F O ) ) ) \r
0074620 ( R E T U R N ( C O N D \r
0074640
0074660 ( ( F N T Y P F N ) \r
0074700
0074720 ( A P P L Y * F N
0074740 H O S T N A M E ) ) ) ) ) )
0074760 ) \r \r ( 006 004 C H A T . F L U S H
0075000 & W A I T 006 001 \r ( L A M B D
0075020 A ( I N S T R E A M ) 006 006 006 001
0075040
*
0075100 006 006 ( * r d
0075120 a % : " 2 1 - A u g - 8 4 1
0075140 3 : 4 8 " ) 006 001 \r
0075160 \r 006 006
0075200 ( * * I n v o k e t h e
0075220 F L U S H & W A I T m e t h o
0075240 d f o r I N S T R E A M ) 006
0075260 001 \r \r ( P R O G ( ( F
0075300 N ( S T R E A M P R O P I N
0075320 S T R E A M ' F L U S H & W A
0075340 I T ) ) ) \r
0075360 ( R E T U R N ( C O N D \r
0075400
0075420 ( ( F N T Y P F N ) \r
0075440
0075460 ( A P P L Y * F N
0075500 I N S T R E A M ) ) ) ) ) ) ) \r
0075520 \r ( 006 004 C H A T . E N D O F S T
0075540 R E A M O P 006 001 \r ( L A M B
0075560 D A ( S T R E A M ) 006 006 006 001
0075600
*
0075640 006 006 ( * r
0075660 d a % : " 2 4 - A u g - 8 4
0075700 2 2 : 5 2 " ) 006 001 \r
0075720 \r 006
0075740 006 ( * * R e t u r n - 1
0075760 t o i n d i c a t e E O S
0076000 t o C H A T , a n d r e s
0076020 t o r e t h e s t r e a m s
0076040 E O S o p i n c a s e \r
0076060 006 001 006 006 i t
0076100 ' s n e e d e d f o r o t
0076120 h e r t h i n g s . ) 006 001 \r \r
0076140 ( 006 002 r e p l a c e 006 001
0076160 E N D O F S T R E A M O P 006
0076200 002 o f 006 001 S T R E A M 006 002 w
0076220 i t h 006 001 ( O R ( S T R E A
0076240 M P R O P S T R E A M ' E O
0076260 S O P ) \r
0076300
*
0076340 ( F U N C T I O N \ E O
0076360 S E R R O R ) ) ) \r - 1
0076400 ) ) \r \r ( 006 004 C H A T . O P T I
0076420 O N M E N U 006 001 \r ( L A M B
0076440 D A ( I N S T R E A M ) 006 006 006
0076460 001
0076500
0076520 006 006 ( * e
0076540 j s % : " 2 3 - J u n - 8 5
0076560 1 7 : 0 4 " ) 006 001 \r
0076600 \r 006
0076620 006 ( * * A p p l y t h e
0076640 m e n u - b u i l d i n g m e
0076660 t h o d f o r I N S T R E A
0076700 M , i f a n y . ) 006 001 \r \r
0076720 ( L E T * ( ( F N ( S
0076740 T R E A M P R O P I N S T R E
0076760 A M ' O P T I O N M E N U ) )
0077000 \r ( M E N
0077020 U ( C O N D \r
0077040 ( ( F N
0077060 T Y P F N ) \r
0077100 ( A P
0077120 P L Y * F N I N S T R E A M
0077140 ) ) \r
0077160 ( ( 006 002 t y p e ?
0077200 006 001 M E N U F N ) \r
0077220
0077240 F N ) ) ) ) \r
0077260 ( A N D M E N U ( 006 002 F
0077300 E T C H 006 001 ( M E N U I T E
0077320 M S ) \r
0077340 M
0077360 E N U ) ) ) ) ) \r ) \r \r \r \r 006 004
0077400 ( * ; " C H A T t y p e o
0077420 u t " ) 006 001 \r \r ( D E F I N E Q
0077440 \r \r ( 006 004 C H A T . T Y P E O U
0077460 T 006 001 \r ( L A M B D A ( W
0077500 I N D O W D P Y N A M E C H
0077520 A T . S T A T E ) 006 006 006 001
0077540
0077560 006 006 ( * e d i t e d
0077600 % : " 2 0 - S e p - 8 5 1 2
0077620 : 2 3 " ) 006 001 \r ( 006 002 b
0077640 i n d 006 001 ( C N T _ 1 ) \r
0077660 H A N D L E
0077700 C H A R F N M S G C H I N
0077720 S T R E A M O U T S T R E A M
0077740 T Y P E S C R I P T S T R E A
0077760 M C R P E N D I N G T E R M
0100000 . S T A T E \r 006 002
0100020 f i r s t 006 001 ( S E T Q I N
0100040 S T R E A M ( 006 002 f e t c h 006
0100060 001 ( C H A T . S T A T E I N
0100100 S T R E A M ) 006 002 o f 006 001 C
0100120 H A T . S T A T E ) ) \r
0100140 ( S E T Q H
0100160 A N D L E C H A R F N ( C A D
0100200 R ( F A S S O C D P Y N A M
0100220 E C H A T . D R I V E R T Y P
0100240 E S ) ) ) \r
0100260 ( 006 002 r e p l a c e 006 001
0100300 ( C H A T . S T A T E T E R M
0100320 . S T A T E ) 006 002 o f 006 001 C
0100340 H A T . S T A T E 006 002 w i t h
0100360 006 001 ( S E T Q T E R M . S T
0100400 A T E \r
0100420
*
0100500 ( A P P L Y * ( C
0100520 A D D R ( F A S S O C D P Y
0100540 N A M E \r
0100560
*
0100660 C H A T .
0100700 D R I V E R T Y P E S \r
0100720
*
0101040 ) ) \r
0101060
*
0101160 C H A T . S T A T E ) ) ) \r
0101200 ( C O N D
0101220 \r
0101240 ( ( E Q D P Y N A M E ' T
0101260 E D I T ) \r
0101300 ( S E T Q O U T
0101320 S T R E A M ( W I N D O W P R
0101340 O P W I N D O W ' T E X T S
0101360 T R E A M ) ) ) \r
0101400 ( T ( S E T
0101420 Q O U T S T R E A M ( W I N
0101440 D O W P R O P W I N D O W '
0101460 D S P ) ) ) ) 006 006 006 001 \r
0101500
*
0101560 006 006 ( * ;
0101600 " T E R M . H O M E C H A T
0101620 . S T A T E " ) 006 001 \r
0101640 006 002 w h i l e 006 001 ( I G E
0101660 Q ( S E T Q C H ( B I N
0101700 I N S T R E A M ) ) \r
0101720 0 )
0101740 006 002 d o 006 001 ( 006 002 w h i l e
0101760 006 001 ( 006 002 f e t c h 006 001 ( C
0102000 H A T . S T A T E H E L D )
0102020 006 002 o f 006 001 C H A T . S T A T
0102040 E ) 006 002 d o 006 001 ( B L O C K
0102060 ) ) \r
0102100 ( \ C H
0102120 E C K C A R E T O U T S T R E
0102140 A M ) \r
0102160 ( C O
0102200 N D \r
0102220 (
0102240 ( S E T Q M S G ( S T R E A
0102260 M P R O P I N S T R E A M '
0102300 M E S S A G E ) ) \r
0102320
0102340 ( P R I N 1 M S
0102360 G O U T S T R E A M ) \r
0102400
0102420 ( S T R E A
0102440 M P R O P I N S T R E A M '
0102460 M E S S A G E N I L ) ) ) 006
0102500 006 006 001 \r
0102520
*
0102560 006 006 ( * ; \r 006 001
0102600
0102620 006 006 " P r i n t a n y
0102640 p r o t o c o l r e l a t e d
0102660 m s g s t h a t m i g h t
0102700 h a v e c o m e a l o n g
0102720 w h i l e w e w h e r e
0102740 a s l e e p " ) 006 001 \r
0102760
0103000 ( S P R E A D A P P L Y
0103020 * H A N D L E C H A R F N (
0103040 S E T Q C H ( L O G A N D
0103060 C H ( M A S K . 1 ' S 0 7
0103100 ) ) ) \r
0103120
0103140 C H A T . S T A T E T
0103160 E R M . S T A T E ) \r
0103200
0103220 ( C O N D \r
0103240
0103260 ( ( S E T Q T Y P
0103300 E S C R I P T S T R E A M ( 006
0103320 002 f e t c h 006 001 ( C H A T . S
0103340 T A T E T Y P E S C R I P T S
0103360 T R E A M ) 006 002 o f 006 001 \r
0103400
*
0103520 C H A T . S
0103540 T A T E \r
0103560
*
0103640 ) ) \r
0103660
0103700 ( C O N D \r
0103720
0103740 ( ( S E L C H A R Q
0103760 C H \r
0104000
0104020 ( C R ( P
0104040 R O G 1 C R P E N D I N G (
0104060 S E T Q C R P E N D I N G T
0104100 ) ) ) \r
0104120
0104140 ( L F ( C
0104160 O N D \r
0104200
*
0104240 ( C R P E N D I N G ( \ O U
0104260 T C H A R T Y P E S C R I P T
0104300 S T R E A M ( C H A R C O D E
0104320 E O L ) ) 006 006 006 001 \r
0104340
*
0104400 006 006 (
0104420 * ; \r 006 001
0104440
0104460 006 006 " H a v
0104500 e t h e t y p e s c r i p t
0104520 p u t t u r n c r l f i
0104540 n t o w h a t e v e r i t
0104560 l i k e s f o r e o l " ) 006
0104600 001 \r
0104620
*
0104660 ( S E T Q C R P E
0104700 N D I N G N I L ) ) \r
0104720
*
0104760 ( T T ) ) )
0105000 \r
0105020
0105040 ( P R O G N ( C
0105060 O N D \r
0105100
*
0105140 ( C R P E N D I N G (
0105160 \ B O U T T Y P E S C R I P T
0105200 S T R E A M ( C H A R C O D E
0105220 C R ) ) \r
0105240
*
0105300 ( S E
0105320 T Q C R P E N D I N G N I L
0105340 ) ) ) \r
0105360
*
0105420 T ) ) \r
0105440
0105460 ( \ B O U T T Y P
0105500 E S C R I P T S T R E A M C H
0105520 ) ) ) ) ) \r
0105540 (
0105560 C O N D \r
0105600
0105620 ( C H A T D E B U G F L G (
0105640 C O N D \r
0105660
*
0105720 ( ( O R ( E Q C H A T D
0105740 E B U G F L G T ) \r
0105760
*
0106020 ( I G
0106040 R E A T E R P ( 006 002 a d d 006 001
0106060 C N T 1 ) \r
0106100
*
0106160 C H A T D E B U G F L G ) ) \r
0106200
*
0106240 ( B
0106260 L O C K ) \r
0106300
*
0106340 ( S E T Q C N T 1 )
0106360 ) ) ) ) \r 006 002 f i
0106400 n a l l y 006 001 ( S E L E C T Q
0106420 C H \r
0106440 ( - 1 ( 006 002 C H
0106460 A T . T Y P E O U T . C L O S E
0106500 006 001 W I N D O W O U T S T R
0106520 E A M C H A T . S T A T E '
0106540 C L O S E " c l o s e d " ) )
0106560 \r
0106600 ( - 2 ( 006 002 C H A T .
0106620 T Y P E O U T . C L O S E 006 001
0106640 W I N D O W O U T S T R E A M
0106660 C H A T . S T A T E ' A B O
0106700 R T " a b o r t e d " ) ) \r
0106720
0106740 ( 006 002 C H A T . T Y P E O U
0106760 T . C L O S E 006 001 W I N D O W
0107000 O U T S T R E A M C H A T .
0107020 S T A T E ' C L O S E " c l
0107040 o s e d s o m e h o w " ) ) \r
0107060 ( C O
0107100 N D \r
0107120 ( ( N O T ( O P E N W P
0107140 W I N D O W ) ) \r
0107160 ( D E L .
0107200 P R O C E S S ( W I N D O W P
0107220 R O P W I N D O W ' P R O C
0107240 E S S ) ) ) ) ) ) ) \r \r ( 006 004 C
0107260 H A T . T Y P E O U T . C L O S
0107300 E 006 001 \r ( L A M B D A ( W
0107320 I N D O W O U T S T R E A M
0107340 C H A T . S T A T E N E W S T
0107360 A T E M S G ) 006 006 006 001
0107400 006 006 ( * b v m % :
0107420 " 5 - S e p - 8 5 1 5 : 2 9
0107440 " ) 006 001 \r ( C O N D \r
0107460 ( ( O P E N W P W
0107500 I N D O W ) \r (
0107520 p r i n t o u t O U T S T R E
0107540 A M T " [ C o n n e c t i o
0107560 n " M S G " b y r e m
0107600 o t e h o s t ] " T ) ) ) \r
0107620 ( 006 002 r e p l a c e 006 001
0107640 ( C H A T . S T A T E R U N
0107660 N I N G ? ) 006 002 o f 006 001 C H
0107700 A T . S T A T E 006 002 w i t h 006
0107720 001 N E W S T A T E ) ) ) \r \r (
0107740 006 004 C H A T . D I D . R E S H A
0107760 P E 006 001 \r ( L A M B D A (
0110000 C H A T . S T A T E ) \r
0110020 ( 006 002 D E C L A R E 006 001 ( U S
0110040 E D F R E E I N S T R E A M
0110060 D S P ) ) 006 006 006 001
0110100
0110120 006 006 ( * e j s % : " 1 2 -
0110140 M a y - 8 5 1 5 : 2 3 " ) 006 001
0110160 \r
0110200
*
0110240 006 006
0110260 ( * I n v o k e d i n t h
0110300 e t y p e - o u t p r o c e
0110320 s s \r 006 001
0110340
*
0110420 006 006 w h e n w i n d o w
0110440 i s r e s h a p e d ) 006 001 \r
0110460 ( 006 002 w i t h 006 001 C H
0110500 A T . S T A T E C H A T . S T
0110520 A T E ( 006 002 C H A T . S C R E
0110540 E N P A R A M S 006 001 C H A T .
0110560 S T A T E I N S T R E A M D
0110600 S P ) \r ( T
0110620 E R M . R E S E T . D I S P L A
0110640 Y . P A R M S C H A T . S T A
0110660 T E ) ) ) ) \r \r ( 006 004 C H A T .
0110700 S C R E E N P A R A M S 006 001 \r
0110720 ( L A M B D A ( C H A T . S
0110740 T A T E I N S T R E A M W I
0110760 N D O W ) 006 006 006 001
0111000
0111020 006 006 ( * e j s % : " 1 2 - M
0111040 a y - 8 5 1 5 : 5 1 " ) 006 001 \r
0111060 \r
0111100 006 006 ( * * S e n d
0111120 s s c r e e n w i d t h ,
0111140 h e i g h t t o p a r t n e
0111160 r a n d u p d a t e s t i
0111200 t l e . \r 006 001
0111220 006 006 I f I N S T R E A M i
0111240 s N I L t h e n o n l y
0111260 u p d a t e t i t l e . ) 006 001
0111300 \r \r ( P R O G ( ( H E
0111320 I G H T ( I M I N ( I Q U O
0111340 T I E N T ( W I N D O W P R O
0111360 P W I N D O W ' H E I G H T
0111400 ) \r
0111420
0111440 ( I A B S ( D S P L I N E
0111460 F E E D N I L ( W I N D O W
0111500 P R O P W I N D O W ' D S P
0111520 ) ) ) ) \r
0111540 1 2
0111560 7 ) ) \r (
0111600 W I D T H ( I M I N ( L I N
0111620 E L E N G T H N I L W I N D
0111640 O W ) \r
0111660 1 2 7 )
0111700 ) \r ( T I
0111720 T L E ( W I N D O W P R O P
0111740 W I N D O W ' T I T L E ) ) \r
0111760 E M A C S
0112000 M O D E T I T L E M I D D L E
0112020 ) \r ( C O N
0112040 D \r (
0112060 I N S T R E A M ( 006 002 C H A T
0112100 . S E N D S C R E E N P A R A M
0112120 S 006 001 I N S T R E A M H E I
0112140 G H T W I D T H ) ) ) \r
0112160 ( W I N D O W P R
0112200 O P W I N D O W ' T I T L E
0112220 ( C O N C A T ( S U B S T R
0112240 I N G T I T L E 1 ( S U B
0112260 1 ( O R ( S E T Q T I T L
0112300 E M I D D L E \r
0112320
*
0112420 ( S T R P O S " , h e i
0112440 g h t " T I T L E ) ) \r
0112460
*
0112560 0 ) ) ) \r
0112600
*
0112640 " , h e i g h t
0112660 = " H E I G H T " , w i
0112700 d t h = " W I D T H \r
0112720
*
0112760 ( C O N D \r
0113000
*
0113040 ( ( O
0113060 R ( S E T Q E M A C S M O D
0113100 E ( 006 002 f e t c h 006 001 ( C H
0113120 A T . S T A T E C H A T I N E
0113140 M A C S ) \r
0113160
*
0113240 006 002 o f
0113260 006 001 C H A T . S T A T E ) ) \r
0113300
*
0113360 ( A N D T I T L E M I D
0113400 D L E ( N O T ( F I X P (
0113420 N T H C H A R T I T L E - 1
0113440 ) ) ) ) ) \r
0113460
*
0113520 ( C O N C A T " ,
0113540 E m a c s " ( C O N D \r
0113560
*
0113660 ( E M A C S M O D E " O
0113700 N " ) \r
0113720
*
0114000 ( T " O F F
0114020 " ) ) ) ) \r
0114040
*
0114100 ( T " " ) ) ) ) ) ) )
0114120 \r ) \r \r \r \r 006 004 ( * ; " w i
0114140 n d o w s t u f f " ) 006 001 \r \r
0114160 ( D E F I N E Q \r \r ( 006 004 G E T
0114200 C H A T W I N D O W 006 001 \r (
0114220 L A M B D A ( H O S T W I N
0114240 D O W D P Y T Y P E ) 006 006 006 001
0114260
0114300 006 006
0114320 ( * b v m % : " 5 - S e p
0114340 - 8 5 1 2 : 0 4 " ) 006 001 \r
0114360 \r
0114400 006 006 ( * R e t u r n a
0114420 w i n d o w , p o s s i b l
0114440 y n e w , t o r u n a
0114460 c h a t c o n n e c t i o n
0114500 t o H O S T . \r 006 001
0114520 006 006 U s e s W I N D
0114540 O W i f p o s s i b l e ) 006
0114560 001 \r \r ( P R O G ( ( T
0114600 I T L E ( C O N C A T ( L -
0114620 C A S E D P Y T Y P E T ) \r
0114640
0114660 " C h a t
0114700 c o n n e c t i o n t o "
0114720 H O S T ) ) \r
0114740 D S P S T A T E ) \r
0114760 ( C O N D \r
0115000 ( ( A N D
0115020 ( O R ( W I N D O W P W I N
0115040 D O W ) \r
0115060 ( W I N
0115100 D O W P ( S E T Q W I N D O
0115120 W C H A T W I N D O W ) ) ) \r
0115140
0115160 ( O R ( N O T ( S E T
0115200 Q S T A T E ( W I N D O W P
0115220 R O P W I N D O W ' C H A T
0115240 S T A T E ) ) ) \r
0115260
0115300 ( C O N D \r
0115320
0115340 ( ( N O T ( 006 002 f e t c h 006 001
0115360 ( C H A T . S T A T E R U N
0115400 N I N G ? ) 006 002 o f 006 001 S T
0115420 A T E ) ) \r
0115440
*
0115520 006 006 ( * C o n n e c t i
0115540 o n i n C H A T W I N D O W
0115560 i s d e a d ) 006 001 \r
0115600
0115620 ( 006 002 C H A T . C
0115640 L O S E 006 001 W I N D O W N I
0115660 L T ) \r
0115700
0115720 T ) ) ) )
0115740
0115760 006 006 ( * O l d w i n d o
0116000 w n o t i n u s e . \r 006 001
0116020
*
0116100 006 006 T
0116120 h i s s h o u l d n ' t h a
0116140 p p e n , b u t . . . ) 006 001 \r
0116160 ( W
0116200 I N D O W P R O P W I N D O W
0116220 ' T I T L E T I T L E ) \r
0116240 ( S E
0116260 T Q D S P ( W I N D O W P R
0116300 O P W I N D O W ' D S P ) )
0116320 ) \r (
0116340 T ( S E T Q D S P ( W I N
0116360 D O W P R O P ( S E T Q W I
0116400 N D O W ( L E T ( ( S I Z E
0116420 ( L I S T P C H A T . W I N
0116440 D O W . S I Z E ) ) ) \r
0116460
*
0116540 ( D E C O D E . W I N D
0116560 O W . A R G ( A N D ( N U L
0116600 L C H A T W I N D O W L S T )
0116620 \r
0116640
*
0116740 C H A T . W I N D O W . R E G
0116760 I O N ) \r
0117000
*
0117060 ( C A R S I Z E ) \r
0117100
*
0117160 ( C
0117200 D R S I Z E ) \r
0117220
*
0117300 T I T L E ) ) )
0117320 \r
0117340
0117360 ' D S P ) ) \r
0117400 ( D S P S C R
0117420 O L L T D S P ) \r
0117440 ( O R C
0117460 H A T W I N D O W ( S E T Q
0117500 C H A T W I N D O W W I N D O
0117520 W ) ) ) ) \r
0117540 ( 006 002 p u s h 006 001 C H A T W I
0117560 N D O W L S T W I N D O W ) \r
0117600 ( R E T U R
0117620 N W I N D O W ) ) ) ) \r \r ( 006
0117640 004 C H A T . B U T T O N F N 006 001
0117660 \r ( L A M B D A ( W I N D
0117700 O W ) 006 006 006 001
0117720
*
0117760 006 006 ( * e j s % : " 1 2
0120000 - M a y - 8 5 1 7 : 5 9 " ) 006
0120020 001 \r ( C O N D \r
0120040 ( ( L A S T M O U S E S T
0120060 A T E L E F T ) \r
0120100 ( P R O G ( C H A T . S T
0120120 A T E C H A T . P R O C ) \r
0120140 ( C O
0120160 N D \r
0120200 ( ( A N D ( S E T Q
0120220 C H A T . S T A T E ( W I N D
0120240 O W P R O P W I N D O W ' C
0120260 H A T S T A T E ) ) \r
0120300
0120320 ( 006 002 f e t c h 006 001 ( C H
0120340 A T . S T A T E C H A T I N E
0120360 M A C S ) 006 002 o f 006 001 C H A
0120400 T . S T A T E ) \r
0120420
0120440 ( S E T Q C H A T . P R O C
0120460 ( 006 002 f e t c h 006 001 ( C H A T
0120500 . S T A T E T Y P E O U T P R
0120520 O C ) 006 002 o f 006 001 C H A T .
0120540 S T A T E ) ) ) \r
0120560 ( P R O C
0120600 E S S . A P P L Y C H A T . P
0120620 R O C ( F U N C T I O N C H
0120640 A T . E M A C S . M O V E ) \r
0120660
0120700 ( L I S T C H
0120720 A T . S T A T E ) ) ) \r
0120740 ( T
0120760 ( 006 002 C H A T . H O L D 006 001 W
0121000 I N D O W ) ) ) ) ) \r
0121020 ( ( L A S T M O U S E S T A
0121040 T E M I D D L E ) \r
0121060 ( 006 002 C H A T . M E N U 006
0121100 001 W I N D O W ) ) ) ) ) \r \r (
0121120 006 004 C H A T . H O L D 006 001 \r
0121140 ( L A M B D A ( W I N D O W )
0121160 006 006 006 001
0121200
0121220 006
0121240 006 ( * e j s % : " 1 2 - M a
0121260 y - 8 5 1 6 : 3 3 " ) 006 001 \r
0121300 \r
0121320 006 006 ( * * T o g g l
0121340 e H O L D w h i l e b u t
0121360 t o n i s d o w n ) 006 001 \r \r
0121400 ( P R O G ( ( S T A T
0121420 E ( W I N D O W P R O P W I
0121440 N D O W ' C H A T S T A T E )
0121460 ) ) \r ( T O
0121500 T O P W W I N D O W ) \r
0121520 ( O R S T A T E
0121540 ( R E T U R N ) ) \r
0121560 ( C O N D \r
0121600 ( ( N O T ( 006
0121620 002 f e t c h 006 001 ( C H A T . S
0121640 T A T E H E L D ) 006 002 o f 006
0121660 001 S T A T E ) ) \r
0121700 ( 006 002 r e p l a
0121720 c e 006 001 ( C H A T . S T A T E
0121740 H E L D ) 006 002 o f 006 001 S T
0121760 A T E 006 002 w i t h 006 001 T ) \r
0122000 ( U
0122020 N I N T E R R U P T A B L Y \r
0122040
0122060 ( U N T I L M O U S E S T A T
0122100 E U P ) ) ) ) \r
0122120 ( 006 002 r e p l a c e 006 001
0122140 ( C H A T . S T A T E H E L D
0122160 ) 006 002 o f 006 001 S T A T E 006
0122200 002 w i t h 006 001 N I L ) ) ) ) \r
0122220 \r ( 006 004 C H A T . M E N U 006 001 \r
0122240 [ L A M B D A ( W I N D O
0122260 W ) 006 006 006 001
0122300
*
0122340 006 006 ( * l m m " 2 0 - O c
0122360 t - 8 6 1 8 : 0 3 " ) 006 001 \r
0122400 ( 006 002 D E C L A R E 006 001
0122420 ( G L O B A L V A R S C H A T
0122440 M E N U C H A T . R E O P E N
0122460 M E N U ) \r
0122500 ( S P E C V A R S W I N D O
0122520 W S T A T E ) )
0122540
0122560 006 006 ( * ; " C a l l e
0122600 d b y M I D D L E " ) 006 001 \r
0122620 ( P R O G ( ( S T A T
0122640 E ( W I N D O W P R O P W I
0122660 N D O W ' C H A T S T A T E )
0122700 ) \r C O M
0122720 M A N D ) \r
0122740 [ C O N D \r
0122760 ( ( N O T S T A T E )
0123000
*
0123040 006 006 ( * ; \r 006 001
0123060
*
0123140 006 006 " N o C
0123160 o n n e c t i o n h e r e ;
0123200 t r y t o r e e s t a b l
0123220 i s h " ) 006 001 \r
0123240 ( R E T U R N ( C
0123260 O N D \r
0123300 ( ( L
0123320 A S T M O U S E S T A T E M I
0123340 D D L E ) \r
0123360
0123400 ( 006 002 C H A T . R E C O N N E C
0123420 T 006 001 W I N D O W ) ) \r
0123440
0123460 ( T ( T O T O P W
0123500 W I N D O W ] \r
0123520 ( 006 002 r e p l a c e 006 001
0123540 ( C H A T . S T A T E H E L D
0123560 ) 006 002 o f 006 001 S T A T E 006
0123600 002 w i t h 006 001 T ) \r
0123620 ( \ C H E C K C A R E
0123640 T W I N D O W ) \r
0123660 ( S E L E C T Q [ S E
0123700 T Q C O M M A N D \r
0123720 (
0123740 M E N U \r
0123760 ( 006 002 c r e
0124000 a t e 006 001 \r
0124020 M E N U
0124040 \r
0124060 I T E M S _ \r
0124100
0124120 ( A P P E N D C H A
0124140 T M E N U I T E M S \r
0124160
0124200 [ A N D ( C D
0124220 R C H A T . D R I V E R T Y P
0124240 E S ) \r
0124260
0124300 ( 006 002 f o r 006 001 X
0124320 006 002 i n 006 001 C H A T . D R I
0124340 V E R T Y P E S \r
0124360
0124400 006 002
0124420 c o l l e c t 006 001 ` ( , ( C O
0124440 N C A T ( C A R X ) \r
0124460
*
0124540 " M o d e " ) \r
0124560
*
0124620 ' ( L A
0124640 M B D A ( S T A T E W I N D
0124660 O W ) \r
0124700
*
0124740 ( 006 002 C H A T . S E
0124760 T . E M U L A T O R 006 001 S T A
0125000 T E W I N D O W \r
0125020
*
0125100 ' , ( C A R X ] \r
0125120
0125140 ( S T R E A
0125160 M P R O P ( 006 002 f e t c h 006 001
0125200 ( C H A T . S T A T E I N S
0125220 T R E A M ) 006 002 o f 006 001 S T
0125240 A T E ) \r
0125260
0125300 ' O P T I O N
0125320 S ) \r
0125340
0125360 [ 006 002 i f 006 001 ( 006 002 f e t c h
0125400 006 001 ( C H A T . S T A T E L
0125420 O C A L E C H O ) 006 002 o f 006 001
0125440 S T A T E ) \r
0125460
0125500 006 002 t h e n 006
0125520 001 ' ( ( " L o c a l E c h o
0125540 O F F " ' E C H O " T u r
0125560 n o f f l o c a l e c h o
0125600 i n g " ) ) \r
0125620
0125640 006 002 e l s e 006 001 '
0125660 ( ( " L o c a l E c h o O N
0125700 " ' E C H O " T u r n o n
0125720 l o c a l e c h o i n g " ]
0125740 \r
0125760 ' (
0126000 ( C l o s e ' C l o s e " C
0126020 l o s e s t h e c o n n e c
0126040 t i o n a n d r e t u r n s
0126060 " ) \r
0126100
0126120 ( S u s p e n d ' S u s p
0126140 e n d " C l o s e s t h e
0126160 c o n n e c t i o n b u t l
0126200 e a v e s w i n d o w u p "
0126220 ) \r
0126240
0126260 ( N e w ' N e w " C l o s
0126300 e s t h i s c o n n e c t i
0126320 o n a n d p r o m p t s f
0126340 o r a n e w h o s t " ) \r
0126360
0126400 (
0126420 F r e e z e ' F r e e z e "
0126440 H o l d s t y p e o u t i n
0126460 t h i s w i n d o w u n t
0126500 i l y o u b u g i t a g
0126520 a i n " ) \r
0126540
0126560 ( C l e a r ( F U N
0126600 C T I O N C H A T . C L E A R
0126620 . F R O M . M E N U ) \r
0126640
*
0126700 " C l e a r s w i n d o w
0126720 , s e t s r o l l m o d e
0126740 " ) \r
0126760
0127000 ( " D r i b b l e " ( F U
0127020 N C T I O N C H A T . T Y P E
0127040 S C R I P T ) \r
0127060
0127100 " S
0127120 t a r t s a t y p e s c r i
0127140 p t o f w i n d o w t y p
0127160 e o u t " ) \r
0127200
0127220 ( " I n p u t " (
0127240 F U N C T I O N C H A T . T A
0127260 K E . I N P U T ) \r
0127300
*
0127340 " A l l o w s i n p u t f r
0127360 o m a f i l e " ) \r
0127400
0127420 ( " E m a
0127440 c s " ( F U N C T I O N C H
0127460 A T . S W I T C H . E M A C S )
0127500 \r
0127520
0127540 " T o g g l e E
0127560 M A C S p o s i t i o n i n g
0127600 " ] \r
0127620 ( E C H O ( 006 002 r e p l a c
0127640 e 006 001 ( C H A T . S T A T E
0127660 L O C A L E C H O ) 006 002 o f 006
0127700 001 S T A T E 006 002 w i t h 006 001
0127720 ( N O T ( 006 002 f e t c h 006 001
0127740 ( C H A T . S T A T E L O C
0127760 A L E C H O ) \r
0130000
*
0130100 006 002 o f 006 001 S T A T E ) )
0130120 ) ) \r
0130140 ( C l o s e ( 006 002 r e p l a
0130160 c e 006 001 ( C H A T . S T A T E
0130200 R U N N I N G ? ) 006 002 o f 006
0130220 001 S T A T E 006 002 w i t h 006 001
0130240 ' C L O S E ) \r
0130260
*
0130340 006 006 ( * ; \r 006 001
0130360
*
0130440 006 006 "
0130460 A s k C H A T . T Y P E I N
0130500 t o s h u t t h i n g s d
0130520 o w n . " ) 006 001 \r
0130540 ) \r
0130560 ( N
0130600 e w ( 006 002 r e p l a c e 006 001
0130620 ( C H A T . S T A T E R U N N
0130640 I N G ? ) 006 002 o f 006 001 S T A
0130660 T E 006 002 w i t h 006 001 ' C L O
0130700 S E ) \r
0130720 ( W I N D O W P R
0130740 O P W I N D O W ' K E E P C
0130760 H A T ' N E W ) ) \r
0131000 ( S u s p e n
0131020 d ( 006 002 r e p l a c e 006 001 (
0131040 C H A T . S T A T E R U N N I
0131060 N G ? ) 006 002 o f 006 001 S T A T
0131100 E 006 002 w i t h 006 001 ' C L O S
0131120 E ) \r
0131140 ( W I N D O
0131160 W P R O P W I N D O W ' K E
0131200 E P C H A T T ) ) \r
0131220 ( F r e e z e
0131240
*
0131300 006 006 ( * ; "
0131320 L e a v e i n H E L D s t
0131340 a t e " ) 006 001 \r
0131360 ( R
0131400 E T U R N ) ) \r
0131420 ( N I L ) \r
0131440 ( A P P L Y
0131460 * C O M M A N D S T A T E
0131500 W I N D O W ) ) \r
0131520 ( 006 002 r e p l a c e 006 001
0131540 ( C H A T . S T A T E H E L D
0131560 ) 006 002 o f 006 001 S T A T E 006
0131600 002 w i t h 006 001 N I L ] ) \r \r (
0131620 006 004 C H A T . C L E A R . F R O
0131640 M . M E N U 006 001 \r ( L A M B
0131660 D A ( S T A T E W I N D O W
0131700 ) 006 006 006 001
0131720
0131740 006 006 ( * A
0131760 J B " 2 4 - M a y - 8 5 1 7
0132000 : 4 2 " ) 006 001 \r ( D S P
0132020 R E S E T W I N D O W ) \r
0132040 ( T E R M . R E S E T . D I
0132060 S P L A Y . P A R M S S T A T
0132100 E ) \r ( T E R M . H O M
0132120 E S T A T E ) ) ) \r \r ( 006 004 C
0132140 H A T . T A K E . I N P U T 006 001
0132160 \r ( L A M B D A ( S T A T
0132200 E W I N D O W ) 006 006 006 001
0132220
*
0132260 006 006 ( * b v m % : " 1
0132300 - J u n - 8 4 1 7 : 4 3 " ) 006
0132320 001 \r ( P R O C E S S . A
0132340 P P L Y ( W I N D O W P R O P
0132360 W I N D O W ' P R O C E S S
0132400 ) \r ( F U
0132420 N C T I O N C H A T . T A K E
0132440 . I N P U T 1 ) \r
0132460 ( L I S T W I N D O W
0132500 ) ) ) ) \r \r ( 006 004 C H A T . T A
0132520 K E . I N P U T 1 006 001 \r [ L
0132540 A M B D A ( W I N D O W ) 006 006
0132560 006 001
0132600
0132620 006 006 (
0132640 * ; " E d i t e d 4 - D
0132660 e c - 8 6 2 2 : 5 3 b y l
0132700 m m " ) 006 001 \r ( 006 002 D E
0132720 C L A R E 006 001 ( U S E D F R E
0132740 E S T R E A M ) )
0132760
0133000 006 006 ( * ; "
0133020 I n C H A T . T Y P E I N " )
0133040 006 001 \r ( P R O G ( ( P
0133060 W I N D O W ( G E T P R O M P
0133100 T W I N D O W W I N D O W ) )
0133120 \r F I L E
0133140 ) \r ( C L E
0133160 A R W P W I N D O W ) \r
0133200 ( C O N D \r
0133220 ( ( A N D
0133240 S T R E A M ( N E Q S T R E
0133260 A M T ) ) \r
0133300 ( p r i n t o u t P
0133320 W I N D O W " C a n ' t , s
0133340 t i l l r e a d i n g " (
0133360 F U L L N A M E S T R E A M )
0133400 ) ) \r
0133420 ( T ( S E T Q F I L E ( P
0133440 R O M P T F O R W O R D " T a
0133460 k e i n p u t f r o m f i
0133500 l e ( c r t o r e t u r n
0133520 ) : " N I L N I L P W I
0133540 N D O W ) ) \r
0133560 ( L E T ( ( * L
0133600 A S T - C O N D I T I O N * N
0133620 I L ) ) \r
0133640 ( C O N D \r
0133660
0133700 ( ( N U L L F
0133720 I L E ) \r
0133740 ( C
0133760 L E A R W ) ) \r
0134000
0134020 [ [ N L S E T Q ( S E T Q F
0134040 I L E ( O P E N S T R E A M
0134060 F I L E ' I N P U T ] \r
0134100
0134120 ( C L E A R W P W
0134140 I N D O W ) \r
0134160
0134200 ( p r i n t o u t P W I N D O
0134220 W " R e a d i n g " ( F U
0134240 L L N A M E ( S E T Q S T R
0134260 E A M F I L E ] \r
0134300
0134320 ( T ( C L E A R W P W I
0134340 N D O W ) \r
0134360
0134400 ( P R I N 1 * L A S T - C O
0134420 N D I T I O N * P W I N D O W
0134440 ] ) \r \r ( 006 004 D O . C H A T . O
0134460 P T I O N 006 001 \r ( L A M B D
0134500 A ( C H A T . S T A T E W I
0134520 N D O W ) 006 006 006 001
0134540
0134560 006 006 ( * e j
0134600 s % : " 1 2 - M a y - 8 5 1
0134620 5 : 5 2 " ) 006 001 \r
0134640 \r 006 006
0134660 ( * * P o p u p a m e
0134700 n u o f p r o t o c o l s
0134720 p e c i f i c o p t i o n s .
0134740 ) 006 001 \r \r ( P R O G (
0134760 ( M E N U ( 006 002 C H A T . O P
0135000 T I O N M E N U 006 001 ( 006 002 f e
0135020 t c h 006 001 ( C H A T . S T A T
0135040 E I N S T R E A M ) 006 002 o f
0135060 006 001 C H A T . S T A T E ) ) )
0135100 ) \r ( C O N
0135120 D \r (
0135140 M E N U ( M E N U M E N U )
0135160 ) \r (
0135200 T ( p r i n t o u t P R O M
0135220 P T W I N D O W " T h i s p
0135240 r o t o c o l h a s n o o
0135260 p t i o n s . " ) ) ) ) ) ) \r \r
0135300 ( 006 004 C H A T . R E C O N N E C
0135320 T 006 001 \r ( L A M B D A ( W
0135340 I N D O W ) 006 006 006 001
0135360
*
0135420 006 006 ( * b v m % :
0135440 " 4 - S e p - 8 5 1 9 : 5 2
0135460 " ) 006 001 \r ( L E T * (
0135500 ( M A I N W ( O R ( W I N D
0135520 O W P R O P W I N D O W ' I
0135540 C O N F O R ) \r
0135560 W I
0135600 N D O W ) ) \r
0135620 ( S T A T E ( W I N D O W
0135640 P R O P M A I N W ' C H A T
0135660 H O S T ) ) \r
0135700 F N ) \r
0135720 ( C O N D \r
0135740 ( ( N U L L S T A T E )
0135760 \r (
0136000 A P P L Y * ( 006 002 C H A T . R
0136020 E C O N N E C T . O F F 006 001 W
0136040 I N D O W ) \r
0136060 W I N D
0136100 O W ) ) \r
0136120 ( ( N O T ( L A S T M O U
0136140 S E S T A T E M I D D L E ) )
0136160 \r (
0136200 A P P L Y * ( O R ( W I N D
0136220 O W P R O P W I N D O W ' O
0136240 L D B U T T O N E V E N T F N )
0136260 \r
0136300 ( F U N C
0136320 T I O N T O T O P W ) ) \r
0136340
0136360 W I N D O W ) ) \r
0136400 ( ( M E N U
0136420 ( O R C H A T . R E O P E N M
0136440 E N U ( S E T Q C H A T . R
0136460 E O P E N M E N U ( 006 002 c r e
0136500 a t e 006 001 M E N U \r
0136520
*
0136620 I T E M S _ \r
0136640
*
0136720 ' ( (
0136740 R e C o n n e c t T \r
0136760
*
0137040 " W i l l
0137060 r e e s t a b l i s h t h i
0137100 s C h a t c o n n e c t i o
0137120 n " \r
0137140
*
0137240 ) ) ) ) ) ) \r
0137260 ( 006 002 C H A T . R E
0137300 C O N N E C T . O F F 006 001 W I
0137320 N D O W )
0137340 006 006 ( * D o
0137360 n ' t l e t t h i s c o m
0137400 m a n d g e t i s s u e d
0137420 \r 006 001
0137440
*
0137520 006 006 t w i c e ) 006 001 \r
0137540 ( T T Y . P R
0137560 O C E S S ( A D D . P R O C E
0137600 S S ( L I S T ' C H A T (
0137620 K W O T E ( C A R S T A T E
0137640 ) ) \r
0137660
*
0137720 ( K W O T E ( C D R S T A
0137740 T E ) ) \r
0137760
*
0140020 N I L M A I N W T ) )
0140040 ) ) ) ) ) ) \r \r ( 006 004 C H A T .
0140060 R E C O N N E C T . O F F 006 001 \r
0140100 ( L A M B D A ( W I N D O
0140120 W ) 006 006 006 001
0140140
*
0140200 006 006 ( * b v m % : " 4 -
0140220 S e p - 8 5 1 9 : 5 1 " ) 006 001
0140240 \r \r
0140260 006 006 ( * * R e m
0140300 o v e s C H A T . R E C O N N
0140320 E C T a s t h e b u t t o
0140340 n f n f o r W I N D O W a
0140360 n d r e t u r n s n e w b
0140400 u t t o n f n ) 006 001 \r \r
0140420 ( L E T ( ( F N ( O R ( W
0140440 I N D O W P R O P W I N D O W
0140460 ' O L D B U T T O N E V E N T
0140500 F N N I L ) \r
0140520 ( F U N C T
0140540 I O N T O T O P W ) ) ) ) \r
0140560 ( W I N D O W P
0140600 R O P W I N D O W ' B U T T
0140620 O N E V E N T F N F N ) \r
0140640 F N ) ) ) \r \r ( 006
0140660 004 C H A T . R E S H A P E W I N
0140700 D O W 006 001 \r ( L A M B D A
0140720 ( W I N D O W O L D I M A G E
0140740 I M A G E R E G I O N O L D
0140760 S C R E E N R E G I O N ) 006 006 006
0141000 001 006 006 ( * e j s %
0141020 : " 1 4 - J u n - 8 5 1 5 :
0141040 0 8 " ) 006 001 \r
0141060
*
0141140 006 006 ( * R E S H A P E
0141160 F N f o r t h e c h a t
0141200 w i n d o w ) 006 001 \r ( R
0141220 E S H A P E B Y R E P A I N T F
0141240 N W I N D O W O L D I M A G
0141260 E I M A G E R E G I O N ) \r
0141300 \r
0141320 006 006 ( * N o t e % :
0141340 D o n ' t p a s s O L D S C
0141360 R E E N R E G I O N t o R E
0141400 S H A P E B Y R E P A I N T F N
0141420 o r i t m a y t r y t
0141440 o \r 006 001 006
0141460 006 l e a v e t h e i m a g e
0141500 f i x e d a n d m o v e
0141520