$ od -c -N 50000 [eris]<Lisp>JCAI>library>vt100kp.dcom!1
0000000 ( F I L E C R E A T E D " 2 4
0000020 - M a y - 8 5 1 6 : 4 1 : 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 > V T 1 0 0 K P . ; 2 ) " 1
0000120 4 - M a y - 8 5 1 8 : 5 1 : 5
0000140 4 " \r r e c o m p i l e d c
0000160 h a n g e s : n o t h i n g
0000200 i n " I N T E R L I S P - D
0000220 1 4 - M a y - 8 5 . . . " d
0000240 a t e d " 1 4 - M a y - 8 5
0000260 1 9 : 0 9 : 0 4 " ) \r ( F I L E
0000300 C R E A T E D " 2 3 - M a y -
0000320 8 5 1 3 : 3 9 : 0 9 " { D S
0000340 K } < L I S P F I L E S > V T 1
0000360 0 0 K P . ; 2 1 6 1 6 0 p r
0000400 e v i o u s d a t e : " 1 3
0000420 - M a y - 8 5 1 6 : 5 1 : 4 0
0000440 " \r { D S K } < L I S P F I L
0000460 E S > V T 1 0 0 K P . ; 1 ) \r B
0000500 O T T O M H A L F R E G I O N
0000520 D 1 \r ( L ( 0 R E G I O N )
0000540 ) \0 " \0 \0 \0 001 h d @ 001 @ 002 002 001
0000560 < 002 277 @ 002 002 002 001 342 < 004 277 @ 002 001 =
0000600 004 = \b h 032 032 032 032 020 \0 N I L \r N I
0000620 L \r ( ) \r B O X K E Y P A D D
0000640 1 \r ( P 3 Y P 1 T X
0000660 P 0 T Y I 1 G R I D S
0000700 P E C I 0 W I N D O W )
0000720 \0 210 004 \0 \0 002 021 001 l 005 l 002 021 002 003
0000740 K d J 363 262 _ 023 k A \n \0 \0 X j H l
0000760 003 A \n \0 \0 H k g \0 \0 @ \r \a \0 \0 k
0001000 A \n \0 \0 Y d k A \n \0 \0 I l 370 k g
0001020 \0 \0 @ \r \a \0 \0 l 002 A \n \0 \0 Y d j
0001040 I l 370 k g \0 \0 @ \r \a \0 \0 l 003 A \n
0001060 \0 \0 Y d j I l 370 k g \0 \0 @ \r \a \0
0001100 \0 h 020 A \n \0 \0 270 j H l 250 H k g \0
0001120 \0 @ \r \a \0 \0 277 K k 324 [ 260 206 \0 ( 1
0001140 7 7 Q D R A W L I N E 1 6 0
0001160 Q B O T T O M O F G R I D C O
0001200 O R D 1 5 2 Q D R A W L I N
0001220 E 1 3 3 Q L E F T O F G R I
0001240 D C O O R D 1 2 5 Q D R A W
0001260 L I N E 1 0 6 Q L E F T O F
0001300 G R I D C O O R D 1 0 0 Q D
0001320 R A W L I N E 6 4 Q B O T T
0001340 O M O F G R I D C O O R D 5 5
0001360 Q L E F T O F G R I D C O O R
0001400 D 5 0 Q D R A W L I N E 3
0001420 6 Q L E F T O F G R I D C O O
0001440 R D 2 5 Q B O T T O M O F G
0001460 R I D C O O R D ) \r ( 1 7 2 Q
0001500 R E P L A C E 1 4 5 Q R E P
0001520 L A C E 1 2 0 Q R E P L A C
0001540 E 7 3 Q R E P L A C E 4 3
0001560 Q R E P L A C E ) \r ( ) \r G E
0001600 T E D T K E Y P A D D 1 \r ( P
0001620 5 L A B E L P 4 B R
0001640 P 3 T M P 1 P 2 T M P
0001660 P 1 F O N T P 0 G R
0001700 I D S P E C I 0 W I N D O
0001720 W F 6 E D T K P H F 7
0001740 E D T K P H I F 1 0 Q K
0001760 P A R R O W S B M ) 001 360 006 003 \0
0002000 001 k d l ( d h 032 032 032 032 o \0 \0 \0 \t
0002020 \0 \0 021 2 004 @ \t \0 \0 I @ \n \0 \0 V 260
0002040 036 d 001 021 001 005 M 001 M 002 001 001 M 002 001 002
0002060 H \v \0 \0 \t \0 \0 @ \v \0 \0 023 002 003 265 343
0002100 o \0 \0 \0 j d H \v \0 \0 k j H \v \0 \0
0002120 \n \0 \0 Z \t \0 \0 @ \v \0 \0 o \0 \0 \0 l
0002140 003 j H \v \0 \0 l 003 k H \v \0 \0 \n \0 \0
0002160 [ \t \0 \0 @ \v \0 \0 o \0 \0 \0 k l 004 H
0002200 \v \0 \0 @ \v \0 \0 @ \t \0 \0 311 \0 i \n \0
0002220 \0 W 016 260 [ d 001 021 001 005 M 002 001 001 M 002
0002240 001 002 H \v \0 \0 \t \0 \0 274 @ h d @ h d
0002260 d d g \0 \0 g \0 \0 h L 001 k 330 L 002 002
0002300 002 001 I 006 \0 \0 310 024 331 342 L 002 001 330 L 002
0002320 002 001 l 002 331 I 006 \0 \0 310 024 h 032 032 032 032
0002340 \r \f \0 \0 277 M 001 L @ \v \0 \0 023 002 003 265
0002360 246 J \t \0 \0 \ @ h d @ h d d d g \0
0002400 \0 g \0 \0 h L 001 k 330 L 002 001 L 002 002 002
0002420 001 I 006 \0 \0 310 024 331 342 330 L 002 002 001 l 002
0002440 331 I 006 \0 \0 310 024 h 032 032 032 032 \r \f \0 \0
0002460 o \0 \0 \0 L @ \v \0 \0 K \t \0 \0 \ @ h
0002500 d @ h d d d g \0 \0 g \0 \0 h L 001 k
0002520 330 L 002 001 L 002 002 002 001 I 006 \0 \0 310 024 331
0002540 342 330 L 002 002 001 l 002 331 I 006 \0 \0 310 024 h
0002560 032 032 032 032 \r \f \0 \0 o \0 \0 \0 L @ \v \0
0002600 \0 j l 004 H \v \0 \0 \ @ h d @ h d d
0002620 d g \0 \0 g \0 \0 h L 001 l 002 330 L 002 001
0002640 l 002 330 L 002 002 001 l 004 331 L 002 002 002 001 l
0002660 004 331 h 032 032 032 032 \r \f \0 \0 o \0 \0 \0 L
0002700 @ \v \0 \0 @ \t \0 \0 311 \0 \t \0 \0 W 020 j
0002720 d @ j H \n \0 \0 l 005 H \n \0 \0 h d g
0002740 \0 \0 g \0 \0 \r \n \0 \0 @ H \n \0 \0 h 020
0002760 \0 ( 7 5 4 Q B O X K E Y P A D
0003000 7 4 7 Q B K B I T B L T 7
0003020 3 3 Q B O T T O M O F G R I D
0003040 C O O R D 7 2 5 Q L E F T O
0003060 F G R I D C O O R D 7 1 3 Q
0003100 I N V E R T P R I N T 7 0 6 Q
0003120 \ I N S U R E W I N D O W 7
0003140 0 2 Q C E N T E R P R I N T I
0003160 N R E G I O N 6 7 1 Q B K B
0003200 I T B L T 6 0 6 Q G R I D B
0003220 O X R E G I O N 5 7 7 Q C E
0003240 N T E R P R I N T I N R E G I O
0003260 N 5 6 6 Q B K B I T B L T
0003300 4 7 3 Q B O T T O M H A L F R
0003320 E G I O N 4 6 7 Q C E N T E
0003340 R P R I N T I N R E G I O N 4
0003360 5 6 Q B K B I T B L T 3 6 3
0003400 Q B O T T O M H A L F R E G I
0003420 O N 3 5 2 Q C E N T E R P R
0003440 I N T I N R E G I O N 3 4 2 Q
0003460 B K B I T B L T 2 4 7 Q B
0003500 O T T O M H A L F R E G I O N
0003520 2 4 4 Q G R I D B O X R E G I
0003540 O N 2 1 7 Q I N V E R T P R
0003560 I N T 2 1 1 Q \ I N S U R E
0003600 W I N D O W 2 0 5 Q C E N T
0003620 E R P R I N T I N R E G I O N
0003640 2 0 1 Q G R I D B O X R E G I
0003660 O N 1 6 6 Q C E N T E R P R
0003700 I N T I N R E G I O N 1 6 2 Q
0003720 T O P H A L F R E G I O N 1
0003740 5 6 Q U N I O N R E G I O N S
0003760 1 5 3 Q G R I D B O X R E G
0004000 I O N 1 4 4 Q G R I D B O X
0004020 R E G I O N 1 3 1 Q C E N T
0004040 E R P R I N T I N R E G I O N
0004060 1 2 5 Q T O P H A L F R E G I
0004100 O N 1 2 1 Q U N I O N R E G
0004120 I O N S 1 1 6 Q G R I D B O
0004140 X R E G I O N 1 1 0 Q G R I
0004160 D B O X R E G I O N 7 1 Q C
0004200 E N T E R P R I N T I N R E G I
0004220 O N 6 5 Q T O P H A L F R E
0004240 G I O N 6 2 Q G R I D B O X
0004260 R E G I O N 3 4 Q D S P F O
0004300 N T 2 7 Q C L E A R W 2 0
0004320 Q F O N T C R E A T E ) \r ( 7
0004340 4 3 Q R E P L A C E 7 4 0 Q
0004360 I N P U T 6 2 5 Q R E P L
0004400 A C E 6 2 2 Q I N V E R T
0004420 5 5 3 Q F O N T D E S C R I P
0004440 T O R 5 3 3 Q F O N T D E S
0004460 C R I P T O R 5 1 2 Q R E P
0004500 L A C E 5 0 7 Q I N V E R T
0004520 4 4 3 Q F O N T D E S C R I
0004540 P T O R 4 2 3 Q F O N T D E
0004560 S C R I P T O R 4 0 2 Q R E
0004600 P L A C E 3 7 7 Q I N V E R
0004620 T 3 2 7 Q F O N T D E S C R
0004640 I P T O R 3 0 4 Q F O N T D
0004660 E S C R I P T O R 2 6 6 Q R
0004700 E P L A C E 2 6 3 Q I N V E
0004720 R T ) \r ( 6 7 5 Q " G o l d
0004740 " 5 7 2 Q " S u b s " 4 6
0004760 2 Q " O p e n L i n e " 1
0005000 7 2 Q " H e l p " 1 3 5 Q
0005020 " E n t e r " 1 0 2 Q " L i
0005040 n e " 1 5 Q ( H E L V E T I
0005060 C A 1 0 Q ) ) \r G E T K E Y P
0005100 A D D 1 \r ( P 1 2 Q I P
0005120 1 0 Q I P 6 J P 4
0005140 G R I D S P E C P 3 K P
0005160 W I N D O W P 2 L F O N T
0005200 P 1 B F O N T P 0 P
0005220 O S I 0 W I N D O W F
0005240 1 3 Q K P A R R O W S B M )
0005260 001 c \v 001 \0 001 o \0 \0 \0 \t \0 \0 o \0 \0
0005300 \0 \t \0 \0 @ 265 / l 240 \t \0 \0 l 360 i \n
0005320 \0 \0 \n \0 \0 021 001 \0 H 001 H 002 l 240 \t \0
0005340 \0 l 360 i \n \0 \0 h 032 032 032 032 o \0 \0 \0
0005360 \n \0 \0 022 021 023 004 k d l ( d h 032 032 032
0005400 032 \ l 004 l 006 j K \r 005 \0 \0 K \t \0 \0
0005420 I K \n \0 \0 l 002 j 021 002 006 N M 363 263 8
0005440 l 003 k 021 002 \b O 020 O 016 363 263 $ N l 003
0005460 332 O 020 330 \t \0 \0 O 020 k 331 N k 330 L \v
0005500 \0 \0 K \v \0 \0 277 O 020 k 324 _ 020 260 333 023
0005520 N k 324 ^ 260 310 023 o \0 \0 \0 j d L \v \0
0005540 \0 k j L \v \0 \0 \n \0 \0 K \v \0 \0 o \0
0005560 \0 \0 l 003 d L \v \0 \0 K \v \0 \0 o \0 \0
0005600 \0 l 002 j L \v \0 \0 K \v \0 \0 o \0 \0 \0
0005620 l 003 l 002 L \v \0 \0 K \v \0 \0 J K \n \0
0005640 \0 l 003 j 021 002 \n O 024 O 022 363 263 " o \0
0005660 \0 \0 O 024 k 330 \n \0 \0 O 024 l 004 L \v \0
0005700 \0 K \v \0 \0 277 O 024 k 324 _ 024 260 335 023 o
0005720 \0 \0 \0 l 003 j L \v \0 \0 l 003 k L \v \0
0005740 \0 \n \0 \0 K \v \0 \0 W 026 j d K j L \n
0005760 \0 \0 l 005 L \n \0 \0 h d g \0 \0 g \0 \0
0006000 \r \n \0 \0 @ 252 K g \0 \0 g \0 \0 \v \0 \0
0006020 277 K L \n \0 \0 h 020 \0 ( 5 3 7 Q B
0006040 O X K E Y P A D 5 3 1 Q P U
0006060 T W I N D O W P R O P 5 1 5 Q
0006100 B K B I T B L T 5 0 1 Q B
0006120 O T T O M O F G R I D C O O R D
0006140 4 7 3 Q L E F T O F G R I D
0006160 C O O R D 4 6 1 Q C E N T E
0006200 R P R I N T I N R E G I O N 4
0006220 5 5 Q U N I O N R E G I O N S
0006240 4 5 2 Q G R I D B O X R E G
0006260 I O N 4 4 3 Q G R I D B O X
0006300 R E G I O N 4 1 6 Q C E N T
0006320 E R P R I N T I N R E G I O N
0006340 4 1 2 Q G R I D B O X R E G I
0006360 O N 4 0 2 Q C O N C A T 3
0006400 5 2 Q D S P F O N T 3 4 5 Q
0006420 C E N T E R P R I N T I N R E
0006440 G I O N 3 4 1 Q G R I D B O
0006460 X R E G I O N 3 2 5 Q C E N
0006500 T E R P R I N T I N R E G I O N
0006520 3 2 1 Q G R I D B O X R E G
0006540 I O N 3 0 6 Q C E N T E R P
0006560 R I N T I N R E G I O N 3 0 2
0006600 Q G R I D B O X R E G I O N
0006620 2 6 7 Q C E N T E R P R I N T
0006640 I N R E G I O N 2 6 3 Q U N
0006660 I O N R E G I O N S 2 6 0 Q
0006700 G R I D B O X R E G I O N 2 5
0006720 2 Q G R I D B O X R E G I O N
0006740 2 1 7 Q C E N T E R P R I N
0006760 T I N R E G I O N 2 1 3 Q G
0007000 R I D B O X R E G I O N 2 0 0
0007020 Q M K S T R I N G 1 3 6 Q
0007040 D S P F O N T 1 3 1 Q C L E
0007060 A R W 1 2 5 Q G R I D 7 4
0007100 Q C R E A T E W 6 0 Q H E
0007120 I G H T I F W I N D O W 5 2 Q
0007140 W I D T H I F W I N D O W 3
0007160 6 Q G E T B O X P O S I T I O
0007200 N 3 3 Q H E I G H T I F W I
0007220 N D O W 2 5 Q W I D T H I F
0007240 W I N D O W 1 5 Q F O N T C
0007260 R E A T E 6 F O N T C R E A
0007300 T E ) \r ( 5 2 6 Q V T 1 0 0 K
0007320 P F N 5 2 3 Q B U T T O N E
0007340 V E N T F N 5 1 1 Q R E P L
0007360 A C E 5 0 6 Q I N P U T ) \r
0007400 ( 4 3 4 Q " E N T E R " 3
0007420 7 3 Q " P F " 3 3 1 Q " ,
0007440 " 3 1 2 Q " . " 2 7 3 Q
0007460 " - - " 2 4 4 Q " 0 " 7 1
0007500 Q " V T 1 0 0 K e y p a d "
0007520 1 2 Q ( H E L V E T I C A
0007540 1 2 Q B R R ) 3 ( H E L V
0007560 E T I C A 2 2 Q B R R ) ) \r
0007600 G R I D B O X R E G I O N D 1
0007620 \r ( I 2 G R I D S P E C I
0007640 1 G R I D Y I 0 G R I
0007660 D X ) \0 032 \0 \0 \0 003 @ B \n \0 \0 A
0007700 B \n \0 \0 B 002 002 001 B 002 002 002 001 h 032 032
0007720 032 032 020 \0 ( 1 1 Q B O T T O M O
0007740 F G R I D C O O R D 4 L E F
0007760 T O F G R I D C O O R D ) \r N I
0010000 L \r ( ) \r I N V E R T P R I N T
0010020 D 1 \r ( I 1 F L G I 0
0010040 D S P ) \0 023 \0 \0 \0 002 A 227 g \0
0010060 \0 @ \n \0 \0 020 g \0 \0 @ \n \0 \0 020 \0 (
0010100 2 0 Q D S P S O U R C E T Y P
0010120 E 1 0 Q D S P S O U R C E T
0010140 Y P E ) \r ( 1 4 Q I N P U T
0010160 4 I N V E R T ) \r ( ) \r K P C
0010200 H A R F R O M X Y D 1 \r ( P
0010220 0 G R I D S P E C I 1 Y
0010240 I 0 X F 1 K P C H A
0010260 R A R R A Y ) \0 037 001 001 \0 002 k d
0010300 l ( d h 032 032 032 032 021 001 \0 Q @ H \n \0
0010320 \0 A H \n \0 \0 l 004 332 330 ( 020 \0 ( 2 7
0010340 Q G R I D Y C O O R D 2 2 Q
0010360 G R I D X C O O R D ) \r N I L
0010400 \r ( ) \r T O P H A L F R E G I O
0010420 N D 1 \r ( L ( 0 R E G I O
0010440 N ) ) \0 ) \0 \0 \0 001 h d @ 001 @ 002
0010460 002 001 < 002 277 @ 002 002 002 001 342 < 004 277 @ 002
0010500 001 @ 002 002 002 001 342 330 = 004 = \b h 032 032 032
0010520 032 020 \0 N I L \r N I L \r ( ) \r V T
0010540 1 0 0 K P C O D E D 1 \r ( L
0010560 ( 2 V A L U E 1 V T 1 0 0
0010600 . S T A T E 0 C H A T . S T
0010620 A T E ) ) 002 032 \0 \0 \0 003 A 006 \0 \0
0010640 312 002 \0 j 360 h 360 A 006 \0 \0 312 002 020 j 360
0010660 h 360 B g \0 \0 360 263 025 B g \0 \0 360 254 B
0010700 g \0 \0 360 246 B g \0 \0 360 262 g d 262 3 B
0010720 d g \0 \0 360 224 o \0 \0 \0 020 g \0 \0 360 224
0010740 o \0 \0 \0 020 B d g \0 \0 360 224 o \0 \0 \0
0010760 020 g \0 \0 360 224 o \0 \0 \0 020 o \0 \0 \0 020
0011000 B d g \0 \0 360 224 o \0 \0 \0 020 g \0 \0 360
0011020 224 o \0 \0 \0 020 B d g \0 \0 360 224 o \0 \0
0011040 \0 020 g \0 \0 360 224 o \0 \0 \0 020 o \0 \0 \0
0011060 020 = 002 242 261 \0 302 B d j 360 224 o \0 \0 \0
0011100 020 k 360 224 o \0 \0 \0 020 B d l 002 360 224 o
0011120 \0 \0 \0 020 l 003 360 224 o \0 \0 \0 020 B d l
0011140 004 360 224 o \0 \0 \0 020 l 005 360 224 o \0 \0 \0
0011160 020 B d l 006 360 224 o \0 \0 \0 020 l \a 360 224
0011200 o \0 \0 \0 020 B d l \b 360 224 o \0 \0 \0 020
0011220 l \t 360 224 o \0 \0 \0 020 B d g \0 \0 360 224
0011240 o \0 \0 \0 020 g \0 \0 360 224 o \0 \0 \0 020 B
0011260 d g \0 \0 360 224 o \0 \0 \0 020 g \0 \0 360 224
0011300 o \0 \0 \0 020 B d g \0 \0 360 224 o \0 \0 \0
0011320 020 g \0 \0 360 224 o \0 \0 \0 020 B d g \0 \0
0011340 360 224 o \0 \0 \0 020 g \0 \0 360 224 o \0 \0 \0
0011360 020 o \0 \0 \0 020 B d j 360 224 o \0 \0 \0 020
0011400 k 360 224 o \0 \0 \0 020 B d l 002 360 224 o \0
0011420 \0 \0 020 l 003 360 224 o \0 \0 \0 020 B d l 004
0011440 360 224 o \0 \0 \0 020 l 005 360 224 o \0 \0 \0 020
0011460 B d l 006 360 224 o \0 \0 \0 020 l \a 360 224 o
0011500 \0 \0 \0 020 B d l \b 360 224 o \0 \0 \0 020 l
0011520 \t 360 224 o \0 \0 \0 020 B d g \0 \0 360 224 o
0011540 \0 \0 \0 020 g \0 \0 360 224 o \0 \0 \0 020 B d
0011560 g \0 \0 360 224 o \0 \0 \0 020 g \0 \0 360 224 o
0011600 \0 \0 \0 020 B d g \0 \0 360 224 o \0 \0 \0 020
0011620 g \0 \0 360 224 o \0 \0 \0 020 B d g \0 \0 360
0011640 224 o \0 \0 \0 020 g \0 \0 360 224 o \0 \0 \0 020
0011660 o \0 \0 \0 020 \0 N I L \r ( 1 0 1 4 Q
0011700 P F 4 1 0 0 2 Q P F 3 7
0011720 6 6 Q P F 2 7 5 4 Q P F 1
0011740 7 4 0 Q E N T E R 7 2 6 Q
0011760 , 7 1 2 Q % . 7 0 0 Q
0012000 - 5 1 5 Q P F 4 5 0 3 Q
0012020 P F 3 4 6 7 Q P F 2 4 5 5
0012040 Q P F 1 4 4 1 Q E N T E R
0012060 4 2 7 Q % . 4 1 3 Q ,
0012100 4 0 1 Q - 2 1 0 Q L E F T
0012120 1 7 6 Q R I G H T 1 6 2 Q
0012140 D O W N 1 5 0 Q U P 1 2
0012160 7 Q L E F T 1 1 5 Q R I G
0012200 H T 1 0 1 Q D O W N 6 7 Q
0012220 U P 5 4 Q R I G H T 4 6
0012240 Q L E F T 4 0 Q D O W N
0012260 3 1 Q U P 1 6 Q V T 1 0 0
0012300 . S T A T E 3 V T 1 0 0 . S
0012320 T A T E ) \r ( 1 0 2 7 Q " "
0012340 1 0 2 2 Q " 033 O S " 1 0 1
0012360 0 Q " 033 O R " 7 7 4 Q " 033
0012400 O Q " 7 6 2 Q " 033 O P " 7
0012420 4 6 Q " \r " 7 3 4 Q " , "
0012440 7 2 0 Q " . " 7 0 6 Q "
0012460 - " 6 7 2 Q " 9 " 6 6 1 Q
0012500 " 8 " 6 4 6 Q " 7 " 6 3
0012520 5 Q " 6 " 6 2 2 Q " 5 "
0012540 6 1 1 Q " 4 " 5 7 6 Q " 3
0012560 " 5 6 5 Q " 2 " 5 5 2 Q
0012600 " 1 " 5 4 2 Q " 0 " 5 3 0
0012620 Q " " 5 2 3 Q " 033 O S "
0012640 5 1 1 Q " 033 O R " 4 7 5 Q
0012660 " 033 O Q " 4 6 3 Q " 033 O P "
0012700 4 4 7 Q " 033 O M " 4 3 5 Q
0012720 " 033 O n " 4 2 1 Q " 033 O l
0012740 " 4 0 7 Q " 033 O m " 3 7 3
0012760 Q " 033 O y " 3 6 2 Q " 033 O
0013000 x " 3 4 7 Q " 033 O w " 3 3
0013020 6 Q " 033 O v " 3 2 3 Q " 033
0013040 O u " 3 1 2 Q " 033 O t " 2
0013060 7 7 Q " 033 O s " 2 6 6 Q "
0013100 033 O r " 2 5 3 Q " 033 O q "
0013120 2 4 3 Q " 033 O p " 2 2 3 Q
0013140 " " 2 1 6 Q " 033 [ D " 2 0
0013160 4 Q " 033 [ C " 1 7 0 Q " 033
0013200 [ B " 1 5 6 Q " 033 [ A " 1
0013220 4 2 Q " " 1 3 5 Q " 033 O D
0013240 " 1 2 3 Q " 033 O C " 1 0 7
0013260 Q " 033 O B " 7 5 Q " 033 O A
0013300 " ) \r V T 1 0 0 K P F N D 1 \r
0013320 ( P 1 0 Q G Y P 7 G X
0013340 P 6 V A L U E P 5 R
0013360 E G I O N P 4 V T 1 0 0 .
0013400 S T A T E P 3 C H A T . S
0013420 T A T E P 2 G R I D S P E
0013440 C P 1 Y P 0 X I
0013460 0 W I N D O W ) 001 I \t \0 \0 001
0013500 @ \t \0 \0 @ \t \0 \0 j d l ( d h 032 032
0013520 032 032 ` \0 \0 \t \0 \0 g \0 \0 \n \0 \0 021 T
0013540 \b \b \0 \0 277 ` \0 \0 l \a 345 d j 360 265 \v
0013560 d 005 003 264 006 d \t \0 \0 < \0 277 264 004 h 020
0013600 @ \n \0 \0 H I \v \0 \0 263 = ` \0 \0 037 d
0013620 o \0 \0 \0 024 004 277 d i 024 \f 277 d g \0 \0
0013640 024 277 d g \0 \0 024 034 277 j d n 177 377 d
0013660 h 032 032 032 032 = 002 d = 004 024 \n 277 < 002 277
0013700 277 \t \0 \0 h 020 K 004 ` \0 \0 360 264 003 202 261
0013720 \0 270 K 006 \0 \0 311 " \ 004 ` \0 \0 360 264 003
0013740 202 261 \0 246 H J \n \0 \0 _ 016 I J \n \0 \0
0013760 _ 020 O 016 d j 360 226 277 d j 360 253 O 016 k
0014000 360 262 031 O 020 j 360 262 023 j d J \v \0 \0 k
0014020 j J \v \0 \0 \n \0 \0 260 6 O 016 d l 003 360
0014040 227 277 O 020 j 360 254 O 016 l 003 360 262 032 O 020
0014060 k 360 262 024 l 003 j J \v \0 \0 l 003 k J \v
0014100 \0 \0 \n \0 \0 207 O 016 O 020 J \v \0 \0 ] @
0014120 h d @ h d d d g \0 \0 g \0 \0 h M \r
0014140 \f \0 \0 H I \n \0 \0 ^ @ h d @ h d d
0014160 d g \0 \0 g \0 \0 h M \r \f \0 \0 K L N
0014200 \v \0 \0 \t \0 \0 h 020 \0 ( 5 0 5 Q B
0014220 K S Y S B U F 5 0 2 Q V T 1
0014240 0 0 K P C O D E 4 7 4 Q B K
0014260 B I T B L T 4 4 7 Q K P C H
0014300 A R F R O M X Y 4 4 2 Q B K
0014320 B I T B L T 4 1 5 Q G R I D
0014340 B O X R E G I O N 4 0 4 Q U
0014360 N I O N R E G I O N S 4 0 1 Q
0014400 G R I D B O X R E G I O N 3
0014420 7 2 Q G R I D B O X R E G I O
0014440 N 3 2 7 Q U N I O N R E G I
0014460 O N S 3 2 4 Q G R I D B O X
0014500 R E G I O N 3 1 6 Q G R I D
0014520 B O X R E G I O N 2 5 7 Q G
0014540 R I D Y C O O R D 2 5 0 Q G
0014560 R I D X C O O R D 2 0 3 Q M
0014600 E N U 1 1 0 Q I N S I D E P
0014620 1 0 3 Q D S P C L I P P I N
0014640 G R E G I O N 7 0 Q \ F Z E
0014660 R O P 4 3 Q G E T M O U S E
0014700 S T A T E 3 5 Q G E T W I N
0014720 D O W U S E R P R O P 2 7 Q
0014740 P R O C E S S . W I N D O W 7
0014760 L A S T M O U S E Y 3 L A
0015000 S T M O U S E X ) \r ( 4 6 6 Q
0015020 R E P L A C E 4 6 3 Q I N V
0015040 E R T 4 3 4 Q R E P L A C E
0015060 4 3 1 Q I N V E R T 2 3 4
0015100 Q 004 003 V T 1 0 0 . S T A T E T
0015120 Y P E # 2 2 5 Q C H A T . S
0015140 T A T E 2 1 2 Q 004 003 C H A T
0015160 . S T A T E T Y P E # 1 4 6 Q
0015200 D E F A U L T M E N U H E L D
0015220 F N 1 3 7 Q C L R P R O M P
0015240 T 1 1 5 Q 004 003 M E N U T Y P
0015260 E # 4 7 Q L A S T M O U S E
0015300 B U T T O N S 3 2 Q C H A T
0015320 S T A T E 2 4 Q \ T T Y . P
0015340 R O C E S S ) \r ( 1 2 3 Q (
0015360 ( " E D T K e y p a d " ( G
0015400 E T E D T K E Y P A D W I N D
0015420 O W ) " P u t u p a n E
0015440 D T K e y p a d " ) ( " P l
0015460 a i n K e y p a d " ( G E T
0015500 K E Y P A D W I N D O W ) "
0015520 P u t u p a P l a i n k
0015540 e y p a d " ) ) ) \r V T C H A T
0015560 . K P A P P L M O D E D 1 \r (
0015600 L ( 2 F L G 1 V T 1 0 0
0015620 . S T A T E 0 C H A T . S T
0015640 A T E ) ) \0 034 \0 \0 \0 003 A 006 \0 \0
0015660 B 221 k 200 j = 002 = 002 317 002 \0 277 d < 002
0015700 277 277 j 360 h 360 020 \0 N I L \r ( 3 V
0015720 T 1 0 0 . S T A T E ) \r ( ) \r (
0015740 P R E T T Y C O M P R I N T V
0015760 T 1 0 0 K P C O M S ) \r ( R P A
0016000 Q Q V T 1 0 0 K P C O M S (
0016020 ( F N S B O T T O M H A L F R
0016040 E G I O N B O X K E Y P A D
0016060 G E T E D T K E Y P A D G E T
0016100 K E Y P A D G R I D B O X R E
0016120 G I O N I N V E R T P R I N T
0016140 \r K P C H A R F R O M X Y T
0016160 O P H A L F R E G I O N V T 1
0016200 0 0 K P C O D E V T 1 0 0 K P
0016220 F N V T C H A T . K P A P P L
0016240 M O D E ) ( B I T M A P S K
0016260 P A R R O W S B M ) ( A R R A
0016300 Y \r K P C H A R A R R A Y )
0016320 ( V A R S E D T K P H E D T
0016340 K P H I ) ( A D D V A R S (
0016360 C H A T M E N U I T E M S ( "
0016400 V T 1 0 0 K e y p a d " G E
0016420 T K E Y P A D \r " B r i n g s
0016440 u p a V T 1 0 0 k e y p
0016460 a d " ) ) ) ) ) \r ( R P A Q K
0016500 P A R R O W S B M ( R E A D B
0016520 I T M A P ) ) \r ( 1 6 0 4 0
0016540 " @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0016560 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0016600 @ @ @ @ @ @ @ @ @ " " @ @ @ @
0016620 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0016660 @ @ @ @ " \r " @ @ @ @ @ @ @ @
0016700 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0016740 " " @ @ @ @ @ @ @ @ @ @ @ @ @
0016760 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017000 @ @ @ @ @ @ @ @ @ @ @ " \r " @
0017020 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0017060 @ @ @ @ @ @ @ " " @ @ @ @ @ @
0017100 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0017140 @ @ " \r " @ @ @ @ @ @ @ @ @ @
0017160 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017200 @ @ @ @ @ @ @ @ @ @ @ @ @ @ "
0017220 " @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017240 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017260 @ @ @ @ @ @ @ @ @ " \r " @ @ @
0017300 @ A @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017320 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017340 @ @ @ @ @ " " @ @ @ @ C H @ @
0017360 @ @ @ @ @ @ C H @ @ @ @ @ @ @ @
0017400 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017420 " \r " @ @ @ @ G L @ @ @ @ @ @
0017440 @ @ C H @ @ @ @ @ @ @ @ @ @ @ @
0017460 @ @ @ @ @ @ @ @ @ @ @ @ " " @
0017500 @ @ @ O N @ @ @ @ @ @ @ @ C H @
0017520 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017540 @ @ @ @ @ @ @ " \r " @ @ @ A O
0017560 O @ @ @ @ @ @ @ @ C H @ @ @ @ @
0017600 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0017620 @ @ @ " " @ @ @ @ C H @ @ @ @
0017640 @ @ @ @ C H @ @ @ @ @ @ @ @ @ @
0017660 @ @ @ @ @ @ @ @ @ @ @ @ @ @ "
0017700 \r " @ @ @ @ C H @ @ @ @ @ @ @ @
0017720 C H @ @ @ @ @ @ @ B @ @ @ @ @ @
0017740 @ @ @ @ @ @ H @ @ @ " " @ @ @
0017760 @ C H @ @ @ @ @ @ @ @ C H @ @ @
0020000 @ @ @ @ F @ @ @ @ @ @ @ @ @ @ @
0020020 @ L @ @ @ " \r " @ @ @ @ C H @
0020040 @ @ @ @ @ @ @ C H @ @ @ @ @ @ @
0020060 N @ @ @ @ @ @ @ @ @ @ @ @ N @ @
0020100 @ " " @ @ @ @ C H @ @ @ @ @ @
0020120 @ @ C H @ @ @ @ @ @ A O O O O H
0020140 @ @ @ @ C O O O O @ @ @ " \r "
0020160 @ @ @ @ C H @ @ @ @ @ @ @ @ C H
0020200 @ @ @ @ @ @ C O O O O H @ @ @ @
0020220 C O O O O H @ @ " " @ @ @ @ C
0020240 H @ @ @ @ @ @ @ @ C H @ @ @ @ @
0020260 @ A O O O O H @ @ @ @ C O O O O
0020300 @ @ @ " \r " @ @ @ @ C H @ @ @
0020320 @ @ @ @ @ C H @ @ @ @ @ @ @ N @
0020340 @ @ @ @ @ @ @ @ @ @ @ N @ @ @ "
0020360 " @ @ @ @ C H @ @ @ @ @ @ @ @
0020400 C H @ @ @ @ @ @ @ F @ @ @ @ @ @
0020420 @ @ @ @ @ @ L @ @ @ " \r " @ @
0020440 @ @ C H @ @ @ @ @ @ @ A O O @ @
0020460 @ @ @ @ @ B @ @ @ @ @ @ @ @ @ @
0020500 @ @ H @ @ @ " " @ @ @ @ C H @
0020520 @ @ @ @ @ @ @ O N @ @ @ @ @ @ @
0020540 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0020560 @ " \r " @ @ @ @ C H @ @ @ @ @
0020600 @ @ @ G L @ @ @ @ @ @ @ @ @ @ @
0020620 @ @ @ @ @ @ @ @ @ @ @ @ @ " "
0020640 @ @ @ @ C H @ @ @ @ @ @ @ @ C H
0020660 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0020700 @ @ @ @ @ @ @ @ " \r " @ @ @ @
0020720 @ @ @ @ @ @ @ @ @ @ A @ @ @ @ @
0020740 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0020760 @ @ @ @ " " @ @ @ @ @ @ @ @ @
0021000 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0021020 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ "
0021040 \r " @ @ @ @ @ @ @ @ @ @ @ @ @
0021060 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0021100 @ @ @ @ @ @ @ @ @ @ @ " " @ @
0021120 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0021160 @ @ @ @ @ @ " \r " @ @ @ @ @ @
0021200 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0021240 @ @ " " @ @ @ @ @ @ @ @ @ @ @
0021260 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0021300 @ @ @ @ @ @ @ @ @ @ @ @ @ " \r
0021320 " @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0021340 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0021360 @ @ @ @ @ @ @ @ @ " " @ @ @ @
0021400 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0021440 @ @ @ @ " \r " @ @ @ @ @ @ @ @
0021460 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0021520 " " @ @ @ @ @ @ @ @ @ @ @ @ @
0021540 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0021560 @ @ @ @ @ @ @ @ @ @ @ " \r " @
0021600 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0021640 @ @ @ @ @ @ @ " " @ @ @ @ @ @
0021660 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0021720 @ @ " \r " @ @ @ @ @ @ @ @ @ @
0021740 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0021760 @ @ @ @ @ @ @ @ @ @ @ @ @ @ "
0022000 " @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0022020 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
0022040 @ @ @ @ @ @ @ @ @ " ) \r ( R P A
0022060 Q K P C H A R A R R A Y ( R
0022100 E A D A R R A Y 2 4 ( Q U O
0022120 T E P O I N T E R ) 0 ) ) \r
0022140 ( 0 0 % . E N T E R 1
0022160 2 3 E N T E R 4 5 6
0022200 , 7 8 9 - P F 1 P F
0022220 2 P F 3 P F 4 U P D O W
0022240 N L E F T R I G H T N I L
0022260 ) \r ( R P A Q Q E D T K P H
0022300 ( ( " S e l e c t " ( 2 .
0022320 0 ) ) ( " W o r d " ( 0 .
0022340 1 ) ) ( " E o l " ( 1 .
0022360 1 ) ) ( " C h a r " ( 2
0022400 . 1 ) ) ( " A d v a n c e "
0022420 ( 0 . 2 ) \r ) ( " B a c
0022440 k u p " ( 1 . 2 ) ) ( "
0022460 C u t " ( 2 . 2 ) ) ( "
0022500 D e l C " ( 3 . 2 ) )
0022520 ( " P a g e " ( 0 . 3 ) )
0022540 ( " S e c t " ( 1 . 3 )
0022560 ) ( " A p p e n d " ( 2 \r
0022600 . 3 ) ) ( " D e l W " (
0022620 3 . 3 ) ) ( " F n d n x t
0022640 " ( 2 . 4 ) ) ( " D e l
0022660 L " ( 3 . 4 ) ) ) ) \r (
0022700 R P A Q Q E D T K P H I ( (
0022720 " R e s e t " ( 2 . 0 ) )
0022740 ( " C a s e " ( 0 . 1 )
0022760 ) ( " D e l E o l " ( 1
0023000 . 1 ) ) ( " S p e c i n s "
0023020 ( 2 . 1 ) ) ( " B o t t
0023040 o m " ( \r 0 . 2 ) ) ( "
0023060 T o p " ( 1 . 2 ) ) ( "
0023100 P a s t e " ( 2 . 2 ) )
0023120 ( " U n d C " ( 3 . 2 )
0023140 ) ( " C m n d " ( 0 . 3
0023160 ) ) ( " F i l l " ( 1 .
0023200 3 ) ) ( \r " R e p l a c e "
0023220 ( 2 . 3 ) ) ( " U n d W
0023240 " ( 3 . 3 ) ) ( " F i n
0023260 d " ( 2 . 4 ) ) ( " U n
0023300 d L " ( 3 . 4 ) ) ) ) \r
0023320 ( A D D T O V A R C H A T M E
0023340 N U I T E M S ( " V T 1 0 0
0023360 K e y p a d " G E T K E Y P A
0023400 D " B r i n g s u p a V
0023420 T 1 0 0 k e y p a d " ) ) \r (
0023440 P U T P R O P S V T 1 0 0 K P
0023460 C O P Y R I G H T ( " X e r
0023500 o x C o r p o r a t i o n "
0023520 1 9 8 5 ) ) \r N I L \r
0023533