$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>VTCHAT!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 8 - D e c - 8 6 1 5 : 1 8 : 0
0000140 5 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > V T C
0000200 H A T . ; 1 6 006 001 3 7 1 7 5
0000220 \r \r c h a n g e s
0000240 t o % : ( V A R S V T C
0000260 H A T C O M S ) \r
0000300 ( F N
0000320 S V T C H A T . A D D R E S S
0000340 V T C H A T . A T T R I B U T
0000360 E S V T C H A T . D O C O M M
0000400 A N D V T C H A T . H A N D L
0000420 E C H A R A C T E R \r
0000440
0000460 V T C H A T . C L E A
0000500 R M O D E S V T C H A T . R E
0000520 P O R T V T C H A T . R E S E
0000540 T M O D E V T C H A T . R E S
0000560 T O R E V T C H A T . S A V E
0000600 \r
0000620 V T C H A
0000640 T . S E Q U E N C E V T C H A
0000660 T . S E T M A R G I N S V T C
0000700 H A T . S E T M O D E V T C H
0000720 A T . S T A T U S ) \r \r
0000740 p r e v i o u s d a t e %
0000760 : " 3 0 - M a r - 8 6 1 5 :
0001000 2 2 : 3 0 " { E R I S } < L I
0001020 S P C O R E > L I B R A R Y > V
0001040 T C H A T . ; 1 5 ) \r \r \r ( *
0001060 " \r C o p y r i g h t ( c )
0001100 1 9 8 3 , 1 9 8 4 , 1 9 8 5
0001120 , 1 9 8 6 b y s S C H L U
0001140 M B E R G E R T E C H N O L O
0001160 G Y C O R P O R A T I O N .
0001200 A l l r i g h t s r e s e
0001220 r v e d . \r " ) \r \r ( P R E T T
0001240 Y C O M P R I N T V T C H A T
0001260 C O M S ) \r \r ( R P A Q Q 006 002
0001300 V T C H A T C O M S 006 001 \r
0001320 ( ( R E C O R D S *
0001340 V T C H A T R E C O R D S ) \r
0001360 ( C O M S ( *
0001400 ; ; ; " V T 1 0 0 e m u l
0001420 a t o r " ) \r
0001440 ( F N S V T C H A T
0001460 . A D D R E S S V T C H A T .
0001500 A T T R I B U T E S V T C H A
0001520 T . D E C L F O N T V T C H A
0001540 T . D O C O M M A N D \r
0001560
0001600 V T C H A T . H A N D L E C H A
0001620 R A C T E R V T C H A T . C L
0001640 E A R M O D E S V T C H A T .
0001660 R E P O R T V T C H A T . R E
0001700 S E T M O D E \r
0001720 V T C H
0001740 A T . R E S T O R E V T C H A
0001760 T . R E V E R S E . I N D E X
0002000 V T C H A T . S A V E V T C H
0002020 A T . S E Q U E N C E V T C H
0002040 A T . S E T M A R G I N S \r
0002060
0002100 V T C H A T . S E T M O D E
0002120 V T C H A T . S T A T E V T
0002140 C H A T . S T A T U S ) ) \r
0002160 ( I N I T V A R S
0002200 ( V T C H A T . D E B U G G I N
0002220 G . F L G ) \r
0002240 [ C H A T F O N T
0002260 ( F O N T C R E A T E ' ( G A
0002300 C H A 1 2 M R R ] \r
0002320 ( G R A P
0002340 H I C S F O N T C H A T F O N
0002360 T ) \r
0002400 ( V T C H A T . T E R M . I
0002420 D E N T I T Y . S T R I N G "
0002440 033 [ ? 1 ; 0 c " ) ) \r
0002460 ( G L O B A L V A R S V
0002500 T C H A T . D E B U G G I N G .
0002520 F L G C H A T F O N T G R A
0002540 P H I C S F O N T V T C H A T
0002560 . T E R M . I D E N T I T Y . S
0002600 T R I N G ) \r (
0002620 A D D V A R S ( C H A T . D R
0002640 I V E R T Y P E S ( V T 1 0 0
0002660 V T C H A T . H A N D L E C H
0002700 A R A C T E R V T C H A T . S
0002720 T A T E ) ) ) \r
0002740 ( F I L E S ( S Y S L O A D
0002760 F R O M V A L U E O F L I S
0003000 P U S E R S D I R E C T O R I E
0003020 S ) \r
0003040 V T 1 0 0 K P ) ) ) \r \r ( R
0003060 P A Q Q 006 002 V T C H A T R E C
0003100 O R D S 006 001 ( V T 1 0 0 S A V
0003120 E V T 1 0 0 . S T A T E ) ) \r
0003140 ( D E C L A R E % : E V A L @
0003160 C O M P I L E \r \r ( R E C O R D
0003200 006 002 V T 1 0 0 S A V E 006 001 (
0003220 C U R S O R P O S C H A R A T
0003240 T R C H A R S E T ) ) \r \r ( D
0003260 A T A T Y P E 006 002 V T 1 0 0 .
0003300 S T A T E 006 001 ( ( D I N G E D
0003320 F L A G ) \r
0003340 ( E
0003360 A T L F F L A G ) \r
0003400
0003420 ( E A T C R L F F L A G )
0003440 \r
0003460 ( E A T T O C R
0003500 L F F L A G ) \r
0003520
0003540 ( A U T O L F F L A G ) \r
0003560
0003600 ( B L I N K M O D E
0003620 F L A G ) \r
0003640 ( B R
0003660 I G H T M O D E F L A G ) \r
0003700
0003720 ( S M O O T H S C R
0003740 O L L F L A G ) \r
0003760
0004000 ( S I F O N T P O I N T E R
0004020 ) \r
0004040 ( K E Y P A D
0004060 M O D E F L A G ) \r
0004100
0004120 ( C U R S O R M O D E F L
0004140 A G ) \r
0004160 ( C H A R
0004200 S E T 0 F L A G ) \r
0004220
0004240 ( C H A R S E T 1 F L A G
0004260 ) \r
0004300 ( S O F O N T
0004320 P O I N T E R ) \r
0004340
0004360 ( P A R A M C O U N T W O R
0004400 D ) \r
0004420 ( A D D R E
0004440 S S I N G W O R D ) \r
0004460
0004500 E S C A P E S E Q U E N C
0004520 E V T 1 0 0 M E M P A R A M
0004540 A R R A Y R E L O R I G I N
0004560 I N V E R T F L G C S T E R M
0004600 ) \r
0004620 V T 1 0 0 M E M
0004640 _ ( 006 002 c r e a t e 006 001 V
0004660 T 1 0 0 S A V E \r
0004700
*
0004740 C U R S O R P O S _ ( 006 002
0004760 c r e a t e 006 001 P O S I T I O
0005000 N \r
0005020
*
0005060 X C O
0005100 O R D _ 1 \r
0005120
*
0005200 Y C O O R D _ 1 ) ) \r
0005220
0005240 P A R A M A R R A Y
0005260 _ ( A R R A Y 1 2 ' S M
0005300 A L L P 0 1 ) ) \r ) \r ( / D
0005320 E C L A R E D A T A T Y P E '
0005340 V T 1 0 0 . S T A T E \r
0005360 ' ( F L A G F L A G F
0005400 L A G F L A G F L A G F L
0005420 A G F L A G F L A G P O I
0005440 N T E R F L A G F L A G F
0005460 L A G F L A G P O I N T E R
0005500 W O R D W O R D \r
0005520 P O I N T E
0005540 R P O I N T E R P O I N T E
*
0005600 R P O I N T E R ) \r
0005620 ' ( ( V T 1 0 0 . S T A T E
0005640 0 ( F L A G B I T S . 0
0005660 ) ) \r ( V T 1
0005700 0 0 . S T A T E 0 ( F L A G
0005720 B I T S . 1 6 ) ) \r
0005740 ( V T 1 0 0 . S T A T
0005760 E 0 ( F L A G B I T S .
0006000 3 2 ) ) \r ( V
0006020 T 1 0 0 . S T A T E 0 ( F L
0006040 A G B I T S . 4 8 ) ) \r
0006060 ( V T 1 0 0 . S T
0006100 A T E 0 ( F L A G B I T S
0006120 . 6 4 ) ) \r
0006140 ( V T 1 0 0 . S T A T E 0 (
0006160 F L A G B I T S . 8 0 ) ) \r
0006200 ( V T 1 0 0 .
0006220 S T A T E 0 ( F L A G B I T
0006240 S . 9 6 ) ) \r
0006260 ( V T 1 0 0 . S T A T E 0
0006300 ( F L A G B I T S . 1 1 2
0006320 ) ) \r ( V T 1
0006340 0 0 . S T A T E 0 P O I N T
0006360 E R ) \r ( V T
0006400 1 0 0 . S T A T E 2 ( F L A
0006420 G B I T S . 0 ) ) \r
0006440 ( V T 1 0 0 . S T A T
0006460 E 2 ( F L A G B I T S .
0006500 1 6 ) ) \r ( V
0006520 T 1 0 0 . S T A T E 2 ( F L
0006540 A G B I T S . 3 2 ) ) \r
0006560 ( V T 1 0 0 . S T
0006600 A T E 2 ( F L A G B I T S
0006620 . 4 8 ) ) \r
0006640 ( V T 1 0 0 . S T A T E 2 P
0006660 O I N T E R ) \r
0006700 ( V T 1 0 0 . S T A T E 4
0006720 ( B I T S . 1 5 ) ) \r
0006740 ( V T 1 0 0 . S T A
0006760 T E 5 ( B I T S . 1 5 )
0007000 ) \r ( V T 1 0
0007020 0 . S T A T E 6 P O I N T E
0007040 R ) \r ( V T 1
0007060 0 0 . S T A T E 8 P O I N T
0007100 E R ) \r ( V T
0007120 1 0 0 . S T A T E 1 0 P O I
0007140 N T E R ) \r (
0007160 V T 1 0 0 . S T A T E 1 2 P
0007200 O I N T E R ) \r
0007220 ( V T 1 0 0 . S T A T E 1 4
0007240 P O I N T E R ) \r
0007260 ( V T 1 0 0 . S T A T E
0007300 1 6 P O I N T E R ) ) \r
0007320 ' 1 8 ) \r \r \r \r 006 004 ( *
0007340 ; ; ; " V T 1 0 0 e m u l
0007360 a t o r " ) 006 001 \r \r ( D E F I N
0007400 E Q \r \r ( 006 004 V T C H A T . A D
0007420 D R E S S 006 001 \r [ L A M B D
0007440 A ( C H A T . S T A T E V T
0007460 1 0 0 . S T A T E R O W C O
0007500 L U M N ) 006 006 006 001
0007520 006 006 ( * ;
0007540 " E d i t e d 1 8 - D e c - 8
0007560 6 1 5 : 0 6 b y a m d " )
0007600 006 001 \r \r
0007620 006 006 ( * ; ;
0007640 " D o a b s o l u t e p o s
0007660 i t i o n i n g " ) 006 001 \r \r
0007700 ( 006 002 w i t h 006 001 C H A T
0007720 . S T A T E C H A T . S T A T
0007740 E ( 006 002 w i t h 006 001 V T 1 0
0007760 0 . S T A T E V T 1 0 0 . S T
0010000 A T E [ C O N D \r
0010020
*
0010100 ( R E L O
0010120 R I G I N ( S E T Q R O W \r
0010140
*
0010240 ( I P
0010260 L U S R O W T O P M A R G I
0010300 N ) ) \r
0010320
*
0010400 ( C O N
0010420 D \r
0010440
*
0010520 ( ( I
0010540 L E S S P R O W T O P M A R
0010560 G I N ) \r
0010600
*
0010700 ( S E T Q R O W T O P M A
0010720 R G I N ) ) \r
0010740
*
0011040 ( ( I G R E A T E R P R O
0011060 W \r
0011100
*
0011200 B O T T O M M A R G
0011220 I N ) \r
0011240
*
0011340 ( S E T Q R O W B O T T O M
0011360 M A R G I N ] \r
0011400
0011420 ( M
0011440 O V E T O ( S E T Q X P O S
0011460 ( I M I N ( I T I M E S (
0011500 S U B 1 C O L U M N ) \r
0011520
*
0011620 F O N T W I D T H ) \r
0011640
*
0011720 ( I D
0011740 I F F E R E N C E T T Y W I D
0011760 T H F O N T W I D T H ) ) ) \r
0012000
*
0012040 [ S E
0012060 T Q Y P O S ( I M A X F O
0012100 N T D E S C E N T ( I D I F F
0012120 E R E N C E \r
0012140
*
0012240 H O M E P O S \r
0012260
*
0012360 ( I T I M E S ( S U
0012400 B 1 R O W ) \r
0012420
*
0012520 F O N T H E
0012540 I G H T ] \r
0012560
*
0012620 D S P ) ) ) \r T ]
0012640 ) \r \r ( 006 004 V T C H A T . A T T
0012660 R I B U T E S 006 001 \r [ L A M
0012700 B D A ( C H A T . S T A T E
0012720 V T 1 0 0 . S T A T E A T T R
0012740 A R R A Y A T T R C O U N T )
0012760 006 006 006 001 006 006 ( *
0013000 ; " E d i t e d 1 8 - D e c
0013020 - 8 6 1 5 : 0 6 b y a m d
0013040 " ) 006 001 \r \r
0013060 006 006 ( * ;
0013100 ; " F u n c t i o n t o d
0013120 o c h a r a c t e r a t t r
0013140 i b u t e s e t t i n g " ) 006
0013160 001 \r \r ( 006 002 w i t h 006 001
0013200 C H A T . S T A T E C H A T
0013220 . S T A T E ( 006 002 w i t h 006 001
0013240 V T 1 0 0 . S T A T E V T 1
0013260 0 0 . S T A T E \r
0013300
0013320 (
0013340 006 002 b i n d 006 001 A T T R S 006
0013360 002 f o r 006 001 A 006 002 f r o m 006
0013400 001 A T T R C O U N T 006 002 t o
0013420 006 001 1 006 002 b y 006 001 - 1 \r
0013440
*
0013500 006 002 d o 006 001 (
0013520 S E L E C T Q ( E L T A T T
0013540 R A R R A Y A ) \r
0013560
*
0013620 ( 0 ( 006 002
0013640 p u s h 006 001 A T T R S ' N O
0013660 R M A L ) ) \r
0013700
*
0013740 ( 1 ( 006 002 p u s
0013760 h 006 001 A T T R S ' B R I G H
0014000 T ) ) \r
0014020
*
0014060 ( 4 ( 006 002 p u s h 006 001
0014100 A T T R S ' B L I N K ) ) \r
0014120
*
0014200 ( 5 ( 006 002 p u s h 006 001 A T T
0014220 R S ' U N D E R L I N E ) ) \r
0014240
*
0014320 ( 7 ( 006 002 p u s h 006 001 A T T
0014340 R S ' I N V E R S E ) ) \r
0014360
*
0014420 N I
0014440 L ) 006 002 f i n a l l y 006 001 (
0014460 T E R M . M O D I F Y . A T T R
0014500 I B U T E S C H A T . S T A T
0014520 E A T T R S \r
0014540
*
0014620 ] ) \r \r
0014640 ( 006 004 V T C H A T . D E C L F O
0014660 N T 006 001 \r [ L A M B D A (
0014700 C H A T . S T A T E V T 1 0 0
0014720 . S T A T E C H A R ) 006 006 006 001
0014740
0014760 006 006 ( * e j s % :
0015000 " 2 0 - M a r - 8 6 1 4 : 4
0015020 1 " ) 006 001 \r ( 006 002 w i t
0015040 h 006 001 C H A T . S T A T E C
0015060 H A T . S T A T E ( 006 002 w i t
0015100 h 006 001 V T 1 0 0 . S T A T E
0015120 V T 1 0 0 . S T A T E ( S E T
0015140 Q C H A R S E T 1 N I L ) \r
0015160
*
0015220 ( S E T Q C H A R
0015240 S E T 0 N I L ) \r
0015260
*
0015320 ( S E T Q E S C A P E S E Q U
0015340 E N C E N I L ] ) \r \r ( 006 004 V
0015360 T C H A T . D O C O M M A N D 006
0015400 001 \r [ L A M B D A ( C H A
0015420 T . S T A T E V T 1 0 0 . S T
0015440 A T E C H A R ) 006 006 006 001
0015460
0015500 006 006 ( * ; " E d i t e
0015520 d 1 8 - D e c - 8 6 1 5 : 0
0015540 8 b y a m d " ) 006 001 \r
0015560 \r
0015600 006 006 ( * ; ; " F u n c t
0015620 i o n c a l l e d w h e n
0015640 a n e s c a p e o r c o n
0015660 t r o l s e q u e n c e h a
0015700 s b e e n t e r m i n a t e
0015720 d b y C H A R " ) 006 001 \r \r
0015740 ( 006 002 w i t h 006 001 C H A
0015760 T . S T A T E C H A T . S T A
0016000 T E ( 006 002 w i t h 006 001 V T 1
0016020 0 0 . S T A T E V T 1 0 0 . S
0016040 T A T E \r
0016060
0016100 ( P R O G
0016120 [ S T A Y E S C A P E [ P A
0016140 R A M 1 ( C O N D \r
0016160
*
0016240 ( (
0016260 Z E R O P E S C A P E S E Q U
0016300 E N C E ) \r
0016320
*
0016400 0 ) \r
0016420
*
0016520 ( T ( E L T P A R A M A R R
0016540 A Y 1 ] \r
0016560
*
0016620 ( P A R A M 2
0016640 ( C O N D \r
0016660
*
0016740 ( ( I L E S S P E S
0016760 C A P E S E Q U E N C E 2 ) \r
0017000
*
0017060 0
0017100 ) \r
0017120
*
0017200 ( T ( E L T P A R A M A R R
0017220 A Y 2 ] \r
0017240
*
0017300 ( S E L C H A R Q C H A R
0017320 \r
0017340
*
0017400 ( % [ 006 006
0017420 ( * ; \r 006 001
0017440
*
0017500 006 006 " E S C -
0017520 L e f t B r a c k e t i s t
0017540 h e c o n t r o l s e q u e
0017560 n c e i n t r o d u c e r " )
0017600 006 001 \r
0017620
*
0017660 ( S E T Q C S
0017700 T E R M 6 4 ) \r
0017720
*
0017760 ( S
0020000 E T Q E S C A P E S E Q U E N
0020020 C E 1 ) \r
0020040
*
0020100 ( S E T Q
0020120 S T A Y E S C A P E T ) \r
0020140
*
0020220 ( S E T A P A R A M A
0020240 R R A Y 1 0 ) ) \r
0020260
*
0020320 ( 7
0020340 006 006 ( * ; "
0020360 E S C 7 - > S a v e p a
0020400 r a m e t e r s " ) 006 001 \r
0020420
*
0020500 ( 006 002 V T C H A T . S A V E 006
0020520 001 C H A T . S T A T E V T 1
0020540 0 0 . S T A T E ) ) \r
0020560
*
0020620 ( 8
0020640 006 006 ( * ; "
0020660 E S C 8 - > R e s t o r e
0020700 p a r a m e t e r s " ) 006 001 \r
0020720
*
0021000 ( 006 002 V T C H A T . R E
0021020 S T O R E 006 001 C H A T . S T A
0021040 T E V T 1 0 0 . S T A T E ) )
0021060 \r
0021100
*
0021140 ( A 006 006
0021160 ( * ; \r 006 001
0021200
*
0021240 006 006 " E S
0021260 C [ P n A - > M o v e
0021300 u p ; p a r a m 1 i n d
0021320 i c a t e s h o w f a r " )
0021340 006 001 \r
0021360
*
0021420 ( T E R M . U P
0021440 C H A T . S T A T E ( C O N D
0021460 \r
0021500
*
0021560 ( ( Z E
0021600 R O P P A R A M 1 ) \r
0021620
*
0021720 1 ) \r
0021740
*
0022040 ( T P A R A M 1 )
0022060 ) ) ) \r
0022100
*
0022140 ( B
0022160 006 006 ( * ; \r 006 001
0022200
*
0022240 006 006 " E
0022260 S C [ P n B - > M o v
0022300 e d o w n ; p a r a m 1
0022320 i n d i c a t e s h o w f a
0022340 r " ) 006 001 \r
0022360
*
0022420 ( T E R M .
0022440 G O D O W N C H A T . S T A T
0022460 E ( C O N D \r
0022500
*
0022600 ( ( Z E R O P P
0022620 A R A M 1 ) \r
0022640
*
0022740 1 ) \r
0022760
*
0023060 ( T P A R A
0023100 M 1 ) ) ) ) \r
0023120
*
0023160 ( C
0023200 006 006 ( * ; \r 006 001
0023220
*
0023260 006 006
0023300 " E S C [ P n C - > M
0023320 o v e r i g h t ; p a r a
0023340 m 1 i n d i c a t e s h o w
0023360 f a r " ) 006 001 \r
0023400
*
0023440 ( T E
0023460 R M . R I G H T C H A T . S T
0023500 A T E ( C O N D \r
0023520
*
0023620 ( ( Z E R O P
0023640 P A R A M 1 ) \r
0023660
*
0023760 1 ) \r
0024000
*
0024100 ( T P A R A M
0024120 1 ) ) ) ) \r
0024140
*
0024200 ( D [ C O N D \r
0024220
*
0024300 ( ( E Q 0 E S
0024320 C A P E S E Q U E N C E ) \r
0024340
*
0024420 006 006 ( *
0024440 ; " E S C D - > i n d e
0024460 x " ) 006 001 \r
0024500
*
0024540 ( T
0024560 E R M . D O W N C H A T . S T
0024600 A T E ) ) \r
0024620
*
0024660 ( T
0024700 006 006 ( * ; " E S C [
0024720 P n D - > c u r s o r
0024740 b a c k w a r d s " ) 006 001 \r
0024760
*
0025040 ( T E R M . L E
0025060 F T C H A T . S T A T E ( C
0025100 O N D \r
0025120
*
0025220 ( ( Z E R O P P
0025240 A R A M 1 ) \r
0025260
*
0025360 1 ) \r
0025400
*
0025520 ( T P A R A M 1 ] ) \r
0025540
*
0025600 ( E
0025620 006 006 ( * ;
0025640 " E S C E - > D o C R
0025660 L F " ) 006 001 \r
0025700
*
0025740 ( M O V E
0025760 T O ( S E T Q X P O S 0 )
0026000 \r
0026020
*
0026060 Y P O S
0026100 D S P ) \r
0026120
*
0026160 ( T E R M .
0026200 D O W N C H A T . S T A T E )
0026220 ) \r
0026240
*
0026300 ( ( H f ) \r
0026320
*
0026400 [ C O N D \r
0026420
*
0026500 ( ( A N D ( E Q C H A R (
0026520 C H A R C O D E H ) ) \r
0026540
*
0026620 ( E Q
0026640 0 E S C A P E S E Q U E N C E
0026660 ) ) \r
0026700
*
0026760 006 006 ( * ; " E S C H - >
0027000 S e t t a b a t p o s i
0027020 t i o n " ) 006 001 \r
0027040
*
0027120 ( T E R M . S E T . T A B
0027140 C H A T . S T A T E ( I Q U
0027160 O T I E N T X P O S \r
0027200
*
0027320 F O N T W I D T H
0027340 ) ) \r
0027360
*
0027420 ) \r
0027440
*
0027520 ( ( N O T ( E
0027540 Q 0 E S C A P E S E Q U E N
0027560 C E ) ) \r
0027600
*
0027660 006 006 ( * ; " E S C [
0027700 P n H - > C u r s o r a
0027720 d d r e s s i n g " ) 006 001 \r
0027740
*
0030020 ( 006 002 V T C H A
0030040 T . A D D R E S S 006 001 C H A T
0030060 . S T A T E V T 1 0 0 . S T A
0030100 T E \r
0030120
*
0030200 ( C O N D \r
0030220
*
0030300 ( (
0030320 O R ( Z E R O P P A R A M 1
0030340 ) \r
0030360
*
0030440 ( N U L L
0030460 P A R A M 1 ) ) \r
0030500
*
0030560 1
0030600 ) \r
0030620
*
0030700 ( T P A R A M 1 )
0030720 ) \r
0030740
*
0031020 ( C O N D \r
0031040
*
0031120 ( ( O
0031140 R ( Z E R O P P A R A M 2 )
0031160 \r
0031200
*
0031260 ( N U L L
0031300 P A R A M 2 ) ) \r
0031320
*
0031400 1 )
0031420 \r
0031440
*
0031520 ( T P A R A M 2 ] )
0031540 \r
0031560
*
0031620 ( J 006 006
0031640 ( * ; \r 006 001
0031660
*
0031740 006 006 " E r a s e i n d
0031760 i s p l a y ; p a r a m 1
0032000 i n d i c a t e s m o d e " )
0032020 006 001 \r
0032040
*
0032100 ( T E R M . E R A
0032120 S E . I N . D I S P L A Y C H
0032140 A T . S T A T E \r
0032160
*
0032240 ( C O N D \r
0032260
*
0032340 ( ( O R ( Z E
0032360 R O P P A R A M 1 ) \r
0032400
*
0032460 (
0032500 N U L L P A R A M 1 ) ) \r
0032520
*
0032600 0 ) \r
0032620
*
0032700 ( T
0032720 P A R A M 1 ) ) ) ) \r
0032740
*
0033000 ( K
0033020 006 006 ( * ;
0033040 \r 006 001
0033060
*
0033140 006 006 " E r a s e i n l i n e
0033160 ; p a r a m 1 i n d i c a
0033200 t e s m o d e " ) 006 001 \r
0033220
*
0033300 ( T E R M . E R A S E . I N .
0033320 L I N E C H A T . S T A T E \r
0033340
*
0033420 ( C O N D
0033440 \r
0033460
*
0033520 (
0033540 ( O R ( Z E R O P P A R A M
0033560 1 ) \r
0033600
*
0033660 ( N U L L P A R A
0033700 M 1 ) ) \r
0033720
*
0034000 0 ) \r
0034020
*
0034100 ( T P A R A M 1 ) )
0034120 ) ) \r
0034140
*
0034200 ( M
0034220 006 006 ( * ; " R e v e r s e
0034240 I n d e x " ) 006 001 \r
0034260
*
0034320 ( 006
0034340 002 V T C H A T . R E V E R S E .
0034360 I N D E X 006 001 C H A T . S T A
0034400 T E V T 1 0 0 . S T A T E ) )
0034420 \r
0034440
*
0034500 ( Z 006 006
0034520 ( * ; " W h a t a r e y
0034540 o u ? " ) 006 001 \r
0034560
*
0034620 ( T E R
0034640 M . I D E N T I F Y . S E L F
0034660 C H A T . S T A T E ) ) \r
0034700
*
0034740 ( <
0034760 N I L ) \r
0035000
*
0035040 ( =
0035060 006 006 ( * ; " E n t e r
0035100 k e y p a d a p p l i c a t
0035120 i o n m o d e " ) 006 001 \r
0035140
*
0035220 ( V T C H A T . K P A P P L M
0035240 O D E C H A T . S T A T E V
0035260 T 1 0 0 . S T A T E T ) ) \r
0035300
*
0035360 ( > 006 006 ( *
0035400 ; " L e a v e k e y p a d
0035420 a p p l i c a t i o n m o d
0035440 e " ) 006 001 \r
0035460
*
0035520 ( V T C H A
0035540 T . K P A P P L M O D E C H A
0035560 T . S T A T E V T 1 0 0 . S T
0035600 A T E N I L ) ) \r
0035620
*
0035660 ( c
0035700 006 006 ( * ; " W
0035720 h a t a r e y o u ? " ) 006 001
0035740 \r
0035760
*
0036020 ( T E R M . I D E N T
0036040 I F Y . S E L F C H A T . S T
0036060 A T E ) ) \r
0036100
*
0036140 ( h
0036160 006 006 ( * ; " S e t m
0036200 o d e s " ) 006 001 \r
0036220
*
0036260 ( 006 002
0036300 V T C H A T . S E T M O D E 006 001
0036320 C H A T . S T A T E V T 1 0
0036340 0 . S T A T E P A R A M A R R
0036360 A Y \r
0036400
*
0036440 E
0036460 S C A P E S E Q U E N C E ) ) \r
0036500
*
0036560 ( l 006 006 (
0036600 * ; " R e s e t m o d e "
0036620 ) 006 001 \r
0036640
*
0036700 ( 006 002 V T C H A
0036720 T . R E S E T M O D E 006 001 C H
0036740 A T . S T A T E V T 1 0 0 . S
0036760 T A T E \r
0037000
*
0037060 P A R A M A R R A Y E S C A
0037100 P E S E Q U E N C E ) ) \r
0037120
*
0037160 ( m
0037200 006 006 ( * ;
0037220 " S e t c h a r a t t r i
0037240 b u t e s " ) 006 001 \r
0037260
*
0037320 ( 006
0037340 002 V T C H A T . A T T R I B U T
0037360 E S 006 001 C H A T . S T A T E
0037400 V T 1 0 0 . S T A T E \r
0037420
*
0037500 P A R A M A R R
0037520 A Y E S C A P E S E Q U E N C
0037540 E ) ) \r
0037560
*
0037620 ( n
0037640 006 006 ( * ; " S t a t u s
0037660 r e p o r t " ) 006 001 \r
0037700
*
0037740 (
0037760 006 002 V T C H A T . S T A T U S 006
0040000 001 C H A T . S T A T E V T 1
0040020 0 0 . S T A T E P A R A M 1 )
0040040 ) \r
0040060
*
0040120 ( r 006
0040140 006 ( * ; " S e t s c r o l
0040160 l i n g m a r g i n s " ) 006 001
0040200 \r
0040220
*
0040260 ( 006 002 V T C H A T . S
0040300 E T M A R G I N S 006 001 C H A T
0040320 . S T A T E V T 1 0 0 . S T A
0040340 T E \r
0040360
*
0040420 ( C
0040440 O N D \r
0040460
*
0040540 ( ( Z E R O P P A R A M 1
0040560 ) \r
0040600
*
0040660 1 ) \r
0040700
*
0040760 ( T P A R A M 1 ) ) \r
0041000
*
0041060 ( C O N D \r
0041100
*
0041160 ( ( Z
0041200 E R O P P A R A M 2 ) \r
0041220
*
0041300 ( I T I
0041320 M E S ( I Q U O T I E N T T
0041340 T Y H E I G H T \r
0041360
*
0041460 F O N T H E I G
0041500 H T ) \r
0041520
*
0041600 F O N T H E
0041620 I G H T ) ) \r
0041640
*
0041720 ( T P A R A M 2 ) )
0041740 ) ) \r
0041760
*
0042020 ( x ( 006 002 V T C H A T
0042040 . R E P O R T 006 001 C H A T . S
0042060 T A T E V T 1 0 0 . S T A T E
0042100 ) ) \r
0042120
*
0042160 ( \ ) \r
0042200
*
0042240 ( P R O G N
0042260 \r \r
0042300 006 006 ( * ; ; " (
0042320 C O N D ( ( Z E R O P E S C
0042340 A P E S E Q U E N C E ) ( p r
0042360 i n t o u t P R O M P T W I N
0042400 D O W ' E S C ' ( C H A R
0042420 A C T E R C H A R ) T ) )
0042440 ( T ( p r i n t o u t P R O
0042460 M P T W I N D O W ' E S C [ '
0042500 P A R A M 1 ' ; ' P A R A
0042520 M 2 ' ' ( C H A R A C T E
0042540 R C H A R ) T ) ) ) " ) 006 001
0042560 \r \r
0042600
*
0042640 N I L ) ) \r
0042660
*
0042720 ( O R
0042740 S T A Y E S C A P E ( S E T Q
0042760 E S C A P E S E Q U E N C E
0043000 N I L ] ) \r \r ( 006 004 V T C H A T
0043020 . H A N D L E C H A R A C T E R
0043040 006 001 \r [ L A M B D A ( C H
0043060 A R C H A T . S T A T E V T
0043100 1 0 0 . S T A T E ) 006 006 006 001
0043120
0043140 006 006 ( * ; " E d i t
0043160 e d 1 8 - D e c - 8 6 1 5 :
0043200 0 9 b y a m d " ) 006 001 \r
0043220 \r
0043240 006 006 ( * ; ; " H e r e
0043260 a n d / o r b e l o w " ) 006
0043300 001 \r \r ( 006 002 D E C L A R
0043320 E 006 001 ( G L O B A L V A R S
0043340 V T C H A T . D E B U G G I N G
0043360 . F L G \ M A C H I N E T Y P
0043400 E \ D A N D E L I O N \ D A
0043420 Y B R E A K ) ) \r ( 006 002
0043440 w i t h 006 001 C H A T . S T A T
0043460 E C H A T . S T A T E \r
0043500 ( 006 002 w i t h 006 001
0043520 V T 1 0 0 . S T A T E V T 1
0043540 0 0 . S T A T E [ C O N D \r
0043560
*
0043620 ( V T C H A
0043640 T . D E B U G G I N G . F L G
0043660 ( C O N D \r
0043700
*
0043760 ( ( I L E S
0044000 S P C H A R ( C H A R C O D
0044020 E S P A C E ) ) \r
0044040
*
0044120 (
0044140 P R I N T O U T P R O M P T W
0044160 I N D O W " [ " C H A R \r
0044200
*
0044300 " ] " )
0044320 ) \r
0044340
*
0044420 ( T ( \ O U T C H
0044440 A R ( G E T S T R E A M \r
0044460
*
0044600 P R O M P T W I N
0044620 D O W ) \r
0044640
*
0044740 C H A R ] \r
0044760 ( P R O G N
0045000 I L \r
0045020 [ C O N D \r
0045040
0045060 ( ( E Q C H A
0045100 R ( C H A R C O D E B E L L
0045120 ) ) \r
0045140 ( R E
0045160 T U R N ( C O N D \r
0045200
*
0045240 ( ( O R ( E Q \ M A C H I N
0045260 E T Y P E \ D A N D E L I O N
0045300 ) \r
0045320
0045340 ( E Q
0045360 \ M A C H I N E T Y P E \ D A
0045400 Y B R E A K ) ) \r
0045420
0045440 (
0045460 B E E P O N 8 8 0 ) \r
0045500
*
0045540 ( D I S M I S S 2 0 ) \r
0045560
*
0045620 ( B E E P O F F ) ) \r
0045640
*
0045700 ( ( N O T D I N G E
0045720 D ) \r
0045740
0045760 ( A P P L Y *
0046000 I N V E R T W I N D O W F N
0046020 W I N D O W ) \r
0046040
*
0046120 006 006 ( * ; " C o m
0046140 p l e m e n t w i n d o w " )
0046160 006 001 \r
0046200
0046220 ( S E T Q D
0046240 I N G E D T ] \r
0046260 (
0046300 C O N D \r
0046320 ( D
0046340 I N G E D ( A P P L Y * I N
0046360 V E R T W I N D O W F N W I N
0046400 D O W ) \r
0046420
0046440 ( S E T Q D I N G E
0046460 D N I L ) ) ) \r
0046500 (
0046520 C O N D \r
0046540 ( (
0046560 E Q C H A R ( C H A R C O D
0046600 E ^ % [ ) ) \r
0046620
0046640 ( S E T Q A U T O L F N
0046660 I L ) ) ) \r
0046700 ( S E L
0046720 C H A R Q C H A R \r
0046740
0046760 ( ( L F F F ^ K
0047000 )
0047020 006 006 ( * ; "
0047040 L i n e F e e d " ) 006 001 \r
0047060
0047100 ( C
0047120 O N D \r
0047140
0047160 ( ( N O T E A T
0047200 L F ) \r
0047220
0047240 ( T E R M . D O
0047260 W N C H A T . S T A T E ) ) \r
0047300
*
0047340 ( T ( S E T Q E A T L
0047360 F N I L ) ) ) ) \r
0047400
0047420 ( ^ I
0047440
0047460 006 006 ( * ; " T
0047500 a b " ) 006 001 \r
0047520
0047540 ( T E R M . T A B
0047560 C H A T . S T A T E ) ) \r
0047600
0047620 ( C R
0047640
0047660 006 006 ( * ;
0047700 " C a r r i a g e r e t u r
0047720 n " ) 006 001 \r
0047740
0047760 ( M O V E T O ( S E
0050000 T Q X P O S 0 ) \r
0050020
*
0050060 Y P O S D S P ) ) \r
0050100
0050120 ( B S
0050140
0050160 006 006 ( * ;
0050200 " B a c k s p a c e " ) 006 001 \r
0050220
0050240 (
0050260 T E R M . L E F T C H A T . S
0050300 T A T E 1 ) ) \r
0050320
0050340 ( ( ^ X ^ Z )
0050360
0050400 006 006 ( * ; " C a
0050420 n c e l - - r e s e t s m o
0050440 d e s " ) 006 001 \r
0050460
0050500 ( 006 002 V T C H A
0050520 T . C L E A R M O D E S 006 001 C
0050540 H A T . S T A T E V T 1 0 0 .
0050560 S T A T E ) ) \r
0050600
0050620 ( ^ N ( D S P F O N T
0050640 S O F O N T W I N D O W ) \r
0050660
0050700 ( S
0050720 E T Q C U R R E N T F O N T
0050740 ' S O F O N T ) 006 006 ( *
0050760 ; " S O - - - c h a r a
0051000 c t e r s e t s w i t c h "
0051020 ) 006 001 \r
0051040
0051060 ) \r
0051100
0051120 ( ^ O ( D S P F O N T S I F
0051140 O N T W I N D O W ) \r
0051160
0051200 ( S E T Q
0051220 C U R R E N T F O N T ' S I
0051240 F O N T ) 006 006 ( * ;
0051260 " S I - - - c h a r a c t e
0051300 r s e t s w i t c h " ) 006 001
0051320 \r
0051340
0051360 ) \r
0051400 ( ^ %
0051420 [
0051440 006
0051460 006 ( * ; " E S C L e a d i
0051500 n " ) 006 001 \r
0051520
0051540 ( S E T Q E S C A
0051560 P E S E Q U E N C E 0 ) \r
0051600
0051620 ( S
0051640 E T Q C S T E R M 4 8 ) ) \r
0051660
0051700 ( C O N D
0051720 \r
0051740 (
0051760 ( I G E Q C H A R ( C H A R
0052000 C O D E S P A C E ) ) 006 006
0052020 ( * ; " N o r m a l c h a
0052040 r " ) 006 001 \r
0052060
0052100 ( C O N D \r
0052120
0052140 ( E S
0052160 C A P E S E Q U E N C E ( 006 002
0052200 V T C H A T . S E Q U E N C E 006
0052220 001 C H A T . S T A T E V T 1
0052240 0 0 . S T A T E C H A R ) ) \r
0052260
*
0052320 ( T ( S E T Q E A T L F
0052340 ( S E T Q E A T C R L F N
0052360 I L ) ) \r
0052400
0052420 ( R E T U R
0052440 N ( C O N D \r
0052460
*
0052520 ( ( A N D ( N
0052540 E Q C H A R ( C H A R C O D
0052560 E D E L ) ) \r
0052600
*
0052640 ( N
0052660 O T E A T T O C R L F ) ) \r
0052700
*
0052760 006 006 ( *
0053000 ; " P r i n t t h e c h
0053020 a r " ) 006 001 \r
0053040
*
0053100 ( T E R M . P R
0053120 I N T C H A R C H A T . S T A
0053140 T E C H A R ( 006 002 f e t c h
0053160 006 001 ( C H A T . S T A T E \r
0053200
*
0053320 W R A P M O D E
0053340 ) \r
0053360
*
0053460 006 002 o f 006 001 C H A
0053500 T . S T A T E ] ) \r \r ( 006 004 V T
0053520 C H A T . C L E A R M O D E S 006
0053540 001 \r [ L A M B D A ( C H A
0053560 T . S T A T E V T 1 0 0 . S T
0053600 A T E ) 006 006 006 001
0053620
0053640 006 006 ( * ; " E d i t e
0053660 d 1 8 - D e c - 8 6 1 5 : 0
0053700 9 b y a m d " ) 006 001 \r
0053720 ( 006 002 w i t h 006 001 C H A T .
0053740 S T A T E C H A T . S T A T E
0053760 ( 006 002 w i t h 006 001 V T 1 0 0
0054000 . S T A T E V T 1 0 0 . S T A
0054020 T E ( C O N D \r
0054040
*
0054120 ( ( O R B
0054140 L I N K M O D E B R I G H T M
0054160 O D E ) \r
0054200
*
0054260 ( D S P F O N T
0054300 P L A I N F O N T D S P ) \r
0054320
*
0054400 006 006 ( *
0054420 ; " R e s t o r e n o r m
0054440 a l f o n t " ) 006 001 \r
0054460
*
0054540 ( S
0054560 E T Q F O N T P L A I N F O
0054600 N T ) \r
0054620
*
0054700 ( S E T Q B R I G
0054720 H T M O D E ( S E T Q B L I
0054740 N K M O D E ] ) \r \r ( 006 004 V T C
0054760 H A T . R E P O R T 006 001 \r [
0055000 L A M B D A ( C H A T . S T A
0055020 T E V T C H A T . S T A T E )
0055040 006 006 006 001
0055060 006 006
0055100 ( * ; " E d i t e d 1 8 -
0055120 D e c - 8 6 1 5 : 1 2 b y
0055140 a m d " ) 006 001 \r
0055160 \r 006 006 (
0055200 * ; ; " R e p o r t t e r
0055220 m i n a l p a r a m e t e r s
0055240 - - D E C R E P T P A R M "
0055260 ) 006 001 \r \r ( 006 002 w i t h
0055300 006 001 C H A T . S T A T E C H
0055320 A T . S T A T E ( P R I N 4
0055340 " 033 [ 2 ; 1 ; 1 ; " O U T S T
0055360 R E A M ) \r
0055400 ( C O N D \r
0055420 [ ( E Q ( 006 002 f e t c h
0055440 006 001 ( S T R E A M D E V I C
0055460 E ) 006 002 o f 006 001 O U T S T R
0055500 E A M ) \r
0055520 \ R S 2 3 2 C . F
0055540 D E V ) \r
0055560 ( L E T [ ( B A U D (
0055600 C D R ( F A S S O C [ C D R
0055620 ( F A S S O C ' L I N E . S
0055640 P E E D ( R S 2 3 2 C . G E T
0055660 . P A R A M E T E R S ' ( L I
0055700 N E . S P E E D ] \r
0055720
*
0055760 ' ( ( 5 0 . 0 ) \r
0056000
*
0056040 ( 7 5 . 8 ) \r
0056060
*
0056120 ( 1 1 0 . 1 6 ) \r
0056140
*
0056200 ( 1 5 0 . 3 2
0056220 ) \r
0056240
0056260 ( 2 0 0 .
0056300 4 0 ) \r
0056320
0056340 ( 3 0
0056360 0 . 4 8 ) \r
0056400
*
0056440 ( 6 0 0 . 5 6 ) \r
0056460
*
0056520 ( 1 2 0 0 . 6 4 ) \r
0056540
*
0056600 ( 1 8 0 0 . 7
0056620 2 ) \r
0056640
0056660 ( 2 0 0 0
0056700 . 8 0 ) \r
0056720
0056740 (
0056760 2 4 0 0 . 8 8 ) \r
0057000
*
0057040 ( 3 6 0 0 . 9 6 ) \r
0057060
*
0057120 ( 4 8 0 0 . 1
0057140 0 4 ) \r
0057160
0057200 ( 9 6 0
0057220 0 . 1 1 2 ) \r
0057240
*
0057300 ( 1 9 2 0 0 . 1 2 0 ] \r
0057320
0057340 ( C O N D \r
0057360 ( B
0057400 A U D ( p r i n t o u t O U
0057420 T S T R E A M B A U D " ; "
0057440 B A U D " ; " ) ) \r
0057460
0057500 ( T ( p r i n t o u t O
0057520 U T S T R E A M " 0 ; 0 ; " ]
0057540 \r ( T
0057560 ( p r i n t o u t O U T S T
0057600 R E A M " 0 ; 0 ; " ) ) ) \r
0057620 ( P R I N 1
0057640 " 1 ; 0 x " O U T S T R E A M
0057660 ) \r ( F O R
0057700 C E O U T P U T O U T S T R E
0057720 A M ] ) \r \r ( 006 004 V T C H A T .
0057740 R E S E T M O D E 006 001 \r [ L
0057760 A M B D A ( C H A T . S T A T
0060000 E V T 1 0 0 . S T A T E M O
0060020 D E A R R A Y S E T C O U N T
0060040 ) 006 006 006 001 006 006 (
0060060 * ; " E d i t e d 1 8 - D
0060100 e c - 8 6 1 5 : 1 3 b y a
0060120 m d " ) 006 001 \r
0060140 \r 006 006 ( *
0060160 ; ; " D o e s m o d e r
0060200 e s e t t i n g " ) 006 001 \r \r
0060220 ( 006 002 w i t h 006 001 C H A T
0060240 . S T A T E C H A T . S T A T
0060260 E ( 006 002 w i t h 006 001 V T 1 0
0060300 0 . S T A T E V T 1 0 0 . S T
0060320 A T E \r
0060340
0060360 ( 006 002 f o r
0060400 006 001 M 006 002 f r o m 006 001 1
0060420 006 002 t o 006 001 S E T C O U N T \r
0060440
*
0060500 006 002 d o 006 001
0060520 ( S E L E C T Q ( E L T M O
0060540 D E A R R A Y M ) \r
0060560
*
0060620 ( 1 ( 006
0060640 002 r e p l a c e 006 001 ( V T 1 0
0060660 0 . S T A T E C U R S O R M O
0060700 D E ) 006 002 o f 006 001 V T 1 0 0
0060720 . S T A T E \r
0060740
*
0061000 006 002 w
0061020 i t h 006 001 N I L ) ) \r
0061040
*
0061100 ( 4 (
0061120 S E T Q S M O O T H S C R O L
0061140 L N I L ) ) \r
0061160
*
0061220 ( 5 ( C O N D
0061240 \r
0061260
*
0061320 ( I N V E R T F L
0061340 G ( I N V E R T W W I N D O
0061360 W ) \r
0061400
*
0061460 ( S E T Q I N V E R T F L G
0061500 N I L ) \r
0061520
*
0061600 ( D S P T E X T U R E W H
0061620 I T E S H A D E D S P ) \r
0061640
*
0061720 ( D S P O
0061740 P E R A T I O N ' R E P L A C
0061760 E D S P ) ) ) ) \r
0062000
*
0062040 ( 6 ( S E
0062060 T Q R E L O R I G I N N I L
0062100 ) \r
0062120
*
0062160 ( 006 002 V T C H A T . A
0062200 D D R E S S 006 001 C H A T . S T
0062220 A T E V T 1 0 0 . S T A T E
0062240 1 1 ) ) \r
0062260
*
0062320 ( 7 ( S E T Q W
0062340 R A P M O D E N I L ) ) \r
0062360
*
0062420 N I
0062440 L ] ) \r \r ( 006 004 V T C H A T . R
0062460 E S T O R E 006 001 \r [ L A M B
0062500 D A ( C H A T . S T A T E V
0062520 T 1 0 0 . S T A T E ) 006 006 006 001
0062540
0062560 006 006 ( * ;
0062600 " E d i t e d 1 8 - D e c -
0062620 8 6 1 5 : 1 3 b y a m d "
0062640 ) 006 001 \r \r
0062660 006 006 ( * ; ;
0062700 " F u n c t i o n t o r e
0062720 s t o r c u r s o r , e t c
0062740 f r o m s t o r a g e " ) 006
0062760 001 \r \r ( 006 002 w i t h 006 001
0063000 C H A T . S T A T E C H A T
0063020 . S T A T E ( 006 002 w i t h 006 001
0063040 V T 1 0 0 . S T A T E V T 1
0063060 0 0 . S T A T E \r
0063100
0063120 (
0063140 A N D V T 1 0 0 M E M ( P R
0063160 O G N ( M O V E T O ( S E T
0063200 Q X P O S \r
0063220
*
0063300 ( C A R
0063320 ( 006 002 f e t c h 006 001 ( V T 1 0
0063340 0 S A V E C U R S O R P O S )
0063360 \r
0063400
*
0063460 006 002 o
0063500 f 006 001 V T 1 0 0 M E M ) ) ) \r
0063520
*
0063620 ( S E T Q Y P O S \r
0063640
*
0063740 ( C D R ( 006 002 f e t c h 006 001
0063760 ( V T 1 0 0 S A V E C U R S O
0064000 R P O S ) \r
0064020
*
0064120 006 002 o f 006 001 V T 1 0 0 M E M
0064140 ) ) ) \r
0064160
*
0064240 D S P ) \r
0064260
*
0064340 ( D S P F O N T (
0064360 C A R ( 006 002 f e t c h 006 001 (
0064400 V T 1 0 0 S A V E C H A R A T
0064420 T R ) \r
0064440
*
0064540 006 002 o f 006 001 V T 1 0 0 M E M )
0064560 ) \r
0064600
*
0064660 D S P ) \r
0064700
*
0064760 ( S E T Q U N D E R L
0065000 I N E M O D E \r
0065020
*
0065100 ( C A D R ( 006 002 f e t
0065120 c h 006 001 ( V T 1 0 0 S A V E
0065140 C H A R A T T R ) \r
0065160
*
0065240 006
0065260 002 o f 006 001 V T 1 0 0 M E M ) )
0065300 ) \r
0065320
*
0065360 ( D S
0065400 P S O U R C E T Y P E ( C A D
0065420 D R ( 006 002 f e t c h 006 001 ( V
0065440 T 1 0 0 S A V E \r
0065460
*
0065600 C H A R A T T R ) \r
0065620
*
0065740 006 002 o f 006 001 V T 1 0 0 M E M ]
0065760 ) \r \r ( 006 004 V T C H A T . R E V
0066000 E R S E . I N D E X 006 001 \r [
0066020 L A M B D A ( C H A T . S T A
0066040 T E V T 1 0 0 . S T A T E ) 006
0066060 006 006 001
0066100 006 006
0066120 ( * e j s % : " 1 8 - N o v
0066140 - 8 5 1 2 : 5 8 " ) 006 001 \r
0066160 ( 006 002 w i t h 006 001 C H A T
0066200 . S T A T E C H A T . S T A T
0066220 E ( 006 002 w i t h 006 001 V T 1 0
0066240 0 . S T A T E V T 1 0 0 . S T
0066260 A T E ( C O N D \r
0066300
*
0066360 ( ( I L E
0066400 S S P Y P O S ( I D I F F E
0066420 R E N C E T O P M A R G I N
0066440 \r
0066460
*
0066560 F O N T H E I G H
0066600 T ) ) \r
0066620
*
0066700 ( M O V E T O X P
0066720 O S \r
0066740
*
0067020 ( S E T
0067040 Q Y P O S \r
0067060
*
0067160 ( I M I N ( I D I F F E R E
0067200 N C E \r
0067220
*
0067320 T O P M
0067340 A R G I N \r
0067360
*
0067460 F O
0067500 N T H E I G H T ) \r
0067520
*
0067620 ( I P L U S
0067640 Y P O S \r
0067660
*
0067760 F O
0070000 N T H E I G H T ) ) ) \r
0070020
*
0070120 D S P ) ) \r
0070140
*
0070220 ( T (
0070240 T E R M . S C R O L L D O W N
0070260 C H A T . S T A T E \r
0070300
*
0070400 T O P M A R G I N
0070420 ] ) \r \r ( 006 004 V T C H A T . S A
0070440 V E 006 001 \r [ L A M B D A (
0070460 C H A T . S T A T E V T 1 0 0
0070500 . S T A T E ) 006 006 006 001
0070520
0070540 006 006 ( * ; " E d
0070560 i t e d 1 8 - D e c - 8 6 1
0070600 5 : 1 4 b y a m d " ) 006 001 \r
0070620 \r
0070640 006 006 ( * ; ; " F u
0070660 n c t i o n t o s a v e c
0070700 u r r e n t c u r p o s p o
0070720 s i t i o n , g r a p h i c
0070740 r e n d i t i o n , a n d c
0070760 h a r a c t e r s e t " ) 006 001
0071000 \r \r ( 006 002 w i t h 006 001
0071020 C H A T . S T A T E C H A T .
0071040 S T A T E ( 006 002 w i t h 006 001
0071060 V T 1 0 0 . S T A T E V T 1 0
0071100 0 . S T A T E ( O R V T 1 0
0071120 0 M E M ( S E T Q V T 1 0 0
0071140 M E M \r
0071160
*
0071260 ( 006 002 c r e a t e 006 001 V T 1 0
0071300 0 S A V E ) ) ) \r
0071320
0071340 (
0071360 006 002 r e p l a c e 006 001 ( V T 1
0071400 0 0 S A V E C U R S O R P O S
0071420 ) 006 002 o f 006 001 V T 1 0 0 M E
0071440 M \r
0071460
0071500 006 002 w i t
0071520 h 006 001 ( 006 002 c r e a t e 006 001
0071540 P O S I T I O N \r
0071560
*
0071620 X C
0071640 O O R D _ X P O S \r
0071660
*
0071740 Y C O O R D _ Y P O S ) )
0071760 \r
0072000
0072020 ( 006 002 r e p l a c
0072040 e 006 001 ( V T 1 0 0 S A V E C
0072060 H A R A T T R ) 006 002 o f 006 001
0072100 V T 1 0 0 M E M \r
0072120
*
0072160 006 002 w i t h 006 001 ( L I S T
0072200 F O N T U N D E R L I N E M
0072220 O D E ( D S P S O U R C E T Y
0072240 P E N I L D S P ] ) \r \r ( 006
0072260 004 V T C H A T . S E Q U E N C E
0072300 006 001 \r [ L A M B D A ( C H
0072320 A T . S T A T E V T 1 0 0 . S
0072340 T A T E C H A R ) 006 006 006 001
0072360
0072400 006 006 ( * ; " E d i t
0072420 e d 1 8 - D e c - 8 6 1 5 :
0072440 1 4 b y a m d " ) 006 001 \r
0072460 \r
0072500 006 006 ( * ; ; " H e r e
0072520 w h e n a n E S C h a s
0072540 b e e n s e e n " ) 006 001 \r \r
0072560 ( 006 002 w i t h 006 001 C H
0072600 A T . S T A T E C H A T . S T
0072620 A T E \r ( 006
0072640 002 w i t h 006 001 V T 1 0 0 . S T
0072660 A T E V T 1 0 0 . S T A T E \r
0072700
0072720 ( P R O G ( T E M P F O N T
0072740 D E C L ) \r
0072760 ( C O N
0073000 D \r
0073020 ( ( I G R
0073040 E A T E R P C H A R C S T E
0073060 R M ) \r
0073100 ( 006
0073120 002 V T C H A T . D O C O M M A N
0073140 D 006 001 C H A T . S T A T E V
0073160 T 1 0 0 . S T A T E C H A R )
0073200 ) \r
0073220 ( T ( C
0073240 O N D \r
0073260
0073300 ( ( Z E R O P E S C A P
0073320 E S E Q U E N C E ) \r
0073340
0073360 ( S E L E
0073400 C T C C H A R \r
0073420
0073440 ( ( C
0073460 H A R C O D E % ( ) \r
0073500
*
0073540 ( S E T Q C H A R
0073560 S E T 0 T ) \r
0073600
*
0073640 ( S E T Q E S C A P E S E Q
0073660 U E N C E 1 ) \r
0073700
*
0073740 ( S E T Q C S T E R M (
0073760 C H A R C O D E B ) ) ) \r
0074000
*
0074040 ( ( C H A R C O D E % ) )
0074060 \r
0074100
0074120 ( S E T Q
0074140 C H A R S E T 1 T ) \r
0074160
*
0074220 ( S E T Q E S C A
0074240 P E S E Q U E N C E 1 ) \r
0074260
*
0074320 ( S E T Q C S T
0074340 E R M ( C H A R C O D E B )
0074360 ) ) \r
0074400
0074420 ( p r i n t o u t
0074440 P R O M P T W I N D O W " B
0074460 a d E S C A P E S E Q U E N C
0074500 E - - C H A R i s " \r
0074520
*
0074560 ( C H A R A C T
0074600 E R C H A R ) \r
0074620
*
0074660 T ) ) ) \r
0074700
0074720 ( T ( C O N D
0074740 \r
0074760
0075000 ( ( O R C H A R S
0075020 E T 0 C H A R S E T 1 ) \r
0075040
*
0075100 ( 006 002 V T C H A T . D E
0075120 C L F O N T 006 001 C H A T . S T
0075140 A T E V T 1 0 0 . S T A T E
0075160 C H A R ) ) \r
0075200
0075220 ( T (
0075240 S E L C H A R Q C H A R \r
0075260
*
0075320 ( ( 0 1
0075340 2 3 4 5 6 7 8 9
0075360 ) \r
0075400
*
0075440 ( S E T Q T E M P
0075460 ( I P L U S ( I T I M E S 1
0075500 0 ( E L T P A R A M A R R A
0075520 Y \r
0075540
*
0075640 E S C A P E S E Q
0075660 U E N C E ) ) \r
0075700
*
0075760 ( I D I
0076000 F F E R E N C E C H A R 4 8
0076020 ) ) ) \r
0076040
*
0076100 ( C O N D \r
0076120
*
0076200 ( ( I L E S S P T E M P M
0076220 A X . S M A L L P ) \r
0076240
*
0076320 ( S E T A P A R A M A R R A
0076340 Y E S C A P E S E Q U E N C E
0076360 T E M P ) ) ) ) \r
0076400
*
0076440 ( ; ( S E T Q
0076460 E S C A P E S E Q U E N C E (
0076500 A D D 1 E S C A P E S E Q U E
0076520 N C E ) ) \r
0076540
*
0076600 ( S E T A P A R A
0076620 M A R R A Y E S C A P E S E Q
0076640 U E N C E 0 ) ) \r
0076660
*
0076720 N I L ] ) \r \r ( 006
0076740 004 V T C H A T . S E T M A R G I
0076760 N S 006 001 \r [ L A M B D A (
0077000 C H A T . S T A T E V T 1 0 0
0077020 . S T A T E T O P B O T T O
0077040 M ) 006 006 006 001
0077060 006 006 ( * ; " E d
0077100 i t e d 1 8 - D e c - 8 6 1
0077120 5 : 1 5 b y a m d " ) 006 001 \r
0077140 \r
0077160 006 006 ( * ; ; " F u
0077200 n c t i o n t o s e t t o
0077220 p a n d b o t t o m m a r
0077240 g i n s " ) 006 001 \r \r ( 006
0077260 002 w i t h 006 001 C H A T . S T A
0077300 T E C H A T . S T A T E ( 006
0077320 002 w i t h 006 001 V T 1 0 0 . S T
0077340 A T E V T 1 0 0 . S T A T E
0077360 [ S E T Q T O P M A R G I N \r
0077400
*
0077460 (
0077500 I M A X 0 ( I D I F F E R E
0077520 N C E \r
0077540
*
0077620 H O M E
0077640 P O S \r
0077660
*
0077740 ( I T I
0077760 M E S ( I D I F F E R E N C E
0100000 T O P 2 ) \r
0100020
*
0100120 F O N T H E I G H
0100140 T ] \r
0100160
0100200 ( S E T Q B
0100220 O T T O M M A R G I N ( I M A
0100240 X 0 ( I D I F F E R E N C E
0100260 \r
0100300
*
0100360 ( I D I F F E R E N C E
0100400 H O M E P O S \r
0100420
*
0100520 ( I T I M E S ( S U B 1 B
0100540 O T T O M ) \r
0100560
*
0100660 F O N T H E I G H
0100700 T ) ) \r
0100720
*
0101000 F O N T D E S C E N
0101020 T ) ) ) \r
0101040
0101060 ( T E R M
0101100 . H O M E C H A T . S T A T E
0101120 ] ) \r \r ( 006 004 V T C H A T . S E
0101140 T M O D E 006 001 \r [ L A M B D
0101160 A ( C H A T . S T A T E V T
0101200 1 0 0 . S T A T E M O D E A R
0101220 R A Y S E T C O U N T ) 006 006 006
0101240 001 006 006 ( * ;
0101260 " E d i t e d 1 8 - D e c - 8
0101300 6 1 5 : 1 5 b y a m d " )
0101320 006 001 \r \r
0101340 006 006 ( * ; ;
0101360 " D o e s m o d e s e t t i
0101400 n g " ) 006 001 \r \r ( 006 002 w
0101420 i t h 006 001 C H A T . S T A T E
0101440 C H A T . S T A T E ( 006 002 w
0101460 i t h 006 001 V T 1 0 0 . S T A T
0101500 E V T 1 0 0 . S T A T E \r
0101520
*
0101560 ( 006 002 f o r 006 001 M 006
0101600 002 f r o m 006 001 1 006 002 t o 006 001
0101620 S E T C O U N T \r
0101640
*
0101700 006 002 d o 006 001 ( S E L E C
0101720 T Q ( E L T M O D E A R R A
0101740 Y M ) \r
0101760
*
0102020 ( 1 ( 006 002 r e p l a
0102040 c e 006 001 ( V T 1 0 0 . S T A T
0102060 E C U R S O R M O D E ) 006 002
0102100 o f 006 001 V T 1 0 0 . S T A T E
0102120 \r
0102140
*
0102200 006 002 w i t h 006 001
0102220 T ) ) \r
0102240
*
0102300 ( 4 ( S E T Q S M O
0102320 O T H S C R O L L T ) ) \r
0102340
*
0102400 ( 5
0102420 ( C O N D \r
0102440
*
0102500 ( ( N
0102520 U L L I N V E R T F L G ) \r
0102540
*
0102620 ( S E T Q I N V E
0102640 R T F L G T ) \r
0102660
*
0102740 ( I N V E R T W W I N D O W )
0102760 \r
0103000
*
0103040 ( D S P O P E R
0103060 A T I O N ' E R A S E D S P
0103100 ) \r
0103120
*
0103160 ( D S P T E X
0103200 T U R E B L A C K S H A D E
0103220 D S P ) ) ) ) \r
0103240
*
0103300 ( 6 ( S E T Q
0103320 R E L O R I G I N T ) \r
0103340
*
0103420 ( C H A T . A D D R E S S 1
0103440 1 ) ) \r
0103460
*
0103520 ( 7 ( S E T Q W R
0103540 A P M O D E T ) ) \r
0103560
*
0103620 N I L ] )
0103640 \r \r ( 006 004 V T C H A T . S T A T
0103660 E 006 001 \r [ L A M B D A ( C
0103700 H A T . S T A T E ) 006 006 006 001
0103720
*
0103760 006 006 ( * e j s % :
0104000 " 3 0 - M a r - 8 6 1 4 : 4 3
0104020 " ) 006 001 \r ( 006 002 r e p l
0104040 a c e 006 001 ( C H A T . S T A T
0104060 E T E R M . I D E N T I T Y .
0104100 S T R I N G ) 006 002 o f 006 001 C
0104120 H A T . S T A T E 006 002 w i t h
0104140 006 001 V T C H A T . T E R M . I
0104160 D E N T I T Y . S T R I N G ) \r
0104200 ( 006 002 r e p l a c e 006 001
0104220 ( C H A T . S T A T E T E R
0104240 M . T A B . S T O P S ) 006 002 o
0104260 f 006 001 C H A T . S T A T E \r
0104300 006 002 w i t h 006 001 '
0104320 ( 8 1 6 2 4 3 2 4 0 4
0104340 8 5 6 6 4 7 2 8 0 8 8
0104360 9 6 1 0 4 1 1 2 1 2 0
0104400 1 2 8 1 3 6 ) ) \r ( 006
0104420 002 r e p l a c e 006 001 ( C H A T
0104440 . S T A T E W R A P M O D E )
0104460 006 002 o f 006 001 C H A T . S T A
0104500 T E 006 002 w i t h 006 001 T ) \r
0104520 ( T E R M . R E S E T . D
0104540 I S P L A Y . P A R M S C H A
0104560 T . S T A T E ) \r ( T E
0104600 R M . H O M E C H A T . S T A
0104620 T E ) \r ( 006 002 c r e a t
0104640 e 006 001 V T 1 0 0 . S T A T E ]
0104660 ) \r \r ( 006 004 V T C H A T . S T A
0104700 T U S 006 001 \r [ L A M B D A
0104720 ( C H A T . S T A T E V T 1 0
0104740 0 . S T A T E T Y P E ) 006 006 006
0104760 001
0105000 006 006 ( * ; " E
0105020 d i t e d 1 8 - D e c - 8 6
0105040 1 5 : 1 6 b y a m d " ) 006 001
0105060 \r \r
0105100 006 006 ( * ; ; " R
0105120 e t u r n s V T 1 0 0 s t a
0105140 t u s i n f o " ) 006 001 \r \r
0105160 ( 006 002 w i t h 006 001 C H A T
0105200 . S T A T E C H A T . S T A T
0105220 E ( 006 002 w i t h 006 001 V T 1 0
0105240 0 . S T A T E V T 1 0 0 . S T
0105260 A T E \r
0105300
0105320 ( S E L E C
0105340 T Q T Y P E \r
0105360
*
0105420 ( 5
0105440 006 006 ( * ; " H o s
0105460 t w a n t s d e v i c e s
0105500 t a t u s " ) 006 001 \r
0105520
*
0105560 ( P R I N 1 " 033
0105600 [ 0 n " O U T S T R E A M ) )
0105620 \r
0105640
0105660 ( 6
0105700 006 006
0105720 ( * ; " H o s t w a n t s
0105740 c u r s o r c o o r d s " )
0105760 006 001 \r
0106000
*
0106040 ( B O U T O U T S T R E A M
0106060 ( C H A R C O D E ^ % [ ) ) \r
0106100
*
0106140 ( B O
0106160 U T O U T S T R E A M ( C H
0106200 A R C O D E % [ ) ) \r
0106220
*
0106260 [ B O U T O
0106300 U T S T R E A M ( M K S T R I
0106320 N G ( A D D 1 ( I Q U O T I
0106340 E N T Y P O S \r
0106360
*
0106460 F O
0106500 N T H E I G H T ] \r
0106520
*
0106560 ( B O U T O U T
0106600 S T R E A M ( C H A R C O D E
0106620 ; ) ) \r
0106640
*
0106700 [ B O U T O U T S T R E A
0106720 M ( M K S T R I N G ( A D D
0106740 1 ( I Q U O T I E N T X P O
0106760 S \r
0107000
*
0107100 F O N T W I D T H
0107120 ] \r
0107140
0107160 (
0107200 B O U T O U T S T R E A M (
0107220 C H A R C O D E R ) ) ) \r
0107240
*
0107300 N I L ) \r
0107320
*
0107360 ( F O R C E O U T P U T
0107400 O U T S T R E A M ] ) \r ) \r \r (
0107420 R P A Q ? 006 002 V T C H A T . D
0107440 E B U G G I N G . F L G 006 001 )
0107460 \r \r ( R P A Q ? 006 002 C H A T F
0107500 O N T 006 001 ( F O N T C R E A T
0107520 E ' ( G A C H A 1 2 M R R
0107540 ) ) ) \r \r ( R P A Q ? 006 002 G R
0107560 A P H I C S F O N T 006 001 C H A
0107600 T F O N T ) \r \r ( R P A Q ? 006
0107620 002 V T C H A T . T E R M . I D E
0107640 N T I T Y . S T R I N G 006 001 "
0107660 033 [ ? 1 ; 0 c " ) \r ( D E C L A
0107700 R E % : D O E V A L @ C O M P
0107720 I L E D O N T C O P Y \r \r ( G
0107740 L O B A L V A R S V T C H A T
0107760 . D E B U G G I N G . F L G C
0110000 H A T F O N T G R A P H I C S
0110020 F O N T V T C H A T . T E R M
0110040 . I D E N T I T Y . S T R I N G
0110060 ) \r ) \r \r ( A D D T O V A R 006
0110100 002 C H A T . D R I V E R T Y P E
0110120 S 006 001 ( V T 1 0 0 V T C H A
0110140 T . H A N D L E C H A R A C T E
0110160 R V T C H A T . S T A T E ) )
0110200 \r ( F I L E S L O A D ( S Y S
0110220 L O A D F R O M V A L U E O
0110240 F L I S P U S E R S D I R E C
0110260 T O R I E S ) \r V
0110300 T 1 0 0 K P ) \r ( P U T P R O P
0110320 S V T C H A T C O P Y R I G
0110340 H T ( " s S C H L U M B E R G
0110360 E R T E C H N O L O G Y C O
0110400 R P O R A T I O N " 1 9 8 3
0110420 1 9 8 4 1 9 8 5 1 9 8 6 ) )
0110440 \r ( D E C L A R E % : D O N T
0110460 C O P Y \r ( F I L E M A P
0110500 ( N I L ( 3 8 3 4 3 6 6 2 1
0110520 ( V T C H A T . A D D R E S S
0110540 3 8 4 4 . 5 5 3 7 ) ( V
0110560 T C H A T . A T T R I B U T E S
0110600 5 5 3 9 . 6 5 5 8 ) ( \r
0110620 V T C H A T . D E C L F O N T
0110640 6 5 6 0 . 6 8 9 0 ) ( V T
0110660 C H A T . D O C O M M A N D 6
0110700 8 9 2 . 1 7 9 2 5 ) ( V T
0110720 C H A T . H A N D L E C H A R A
0110740 C T E R 1 7 9 2 7 . 2 2 3
0110760 4 5 ) ( \r V T C H A T . C L E
0111000 A R M O D E S 2 2 3 4 7 .
0111020 2 3 0 1 6 ) ( V T C H A T . R
0111040 E P O R T 2 3 0 1 8 . 2 4
0111060 5 3 2 ) ( V T C H A T . R E S
0111100 E T M O D E 2 4 5 3 4 . 2
0111120 5 8 9 1 ) ( \r V T C H A T . R
0111140 E S T O R E 2 5 8 9 3 . 2
0111160 7 6 3 3 ) ( V T C H A T . R E
0111200 V E R S E . I N D E X 2 7 6 3
0111220 5 . 2 8 9 4 6 ) ( V T C H
0111240 A T . S A V E 2 8 9 4 8 .
0111260 2 9 8 6 8 ) ( \r V T C H A T .
0111300 S E Q U E N C E 2 9 8 7 0 .
0111320 3 2 2 2 0 ) ( V T C H A T .
0111340 S E T M A R G I N S 3 2 2 2 2
0111360 . 3 3 3 6 2 ) ( V T C H A
0111400 T . S E T M O D E 3 3 3 6 4
0111420 . 3 4 7 2 0 ) ( \r V T C H A
0111440 T . S T A T E 3 4 7 2 2 .
0111460 3 5 2 4 9 ) ( V T C H A T . S
0111500 T A T U S 3 5 2 5 1 . 3 6
0111520 6 1 9 ) ) ) ) ) \r S T O P \r
0111536