$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>SKETCHEDIT!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 0 - F e b - 8
0000140 7 1 8 : 0 2 : 3 5 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > S K E T C H E D I T
0000220 . ; 3 006 001 1 0 7 5 4 8 \r \r
0000240 c h a n g e s t o %
0000260 : ( F N S \ S K E D . I N
0000300 S E R T S K E D . C R E A T E
0000320 . N E W . T E X T B O X S K E
0000340 T C H . C L E A N U P ) \r \r
0000360 p r e v i o u s d a t
0000400 e % : " 9 - J a n - 8 7 1
0000420 3 : 5 0 : 3 1 " { E R I S } <
0000440 L I S P C O R E > L I B R A R Y
0000460 > S K E T C H E D I T . ; 2 ) \r
0000500 \r \r ( * " \r C o p y r i g h t
0000520 ( c ) 1 9 8 3 , 1 9 8 4 ,
0000540 1 9 8 5 , 1 9 8 6 , 1 9 8
0000560 7 b y X e r o x C o r p o
0000600 r a t i o n . A l l r i g
0000620 h t s r e s e r v e d . \r " )
0000640 \r \r ( P R E T T Y C O M P R I N
0000660 T S K E T C H E D I T C O M S
0000700 ) \r \r ( R P A Q Q 006 002 S K E T
0000720 C H E D I T C O M S 006 001 \r
0000740 ( ( C O M S ( * s
0000760 e l e c t i o n f u n c t i o
0001000 n s ) \r
0001020 ( F N S B U T L A S T C
0001040 H A R . B E G I N C L O S E S
0001060 T . C H A R C L O S E S T . L
0001100 I N E F L A S H W H I L I T
0001120 E . L I N E H I L I T E . T E
0001140 X T \r
0001160 I N . T E X T . E
0001200 X T E N D I N I M A G E O B J
0001220 I N T E X T N E W . T E X T
0001240 . E X T E N D N E W . T E X T
0001260 . S E L E C T I O N P N T H C
0001300 H A R W I D T H \r
0001320 N T H
0001340 L O C A L R E G I O N O N C H
0001360 A R S H O W . E X T E N D E D
0001400 . S E L E C T I O N . F E E D B
0001420 A C K S H O W . F E E D B A C
0001440 K \r
0001460 S H O W . F E E D B
0001500 A C K . B O X S E L E C T I O
0001520 N . P O S I T I O N S K E D .
0001540 C L E A R . S E L E C T I O N
0001560 S K E T C H . C L E A N U P \r
0001600
0001620 S K . E N T E R . E D I T
0001640 . C H A N G E S K E D . R E M
0001660 O V E . O T H E R . S E L E C T
0001700 I O N S S K E D . E X T E N D
0001720 . S E L E C T I O N \r
0001740 S
0001760 K E D . M O V E . S E L E C T I
0002000 O N C R E A T E . T E X T . S
0002020 E L E C T I O N S K E D . S E
0002040 L E C T I O N . F E E D B A C K
0002060 \r
0002100 S K E D . S E T . E X
0002120 T E N D S E L E C T I O N S K
0002140 E D . S E T . S E L E C T I O N
0002160 L I N E . B E G I N S E L E
0002200 C T I O N . G R E A T E R P \r
0002220
0002240 S K . W O R D . B R E A K
0002260 . C L A S S S K . G E T S Y N
0002300 T A X ) \r
0002320 ( D E C L A R E % : D O
0002340 N T C O P Y ( R E C O R D S
0002360 T E X T E L T S E L E C T I O N
0002400 ) ) \r
0002420 ( U G L Y V A R S I N . T E
0002440 X T . F E E D B A C K . C U R S
0002460 O R N E W . T E X T . F E E D
0002500 B A C K . C U R S O R N E W .
0002520 T E X T . F E E D B A C K . S H
0002540 A D E \r
0002560 S E L E C T
0002600 I O N . H I G H L I G H T . S H
0002620 A D E ) \r
0002640 ( G L O B A L V A R S I
0002660 N . T E X T . F E E D B A C K .
0002700 C U R S O R N E W . T E X T .
0002720 F E E D B A C K . C U R S O R
0002740 N E W . T E X T . F E E D B A C
0002760 K . S H A D E \r
0003000 S E
0003020 L E C T I O N . H I G H L I G H
0003040 T . S H A D E ) ) \r
0003060 ( C O M S ( * e d i t t
0003100 i n g f u n c t i o n s ) \r
0003120 ( F N
0003140 S W B . E D I T O R S K . T
0003160 T Y E N T R Y F N S K . T T Y
0003200 E X I T F N S K E D . I N S E
0003220 R T \ S K E D . I N S E R T
0003240 F I R S T . N . E L E M E N T S
0003260 \r
0003300 S K E D . C R E A T E
0003320 . N E W . T E X T B O X S K E
0003340 D . C H A R A C T E R P O S I T
0003360 I O N S K E D . L I N E . A N
0003400 D . C H A R # \r
0003420 \ S K E
0003440 D . D E L E T E . W O R D . F R
0003460 O M . S T R I N G \ S K E D .
0003500 I N S E R T . C H A R S . T O .
0003520 S T R J O I N C H A R S \r
0003540
0003560 S T R I N G F R O M C H A R
0003600 A C T E R S G E T A L L C H A
0003620 R S C L E A N U P . E D I T
0003640 S K E D . N E W . T E X T E L T
0003660 ) ) \r ( C O M S
0003700 ( * l i n e a d d i n g
0003720 f u n c t i o n s ) \r
0003740 ( F N S M A
0003760 P . S C R E E N . P O S I T I O
0004000 N . O N T O . G R I D N E A R
0004020 E S T . O N . G R I D S K . M
0004040 I D D L E . T I T L E F N W B
0004060 . B U T T O N . H A N D L E R
0004100 \r
0004120 W B . A D D . N E W . P
0004140 O I N T W B . D R A W L I N E
0004160 W B . R U B B E R B A N D . P
0004200 O S I T I O N S K . R U B B E
0004220 R B A N D . F E E D B A C K F N
0004240 \r
0004260 R E S E T . L I N E .
0004300 B E I N G . I N P U T ) \r
0004320 ( F N S
0004340 N E A R E S T . E X I S T I N G
0004360 . P O S I T I O N W B . N E A
0004400 R P T L A S T M O U S E P O S
0004420 I T I O N ) ) ) ) \r \r \r \r 006 004 (
0004440 * s e l e c t i o n f u n c
0004460 t i o n s ) 006 001 \r \r ( D E F I N
0004500 E Q \r \r ( 006 004 B U T L A S T 006 001
0004520 \r [ L A M B D A ( L S T )
0004540 006 006 006 001
0004560
*
0004620 006 006 ( * r r b " 1 7 - J
0004640 U L - 8 3 1 3 : 5 8 " ) 006 001 \r
0004660 \r
0004700 006 006 ( * r e t u r n
0004720 s a l i s t t h a t h a
0004740 s e v e r y t h i n g b u t
0004760 t h e l a s t e l e m e n
0005000 t o f t h e l i s t . ) 006
0005020 001 \r \r ( C O N D \r
0005040 ( ( O R ( N U L L L
0005060 S T ) \r
0005100 ( N U L L ( C D R L S T ) )
0005120 ) \r N I L ) \r
0005140 ( T ( C O N S (
0005160 C A R L S T ) \r
0005200 ( 006 002 B U T L
0005220 A S T 006 001 ( C D R L S T ] )
0005240 \r \r ( 006 004 C H A R . B E G I N 006
0005260 001 \r [ L A M B D A ( C H A
0005300 R # L I N E # T E X T E L T
0005320 S T R M ) 006 006 006 001
0005340
0005360 006 006 ( * r r b " 1 4 -
0005400 J a n - 8 5 1 5 : 4 0 " ) 006 001
0005420 \r \r
0005440 006 006 ( * d e t e r
0005460 m i n e s t h e x p o s i
0005500 t i o n o f t h e f i r s
0005520 t b i t o f c h a r a c t
0005540 e r C H A R # i n L I N E
0005560 # o f \r 006 001
0005600 006 006 T E X T E L T . ) 006 001 \r
0005620 \r ( P R O G ( ( L T E
0005640 X T ( 006 002 f e t c h 006 001 ( S
0005660 C R E E N E L T L O C A L P A
0005700 R T ) 006 002 o f 006 001 T E X T E
0005720 L T ) ) \r
0005740 T E X T X P O S L F O N T
0005760 L R E G I O N ) \r
0006000 ( S E T Q T E X T ( C
0006020 A R ( N T H ( 006 002 f e t c h
0006040 006 001 ( L O C A L T E X T L O
0006060 C A L L I S T O F C H A R A C T
0006100 E R S ) 006 002 o f 006 001 L T E X
0006120 T ) \r
0006140
0006160 L I N E # ) ) ) \r
0006200 [ S E T Q X P O S
0006220 ( 006 002 f e t c h 006 001 ( R E G I
0006240 O N L E F T ) 006 002 o f 006 001
0006260 ( S E T Q L R E G I O N ( C
0006300 A R ( N T H ( 006 002 f e t c h
0006320 006 001 ( L O C A L T E X T L I
0006340 N E R E G I O N S ) \r
0006360
*
0006460 006 002 o f 006 001 L T E X T )
0006500 \r
0006520
*
0006600 L I N E # ] \r
0006620 ( C O N D \r
0006640 ( ( E Q C
0006660 H A R # 0 )
0006700
0006720 006 006 ( * b
0006740 e f o r e t h e f i r s t
0006760 c h a r a c t e r . ) 006 001 \r
0007000 ( R E T
0007020 U R N X P O S ) ) ) \r
0007040 ( S E T Q L F O N
0007060 T ( 006 002 f e t c h 006 001 ( L O
0007100 C A L T E X T L O C A L F O N
0007120 T ) 006 002 o f 006 001 L T E X T )
0007140 ) \r ( R E T
0007160 U R N ( I P L U S X P O S
0007200 ( C O N D \r
0007220
0007240 ( ( I M A G E S T
0007260 R E A M T Y P E P S T R M '
0007300 H A R D C O P Y ) \r
0007320 \r 006
0007340 006 ( * h a r d c o p y s t r
0007360 e a m s m u s t p a s s t
0007400 h e s t r e a m s o c o r
0007420 r e c t i o n i n w i d t h
0007440 s i s a c c o u n t e d \r
0007460 006 001 006 006 f o
0007500 r . ) 006 001 \r \r
0007520
0007540 ( D S P F O N
0007560 T L F O N T S T R M ) \r
0007600
*
0007640 ( S T R I N G W I D T H ( S U
0007660 B S T R I N G T E X T 1 C
0007700 H A R # ) \r
0007720
0007740 S
0007760 T R M ) ) \r
0010000
0010020 ( ( F O N T P L
0010040 F O N T ) \r
0010060
0010100 ( 006 002 f o r 006 001
0010120 I 006 002 f r o m 006 001 1 006 002
0010140 t o 006 001 C H A R # 006 002 s u m
0010160 006 001 ( C H A R W I D T H ( C
0010200 H C O N 1 ( N T H C H A R T
0010220 E X T I ) ) \r
0010240
*
0010320 L F O N
0010340 T ) ) ) \r
0010360
0010400 ( T \r
0010420 \r 006
0010440 006 ( * i f i t i s p r i
0010460 n t e d i n s h a d e , p
0010500 u t c u r s o r a p e r c
0010520 e n t a g e o f t h e w a
0010540 y a c r o s s t h e \r 006 001
0010560 006 006 a r e a
0010600 . ) 006 001 \r \r
0010620
0010640 ( I Q U O T
0010660 I E N T ( I T I M E S C H A
0010700 R # ( 006 002 f e t c h 006 001 ( R
0010720 E G I O N W I D T H ) 006 002 o
0010740 f 006 001 L R E G I O N ) ) \r
0010760
*
0011020 ( N C H A R S
0011040 T E X T ] ) \r \r ( 006 004 C L O S
0011060 E S T . C H A R 006 001 \r [ L A
0011100 M B D A ( X P O S L I N E #
0011120 T E X T E L T S T R M ) 006 006
0011140 006 001
0011160 006 006 ( *
0011200 r r b " 2 8 - A p r - 8 5
0011220 1 5 : 4 8 " ) 006 001 \r
0011240 \r 006
0011260 006 ( * * d e t e r m i n e s
0011300 t h e t h e s l o t b e
0011320 t w e e n c h a r a c t e r s
0011340 t h a t i s c l o s e s t
0011360 t o X P O S . \r 006 001
0011400 006 006 i t w i l l
0011420 r e t u r n 0 i f t h e
0011440 p o s i t i o n i s i n t
0011460 h e f i r s t h a l f o f
0011500 t h e f i r s t c h a r a
0011520 c t e r o r \r 006 001
0011540 006 006 b e f o r e t h
0011560 e f i r s t c h a r a c t e
0011600 r ) 006 001 \r \r ( P R O G
0011620 ( ( L T E X T ( 006 002 f e t c h
0011640 006 001 ( S C R E E N E L T L O
0011660 C A L P A R T ) 006 002 o f 006 001
0011700 T E X T E L T ) ) \r
0011720 T E X T L R E G I O
0011740 N L F O N T L E F T T H I
0011760 S C H A R W I D T H ) \r
0012000 ( S E T Q T E X T
0012020 ( C A R ( N T H ( 006 002 f e
0012040 t c h 006 001 ( L O C A L T E X T
0012060 L O C A L L I S T O F C H A R
0012100 A C T E R S ) 006 002 o f 006 001 L
0012120 T E X T ) \r
0012140
0012160 L I N E # ) ) ) \r
0012200 ( S E T Q L F
0012220 O N T ( 006 002 f e t c h 006 001 (
0012240 L O C A L T E X T L O C A L F
0012260 O N T ) 006 002 o f 006 001 L T E X
0012300 T ) ) \r ( R
0012320 E T U R N ( C O N D \r
0012340
0012360 ( ( I G R E A T E R P [ S E
0012400 T Q L E F T ( 006 002 f e t c h
0012420 006 001 ( R E G I O N L E F T )
0012440 \r
0012460
*
0012520 006 002 o f 006 001 ( S E T Q L R E
0012540 G I O N ( C A R ( N T H (
0012560 006 002 f e t c h 006 001 ( L O C A L
0012600 T E X T \r
0012620
*
0012720 L I
0012740 N E R E G I O N S ) \r
0012760
*
0013060 006 002 o f 006 001 L
0013100 T E X T ) \r
0013120
*
0013220 L I N E # ] \r
0013240
0013260 X P O S )
0013300
0013320 006 006 ( * b e f o r e
0013340 t h e f i r s t c h a r a c
0013360 t e r . ) 006 001 \r
0013400 0 )
0013420 \r
0013440 ( ( I G E Q X P O
0013460 S ( I P L U S L E F T ( 006
0013500 002 f e t c h 006 001 ( R E G I O N
0013520 W I D T H ) 006 002 o f 006 001 L
0013540 R E G I O N ) ) ) \r
0013560
*
0013640 006 006 ( * p a s t
0013660 t h e r i g h t m o s t c
0013700 h a r a c t e r . ) 006 001 \r
0013720
0013740 ( N C H A R S T E X T )
0013760 ) \r
0014000 [ ( I M A G E S T
0014020 R E A M T Y P E P S T R M '
0014040 H A R D C O P Y ) \r
0014060 \r 006
0014100 006 ( * h a r d c o p y s t r
0014120 e a m c o d e i s c o b b
0014140 l e d f r o m S T R I N G W
0014160 I D T H . \r 006 001
0014200 006 006 M u s t b e d o n e
0014220 b e c a u s e w i d t h s
0014240 o f c h a r a c t e r s i s
0014260 n o t a n i n t e g r a l
0014300 n u m b e r o f p o i n t
0014320 s \r 006 001 006
0014340 006 a n d e r r o r w o u l d
0014360 a c c u m u l a t e t h r o
0014400 u g h t h e l i n e . ) 006 001
0014420 \r \r
0014440 ( P R O G ( [
0014460 F O N T ( F O N T C R E A T E
0014500 L F O N T N I L N I L N
0014520 I L ( S T R E A M P R O P S
0014540 T R M ' H A R D C O P Y I M A
0014560 G E T Y P E ] \r
0014600
0014620 ( L E F T M I C A P O
0014640 S ( I T I M E S ( C O N S T
0014660 A N T I M I C A S P E R P T )
0014700 \r
0014720
*
0014760 L E F T ) ) \r
0015000
0015020 ( X M I C A P O S
0015040 ( I T I M E S ( C O N S T A N
0015060 T I M I C A S P E R P T ) \r
0015100
*
0015140 X P O
0015160 S ) ) ) \r
0015200
0015220 ( C O N D \r
0015240
0015260 [ ( S T R I N G P
0015300 T E X T )
0015320 006 006 ( * a s s u m e s
0015340 P R I N 1 m o d e . ) 006 001 \r
0015360
*
0015420 ( R E T U R N ( 006 002 f o r 006 001
0015440 C 006 002 i n s t r i n g 006 001
0015460 T E X T 006 002 a s 006 001 C H A R
0015500 # 006 002 f r o m 006 001 1 \r
0015520
*
0015560 006 002 w h e n 006 001
0015600 ( I G R E A T E R P [ S E T
0015620 Q L E F T M I C A P O S \r
0015640
*
0015720 ( I P L U S
0015740 L E F T M I C A P O S ( S E
0015760 T Q T H I S C H A R W I D T H
0016000 \r
0016020
*
0016120 ( C H A R W I D T H C F O
0016140 N T ] \r
0016160
*
0016220 X M I C A
0016240 P O S ) \r
0016260
*
0016320 006 002 d o 006 001 ( R E T U R N (
0016340 C O N D \r
0016360
*
0016420 ( (
0016440 I G R E A T E R P ( I D I F F
0016460 E R E N C E L E F T M I C A P
0016500 O S \r
0016520
*
0016600 (
0016620 L R S H T H I S C H A R W I D
0016640 T H 1 ) ) \r
0016660
*
0016740 X M I C A P O S
0016760 ) \r
0017000
*
0017040 ( S U B
0017060 1 C H A R # ) ) \r
0017100
*
0017160 ( T C H A R # ) ) ) 006
0017200 002 f i n a l l y 006 001 ( R E T U
0017220 R N ( S U B 1 C H A R # ] \r
0017240
0017260 (
0017300 T ( \ I L L E G A L . A R G
0017320 T E X T ] \r
0017340 ( T ( 006
0017360 002 f o r 006 001 C H A R # 006 002 f
0017400 r o m 006 001 1 006 002 t o 006 001 (
0017420 N C H A R S T E X T ) \r
0017440
0017460 006 002 w h e n 006 001
0017500 ( I G R E A T E R P [ S E T
0017520 Q L E F T ( I P L U S L E
0017540 F T ( S E T Q T H I S C H A
0017560 R W I D T H \r
0017600
*
0017660 ( 006 002 N T H
0017700 C H A R W I D T H 006 001 T E X T
0017720 C H A R # L F O N T ] \r
0017740
*
0020000 X P O S ) 006 002 d o 006
0020020 001 006
0020040 006 ( * h a v e t h e h o t
0020060 s p o t b e b e t w e e n
0020100 t h e \r 006 001
0020120
*
0020200 006 006 c h a r a c t e r s
0020220 . ) 006 001 \r
0020240
*
0020300 ( R E T U R N ( C O
0020320 N D \r
0020340
*
0020400 ( (
0020420 I G R E A T E R P ( I D I F F
0020440 E R E N C E L E F T \r
0020460
*
0020560 ( L R S H
0020600 T H I S C H A R W I D T H 1 )
0020620 ) \r
0020640
*
0020720 X P O S ) \r
0020740
*
0021020 ( S U B 1 C H A
0021040 R # ) ) \r
0021060
*
0021140 ( T C H A R # ) ) ) \r
0021160
0021200 006 002 f i n a l l y
0021220 006 001 ( R E T U R N ( S U B 1
0021240 C H A R # ] ) \r \r ( 006 004 C L O
0021260 S E S T . L I N E 006 001 \r [ L
0021300 A M B D A ( T E X T E L T Y
0021320 ) 006 006 006 001
0021340
0021360 006 006 (
0021400 * r r b " 1 - M A Y - 8 3
0021420 1 0 : 1 5 " ) 006 001 \r
0021440 \r
0021460 006 006 ( * d e t e r m i n e s
0021500 t h e l i n e o f T E X T
0021520 E L T t h a t Y i s c l
0021540 o s e s t t o . ) 006 001 \r
0021560 \r
0021600 006 006 ( * a s s u m e s t
0021620 h a t t h e t e x t e l e
0021640 m e n t s a r e o r d e r e
0021660 d f r o m t o p t o b o
0021700 t t o m . ) 006 001 \r \r ( 006
0021720 002 f o r 006 001 L R E G I O N 006
0021740 002 i n 006 001 ( 006 002 f e t c h 006 001
0021760 ( L O C A L T E X T L I N E
0022000 R E G I O N S ) 006 002 o f 006 001
0022020 ( 006 002 f e t c h 006 001 ( S C R E
0022040 E N E L T L O C A L P A R T )
0022060 006 002 o f 006 001 T E X T E L T )
0022100 ) \r 006 002 a s 006 001
0022120 L I N E # 006 002 f r o m 006 001 1
0022140 006 002 w h e n 006 001 ( I G E Q
0022160 Y ( 006 002 f e t c h 006 001 ( R E
0022200 G I O N B O T T O M ) 006 002 o
0022220 f 006 001 L R E G I O N ) ) 006 002
0022240 d o 006 001 ( R E T U R N L I N
0022260 E # ) \r 006 002 f i n
0022300 a l l y 006 001 ( R E T U R N (
0022320 S U B 1 L I N E # ] ) \r \r ( 006
0022340 004 F L A S H W 006 001 \r [ L A M
0022360 B D A ( W I N )
0022400
*
0022440 006 006 ( * f l a s
0022460 h s a w i n d o w . ) 006 001 \r
0022500 ( I N V E R T W W I N
0022520 ) \r ( D I S M I S S B
0022540 E L L R A T E ) \r ( I N
0022560 V E R T W W I N ] ) \r \r ( 006 004
0022600 H I L I T E . L I N E 006 001 \r
0022620 [ L A M B D A ( T E X T E L T
0022640 L I N E # M I N L E F T M
0022660 A X L E F T W I N D O W ) 006 006
0022700 006 001 006
0022720 006 ( * r r b " 1 - M A Y -
0022740 8 3 0 9 : 5 4 " ) 006 001 \r
0022760 \r
0023000 006 006 ( * h i g h l i g h t
0023020 s w i t h i n a s i n g l
0023040 e l i n e o f t e x t b
0023060 e t w e e n M I N L E F T a
0023100 n d M A X L E F T . \r 006 001
0023120 006 006 I f M I N
0023140 L E F T i s N I L i t u
0023160 s e s t h e b e g i n n i n
0023200 g o f t h e l i n e . \r 006
0023220 001 006 006 I f
0023240 M A X L E F T i s N I L i
0023260 t u s e s t h e e n d o
0023300 f t h e l i n e . ) 006 001 \r \r
0023320 ( P R O G ( ( L R E G
0023340 I O N ( 006 002 N T H L O C A L R
0023360 E G I O N 006 001 T E X T E L T
0023400 L I N E # ) ) ) \r
0023420 ( B I T B L T N I L N
0023440 I L N I L W I N D O W ( O
0023460 R M I N L E F T ( S E T Q
0023500 M I N L E F T ( 006 002 f e t c h
0023520 006 001 ( R E G I O N L E F T )
0023540 006 002 o f 006 001 L R E G I O N )
0023560 ) ) \r
0023600 ( 006 002 f e t c h 006 001 (
0023620 R E G I O N B O T T O M ) 006
0023640 002 o f 006 001 L R E G I O N ) \r
0023660
0023700 ( I D I F F E R E N C E ( O R
0023720 M A X L E F T ( 006 002 f e t c
0023740 h 006 001 ( R E G I O N P R I G
0023760 H T ) 006 002 o f 006 001 L R E G I
0024000 O N ) ) \r
0024020 M I N
0024040 L E F T ) \r
0024060 ( 006 002 f e t c h 006
0024100 001 ( R E G I O N H E I G H T
0024120 ) 006 002 o f 006 001 L R E G I O N
0024140 ) \r
0024160 ' T E X T U R E \r
0024200 ' I N
0024220 V E R T S E L E C T I O N . H
0024240 I G H L I G H T . S H A D E ] )
0024260 \r \r ( 006 004 H I L I T E . T E X T
0024300 006 001 \r [ L A M B D A ( T E
0024320 X T E L T S E L L E F T S E
0024340 L L I N E # E X T L E F T E
0024360 X T L I N E # W I N D O W ) 006
0024400 006 006 001 006 006 ( * r r b " 3 0
0024420 - D e c - 8 4 1 7 : 5 9 " ) 006
0024440 001 \r
0024460
*
0024520 006
0024540 006 ( * h i g h l i g h t s
0024560 b e t w e e n t w o p o s i
0024600 t i o n s \r 006 001
0024620
*
0024700 006 006 i n a t e x
0024720 t e l e m e n t . ) 006 001 \r
0024740 ( C O N D \r (
0024760 ( E Q S E L L I N E # E X T
0025000 L I N E # )
0025020
0025040 006 006 ( * o n t h e
0025060 s a m e l i n e , h i g h
0025100 l i g h t b e t w e e n \r 006
0025120 001
0025140
*
0025200 006 006
0025220 t h e m . ) 006 001 \r
0025240 ( P R O G ( M I N M A X )
0025260 \r (
0025300 C O N D \r
0025320 ( ( N U L L S E L
0025340 L E F T ) \r
0025360 \r 006 006 ( *
0025400 S E L L E F T i s N I L d
0025420 u r i n g r e c u r s i v e
0025440 c a l l s a n d m e a n s
0025460 u s e t h e b e g i n n i n
0025500 g o f t h e \r 006 001
0025520 006 006 t e x t . ) 006 001
0025540 \r \r
0025560 ( S E T Q M I N N I
0025600 L ) \r
0025620 ( S E T Q M A X E
0025640 X T L E F T ) ) \r
0025660 ( ( I G R E
0025700 A T E R P S E L L E F T E X
0025720 T L E F T ) \r
0025740 ( S E T Q M
0025760 I N E X T L E F T ) \r
0026000 ( S
0026020 E T Q M A X S E L L E F T )
0026040 ) \r
0026060 ( T ( S E T Q M I N
0026100 S E L L E F T ) \r
0026120 ( S E
0026140 T Q M A X E X T L E F T ) )
0026160 ) \r
0026200 ( 006 002 H I L I T E . L I N E 006 001
0026220 T E X T E L T S E L L I N E
0026240 # M I N M A X W I N D O W
0026260 ) ) ) \r ( ( I G R
0026300 E A T E R P E X T L I N E #
0026320 S E L L I N E # ) \r
0026340 \r 006
0026360 006 ( * f i l l f r o m S E
0026400 L t o e n d o f i t s
0026420 l i n e a n d r e c u r s e
0026440 . ) 006 001 \r \r ( 006
0026460 002 H I L I T E . L I N E 006 001 T
0026500 E X T E L T S E L L I N E #
0026520 S E L L E F T N I L W I N D
0026540 O W ) \r ( 006 002 H
0026560 I L I T E . T E X T 006 001 T E X
0026600 T E L T N I L ( A D D 1 S
0026620 E L L I N E # ) \r
0026640 E X T L E F T
0026660 E X T L I N E # W I N D O W )
0026700 ) \r ( T 006 006 ( *
0026720 f i l l f r o m E X T t
0026740 o t h e e n d o f i t s
0026760 l i n e a n d r e c u r s
0027000 e . ) 006 001 \r
0027020 ( 006 002 H I L I T E . L I N E 006 001
0027040 T E X T E L T E X T L I N E
0027060 # E X T L E F T N I L W I
0027100 N D O W ) 006 006 ( * a l w a
0027120 y s r e c u r s e t o h a
0027140 v e h i g h e s t \r 006 001
0027160
*
0027240 006 006 s e l
0027260 e c t i o n f i r s t . ) 006 001
0027300 \r ( 006 002 H I
0027320 L I T E . T E X T 006 001 T E X T
0027340 E L T N I L ( A D D 1 E X
0027360 T L I N E # ) \r
0027400 S E L L E F T
0027420 S E L L I N E # W I N D O W
0027440 ] ) \r \r ( 006 004 I N . T E X T . E
0027460 X T E N D 006 001 \r [ L A M B D
0027500 A ( S E L E C T I O N S K W
0027520 ) 006 006 006 001
0027540
0027560 006 006 ( * r r
0027600 b " 2 2 - M a y - 8 5 1 1 :
0027620 4 0 " ) 006 001 \r
0027640 \r 006 006 ( *
0027660 t h e u s e r h a s r i
0027700 g h t b u t t o n e d a n d
0027720 t h e f i r s t s e l e c
0027740 t i o n w a s t o i n e
0027760 x i s t i n g t e x t . ) 006 001
0030000 \r
0030020
*
0030060 006 006
0030100 ( * c u r r e n t s e l e c
0030120 t i o n h a s a l r e a d y
0030140 b e e n \r 006 001
0030160
*
0030240 006 006 u n d i s p l a
0030260 y e d . ) 006 001 \r ( P R O
0030300 G [ ( O L D L I N E ( 006 002 f
0030320 e t c h 006 001 ( T E X T E L T S
0030340 E L E C T I O N S K L I N E #
0030360 ) 006 002 o f 006 001 S E L E C T I
0030400 O N ) ) \r
0030420 ( O L D X ( 006 002 f e t c h 006 001
0030440 ( T E X T E L T S E L E C T I
0030460 O N S K L E F T ) 006 002 o f 006
0030500 001 S E L E C T I O N ) ) \r
0030520 ( 006 002 I N T E
0030540 X T 006 001 ( 006 002 f e t c h 006 001
0030560 ( T E X T E L T S E L E C T I O
0030600 N S K T E X T E L T ) 006 002 o
0030620 f 006 001 S E L E C T I O N ) ) \r
0030640 F E E D B
0030660 A C K X F E E D B A C K Y F
0030700 E E D B A C K L I N E F E E D
0030720 B A C K C H A R ( R E G I O N
0030740 ( D S P C L I P P I N G R E G
0030760 I O N N I L S K W ) ) \r
0031000 ( D S P ( W
0031020 I N D O W P R O P S K W ' D
0031040 S P ] \r ( 006
0031060 002 w h i l e 006 001 ( M O U S E S
0031100 T A T E R I G H T ) 006 002 d o
0031120 006 001
0031140 006 006 ( * t r
0031160 a c k w i t h t h e a p p
0031200 r o p r i a t e f e e d b a c
0031220 k ) 006 001 \r
0031240
0031260 ( C O N
0031300 D \r
0031320
0031340 ( [ N O
0031360 T ( I N S I D E P R E G I O
0031400 N ( S E T Q F E E D B A C K
0031420 X ( L A S T M O U S E X D S
0031440 P ) ) \r
0031460
*
0031520 ( S E T Q
0031540 F E E D B A C K Y ( L A S T
0031560 M O U S E Y D S P ] \r
0031600 \r
0031620 006 006 ( * c u r s o r m o v
0031640 e d o u t s i d e o f t h
0031660 e w i n d o w . R e s e t
0031700 s e l e c t i o n a n d q u
0031720 i t . ) 006 001 \r \r
0031740
*
0032000 ( 006 002 S K E D . S E L E C
0032020 T I O N . F E E D B A C K 006 001
0032040 S K W ) \r
0032060
*
0032120 ( R E T U R N ) ) ) \r
0032140
*
0032200 ( S E T Q F E E D B A C K
0032220 L I N E ( 006 002 C L O S E S T .
0032240 L I N E 006 001 I N T E X T F E
0032260 E D B A C K Y ) ) \r
0032300
*
0032360 006 006 ( * i n s
0032400 i d e o f a t e x t e l
0032420 e m e n t . ) 006 001 \r
0032440
*
0032500 ( S E T Q F E E D B A C K X
0032520 ( 006 002 C H A R . B E G I N 006 001
0032540 ( S E T Q F E E D B A C K C
0032560 H A R \r
0032600
*
0032660 ( 006 002 C L O S E
0032700 S T . C H A R 006 001 F E E D B A
0032720 C K X \r
0032740
*
0033040 F E E D B A C K L I N E I N T
0033060 E X T D S P ) ) \r
0033100
*
0033160 F E E D B A C K
0033200 L I N E I N T E X T D S P )
0033220 ) \r
0033240
0033260 ( C O N D \r
0033300
*
0033340 ( ( O R ( N
0033360 E Q O L D X F E E D B A C K
0033400 X ) \r
0033420
*
0033460 ( N E Q O L D L I N E F
0033500 E E D B A C K L I N E ) ) \r
0033520
*
0033560 ( 006 002 H I L I
0033600 T E . T E X T 006 001 I N T E X T
0033620 O L D X O L D L I N E ( S
0033640 E T Q O L D X F E E D B A C
0033660 K X ) \r
0033700
*
0033740 ( S E T Q O L D L
0033760 I N E F E E D B A C K L I N E
0034000 ) \r
0034020
*
0034060 S K W ) ) ) \r
0034100 006 002 f i n a l l
0034120 y 006 001 \r \r
0034140 006 006 ( * e
0034160 r a s e f e e d b a c k . I
0034200 t w i l l b e p u t i n
0034220 a s a r e s u l t o f
0034240 s e t t i n g t h e e x t e
0034260 n t i o n \r 006 001
0034300 006 006 s e l e c t i o n . )
0034320 006 001 \r \r
0034340 ( 006 002 H I L I T E
0034360 . T E X T 006 001 I N T E X T O
0034400 L D X O L D L I N E ( 006 002 f
0034420 e t c h 006 001 ( T E X T E L T S
0034440 E L E C T I O N S K L E F T )
0034460 006 002 o f 006 001 S E L E C T I O
0034500 N ) \r
0034520 ( 006 002
0034540 f e t c h 006 001 ( T E X T E L T
0034560 S E L E C T I O N S K L I N E
0034600 # ) 006 002 o f 006 001 S E L E C T
0034620 I O N ) \r
0034640 S
0034660 K W ) \r
0034700 ( 006 002 S K E D . S
0034720 E T . E X T E N D S E L E C T I
0034740 O N 006 001 ( 006 002 c r e a t e 006 001
0034760 T E X T E L T S E L E C T I O
0035000 N \r
0035020
*
0035060 S K T E X T E L T
0035100 _ I N T E X T \r
0035120
*
0035160 S K L
0035200 I N E # _ O L D L I N E \r
0035220
*
0035300 S K C H A R # _ F E E
0035320 D B A C K C H A R \r
0035340
*
0035400 S K
0035420 L E F T _ O L D X \r
0035440
*
0035520 S K B O T T O M _ ( 006 002 L I
0035540 N E . B E G I N 006 001 ( O R F
0035560 E E D B A C K L I N E 1 ) \r
0035600
*
0035700 I N T E X T ) ) \r
0035720
0035740 S K W ] ) \r \r (
0035760 006 004 I N I M A G E O B J 006 001 \r
0036000 [ L A M B D A ( S K I M A G
0036020 E O B J S C R E E N E L T X
0036040 Y ) 006 006 006 001
0036060
0036100 006 006 ( * r r b " 3 1 - M a r
0036120 - 8 4 1 1 : 4 3 " ) 006 001 \r
0036140 \r
0036160 006 006 ( * r e t u r n T
0036200 i f X Y i s i n s i d
0036220 e o f t h e i m a g e o
0036240 b j e c t S K I M A G E O B J
0036260 S C R E E N E L T . ) 006 001 \r \r
0036300 ( I N S I D E P ( 006 002 f
0036320 e t c h 006 001 ( L O C A L S K I
0036340 M A G E O B J S K I M O B J L
0036360 O C A L R E G I O N ) 006 002 o f
0036400 006 001 ( 006 002 f e t c h 006 001 ( S
0036420 C R E E N E L T L O C A L P A
0036440 R T ) 006 002 o f 006 001 \r
0036460
*
0036560 S K
0036600 I M A G E O B J S C R E E N E L
0036620 T \r
0036640
*
0036720 ) ) \r
0036740 X Y ] ) \r \r ( 006 004 I N T
0036760 E X T 006 001 \r [ L A M B D A
0037000 ( T E X T E L T X O R P T Y
0037020 ) 006 006 006 001
0037040
0037060 006 006 ( * r r b
0037100 " 6 - M A Y - 8 3 1 9 : 3 7
0037120 " ) 006 001 \r
0037140
*
0037220 006 006 ( * d e t e r m i n e
0037240 s w h i c h l i n e i f
0037260 a n y a \r 006 001
0037300
*
0037360 006 006 p o s i t i o n
0037400 i s o n . ) 006 001 \r (
0037420 006 002 f o r 006 001 L R E G I O N
0037440 006 002 i n 006 001 ( 006 002 f e t c h 006
0037460 001 ( L O C A L T E X T L I N
0037500 E R E G I O N S ) 006 002 o f 006 001
0037520 ( 006 002 f e t c h 006 001 ( S C R
0037540 E E N E L T L O C A L P A R T
0037560 ) 006 002 o f 006 001 T E X T E L T
0037600 ) ) \r 006 002 a s 006 001
0037620 L I N E # 006 002 f r o m 006 001
0037640 1 006 002 w h e n 006 001 ( I N S I
0037660 D E P L R E G I O N X O R P
0037700 T Y ) 006 002 d o 006 001 ( R E T
0037720 U R N L I N E # ] ) \r \r ( 006 004
0037740 N E W . T E X T . E X T E N D 006
0037760 001 \r [ L A M B D A ( S E L
0040000 E C T I O N S K W ) 006 006 006 001
0040020
*
0040060 006 006 ( * r r b " 3 0 -
0040100 A P R - 8 3 1 6 : 2 5 " ) 006 001
0040120 \r \r
0040140 006 006 ( * t h e u
0040160 s e r h a s r i g h t b u
0040200 t t o n e d a n d t h e f
0040220 i r s t s e l e c t i o n w
0040240 a s t o n e w t e x t . )
0040260 006 001 \r
0040300
*
0040360 006 006 ( * c u r r e n t s e l
0040400 e c t i o n h a s a l r e a
0040420 d y b e e n \r 006 001
0040440
*
0040520 006 006 u n d i s p
0040540 l a y e d . ) 006 001 \r ( P
0040560 R O G ( F E E D B A C K X F
0040600 E E D B A C K Y E X T E N D E
0040620 D S E L O L D X O L D Y O
0040640 L D C U R ) \r
0040660 ( 006 002 u n t i l 006 001 ( M O U
0040700 S E S T A T E ( N O T R I G
0040720 H T ) ) 006 002 d o 006 001
0040740 006 006 ( *
0040760 t r a c k w i t h t h e
0041000 a p p r o p r i a t e f e e d
0041020 b a c k ) 006 001 \r
0041040
*
0041100 ( S E T Q F E E D B
0041120 A C K X ( L A S T M O U S E X
0041140 S K W ) ) \r
0041160
*
0041220 ( S E T Q F E E D B A
0041240 C K Y ( L A S T M O U S E Y
0041260 S K W ) ) \r
0041300
*
0041340 ( C O N D \r
0041360
*
0041420 ( ( O R ( N
0041440 E Q O L D X F E E D B A C K
0041460 X ) \r
0041500
*
0041540 ( N E Q O L D
0041560 Y F E E D B A C K Y ) ) \r
0041600
*
0041660 006 006 ( *
0041700 e r a s e p r e v i o u s f
0041720 e e d b a c k ) 006 001 \r
0041740
*
0042000 ( A N D
0042020 E X T E N D E D S E L ( 006 002
0042040 S H O W . F E E D B A C K . B O
0042060 X 006 001 S E L E C T I O N \r
0042100
*
0042200 E X T E N D E D
0042220 S E L S K W ) ) \r
0042240
*
0042300 ( 006 002 S H
0042320 O W . F E E D B A C K . B O X 006
0042340 001 S E L E C T I O N ( S E T
0042360 Q E X T E N D E D S E L \r
0042400
*
0042500 ( 006 002
0042520 c r e a t e 006 001 P O S I T I O
0042540 N \r
0042560
*
0042660 X C O O R D _
0042700 \r
0042720
*
0043020 ( S E T Q O L D
0043040 X \r
0043060
*
0043160 F E E D B A
0043200 C K X ) \r
0043220
*
0043320 Y C O O R
0043340 D _ \r
0043360
*
0043460 ( S E T Q
0043500 O L D Y \r
0043520
*
0043620 F E E
0043640 D B A C K Y ) ) ) \r
0043660
*
0043740 S K W ) ) ) \r
0043760 006 002 f i n a l l y 006
0044000 001 ( A N D E X T E N D E D S
0044020 E L ( 006 002 S H O W . F E E D B
0044040 A C K . B O X 006 001 S E L E C T
0044060 I O N E X T E N D E D S E L
0044100 S K W ) ) \r
0044120 ( 006 002 S K E D
0044140 . S E T . E X T E N D S E L E C
0044160 T I O N 006 001 E X T E N D E D S
0044200 E L S K W ] ) \r \r ( 006 004 N E W
0044220 . T E X T . S E L E C T I O N P
0044240 006 001 \r [ L A M B D A ( S E
0044260 L E C T I O N ) \r
0044300 \r 006 006
0044320 ( * d e t e r m i n e s i f
0044340 a s e l e c t i o n i s
0044360 p o i n t i n g t o n e w
0044400 t e x t l o c a t i o n o r
0044420 e x i s t i n g t e x t . )
0044440 006 001 \r \r ( P O S I T I O
0044460 N P S E L E C T I O N ] ) \r \r
0044500 ( 006 004 N T H C H A R W I D T H 006
0044520 001 \r [ L A M B D A ( S T R
0044540 N F O N T ) 006 006 006 001
0044560
*
0044620 006 006 ( * r r b " 2 3 -
0044640 A u g - 8 4 0 9 : 4 3 " ) 006 001
0044660 \r \r
0044700 006 006 ( * r e t u r
0044720 n s t h e c h a r a c t e r
0044740 w i d t h o f t h e N t
0044760 h c h a r a c t e r i n S
0045000 T R . ) 006 001 \r \r ( C H A
0045020 R W I D T H ( C H C O N 1 (
0045040 N T H C H A R S T R N ) ) \r
0045060 F O N T ]
0045100 ) \r \r ( 006 004 N T H L O C A L R E
0045120 G I O N 006 001 \r [ L A M B D A
0045140 ( T E X T E L T N ) 006 006 006 001
0045160
*
0045220 006 006 ( * r r b
0045240 " 1 - M A Y - 8 3 0 9 : 5
0045260 3 " ) 006 001 \r ( C A R (
0045300 N T H ( 006 002 f e t c h 006 001 (
0045320 L O C A L T E X T L I N E R E
0045340 G I O N S ) 006 002 o f 006 001 ( 006
0045360 002 f e t c h 006 001 ( S C R E E N
0045400 E L T L O C A L P A R T ) 006
0045420 002 o f 006 001 T E X T E L T ) ) \r
0045440 N ]
0045460 ) \r \r ( 006 004 O N C H A R 006 001 \r
0045500 [ L A M B D A ( X P O S L
0045520 I N E # T E X T E L T S T R
0045540 M ) 006 006 006 001
0045560
0045600 006 006 ( * r r b " 2 4 - A u g
0045620 - 8 4 1 1 : 1 4 " ) 006 001 \r
0045640 \r
0045660 006 006 ( * d e t e r m i n
0045700 e s t h e c h a r a c t e r
0045720 n u m b e r t h a t X P O
0045740 S i s o n i n a p a r
0045760 t i c u l a r l i n e o f
0046000 a \r 006 001 006
0046020 006 t e x t e l e m e n t . ) 006
0046040 001 \r \r
0046060 006 006 ( * w i l l
0046100 r e t u r n 1 i f t h e
0046120 p o s i t i o n i s i n
0046140 t h e f i r s t h a l f o
0046160 f t h e f i r s t c h a r
0046200 a c t e r . ) 006 001 \r \r (
0046220 006 002 C L O S E S T . C H A R 006 001
0046240 X P O S L I N E # T E X T
0046260 E L T S T R M N I L ] ) \r \r
0046300 ( 006 004 S H O W . E X T E N D E D
0046320 . S E L E C T I O N . F E E D B
0046340 A C K 006 001 \r [ L A M B D A
0046360 ( S E L E X T E N D S E L S
0046400 K W ) 006 006 006 001
0046420
0046440 006 006 ( * r r b
0046460 " 1 - M A Y - 8 3 0 9 : 5 5
0046500 " ) 006 001 \r
0046520
*
0046600 006 006 ( * h i l i g h t s
0046620 t h e s e l e c t i o n b
0046640 e t w e e n S E L \r 006 001
0046660
*
0046740 006 006 a n d
0046760 E X T E N D S E L ) 006 001 \r
0047000 ( C O N D \r (
0047020 ( N E Q ( 006 002 f e t c h 006 001
0047040 ( T E X T E L T S E L E C T I O
0047060 N S K T E X T E L T ) 006 002 o
0047100 f 006 001 S E L ) \r
0047120 ( 006 002 f e t c h 006 001
0047140 ( T E X T E L T S E L E C T I
0047160 O N S K T E X T E L T ) 006 002
0047200 o f 006 001 E X T E N D S E L ) )
0047220 \r \r
0047240 006 006 ( * i f t h
0047260 e t w o s e l e c t i o n s
0047300 a r e n ' t i n t h e s
0047320 a m e t e x t e l e m e n t
0047340 , t h i n g s a r e c o n
0047360 f u s e d . ) 006 001 \r \r
0047400 ( S H O U L D N T ) ) ) \r
0047420 ( 006 002 H I L I T E . T E
0047440 X T 006 001 ( 006 002 f e t c h 006 001
0047460 ( T E X T E L T S E L E C T I O
0047500 N S K T E X T E L T ) 006 002 o
0047520 f 006 001 S E L ) \r
0047540 ( 006 002 f e t c h 006 001 (
0047560 T E X T E L T S E L E C T I O N
0047600 S K L E F T ) 006 002 o f 006 001
0047620 S E L ) \r
0047640 ( 006 002 f e t c h 006 001 ( T E X T
0047660 E L T S E L E C T I O N S K L
0047700 I N E # ) 006 002 o f 006 001 S E L
0047720 ) \r ( 006 002
0047740 f e t c h 006 001 ( T E X T E L T
0047760 S E L E C T I O N S K L E F T
0050000 ) 006 002 o f 006 001 E X T E N D S
0050020 E L ) \r (
0050040 006 002 f e t c h 006 001 ( T E X T E
0050060 L T S E L E C T I O N S K L I
0050100 N E # ) 006 002 o f 006 001 E X T E
0050120 N D S E L ) \r
0050140 S K W ] ) \r \r ( 006 004 S H O W
0050160 . F E E D B A C K 006 001 \r [ L
0050200 A M B D A ( F E E D B A C K C
0050220 U R F E E D B A C K X F E E
0050240 D B A C K Y W I N D O W ) 006 006
0050260 006 001 006 006 (
0050300 * ; " E d i t e d 9 - J
0050320 a n - 8 7 1 3 : 4 9 b y r
0050340 r b " ) 006 001 \r
0050360
*
0050440 006 006 ( * d i s p l a y
0050460 s a c u r s o r i n X O
0050500 R m o d e a t a \r 006 001
0050520
*
0050600 006 006 p o
0050620 s i t i o n . ) 006 001 \r (
0050640 B I T B L T ( C A R F E E D
0050660 B A C K C U R ) \r
0050700 0 0 W I N D O W (
0050720 I D I F F E R E N C E F E E D
0050740 B A C K X ( C A D R F E E D
0050760 B A C K C U R ) ) \r
0051000 ( I D I F F E R E N C
0051020 E F E E D B A C K Y ( C D D
0051040 R F E E D B A C K C U R ) ) \r
0051060 N I L N
0051100 I L ' I N P U T ' I N V E R
0051120 T ] ) \r \r ( 006 004 S H O W . F E E
0051140 D B A C K . B O X 006 001 \r [ L
0051160 A M B D A ( P 1 P 2 W I N
0051200 D O W ) 006 006 006 001
0051220
0051240 006 006 (
0051260 * r r b " 3 0 - A P R - 8 3
0051300 1 6 : 2 3 " ) 006 001 \r
0051320
*
0051400 006 006 ( * d r a
0051420 w s a b o x b e t w e e n
0051440 t w o p o i n t s . ) 006 001 \r
0051460 ( P R O G ( ( X 1 (
0051500 006 002 f e t c h 006 001 ( P O S I T
0051520 I O N X C O O R D ) 006 002 o f
0051540 006 001 S E L E C T I O N P 1 )
0051560 ) \r ( Y 1
0051600 ( 006 002 f e t c h 006 001 ( P O S
0051620 I T I O N Y C O O R D ) 006 002
0051640 o f 006 001 S E L E C T I O N P
0051660 1 ) ) \r (
0051700 X 2 ( 006 002 f e t c h 006 001 ( P
0051720 O S I T I O N X C O O R D )
0051740 006 002 o f 006 001 S E L E C T I O N
0051760 P 2 ) ) \r
0052000 ( Y 2 ( 006 002 f e t c h 006 001
0052020 ( P O S I T I O N Y C O O R D
0052040 ) 006 002 o f 006 001 S E L E C T I
0052060 O N P 2 ) ) ) \r
0052100 ( B I T B L T N I L N
0052120 I L N I L W I N D O W ( I
0052140 M I N X 1 X 2 ) \r
0052160 ( I M I
0052200 N Y 1 Y 2 ) \r
0052220 ( A B S (
0052240 I D I F F E R E N C E X 1 X
0052260 2 ) ) \r
0052300 ( A B S ( I D I F F
0052320 E R E N C E Y 1 Y 2 ) ) \r
0052340
0052360 ' T E X T U R E \r
0052400 ' I N V E R
0052420 T N E W . T E X T . F E E D B
0052440 A C K . S H A D E )
0052460 006 006 ( * p u t c
0052500 u r s o r w h e r e t h e
0052520 c e n t e r w o u l d \r 006 001
0052540
*
0052620 006 006 b
0052640 e . ) 006 001 \r
0052660 ( 006 002 S H O W . F E E D B A C K
0052700 006 001 N E W . T E X T . F E E D
0052720 B A C K . C U R S O R ( I Q U
0052740 O T I E N T ( I P L U S X 1
0052760 X 2 ) \r
0053000
*
0053040 2 )
0053060 \r
0053100 ( I Q U O T I E N T ( I P
0053120 L U S Y 1 Y 2 ) \r
0053140
0053160 2 ) \r
0053200 W I N D O W ] ) \r
0053220 \r ( 006 004 S E L E C T I O N . P O
0053240 S I T I O N 006 001 \r [ L A M B
0053260 D A ( F I R S T P T S E C O
0053300 N D P T ) 006 006 006 001
0053320
0053340 006 006 ( * r
0053360 r b " 6 - M A Y - 8 3 1 8
0053400 : 0 9 " ) 006 001 \r
0053420 \r 006 006 (
0053440 * r e t u r n s t h e p l
0053460 a c e w h e r e t h e t e
0053500 x t s h o u l d g o f r o
0053520 m o n e o r t w o s e l
0053540 e c t i o n s i n \r 006 001
0053560 006 006 o p e n s
0053600 p a c e . ) 006 001 \r \r ( C
0053620 O N D \r ( S E C O
0053640 N D P T ( 006 002 c r e a t e 006 001
0053660 P O S I T I O N \r
0053700
0053720 X C O O R D _ ( I Q U O
0053740 T I E N T ( I P L U S ( 006 002
0053760 f e t c h 006 001 ( P O S I T I O
0054000 N X C O O R D ) 006 002 o f 006 001
0054020 F I R S T P T ) \r
0054040
*
0054100 ( 006 002
0054120 f e t c h 006 001 ( P O S I T I O
0054140 N X C O O R D ) 006 002 o f 006 001
0054160 S E C O N D P T ) ) \r
0054200
*
0054240 2 ) \r
0054260 Y
0054300 C O O R D _ ( I Q U O T I E
0054320 N T ( I P L U S ( 006 002 f e t
0054340 c h 006 001 ( P O S I T I O N Y
0054360 C O O R D ) 006 002 o f 006 001 F I
0054400 R S T P T ) \r
0054420
*
0054460 ( 006 002 f e t
0054500 c h 006 001 ( P O S I T I O N Y
0054520 C O O R D ) 006 002 o f 006 001 S E
0054540 C O N D P T ) ) \r
0054560
*
0054620 2 ) ) ) \r ( T
0054640 F I R S T P T ] ) \r \r ( 006 004 S K
0054660 E D . C L E A R . S E L E C T I
0054700 O N 006 001 \r [ L A M B D A (
0054720 S K W D O N T D I S P L A Y F
0054740 L G D O N T M A K E H I S T E
0054760 V E N T F L G ) 006 006 006 001
0055000 006 006 ( * r r b "
0055020 5 - D e c - 8 5 1 4 : 3 0 "
0055040 ) 006 001 \r
0055060
*
0055140 006 006 ( * c l e a r s t h e
0055160 s e l e c t i o n a n d r
0055200 e m o v e s i t \r 006 001
0055220
*
0055300 006 006 f r o m
0055320 t h e d i s p l a y . ) 006 001
0055340 \r ( O R D O N T M A K
0055360 E H I S T E V E N T F L G ( 006
0055400 002 S K E T C H . C L E A N U P 006
0055420 001 S K W ) ) \r ( C O N
0055440 D \r ( ( O R D O
0055460 N T D I S P L A Y F L G ( 006 002
0055500 S K E D . S E L E C T I O N . F
0055520 E E D B A C K 006 001 S K W ) ) \r
0055540 ( W I N D O W P
0055560 R O P S K W ' S E L E C T I
0055600 O N N I L ) \r
0055620 ( W I N D O W P R O P S K W
0055640 ' E X T E N D S E L E C T I O N
0055660 N I L ] ) \r \r ( 006 004 S K E T C
0055700 H . C L E A N U P 006 001 \r [ L
0055720 A M B D A ( S K E T C H W I N
0055740 D O W ) 006 006 006 001
0055760
0056000 006 006 (
0056020 * ; " E d i t e d 2 0 - F
0056040 e b - 8 7 1 7 : 5 1 b y r
0056060 r b " ) 006 001 \r
0056100
*
0056160 006 006 ( * f i n i s h e
0056200 s u p t h e c u r r e n t
0056220 l y b e i n g \r 006 001
0056240
*
0056320 006 006 e d i t e
0056340 d e l e m e n t . ) 006 001 \r
0056360 ( P R O G ( I N I T S E L
0056400 E C T I O N N E W E L T ) \r
0056420 ( C O N D \r
0056440 ( ( N O
0056460 T ( W I N D O W P S K E T C
0056500 H W I N D O W ) ) \r
0056520 \r 006
0056540 006 ( * o n l y o n e o f
0056560 t h e v i e w e r s s h o u
0056600 l d h a v e a n y c h a n
0056620 g e s b u t d o t h i s
0056640 i n l i e u o f \r 006 001
0056660 006 006 f i g u r i
0056700 n g o u t w h i c h o n e
0056720 . ) 006 001 \r \r
0056740 ( 006 002 f o r 006 001 V I E
0056760 W E R 006 002 i n 006 001 ( A L L .
0057000 S K E T C H . V I E W E R S (
0057020 I N S U R E . S K E T C H S K
0057040 E T C H W I N D O W ) ) \r
0057060 006 002
0057100 d o 006 001 ( 006 002 S K E T C H . C
0057120 L E A N U P 006 001 V I E W E R )
0057140 ) ) \r
0057160 ( ( S E T Q I N I T S E L E C
0057200 T I O N ( W I N D O W P R O P
0057220 S K E T C H W I N D O W ' C
0057240 H A N G E D T E X T E L T N I
0057260 L ) ) \r \r
0057300 006 006 ( * a l
0057320 s o c h e c k s t o s e e
0057340 i f t h e c u r r e n t
0057360 s e l e c t i o n w a s e d
0057400 i t e d a n d m a k e s a
0057420 h i s t o r y \r 006 001
0057440 006 006 e v e n t i f
0057460 n e c e s s a r y . ) 006 001 \r \r
0057500 [ S
0057520 E T Q N E W E L T ( 006 002 f e
0057540 t c h 006 001 ( S C R E E N E L T
0057560 G L O B A L P A R T ) 006 002 o
0057600 f 006 001 ( 006 002 f e t c h 006 001 (
0057620 T E X T E L T S E L E C T I O N
0057640 S K T E X T E L T ) \r
0057660
*
0057740 006 002 o f 006
0057760 001 ( O R ( W I N D O W P R O
0060000 P S K E T C H W I N D O W \r
0060020
*
0060120 ' S E L
0060140 E C T I O N ) \r
0060160
*
0060240 ( R
0060260 E T U R N ] \r
0060300 ( C O N D \r
0060320 ( ( P O
0060340 S I T I O N P I N I T S E L E
0060360 C T I O N ) \r
0060400 \r 006 006 ( *
0060420 a d d a n A D D e v e n
0060440 t b e c a u s e p r e v i o
0060460 u s l y t h e r e w a s n
0060500 o t h i n g h e r e . ) 006 001 \r
0060520 \r
0060540 ( S K . A D D . H I S T E
0060560 V E N T ' A D D ( L I S T
0060600 N E W E L T ) \r
0060620
0060640 S K E T C H W I N D O W ) \r
0060660
0060700 ( S K . C H E C K . E N D . I
0060720 N I T I A L . E D I T S K E T
0060740 C H W I N D O W N E W E L T )
0060760 ) \r
0061000 ( T ( 006 002 S K . E N T E
0061020 R . E D I T . C H A N G E 006 001
0061040 S K E T C H W I N D O W ( 006 002
0061060 f e t c h 006 001 ( S C R E E N E
0061100 L T G L O B A L P A R T ) \r
0061120
*
0061200 006 002 o f 006 001
0061220 ( 006 002 f e t c h 006 001 ( T E X T
0061240 E L T S E L E C T I O N S K T
0061260 E X T E L T ) \r
0061300
*
0061360 006 002 o f 006 001 I
0061400 N I T S E L E C T I O N ) ) \r
0061420
0061440 N E W E L T
0061460 ] ) \r \r ( 006 004 S K . E N T E R .
0061500 E D I T . C H A N G E 006 001 \r
0061520 [ L A M B D A ( V I E W E R
0061540 O L D E L T N E W E L T ) 006 006
0061560 006 001
0061600 006
0061620 006 ( * r r b " 3 - J a n -
0061640 8 6 1 8 : 4 8 " ) 006 001 \r
0061660 \r
0061700 006 006 ( * a d d s a h i
0061720 s t o r y e v e n t f o r
0061740 t h e c h a n g e o p e r a
0061760 t i o n t h a t o c c u r s
0062000 a t t h e e n d o f a
0062020 \r 006 001 006 006
0062040 s e r i e s o f e d i t s
0062060 a n d c a l l s t h e w h
0062100 e n c h a n g e d f u n c t
0062120 i o n . ) 006 001 \r \r ( S K
0062140 . C H E C K . W H E N C H A N G
0062160 E D F N V I E W E R O L D E
0062200 L T ' D A T A ( 006 002 f e t c
0062220 h 006 001 ( T E X T L I S T O F
0062240 C H A R A C T E R S ) \r
0062260
*
0062320 006
0062340 002 o f 006 001 ( 006 002 f e t c h 006 001
0062360 ( G L O B A L P A R T I N D
0062400 I V I D U A L G L O B A L P A R
0062420 T ) \r
0062440
*
0062500 006 002 o f
0062520 006 001 N E W E L T ) ) \r
0062540 ( 006 002 f e t c h 006
0062560 001 ( T E X T L I S T O F C H
0062600 A R A C T E R S ) 006 002 o f 006 001
0062620 ( 006 002 f e t c h 006 001 ( G L O
0062640 B A L P A R T I N D I V I D U
0062660 A L G L O B A L P A R T ) 006 002
0062700 o f 006 001 O L D E L T ) ) ) \r
0062720 ( S K . A D D . H I S T E
0062740 V E N T ' C H A N G E ( L I
0062760 S T ( 006 002 c r e a t e 006 001 S
0063000 K H I S T O R Y C H A N G E S P
0063020 E C \r
0063040
0063060 O L
0063100 D E L T _ O L D E L T \r
0063120
*
0063160 N E W E L T
0063200 _ N E W E L T \r
0063220
*
0063260 P R O P E R T Y _ '
0063300 D A T A \r
0063320
*
0063360 N E W V A L U E _ ( 006 002 f e
0063400 t c h 006 001 ( T E X T L I S T
0063420 O F C H A R A C T E R S ) \r
0063440
*
0063520 006 002 o f 006 001 ( 006
0063540 002 f e t c h 006 001 ( G L O B A L
0063560 P A R T I N D I V I D U A L G
0063600 L O B A L P A R T ) \r
0063620
*
0063700 006 002 o f 006 001
0063720 N E W E L T ) ) \r
0063740
*
0064000 O L D V A L U E _
0064020 ( 006 002 f e t c h 006 001 ( T E X T
0064040 L I S T O F C H A R A C T E R
0064060 S ) \r
0064100
*
0064140 006 002 o f
0064160 006 001 ( 006 002 f e t c h 006 001 ( G
0064200 L O B A L P A R T I N D I V I
0064220 D U A L G L O B A L P A R T ) \r
0064240
*
0064320 006
0064340 002 o f 006 001 O L D E L T ) ) ) \r
0064360
*
0064420 ( L I S T O L D E L T
0064440 N E W E L T ) ) \r
0064460 V I E W E R ] ) \r \r (
0064500 006 004 S K E D . R E M O V E . O T
0064520 H E R . S E L E C T I O N S 006 001
0064540 \r [ L A M B D A ( S K W )
0064560 006 006 006 001
0064600
*
0064640 006 006 ( * r r b " 5 - D
0064660 e c - 8 5 1 2 : 1 2 " ) 006 001 \r
0064700 \r
0064720 006 006 ( * r e m o v e
0064740 s a n d u n d i s p l a y s
0064760 a n y s e l e c t i o n s
0065000 i n a n y o t h e r w i n
0065020 d o w s o n t o t h e s a
0065040 m e \r 006 001
0065060 006 006 s k e t c h a s S K W .
0065100 ) 006 001 \r \r ( 006 002 f o r 006
0065120 001 S K E T C H W I N D O W 006
0065140 002 i n 006 001 ( A L L . S K E T C
0065160 H . V I E W E R S ( S K E T C
0065200 H . F R O M . V I E W E R S K
0065220 W ) ) 006 002 w h e n 006 001 ( N E
0065240 Q S K E T C H W I N D O W S
0065260 K W ) \r 006 002 d o 006
0065300 001 ( 006 002 S K E D . C L E A R .
0065320 S E L E C T I O N 006 001 S K E T
0065340 C H W I N D O W ] ) \r \r ( 006 004 S
0065360 K E D . E X T E N D . S E L E C
0065400 T I O N 006 001 \r [ L A M B D A
0065420 ( S K W ) 006 006 006 001
0065440
*
0065500 006 006 ( * r r b
0065520 " 1 7 - J u l - 8 5 2 0 : 1
0065540 1 " ) 006 001 \r
0065560 \r 006 006 ( *
0065600 t h e u s e r h a s l e f
0065620 t b u t t o n e d i n a
0065640 s k e t c h w i n d o w . \r 006
0065660 001 006 006 P u t
0065700 t h e c a r e t t h e r e
0065720 . ) 006 001 \r
0065740
*
0066020 006 006 ( * t a k e d o w n
0066040 t h e c u r r e n t s e l
0066060 e c t i o n . ) 006 001 \r (
0066100 P R O G [ ( S E L E C T I O N
0066120 ( W I N D O W P R O P S K W
0066140 ' S E L E C T I O N ) ) \r
0066160 ( E X T E N S
0066200 I O N ( W I N D O W P R O P
0066220 S K W ' E X T E N D S E L E C
0066240 T I O N ] \r
0066260 ( R E T U R N ( C O N D \r
0066300
0066320 [ S E L E C T I O N ( C
0066340 O N D \r
0066360
0066400 [ ( 006 002 N E W . T
0066420 E X T . S E L E C T I O N P 006 001
0066440 S E L E C T I O N ) \r
0066460 \r
0066500 006 006 ( * i f t h e p r e
0066520 v i o u s s e l e c t i o n
0066540 w a s i n n e w t e x t ,
0066560 t r e a t t h e r i g h t
0066600 t h e s a m e a s t h e
0066620 \r 006 001 006 006
0066640 l e f t . ) 006 001 \r \r
0066660
0066700 ( 006
0066720 002 S K E D . M O V E . S E L E C
0066740 T I O N 006 001 S K W ( N O T
0066760 ( W I N D O W P R O P S K W
0067000 ' U S E G R I D ] \r
0067020
0067040 ( T
0067060 ( 006 002 S K E D . S E L E C T I O
0067100 N . F E E D B A C K 006 001 S K W
0067120 ) \r
0067140
*
0067200 006
0067220 006 ( * e x t e n d w i t h i
0067240 n t e x t . ) 006 001 \r
0067260 \r
0067300 006 006 ( * M A Y B E S H O U L
0067320 D D O - \r 006 001
0067340 006 006 i f t h e r e i s
0067360 a l r e a d y a n e x t e
0067400 n s i o n , m a k e t h e
0067420 f i x e d p o i n t b e t
0067440 h e o n e o f t h e t w
0067460 o \r 006 001 006
0067500 006 s e l e c t i o n s t h a t
0067520 i s f a r t h e s t f r o
0067540 m t h e c u r r e n t p o
0067560 s i t i o n . ) 006 001 \r \r
0067600
*
0067640 ( 006 002 I N . T E X T . E X T
0067660 E N D 006 001 S E L E C T I O N
0067700 S K W ] \r
0067720 ( T \r
0067740 \r
0067760 006 006 ( * h e r e i s
0070000 a r i g h t b u t t o n b
0070020 e f o r e a n y l e f t o
0070040 n e s . \r 006 001
0070060 006 006 T r e a t a s i f i
0070100 t w e r e l e f t . ) 006 001 \r
0070120 \r
0070140 ( 006 002 S K E D
0070160 . M O V E . S E L E C T I O N 006
0070200 001 S K W ( N O T ( W I N D
0070220 O W P R O P S K W ' U S E G
0070240 R I D ] ) \r \r ( 006 004 S K E D . M
0070260 O V E . S E L E C T I O N 006 001 \r
0070300 [ L A M B D A ( S K W U
0070320 S E G R I D ) 006 006 006 001
0070340
*
0070400 006 006 ( * r r b " 1 1 - J u
0070420 l - 8 6 1 5 : 5 1 " ) 006 001 \r
0070440 \r
0070460 006 006 ( * t h e u s e
0070500 r h a s l e f t b u t t o
0070520 n e d i n a s k e t c h
0070540 w i n d o w . \r 006 001
0070560 006 006 P u t t h e c a
0070600 r e t t h e r e . ) 006 001 \r \r
0070620 ( 006 002 S K E D . C L E A R
0070640 . S E L E C T I O N 006 001 S K W
0070660 ) \r ( P R O G ( F E E
0070700 D B A C K X F E E D B A C K Y
0070720 O L D G R I D X O L D G R I
0070740 D Y O L D X O L D Y O L D
0070760 C U R F E E D B A C K C U R
0071000 I N T E X T I N I M A G E O B
0071020 J \r
0071040 S T A R T L I N E S T
0071060 A R T C H A R X Y ( D S P
0071100 ( W I N D O W P R O P S K W
0071120 ' D S P ) ) \r
0071140 ( S C A L E
0071160 ( V I E W E R . S C A L E S K
0071200 W ) ) \r
0071220 ( G R I D ( S K . G
0071240 R I D F A C T O R S K W ) ) )
0071260 \r ( 006 002 u n
0071300 t i l 006 001 ( M O U S E S T A T
0071320 E U P ) \r
0071340 006 002 d o 006 001 \r
0071360 \r
0071400 006 006 ( * t r a c k w i t h
0071420 t h e a p p r o p r i a t e
0071440 c a r e t d e p e n d i n g
0071460 u p o n w h e t h e r t h e
0071500 c u r s o r i s i n s i d
0071520 e \r 006 001 006
0071540 006 o f e x i s t i n g t e x
0071560 t o r n o t . ) 006 001 \r \r
0071600 ( S
0071620 E T Q X ( L A S T M O U S E
0071640 X D S P ) ) \r
0071660 ( S E T Q Y
0071700 ( L A S T M O U S E Y D S P )
0071720 ) \r
0071740 ( C O N D \r
0071760 ( ( O R
0072000 ( N E Q O L D X X ) \r
0072020
0072040 ( N E Q O L D Y Y
0072060 ) ) \r \r
0072100 006 006 ( * o n l
0072120 y l o o k f o r t h i n g
0072140 s w h e n t h e c u r s o
0072160 r p o s i t i o n h a s c
0072200 h a n g e d . ) 006 001 \r \r
0072220
0072240 ( S E T Q O L D X X ) \r
0072260
0072300 ( S E T Q O L D Y Y ) \r
0072320
0072340 [ C O N D \r
0072360
0072400 ( [ A N D ( S E T Q I N T
0072420 E X T \r
0072440
0072460 ( 006 002 f o r 006 001 E L T 006
0072500 002 i n 006 001 ( L O C A L S P E C
0072520 S . F R O M . V I E W E R S K
0072540 W ) \r
0072560
0072600 006 002 w h e n 006 001 ( S E
0072620 L E C T Q ( 006 002 f e t c h 006 001
0072640 ( S C R E E N E L T G T Y P
0072660 E ) 006 002 o f 006 001 E L T ) \r
0072700
*
0072740 ( T E X T (
0072760 A N D ( N E Q ( 006 002 f e t c
0073000 h 006 001 ( L O C A L T E X T L
0073020 O C A L F O N T ) \r
0073040
*
0073120 006 002 o f 006 001 ( 006
0073140 002 f e t c h 006 001 ( S C R E E N
0073160 E L T L O C A L P A R T ) \r
0073200
*
0073300 006 002 o f 006 001 E L T ) ) \r
0073320
*
0073400 ' S H A D E )
0073420 \r
0073440
*
0073500 ( S E T Q S T A R
0073520 T L I N E ( 006 002 I N T E X T 006
0073540 001 E L T X Y ) ) ) ) \r
0073560
*
0073620 ( T E X T B O X
0073640 ( A N D ( N E Q ( 006 002 f e
0073660 t c h 006 001 ( L O C A L T E X T
0073700 B O X L O C A L F O N T ) \r
0073720
*
0074000 006
0074020 002 o f 006 001 ( 006 002 f e t c h 006 001
0074040 ( S C R E E N E L T L O C A
0074060 L P A R T ) \r
0074100
*
0074160 006 002 o
0074200 f 006 001 E L T ) ) \r
0074220
*
0074300 ' S H A D E ) \r
0074320
*
0074400 ( I N S I D E ?
0074420 ( 006 002 f e t c h 006 001 ( L O C A
0074440 L T E X T B O X \r
0074460
*
0074560 L O C A L T E
0074600 X T B O X R E G I O N ) \r
0074620
*
0074720 006 002 o f 006 001 ( 006 002 f e t c h
0074740 006 001 ( S C R E E N E L T L O
0074760 C A L P A R T ) \r
0075000
*
0075100 006 002 o f 006 001 E L T ) ) \r
0075120
*
0075200 X
0075220 Y ) \r
0075240
*
0075300 ( S E T
0075320 Q S T A R T L I N E ( 006 002 C
0075340 L O S E S T . L I N E 006 001 E L
0075360 T Y ) ) ) ) \r
0075400
*
0075440 N I L ) 006 002 d o 006 001 ( R
0075460 E T U R N E L T ) ) ) \r
0075500
0075520 ( N O T (
0075540 S K . E L E M E N T . P R O T E
0075560 C T E D ? ( 006 002 f e t c h 006 001
0075600 ( S C R E E N E L T G L O B
0075620 A L P A R T ) 006 002 o f 006 001 I
0075640 N T E X T ) \r
0075660
*
0075720 ' C H A N G E ]
0075740 006 006 ( * i n s i d e
0075760 o f a t e x t e l e m e n
0076000 t . ) 006 001 \r
0076020 ( S
0076040 E T Q F E E D B A C K C U R
0076060 I N . T E X T . F E E D B A C K
0076100 . C U R S O R ) \r
0076120
0076140 ( S E T Q F E E D B A C K X
0076160 ( 006 002 C H A R . B E G I N 006 001
0076200 ( S E T Q S T A R T C H A R
0076220 ( 006 002 C L O S E S T . C H A R
0076240 006 001 X S T A R T L I N E I
0076260 N T E X T \r
0076300
*
0076400 D S P ) ) \r
0076420
*
0076460 S T A R T L I N E
0076500 I N T E X T D S P ) ) \r
0076520
0076540 ( S E T Q F E E D
0076560 B A C K Y ( 006 002 L I N E . B E
0076600 G I N 006 001 S T A R T L I N E
0076620 I N T E X T ) ) ) \r
0076640
0076660 ( T ( S E T Q F E E D B A
0076700 C K C U R N E W . T E X T . F
0076720 E E D B A C K . C U R S O R ) \r
0076740
0076760 ( C O N D \r
0077000
0077020 ( U S
0077040 E G R I D ( S E T Q F E E D
0077060 B A C K X ( M A P . W I N D O
0077100 W . O N T O . G R I D X S C
0077120 A L E G R I D ) ) \r
0077140
0077160 (
0077200 S E T Q F E E D B A C K Y (
0077220 M A P . W I N D O W . O N T O .
0077240 G R I D Y S C A L E G R I
0077260 D ) ) ) \r
0077300
0077320 ( T
0077340
0077360 006 006 ( * n o g r i d ) 006
0077400 001 \r
0077420
0077440 ( S E T Q F E E D B A C K
0077460 X X ) \r
0077500
0077520 ( S E T Q F E E D B
0077540 A C K Y Y ] \r
0077560 ( C O N
0077600 D \r
0077620 ( ( O R ( N
0077640 E Q O L D G R I D X F E E D
0077660 B A C K X ) \r
0077700
0077720 ( N E Q O L D G R I D Y
0077740 F E E D B A C K Y ) \r
0077760
0100000 ( N E Q O L D
0100020 C U R F E E D B A C K C U R )
0100040 ) \r
0100060 ( A N D O
0100100 L D G R I D X ( 006 002 S H O W .
0100120 F E E D B A C K 006 001 O L D C U
0100140 R O L D G R I D X O L D G R
0100160 I D Y S K W ) ) \r
0100200
0100220 ( 006 002 S H O W . F E E D B A
0100240 C K 006 001 ( S E T Q O L D C U
0100260 R F E E D B A C K C U R ) \r
0100300
0100320 ( S
0100340 E T Q O L D G R I D X F E E
0100360 D B A C K X ) \r
0100400
0100420 ( S E T Q O L D
0100440 G R I D Y F E E D B A C K Y )
0100460 \r
0100500
0100520 S K W ) ) )
0100540 006 006
0100560 ( * g i v e t h e c o o r
0100600 d i n a t e d i s p l a y w
0100620 i n d o w \r 006 001
0100640
*
0100720 006 006 a s h o t . )
0100740 006 001 \r
0100760 ( S K E T C H W .
0101000 U P D A T E . L O C A T O R S
0101020 S K W ) ) ) \r
0101040 006 002 f i n a l l y 006 001
0101060 ( A N D O L D G R I D X ( 006
0101100 002 S H O W . F E E D B A C K 006 001
0101120 O L D C U R O L D G R I D X
0101140 O L D G R I D Y S K W ) ) \r
0101160
0101200 ( C O N D \r
0101220 (
0101240 ( E Q O L D C U R I N . T E
0101260 X T . F E E D B A C K . C U R S
0101300 O R ) 006 006 ( * s e l e c
0101320 t i o n i s e x i s t i n g
0101340 t e x t ) 006 001 \r
0101360
0101400 ( 006 002 S K E D . S E T . S E L E
0101420 C T I O N 006 001 ( 006 002 C R E A T
0101440 E . T E X T . S E L E C T I O N
0101460 006 001 I N T E X T S T A R T L
0101500 I N E S T A R T C H A R O L
0101520 D G R I D X \r
0101540
*
0101600 O L D G R I
0101620 D Y D S P ) \r
0101640
0101660 S K W ) ) \r
0101700
0101720 ( O L D G R I D X ( 006 002 S
0101740 K E D . S E T . S E L E C T I O
0101760 N 006 001 ( 006 002 c r e a t e 006 001
0102000 P O S I T I O N \r
0102020
*
0102100 X C O O R D _ O L D
0102120 G R I D X \r
0102140
*
0102220 Y C O O R D _ O L D G R I
0102240 D Y ) \r
0102260
0102300 S K W ] )
0102320 \r \r ( 006 004 C R E A T E . T E X T
0102340 . S E L E C T I O N 006 001 \r [
0102360 L A M B D A ( T E X T E L T
0102400 L I N E # C H A R # L F T
0102420 B T M S T R M ) 006 006 006 001
0102440 006 006
0102460 ( * r r b " 2 3 - A u g - 8
0102500 4 1 3 : 4 8 " ) 006 001 \r
0102520 \r
0102540 006 006 ( * c r e a t e s a
0102560 t e x t s e l e c t i o n o
0102600 b j e c t . I f L F T o r
0102620 B T M a r e N I L t h e
0102640 y a r e c o m p u t e d \r
0102660 006 001 006 006 f r
0102700 o m t h e o t h e r a r g
0102720 u m e n t s . ) 006 001 \r \r
0102740 ( 006 002 c r e a t e 006 001 T E X T
0102760 E L T S E L E C T I O N \r
0103000 S K T E X T E L
0103020 T _ T E X T E L T \r
0103040 S K L I N E # _
0103060 L I N E # \r
0103100 S K C H A R # _ C H A R
0103120 # \r S K L
0103140 E F T _ ( O R L F T ( 006
0103160 002 C H A R . B E G I N 006 001 C H
0103200 A R # L I N E # T E X T E L
0103220 T S T R M ) ) \r
0103240 S K B O T T O M _ (
0103260 O R B T M ( 006 002 L I N E . B
0103300 E G I N 006 001 L I N E # T E X
0103320 T E L T ] ) \r \r ( 006 004 S K E D .
0103340 S E L E C T I O N . F E E D B A
0103360 C K 006 001 \r [ L A M B D A (
0103400 S K E T C H W ) 006 006 006 001
0103420
*
0103460 006 006 ( * r r b "
0103500 1 4 - S e p - 8 4 1 8 : 2 0 "
0103520 ) 006 001 \r \r
0103540 006 006 ( * d i
0103560 s p l a y s t h e f e e d b
0103600 a c k t o t h e u s e r
0103620 a b o u t w h a t t h e c
0103640 u r r e n t s e l e c t i o n
0103660 i s . \r 006 001
0103700 006 006 R e t u r n s N I L i
0103720 f t h e r e i s n o s e
0103740 l e c t i o n , T o t h e r
0103760 w i s e . ) 006 001 \r \r ( P
0104000 R O G ( ( S E L E C T I O N
0104020 ( W I N D O W P R O P S K E T
0104040 C H W ' S E L E C T I O N ) )
0104060 \r E X T E
0104100 N D S E L E C T I O N ) \r
0104120 ( O R S E L E C
0104140 T I O N ( R E T U R N ) ) \r
0104160 ( S E T Q E
0104200 X T E N D S E L E C T I O N (
0104220 W I N D O W P R O P S K E T C
0104240 H W ' E X T E N D S E L E C T
0104260 I O N ) ) \r
0104300 [ C O N D \r
0104320 [ ( 006 002 N E W . T E X T .
0104340 S E L E C T I O N P 006 001 S E L
0104360 E C T I O N )
0104400 006 006 ( * o u t s
0104420 i d e o f e x i s t i n g
0104440 t e x t r e g i o n ) 006 001 \r
0104460 ( C O
0104500 N D \r
0104520 ( E X T E N D S E L E C
0104540 T I O N \r
0104560 \r 006 006 ( *
0104600 d i s p l a y a b o x w h
0104620 o s e c e n t e r w i l l
0104640 b e u s e d a s t h e c
0104660 e n t e r o f m a s s o f
0104700 t h e t e x t . ) 006 001 \r \r
0104720
0104740 ( 006 002 S H O W . F
0104760 E E D B A C K . B O X 006 001 S E
0105000 L E C T I O N E X T E N D S E
0105020 L E C T I O N S K E T C H W )
0105040 ) \r
0105060 ( T ( 006 002 S H O W . F E
0105100 E D B A C K 006 001 N E W . T E X
0105120 T . F E E D B A C K . C U R S O
0105140 R ( 006 002 f e t c h 006 001 ( P O
0105160 S I T I O N X C O O R D ) 006
0105200 002 o f 006 001 S E L E C T I O N )
0105220 \r
0105240 ( 006 002 f
0105260 e t c h 006 001 ( P O S I T I O N
0105300 Y C O O R D ) 006 002 o f 006 001
0105320 S E L E C T I O N ) \r
0105340
0105360 S K E T C H W ] \r
0105400 ( T (
0105420 C O N D \r
0105440 ( E X T E N D S
0105460 E L E C T I O N \r
0105500 \r 006
0105520 006 ( * d i s p l a y a b o
0105540 x w h o s e c e n t e r w
0105560 i l l b e u s e d a s t
0105600 h e c e n t e r o f m a s
0105620 s o f t h e t e x t . ) 006
0105640 001 \r \r
0105660 ( 006 002
0105700 S H O W . E X T E N D E D . S E
0105720 L E C T I O N . F E E D B A C K
0105740 006 001 S E L E C T I O N E X T
0105760 E N D S E L E C T I O N S K E
0106000 T C H W ) ) \r
0106020 ( T ( 006 002
0106040 S H O W . F E E D B A C K 006 001
0106060 I N . T E X T . F E E D B A C K
0106100 . C U R S O R ( 006 002 f e t c h
0106120 006 001 ( T E X T E L T S E L E C
0106140 T I O N S K L E F T ) \r
0106160
*
0106240 006 002 o
0106260 f 006 001 S E L E C T I O N ) \r
0106300
0106320 ( 006 002 f
0106340 e t c h 006 001 ( T E X T E L T S
0106360 E L E C T I O N S K B O T T O
0106400 M ) 006 002 o f 006 001 S E L E C T
0106420 I O N ) \r
0106440
0106460 S K E T C H W ] \r
0106500 ( R E T U R N T ] )
0106520 \r \r ( 006 004 S K E D . S E T . E X
0106540 T E N D S E L E C T I O N 006 001 \r
0106560 [ L A M B D A ( S E L E C
0106600 T I O N S K E T C H W ) 006 006 006
0106620 001
0106640
0106660 006 006 ( * r r b " 3 0 - A P
0106700 R - 8 3 1 6 : 3 6 " ) 006 001 \r
0106720 \r
0106740 006 006 ( * s t o r e s
0106760 t h e s e l e c t i o n f o
0107000 r a s k e t c h w i n d o
0107020 w a n d d i s p l a y s i
0107040 t s f e e d b a c k . ) 006 001 \r
0107060 \r ( W I N D O W P R O P
0107100 S K E T C H W ' E X T E N D
0107120 S E L E C T I O N S E L E C T
0107140 I O N ) \r ( 006 002 S K E D
0107160 . S E L E C T I O N . F E E D B
0107200 A C K 006 001 S K E T C H W ] ) \r
0107220 \r ( 006 004 S K E D . S E T . S E L
0107240 E C T I O N 006 001 \r [ L A M B
0107260 D A ( S E L E C T I O N S K
0107300 E T C H W ) 006 006 006 001
0107320
0107340 006 006 ( * r
0107360 r b " 2 - M A Y - 8 3 1 2
0107400 : 2 9 " ) 006 001 \r
0107420 \r 006 006 (
0107440 * s t o r e s t h e s e l
0107460 e c t i o n f o r a s k e
0107500 t c h w i n d o w a n d d
0107520 i s p l a y s i t s f e e d
0107540 b a c k . ) 006 001 \r \r ( W
0107560 I N D O W P R O P S K E T C H
0107600 W ' S E L E C T I O N S E L
0107620 E C T I O N )
0107640 006 006 ( * c l e a
0107660 r t h e e x t e n s i o n
0107700 a l s o . ) 006 001 \r ( W I
0107720 N D O W P R O P S K E T C H W
0107740 ' E X T E N D S E L E C T I O
0107760 N N I L ) \r ( 006 002 S K
0110000 E D . S E L E C T I O N . F E E
0110020 D B A C K 006 001 S K E T C H W ]
0110040 ) \r \r ( 006 004 L I N E . B E G I N
0110060 006 001 \r [ L A M B D A ( L I
0110100 N E # T E X T E L T ) 006 006 006 001
0110120
*
0110160 006 006 ( * r r b " 3 0
0110200 - A P R - 8 3 1 5 : 4 5 " ) 006
0110220 001 \r \r
0110240 006 006 ( * r e t u
0110260 r n s t h e b o t t o m o
0110300 f t h e L I N E # t h t
0110320 e x t e l e m e n t o f T
0110340 E X T E L T . ) 006 001 \r \r
0110360 ( 006 002 f e t c h 006 001 ( R E G I
0110400 O N B O T T O M ) 006 002 o f 006
0110420 001 ( C A R ( N T H ( 006 002 f
0110440 e t c h 006 001 ( L O C A L T E X
0110460 T L I N E R E G I O N S ) 006
0110500 002 o f 006 001 ( 006 002 f e t c h 006 001
0110520 ( S C R E E N E L T L O C A
0110540 L P A R T \r
0110560
*
0110660 ) \r
0110700
*
0111000 006 002 o
0111020 f 006 001 T E X T E L T ) ) \r
0111040
*
0111100 L I N E # ] ) \r \r (
0111120 006 004 S E L E C T I O N . G R E A
0111140 T E R P 006 001 \r [ L A M B D A
0111160 ( S E L 1 S E L 2 ) 006 006 006 001
0111200
*
0111240 006 006 ( * r r b
0111260 " 1 - M A Y - 8 3 1 1 : 3
0111300 1 " ) 006 001 \r
0111320
*
0111400 006 006 ( * r e t u r n T
0111420 i f S E L 1 a p p e a r s
0111440 b e f o r e \r 006 001
0111460
*
0111540 006 006 S E L 2 ) 006
0111560 001 \r ( P R O G ( L 1
0111600 L 2 ) \r ( R
0111620 E T U R N ( C O N D \r
0111640
0111660 ( ( I G R E A T E R P ( S E
0111700 T Q L 2 ( 006 002 f e t c h 006 001
0111720 ( T E X T E L T S E L E C T I
0111740 O N S K L I N E # ) 006 002 o f
0111760 006 001 S E L 2 ) ) \r
0112000
0112020 ( S E T Q L 1
0112040 ( 006 002 f e t c h 006 001 ( T E X T
0112060 E L T S E L E C T I O N S K L
0112100 I N E # ) 006 002 o f 006 001 S E L
0112120 1 ) ) ) \r
0112140 T ) \r
0112160
0112200 ( ( E Q L 1 L 2 )
0112220
0112240 006 006 ( *
0112260 l o o k a t c h a r a c t e
0112300 r s ) 006 001 \r
0112320 ( I G R
0112340 E A T E R P ( 006 002 f e t c h 006
0112360 001 ( T E X T E L T S E L E C T
0112400 I O N S K C H A R # ) 006 002 o
0112420 f 006 001 S E L 2 ) \r
0112440
0112460 ( 006 002 f e t c h 006
0112500 001 ( T E X T E L T S E L E C T
0112520 I O N S K C H A R # ) 006 002 o
0112540 f 006 001 S E L 1 ] ) \r \r ( 006 004 S
0112560 K . W O R D . B R E A K . C L A
0112600 S S 006 001 \r [ L A M B D A (
0112620 C H C O D E ) 006 006 006 001
0112640
*
0112700 006 006 ( * r r b "
0112720 1 1 - J u l - 8 6 1 7 : 1 7 "
0112740 ) 006 001 \r
0112760
*
0113040 006 006 ( * v e r s i o n o f
0113060 T E D I T . W O R D G E T t
0113100 h a t m a k e s \r 006 001
0113120
*
0113200 006 006 s u r e
0113220 T E D I T i s l o a d e d
0113240 . ) 006 001 \r ( C O N D \r
0113260 ( ( D E F I N E D P
0113300 ( F U N C T I O N T E D I T
0113320 . W O R D G E T ) ) \r
0113340 ( T E D I T . W O R D G E
0113360 T C H C O D E ) ) \r
0113400 ( ( E Q C H C O D E 3 2
0113420 )
0113440
0113460 006 006 ( * s p a
0113500 c e , r e t u r n t h e c
0113520 o d e t e d i t u s e s \r
0113540 006 001
0113560
*
0113620 006
0113640 006 f o r w o r d s e p a r a
0113660 t o r s ) 006 001 \r
0113700 2 2 ) \r ( T
0113720
*
0114000 006 006 ( * t h i s p r o b a
0114020 b l y i s n ' t r i g h t
0114040 b u t \r 006 001
0114060
*
0114140 006 006 s h o u l d d o
0114160 s o m e t h i n g r e a s o n
0114200 a b l e . ) 006 001 \r
0114220 ( G E T S Y N T A X C H
0114240 C O D E ( G E T R E A D T A B
0114260 L E ] ) \r \r ( 006 004 S K . G E T S
0114300 Y N T A X 006 001 \r [ L A M B D
0114320 A ( C H A R C O D E ) 006 006 006 001
0114340
*
0114400 006 006 ( * r r
0114420 b " 1 1 - J u l - 8 6 1 7 :
0114440 1 8 " ) 006 001 \r
0114460 \r 006 006 ( *
0114500 v e r s i o n o f g e t s
0114520 y n t a x t h a t u s e s
0114540 t h e T E D I T t a b l e
0114560 i f i t i s a v a i l a b
0114600 l e , o t h e r w i s e \r 006
0114620 001 006 006 t h e
0114640 t e r m i n a l . ) 006 001 \r \r
0114660 ( C O N D \r
0114700 ( ( D E F I N E D P ( F U N C
0114720 T I O N T E D I T . G E T S Y
0114740 N T A X ) ) \r (
0114760 T E D I T . G E T S Y N T A X
0115000 C H A R C O D E T E D I T . R
0115020 E A D T A B L E ) ) \r
0115040 ( T ( G E T S Y N T A X
0115060 C H A R C O D E ( G E T T E R
0115100 M T A B L E ] ) \r ) \r ( D E C L
0115120 A R E % : D O N T C O P Y \r
0115140 ( D E C L A R E % : E V A L @
0115160 C O M P I L E \r \r ( R E C O R D
0115200 006 002 T E X T E L T S E L E C T
0115220 I O N 006 001 ( S K T E X T E L T
0115240 S K L I N E # S K C H A R #
0115260 S K L E F T S K B O T T O M
0115300 ) ) \r ) \r ) \r ( R E A D V A R -
0115320 F R O M - S T R I N G ' I N .
0115340 T E X T . F E E D B A C K . C U
0115360 R S O R " ( { ( R E A D B I T
0115400 M A P ) ( 1 6 1 6 \r % " @ @ @
0115420 @ % " \r % " @ @ @ @ % " \r % " L
0115440 @ @ @ % " \r % " L @ @ @ % " \r %
0115460 " L @ @ @ % " \r % " L @ @ @ % "
0115500 \r % " L @ @ @ % " \r % " L @ @ @
0115520 % " \r % " L @ @ @ % " \r % " L @
0115540 @ @ % " \r % " L @ @ @ % " \r % "
0115560 L @ @ @ % " \r % " L @ @ @ % " \r
0115600 % " L @ @ @ % " \r % " L @ @ @ %
0115620 " \r % " L @ @ @ % " ) } 1 .
0115640 0 ) \r " ) \r ( R E A D V A R -
0115660 F R O M - S T R I N G ' N E W
0115700 . T E X T . F E E D B A C K . C
0115720 U R S O R " ( { ( R E A D B I
0115740 T M A P ) ( 1 6 1 6 \r % " @ @
0115760 @ @ % " \r % " @ @ @ @ % " \r % "
0116000 @ @ @ @ % " \r % " @ @ @ @ % " \r
0116020 % " @ @ @ @ % " \r % " @ @ @ @ %
0116040 " \r % " @ @ @ @ % " \r % " @ @ @
0116060 @ % " \r % " @ @ @ @ % " \r % " @
0116100 @ @ @ % " \r % " @ @ @ @ % " \r %
0116120 " @ H @ @ % " \r % " A L @ @ % "
0116140 \r % " C F @ @ % " \r % " F C @ @
0116160 % " \r % " L A H @ % " ) } 4
0116200 . 4 ) \r " ) \r ( R E A D V A R
0116220 - F R O M - S T R I N G ' N E
0116240 W . T E X T . F E E D B A C K .
0116260 S H A D E " 8 \r " ) \r ( R E A
0116300 D V A R - F R O M - S T R I N G
0116320 ' S E L E C T I O N . H I G H
0116340 L I G H T . S H A D E " 6 5 5
0116360 3 5 \r " ) \r ( D E C L A R E % :
0116400 D O E V A L @ C O M P I L E
0116420 D O N T C O P Y \r \r ( G L O B A
0116440 L V A R S I N . T E X T . F E
0116460 E D B A C K . C U R S O R N E
0116500 W . T E X T . F E E D B A C K .
0116520 C U R S O R N E W . T E X T .
0116540 F E E D B A C K . S H A D E \r
0116560 S E L E C T I O N
0116600 . H I G H L I G H T . S H A D E
0116620 ) \r ) \r \r \r \r 006 004 ( * e d i t
0116640 t i n g f u n c t i o n s ) 006
0116660 001 \r \r ( D E F I N E Q \r \r ( 006 004
0116700 W B . E D I T O R 006 001 \r [ L
0116720 A M B D A ( S K W ) 006 006 006 001
0116740
*
0117000 006 006 (
0117020 * r r b " 1 7 - J u l - 8 5
0117040 1 5 : 5 3 " ) 006 001 \r
0117060 \r
0117100 006 006 ( * t h e p r o c e s s
0117120 t h a t l o o k s f o r
0117140 c h a r a c t e r s a n d a
0117160 d d s t h e m t o t h e
0117200 w h i t e b o a r d a s \r
0117220 006 001 006 006 t e
0117240 x t e l e m e n t s . ) 006 001 \r
0117260 \r
0117300 006 006 ( * s a v e t
0117320 h e v a l u e o f d e l
0117340 a s a n i n t e r r u p t
0117360 c h a r a c t e r s o i t
0117400 i s r e s t o r e d w h e n
0117420 t h i s \r 006 001
0117440 006 006 p r o c e s s e x i
0117460 t s . T h i s i s a l s o
0117500 d o n e b y T T Y E N T R
0117520 Y F N a n d T T Y E X I T F
0117540 N o n t h e p r o c e s s
0117560 . ) 006 001 \r \r ( R E S E T
0117600 F O R M ( I N T E R R U P T C
0117620 H A R 1 2 7 T ) \r
0117640 ( P R O G ( C H A
0117660 R S E D I T I N P R O G R E S
0117700 S ) \r
0117720 ( T T Y D I S P L A Y S
0117740 T R E A M S K W ) \r
0117760 L P ( C O N
0120000 D \r
0120020 ( ( \ S Y S B U F P
0120040 ) \r \r
0120060 006 006 ( * a c h
0120100 a r a c t e r h a s b e e n
0120120 t y p e d , r e a d a l l
0120140 o f t h e c h a r a c t e
0120160 r s , d e l e t e t h e c
0120200 u r r e n t \r 006 001
0120220 006 006 s e l e c t i o n
0120240 i f e x t e n d e d a n d
0120260 i n s e r t t h e n e w c
0120300 h a r a c t e r s . ) 006 001 \r \r
0120320
0120340 ( 006 002 R E S E T . L I N
0120360 E . B E I N G . I N P U T 006 001
0120400 S K W ) \r
0120420 ( 006 002 S K E
0120440 D . I N S E R T 006 001 ( 006 002 G E
0120460 T A L L C H A R S 006 001 T ) \r
0120500
0120520 S K W ) \r
0120540
0120560 ( S E T Q E D I T I
0120600 N P R O G R E S S T ) ) \r
0120620
0120640 ( ( A N D E D I T I N P R
0120660 O G R E S S ( N O T ( I N S
0120700 I D E P ( W I N D O W P R O P
0120720 S K W ' R E G I O N ) \r
0120740
*
0121020 L A S T M O U S E X L A
0121040 S T M O U S E Y ) ) ) \r
0121060
0121100 ( 006 002 C L E A N U P . E D I T
0121120 006 001 S K W ) \r
0121140 ( S E
0121160 T Q E D I T I N P R O G R E S
0121200 S N I L ) ) )
0121220 006 006 ( * l e t t h
0121240 e m o u s e p r o c e s s
0121260 r u n . ) 006 001 \r
0121300 ( B L O C K )
0121320 \r
0121340 ( G O L P ] ) \r \r ( 006 004 S
0121360 K . T T Y E N T R Y F N 006 001 \r
0121400 [ L A M B D A ( S K P R O C
0121420 ) 006 006 006 001
0121440
*
0121500 006 006 ( * r r b " 2 0 - J u n
0121520 - 8 5 1 4 : 1 3 " ) 006 001 \r
0121540 \r
0121560 006 006 ( * t h e s k e t
0121600 c h p r o c e s s j u s t
0121620 g o t t h e t t y . T u r
0121640 n s o f f D E L a s a n
0121660 i n t e r r u p t ) 006 001 \r \r
0121700 ( P R O C E S S P R O P
0121720 S K P R O C ' O L D I N T E R
0121740 R U P T V A L U E ( I N T E R
0121760 R U P T C H A R 1 2 7 N I L
0122000 ] ) \r \r ( 006 004 S K . T T Y E X I
0122020 T F N 006 001 \r [ L A M B D A
0122040 ( S K P R O C ) 006 006 006 001
0122060
*
0122120 006 006 ( * r r b
0122140 " 2 0 - J u n - 8 5 1 3 : 5 5
0122160 " ) 006 001 \r \r
0122200 006 006 ( * t
0122220 h e s k e t c h p r o c e s
0122240 s j u s t g o t t h e t
0122260 t y . T u r n s o f f D E
0122300 L a s a n i n t e r r u p
0122320 t ) 006 001 \r \r ( I N T E R
0122340 R U P T C H A R ( P R O C E S
0122360 S P R O P S K P R O C ' O L
0122400 D I N T E R R U P T V A L U E ]
0122420 ) \r \r ( 006 004 S K E D . I N S E R
0122440 T 006 001 \r [ L A M B D A ( C
0122460 H A R C O D E S S K W A T S
0122500 C A L E ) 006 006 006 001
0122520
0122540 006 006 ( * r r b " 1
0122560 0 - F e b - 8 6 1 0 : 1 5 " )
0122600 006 001 \r \r
0122620 006 006 ( * d e l
0122640 e t e s t h e c h a r a c t
0122660 e r s i n t h e e x t e n
0122700 s i o n a n d i n s e r t s
0122720 c h a r a c t e r s i n t o
0122740 t h e \r 006 001
0122760 006 006 c u r r e n t l y s e
0123000 l e c t e d p o s i t i o n
0123020 o f S K W a n d l e a v e
0123040 s t h e s e l e c t i o n
0123060 a t t h e e n d o f t h
0123100 e \r 006 001 006
0123120 006 i n s e r t i o n . ) 006 001 \r \r
0123140 ( W I T H . M O N I T O
0123160 R ( S K E T C H . M O N I T O
0123200 R L O C K S K W ) \r
0123220 ( 006 002 \ S K E D . I
0123240 N S E R T 006 001 C H A R C O D E
0123260 S S K W A T S C A L E ] ) \r
0123300 \r ( 006 004 \ S K E D . I N S E R T
0123320 006 001 \r [ L A M B D A ( C H
0123340 A R C O D E S S K W A T S C
0123360 A L E ) 006 006 006 001
0123400
0123420 006 006 ( * ; " E d i t
0123440 e d 2 0 - F e b - 8 7 1 7 :
0123460 2 8 b y r r b " ) 006 001 \r
0123500 ( C O N D \r (
0123520 ( G R E A T E R P ( L E N G T
0123540 H C H A R C O D E S ) \r
0123560 2 0 0 )
0123600 \r \r
0123620 006 006 ( * t h e m
0123640 a x i m u m s t r i n g l e
0123660 n g t h l i m i t s t h e
0123700 n u m b e r o f c h a r a c
0123720 t e r s t h a t c a n b e
0123740 \r 006 001 006 006
0123760 i n s e r t e d a t o n c e
0124000 . T h i s c a n h a p p e
0124020 n f r o m a s h i f t s
0124040 e l e c t . ) 006 001 \r \r
0124060 ( 006 002 S K E D . I N S E R
0124100 T 006 001 ( 006 002 F I R S T . N . E
0124120 L E M E N T S 006 001 C H A R C O
0124140 D E S 2 0 0 ) \r
0124160 S K W A T S C
0124200 A L E ) \r ( 006 002
0124220 S K E D . I N S E R T 006 001 ( N
0124240 T H C H A R C O D E S 2 0 1
0124260 ) \r
0124300 S K W A T S C A L E ) ) \r
0124320 ( T ( P R O G (
0124340 ( S E L E C T I O N ( W I N D
0124360 O W P R O P S K W ' S E L E
0124400 C T I O N ) ) \r
0124420 ( E X T E N S
0124440 I O N ( W I N D O W P R O P
0124460 S K W ' E X T E N D S E L E C
0124500 T I O N ) ) \r
0124520 T E X T E L T
0124540 E L T T Y P E G T E X T E L T
0124560 F I R S T L I N E # F I R S
0124600 T C H A R # L A S T L I N E #
0124620 L A S T C H A R # S T R L S
0124640 T N E W S T R S \r
0124660 N E W E
0124700 L T S T R P I E C E N E W L
0124720 I N E # N E W C H A R # S K
0124740 C O N T E X T P T R C H A R #
0124760 C O N T R O L C H A R T A I L
0125000 ) \r
0125020 ( C O N D \r
0125040 ( ( E Q
0125060 ( 006 002 S K . G E T S Y N T A X 006
0125100 001 ( C A R C H A R C O D E S
0125120 ) ) \r
0125140 ' U N D O
0125160 ) \r \r
0125200 006 006 ( * u s e r
0125220 t y p e d a n u n d o A
0125240 v o i d t h e o v e r h e a
0125260 d o f i n s e r t i n g n
0125300 o c h a r a c t e r s a n d
0125320 a l l o w \r 006 001
0125340 006 006 u n d o t o b e
0125360 t y p e d w i t h o u t a
0125400 s e l e c t i o n . ) 006 001 \r \r
0125420
0125440 ( S E T Q C O N T R O
0125460 L C H A R T A I L ' U N D O )
0125500 \r
0125520 ( G O U N D O ) ) )
0125540 \r
0125560 ( C O N D \r
0125600 ( ( N U L L
0125620 S E L E C T I O N )
0125640
0125660 006 006 ( * a d d a n
0125700 e w t e x t e l e m e n t
0125720 w i t h t h e s e \r 006 001
0125740
*
0126020 006 006 c h a
0126040 r a c t e r s . ) 006 001 \r
0126060
0126100 ( S T A T U S P R I N T S K W
0126120 " \r " " I n d i c a t e t
0126140 h e p o s i t i o n t h e
0126160 t y p i n g s h o u l d g o
0126200 w i t h t h e l e f t b
0126220 u t t o n . " ) \r
0126240 ( R E
0126260 T U R N ) ) ) \r
0126300 ( 006 002 S K E D .
0126320 C L E A R . S E L E C T I O N 006
0126340 001 S K W N I L T ) \r
0126360 ( 006 002
0126400 S K E D . R E M O V E . O T H E
0126420 R . S E L E C T I O N S 006 001 S
0126440 K W ) \r
0126460 [ C O N D \r
0126500 ( ( A
0126520 N D ( O R ( E Q ( C A R
0126540 C H A R C O D E S ) \r
0126560
0126600 ( C H A
0126620 R C O D E E O L ) ) \r
0126640
0126660 ( E Q ( C A
0126700 R C H A R C O D E S ) \r
0126720
0126740 ( C
0126760 H A R C O D E L I N E F E E D
0127000 ) ) ) \r
0127020 ( K E
0127040 Y D O W N P ' C T R L ) ) \r
0127060 \r
0127100 006 006 ( * u s e r h i
0127120 t c o n t r o l C R . c r
0127140 e a t e a n e w t e x t
0127160 o r t e x t b o x . ) 006 001 \r \r
0127200
0127220 ( 006 002 S K E D . C R E A
0127240 T E . N E W . T E X T B O X 006 001
0127260 [ C O N D \r
0127300
*
0127340 ( ( 006 002 N E W . T
0127360 E X T . S E L E C T I O N P 006 001
0127400 S E L E C T I O N ) \r
0127420
*
0127460 N I L
0127500 ) \r
0127520
*
0127560 ( T ( 006 002 f e t c h 006 001
0127600 ( S C R E E N E L T I N D I V
0127620 I D U A L G L O B A L P A R T )
0127640 \r
0127660
*
0127720 006 002 o f 006 001 ( 006
0127740 002 f e t c h 006 001 ( T E X T E L
0127760 T S E L E C T I O N S K T E X
0130000 T E L T ) \r
0130020
*
0130100 006 002 o f 006 001 S E L E C T I
0130120 O N ] \r
0130140 S
0130160 K W \r
0130200 ( C
0130220 D R C H A R C O D E S ) ) \r
0130240
0130260 ( R E T U R N ) ) \r
0130300
0130320 [ ( 006 002 N E W . T E X T . S E L
0130340 E C T I O N P 006 001 S E L E C T
0130360 I O N ) \r \r
0130400 006 006 ( * s
0130420 e l e c t i o n i s i n o
0130440 p e n s p a c e , c r e a t
0130460 e a n e w t e x t e l e
0130500 m e n t . ) 006 001 \r
0130520
*
0130600 006 006 ( * m e r g e
0130620 t h e c h a r a c t e r s
0130640 i n t o s t r i n g s \r 006 001
0130660
*
0130740 006 006 o
0130760 f e a c h l i n e . ) 006 001 \r
0131000
0131020 ( S E T Q E L T T Y P
0131040 E ' T E X T ) \r
0131060 ( S E
0131100 T Q C O N T R O L C H A R T A
0131120 I L ( 006 002 \ S K E D . I N S E
0131140 R T . C H A R S . T O . S T R 006
0131160 001 C H A R C O D E S N I L
0131200 S K W ) ) \r
0131220 ( C O N D \r
0131240
0131260 ( ( O R N E W S
0131300 T R S S T R P I E C E ) \r
0131320 \r
0131340 006 006 ( * i f t h e r e
0131360 a r e a n y n e w c h a
0131400 r a c t e r s , a d d a n
0131420 e w t e x t e l e m e n t .
0131440 ) 006 001 \r \r
0131460 006 006 ( * s a
0131500 v e t h e s e l e c t i o n
0131520 t h a t m a r k e d t h e
0131540 s p o t w h e r e t h e
0131560 n e w t e x t g o e s a n
0131600 d a d d t h e \r 006 001
0131620 006 006 t e x t b u
0131640 t n o t i n a w a y t
0131660 h a t p u t s a n e v e n
0131700 t o n t h e h i s t o r y
0131720 l i s t . \r 006 001
0131740 006 006 t h i s i s d o n
0131760 e d u r i n g c l e a n u
0132000 p . ) 006 001 \r \r
0132020 (
0132040 W I N D O W P R O P S K W '
0132060 C H A N G E D T E X T E L T S
0132100 E L E C T I O N ) \r
0132120
0132140 ( S E T Q N E W E L T (
0132160 S K . A D D . E L E M E N T (
0132200 C R E A T E . T E X T . E L E M
0132220 E N T \r
0132240
*
0132300 ( S E T Q
0132320 N E W S T R S ( N C O N C 1
0132340 N E W S T R S S T R P I E C E
0132360 ) ) \r
0132400
*
0132440 ( S K . M A P
0132460 . I N P U T . P T . T O . G L O
0132500 B A L ( 006 002 c r e a t e 006 001
0132520 I N P U T P T \r
0132540
*
0132660 I N P U T . O N G R I D ? \r
0132700
*
0133020 _ N I L \r
0133040
*
0133160 \r
0133200
*
0133300 I N P
0133320 U T . P O S I T I O N \r
0133340
*
0133460 _ \r
0133500
*
0133600 (
0133620 006 002 \r 006 001
0133640
*
0133740 006 002 S E L E C T
0133760 I O N . P O S I T I O N 006 001 \r
0134000
*
0134120 S E L E C T I O
0134140 N \r
0134160
*
0134260 E X T E
0134300 N S I O N ) ) \r
0134320
*
0134400 S K W ) \r
0134420
*
0134500 ( O R ( N U M B E R P A T S
0134520 C A L E ) \r
0134540
*
0134620 ( S K . I N P U T . S C A L E
0134640 S K W ) ) \r
0134660
*
0134720 [ 006 002 f
0134740 e t c h 006 001 ( S K E T C H C O
0134760 N T E X T S K E T C H T E X T
0135000 A L I G N M E N T ) \r
0135020
*
0135100 006 002 o f 006 001 ( S E T Q
0135120 S K C O N T E X T ( W I N D
0135140 O W P R O P S K W \r
0135160
*
0135260 ' S
0135300 K E T C H C O N T E X T ] \r
0135320
*
0135400 ( 006 002 f e t c h 006 001 (
0135420 S K E T C H C O N T E X T S K
0135440 E T C H F O N T ) 006 002 o f 006 001
0135460 S K C O N T E X T ) \r
0135500
*
0135560 ( 006 002 f e t c h 006 001 ( B R
0135600 U S H B R U S H C O L O R ) \r
0135620
*
0135700 006 002 o f 006 001
0135720 ( 006 002 f e t c h 006 001 ( S K E T
0135740 C H C O N T E X T S K E T C H
0135760 B R U S H ) \r
0136000
*
0136060 006 002 o f 006 001 S K C
0136100 O N T E X T ) ) ) \r
0136120
*
0136160 S K W T ) ) ) \r
0136200
0136220 ( C O N T R O L C H
0136240 A R T A I L \r
0136260 \r 006 006 (
0136300 * u s e r t y p e d c o n
0136320 t r o l r e t u r n t o g
0136340 e t t e x t b o x i n t h
0136360 e m i d d l e o f n o w
0136400 h e r e . ) 006 001 \r \r
0136420
0136440 ( 006 002 S K E D .
0136460 C R E A T E . N E W . T E X T B
0136500 O X 006 001 N I L S K W ( C D
0136520 R C O N T R O L C H A R T A I
0136540 L ) \r
0136560
0136600 A T S C A L E )
0136620 \r
0136640 (
0136660 R E T U R N ) ) \r
0136700
0136720 ( T \r \r
0136740 006 006 ( * u s
0136760 e r t y p e d b a c k s p a
0137000 c e , e t c . w h e n n o
0137020 t e x t e x i s t s . \r 006 001
0137040 006 006 P u t
0137060 c a r e t b a c k i n s a
0137100 m e p l a c e . ) 006 001 \r \r
0137120
0137140 ( 006 002 S K E D .
0137160 S E T . S E L E C T I O N 006 001
0137200 S E L E C T I O N S K W ) \r
0137220
0137240 ( R E T U R N
0137260 ) ) )
0137300 006 006 ( *
0137320 p u t s e l e c t i o n m
0137340 a r k e r a t t h e e n d
0137360 . ) 006 001 \r
0137400 ( S E T Q N
0137420 E W L I N E # ( L E N G T H
0137440 N E W S T R S ) ) \r
0137460 ( S
0137500 E T Q N E W C H A R # ( N C
0137520 H A R S ( C A R ( L A S T
0137540 N E W S T R S ] \r
0137560 ( T [
0137600 S E T Q G T E X T E L T ( 006
0137620 002 f e t c h 006 001 ( S C R E E N
0137640 E L T I N D I V I D U A L G L
0137660 O B A L P A R T ) \r
0137700
*
0137740 006 002 o f 006 001 ( S E T Q T
0137760 E X T E L T ( 006 002 f e t c h 006
0140000 001 ( T E X T E L T S E L E C T
0140020 I O N S K T E X T E L T ) \r
0140040
*
0140120 006 002 o f 006
0140140 001 S E L E C T I O N ] \r
0140160
0140200 ( S E T Q E L T T Y P E
0140220 ( 006 002 f e t c h 006 001 ( I N D
0140240 I V I D U A L G L O B A L P A R
0140260 T G T Y P E ) 006 002 o f 006 001
0140300 G T E X T E L T ) ) \r
0140320
0140340 ( S E T Q S T R L S T ( 006
0140360 002 f e t c h 006 001 ( L O C A L T
0140400 E X T L O C A L L I S T O F C
0140420 H A R A C T E R S ) \r
0140440
*
0140500 006 002 o f 006 001 ( 006 002 f e t c h
0140520 006 001 ( S C R E E N E L T L O
0140540 C A L P A R T ) 006 002 o f 006 001
0140560 T E X T E L T ) ) ) \r
0140600
*
0140660 006 006 ( * s e t
0140700 u p p o i n t s t o b e
0140720 g i n n i n g a n d e n d
0140740 \r 006 001
0140760
*
0141040 006 006 o f s e l e c t i o n . )
0141060 006 001 \r
0141100 [ C O N D \r
0141120
0141140 [ ( N U L L E
0141160 X T E N S I O N ) \r
0141200
0141220 ( S E T Q L A S T C H
0141240 A R # ( S E T Q F I R S T C
0141260 H A R # ( 006 002 f e t c h 006 001
0141300 ( T E X T E L T S E L E C T I O
0141320 N S K C H A R # ) \r
0141340
*
0141420 006 002 o f 006 001
0141440 S E L E C T I O N ) ) ) \r
0141460
0141500 ( S E T Q L A S
0141520