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