$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>CHATTERMINAL!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 6 - O c t - 8 6 1 9 : 4 9 : 4
0000140 2 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > C H A
0000200 T T E R M I N A L . ; 1 2 006 001 \r
0000220 \r c h a n g e s t
0000240 o % : ( F N S T E R M . R
0000260 E S E T . D I S P L A Y . P A R
0000300 M S ) \r
0000320 ( V A R S C H
0000340 A T T E R M I N A L C O M S ) \r
0000360
0000400 ( F I L E S C H A T D
0000420 E C L S ) \r \r p r e
0000440 v i o u s d a t e % : " 2 6
0000460 - M a r - 8 6 1 2 : 3 5 : 2 5
0000500 " { E R I S } < L I S P C O R
0000520 E > L I B R A R Y > C H A T T E
0000540 R M I N A L . ; 1 0 ) \r \r \r ( *
0000560 " \r C o p y r i g h t ( c )
0000600 1 9 8 4 , 1 9 8 5 , 1 9 8
0000620 6 b y X e r o x C o r p o
0000640 r a t i o n . A l l r i g
0000660 h t s r e s e r v e d . \r " )
0000700 \r \r ( P R E T T Y C O M P R I N
0000720 T C H A T T E R M I N A L C O
0000740 M S ) \r \r ( R P A Q Q 006 002 C H
0000760 A T T E R M I N A L C O M S 006 001
0001000 \r ( ( F N S T
0001020 E R M . A D D C H A R T E R M
0001040 . A D D L I N E T E R M . C L
0001060 E A R . T A B T E R M . D E L
0001100 C H A R T E R M . D E L E T E
0001120 L I N E T E R M . D O W N \r
0001140 T E R
0001160 M . E R A S E . I N . D I S P L
0001200 A Y T E R M . E R A S E . I N
0001220 . L I N E T E R M . E R A S E
0001240 . T O . E O L T E R M . E R A
0001260 S E B I T S T E R M . G O D O
0001300 W N \r
0001320 T E R M . H O M E T E R M .
0001340 I D E N T I F Y . S E L F T E
0001360 R M . L E F T T E R M . M O D
0001400 I F Y . A T T R I B U T E S T
0001420 E R M . M O V E T O T E R M .
0001440 N E W L I N E \r
0001460 T E R M . P R I N T
0001500 C H A R T E R M . R E S E T .
0001520 D I S P L A Y . P A R M S T E
0001540 R M . R I G H T T E R M . S C
0001560 R O L L D O W N T E R M . S E
0001600 T . T A B \r
0001620 T E R M . S E T M A R G
0001640 I N S T E R M . S M O O T H S
0001660 C R O L L T E R M . S P E C V
0001700 A R S T E R M . T A B T E R
0001720 M . U N D E R L I N E T E R M
0001740 . U P ) \r ( I N
0001760 I T V A R S ( T E R M . S P E
0002000 C V A R S ) ) \r
0002020 ( D E C L A R E % : E V A L @
0002040 C O M P I L E D O N T C O P Y
0002060 ( F I L E S ( S O U R C E )
0002100 \r
0002120
*
0002160 C H A T D E C L S ) ) ) ) \r (
0002200 D E F I N E Q \r \r ( 006 004 T E R M
0002220 . A D D C H A R 006 001 \r ( L A
0002240 M B D A ( C H A T . S T A T E
0002260 ) 006 006 006 001
0002300
0002320 006 006 ( *
0002340 e j s % : " 1 2 - M a y - 8
0002360 5 1 4 : 4 3 " ) 006 001 \r
0002400 \r
0002420 006 006 ( * I n s e r t a s
0002440 p a c e a t c u r s o r p
0002460 o s i t i o n , p u s h i n g
0002500 r e s t o f l i n e t o
0002520 r i g h t ) 006 001 \r \r (
0002540 006 002 w i t h 006 001 C H A T . S T
0002560 A T E C H A T . S T A T E (
0002600 P R O G ( ( Y ( I D I F F E
0002620 R E N C E Y P O S F O N T D
0002640 E S C E N T ) ) ) \r
0002660
*
0002720 ( B I T B L T D S P X P O S
0002740 Y D S P ( I P L U S X P
0002760 O S F O N T W I D T H ) \r
0003000
*
0003040 Y \r
0003060
*
0003120 ( I P L U S
0003140 ( I D I F F E R E N C E T T
0003160 Y W I D T H X P O S ) \r
0003200
*
0003260 F O N T W I D T H ) \r
0003300
*
0003340 F O N T H E I
0003360 G H T \r
0003400
*
0003440 ' I N P U T \r
0003460
*
0003520 ' R E P L A C E ) \r
0003540 \r
0003560 006 006 ( * B l t r e m
0003600 a i n d e r o f l i n e t
0003620 o t h e r i g h t b y F
0003640 O N T W I D T H , t h e n e
0003660 r a s e t h e c h a r a c t
0003700 e r \r 006 001
0003720 006 006 u n d e r t h e c u r s
0003740 o r ) 006 001 \r \r
0003760
0004000 ( 006 002
0004020 T E R M . E R A S E B I T S 006 001
0004040 C H A T . S T A T E X P O S
0004060 Y F O N T W I D T H F O N
0004100 T H E I G H T ) ) ) ) ) \r \r ( 006
0004120 004 T E R M . A D D L I N E 006 001 \r
0004140 ( L A M B D A ( C H A T .
0004160 S T A T E A T Y P O S ) 006 006 006
0004200 001
0004220
0004240 006 006 ( * e j s % : " 1 2 -
0004260 M a y - 8 5 1 4 : 4 4 " ) 006 001
0004300 \r ( 006 002 w i t h 006 001 C
0004320 H A T . S T A T E C H A T . S
0004340 T A T E ( O R A T Y P O S
0004360 ( S E T Q A T Y P O S Y P O
0004400 S ) ) \r \r
0004420 006 006 ( * T o
0004440 i n s e r t l i n e a t
0004460 A T Y P O S , w e b l t e
0004500 v e r y t h i n g b e l o w
0004520 i t d o w n o n e , t h e
0004540 n c l e a r \r 006 001
0004560 006 006 t h e l i n e
0004600 a t A T Y P O S ) 006 001 \r \r
0004620 ( B I T B L T
0004640 D S P 0 F O N T H E I G H T
0004660 D S P 0 0 T T Y W I D T
0004700 H ( I D I F F E R E N C E A
0004720 T Y P O S F O N T D E S C E N
0004740 T ) \r
0004760 ' I N P U T \r
0005000 ' R E P
0005020 L A C E ) \r
0005040 ( 006 002 T E R M . E R A S E B I T
0005060 S 006 001 C H A T . S T A T E 0
0005100 ( I D I F F E R E N C E A T
0005120 Y P O S F O N T D E S C E N T
0005140 ) \r
0005160 T T Y W I D T H F O N T
0005200 H E I G H T ) ) ) ) \r \r ( 006 004 T
0005220 E R M . C L E A R . T A B 006 001 \r
0005240 ( L A M B D A ( C H A T .
0005260 S T A T E T E R M I N A L . X
0005300 ) 006 006 006 001
0005320
0005340 006 006 ( * e j s % : " 1 2 -
0005360 M a y - 8 5 1 4 : 4 5 " ) 006 001
0005400 \r \r
0005420 006 006 ( * * C l e
0005440 a r a t a b s t o p ) 006 001
0005460 \r \r ( 006 002 w i t h 006 001
0005500 C H A T . S T A T E C H A T .
0005520 S T A T E ( S E T Q T E R M
0005540 . T A B . S T O P S ( D R E M
0005560 O V E T E R M I N A L . X T
0005600 E R M . T A B . S T O P S ) ) )
0005620 ) ) \r \r ( 006 004 T E R M . D E L C
0005640 H A R 006 001 \r ( L A M B D A
0005660 ( C H A T . S T A T E ) 006 006 006 001
0005700
*
0005740 006 006 ( * e j s %
0005760 : " 1 2 - M a y - 8 5 1 4 :
0006000 4 6 " ) 006 001 \r
0006020 \r 006 006 ( *
0006040 D e l e t e c h a r a c t e
0006060 r u n d e r c u r s o r ,
0006100 m o v i n g r e s t o f l
0006120 i n e t o l e f t ) 006 001 \r \r
0006140 ( 006 002 w i t h 006 001 C H
0006160 A T . S T A T E C H A T . S T
0006200 A T E ( L E T ( ( Y ( I D
0006220 I F F E R E N C E Y P O S F
0006240 O N T D E S C E N T ) ) ) \r
0006260
*
0006320 ( B I T B L T D S P (
0006340 I P L U S X P O S F O N T W
0006360 I D T H ) \r
0006400
*
0006440 Y D S P X P O S Y (
0006460 I P L U S ( I D I F F E R E N
0006500 C E T T Y W I D T H X P O S
0006520 ) \r
0006540
*
0006620 F O N T W I D T H ) \r
0006640
*
0006700 F O N T H E I
0006720 G H T \r
0006740
*
0007000 ' I N P U T \r
0007020
*
0007060 ' R E P L A C E ) \r
0007100 \r
0007120 006 006 ( * B l t r e m a i
0007140 n d e r o f l i n e t o
0007160 t h e l e f t b y F O N T
0007200 W I D T H , t h e n e r a s
0007220 e t h e r i g h t m o s t
0007240 \r 006 001 006 006 c
0007260 h a r a c t e r p o s i t i o
0007300 n ) 006 001 \r \r
0007320
0007340 ( 006 002 T E
0007360 R M . E R A S E B I T S 006 001 C
0007400 H A T . S T A T E ( I D I F F
0007420 E R E N C E T T Y W I D T H
0007440 F O N T W I D T H ) \r
0007460
*
0007520 Y F O N T W I D
0007540 T H F O N T H E I G H T ) ) )
0007560 ) ) \r \r ( 006 004 T E R M . D E L E
0007600 T E L I N E 006 001 \r ( L A M B
0007620 D A ( C H A T . S T A T E A
0007640 T Y P O S ) 006 006 006 001
0007660
0007700 006 006 ( * e
0007720 j s % : " 1 2 - M a y - 8 5
0007740 1 9 : 0 8 " ) 006 001 \r ( 006
0007760 002 w i t h 006 001 C H A T . S T A
0010000 T E C H A T . S T A T E ( O
0010020 R A T Y P O S ( S E T Q A
0010040 T Y P O S Y P O S ) ) \r
0010060 \r
0010100 006 006 ( * T o d e l e t e
0010120 l i n e a t A T Y P O S ,
0010140 w e b l t e v e r y t h i
0010160 n g b e l o w i t u p o
0010200 n e , t h e n c l e a r t
0010220 h e \r 006 001
0010240 006 006 b o t t o m l i n e ) 006 001
0010260 \r \r ( B I T
0010300 B L T D S P 0 B O T T O M
0010320 M A R G I N D S P 0 ( I P
0010340 L U S F O N T H E I G H T B
0010360 O T T O M M A R G I N ) \r
0010400 T T
0010420 Y W I D T H \r
0010440 ( I D I F F E R
0010460 E N C E ( I D I F F E R E N C
0010500 E A T Y P O S F O N T D E S
0010520 C E N T ) \r
0010540 B O
0010560 T T O M M A R G I N ) \r
0010600 ' I N
0010620 P U T \r
0010640 ' R E P L A C E ) \r
0010660 ( 006 002 T E R M
0010700 . E R A S E B I T S 006 001 C H A
0010720 T . S T A T E 0 B O T T O M
0010740 M A R G I N T T Y W I D T H
0010760 F O N T H E I G H T ) ) ) ) \r \r
0011000 ( 006 004 T E R M . D O W N 006 001 \r
0011020 ( L A M B D A ( C H A T . S
0011040 T A T E N L I N E S ) 006 006 006 001
0011060
*
0011120 006 006 ( * e j s % : " 1 2 - M
0011140 a y - 8 5 1 9 : 0 6 " ) 006 001 \r
0011160 \r
0011200 006 006 ( * * M o v e
0011220 d o w n N L I N E S ( d e
0011240 f a u l t = 1 ) % , p e g
0011260 g i n g a t b o t t o m i
0011300 f N L I N E S n o t 1 ,
0011320 e l s e \r 006 001
0011340 006 006 w r a p o r r o l l
0011360 ) 006 001 \r \r ( 006 002 w i t h
0011400 006 001 C H A T . S T A T E C H
0011420 A T . S T A T E ( C O N D \r
0011440
*
0011500 ( ( I G R E A T E R P Y P
0011520 O S ( I P L U S B O T T O M
0011540 M A R G I N F O N T D E S C E
0011560 N T ) ) \r
0011600
0011620 ( M O V E T O
0011640 X P O S ( S E T Q Y P O S
0011660 ( I M A X ( I P L U S B O
0011700 T T O M M A R G I N F O N T D
0011720 E S C E N T ) \r
0011740
*
0012020 ( I D I F F
0012040 E R E N C E Y P O S \r
0012060
*
0012160 ( I T I M E S F O N
0012200 T H E I G H T \r
0012220
*
0012320 ( O R N L I N
0012340 E S 1 ) ) ) ) ) \r
0012360
*
0012420 D S P ) ) \r
0012440
0012460 ( (
0012500 N U L L R O L L M O D E )
0012520 006 006 ( * W r a
0012540 p a r o u n d t o t o p ) 006
0012560 001 \r
0012600
0012620 ( M O V E T O X P
0012640 O S ( S E T Q Y P O S H O
0012660 M E P O S ) \r
0012700
*
0012740 D S P ) ) \r
0012760
0013000 ( T
0013020
0013040 006 006 ( * O n b o t
0013060 t o m l i n e i n r o l l
0013100 m o d e , s c r o l l \r 006 001
0013120
*
0013200 006 006 s
0013220 c r e e n u p o n e ) 006 001 \r
0013240
*
0013300 ( 006 002 T E R M . D E
0013320 L E T E L I N E 006 001 C H A T .
0013340 S T A T E ( I D I F F E R E N
0013360 C E T O P M A R G I N F O N
0013400 T H E I G H T ) ) \r
0013420
*
0013460 ) ) ) ) ) \r \r ( 006 004 T E R M . E
0013500 R A S E . I N . D I S P L A Y 006
0013520 001 \r ( L A M B D A ( C H A
0013540 T . S T A T E P A R A M ) 006 006
0013560 006 001
0013600
0013620 006 006 ( * e j s % : " 1
0013640 2 - M a y - 8 5 1 4 : 4 8 " )
0013660 006 001 \r
0013700
*
0013760 006 006 ( * D o e r a s i n g
0014000 f u n c t i o n s ) 006 001 \r
0014020 ( 006 002 w i t h 006 001 C H A T .
0014040 S T A T E C H A T . S T A T E
0014060 ( S E L E C T Q P A R A M \r
0014100
*
0014140 ( 0
0014160 006 006 (
0014200 * E r a s e t o e n d o
0014220 f s c r e e n ) 006 001 \r
0014240
*
0014300 ( 006 002 T E R M . E R A S E
0014320 . T O . E O L 006 001 C H A T . S
0014340 T A T E ) \r
0014360
0014400 ( 006 002
0014420 T E R M . E R A S E B I T S 006 001
0014440 C H A T . S T A T E 0 0
0014460 T T Y W I D T H ( I D I F F E
0014500 R E N C E Y P O S \r
0014520
*
0014640 F O N T D E S C E N T ) ) )
0014660 \r
0014700
0014720 ( 1
0014740 006 006
0014760 ( * E r a s e f r o m H O
0015000 M E t o c u r r e n t p o
0015020 s i t i o n ) 006 001 \r
0015040
*
0015100 ( 006 002 T E R M . E R A S E B I
0015120 T S 006 001 C H A T . S T A T E
0015140 0 ( I P L U S Y P O S F O
0015160 N T H E I G H T ) \r
0015200
*
0015240 T T Y W I D T H
0015260 \r
0015300
0015320 (
0015340 I D I F F E R E N C E H O M E
0015360 P O S ( I P L U S Y P O S
0015400 F O N T H E I G H T ) ) ) \r
0015420
*
0015460 ( 006 002 T E R M . E R A
0015500 S E B I T S 006 001 C H A T . S T
0015520 A T E 0 ( I D I F F E R E N
0015540 C E Y P O S F O N T D E S C
0015560 E N T ) \r
0015600
*
0015640 X P O S F O N T H E I G
0015660 H T ) ) \r
0015700
0015720 ( 2
0015740
0015760 006 006 ( * E r a s e s c r
0016000 e e n ) 006 001 \r
0016020
0016040 ( C
0016060 L E A R W W I N D O W ) \r
0016100
*
0016140 ( M O V E T O X P O
0016160 S Y P O S D S P ) ) \r
0016200
*
0016240 N I L ) ) ) ) \r \r ( 006 004 T E R
0016260 M . E R A S E . I N . L I N E 006
0016300 001 \r ( L A M B D A ( C H A
0016320 T . S T A T E P A R A M ) 006 006
0016340 006 001
0016360
0016400 006 006 ( * e j s % : " 1
0016420 2 - M a y - 8 5 1 4 : 4 8 " )
0016440 006 001 \r
0016460
*
0016540 006 006 ( * D o l i n e - o r i
0016560 e n t e d e r a s i n g ) 006 001
0016600 \r ( 006 002 w i t h 006 001 C
0016620 H A T . S T A T E C H A T . S
0016640 T A T E ( S E L E C T Q P A
0016660 R A M \r
0016700
0016720 ( 0
0016740
0016760 006 006 ( * E r a s e t o e
0017000 n d - o f - l i n e ) 006 001 \r
0017020
*
0017060 ( 006 002 T E R M . E R A
0017100 S E . T O . E O L 006 001 C H A T
0017120 . S T A T E ) ) \r
0017140
0017160 ( 1
0017200
0017220 006 006 ( * E r a s e
0017240 f r o m b e g i n n i n g
0017260 o f l i n e t o \r 006 001
0017300
*
0017360 006 006 c u r
0017400 r e n t p o s ) 006 001 \r
0017420
*
0017460 ( 006 002 T E R M . E R A S E
0017500 B I T S 006 001 C H A T . S T A T
0017520 E 0 ( I D I F F E R E N C E
0017540 Y P O S F O N T D E S C E N
0017560 T ) \r
0017600
*
0017640 X P O S F O N T H E I G H T
0017660 ) ) \r
0017700
0017720 ( 2
0017740
0017760 006 006 ( * E r a s e e n t i r
0020000 e l i n e ) 006 001 \r
0020020
*
0020060 ( 006 002 T E R M . E R A S E B I
0020100 T S 006 001 C H A T . S T A T E
0020120 0 ( I D I F F E R E N C E Y
0020140 P O S F O N T D E S C E N T )
0020160 \r
0020200
0020220 T
0020240 T Y W I D T H F O N T H E I G
0020260 H T ) ) \r
0020300
0020320 N I L ) ) ) )
0020340 \r \r ( 006 004 T E R M . E R A S E .
0020360 T O . E O L 006 001 \r ( L A M B
0020400 D A ( C H A T . S T A T E ) 006
0020420 006 006 001
0020440
0020460 006 006 ( * e
0020500 j s % : " 1 2 - M a y - 8 5
0020520 1 6 : 1 8 " ) 006 001 \r ( 006
0020540 002 w i t h 006 001 C H A T . S T A
0020560 T E C H A T . S T A T E ( 006
0020600 002 T E R M . E R A S E B I T S 006
0020620 001 C H A T . S T A T E X P O
0020640 S ( I D I F F E R E N C E Y
0020660 P O S F O N T D E S C E N T )
0020700 \r
0020720
0020740 ( I D I F F E R
0020760 E N C E T T Y W I D T H X P
0021000 O S ) \r
0021020
0021040 F O N T H
0021060 E I G H T ) ) ) ) \r \r ( 006 004 T E
0021100 R M . E R A S E B I T S 006 001 \r
0021120 ( L A M B D A ( C H A T . S
0021140 T A T E L E F T B O T T O M
0021160 W I D T H H E I G H T ) 006 006
0021200 006 001
0021220 006 006 ( * e j s % : " 1 2 - M
0021240 a y - 8 5 1 6 : 1 7 " ) 006 001 \r
0021260 ( 006 002 w i t h 006 001 C H
0021300 A T . S T A T E C H A T . S T
0021320 A T E ( B I T B L T N I L
0021340 N I L N I L D S P L E F T
0021360 B O T T O M W I D T H H E
0021400 I G H T ' T E X T U R E \r
0021420
*
0021460 ' R E P L A C E W H
0021500 I T E S H A D E ) ) ) ) \r \r ( 006
0021520 004 T E R M . G O D O W N 006 001 \r
0021540 ( L A M B D A ( C H A T . S
0021560 T A T E N L I N E S ) 006 006 006 001
0021600
*
0021640 006 006 ( * e j s % : " 1 2 - M
0021660 a y - 8 5 1 4 : 4 9 " ) 006 001 \r
0021700 \r
0021720 006 006 ( * * M o v e
0021740 d o w n N L I N E S , p e
0021760 g g i n g a t t h e b o t
0022000 t o m o f t h e w i n d o
0022020 w ) 006 001 \r \r ( 006 002 w i t
0022040 h 006 001 C H A T . S T A T E C
0022060 H A T . S T A T E ( C O N D \r
0022100
*
0022140 ( ( I G R E A T E R P Y
0022160 P O S ( I P L U S B O T T O
0022200 M M A R G I N F O N T D E S C
0022220 E N T ) ) \r
0022240
0022260 ( M O V E T
0022300 O X P O S ( S E T Q Y P O
0022320 S ( I M A X ( I P L U S B
0022340 O T T O M M A R G I N F O N T
0022360 D E S C E N T ) \r
0022400
*
0022460 ( S E T Q
0022500 Y P O S \r
0022520
*
0022600 ( I D I F F E
0022620 R E N C E Y P O S \r
0022640
*
0022740 ( I T I M E S F O N
0022760 T H E I G H T \r
0023000
*
0023100 ( O R N L I
0023120 N E S 1 ) ) ) ) ) ) \r
0023140
*
0023200 D S P ) ) ) ) ) )
0023220 \r \r ( 006 004 T E R M . H O M E 006 001
0023240 \r ( L A M B D A ( C H A T
0023260 . S T A T E ) 006 006 006 001
0023300
*
0023340 006 006 ( * e j s % : " 1 2
0023360 - M a y - 8 5 1 6 : 5 9 " ) 006
0023400 001 \r ( 006 002 w i t h 006 001
0023420 C H A T . S T A T E C H A T .
0023440 S T A T E ( M O V E T O ( S
0023460 E T Q X P O S 0 ) \r
0023500
*
0023540 ( S E T Q Y P O S H O
0023560 M E P O S ) \r
0023600
0023620 D S
0023640 P ) ) ) ) \r \r ( 006 004 T E R M . I
0023660 D E N T I F Y . S E L F 006 001 \r
0023700 ( L A M B D A ( C H A T . S
0023720 T A T E ) 006 006 006 001
0023740
*
0024000 006 006 ( * e j s % : " 1 2 - M
0024020 a y - 8 5 2 0 : 2 2 " ) 006 001 \r
0024040 \r
0024060 006 006 ( * * I d e n
0024100 t i f y s e l f t o t h e
0024120 h o s t o p e r a t i n g
0024140 s y s t e m ) 006 001 \r \r (
0024160 006 002 w i t h 006 001 C H A T . S T
0024200 A T E C H A T . S T A T E (
0024220 P R I N 1 T E R M . I D E N T
0024240 I T Y . S T R I N G O U T S T
0024260 R E A M ) \r
0024300 ( F O R C E O U T P U T O U T
0024320 S T R E A M ) ) ) ) \r \r ( 006 004 T
0024340 E R M . L E F T 006 001 \r ( L A
0024360 M B D A ( C H A T . S T A T E
0024400 N C H A R S ) 006 006 006 001
0024420
0024440 006 006 ( *
0024460 e j s % : " 1 2 - M a y - 8
0024500 5 1 4 : 5 0 " ) 006 001 \r
0024520 \r
0024540 006 006 ( * * M o v e t h e
0024560 c u r s o r N C H A R S (
0024600 d e f a u l t = 1 ) % , p
0024620 e g g i n g a t t h e l e
0024640 f t m a r g i n ) 006 001 \r \r
0024660 ( 006 002 w i t h 006 001 C H A T
0024700 . S T A T E C H A T . S T A T
0024720 E ( C O N D \r
0024740
0024760 ( ( I G R
0025000 E A T E R P X P O S 0 ) \r
0025020
*
0025060 ( M O V E T O ( S E T Q
0025100 X P O S ( I M A X 0 ( I
0025120 D I F F E R E N C E X P O S \r
0025140
*
0025240 ( I T I M E S F O
0025260 N T W I D T H \r
0025300
*
0025400 ( O R N C H A R S
0025420 1 ) ) ) ) ) \r
0025440
*
0025500 Y P O S D S P ) ) ) ) ) )
0025520 \r \r ( 006 004 T E R M . M O D I F Y
0025540 . A T T R I B U T E S 006 001 \r
0025560 ( L A M B D A ( C H A T . S T
0025600 A T E A T T R I B U T E S I
0025620 N V E R T F L G ) 006 006 006 001
0025640 006
0025660 006 ( * e j s % : " 1 8 - M a
0025700 r - 8 6 1 6 : 4 0 " ) 006 001 \r
0025720 \r
0025740 006 006 ( * * F u n c t
0025760 i o n t o d o c h a r a c
0026000 t e r a t t r i b u t e s e
0026020 t t i n g . \r 006 001
0026040 006 006 A t t r i b u t e s
0026060 i s a l i s t o f a t t
0026100 r i b u t e m o d i f y i n g
0026120 c o m m a n d s ) 006 001 \r \r
0026140 ( 006 002 w i t h 006 001 C H A T
0026160 . S T A T E C H A T . S T A T
0026200 E ( 006 002 f o r 006 001 A 006 002 i
0026220 n s i d e 006 001 A T T R I B U T
0026240 E S \r
0026260
0026300 006 002 d o 006 001 ( S E
0026320 L E C T Q A \r
0026340
*
0026400 ( N O R M A L ( D S P F O
0026420 N T ( F O N T C O P Y ( D S
0026440 P F O N T N I L D S P ) \r
0026460
*
0026560 ' W E I G H T \r
0026600
*
0026660 ' M E D I
0026700 U M ) \r
0026720
*
0026760 D S P
0027000 ) \r
0027020
*
0027060 ( D S P S O U R C E T Y
0027100 P E ' I N P U T D S P ) \r
0027120
*
0027200 ( S E T Q U N D E R L I N E
0027220 M O D E N I L ) ) \r
0027240
*
0027300 ( B R I G H T
0027320 006 006 ( * I m p
0027340 l e m e n t " B R I G H T "
0027360 b y u s i n g a b o l d
0027400 \r 006 001
0027420
*
0027500 006 006 f o n t ) 006 001 \r
0027520
*
0027560 ( C O N
0027600 D \r
0027620
*
0027660 ( I N V E R T F L
0027700 G ( D S P F O N T ( F O N T
0027720 C O P Y ( D S P F O N T N I
0027740 L D S P ) \r
0027760
*
0030060 ' W E I G H T \r
0030100
*
0030200 '
0030220 M E D I U M ) \r
0030240
*
0030320 D
0030340 S P ) ) \r
0030360
*
0030420 ( T ( D S
0030440 P F O N T ( F O N T C O P Y
0030460 ( D S P F O N T N I L D S P
0030500 ) \r
0030520
*
0030600 ' W E I G H
0030620 T \r
0030640
*
0030720 ' B O L D )
0030740 \r
0030760
*
0031040 D S P ) ) ) ) \r
0031060
*
0031120 ( ( B L I N K U N D E R L
0031140 I N E ) \r
0031160 \r 006 006 ( *
0031200 I m p l e m e n t " B L I N K
0031220 " w i t h u n d e r l i n e
0031240 , f o r n o w . \r 006 001
0031260 006 006 B l i n k i n
0031300 g c h a r a c t e r s a r e
0031320 p r o b a b l y a b i t
0031340 t o o e x p e n s i v e ) 006 001
0031360 \r \r
0031400
*
0031440 ( S E T Q U N D E R L I N E
0031460 M O D E ( N O T I N V E R T
0031500 F L G ) ) ) \r
0031520
*
0031560 ( I N V E R S E ( C O N D \r
0031600
*
0031660 ( I N V E R T F L G
0031700 ( D S P S O U R C E T Y P E
0031720 ' I N P U T D S P ) ) \r
0031740
*
0032020 ( T ( D S P S O U R C E
0032040 T Y P E ' I N V E R T D S P
0032060 ) ) ) ) \r
0032100
0032120 N
0032140 I L ) ) ) ) ) \r \r ( 006 004 T E R M
0032160 . M O V E T O 006 001 \r ( L A M
0032200 B D A ( C H A T . S T A T E
0032220 C X C Y ) 006 006 006 001
0032240
0032260 006 006 ( *
0032300 e j s % : " 1 2 - M a y - 8 5
0032320 1 4 : 5 3 " ) 006 001 \r
0032340 \r
0032360 006 006 ( * * S e t o u r c
0032400 u r s o r p o s i t i o n ) 006
0032420 001 \r \r ( 006 002 w i t h 006 001
0032440 C H A T . S T A T E C H A T
0032460 . S T A T E ( M O V E T O (
0032500 S E T Q X P O S ( I M I N
0032520 ( I T I M E S C X F O N T W
0032540 I D T H ) \r
0032560
*
0032620 (
0032640 I D I F F E R E N C E T T Y W
0032660 I D T H F O N T W I D T H ) )
0032700 ) \r
0032720
0032740 ( S E T Q Y
0032760 P O S ( I M A X F O N T D E
0033000 S C E N T ( I D I F F E R E N
0033020 C E H O M E P O S \r
0033040
*
0033140 ( I T I M E S C Y
0033160 F O N T H E I G H T ) ) ) ) \r
0033200
*
0033240 D S P ) ) ) ) \r \r
0033260 ( 006 004 T E R M . N E W L I N E 006
0033300 001 \r ( L A M B D A ( C H A
0033320 T . S T A T E ) 006 006 006 001
0033340
*
0033400 006 006 ( * e j s % : " 1
0033420 2 - M a y - 8 5 1 4 : 5 4 " )
0033440 006 001 \r
0033460
*
0033540 006 006 ( * D o a C R L F . )
0033560 006 001 \r ( 006 002 w i t h 006 001
0033600 C H A T . S T A T E C H A T
0033620 . S T A T E ( 006 002 T E R M . D
0033640 O W N 006 001 C H A T . S T A T E
0033660 ) \r ( M O V
0033700 E T O ( S E T Q X P O S 0
0033720 ) \r
0033740 Y P O S D S P ) ) ) ) \r
0033760 \r ( 006 004 T E R M . P R I N T C H
0034000 A R 006 001 \r ( L A M B D A (
0034020 C H A T . S T A T E C H A R
0034040 W R A P F L G ) 006 006 006 001
0034060
0034100 006 006 ( * e j s % :
0034120 " 1 8 - M a r - 8 6 1 0 : 2
0034140 8 " ) 006 001 \r
0034160 \r 006 006 ( *
0034200 * P r i n t a c h a r a c
0034220 t e r . I f W R A P F L G
0034240 i s T a n d w e r e a c
0034260 h t h e r i g h t m a r g
0034300 i n , w e \r 006 001
0034320 006 006 p e r f o r m a n
0034340 e x p l i c t n e w l i n e
0034360 , e l s e w e p e g a t
0034400 t h e r i g h t m a r g i
0034420 n ) 006 001 \r \r ( 006 002 w i t
0034440 h 006 001 C H A T . S T A T E C
0034460 H A T . S T A T E ( \ O U T C
0034500 H A R D S P C H A R ) \r
0034520 ( A N D U N D
0034540 E R L I N E M O D E ( 006 002 T E
0034560 R M . U N D E R L I N E 006 001 C
0034600 H A T . S T A T E C H A R ) )
0034620 \r ( C O N D
0034640 \r ( (
0034660 I G E Q ( S E T Q X P O S
0034700 ( P L U S X P O S F O N T W
0034720 I D T H ) ) \r
0034740 T T Y W I
0034760 D T H )
0035000
0035020 006 006 ( * H a v e r e
0035040 a c h e d r i g h t m a r g
0035060 i n , s o w r a p \r 006 001
0035100
*
0035160 006 006 a r
0035200 o u n d ) 006 001 \r
0035220 ( C O N D \r
0035240 ( W R
0035260 A P F L G ( 006 002 T E R M . N E
0035300 W L I N E 006 001 C H A T . S T A
0035320 T E ) ) \r
0035340 ( T ( M O V E T O
0035360 ( S E T Q X P O S ( P L U
0035400 S X P O S ( I M I N U S F
0035420 O N T W I D T H ) ) ) \r
0035440
0035460 Y P O S D S P )
0035500 ) ) ) ) ) ) ) \r \r ( 006 004 T E R M
0035520 . R E S E T . D I S P L A Y . P
0035540 A R M S 006 001 \r ( L A M B D A
0035560 ( C H A T . S T A T E ) 006 006 006
0035600 001
0035620
0035640 006 006 ( * e d i
0035660 t e d % : " 2 6 - M a r - 8 6
0035700 1 2 : 3 0 " ) 006 001 \r
0035720
*
0036000 006 006 ( * R e s
0036020 e t s t a t e ) 006 001 \r
0036040 ( 006 002 w i t h 006 001 C H A T . S
0036060 T A T E C H A T . S T A T E
0036100 ( S E T Q F O N T H E I G H T
0036120 ( I M I N U S ( D S P L I N
0036140 E F E E D N I L D S P ) ) )
0036160 \r ( S E T Q
0036200 F O N T W I D T H ( C H A R
0036220 W I D T H ( C H A R C O D E
0036240 A ) \r
0036260
0036300 ( S E T Q P L A I N F
0036320 O N T ( S E T Q F O N T (
0036340 D S P F O N T N I L D S P )
0036360 ) ) ) ) \r (
0036400 S E T Q F O N T D E S C E N T
0036420 ( F O N T P R O P F O N T
0036440 ' D E S C E N T ) ) \r
0036460 ( S E T Q T T Y W I
0036500 D T H ( W I N D O W P R O P
0036520 W I N D O W ' W I D T H ) ) \r
0036540 ( S E T Q
0036560 T T Y W I D T H ( I T I M E S
0036600 ( I Q U O T I E N T T T Y W
0036620 I D T H F O N T W I D T H ) \r
0036640
*
0036700 F O N T W I D T H ) )
0036720 006 006 (
0036740 * M a k e T T Y W I D T H
0036760 m u l t i p l e o f F O N T
0037000 W I D T H ) 006 001 \r
0037020 ( S E T Q T O P M A R G
0037040 I N ( S E T Q T T Y H E I G
0037060 H T ( I P L U S ( I T I M E
0037100 S ( I Q U O T I E N T ( W I
0037120 N D O W P R O P W I N D O W
0037140 ' H E I G H T ) \r
0037160
*
0037240 F O N T H E I
0037260 G H T ) \r
0037300
*
0037340 F O N
0037360 T H E I G H T ) \r
0037400
*
0037440 F O N T D E
0037460 S C E N T ) ) ) \r
0037500 ( S E T Q H O M E P O S
0037520 ( I P L U S ( I T I M E S
0037540 ( S U B 1 ( I Q U O T I E N T
0037560 T T Y H E I G H T F O N T H
0037600 E I G H T ) ) \r
0037620
0037640 F O
0037660 N T H E I G H T ) \r
0037700
0037720 F O N T D E S
0037740 C E N T ) ) ) ) ) \r \r ( 006 004 T E
0037760 R M . R I G H T 006 001 \r ( L A
0040000 M B D A ( C H A T . S T A T E
0040020 N C H A R S ) 006 006 006 001
0040040
0040060 006 006 ( *
0040100 e j s % : " 1 2 - M a y - 8
0040120 5 1 5 : 3 3 " ) 006 001 \r
0040140 \r
0040160 006 006 ( * * M o v e t h e
0040200 c u r s o r N C H A R S t
0040220 o t h e r i g h t , p e g
0040240 g i n g a t t h e r i g h
0040260 t m a r g i n ) 006 001 \r \r
0040300 ( 006 002 w i t h 006 001 C H A T .
0040320 S T A T E C H A T . S T A T E
0040340 ( C O N D \r
0040360
0040400 ( ( I L E S
0040420 S P ( I P L U S X P O S F
0040440 O N T W I D T H ) \r
0040460
*
0040520 T T Y W I D T H ) \r
0040540
*
0040600 ( S E T Q X P O S ( I
0040620 M I N T T Y W I D T H ( I P
0040640 L U S X P O S ( I T I M E S
0040660 F O N T W I D T H \r
0040700
*
0041000 ( O R
0041020 N C H A R S 1 ) ) ) ) ) \r
0041040
*
0041100 ( M O V E T O X P O S Y
0041120 P O S D S P ) ) ) ) ) ) \r \r (
0041140 006 004 T E R M . S C R O L L D O W
0041160 N 006 001 \r ( L A M B D A ( C
0041200 H A T . S T A T E T O P ) 006 006
0041220 006 001
0041240
0041260 006 006 ( * e j s % :
0041300 " 1 2 - M a y - 8 5 1 4 : 5 6
0041320 " ) 006 001 \r \r
0041340 006 006 ( * *
0041360 S c r o l l d o w n a l
0041400 i n e , f r o m t h e l i
0041420 n e a t T O P ) 006 001 \r \r
0041440 ( 006 002 w i t h 006 001 C H A T
0041460 . S T A T E C H A T . S T A T
0041500 E ( B I T B L T D S P 0
0041520 ( I P L U S B O T T O M M A R
0041540 G I N F O N T H E I G H T ) \r
0041560
*
0041620 D S P 0 B O T
0041640 T O M M A R G I N T T Y W I D
0041660 T H ( I D I F F E R E N C E
0041700 T O P ( I P L U S \r
0041720
*
0042040 B O T T O M M A R G I
0042060 N \r
0042100
*
0042200 F O
0042220 N T H E I G H T \r
0042240
*
0042360 ) ) \r
0042400
0042420 ' I
0042440 N P U T \r
0042460
0042500 ' R E P
0042520 L A C E ) \r
0042540 ( 006 002 T E R M . E R A S E B I T
0042560 S 006 001 C H A T . S T A T E 0
0042600 ( I D I F F E R E N C E ( I
0042620 D I F F E R E N C E T O P F
0042640 O N T H E I G H T ) \r
0042660
*
0042720 F O N T D E S
0042740 C E N T ) \r
0042760 T T Y W I D T H
0043000 F O N T H E I G H T ) ) ) ) \r \r
0043020 ( 006 004 T E R M . S E T . T A B 006
0043040 001 \r ( L A M B D A ( C H A
0043060 T . S T A T E T E R M I N A L
0043100 . X ) 006 006 006 001
0043120
0043140 006 006 ( * e j s % : " 2
0043160 6 - A u g - 8 5 1 2 : 2 8 " )
0043200 006 001 \r \r
0043220 006 006 ( * * S
0043240 e t a n e w t a b s t o
0043260 p f o r t h e t e r m i n
0043300 a l ) 006 001 \r \r ( 006 002 w i
0043320 t h 006 001 C H A T . S T A T E
0043340 C H A T . S T A T E ( C O N D
0043360 \r
0043400
0043420 ( ( N U L L T E R M .
0043440 T A B . S T O P S ) \r
0043460
0043500 (
0043520 S E T Q T E R M . T A B . S T
0043540 O P S ( L I S T T E R M I N
0043560 A L . X ) ) ) \r
0043600
0043620 ( T ( 006
0043640 002 p u s h 006 001 T E R M . T A B
0043660 . S T O P S T E R M I N A L .
0043700 X ) \r
0043720
0043740 ( S O R T T
0043760 E R M . T A B . S T O P S ) ) )
0044000 \r T E R M .
0044020 T A B . S T O P S ) ) ) \r \r ( 006
0044040 004 T E R M . S E T M A R G I N S
0044060 006 001 \r ( L A M B D A ( C H
0044100 A T . S T A T E T O P B O T
0044120 T O M ) 006 006 006 001
0044140
0044160 006 006 ( * e j s % : "
0044200 1 2 - M a y - 8 5 1 4 : 5 8 "
0044220 ) 006 001 \r \r
0044240 006 006 ( * *
0044260 F u n c t i o n t o s e t
0044300 t o p a n d b o t t o m m
0044320 a r g i n s ) 006 001 \r \r (
0044340 006 002 w i t h 006 001 C H A T . S T
0044360 A T E C H A T . S T A T E (
0044400 S E T Q T O P M A R G I N (
0044420 I D I F F E R E N C E H O M E
0044440 P O S ( I T I M E S ( I D I
0044460 F F E R E N C E T O P 2 ) \r
0044500
*
0044600 F O N T
0044620 H E I G H T ) ) ) \r
0044640 ( S E T Q B O T T O M
0044660 M A R G I N ( I D I F F E R E
0044700 N C E ( I D I F F E R E N C E
0044720 H O M E P O S ( I T I M E S
0044740 ( S U B 1 B O T T O M ) \r
0044760
*
0045060 F O N T H E I G H T )
0045100 ) \r
0045120
0045140 F O N T D E S C E N
0045160 T ) ) ) ) ) \r \r ( 006 004 T E R M .
0045200 S M O O T H S C R O L L 006 001 \r
0045220 ( L A M B D A ( C H A T . S
0045240 T A T E ) 006 006 006 001
0045260
*
0045320 006 006 ( * e j s % : " 1 2 - M
0045340 a y - 8 5 1 4 : 5 8 " ) 006 001 \r
0045360 \r
0045400 006 006 ( * * F o r
0045420 t h o s e o f y o u w h o
0045440 c a n s t a n d s m o o t
0045460 h s c r o l l i n g , t h i
0045500 s w i l l s c r o l l i n
0045520 t h e \r 006 001
0045540 006 006 n o r m a l d i r e c
0045560 t i o n , o n e ( p i x e l
0045600 ) l i n e a t a t i m e
0045620 ) 006 001 \r \r ( 006 002 w i t h
0045640 006 001 C H A T . S T A T E C H
0045660 A T . S T A T E ( 006 002 f o r 006
0045700 001 I 006 002 f r o m 006 001 1 006
0045720 002 t o 006 001 F O N T H E I G H T
0045740 \r
0045760
0046000 006 002 d o 006 001 ( B I T B
0046020 L T D S P 0 0 D S P 0
0046040 1 T T Y W I D T H T T Y H
0046060 E I G H T ' I N P U T ' R E
0046100 P L A C E ) ) \r
0046120 ( 006 002 T E R M . E R A S E B
0046140 I T S 006 001 C H A T . S T A T E
0046160 0 0 T T Y W I D T H F O
0046200 N T H E I G H T ) ) ) ) \r \r ( 006
0046220 004 T E R M . S P E C V A R S 006 001
0046240 \r ( L A M B D A ( D I S P
0046260 L A Y N A M E ) 006 006 006 001
0046300
*
0046340 006 006 ( * e j s % : " 1 5
0046360 - N o v - 8 4 1 8 : 1 5 " ) 006
0046400 001 \r \r
0046420 006 006 ( * * R e
0046440 t u r n a l i s t o f v
0046460 a r i a b l e s w e ' d l i
0046500 k e b o u n d a t t h e
0046520 t o p l e v e l o f t h e
0046540 t y p e o u t \r 006 001
0046560 006 006 p r o c e s s .
0046600 ) 006 001 \r \r ( 006 002 f o r 006
0046620 001 X 006 002 i n 006 001 ( C D R
0046640 ( F A S S O C D I S P L A Y N
0046660 A M E T E R M . S P E C V A R
0046700 S ) ) \r 006 002 c o l
0046720 l e c t 006 001 ( C O N D \r
0046740 (
0046760 ( N L I S T P X ) \r
0047000 ( C
0047020 O N S X ) ) \r
0047040 ( T ( C O
0047060 N S ( C A R X ) \r
0047100
0047120 ( E V A L ( C A D
0047140 R X ) ) ) ) ) ) ) ) \r \r ( 006 004
0047160 T E R M . T A B 006 001 \r ( L A
0047200 M B D A ( C H A T . S T A T E
0047220 ) 006 006 006 001
0047240
0047260 006 006 ( *
0047300 e d i t e d % : " 2 6 - M a
0047320 r - 8 6 1 1 : 0 6 " ) 006 001 \r
0047340 ( 006 002 w i t h 006 001 C H A
0047360 T . S T A T E C H A T . S T A
0047400 T E ( L E T ( ( C U R S O R
0047420 X ( A D D 1 ( I Q U O T I E
0047440 N T X P O S F O N T W I D T
0047460 H ) ) ) \r
0047500
0047520 N E X T .
0047540 S T O P ) \r
0047560
0047600 ( C O N D
0047620 \r
0047640
0047660 ( ( S E T Q
0047700 N E X T . S T O P ( 006 002 f o r
0047720 006 001 C X 006 002 i n 006 001 T E R
0047740 M . T A B . S T O P S \r
0047760
*
0050040 006 002 t h e r e i
0050060 s 006 001 ( I G E Q C X C U R
0050100 S O R X ) ) ) \r
0050120
*
0050160 ( M O V E T O ( S E T Q X
0050200 P O S ( I T I M E S N E X T
0050220 . S T O P F O N T W I D T H )
0050240 ) \r
0050260
*
0050320 Y P O S D S P ) ) ) ) ) )
0050340 ) \r \r ( 006 004 T E R M . U N D E R
0050360 L I N E 006 001 \r ( L A M B D A
0050400 ( C H A T . S T A T E C H A
0050420 R ) 006 006 006 001
0050440
0050460 006 006 ( * e j s
0050500 % : " 1 2 - M a y - 8 5 1 4
0050520 : 5 9 " ) 006 001 \r ( 006 002 w
0050540 i t h 006 001 C H A T . S T A T E
0050560 C H A T . S T A T E ( B I T
0050600 B L T D S P X P O S ( I D
0050620 I F F E R E N C E Y P O S 2
0050640 ) \r
0050660
0050700 D S P X P O
0050720 S ( S U B 1 Y P O S ) \r
0050740
*
0051000 ( C H A R W I D T H
0051020 C H A R F O N T ) \r
0051040
*
0051100 1 \r
0051120
0051140 ' I N V E
0051160 R T \r
0051200
0051220 ' R E P L A
0051240 C E ) ) ) ) \r \r ( 006 004 T E R M .
0051260 U P 006 001 \r ( L A M B D A (
0051300 C H A T . S T A T E N L I N E
0051320 S ) 006 006 006 001
0051340
0051360 006 006 ( * e j s % :
0051400 " 1 2 - M a y - 8 5 1 4 : 5
0051420 9 " ) 006 001 \r
0051440 \r 006 006 ( *
0051460 * G o u p N L I N E S (
0051500 d e f a u l t = 1 ) % , p
0051520 e g g i n g a t t o p ) 006 001
0051540 \r \r ( 006 002 w i t h 006 001
0051560 C H A T . S T A T E C H A T .
0051600 S T A T E ( C O N D \r
0051620
0051640 (
0051660 ( I L E S S P Y P O S H O M
0051700 E P O S ) \r
0051720
0051740 ( M O V E T
0051760 O X P O S ( S E T Q Y P O
0052000 S ( I M I N H O M E P O S \r
0052020
*
0052120 ( I P L U S Y P O S ( I
0052140 T I M E S F O N T H E I G H T
0052160 \r
0052200
*
0052300 ( O R N L I N E S
0052320 1 ) ) ) ) \r
0052340
*
0052400 ) \r
0052420
*
0052460 D S P ) ) ) ) ) ) \r
0052500 ) \r \r ( R P A Q ? 006 002 T E R M
0052520 . S P E C V A R S 006 001 ) \r ( D
0052540 E C L A R E % : E V A L @ C O
0052560 M P I L E D O N T C O P Y \r
0052600 ( F I L E S L O A D ( S O U R
0052620 C E ) \r C H A T D
0052640 E C L S ) \r ) \r ( P U T P R O P
0052660 S C H A T T E R M I N A L C
0052700 O P Y R I G H T ( " X e r o x
0052720 C o r p o r a t i o n " 1 9
0052740 8 4 1 9 8 5 1 9 8 6 ) ) \r S
0052760 T O P \r
0052764