$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITCHAT!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " L I S
0000060 P " ) \r 006 001 ( I L : F I L E C R
0000100 E A T E D " 2 0 - O c t - 8 6
0000120 1 5 : 0 5 : 3 7 " 006 004 I L :
0000140 { D S K } < L I S P F I L E S >
0000160 T E D I T C H A T . \ ; 4 006 001
0000200 3 0 2 8 6 \r \r I
0000220 L : | c h a n g e s | I L : |
0000240 t o : | ( I L : F N S I L
0000260 : T E D I T C H A T . M E N U F
0000300 N ) \r \r I L : | p r
0000320 e v i o u s | I L : | d a t e
0000340 : | " 2 0 - O c t - 8 6 1 4
0000360 : 4 5 : 5 0 " I L : { D S K }
0000400 < L I S P F I L E S > T E D I T
0000420 C H A T . \ ; 3 ) \r \r \r ; C o
0000440 p y r i g h t ( c ) 1 9 8 5
0000460 , 1 9 8 6 b y X e r o x
0000500 C o r p o r a t i o n . A l
0000520 l r i g h t s r e s e r v e
0000540 d . \r \r ( I L : P R E T T Y C O
0000560 M P R I N T I L : T E D I T C
0000600 H A T C O M S ) \r \r ( I L : R P
0000620 A Q Q 006 002 I L : T E D I T C H
0000640 A T C O M S 006 001 ( ( I L : C O
0000660 M S ( I L : * I L : | c h a
0000700 r a c t e r | I L : | r o u t
0000720 i n e s | ) \r
0000740
0000760 ( I L : F N
0001000 S I L : T E D I T C H A T . C
0001020 H A R F N I L : \ \ T E X T S
0001040 T R E A M B O U T ) ) \r
0001060
0001100 ( I L : C O M S
0001120 ( I L : F N S I L : T E D I
0001140 T S T R E A M . I N I T I L :
0001160 T E D I T C H A T . M E N U F N
0001200 ) ) \r
0001220 (
0001240 I L : C O M S ( I L : * I L
0001260 : T E D I T I L : | u p d a t
0001300 e | I L : | r o u t i n e s |
0001320 ) \r
0001340
0001360 ( I L : F N S I L :
0001400 T E D I T . D I S P L A Y T E X
0001420 T ) ) \r
0001440
0001460 ( I L : G L O B A L V A R S I
0001500 L : T E D I T C H A T . M E N U
0001520 I L : C H A T . D R I V E R T
0001540 Y P E S I L : C H A T . D I S
0001560 P L A Y T Y P E S \r
0001600
0001620 ) \r
0001640
0001660 ( I L : V
0001700 A R S I L : T E D I T C H A T
0001720 . M E N U I T E M S ( I L : T
0001740 E D I T C H A T . M E N U ) ) \r
0001760
0002000 ( I L :
0002020 A D D V A R S ( I L : C H A T
0002040 . D R I V E R T Y P E S ( I L
0002060 : T E D I T I L : T E D I T C
0002100 H A T . C H A R F N I L : N I
0002120 L L ) ) ) \r
0002140
0002160 ( I L : D E C L A R E \ :
0002200 I L : E V A L @ C O M P I L E
0002220 I L : D O N T C O P Y ( I L :
0002240 F I L E S ( I L : S O U R C E
0002260 ) \r
0002300
*
0002360 I
0002400 L : C H A T D E C L S ) ) ) ) \r
0002420 \r \r \r 006 004 ( I L : * I L : | c
0002440 h a r a c t e r | I L : | r o
0002460 u t i n e s | ) 006 001 \r \r ( I L :
0002500 D E F I N E Q \r \r ( 006 004 I L : T
0002520 E D I T C H A T . C H A R F N 006
0002540 001 \r ( I L : L A M B D A (
0002560 I L : C H I L : C H A T . S T
0002600 A T E ) 006 006 006 001
0002620
0002640 006 006 ( I L : * I L : A J
0002660 B " 2 2 - M a y - 8 5 1 8 :
0002700 1 6 " ) 006 001 \r ( L E T *
0002720 ( ( I L : T E X T S T R E A M
0002740 ( 006 002 I L : | f e t c h | 006 001
0002760 ( I L : C H A T . S T A T E
0003000 I L : T E X T S T R E A M ) 006
0003020 002 I L : | o f | 006 001 I L : C H
0003040 A T . S T A T E ) ) \r
0003060 ( I L : S E L ( 006
0003100 002 I L : | f e t c h | 006 001 I L
0003120 : S E L 006 002 I L : | o f | 006 001
0003140 ( I L : T E X T O B J I L :
0003160 T E X T S T R E A M ) ) ) ) \r
0003200 ( I L : \ \ C
0003220 A R E T . D O W N ( 006 002 I L :
0003240 | f e t c h | 006 001 I L : D S
0003260 006 002 I L : | o f | 006 001 ( I L :
0003300 T E X T O B J I L : T E X T S
0003320 T R E A M ) ) ) \r
0003340 ( I L : S E L C H A R Q
0003360 I L : C H \r
0003400 ( I L : B S ( I L
0003420 : \ \ T E D I T . C H A R D E L
0003440 E T E I L : T E X T S T R E A
0003460 M " " I L : S E L ) \r
0003500
0003520 ( I L : M O V E T O (
0003540 006 002 I L : | f e t c h | 006 001 I
0003560 L : X 0 006 002 I L : | o f | 006 001
0003600 I L : S E L ) \r
0003620
0003640 ( 006 002 I L : | f e
0003660 t c h | 006 001 I L : Y 0 006 002 I
0003700 L : | o f | 006 001 I L : S E L )
0003720 \r
0003740 (
0003760 C A R ( 006 002 I L : | f e t c h
0004000 | 006 001 I L : \ \ W I N D O W
0004020 006 002 I L : | o f | 006 001 ( I L :
0004040 T E X T O B J I L : T E X T S
0004060 T R E A M ) ) ) ) ) \r
0004100 ( I L : L
0004120 F N I L ) \r
0004140 ( I L : B O U T
0004160 I L : T E X T S T R E A M I L
0004200 : C H ) ) ) ) ) \r \r ( 006 004 I L :
0004220 \ \ T E X T S T R E A M B O U T
0004240 006 001 \r ( I L : L A M B D A
0004260 ( S T R E A M B Y T E ) 006 006 006
0004300 001
0004320
0004340 006 006 ( I L : * I L : A
0004360 J B " 2 1 - M a y - 8 5 1 6
0004400 : 0 0 " ) 006 001 \r
0004420 \r 006 006 (
0004440 I L : * I L : D \ o I L : B
0004460 O U T I L : | t o | I L : \
0004500 a I L : | t e x t | I L : |
0004520 s t r e a m , | I L : | w h i
0004540 c h | I L : | i s | \r 006 001
0004560 006 006 I L : | a
0004600 n | I L : | i n s e r t i o n
0004620 | I L : | a t | I L : | t h
0004640 e | I L : | c a r e t . | ) 006
0004660 001 \r \r ( P R O G ( ( I
0004700 L : T E X T O B J ( 006 002 I L :
0004720 | f e t c h | 006 001 ( I L : T E
0004740 X T S T R E A M I L : T E X T
0004760 O B J ) 006 002 I L : | o f | 006 001
0005000 S T R E A M ) ) \r
0005020 I L : C H # I L : W
0005040 I N D O W I L : T E X T L E N
0005060 I L : P S I L : P C I L :
0005100 P S T R I L : O F F S T I L
0005120 : S E L ) \r
0005140 ( I L : S E T Q I L : T E X T
0005160 L E N ( 006 002 I L : | f e t c h
0005200 | 006 001 I L : T E X T L E N 006
0005220 002 I L : | o f | 006 001 I L : T E
0005240 X T O B J ) ) \r
0005260 ( I L : S E T Q I L : W I
0005300 N D O W ( 006 002 I L : | f e t c
0005320 h | 006 001 I L : \ \ W I N D O W
0005340 006 002 I L : | o f | 006 001 I L :
0005360 T E X T O B J ) ) \r
0005400 ( I L : S E T Q I L :
0005420 S E L ( 006 002 I L : | f e t c h
0005440 | 006 001 I L : S E L 006 002 I L :
0005460 | o f | 006 001 I L : T E X T O B
0005500 J ) ) \r ( C
0005520 O N D \r
0005540 ( ( N O T ( C A R ( 006 002 I
0005560 L : | f e t c h | 006 001 I L : L
0005600 1 006 002 I L : | o f | 006 001 I L
0005620 : S E L ) ) ) \r
0005640 ( R E T U R N ) ) )
0005660 \r \r
0005700 006 006 ( I L : * I L
0005720 : | R e t u r n | I L : | i f
0005740 | I L : | c a r e t | I L :
0005760 | o u t | I L : | o f | I L
0006000 : | b o u n d s , | I L : | i
0006020 e , | \r 006 001
0006040 006 006 I L : | u s e r | I L :
0006060 | s c r o l l s | I L : | p a
0006100 s t | I L : | e n d | I L :
0006120 | o f | I L : | t e x t | ) 006
0006140 001 \r \r ( I L
0006160 : S E T Q I L : C H # ( 006 002
0006200 I L : | f e t c h | 006 001 I L :
0006220 C H # 006 002 I L : | o f | 006 001
0006240 I L : S E L ) ) \r
0006260 ( A N D I L : W I N D O
0006300 W ( I L : \ \ T E D I T . M A
0006320 R K . L I N E S . D I R T Y I
0006340 L : T E X T O B J I L : C H #
0006360 I L : C H # ) ) \r
0006400 ( I L : \ \ I N S E R T
0006420 C H B Y T E I L : C H # I
0006440 L : T E X T O B J ) \r
0006460 ( A N D I L : W I N
0006500 D O W \r
0006520 ( P R O G ( ( I L : T H
0006540 I S L I N E ( 006 002 I L : | f e
0006560 t c h | 006 001 I L : T H I S L I
0006600 N E 006 002 I L : | o f | 006 001 I
0006620 L : T E X T O B J ) ) \r
0006640
0006660 I L : E O L F L A G I L :
0006700 C H O R I G I L : C H W I D T
0006720 H I L : O X L I M I L : O C
0006740 H L I M I L : O C R \ \ E N D
0006760 I L : P R E V S P A C E \r
0007000
0007020 I L : F I X E D L I N
0007040 E I L : N E X T L I N E I L
0007060 : L I N E S I L : N E W L I N
0007100 E F L G I L : D X I L : P R
0007120 E V L I N E I L : S A V E W I
0007140 D T H \r
0007160 I L : O F
0007200 L O W F N I L : O L H E I G H
0007220 T I L : D Y I L : T A B S E
0007240 E N I L : I M A G E C A C H E
0007260 I L : C U R L I N E I L : F
0007300 O N T \r
0007320 ( I L : L 1
0007340 ( C A R ( 006 002 I L : | f e t
0007360 c h | 006 001 I L : L 1 006 002 I L
0007400 : | o f | 006 001 I L : S E L ) )
0007420 ) \r
0007440 ( I L : L N (
0007460 C A R ( 006 002 I L : | f e t c h
0007500 | 006 001 I L : L N 006 002 I L : |
0007520 o f | 006 001 I L : S E L ) ) ) \r
0007540
0007560 ( I L : L O O K S
0007600 ( I L : \ \ T E D I T . A P P L
0007620 Y . S T Y L E S ( 006 002 I L : |
0007640 f e t c h | 006 001 I L : C A R E
0007660 T L O O K S 006 002 I L : | o f |
0007700 006 001 I L : T E X T O B J \r
0007720
*
0010000 ) \r
0010020
*
0010060 ( 006 002 I L : | f e
0010100 t c h | 006 001 I L : \ \ I N S E
0010120 R T P C 006 002 I L : | o f | 006 001
0010140 I L : T E X T O B J ) \r
0010160
*
0010220 I L : T E X T O B J ) )
0010240 ) \r
0010260 ( 006 002 I L : | a d
0010300 d | 006 001 ( 006 002 I L : | f e t c
0010320 h | 006 001 I L : C H # 006 002 I L
0010340 : | o f | 006 001 I L : S E L ) \r
0010360
0010400 1 ) \r
0010420 \r
0010440 006 006 ( I L : * I L : |
0010460 T h e s e | I L : | m u s t |
0010500 I L : | b e | I L : | h e r
0010520 e , | I L : | s i n c e | I
0010540 L : S E L \ s I L : | a r e |
0010560 \r 006 001 006 006
0010600 I L : | v a l i d | I L : | e
0010620 v e n | I L : | w i t h o u t
0010640 | I L : \ a I L : | w i n d
0010660 o w . | ) 006 001 \r \r
0010700 ( 006
0010720 002 I L : | r e p l a c e | 006 001
0010740 I L : C H L I M 006 002 I L : | o
0010760 f | 006 001 I L : S E L 006 002 I L
0011000 : | w i t h | 006 001 ( 006 002 I L :
0011020 | f e t c h | 006 001 I L : C H #
0011040 006 002 I L : | o f | 006 001 \r
0011060
*
0011200 I L : S E L ) ) \r
0011220
0011240 ( 006 002 I L : | r e p l a c
0011260 e | 006 001 I L : P O I N T 006 002
0011300 I L : | o f | 006 001 I L : S E L
0011320 006 002 I L : | w i t h | 006 001 '
0011340 I L : L E F T ) \r
0011360 ( 006
0011400 002 I L : | r e p l a c e | 006 001
0011420 I L : D C H 006 002 I L : | o f |
0011440 006 001 I L : S E L 006 002 I L : |
0011460 w i t h | 006 001 0 ) \r
0011500
0011520 ( 006 002 I L : | r e p l a c e | 006
0011540 001 I L : S E L K I N D 006 002 I
0011560 L : | o f | 006 001 I L : S E L
0011600 006 002 I L : | w i t h | 006 001 ' I
0011620 L : C H A R ) \r
0011640 ( I L
0011660 : S E T Q I L : C U R L I N E
0011700 I L : L 1 ) \r
0011720 ( 006 002
0011740 I L : | a d d | 006 001 ( 006 002 I L
0011760 : | f e t c h | 006 001 I L : C H
0012000 A R L I M 006 002 I L : | o f | 006
0012020 001 I L : C U R L I N E ) \r
0012040
0012060 1 ) \r
0012100
0012120 ( 006 002 I L : | a d d | 006 001
0012140 ( 006 002 I L : | f e t c h | 006 001
0012160 I L : C H A R T O P 006 002 I L :
0012200 | o f | 006 001 I L : C U R L I N
0012220 E ) \r
0012240 1
0012260 ) \r
0012300 ( I L : S E T Q
0012320 I L : F O N T ( 006 002 I L : | f
0012340 e t c h | 006 001 I L : C L F O N
0012360 T 006 002 I L : | o f | 006 001 I L
0012400 : L O O K S ) ) \r
0012420 ( I
0012440 L : D S P F O N T I L : F O N
0012460 T ( C A R I L : W I N D O W
0012500 ) ) \r
0012520 ( C O N D \r
0012540
0012560 ( ( O R ( I L : I
0012600 G R E A T E R P ( I L : P L U
0012620 S ( 006 002 I L : | f e t c h | 006
0012640 001 I L : X 0 006 002 I L : | o f
0012660 | 006 001 I L : S E L ) \r
0012700
*
0012740 ( I
0012760 L : C H A R W I D T H B Y T E
0013000 I L : F O N T ) ) \r
0013020
0013040 (
0013060 I L : I D I F F E R E N C E (
0013100 006 002 I L : | f e t c h | 006 001 I
0013120 L : W R I G H T 006 002 I L : | o
0013140 f | 006 001 I L : T E X T O B J )
0013160 \r
0013200
0013220 8 ) ) \r
0013240
0013260 ( I L
0013300 : I E Q P B Y T E ( I L : C
0013320 H A R C O D E I L : C R ) ) )
0013340 \r \r
0013360 006 006 ( I L : * I L
0013400 : | g o n e | I L : | o f f |
0013420 I L : | t h e | I L : | e d
0013440 g e | I L : | o f | I L : |
0013460 t h e | I L : | l i n e | \r
0013500 006 001 006 006 I L
0013520 : | r e f o r m a t | I L : |
0013540 a n d | I L : | a d d | I L
0013560 : | n e w | I L : | l i n e |
0013600 ) 006 001 \r \r
0013620 ( I
0013640 L : T E D I T . U P D A T E . S
0013660 C R E E N I L : T E X T O B J
0013700 ) \r
0013720 ( I L : \
0013740 \ F I X S E L I L : S E L I
0013760 L : T E X T O B J ( C A R I
0014000 L : W I N D O W ) ) \r
0014020
0014040 ( I L : S E T Q I L :
0014060 L 1 ( C A R ( 006 002 I L : | f
0014100 e t c h | 006 001 I L : L 1 006 002
0014120 I L : | o f | 006 001 I L : S E L
0014140 ) ) ) \r
0014160 ( I L
0014200 : S E T Q I L : L N ( C A R
0014220 ( 006 002 I L : | f e t c h | 006 001
0014240 I L : L N 006 002 I L : | o f |
0014260 006 001 I L : S E L ) ) ) \r
0014300
0014320 ( C O N D \r
0014340
0014360 ( ( O R ( N U
0014400 L L ( I L : S E L E C T Q (
0014420 006 002 I L : | f e t c h | 006 001 I
0014440 L : P O I N T 006 002 I L : | o f
0014460 | 006 001 I L : S E L ) \r
0014500
*
0014540 ( I L : L E F
0014560 T I L : L 1 ) \r
0014600
*
0014640 ( I L : R I G H T
0014660 I L : L N ) \r
0014700
*
0014740 N I L ) ) \r
0014760
0015000 ( I L : I
0015020 L E Q ( I L : S E L E C T Q
0015040 ( 006 002 I L : | f e t c h | 006 001
0015060 I L : P O I N T 006 002 I L : | o
0015100 f | 006 001 I L : S E L ) \r
0015120
*
0015160 ( I L
0015200 : L E F T ( 006 002 I L : | f e t
0015220 c h | 006 001 I L : Y B O T 006 002
0015240 I L : | o f | 006 001 I L : L 1 )
0015260 ) \r
0015300
*
0015340 ( I L : R I G H T ( 006 002 I
0015360 L : | f e t c h | 006 001 I L : Y
0015400 B O T 006 002 I L : | o f | 006 001
0015420 I L : L N ) ) \r
0015440
*
0015500 0 ) \r
0015520
*
0015560 ( 006 002 I L : | f e t c h |
0015600 006 001 I L : B O T T O M 006 002 I
0015620 L : | o f | 006 001 ( I L : D S P
0015640 C L I P P I N G R E G I O N \r
0015660
*
0015760 N I L \r
0016000
*
0016100 ( C A R I L : W I N D O W )
0016120 ) ) ) ) \r \r
0016140 006 006 ( I L :
0016160 * I L : | T h e | I L : | c
0016200 a r e t | I L : | i s | I L
0016220 : | o f f - w i n d o w | I L
0016240 : | i n | I L : | t h e | \r
0016260 006 001 006 006 I L
0016300 : | s e l e c t i o n | I L :
0016320 | w i n d o w . | I L : | N e
0016340 e d | I L : | t o | I L : |
0016360 s c r o l l | I L : | i t |
0016400 I L : | u p | \r 006 001
0016420 006 006 I L : | s o | I
0016440 L : | t h e | I L : | c a r e
0016460 t | I L : | i s | I L : | v
0016500 i s i b l e . | ) 006 001 \r \r
0016520
0016540 ( 006 002 I L :
0016560 | w h i l e | 006 001 ( O R ( I
0016600 L : I L E S S P ( 006 002 I L : |
0016620 f e t c h | 006 001 I L : Y 0 006
0016640 002 I L : | o f | 006 001 I L : S E
0016660 L ) \r
0016700
*
0016740 ( 006 002 I L : | f e
0016760 t c h | 006 001 I L : W B O T T O
0017000 M 006 002 I L : | o f | 006 001 I L
0017020 : T E X T O B J ) ) \r
0017040
*
0017100 ( I L : I G E Q
0017120 ( 006 002 I L : | f e t c h | 006 001
0017140 I L : Y 0 006 002 I L : | o f |
0017160 006 001 I L : S E L ) \r
0017200
*
0017240 (
0017260 006 002 I L : | f e t c h | 006 001 I
0017300 L : W T O P 006 002 I L : | o f |
0017320 006 001 I L : T E X T O B J ) ) )
0017340 \r
0017360
0017400 006 002 I L : | d o | 006 001
0017420
0017440 006 006 ( I L : * I L : | T h
0017460 e | I L : | c a r e t | I L
0017500 : | j u s t | \r 006 001
0017520
*
0017600 006 006 I L : | w e
0017620 n t | I L : | o f f - s c r e
0017640 e n . | \r 006 001
0017660
*
0017740 006 006 I L : | M o v e |
0017760 I L : | i t | I L : | u p |
0020000 I L : | s o m e . | ) 006 001 \r
0020020
*
0020060 ( 006 002 I L : | r e p l a
0020100 c e | 006 001 I L : E D I T O P A
0020120 C T I V E 006 002 I L : | o f | 006
0020140 001 I L : T E X T O B J 006 002 I
0020160 L : | w i t h | 006 001 \r
0020200
*
0020320 N I L ) \r
0020340
0020360 ( I L
0020400 : S C R O L L W ( C A R I L
0020420 : W I N D O W ) \r
0020440
*
0020500 0 \r
0020520
*
0020560 ( I L : L L S H ( C
0020600 O N D \r
0020620
*
0020660 ( ( I
0020700 L : S E L E C T Q ( 006 002 I L :
0020720 | f e t c h | 006 001 I L : P O I
0020740 N T \r
0020760
*
0021040 006 002 I L
0021060 : | o f | 006 001 I L : S E L ) \r
0021100
*
0021200 ( I L : L E F T I L : L 1 ) \r
0021220
*
0021320 ( I L : R I G H T I L : L N )
0021340 \r
0021360
*
0021440 N I L ) \r
0021460
*
0021540 ( 006 002 I L : | f e t c h | 006 001
0021560 I L : L H E I G H T \r
0021600
*
0021660 006 002 I L : | o f
0021700 | 006 001 ( I L : S E L E C T Q
0021720 ( 006 002 I L : | f e t c h | 006 001
0021740 I L : P O I N T \r
0021760
*
0022060 006 002 I
0022100 L : | o f | 006 001 I L : S E L )
0022120 \r
0022140
*
0022220 ( I L :
0022240 L E F T I L : L 1 ) \r
0022260
*
0022360 ( I L : R I G H T
0022400 I L : L N ) \r
0022420
*
0022520 ( I L : S H O U L D N T )
0022540 ) ) ) \r
0022560
*
0022620 ( T
0022640 1 2 ) ) \r
0022660
*
0022720 1 ) ) ) ) ) )
0022740 \r
0022760 ( T ( 006 002 I
0023000 L : T E D I T . D I S P L A Y T
0023020 E X T 006 001 I L : T E X T O B J
0023040 B Y T E ( I L : C H A R W I
0023060 D T H B Y T E I L : F O N T
0023100 ) \r
0023120
0023140 I L : C U R L I N E \r
0023160
*
0023220 ( 006 002 I L : | f e t c h | 006 001
0023240 I L : X 0 006 002 I L : | o f |
0023260 006 001 I L : S E L ) \r
0023300
0023320 ( C A
0023340 R I L : W I N D O W ) \r
0023360
0023400 I
0023420 L : S E L )
0023440 006 006 ( I L :
0023460 * I L : | P r i n t | I L :
0023500 | o u t | I L : | t h e | \r
0023520 006 001
0023540
*
0023600 006
0023620 006 I L : | c h a r a c t e r |
0023640 I L : | o n | I L : | t h e |
0023660 \r 006 001
0023700
*
0023760 006 006 I L : | s c r e e n | ) 006
0024000 001 \r
0024020 ( 006 002
0024040 I L : | a d d | 006 001 ( 006 002 I L
0024060 : | f e t c h | 006 001 I L : X 0
0024100 006 002 I L : | o f | 006 001 I L :
0024120 S E L ) \r
0024140
0024160 ( I L : C H A R W
0024200 I D T H B Y T E I L : F O N
0024220 T ) ) \r \r
0024240 006 006 ( I L : *
0024260 I L : | A n d | I L : | m o
0024300 v e | I L : | t h e | I L :
0024320 | s e l e c t i o n ' s | I L
0024340 : | n o t i o n | I L : | o f
0024360 | I L : | o u r | \r 006 001
0024400 006 006 I L : X I
0024420 L : | p o s i t i o n | I L :
0024440 | t o | I L : | t h e | I L
0024460 : | r i g h t | I L : | t o |
0024500 I L : | a c c o u n t | I L
0024520 : | f o r | \r 006 001
0024540 006 006 I L : | t h a t |
0024560 I L : | c h a r a c t e r ' s |
0024600 I L : | w i d t h . | ) 006 001 \r
0024620 \r
0024640 ( 006 002 I
0024660 L : | r e p l a c e | 006 001 I L
0024700 : X L I M 006 002 I L : | o f | 006
0024720 001 I L : S E L 006 002 I L : | w
0024740 i t h | 006 001 ( 006 002 I L : | f e
0024760 t c h | 006 001 I L : X 0 \r
0025000
*
0025100 006 002 I L : |
0025120 o f | 006 001 I L : S E L ) ) ) )
0025140 \r \r
0025160 006 006 ( I L : * I L
0025200 : * I L : | F i x | I L : |
0025220 u p | I L : | t h e | I L :
0025240 T E X T S T R E A M I L : | s
0025260 o | I L : | t h a t | I L :
0025300 | t h e | \r 006 001
0025320 006 006 I L : F I L E P T R
0025340 I L : | l o o k s | I L : | l
0025360 i k e | I L : | i t | I L :
0025400 | o u g h t | I L : | t o |
0025420 I L : | a f t e r | I L : | t
0025440 h e | \r 006 001
0025460 006 006 I L : B O U T \ , I L :
0025500 | e v e n | I L : | t h o u g
0025520 h | I L : | w e ' v e | I L
0025540 : | b e e n | I L : | u p d a
0025560 t i n g | I L : | t h e | \r
0025600 006 001 006 006 I L
0025620 : | s c r e e n | ( I L : | w
0025640 h i c h | I L : | u s u a l l
0025660 y | I L : | m o v e s | I L
0025700 : | t h e | I L : | f i l e p
0025720 t r . . . . | ) ) 006 001 \r \r
0025740
0025760 ( I L : S E T Q I L : P S
0026000 ( 006 002 I L : | f f e t c h | 006
0026020 001 I L : P S T R 006 002 I L : |
0026040 o f | 006 001 ( I L : S E T Q I
0026060 L : P C ( 006 002 I L : | f e t c
0026100 h | 006 001 \r
0026120
*
0026220 I L :
0026240 \ \ I N S E R T P C \r
0026260
*
0026360 006 002
0026400 I L : | o f | 006 001 I L : T E X
0026420 T O B J \r
0026440
*
0026540 ) ) ) )
0026560 \r \r
0026600 006 006 ( I L : * I L
0026620 : | T h i s | I L : | p i e c
0026640 e | I L : | r e s i d e s |
0026660 I L : | i n | I L : \ a I L
0026700 : S T R I N G . \r 006 001
0026720 006 006 I L : | B e c a u
0026740 s e | I L : | i t ' s | I L
0026760 : | n e w l y | " t y p e d "
0027000 I L : | m a t e r i a l . | )
0027020 006 001 \r \r
0027040 ( 006 002 I L : |
0027060 r e p l a c e | 006 001 ( I L : T
0027100 E X T S T R E A M I L : P I E
0027120 C E ) 006 002 I L : | o f | 006 001
0027140 S T R E A M 006 002 I L : | w i t
0027160 h | 006 001 I L : P C ) \r
0027200
*
0027260 006 006 ( I L : *
0027300 I L : | R e m e m b e r | I
0027320 L : | t h e | \r 006 001
0027340
*
0027420 006 006 I L : | c u
0027440 r r e n t | I L : | p i e c e
0027460 | I L : | f o r | \r 006 001
0027500
*
0027560 006 006 I L :
0027600 | o t h e r s . | ) 006 001 \r
0027620
0027640 ( 006 002 I L : | r e p l a c e
0027660 | 006 001 ( I L : T E X T S T R E
0027700 A M I L : P C N O ) 006 002 I L
0027720 : | o f | 006 001 S T R E A M \r
0027740
0027760 006 002 I L : | w i t
0030000 h | 006 001 ( 006 002 I L : | f e t c
0030020 h | 006 001 I L : \ \ I N S E R T
0030040 P C N O 006 002 I L : | o f | 006 001
0030060 I L : T E X T O B J ) ) \r
0030100
*
0030160 006 006 ( I L
0030200 : * I L : | A n d | I L : |
0030220 w h i c h | I L : | n u m b e
0030240 r | \r 006 001
0030260
*
0030340 006 006 I L : | p i e c e |
0030360 I L : | t h i s | I L : | i s
0030400 . | ) 006 001 \r
0030420 ( 006 002 I L
0030440 : | f r e p l a c e | 006 001 I L
0030460 : C P P T R 006 002 I L : | o f |
0030500 006 001 S T R E A M \r
0030520
0030540 006 002 I L : | w i t h | 006 001
0030560 ( I L : A D D B A S E ( 006 002 I
0030600 L : | f f e t c h | 006 001 ( I L
0030620 : S T R I N G P I L : B A S E
0030640 ) 006 002 I L : | o f | 006 001 I L
0030660 : P S ) \r
0030700
0030720 ( I
0030740 L : L R S H ( I L : S E T Q
0030760 I L : O F F S T ( 006 002 I L : |
0031000 f f e t c h | 006 001 ( I L : S T
0031020 R I N G P I L : O F F S T \r
0031040
*
0031160 ) \r
0031200
*
0031300 006 002 I L : | o f | 006 001 I L : P
0031320 S ) ) \r
0031340
*
0031400 1 ) ) )
0031420 006 006 ( I L : * I L : | P o i
0031440 n t e r | I L : | t o | I L
0031460 : | t h e | \r 006 001
0031500
*
0031560 006 006 I L : | a c t
0031600 u a l | I L : | c h a r a c t
0031620 e r s | I L : | i n | \r 006 001
0031640
*
0031720 006 006 I
0031740 L : | t h e | I L : | s t r i
0031760 n g | \r 006 001
0032000
*
0032060 006 006 ( I L : | a l l o w i
0032100 n g | I L : | f o r | \r 006 001
0032120
*
0032200 006 006 I
0032220 L : | s u b s t r i n g s . | )
0032240 ) 006 001 \r
0032260 ( 006 002 I L : |
0032300 f r e p l a c e | 006 001 I L : C
0032320 P A G E 006 002 I L : | o f | 006 001
0032340 S T R E A M 006 002 I L : | w i
0032360 t h | 006 001 0 ) \r
0032400 ( 006
0032420 002 I L : | f r e p l a c e | 006 001
0032440 I L : C O F F S E T 006 002 I L
0032460 : | o f | 006 001 S T R E A M 006
0032500 002 I L : | w i t h | 006 001 ( I L
0032520 : I P L U S ( 006 002 I L : | f r
0032540 e p l a c e | 006 001 \r
0032560
*
0032660 ( I L
0032700 : T E X T S T R E A M \r
0032720
*
0033040 I L : P C S T A R T C H ) \r
0033060
*
0033200 006 002 I L : | o f | 006 001 S
0033220 T R E A M \r
0033240
*
0033340 006 002 I L :
0033360 | w i t h | 006 001 \r
0033400
*
0033500 ( L
0033520 O G A N D 1 \r
0033540
*
0033660 I L : O F F S T ) \r
0033700
*
0034020 ) \r
0034040
*
0034140 ( 006 002 I L : | f e t c h |
0034160 006 001 \r
0034200
*
0034300 I L : \ \ I
0034320 N S E R T L E N \r
0034340
*
0034440 006 002 I L :
0034460 | o f | 006 001 I L : T E X T O B
0034500 J ) \r
0034520
*
0034620 ) ) \r
0034640 ( 006 002 I L :
0034660 | f r e p l a c e | 006 001 ( I L
0034700 : T E X T S T R E A M I L : P
0034720 C S T A R T P G ) 006 002 I L : |
0034740 o f | 006 001 S T R E A M 006 002 I
0034760 L : | w i t h | 006 001 0 ) \r
0035000
*
0035060 006 006 ( I L
0035100 : * I L : | P a g e | I L :
0035120 \ # I L : | w i t h i n | \r
0035140 006 001
0035160
*
0035220 006
0035240 006 I L : | t h e | " f i l e "
0035260 I L : | w h e r e | I L : |
0035300 t h i s | \r 006 001
0035320
*
0035400 006 006 I L : | p i e c
0035420 e | I L : | s t a r t s | ) 006
0035440 001 \r
0035460 ( 006 002 I L : | f r
0035500 e p l a c e | 006 001 I L : C B U
0035520 F S I Z E 006 002 I L : | o f | 006
0035540 001 S T R E A M 006 002 I L : | w
0035560 i t h | 006 001 ( 006 002 I L : | f e
0035600 t c h | 006 001 I L : C O F F S E
0035620 T \r
0035640
*
0035720 006 002
0035740 I L : | o f | 006 001 S T R E A M
0035760 ) ) \r
0036000 ( 006 002 I L : | f
0036020 r e p l a c e | 006 001 I L : E P
0036040 A G E 006 002 I L : | o f | 006 001
0036060 S T R E A M 006 002 I L : | w i t
0036100 h | 006 001 1 ) \r
0036120 ( 006 002
0036140 I L : | f r e p l a c e | 006 001
0036160 ( I L : T E X T S T R E A M I
0036200 L : C H A R S L E F T ) 006 002 I
0036220 L : | o f | 006 001 S T R E A M
0036240 006 002 I L : | w i t h | 006 001 0 )
0036260 \r
0036300
*
0036340 006 006
0036360 ( I L : * I L : | W e ' r e ,
0036400 | I L : | p e r f o r c e , |
0036420 \r 006 001
0036440
*
0036520 006 006 I L : | a t | I L : | t
0036540 h e | I L : | e n d | I L :
0036560 | o f | \r 006 001
0036600
*
0036660 006 006 I L : | t h e |
0036700 I L : | p i e c e . | ) 006 001 \r
0036720
0036740 ( 006 002 I L : | f r e p l
0036760 a c e | 006 001 ( I L : T E X T S
0037000 T R E A M I L : R E A L F I L
0037020 E ) 006 002 I L : | o f | 006 001 S
0037040 T R E A M 006 002 I L : | w i t h
0037060 | 006 001 N I L ) \r
0037100
*
0037160 006 006 ( I L : * I L
0037200 : | W e ' r e | I L : | n o t
0037220 | I L : | o n | \r 006 001
0037240
*
0037320 006 006 I L : \
0037340 a I L : | f i l e . . . . | )
0037360 006 001 \r
0037400 ) ) ) ) ) \r ) \r ( I L :
0037420 D E F I N E Q \r \r ( 006 004 I L : T
0037440 E D I T S T R E A M . I N I T 006
0037460 001 \r ( I L : L A M B D A (
0037500 I L : W I N D O W I L : M E N
0037520 U F N ) 006 006 006 001
0037540
0037560 006 006 ( I L : * I L : A J
0037600 B " 2 4 - M a y - 8 5 1 4 :
0037620 3 6 " ) 006 001 \r
0037640
*
0037720 006 006 ( I L : * I L : |
0037740 I n i t i a l i z e | I L : |
0037760 a n d | \r 006 001
0040000
*
0040060 006 006 I L : | r e t u r
0040100 n | I L : T E D I T I L : T
0040120 E X T S T R E A M ) 006 001 \r
0040140 ( P R O G * ( ( I L : T E X
0040160 T S T R E A M ( I L : O P E N
0040200 T E X T S T R E A M N I L I
0040220 L : W I N D O W N I L N I L
0040240 ' ( I L : R E A D O N L Y T
0040260 ) ) ) \r
0040300 ( I L : T E X T O B J ( I L :
0040320 T E X T O B J I L : T E X T S
0040340 T R E A M ) ) ) \r
0040360 \r 006 006
0040400 ( I L : * I L : | f o r c e |
0040420 I L : | s h i f t | I L : |
0040440 s e l e c t | I L : | t y p e
0040460 i n | I L : | t o | I L : |
0040500 b e | I L : | p u t | \r 006 001
0040520 006 006 I L : |
0040540 i n | I L : | k e y b o a r d
0040560 | I L : | b u f f e r | ) 006 001
0040600 \r \r ( I L
0040620 : T E X T P R O P I L : T E X
0040640 T S T R E A M ' I L : C O P Y
0040660 B Y B K S Y S B U F T ) \r
0040700 ( 006 002 I L : |
0040720 r e p l a c e | 006 001 I L : S T
0040740 R M B O U T F N 006 002 I L : | o
0040760 f | 006 001 I L : T E X T S T R E
0041000 A M 006 002 I L : | w i t h | 006 001
0041020 ' I L : \ \ T E X T S T R E A
0041040 M B O U T ) \r
0041060 ( 006 002 I L : | r e p l a c e
0041100 | 006 001 S E T 006 002 I L : | o f
0041120 | 006 001 ( 006 002 I L : | f e t c h
0041140 | 006 001 I L : S E L 006 002 I L :
0041160 | o f | 006 001 I L : T E X T O B
0041200 J ) 006 002 I L : | w i t h | 006 001
0041220 T ) \r (
0041240 006 002 I L : | r e p l a c e | 006 001
0041260 I L : L 1 006 002 I L : | o f |
0041300 006 001 ( 006 002 I L : | f e t c h |
0041320 006 001 I L : S E L 006 002 I L : |
0041340 o f | 006 001 I L : T E X T O B J
0041360 ) \r
0041400 006 002 I L : | w i t h | 006 001 ( L
0041420 I S T ( 006 002 I L : | f e t c h
0041440 | 006 001 I L : D E S C 006 002 I L
0041460 : | o f | 006 001 ( 006 002 I L : | f
0041500 e t c h | 006 001 I L : T H I S L
0041520 I N E 006 002 I L : | o f | 006 001
0041540 I L : T E X T O B J ) \r
0041560
*
0041620 ) ) )
0041640 006 006 ( I L : *
0041660 I L : | h o o k u p | I L :
0041700 | m i d d l e | \r 006 001
0041720
*
0042000 006 006 I L : | b
0042020 u t t o n | I L : | m e n u |
0042040 I L : | i n s t e a d | \r 006
0042060 001
0042100
*
0042140 006 006
0042160 I L : | o f | I L : T E D I T
0042200 I L : | m e n u | ) 006 001 \r
0042220 ( I L : W I N
0042240 D O W P R O P I L : W I N D O
0042260 W ' I L : T E D I T . T I T L
0042300 E M E N U F N I L : M E N U F
0042320 N ) \r ( R
0042340 E T U R N I L : T E X T S T R
0042360 E A M ) ) ) ) \r \r ( 006 004 I L : T
0042400 E D I T C H A T . M E N U F N 006
0042420 001 \r ( I L : L A M B D A (
0042440 I L : W I N D O W ) 006 006 006 001
0042460
*
0042520 006 006 ( I L : * I L : | |
0042540 " 2 0 - O c t - 8 6 1 5 : 0
0042560 3 " ) 006 001 \r ( 006 002 D E C
0042600 L A R E 006 001 ( I L : G L O B A
0042620 L V A R S I L : T E D I T C H
0042640 A T . M E N U ) \r
0042660 ( I L : S P E C V A R S
0042700 I L : W I N D O W I L : S T
0042720 A T E ) )
0042740 006 006 ( I L : * I L
0042760 : M I D D L E B U T T O N ) 006 001
0043000 \r ( P R O G ( ( I L :
0043020 S T A T E ( I L : W I N D O W
0043040 P R O P I L : W I N D O W '
0043060 I L : C H A T S T A T E ) ) \r
0043100 I L : C O M
0043120 M A N D ) \r
0043140 ( C O N D \r
0043160 ( ( N O T I L : S T A T
0043200 E )
0043220
0043240 006 006 ( I L : * I L : N \
0043260 o I L : | C o n n e c t i o n
0043300 | \r 006 001
0043320
*
0043400 006 006 I L : | h e r e ; | I
0043420 L : | t r y | I L : | t o |
0043440 \r 006 001
0043460
*
0043540 006 006 I L : | r e e s t a b l i s
0043560 h | ) 006 001 \r
0043600 ( R E T U R N ( C O N
0043620 D \r
0043640 ( ( I L :
0043660 L A S T M O U S E S T A T E I
0043700 L : M I D D L E ) \r
0043720
0043740 ( I L : C H A T . R E C
0043760 O N N E C T I L : W I N D O W
0044000 ) ) \r
0044020 ( T (
0044040 I L : T O T O P W I L : W I N
0044060 D O W ) ) ) ) ) ) \r
0044100 ( 006 002 I L : | r e p l a
0044120 c e | 006 001 ( I L : C H A T . S
0044140 T A T E I L : H E L D ) 006 002
0044160 I L : | o f | 006 001 I L : S T A
0044200 T E 006 002 I L : | w i t h | 006 001
0044220 T ) \r ( I
0044240 L : \ \ C H E C K C A R E T I
0044260 L : W I N D O W ) \r
0044300 ( I L : S E L E C T Q
0044320 ( I L : S E T Q I L : C O M M
0044340 A N D ( I L : M E N U ( O R
0044360 I L : T E D I T C H A T . M E
0044400 N U ( I L : S E T Q I L : T
0044420 E D I T C H A T . M E N U \r
0044440
*
0044540 ( 006 002 I L : | c
0044560 r e a t e | 006 001 I L : M E N U
0044600 \r
0044620
*
0044720 I L : I T E M S I L : _
0044740 \r
0044760
*
0045060 I L : T E D I T C H A T . M E N
0045100 U I T E M S \r
0045120
*
0045220 ) ) ) ) ) \r
0045240 ( I
0045260 L : | C l o s e | ( 006 002 I L :
0045300 | r e p l a c e | 006 001 ( I L :
0045320 C H A T . S T A T E I L : R U
0045340 N N I N G ? ) 006 002 I L : | o f
0045360 | 006 001 I L : S T A T E \r
0045400
0045420 006 002 I L
0045440 : | w i t h | 006 001 ' I L : C L
0045460 O S E ) 006 006
0045500 ( I L : * I L : | A s k | I
0045520 L : C H A T . T Y P E I N I L
0045540 : | t o | \r 006 001
0045560
*
0045640 006 006 I L : | s h u t
0045660 | I L : | t h i n g s | I L
0045700 : | d o w n . | ) 006 001 \r
0045720
0045740 ) \r
0045760 ( I L : | N
0046000 e w | ( 006 002 I L : | r e p l a
0046020 c e | 006 001 ( I L : C H A T . S
0046040 T A T E I L : R U N N I N G ?
0046060 ) 006 002 I L : | o f | 006 001 I L
0046100 : S T A T E \r
0046120
0046140 006 002 I L : | w i t h | 006
0046160 001 ' I L : C L O S E ) \r
0046200
0046220 ( I L : W I N D O
0046240 W P R O P I L : W I N D O W
0046260 ' I L : K E E P C H A T ' I L
0046300 : N E W ) ) \r
0046320 ( I L : | S u s p
0046340 e n d | ( 006 002 I L : | r e p l
0046360 a c e | 006 001 ( I L : C H A T .
0046400 S T A T E I L : R U N N I N G
0046420 ? ) 006 002 I L : | o f | 006 001 I
0046440 L : S T A T E \r
0046460
0046500 006 002 I L : | w
0046520 i t h | 006 001 ' I L : C L O S E
0046540 ) \r
0046560
0046600 ( I L : W I N D O W P R O P I
0046620 L : W I N D O W ' I L : K E E
0046640 P C H A T T ) ) \r
0046660 ( I L : | F
0046700 r e e z e |
0046720
0046740 006 006 ( I L : * I
0046760 L : | L e a v e | I L : | i n
0047000 | I L : H E L D \r 006 001
0047020
*
0047100 006 006 I L : |
0047120 s t a t e | ) 006 001 \r
0047140
0047160 ( R E T U R N ) )
0047200 \r
0047220 ( N I L ) \r
0047240 ( I L : A P P L Y
0047260 * I L : C O M M A N D I L :
0047300 S T A T E I L : W I N D O W )
0047320 ) \r ( 006 002 I
0047340 L : | r e p l a c e | 006 001 ( I
0047360 L : C H A T . S T A T E I L :
0047400 H E L D ) 006 002 I L : | o f | 006
0047420 001 I L : S T A T E 006 002 I L :
0047440 | w i t h | 006 001 N I L ) ) ) )
0047460 \r ) \r \r \r \r 006 004 ( I L : * I L
0047500 : T E D I T I L : | u p d a t
0047520 e | I L : | r o u t i n e s |
0047540 ) 006 001 \r \r ( I L : D E F I N E Q
0047560 \r \r ( 006 004 I L : T E D I T . D I
0047600 S P L A Y T E X T 006 001 \r ( I
0047620 L : L A M B D A ( I L : T E X
0047640 T O B J I L : C H I L : C H
0047660 W I D T H I L : L I N E I L
0047700 : X P O I N T I L : D S I L
0047720 : S E L ) 006 006 006 001 \r
0047740
*
0050020 006 006 ( I L : * I
0050040 L : A J B " 1 0 - M a y - 8 5
0050060 1 5 : 5 3 " ) 006 001 \r
0050100 \r
0050120 006 006 ( I L : * I L : | T h i s
0050140 | I L : | f u n c t i o n |
0050160 I L : | d o e s | I L : | t h
0050200 e | I L : | a c t u a l | I
0050220 L : | d i s p l a y i n g | \r
0050240 006 001 006 006 I L
0050260 : | o f | I L : | t y p e d -
0050300 i n | I L : | t e x t | I L
0050320 : | o n | I L : | t h e | I
0050340 L : | e d i t | I L : | w i n
0050360 d o w . | ) 006 001 \r \r ( P
0050400 R O G ( ( I L : L O O K S (
0050420 I L : \ \ T E D I T . A P P L Y
0050440 . S T Y L E S ( 006 002 I L : | f
0050460 e t c h | 006 001 I L : C A R E T
0050500 L O O K S 006 002 I L : | o f | 006
0050520 001 I L : T E X T O B J ) \r
0050540
0050560 ( 006 002 I L :
0050600 | f e t c h | 006 001 I L : \ \ I
0050620 N S E R T P C 006 002 I L : | o f
0050640 | 006 001 I L : T E X T O B J ) \r
0050660
0050700 I L : T
0050720 E X T O B J ) ) \r
0050740 ( I L : T E R M S A (
0050760 006 002 I L : | f e t c h | 006 001 I
0051000 L : T X T T E R M S A 006 002 I L
0051020 : | o f | 006 001 I L : T E X T O
0051040 B J ) ) \r
0051060 I L : D Y I L : F O N T ) \r
0051100 ( I L : M O V
0051120 E T O I L : X P O I N T ( I
0051140 L : I P L U S ( 006 002 I L : | f
0051160 e t c h | 006 001 I L : Y B A S E
0051200 006 002 I L : | o f | 006 001 I L :
0051220 L I N E ) \r
0051240
0051260 ( O R
0051300 ( 006 002 I L : | f e t c h | 006 001
0051320 I L : C L O F F S E T 006 002 I L
0051340 : | o f | 006 001 I L : L O O K S
0051360 ) \r
0051400
0051420 0 ) ) \r
0051440
0051460 I L : D S )
0051500
0051520 006 006 (
0051540 I L : * I L : | S e t | I L
0051560 : | t h e | I L : | d i s p l
0051600 a y | \r 006 001
0051620
*
0051700 006 006 I L : | s t r e a m
0051720 | I L : | p o s i t i o n | )
0051740 006 001 \r ( C O
0051760 N D \r
0052000 ( I L : T E R M S A
0052020
*
0052060 006 006 ( I L : * I L : | S p e c
0052100 i a l | I L : | t e r m i n a
0052120 l | \r 006 001
0052140
*
0052220 006 006 I L : | t a b l e |
0052240 I L : | f o r | I L : | c o n
0052260 t r o l l i n g | \r 006 001
0052300
*
0052360 006 006 I L : |
0052400 c h a r a c t e r | I L : | d
0052420 i s p l a y . | \r 006 001
0052440
*
0052520 006 006 I L : | U s
0052540 e | I L : | i t . | ) 006 001 \r
0052560
0052600 ( I L : R E S E T L S T
0052620 ( I L : R E S E T S A V E I L
0052640 : \ \ P R I M T E R M S A I L
0052660 : T E R M S A ) \r
0052700
0052720 ( 006 002 I L : | r e p l a
0052740 c e | 006 001 ( I L : T E X T S T
0052760 R E A M I L : R E A L F I L E
0053000 ) 006 002 I L : | o f | 006 001 ( 006
0053020 002 I L : | f e t c h | 006 001 \r
0053040
*
0053160 I L : S T R E A M H I N T
0053200 \r
0053220
*
0053320 006 002 I L : | o f | 006 001 I L :
0053340 T E X T O B J ) \r
0053360
0053400 006 002 I L : | w i t
0053420 h | 006 001 I L : D S ) \r
0053440
0053460 ( C O N D \r
0053500
0053520 ( ( I L :
0053540 S T R I N G P I L : C H ) \r
0053560
0053600 ( 006
0053620 002 I L : | f o r | 006 001 I L : C
0053640 H A R 006 002 I L : | i n s t r i
0053660 n g | 006 001 I L : C H \r
0053700
0053720 006 002
0053740 I L : | d o | 006 001 ( I L : S E
0053760 L C H A R Q I L : C H A R \r
0054000
*
0054040 (
0054060 I L : T A B 006 006 ( I
0054100 L : * I L : | P u t | I L :
0054120 | d o w n | I L : | w h i t e
0054140 | ) 006 001 \r
0054160
*
0054220 ( I L
0054240 : B I T B L T N I L 0 0
0054260 I L : D S I L : X P O I N T \r
0054300
*
0054360 (
0054400 006 002 I L : | f e t c h | 006 001 I
0054420 L : Y B O T 006 002 I L : | o f |
0054440 006 001 I L : L I N E ) \r
0054460
*
0054540 3 6 \r
0054560
*
0054640 ( 006 002
0054660 I L : | f e t c h | 006 001 I L :
0054700 L H E I G H T 006 002 I L : | o f
0054720 | 006 001 I L : L I N E \r
0054740
*
0055040 ) \r
0055060
*
0055140 ' I L : T E X T U R E \r
0055160
*
0055240 ' I
0055260 L : R E P L A C E I L : W H I
0055300 T E S H A D E ) \r
0055320
*
0055400 ( I L : R E L M O V E T O 3
0055420 6 0 I L : D S ) ) \r
0055440
*
0055500 ( I L :
0055520 C R ( I L : B I T B L T N I
0055540 L 0 0 I L : D S I L : X
0055560 P O I N T \r
0055600
*
0055660 ( 006 002 I L : | f e t c h
0055700 | 006 001 I L : Y B O T 006 002 I L
0055720 : | o f | 006 001 I L : L I N E )
0055740 \r
0055760
*
0056020 (
0056040 I L : I M A X 6 ( I L : C H
0056060 A R W I D T H I L : C H A R
0056100 \r
0056120
*
0056220 I L : F O N T ) ) \r
0056240
*
0056320 ( 006 002 I L : |
0056340 f e t c h | 006 001 I L : L H E I
0056360 G H T 006 002 I L : | o f | 006 001
0056400 I L : L I N E ) \r
0056420
*
0056500 ' I L : T E X T U
0056520 R E \r
0056540
*
0056620 ' I L : R E P L A C E I L :
0056640 W H I T E S H A D E ) ) \r
0056660
*
0056720 ( I L
0056740 : \ \ D S P P R I N T C H A R
0056760 ( 006 002 I L : | f e t c h | 006 001
0057000 I L : S T R E A M H I N T \r
0057020
*
0057120 006 002 I L : | o f | 006 001
0057140 I L : T E X T O B J ) \r
0057160
*
0057240 I L : C H A R ) ) ) ) \r
0057260
0057300 ( T
0057320 ( I L : S E L C H A R Q I L :
0057340 C H \r
0057360
0057400 ( I L : T A
0057420 B
0057440 006 006 ( I L : * I L : | P u t |
0057460 I L : | d o w n | I L : | w
0057500 h i t e | ) 006 001 \r
0057520
*
0057560 ( I L : B I T B
0057600 L T N I L 0 0 I L : D S
0057620 I L : X P O I N T \r
0057640
*
0057720 ( 006 002 I L : | f e t c h | 006 001
0057740 I L : Y B O T 006 002 I L : | o
0057760 f | 006 001 I L : L I N E ) \r
0060000
*
0060060 3 6 \r
0060100
*
0060140 ( 006 002
0060160 I L : | f e t c h | 006 001 I L :
0060200 L H E I G H T 006 002 I L : | o f
0060220 | 006 001 I L : L I N E ) \r
0060240
*
0060320 ' I L : T E X T U R E \r
0060340
*
0060420 ' I L : R E P L A C E
0060440 I L : W H I T E S H A D E ) \r
0060460
*
0060520 (
0060540 I L : R E L M O V E T O 3 6
0060560 0 I L : D S ) ) \r
0060600
*
0060640 ( I L : C R ( I L : B I T B
0060660 L T N I L 0 0 I L : D S
0060700 I L : X P O I N T \r
0060720
*
0061000 ( 006 002 I L : | f e t c h | 006 001
0061020 I L : Y B O T 006 002 I L : | o f
0061040 | 006 001 I L : L I N E ) \r
0061060
*
0061140 ( I L : I M A X 6 ( I L
0061160 : C H A R W I D T H I L : C H
0061200 I L : F O N T ) ) \r
0061220
*
0061300 ( 006 002 I L : | f e t c h | 006 001
0061320 I L : L H E I G H T 006 002 I L :
0061340 | o f | 006 001 I L : L I N E ) \r
0061360
*
0061440 ' I L : T E X T U R E
0061460 \r
0061500
*
0061540 ' I L : R E P L A C
0061560 E I L : W H I T E S H A D E )
0061600 ) \r
0061620
0061640 ( I L : \ \ D
0061660 S P P R I N T C H A R ( 006 002 I
0061700 L : | f e t c h | 006 001 I L : S
0061720 T R E A M H I N T 006 002 I L : |
0061740 o f | 006 001 \r
0061760
*
0062100 I L : T E X T O B J ) \r
0062120
*
0062160 I L : C H
0062200 ) ) ) ) ) ) \r
0062220 ( T
0062240
*
0062300 006 006 ( I L : * I L : N
0062320 \ o I L : | s p e c i a l |
0062340 \r 006 001
0062360
*
0062440 006 006 I L : | h a n d l i n g ; |
0062460 I L : | j u s t | I L : | u
0062500 s e | \r 006 001
0062520
*
0062600 006 006 I L : | n a t i v e
0062620 | I L : | c h a r a c t e r |
0062640 I L : | c o d e s | ) 006 001 \r
0062660 (
0062700 C O N D \r
0062720 ( ( I L : S T R
0062740 I N G P I L : C H ) \r
0062760
0063000 ( 006 002 I L : | f o r | 006 001 I L
0063020 : C H A R 006 002 I L : | i n s t
0063040 r i n g | 006 001 I L : C H \r
0063060
0063100 006 002 I L : | d o | 006 001
0063120 ( I L : S E L C H A R Q I L
0063140 : C H A R \r
0063160
0063200 ( I L : T
0063220 A B
0063240 006 006 ( I L : * I L : | P
0063260 u t | I L : | d o w n | I L
0063300 : | w h i t e | ) 006 001 \r
0063320
*
0063360 ( I L : B I T
0063400 B L T N I L 0 0 I L : D
0063420 S ( I L : D S P X P O S I T I
0063440 O N N I L I L : D S ) \r
0063460
*
0063540 ( 006 002 I L : | f e t c h | 006
0063560 001 I L : Y B O T 006 002 I L : |
0063600 o f | 006 001 I L : L I N E ) \r
0063620
*
0063700 3 6 \r
0063720
*
0063760 ( 006 002 I L :
0064000 | f e t c h | 006 001 I L : L H E
0064020 I G H T 006 002 I L : | o f | 006 001
0064040 I L : L I N E ) \r
0064060
*
0064120 ' I
0064140 L : T E X T U R E \r
0064160
*
0064220 ' I
0064240 L : R E P L A C E I L : W H I
0064260 T E S H A D E ) \r
0064300
*
0064340 ( I L : R E L M O V
0064360 E T O 3 6 0 I L : D S ) )
0064400 \r
0064420
0064440 ( I L : C R ( I L
0064460 : B I T B L T N I L 0 0
0064500 I L : D S ( I L : D S P X P O
0064520 S I T I O N N I L I L : D S
0064540 ) \r
0064560
*
0064620 ( 006 002 I L : | f e t c
0064640 h | 006 001 I L : Y B O T 006 002 I
0064660 L : | o f | 006 001 I L : L I N E
0064700 ) \r
0064720
*
0064760 ( I L : I M A X 6
0065000 ( I L : C H A R W I D T H I L
0065020 : C H A R I L : F O N T ) ) \r
0065040
*
0065120 ( 006 002 I L : | f e t c h |
0065140 006 001 I L : L H E I G H T 006 002
0065160 I L : | o f | 006 001 I L : L I N
0065200 E ) \r
0065220
*
0065260 ' I L : T E X T U R
0065300 E \r
0065320
*
0065360 ' I L : R E P L A C E
0065400 I L : W H I T E S H A D E ) )
0065420 \r
0065440
0065460 ( I L : B L T C H A
0065500 R I L : C H A R I L : D S )
0065520 ) ) ) \r
0065540 ( T ( I L : S E
0065560 L C H A R Q I L : C H \r
0065600
0065620 ( I L : T A B
0065640
0065660 006 006 ( I L :
0065700 * I L : | P u t | I L : | d
0065720 o w n | I L : | w h i t e | )
0065740 006 001 \r
0065760
0066000 ( I L : B I T B L
0066020 T N I L 0 0 I L : D S
0066040 ( I L : D S P X P O S I T I O N
0066060 N I L I L : D S ) \r
0066100
*
0066140 ( 006 002 I L : | f e
0066160 t c h | 006 001 I L : Y B O T 006
0066200 002 I L : | o f | 006 001 I L : L I
0066220 N E ) \r
0066240
0066260 3
0066300 6 \r
0066320
0066340 ( 006 002
0066360 I L : | f e t c h | 006 001 I L :
0066400 L H E I G H T 006 002 I L : | o f
0066420 | 006 001 I L : L I N E ) \r
0066440
*
0066500 ' I L : T E X T
0066520 U R E \r
0066540
0066560 '
0066600 I L : R E P L A C E I L : W H
0066620 I T E S H A D E ) \r
0066640
0066660 ( I
0066700 L : R E L M O V E T O 3 6 0
0066720 I L : D S ) ) \r
0066740
0066760 ( I L : C R
0067000
0067020 006 006 ( I L : * I L
0067040 : | B l a n k | I L : | o u t
0067060 | I L : | t h e | \r 006 001
0067100
*
0067160 006 006 I L :
0067200 | C R ' s | I L : | w i d t h
0067220 . | ) 006 001 \r
0067240
0067260 ( I L : B I T
0067300 B L T N I L 0 0 I L : D
0067320 S ( I L : D S P X P O S I T I
0067340 O N N I L I L : D S ) \r
0067360
*
0067420 ( 006 002 I L : | f
0067440 e t c h | 006 001 I L : Y B O T
0067460 006 002 I L : | o f | 006 001 I L : L
0067500 I N E ) \r
0067520
0067540 (
0067560 I L : I M A X 6 ( I L : C H
0067600 A R W I D T H I L : C H I L
0067620 : F O N T ) ) \r
0067640
*
0067700 ( 006 002 I L : | f e t c h | 006
0067720 001 I L : L H E I G H T 006 002 I
0067740 L : | o f | 006 001 I L : L I N E
0067760 ) \r
0070000
0070020 ' I L :
0070040 T E X T U R E \r
0070060
*
0070120 ' I L : R E P L A C E I L
0070140 : W H I T E S H A D E ) ) \r
0070160
0070200 ( I L : B L
0070220 T C H A R I L : C H I L : D
0070240 S ) ) ) ) ) ) ) ) ) \r ) \r ( I L
0070260 : D E C L A R E \ : I L : D O
0070300 E V A L @ C O M P I L E I L :
0070320 D O N T C O P Y \r \r ( I L : G L
0070340 O B A L V A R S I L : T E D I
0070360 T C H A T . M E N U I L : C H
0070400 A T . D R I V E R T Y P E S I
0070420 L : C H A T . D I S P L A Y T Y
0070440 P E S ) \r ) \r \r ( I L : R P A Q
0070460 Q 006 002 I L : T E D I T C H A T
0070500 . M E N U I T E M S 006 001 ( ( I
0070520 L : | C l o s e | ' I L : | C
0070540 l o s e | " C l o s e s t h
0070560 e c o n n e c t i o n a n d
0070600 r e t u r n s " ) \r
0070620
0070640 ( I L
0070660 : | S u s p e n d | ' I L : |
0070700 S u s p e n d | \r
0070720
*
0070760 " C l o s e s t h e c
0071000 o n n e c t i o n b u t l e
0071020 a v e s w i n d o w u p " )
0071040 \r
0071060
0071100 ( I L : | N e w | ' I L
0071120 : | N e w | \r
0071140
*
0071200 " C l o s e s t h i s c o
0071220 n n e c t i o n a n d p r o
0071240 m p t s f o r a n e w h
0071260 o s t " ) \r
0071300
0071320 ( I L : | F r e
0071340 e z e | ' I L : | F r e e z e
0071360 | \r
0071400
0071420 " H o l
0071440 d s t y p e o u t i n t h
0071460 i s w i n d o w u n t i l
0071500 y o u b u g i t a g a i n
0071520 " ) \r
0071540
0071560 ( " D r i b b l e "
0071600 ( I L : F U N C T I O N I L :
0071620 C H A T . T Y P E S C R I P T )
0071640 \r
0071660
0071700 " S t a r t
0071720 s a t y p e s c r i p t o
0071740 f w i n d o w t y p e o u t
0071760 " ) \r
0072000
0072020 ( " I n p u t " ( I
0072040 L : F U N C T I O N I L : C H
0072060 A T . T A K E . I N P U T ) \r
0072100
*
0072140 " A l l o w s
0072160 i n p u t f r o m a f i l
0072200 e " ) \r
0072220
0072240 ( " O p t i o n "
0072260 ( I L : F U N C T I O N I L :
0072300 D O . C H A T . O P T I O N ) \r
0072320
*
0072360 " D o p r o
0072400 t o c o l s p e c i f i c o
0072420 p t i o n " ) ) ) \r \r ( I L : R
0072440 P A Q Q 006 002 I L : T E D I T C
0072460 H A T . M E N U 006 001 N I L ) \r
0072500 \r ( I L : A D D T O V A R 006 002
0072520 I L : C H A T . D R I V E R T Y
0072540 P E S 006 001 ( I L : T E D I T
0072560 I L : T E D I T C H A T . C H A
0072600 R F N I L : N I L L ) ) \r ( I
0072620 L : D E C L A R E \ : I L : E
0072640 V A L @ C O M P I L E I L : D
0072660 O N T C O P Y \r ( I L : F I L
0072700 E S L O A D ( I L : S O U R C
0072720 E ) \r I L : C H A
0072740 T D E C L S ) \r ) \r ( I L : P U
0072760 T P R O P S I L : T E D I T C
0073000 H A T I L : C O P Y R I G H T
0073020 ( " X e r o x C o r p o r a
0073040 t i o n " 1 9 8 5 1 9 8 6 )
0073060 ) \r ( I L : D E C L A R E \ :
0073100 I L : D O N T C O P Y \r ( I
0073120 L : F I L E M A P ( N I L (
0073140 1 3 4 0 1 6 1 3 9 ( I L : T
0073160 E D I T C H A T . C H A R F N
0073200 1 3 5 3 . 2 1 8 4 ) ( I L
0073220 : \ \ T E X T S T R E A M B O U
0073240 T 2 1 8 6 . 1 6 1 3 7 ) )
0073260 ( \r 1 6 1 4 0 2 0 2 7 4 (
0073300 I L : T E D I T S T R E A M . I
0073320 N I T 1 6 1 5 3 . 1 7 6 5
0073340 5 ) ( I L : T E D I T C H A T
0073360 . M E N U F N 1 7 6 5 7 .
0073400 2 0 2 7 2 ) ) ( 2 0 3 2 5 2
0073420 8 8 4 4 ( \r I L : T E D I T .
0073440 D I S P L A Y T E X T 2 0 3 3
0073460 8 . 2 8 8 4 2 ) ) ) ) ) \r I
0073500 L : S T O P \r
0073507