$ od -c -N 50000 [eris]<Lisp>JCAI>library>TEDITCHAT.DCOM!1
0000000 ( F I L E C R E A T E D " 2 9
0000020 - M a y - 8 5 1 0 : 1 4 : 4 4
0000040 " ( " c o m p i l e d o n
0000060 " { D S K } < L I S P F I L E
0000100 S > T E D I T C H A T . ; 2 9 )
0000120 " 1 4 - M a y - 8 5 1 8 : 5
0000140 1 : 5 4 " \r r e c o m p i l e
0000160 d c h a n g e s : T E D I T
0000200 C H A T . C H A R F N T E D I
0000220 T S T R E A M . I N I T T E D
0000240 I T C H A T . M E N U F N i n
0000260 " I N T E R L I S P - D 1 4
0000300 - M a y - 8 5 . . . " \r d a
0000320 t e d " 1 4 - M a y - 8 5 1
0000340 9 : 0 9 : 0 4 " ) \r ( F I L E C
0000360 R E A T E D " 2 4 - M a y - 8
0000400 5 1 5 : 2 4 : 3 0 " { D S K
0000420 } < L I S P F I L E S > T E D I
0000440 T C H A T . ; 2 8 1 4 9 4 5
0000460 c h a n g e s t o : ( V A R
0000500 S T E D I T C H A T . M E N U
0000520 \r T E D I T C H A T C O M S
0000540 T E D I T C H A T . M E N U I T
0000560 E M S ) ( F N S T E D I T S
0000600 T R E A M . I N I T T E D I T
0000620 C H A T . M E N U F N T E D I
0000640 T C H A T . C H A R F N \r T E
0000660 D I T . C H A T . C H A R F N )
0000700 p r e v i o u s d a t e :
0000720 " 2 2 - M a y - 8 5 1 8 : 1 7
0000740 : 3 7 " { D S K } < L I S P F
0000760 I L E S > T E D I T C H A T . ;
0001000 2 2 ) \r T E D I T C H A T . C H
0001020 A R F N D 1 \r ( P 1 S E L
0001040 P 0 T E X T S T R E A M
0001060 I 1 C H A T . S T A T E I
0001100 0 C H ) \0 W 002 \0 \0 002 A 006 \0
0001120 \0 311 \n 021 001 \0 H \t \0 \0 006 \0 \0 311 032 021
0001140 001 001 H \t \0 \0 006 \0 \0 311 030 \t \0 \0 @ d
0001160 l \b 360 262 & 277 H o \0 \0 \0 I \v \0 \0 I
0001200 006 \0 \0 311 002 I 006 \0 \0 311 \0 H \t \0 \0 006
0001220 \0 \0 311 022 001 \v \0 \0 020 l \n 360 221 h 020 H
0001240 @ ! 020 \0 ( 1 1 2 Q M O V E T O
0001260 1 0 1 Q T E X T O B J 6 1
0001300 Q \ T E D I T . C H A R D E L
0001320 E T E 4 0 Q \ C A R E T . D
0001340 O W N 3 0 Q T E X T O B J
0001360 1 4 Q T E X T O B J ) \r ( 1 0
0001400 4 Q T E X T O B J 7 3 Q S
0001420 E L E C T I O N 6 5 Q S E L
0001440 E C T I O N 3 3 Q T E X T O
0001460 B J 1 7 Q T E X T O B J 3
0001500 C H A T . S T A T E ) \r ( 5
0001520 5 Q " " ) \r \ T E X T S T R E
0001540 A M B O U T D 1 \r ( P 4 1 Q
0001560 F O N T P 4 0 Q C U R L
0001600 I N E P 3 7 Q I M A G E C
0001620 A C H E P 3 6 Q T A B S E
0001640 E N P 3 5 Q D Y P 3 4
0001660 Q O L H E I G H T P 3 3 Q
0001700 O F L O W F N P 3 2 Q S
0001720 A V E W I D T H P 3 1 Q P
0001740 R E V L I N E P 3 0 Q D X
0001760 P 2 7 Q N E W L I N E F L
0002000 G P 2 6 Q L I N E S P
0002020 2 5 Q N E X T L I N E P 2
0002040 4 Q F I X E D L I N E P 2
0002060 3 Q P R E V S P A C E P 2
0002100 2 Q O C R \ E N D P 2 1 Q
0002120 O C H L I M P 2 0 Q O X
0002140 L I M P 1 7 Q C H W I D T
0002160 H P 1 6 Q C H O R I G P
0002200 1 5 Q E O L F L A G P 1
0002220 4 Q L O O K S P 1 3 Q L
0002240 N P 1 2 Q L 1 P 1 1 Q
0002260 T H I S L I N E P 1 0 Q
0002300 S E L P 7 O F F S T P
0002320 6 P S T R P 5 P C P
0002340 4 P S P 3 T E X T L E N
0002360 P 2 W I N D O W P 1
0002400 C H # P 0 T E X T O B J
0002420 I 1 B Y T E I 0 S T R
0002440 E A M ) 002 253 " \0 \0 002 @ 006 \0 \0 311
0002460 020 021 201 \b H 006 \0 \0 311 002 [ H 006 \0 \0 311
0002500 022 Z H 006 \0 \0 311 032 _ 020 d 006 \0 \0 311 016
0002520 001 264 003 202 261 002 200 O 020 006 \0 \0 311 006 Y J
0002540 226 H I d \v \0 \0 277 A I H \v \0 \0 J 264
0002560 003 202 261 002 b H 006 \0 \0 311 8 O 020 006 \0 \0
0002600 311 016 001 O 020 006 \0 \0 311 020 001 H 006 \0 \0 311
0002620 4 H 006 \0 \0 311 004 H \v \0 \0 021 364 033 021 `
0002640 ! O 020 006 \0 \0 O 020 006 \0 \0 311 006 k 324 024
0002660 006 277 O 020 006 \0 \0 O 020 006 \0 \0 311 006 024 \n
0002700 277 O 020 006 \0 \0 g \0 \0 024 024 277 O 020 006 \0
0002720 \0 j 024 \f 277 O 020 006 \0 \0 g \0 \0 024 030 277
0002740 O 024 _ @ 006 \0 \0 O @ 006 \0 \0 311 030 k 324
0002760 024 030 277 O @ 006 \0 \0 O @ 006 \0 \0 311 032 k
0003000 324 024 032 277 O 030 006 \0 \0 311 \0 _ B J 001 \n
0003020 \0 \0 277 O 020 006 \0 \0 311 002 A O B \n \0 \0
0003040 324 H 006 \0 \0 311 $ l \b 331 361 251 A l \r 331
0003060 j 360 242 261 \0 350 H \t \0 \0 277 O 020 H J 001
0003100 \v \0 \0 277 O 020 006 \0 \0 311 016 001 _ 024 277 O
0003120 020 006 \0 \0 311 020 001 _ 026 277 O 020 006 \0 \0 311
0003140 024 d g \0 \0 360 223 277 O 024 207 g \0 \0 360 262
0003160 7 O 026 262 3 O 020 006 \0 \0 311 024 d g \0 \0
0003200 360 230 277 O 024 006 \0 \0 311 \0 215 g \0 \0 360 227
0003220 O 026 006 \0 \0 311 \0 200 j h J 001 \n \0 \0 002
0003240 001 361 222 261 \0 267 O 020 006 \0 \0 311 \0 H 006 \0
0003260 \0 311 ( 375 361 263 025 O 020 006 \0 \0 311 \0 H 006
0003300 \0 \0 311 & 375 361 222 261 \0 223 H 006 \0 \0 h 024
0003320 > 277 J 001 j O 020 006 \0 \0 311 024 d g \0 \0
0003340 360 223 277 O 024 207 g \0 \0 360 262 ( O 026 262 $
0003360 O 020 006 \0 \0 311 024 d g \0 \0 360 223 277 O 024
0003400 212 g \0 \0 360 222 O 026 202 \b \0 \0 006 \0 \0 311
0003420 \f 201 l \f 340 \v \0 \0 277 260 215 H A d O B
0003440 \n \0 \0 O @ O 020 006 \0 \0 311 002 J 001 O 020
0003460 \r \a \0 \0 277 O 020 006 \0 \0 O 020 006 \0 \0 311
0003500 002 A O B \n \0 \0 324 024 002 277 O 020 006 \0 \0
0003520 O 020 006 \0 \0 311 002 024 \b 277 H 006 \0 \0 311 004
0003540 ] 311 \0 274 @ 006 \0 \0 M 024 024 277 @ 006 \0 \0
0003560 H 006 \0 \0 311 006 315 033 277 @ L 311 \0 L 310 003
0003600 _ 016 342 320 024 002 277 @ j 315 032 277 @ d 006 \0
0003620 \0 O 016 k 345 = 002 = 002 315 027 277 d < 002 277
0003640 277 H 006 \0 \0 311 \f 330 315 \0 277 @ 006 \0 \0 j
0003660 315 026 277 @ d 006 \0 \0 310 \0 315 001 277 @ k 315
0003700 \n 277 @ 006 \0 \0 j 024 016 277 @ 006 \0 \0 h 024
0003720 \f 023 023 h 020 \0 ( 1 0 3 3 Q C H A
0003740 R W I D T H 1 0 1 0 Q T E D
0003760 I T . D I S P L A Y T E X T 7
0004000 6 7 Q C H A R W I D T H 7 5
0004020 4 Q S C R O L L W 7 4 0 Q
0004040 S H O U L D N T 5 6 3 Q D S
0004060 P C L I P P I N G R E G I O N
0004100 4 2 7 Q \ F I X S E L 4 1 6
0004120 Q T E D I T . U P D A T E . S
0004140 C R E E N 3 6 4 Q C H A R W
0004160 I D T H 3 4 6 Q D S P F O N
0004200 T 1 5 7 Q \ T E D I T . A P
0004220 P L Y . S T Y L E S 1 0 2 Q
0004240 \ I N S E R T C H 7 3 Q \ T
0004260 E D I T . M A R K . L I N E S .
0004300 D I R T Y ) \r ( 1 2 4 2 Q S T
0004320 R E A M 1 2 3 2 Q S T R E A
0004340 M 1 2 1 4 Q S T R E A M 1
0004360 2 0 3 Q S T R E A M 1 1 7 1
0004400 Q T E X T O B J 1 1 4 5 Q
0004420 S T R E A M 1 1 1 0 Q T E X
0004440 T O B J 1 1 0 4 Q S T R E A
0004460 M 1 0 7 4 Q S T R E A M 1
0004500 0 6 2 Q T E X T O B J 1 0 5
0004520 1 Q S E L E C T I O N 1 0 4
0004540 4 Q S E L E C T I O N 1 0 2
0004560 3 Q S E L E C T I O N 1 0 1
0004600 6 Q S E L E C T I O N 7 7 6
0004620 Q S E L E C T I O N 7 4 3 Q
0004640 L I N E D E S C R I P T O R
0004660 7 3 0 Q R I G H T 7 1 7 Q
0004700 L E F T 7 1 1 Q S E L E C T
0004720 I O N 6 7 5 Q R I G H T 6
0004740 6 4 Q L E F T 6 5 6 Q S E
0004760 L E C T I O N 6 4 2 Q T E X
0005000 T O B J 6 2 6 Q T E X T O B
0005020 J 6 2 0 Q S E L E C T I O N
0005040 6 0 5 Q T E X T O B J 5 7
0005060 7 Q S E L E C T I O N 5 5 1
0005100 Q L I N E D E S C R I P T O R
0005120 5 4 2 Q R I G H T 5 3 4 Q
0005140 L I N E D E S C R I P T O R
0005160 5 2 4 Q L E F T 5 1 6 Q S
0005200 E L E C T I O N 5 0 2 Q R I
0005220 G H T 4 7 1 Q L E F T 4 6
0005240 3 Q S E L E C T I O N 4 5 0
0005260 Q S E L E C T I O N 4 3 5 Q
0005300 S E L E C T I O N 3 7 1 Q
0005320 T E X T O B J 3 5 4 Q S E L
0005340 E C T I O N 3 3 5 Q C H A R
0005360 L O O K S 3 2 1 Q L I N E D
0005400 E S C R I P T O R 3 1 4 Q L
0005420 I N E D E S C R I P T O R 3 0
0005440 0 Q L I N E D E S C R I P T O
0005460 R 2 7 3 Q L I N E D E S C R
0005500 I P T O R 2 6 1 Q C H A R
0005520 2 5 6 Q S E L E C T I O N 2
0005540 4 5 Q S E L E C T I O N 2 3
0005560 5 Q L E F T 2 3 2 Q S E L
0005600 E C T I O N 2 2 0 Q S E L E
0005620 C T I O N 2 1 3 Q S E L E C
0005640 T I O N 1 7 7 Q S E L E C T
0005660 I O N 1 7 2 Q S E L E C T I
0005700 O N 1 5 1 Q T E X T O B J
0005720 1 4 3 Q T E X T O B J 1 3 4
0005740 Q S E L E C T I O N 1 2 4 Q
0005760 S E L E C T I O N 1 1 5 Q
0006000 T E X T O B J 6 0 Q S E L E
0006020 C T I O N 4 2 Q S E L E C T
0006040 I O N 3 2 Q T E X T O B J
0006060 2 3 Q T E X T O B J 1 4 Q
0006100 T E X T O B J 3 S T R E A M
0006120 ) \r ( ) \r T E D I T S T R E A M
0006140 . I N I T D 1 \r ( P 1 T E
0006160 X T O B J P 0 T E X T S T
0006200 R E A M I 1 M E N U F N
0006220 I 0 W I N D O W ) \0 202 002 \0
0006240 \0 002 h @ h d o \0 \0 \0 \r 005 \0 \0 021 001
0006260 \0 H \t \0 \0 021 001 001 H \t \0 \0 006 \0 \0 311
0006300 F 262 023 H \t \0 \0 006 \0 \0 311 F g \0 \0 i
0006320 \v \0 \0 217 H \t \0 \0 006 \0 \0 g \0 \0 i h
0006340 032 032 024 F 277 H 006 \0 \0 g \0 \0 024 . I 006
0006360 \0 \0 311 032 006 \0 \0 k 317 024 \0 277 k j 360 h
0006400 360 I 006 \0 \0 311 032 006 \0 \0 I 006 \0 \0 311 8
0006420 006 \0 \0 311 \0 h 032 024 016 @ g \0 \0 A \v \0
0006440 \0 H 020 \0 ( 1 7 6 Q P U T W I N
0006460 D O W P R O P 6 5 Q T E X T
0006500 O B J 6 0 Q L I S T P U T
0006520 4 4 Q T E X T O B J 3 1 Q
0006540 T E X T O B J 2 2 Q T E X T
0006560 O B J 1 3 Q O P E N T E X T
0006600 S T R E A M ) \r ( 1 7 2 Q T E
0006620 D I T . T I T L E M E N U F N
0006640 1 6 0 Q T H I S L I N E 1 5
0006660 3 Q T E X T O B J 1 4 7 Q
0006700 S E L E C T I O N 1 4 2 Q T
0006720 E X T O B J 1 2 4 Q S E L E
0006740 C T I O N 1 1 7 Q T E X T O
0006760 B J 1 1 1 Q \ T E X T S T R
0007000 E A M B O U T 1 0 6 Q S T R
0007020 E A M 7 3 Q C O P Y B Y B K
0007040 S Y S B U F 7 0 Q T E X T O
0007060 B J 5 4 Q C O P Y B Y B K S
0007100 Y S B U F 4 7 Q T E X T O B
0007120 J 3 4 Q T E X T O B J ) \r (
0007140 7 ( R E A D O N L Y T ) )
0007160 \r T E D I T C H A T . M E N U F
0007200 N D 1 \r ( P 1 C O M M A N
0007220 D P 0 S T A T E I 0
0007240 W I N D O W F 2 T E D I T
0007260 C H A T . M E N U I T E M S )
0007300 \0 332 002 001 \0 001 @ g \0 \0 \n \0 \0 021 021 001
0007320 H 265 024 ` \0 \0 k 345 j 360 244 @ \t \0 \0 020
0007340 @ \t \0 \0 020 006 \0 \0 k 317 \0 \0 277 k j 360
0007360 h 360 ` \0 \0 224 @ \t \0 \0 277 ` \0 \0 265 3
0007400 ` \0 \0 037 d R 024 004 277 d g \0 \0 024 277
0007420 d g \0 \0 024 034 277 j d n 177 377 d h 032 032
0007440 032 032 = 002 d = 004 024 \n 277 < 002 277 277 027 \0
0007460 \0 \t \0 \0 Y d g \0 \0 360 233 277 H 006 \0 \0
0007500 g \0 \0 024 \0 260 I g \0 \0 360 262 030 H 006 \0
0007520 \0 g \0 \0 024 \0 277 @ g \0 \0 g \0 \0 \v \0
0007540 \0 260 - I d g \0 \0 360 262 026 277 H 006 \0 \0
0007560 g \0 \0 024 \0 277 @ g \0 \0 i \v \0 \0 216 g
0007600 \0 \0 360 263 032 I 227 H @ l 002 I 017 016 277 H
0007620 006 \0 \0 j 317 \0 \0 277 j d 360 h 360 h 020 \0
0007640 ( 2 6 7 Q P U T W I N D O W P
0007660 R O P 2 3 2 Q P U T W I N D
0007700 O W P R O P 1 5 5 Q M E N U
0007720 6 3 Q \ C A R E T . D O W N
0007740 3 5 Q T O T O P W 3 0 Q
0007760 C H A T . R E C O N N E C T 6
0010000 G E T W I N D O W U S E R P R
0010020 O P ) \r ( 3 1 4 Q C H A T . S
0010040 T A T E 2 7 3 Q F r e e z e
0010060 2 6 3 Q K E E P C H A T 2
0010100 5 4 Q C L O S E 2 5 1 Q C
0010120 H A T . S T A T E 2 4 1 Q S
0010140 u s p e n d 2 2 7 Q N E W
0010160 2 2 4 Q K E E P C H A T 2 1
0010200 5 Q C L O S E 2 1 2 Q C H
0010220 A T . S T A T E 2 0 3 Q N e
0010240 w 1 7 4 Q C L O S E 1 7 1
0010260 Q C H A T . S T A T E 1 6 2
0010300 Q C l o s e 1 5 2 Q T E D
0010320 I T C H A T . M E N U 1 1 5 Q
0010340 D E F A U L T M E N U H E L D
0010360 F N 1 0 6 Q C L R P R O M P
0010400 T 7 4 Q 004 003 M E N U T Y P E
0010420 # 6 7 Q T E D I T C H A T .
0010440 M E N U 5 6 Q \ C A R E T .
0010460 U P 4 1 Q C H A T . S T A T
0010500 E 1 7 Q L A S T M O U S E B
0010520 U T T O N S 3 C H A T S T A
0010540 T E ) \r ( ) \r T E D I T . D I S
0010560 P L A Y T E X T A 0 0 0 1 D 1
0010600 \r ( N A M E E R R O R S E T
0010620 L ( 0 N I L ) P 1 C H
0010640 A R F 6 L I N E F 7
0010660 D S F 1 0 Q C H F 1 1
0010700 Q X P O I N T F 1 2 Q T
0010720 E X T O B J F 1 3 Q R E S
0010740 E T V A R S L S T F 1 4 Q
0010760 F O N T F 1 5 Q T E R M S
0011000 A F 1 6 Q R E S E T Y )
0011020 001 ^ 006 \t 002 \0 g \0 \0 d \t \0 \0 032 g \0
0011040 \0 W 032 \n \0 \0 277 W 026 032 c 026 277 W 024 006
0011060 \0 \0 311 . 006 \0 \0 W 016 024 \f 277 W 020 005 \a
0011100 242 261 \0 266 W 020 021 Q 005 H 310 003 k 331 273 H
0011120 311 \0 274 K H 310 002 330 272 H 312 \0 C j 360 221
0011140 h 200 i ] 277 K k 330 [ J 361 222 261 \0 207 M
0011160 225 L K 320 310 \0 202 L K 302 Y d l \t 360 262
0011200 . 277 h j d W 016 W 022 V 006 \0 \0 311 \0 l
0011220 $ V 006 \0 \0 311 \f g \0 \0 g \0 \0 j \r \v
0011240 \0 \0 277 l $ j W 016 \v \0 \0 260 271 l \r 360
0011260 262 5 h j d W 016 W 022 V 006 \0 \0 311 \0 I
0011300 W 030 \n \0 \0 l 006 = 002 361 241 d 201 l 006 <
0011320 \0 277 V 006 \0 \0 311 \f g \0 \0 g \0 \0 j \r
0011340 \v \0 \0 260 201 W 024 006 \0 \0 311 . I \n \0 \0
0011360 261 377 t 023 h 260 z W 020 d l \t 360 262 . 277
0011400 h j d W 016 W 022 V 006 \0 \0 311 \0 l $ V
0011420 006 \0 \0 311 \f g \0 \0 g \0 \0 j \r \v \0 \0
0011440 277 l $ j W 016 \v \0 \0 260 F l \r 360 262 5
0011460 h j d W 016 W 022 V 006 \0 \0 311 \0 W 020 W
0011500 030 \n \0 \0 l 006 = 002 361 241 d 201 l 006 < \0
0011520 277 V 006 \0 \0 311 \f g \0 \0 g \0 \0 j \r \v
0011540 \0 \0 213 W 024 006 \0 \0 311 . W 020 \n \0 \0 c
0011560 034 i 020 \0 ( 5 3 0 Q \ D S P P R
0011600 I N T C H A R 5 1 3 Q B K B
0011620 I T B L T 4 5 5 Q C H A R W
0011640 I D T H 4 2 2 Q R E L M O V
0011660 E T O 4 1 1 Q B K B I T B L
0011700 T 3 3 1 Q \ D S P P R I N T
0011720 C H A R 3 1 4 Q B K B I T B
0011740 L T 2 5 6 Q C H A R W I D T
0011760 H 2 2 4 Q R E L M O V E T O
0012000 2 1 3 Q B K B I T B L T 1
0012020 7 Q S E T T O P V A L 6 G
0012040 E T T O P V A L ) \r ( 5 2 1 Q
0012060 T E X T O B J 5 0 6 Q R E P
0012100 L A C E 5 0 3 Q T E X T U R
0012120 E 4 7 6 Q L I N E D E S C R
0012140 I P T O R 4 4 4 Q L I N E D
0012160 E S C R I P T O R 4 0 4 Q R
0012200 E P L A C E 4 0 1 Q T E X T
0012220 U R E 3 7 4 Q L I N E D E S
0012240 C R I P T O R 3 6 4 Q L I N
0012260 E D E S C R I P T O R 3 2 3 Q
0012300 T E X T O B J 3 0 7 Q R E
0012320 P L A C E 3 0 4 Q T E X T U
0012340 R E 2 7 7 Q L I N E D E S C
0012360 R I P T O R 2 4 6 Q L I N E
0012400 D E S C R I P T O R 2 0 6 Q
0012420 R E P L A C E 2 0 3 Q T E X
0012440 T U R E 1 7 6 Q L I N E D E
0012460 S C R I P T O R 1 6 6 Q L I
0012500 N E D E S C R I P T O R 4 0 Q
0012520 S T R E A M 3 3 Q T E X T
0012540 O B J 1 2 Q \ P R I M T E R
0012560 M S A 2 \ P R I M T E R M S
0012600 A ) \r ( ) \r T E D I T . D I S P
0012620 L A Y T E X T D 1 \r ( P 1 0
0012640 Q C H A R P 6 R E S E T
0012660 Z P 5 R E S E T Y P 4
0012700 L I S P X H I S T P 3 F
0012720 O N T P 2 D Y P 1 T
0012740 E R M S A P 0 L O O K S
0012760 I 6 S E L I 5 D S I
0013000 4 X P O I N T I 3 L I
0013020 N E I 2 C H W I D T H I
0013040 1 C H I 0 T E X T O B
0013060 J F 1 5 Q L I S P X H I S
0013100 T F 1 6 Q R E S E T V A R
0013120 S L S T ) 001 227 \r 002 \0 \a @ 006 \0 \0
0013140 311 4 @ 006 \0 \0 311 004 @ \v \0 \0 @ 006 \0 \0
0013160 311 < 021 " 003 D C 006 \0 \0 311 002 H 006 \0 \0
0013200 311 006 265 003 j 330 E \v \0 \0 I 262 ( W 032 021
0013220 ! 006 W 034 o \0 \0 \0 g \0 \0 \n \0 \0 221 h
0013240 202 g \0 \0 ^ \n \0 \0 277 N 223 \b \0 \0 277 023
0013260 261 001 @ A 005 \a 242 261 \0 310 A 021 Q \f O 016
0013300 310 003 k 331 _ 024 277 O 016 311 \0 _ 026 277 O 024
0013320 O 016 310 002 330 _ 022 277 O 016 312 \0 C j 360 221
0013340 h 200 i _ 030 277 O 024 k 330 _ 024 O 022 361 222
0013360 261 \0 214 O 030 227 O 026 O 024 320 310 \0 204 O 026
0013400 O 024 302 _ 020 d l \t 360 262 / 277 h j d E
0013420 h E \n \0 \0 C 006 \0 \0 311 \0 l $ C 006 \0
0013440 \0 311 \f g \0 \0 g \0 \0 j \r \v \0 \0 277 l
0013460 $ j E \v \0 \0 260 257 l \r 360 262 8 h j d
0013500 E h E \n \0 \0 C 006 \0 \0 311 \0 O 020 K \n
0013520 \0 \0 l 006 = 002 361 241 d 201 l 006 < \0 277 C
0013540 006 \0 \0 311 \f g \0 \0 g \0 \0 j \r \v \0 \0
0013560 261 377 u O 020 E \n \0 \0 261 377 l 023 260 s A
0013600 d l \t 360 262 / 277 h j d E h E \n \0 \0
0013620 C 006 \0 \0 311 \0 l $ C 006 \0 \0 311 \f g \0
0013640 \0 g \0 \0 j \r \v \0 \0 277 l $ j E \v \0
0013660 \0 260 ? l \r 360 262 5 h j d E h E \n \0
0013700 \0 C 006 \0 \0 311 \0 A K \n \0 \0 l 006 = 002
0013720 361 241 d 201 l 006 < \0 277 C 006 \0 \0 311 \f g
0013740 \0 \0 g \0 \0 j \r \v \0 \0 204 A E \n \0 \0
0013760 h 020 \0 ( 6 2 3 Q B L T C H A R
0014000 6 1 5 Q B K B I T B L T 5
0014020 5 7 Q C H A R W I D T H 5 4
0014040 4 Q D S P X P O S I T I O N
0014060 5 2 4 Q R E L M O V E T O 5
0014100 1 4 Q B K B I T B L T 4 6 3
0014120 Q D S P X P O S I T I O N 4
0014140 3 4 Q B L T C H A R 4 2 3 Q
0014160 B K B I T B L T 3 6 5 Q C
0014200 H A R W I D T H 3 5 1 Q D S
0014220 P X P O S I T I O N 3 3 1 Q
0014240 R E L M O V E T O 3 2 1 Q B
0014260 K B I T B L T 2 7 0 Q D S P
0014300 X P O S I T I O N 1 2 1 Q E
0014320 R R O R ! 1 1 3 Q R E S E T
0014340 R E S T O R E 1 0 1 Q T E D
0014360 I T . D I S P L A Y T E X T A 0
0014400 0 0 1 5 5 Q M O V E T O 1
0014420 7 Q \ T E D I T . A P P L Y .
0014440 S T Y L E S ) \r ( 6 1 0 Q R E
0014460 P L A C E 6 0 5 Q T E X T U
0014500 R E 6 0 0 Q L I N E D E S C
0014520 R I P T O R 5 5 0 Q L I N E
0014540 D E S C R I P T O R 5 0 7 Q
0014560 R E P L A C E 5 0 4 Q T E X
0014600 T U R E 4 7 7 Q L I N E D E
0014620 S C R I P T O R 4 6 7 Q L I
0014640 N E D E S C R I P T O R 4 1 6
0014660 Q R E P L A C E 4 1 3 Q T
0014700 E X T U R E 4 0 6 Q L I N E
0014720 D E S C R I P T O R 3 5 5 Q
0014740 L I N E D E S C R I P T O R 3
0014760 1 4 Q R E P L A C E 3 1 1 Q
0015000 T E X T U R E 3 0 4 Q L I
0015020 N E D E S C R I P T O R 2 7 4
0015040 Q L I N E D E S C R I P T O R
0015060 1 0 7 Q E R R O R 7 6 Q
0015100 I N T E R N A L 4 3 Q C H A
0015120 R L O O K S 3 5 Q L I N E D
0015140 E S C R I P T O R 2 3 Q T E
0015160 X T O B J 1 1 Q T E X T O B
0015200 J 3 T E X T O B J ) \r ( 7
0015220 3 Q ( T E D I T . D I S P L A
0015240 Y T E X T A 0 0 0 1 ) ) \r ( P R
0015260 E T T Y C O M P R I N T T E D
0015300 I T C H A T C O M S ) \r ( R P A
0015320 Q Q T E D I T C H A T C O M S
0015340 ( ( C O M S ( * c h a r a
0015360 c t e r r o u t i n e s ) (
0015400 F N S T E D I T C H A T . C H
0015420 A R F N \ T E X T S T R E A M
0015440 B O U T ) ) ( C O M S ( F N
0015460 S \r T E D I T S T R E A M . I
0015500 N I T T E D I T C H A T . M E
0015520 N U F N ) ) ( C O M S ( *
0015540 T E D I T u p d a t e r o u
0015560 t i n e s ) ( F N S T E D I
0015600 T . D I S P L A Y T E X T ) )
0015620 ( \r G L O B A L V A R S T E D
0015640 I T C H A T . M E N U C H A T
0015660 . D R I V E R T Y P E S C H A
0015700 T . D I S P L A Y T Y P E S )
0015720 ( V A R S T E D I T C H A T .
0015740 M E N U I T E M S ( \r T E D I
0015760 T C H A T . M E N U ) ) ( A D
0016000 D V A R S ( C H A T . D R I V
0016020 E R T Y P E S ( T E D I T T
0016040 E D I T C H A T . C H A R F N
0016060 N I L L ) ) ) ) ) \r ( R P A Q Q
0016100 T E D I T C H A T . M E N U I
0016120 T E M S ( ( C l o s e ( Q U
0016140 O T E C l o s e ) " C l o s
0016160 e s t h e c o n n e c t i o
0016200 n a n d r e t u r n s " )
0016220 ( S u s p e n d ( Q U O T E
0016240 \r S u s p e n d ) " C l o s e
0016260 s t h e c o n n e c t i o n
0016300 b u t l e a v e s w i n d
0016320 o w u p " ) ( N e w ( Q U
0016340 O T E N e w ) \r " C l o s e
0016360 s t h i s c o n n e c t i o
0016400 n a n d p r o m p t s f o
0016420 r a n e w h o s t " ) (
0016440 F r e e z e ( Q U O T E F r
0016460 e e z e ) \r " H o l d s t y
0016500 p e o u t i n t h i s w i
0016520 n d o w u n t i l y o u b
0016540 u g i t a g a i n " ) ( "
0016560 D r i b b l e " ( F U N C T I
0016600 O N C H A T . T Y P E S C R I
0016620 P T ) \r " S t a r t s a t
0016640 y p e s c r i p t o f w i n
0016660 d o w t y p e o u t " ) ( "
0016700 I n p u t " ( F U N C T I O N
0016720 C H A T . T A K E . I N P U T
0016740 ) \r " A l l o w s i n p u t
0016760 f r o m a f i l e " ) ) )
0017000 \r ( R P A Q Q T E D I T C H A
0017020 T . M E N U N I L ) \r ( A D D
0017040 T O V A R C H A T . D R I V E
0017060 R T Y P E S ( T E D I T T E
0017100 D I T C H A T . C H A R F N N
0017120 I L L ) ) \r ( P U T P R O P S
0017140 T E D I T C H A T C O P Y R I
0017160 G H T ( " X e r o x C o r p
0017200 o r a t i o n " 1 9 8 5 ) ) \r
0017220 N I L \r
0017224