$ od -c -N 50000 [Indigo]<AltoSource>KEYTEST.DM!1
0000000 377 \0 \0 k e y T e s t . b c p l \0
0000020 376 001 \0 260 025 / / K e y T e s t .
0000040 b c p l - N a t e T o b o
0000060 l a n d D a v i d B o g g
0000100 s \r / / C o p y r i g h t X
0000120 e r o x C o r p o r a t i o n
0000140 1 9 7 9 \r / / L a s t m o
0000160 d i f i e d J a n u a r y 1
0000200 2 , 1 9 8 0 4 : 5 6 P M
0000220 b y B o g g s \r \r g e t "
0000240 A l t o D e f s . d " \r \r e x t
0000260 e r n a l \r [ \r / / i n c o
0000300 m i n g p r o c e d u r e s \r
0000320 S e t B l o c k ; Z e r o ;
0000340 M o v e B l o c k ; B i t B l
0000360 t ; M i n ; M a x \r \r / /
0000400 i n c o m i n g s t a t i c s
0000420 \r g a c h 376 001 \0 356 " a 1 0 ; a
0000440 l t o 1 K b d ; a l t o 2 K b
0000460 d ; t e a k 3 K b d ; k e y
0000500 s e t \r ] \r \r s t a t i c [
0000520 k b d ; b i t M a p ; b b t
0000540 ; v e r s i o n ] \r \r m a n
0000560 i f e s t \r [ \r x M a x = 6
0000600 0 6 \r y M a x = 8 0 8 \r n W
0000620 o r d s = 3 8 \r l e n B i t
0000640 M a p = n W o r d s * y
0000660 M a x \r s t k L i m = 3 3 5
0000700 b \r \r / / c u r s o r s h a
0000720 p e s \r b o x = 1 \r a r r o
0000740 w = 2 \r ] \r \r s t r u c t u
0000760 r e S t r i k e : \t / / S t
0001000 r i k e f o n t w i t h x
0001020 P o s T a b l e s 376 001 \0 A \f l
0001040 a p p e d o n f r o n t \r [
0001060 \r x P o s T a b l e w o r d \t
0001100 \t / / - > t a b l e o f
0001120 x p o s i t i o n s \r b l a n
0001140 k w o r d \t \t / / f l a g s
0001160 \r m i n w o r d \t \t / / l o
0001200 w e s t c h a r c o d e \r m
0001220 a x w o r d \t \t / / h i g h
0001240 e s t c h a r c o d e \r b l
0001260 a n k w o r d 2 \t \t / / m
0001300 a x W i d t h a n d l e n g
0001320 t h \r a s c e n t w o r d \t \t
0001340 / / n u m b e r o f w o r
0001360 d s a b o v e b a s e l i n
0001400 e \r d e s c e n t w o r d \t \t
0001420 / / n u m b e r o f w o 376
0001440 001 \0 250 222 r d s b e l o w b a
0001460 s e l i n e \r b l a n k w o r
0001500 d \t \t / / x o f f s e t f o
0001520 r k e r n i n g \r r a s t e r
0001540 w o r d \t \t / / f o r b i
0001560 t m a p \r b i t m a p w o r d
0001600 \t \t / / b e g i n s h e r e
0001620 i s r a s t e r * ( d e s c
0001640 e n t + a s c e n t ) l o n g
0001660 \r / / t h e n c o m e s t
0001700 h e x P o s T a b l e p o i
0001720 n t e d t o a b o v e \r ] \r
0001740 \r s t r u c t u r e B o x : \r
0001760 [ \r l X w o r d \t \t / / l e
0002000 f t x \r t Y w o r d \t \t / /
0002020 t o p y \r r X w o r d \t \t
0002040 / / r 376 001 \0 242 332 i g h t x \r
0002060 b Y w o r d \t \t / / b o t t
0002100 o m y \r ] \r \r s t r u c t u r
0002120 e K e y : \r [ \r b 1 : @ B o
0002140 x \r b 2 : @ B o x \r c h a r
0002160 w o r d \r ] \r m a n i f e s t
0002200 l e n K e y = s i z e K e
0002220 y / 1 6 \r \r s t r u c t u r e
0002240 K b d : \r [ \r n u m K e y s w
0002260 o r d \r k e y s e t w o r d \r
0002300 k e y ^ 0 , 0 @ K e y \r ] \r \f
0002320 \r / / - - - - - - - - - - - - -
0002340 - - - - - - - - - - - - - - - -
*
0002420 - - - - - - - - - - - - - - - \r
0002440 l e t K e y T e 376 001 \0 033 334 s t
0002460 ( ) b e \r / / - - - - - - - -
0002500 - - - - - - - - - - - - - - - -
*
0002600 - - - - \r [ \r l e t d c b =
0002620 ( @ s t k L i m + 1 ) & -
0002640 2 ; Z e r o ( d c b , l e n
0002660 B i t M a p + l D C B ) \r @ s t
0002700 k L i m = @ s t k L i m +
0002720 l e n B i t M a p + l D C
0002740 B + 1 \r \r b i t M a p = d
0002760 c b + l D C B \r d c b > > D
0003000 C B . w i d t h = n W o r d
0003020 s \r d c b > > D C B . b i t m a
0003040 p = b i t M a p \r d c b 376 001
0003060 \0 264 ' > > D C B . h e i g h t
0003100 = y M a x / 2 \r @ d i s p l a
0003120 y L i s t H e a d = d c b \r
0003140 \r l e t v = v e c 1 6 ;
0003160 b b t = ( v + 1 ) & -
0003200 2 ; Z e r o ( b b t , 1 6 )
0003220 \r b b t > > B B T . d b c a =
0003240 b i t M a p \r b b t > > B B T
0003260 . d b m r = n W o r d s \r S
0003300 e t B l o c k ( l v b b t > >
0003320 B B T . g r a y , - 1 , 4 )
0003340 \r \r g a c h a 1 0 > > S t r i k
0003360 e . x P o s T a b l e = l v
0003400 g a c h a 1 0 > > S t r i k e
0003420 . b i t m a p + \r g a c h a
0003440 1 0 > > S t r i k e . r a s t e
0003460 r * 376 001 \0 377 E ( g a c h a 1
0003500 0 > > S t r i k e . a s c e n t
0003520 + g a c h a 1 0 > > S t r i
0003540 k e . d e s c e n t ) \r g a c h
0003560 a 1 0 > > S t r i k e . m a x
0003600 = g a c h a 1 0 > > S t r i k
0003620 e . m a x - g a c h a 1 0 >
0003640 > S t r i k e . m i n \r \r k b d
0003660 = a l t o 1 K b d \r v e r s
0003700 i o n = t a b l e [ 6 1
0003720 0 1 4 b ; 1 4 0 1 b ] ( ) <
0003740 < V E R S . e n g \r \r D o I t (
0003760 ) \r ] \r \r / / - - - - - - - - -
0004000 - - - - - - - - - - - - - - - -
*
0004060 - - - - - - - - 376 001 \0 202 ( - - -
0004100 - - - - - - - - \r a n d D o I
0004120 t ( ) b e \r / / - - - - - - -
0004140 - - - - - - - - - - - - - - - -
*
0004240 - - - - - \r [ \r / / k e y s e
0004260 t \r i f k b d > > K b d . k e
0004300 y s e t t h e n \r f o r
0004320 i = 0 t o 4 * 8 - 1
0004340 b y 4 d o \r [
0004360 \r l e t b = k
0004400 e y s e t + i \r D o
0004420 A r e a ( b > > B o x . l X ,
0004440 b > > B o x . t Y , b > > B o
0004460 x . r X , b > > B o x . 376 001 \0
0004500 202 022 t Y , 0 ) / / t o p \r
0004520 D o A r e a ( b > >
0004540 B o x . r X , b > > B o x . t
0004560 Y , b > > B o x . r X , b >
0004600 > B o x . b Y , 0 ) / / r
0004620 i g h t \r D o A r e
0004640 a ( b > > B o x . l X , b > >
0004660 B o x . t Y , b > > B o x . l
0004700 X , b > > B o x . b Y , 0 )
0004720 / / l e f t \r D
0004740 o A r e a ( b > > B o x . l X ,
0004760 b > > B o x . b Y , b > > B
0005000 o x . r X , b > > B o x . b Y
0005020 , 0 ) / / b o t t o m \r
0005040 ] \r \r / / k e y b o
0005060 a r d \r f o r i = 0 t o
0005100 k 376 001 \0 203 314 b d > > K b d . n
0005120 u m K e y s - 1 d o \r [
0005140 \r l e t k e y = l v
0005160 k b d > > K b d . k e y ^ i \r
0005200 l e t b 1 = l v k
0005220 e y > > K e y . b 1 \r l e
0005240 t b 2 = l v k e y > > K
0005260 e y . b 2 \r i f b 1 > >
0005300 B o x . l X e q 0 l o o p
0005320 \r D o A r e a ( b 1 > > B
0005340 o x . l X , b 1 > > B o x . t
0005360 Y , b 1 > > B o x . r X , b
0005400 1 > > B o x . t Y , 0 ) /
0005420 / t o p \r D o A r e a ( b
0005440 1 > > B o x . r X , b 1 > > B
0005460 o x . t Y , b 1 > > B o x . r
0005500 X , b 1 > > 376 001 \0 361 351 B o x .
0005520 b Y , 0 ) / / r i g h t \r
0005540 D o A r e a ( b 1 > > B o
0005560 x . l X , b 1 > > B o x . t Y
0005600 , b 1 > > B o x . l X , b 1
0005620 > > B o x . b Y , 0 ) / /
0005640 l e f t \r t e s t b 2 >
0005660 > B o x . l X n e 0 \r
0005700 i f s o \r
0005720 [ \r D o A r
0005740 e a ( b 2 > > B o x . r X , b
0005760 2 > > B o x . t Y , b 2 > > B
0006000 o x . r X , b 2 > > B o x . b
0006020 Y , 0 ) / / r i g h t \r
0006040 D o A r e a ( b
0006060 2 > > B o x . l X , b 2 > > B
0006100 o x . t Y , b 2 > > B 376 001 \0 K
0006120 r o x . l X , b 2 > > B o x .
0006140 b Y , 0 ) / / l e f t \r
0006160 D o A r e a ( b
0006200 2 > > B o x . l X , b 2 > > B
0006220 o x . b Y , b 2 > > B o x . r
0006240 X , b 2 > > B o x . b Y , 0
0006260 ) / / b o t t o m \r
0006300 ] \r i f n
0006320 o t D o A r e a ( b 1 > > B o
0006340 x . l X , b 1 > > B o x . b Y
0006360 , b 1 > > B o x . r X , b 1
0006400 > > B o x . b Y , 0 ) / /
0006420 b o t \r i f k e y > > K
0006440 e y . c h a r n e 0 t h e
0006460 n D i s p l a y C h a r ( b 1
0006500 , k e y > > K e y . c h a r )
0006520 \r 376 001 \0 216 034 ] \r \f \r / /
0006540 K e y T e s t ( c o n t ' d )
0006560 \r \r l e t n e w K e y , o l
0006600 d K e y = v e c 5 , v e
0006620 c 5 ; S e t B l o c k ( o l
0006640 d K e y , - 1 , 6 ) / /
0006660 a l l k e y s u p \r l e t
0006700 o l d U t i l I n , n e w U t
0006720 i l I n = - 1 , n i l \r l
0006740 e t c u r s o r S h a p e =
0006760 0 \r \r [ / / p r o g
0007000 r a m m a i n l o o p \r
0007020 n e w U t i l I n = @ u t
0007040 i l I n \r M o v e B l o c
0007060 k ( n e w K e y , k b d A d ,
0007100 6 ) \r \r / / m o u s e \r
0007120 i f 376 001 \0 235 032 @ m o u s
0007140 e X g r x M a x - 1 6 t h
0007160 e n @ m o u s e X = x M a
0007200 x - 1 6 \r i f @ m o u s
0007220 e X l s 0 t h e n @ m o
0007240 u s e X = 0 \r @ c u r
0007260 s o r X = @ m o u s e X \r
0007300 i f @ m o u s e Y g r
0007320 y M a x - 1 6 t h e n @ m o
0007340 u s e Y = y M a x - 1 6 \r
0007360 i f @ m o u s e Y l s
0007400 0 t h e n @ m o u s e Y =
0007420 0 \r @ c u r s o r Y =
0007440 @ m o u s e Y \r \r t e s
0007460 t @ c u r s o r Y g r 7 0
0007500 0 \r i f n o t \r
0007520 [ \r 376 001 \0 310 024
0007540 i f c u r s o r
0007560 S h a p e n e b o x t h e
0007600 n \r [ \r
0007620 M o v e
0007640 B l o c k ( c u r s o r B i t M
0007660 a p , ( t a b l e [ \r
0007700 1 7 7 7 7 7 b
0007720 ; 1 7 7 7 7 7 b ; 1 4 0 0 0
0007740 3 b ; 1 4 0 0 0 3 b ; 1 4 0
0007760 0 0 3 b ; \r
0010000 1 4 0 0 0 3 b ; 1 4 0 0
0010020 0 3 b ; 1 4 0 0 0 3 b ; 1 4
0010040 0 0 0 3 b ; 1 4 0 0 0 3 b ; \r
0010060 1 4 0
0010100 0 0 3 b ; 1 4 0 0 0 3 b ; 1
0010120 4 0 0 0 3 b ; 1 4 0 0 0 3 b ;
0010140 376 001 \0 ~ 271 1 7 7 7 7 7 b ; \r
0010160 1 7 7 7
0010200 7 7 b ] ) , 1 6 ) \r
0010220 c u r s o r S h
0010240 a p e = b o x \r
0010260 ] \r
0010300 i f o l d U t i l I n < < U
0010320 t i l I n . m o u s e n e n
0010340 e w U t i l I n < < U t i l I n
0010360 . m o u s e t h e n \r
0010400 [ \r
0010420 l e t m o u s e
0010440 = 1 4 0 0 0 3 b \r
0010460 i f n e w U t i l
0010500 I n < < U t i l I n . r e d e
0010520 q 0 t h e n m o u s e =
0010540 m o u s 376 001 \0 u 233 e % 1 4
0010560 0 0 0 b \r
0010600 i f n e w U t i l I n < < U
0010620 t i l I n . y e l l o w e q
0010640 0 t h e n m o u s e = m
0010660 o u s e % 6 0 0 b \r
0010700 i f n e w U t
0010720 i l I n < < U t i l I n . b l u
0010740 e e q 0 t h e n m o u s
0010760 e = m o u s e % 3 0 b \r
0011000 f o r
0011020 i = 4 t o 9 d o c u
0011040 r s o r B i t M a p ! i = m
0011060 o u s e \r
0011100 ] \r ] \r
0011120 i f s o \r
0011140 [ \r 376 001 \0 364 Z
0011160 i f c u r s o r S h a p e
0011200 n e a r r o w t h e n \r
0011220 [ \r
0011240 M o v e B l o
0011260 c k ( c u r s o r B i t M a p ,
0011300 ( t a b l e [ \r
0011320 1 0 0 0 0 0 b ; 1
0011340 4 0 0 0 0 b ; 1 6 0 0 0 0 b ;
0011360 1 7 0 0 0 0 b ; 1 7 4 0 0 0
0011400 b ; \r
0011420 1 7 6 0 0 0 b ; 1 7 7 0 0 0 b
0011440 ; 1 7 0 0 0 0 b ; 1 5 4 0 0
0011460 0 b ; 1 1 4 0 0 0 b ; \r
0011500 0 0 6 0 0 0
0011520 b ; 0 0 6 0 0 0 b ; 0 0 3 0
0011540 0 0 b ; 0 0 3 0 0 0 b ; 0 376
0011560 001 \0 236 322 0 1 4 0 0 b ; \r
0011600 0 0 1 4 0 0 b
0011620 ] ) , 1 6 ) \r
0011640 c u r s o r S h a p e
0011660 = a r r o w \r
0011700 ] \r
0011720 i f ( n e w U t i l I n &
0011740 7 ) n e 7 b r e a k \r
0011760 ] \r \f \r / /
0012000 D o I t ( C o n t ' d ) \r \r
0012020 / / k e y s e t \r
0012040 i f o l d U t i l I n < < U t
0012060 i l I n . k e y s e t n e n
0012100 e w U t i l I n < < U t i l I n
0012120 . k e y s e t t h e n \r
0012140 f o r i = 0 t o
0012160 4 d o 376 001 \0 U 366 \r
0012200 [ \r l e
0012220 t n e w = 1 - ( ( n e w U
0012240 t i l I n r s h i f t ( 7 -
0012260 i ) ) & 1 ) \r
0012300 l e t o l d = 1 - ( (
0012320 o l d U t i l I n r s h i f t
0012340 ( 7 - i ) ) & 1 ) \r
0012360 i f n e w n e
0012400 o l d t h e n \r
0012420 [ \r
0012440 l e t b = k e y s e
0012460 t + ( i * 4 ) \r
0012500 D o A r e a ( b > >
0012520 B o x . l X + 2 , b > > B o x
0012540 . t Y + 2 , b > > B o x . r X
0012560 - 2 , b > > B o 376 001 \0 313 a x .
0012600 b Y - 2 , \r
0012620 ( n e w e q 1 ? 0 ,
0012640 3 ) ) \r
0012660 ] \r ] \r \r
0012700 / / k e y b o a r d \r
0012720 f o r i = 0 t o k b
0012740 d > > K b d . n u m K e y s / 1
0012760 6 - 1 d o \r i f
0013000 n e w K e y ! i n e o l d
0013020 K e y ! i t h e n / / s o
0013040 m e k e y s c h a n g e d \r
0013060 [ \r
0013100 l e t d i f f = n
0013120 e w K e y ! i x o r o l d K
0013140 e y ! i \r f o
0013160 r j = 0 t o 1 5 376 001
0013200 \0 330 Q d o \r
0013220 i f ( d i f f & ( 1 b
0013240 1 5 r s h i f t j ) ) n e
0013260 0 t h e n \r
0013300 [ \r
0013320 l e t k e y
0013340 = l v k b d > > K b d . k e
0013360 y ^ ( 1 6 * i + j ) \r
0013400 l e t b 1
0013420 = l v k e y > > K e y . b
0013440 1 \r
0013460 D o A r e a ( b 1 > > B o x .
0013500 l X + 2 , b 1 > > B o x . t Y
0013520 + 2 , b 1 > > B o x . r X - 2
0013540 , \r
0013560 b 1 > > B o x . b Y - 2 ,
0013600 2 ) \r 376 001 \0 c 205
0013620 l e t b 2 =
0013640 l v k e y > > K e y . b 2 \r
0013660 u n
0013700 l e s s b 2 > > B o x . l X
0013720 e q 0 d o \r
0013740 [ \r
0013760 D o
0014000 A r e a ( M a x ( b 1 > > B o x
0014020 . l X , b 2 > > B o x . l X )
0014040 + 2 , b 1 > > B o x . b Y - 1
0014060 , \r
0014100 M i n ( b 1 > > B o x
0014120 . r X , b 2 > > B o x . r X )
0014140 - 2 , b 2 > > B o x . t Y + 1
0014160 , 2 ) \r
0014200 D 376 001 \0 | & o A r
0014220 e a ( b 2 > > B o x . l X + 2 ,
0014240 b 2 > > B o x . t Y + 2 , b
0014260 2 > > B o x . r X - 2 , \r
0014300
0014320 b 2 > > B o x . b Y - 2 , 2 )
0014340 \r
0014360 ] \r
0014400 ] \r ]
0014420 \r \r o l d U t i l I n =
0014440 n e w U t i l I n \r M o
0014460 v e B l o c k ( o l d K e y ,
0014500 n e w K e y , 6 ) \r ]
0014520 r e p e a t \r \r k b d = k b
0014540 d e q a l t o 1 K b d ? a
0014560 l t o 2 K b d , \r ( k b d e
0014600 q a l t o 2 K b d & 376 001 \0
0014620 \t 375 v e r s i o n e q 4 ) ?
0014640 t e a k 3 K b d , a l t o 1
0014660 K b d \r \r Z e r o ( b i t M a p
0014700 , l e n B i t M a p ) \r ] r
0014720 e p e a t \r \f \r / / - - - - - -
0014740 - - - - - - - - - - - - - - - -
*
0015040 - - - - - - \r a n d D o A r e
0015060 a ( l X , t Y , r X , b Y
0015100 , o p ) b e \r / / - - - - -
0015120 - - - - - - - - - - - - - - - -
*
0015220 - - 376 001 \0 & 217 - - - - - \r / /
0015240 o p = 0 t o s e t t o
0015260 b l a c k \r / / 2
0015300 t o c o m p l i m e n t \r /
0015320 / 3 t o s e t
0015340 t o w h i t e \r [ \r b b t > >
0015360 B B T . s T y p e = 3 /
0015400 / g r a y \r b b t > > B B T . o
0015420 p = o p \r b b t > > B B T .
0015440 d l x = l X \r b b t > > B B
0015460 T . d t y = t Y \r b b t > >
0015500 B B T . d w = r X - l X +
0015520 1 \r b b t > > B B T . d h =
0015540 b Y - t Y + 1 \r \r B i t B l t
0015560 ( b b t ) \r ] \r \r / / - - - - -
0015600 - - - - - - - - - - - - - - - -
0015620 - - - - - - - 376 001 \0 253 026 - - - -
0015640 - - - - - - - - - - - - - - - -
*
0015700 - - - - - - - - - - - - \r \n a n
0015720 d D i s p l a y C h a r ( b o
0015740 x , c h a r ) b e \r / / - -
0015760 - - - - - - - - - - - - - - - -
*
0016060 - - - - - - - - - - \r \n [ \r c h
0016100 a r = c h a r - g a c h a 1
0016120 0 > > S t r i k e . m i n \r i f
0016140 c h a r l s 0 % c h a
0016160 r g r g a c h a 1 0 > > S t
0016200 r i k e . m a x t h e n /
0016220 / s h o w b l a c k 376 001 \0 7
0016240 225 b o x \r c h a r = g
0016260 a c h a 1 0 > > S t r i k e . m
0016300 a x + 1 \r \r l e t x p o s
0016320 = g a c h a 1 0 > > S t r i k
0016340 e . x P o s T a b l e \r l e t
0016360 w i d t h = x p o s ! ( c h
0016400 a r + 1 ) - x p o s ! c h a r \r
0016420 l e t h e i g h t = g a c
0016440 h a 1 0 > > S t r i k e . a s c
0016460 e n t + g a c h a 1 0 > > S
0016500 t r i k e . d e s c e n t \r \r b
0016520 b t > > B B T . s T y p e =
0016540 0 \r b b t > > B B T . o p =
0016560 1 \r b b t > > B B T . d l x =
0016600 b o x > > B o x . l X + (
0016620 b o x > > B o x . r X - b o x >
0016640 > 376 001 \0 202 310 B o x . l X ) / 2
0016660 - w i d t h / 2 \r b b t > > B
0016700 B T . d t y = b o x > > B o
0016720 x . t Y + ( b o x > > B o x
0016740 . b Y - b o x > > B o x . t Y )
0016760 / 2 - h e i g h t / 2 \r b b
0017000 t > > B B T . d w = w i d t
0017020 h \r b b t > > B B T . d h =
0017040 h e i g h t \r b b t > > B B T .
0017060 s b c a = l v g a c h a 1
0017100 0 > > S t r i k e . b i t m a p
0017120 \r b b t > > B B T . s b m r =
0017140 g a c h a 1 0 > > S t r i k e
0017160 . r a s t e r \r b b t > > B B T
0017200 . s l x = x p o s ! c h a r
0017220 \r b b t > > B B T . s t y =
0017240 0 \r \r B i t 376 \0 016 261 236 B l t ( b
0017260 b t ) \r \n \n ] \r \n 377 \0 \0 K e y T
0017300 e s t A l t o 1 . a s m \0 376 001 \0
0017320 204 241 ; K e y T e s t A l t o 1
0017340 . a s m \r ; C o p y r i g h t
0017360 X e r o x C o r p o r a t i
0017400 o n 1 9 7 9 \r ; L a s t m
0017420 o d i f i e d J a n u a r y
0017440 1 1 , 1 9 8 0 5 : 1 5 P
0017460 M b y B o g g s \r \r . b e x
0017500 t a l t o 1 K b d \r \r \t . s r
0017520 e l \r \r a l t o 1 K b d : \t . a
0017540 l t o 1 K b d \r \r \t . n r e l \r
0017560 \r \t . r d x 1 0 \r \r w i d t h
0017600 = 2 4 \r h e i g h t = 2
0017620 4 \r \r r o w 0 y = 3 8 0 \r \r
0017640 r o w 1 x = 1 0 8 \r r o w 1
0017660 y = r o w 0 y + h e i g h t
0017700 \r \r r o w 2 x = 9 2 \r r o w
0017720 2 y 376 001 \0 206 331 = r o w 1 y +
0017740 h e i g h t \r \r r o w 3 x =
0017760 1 0 0 \r r o w 3 y = r o w 2
0020000 y + h e i g h t \r \r r o w 4 x
0020020 = 8 4 \r r o w 4 y = r o w
0020040 3 y + h e i g h t \r \r r o w 5 x
0020060 = 1 7 2 \r r o w 5 y = r
0020100 o w 4 y + h e i g h t \r \r . a l
0020120 t o 1 K b d : \r \t 6 4 \t \t ; n
0020140 u m K e y s \r \t - 1 \t \t ; k e
0020160 y s e t = t r u e \r \r ; 5
0020200 \r \t r o w 1 x + ( 5 * w i d t h
0020220 ) \r \t r o w 1 y \r \t r o w 1 x +
0020240 ( 6 * w i d t h ) \r \t r o w 1 y
0020260 + h e i g h t \r \t . b l k 4 \r
0020300 \t " 5 \r \r ; 4 \r \t r o w 1 x +
0020320 ( 4 * w i d t 376 001 \0 p 370 h ) \r \t
0020340 r o w 1 y \r \t r o w 1 x + ( 5 *
0020360 w i d t h ) \r \t r o w 1 y + h e
0020400 i g h t \r \t . b l k 4 \r \t " 4
0020420 \r \r ; 6 \r \t r o w 1 x + ( 6 *
0020440 w i d t h ) \r \t r o w 1 y \r \t r
0020460 o w 1 x + ( 7 * w i d t h ) \r \t
0020500 r o w 1 y + h e i g h t \r \t . b
0020520 l k 4 \r \t " 6 \r \r ; E \r \t r
0020540 o w 2 x + ( 4 * w i d t h ) \r \t
0020560 r o w 2 y \r \t r o w 2 x + ( 5 *
0020600 w i d t h ) \r \t r o w 2 y + h e
0020620 i g h t \r \t . b l k 4 \r \t " E
0020640 \r \r ; 7 \r \t r o w 1 x + ( 7 *
0020660 w i d t h ) \r \t r o w 1 y \r \t r
0020700 o w 1 x + ( 8 * w i d t h ) \r \t
0020720 r o w 1 y + h e i g h t 376 001 \0 \n
0020740 \f \r \t . b l k 4 \r \t " 7 \r \r ;
0020760 D \r \t r o w 3 x + ( 4 * w i d
0021000 t h ) \r \t r o w 3 y \r \t r o w 3
0021020 x + ( 5 * w i d t h ) \r \t r o w
0021040 3 y + h e i g h t \r \t . b l k
0021060 4 \r \t " D \r \r ; U \r \t r o w 2
0021100 x + ( 8 * w i d t h ) \r \t r o w
0021120 2 y \r \t r o w 2 x + ( 9 * w i d
0021140 t h ) \r \t r o w 2 y + h e i g h
0021160 t \r \t . b l k 4 \r \t " U \r \r ;
0021200 V \r \t r o w 4 x + ( 6 * w i d
0021220 t h ) \r \t r o w 4 y \r \t r o w 4
0021240 x + ( 7 * w i d t h ) \r \t r o w
0021260 4 y + h e i g h t \r \t . b l k
0021300 4 \r \t " V \r \r ; 0 \r \t r o w 1
0021320 x + ( 1 0 * w i d t h ) \r \t r o
0021340 w 376 001 \0 034 ~ 1 y \r \t r o w 1 x +
0021360 ( 1 1 * w i d t h ) \r \t r o w 1
0021400 y + h e i g h t \r \t . b l k 4
0021420 \r \t " 0 \r \r ; K \r \t r o w 3 x
0021440 + ( 9 * w i d t h ) \r \t r o w 3
0021460 y \r \t r o w 3 x + ( 1 0 * w i d
0021500 t h ) \r \t r o w 3 y + h e i g h
0021520 t \r \t . b l k 4 \r \t " K \r \r ;
0021540 - \r \t r o w 1 x + ( 1 1 * w i
0021560 d t h ) \r \t r o w 1 y \r \t r o w
0021600 1 x + ( 1 2 * w i d t h ) \r \t r
0021620 o w 1 y + h e i g h t \r \t . b l
0021640 k 4 \r \t " - \r \r ; P \r \t r o
0021660 w 2 x + ( 1 1 * w i d t h ) \r \t
0021700 r o w 2 y \r \t r o w 2 x + ( 1 2
0021720 * w i d t h ) \r \t r o w 2 y + h
0021740 e i g h t \r 376 001 \0 213 026 \t . b l k
0021760 4 \r \t " P \r \r ; / \r \t r o w
0022000 4 x + ( 1 2 * w i d t h ) \r \t r
0022020 o w 4 y \r \t r o w 4 x + ( 1 3 *
0022040 w i d t h ) \r \t r o w 4 y + h e
0022060 i g h t \r \t . b l k 4 \r \t " /
0022100 \r \r ; \ \r \t r o w 1 x + ( 1 3
0022120 * w i d t h ) \r \t r o w 1 y \r \t
0022140 r o w 1 x + ( 1 4 * w i d t h )
0022160 \r \t r o w 1 y + h e i g h t \r \t
0022200 . b l k 4 \r \t " \ \r \r ; < l
0022220 f > \r \t r o w 1 x + ( 1 4 * w i
0022240 d t h ) \r \t r o w 1 y \r \t r o w
0022260 1 x + ( 1 5 * w i d t h ) \r \t r
0022300 o w 1 y + h e i g h t \r \t . b l
0022320 k 4 \r \t 0 \r \r ; < b s > \r \t
0022340 r o w 2 x + ( 1 5 * w 376 001 \0 244 265
0022360 i d t h ) \r \t r o w 2 y \r \t r o
0022400 w 2 x + ( 1 6 * w i d t h ) \r \t
0022420 r o w 2 y + h e i g h t \r \t . b
0022440 l k 4 \r \t 0 \r \r ; 3 \r \t r o
0022460 w 1 x + ( 3 * w i d t h ) \r \t r
0022500 o w 1 y \r \t r o w 1 x + ( 4 * w
0022520 i d t h ) \r \t r o w 1 y + h e i
0022540 g h t \r \t . b l k 4 \r \t " 3 \r
0022560 \r ; 2 \r \t r o w 1 x + ( 2 * w
0022600 i d t h ) \r \t r o w 1 y \r \t r o
0022620 w 1 x + ( 3 * w i d t h ) \r \t r
0022640 o w 1 y + h e i g h t \r \t . b l
0022660 k 4 \r \t " 2 \r \r ; W \r \t r o
0022700 w 2 x + ( 3 * w i d t h ) \r \t r
0022720 o w 2 y \r \t r o w 2 x + ( 4 * w
0022740 i d t h ) \r \t r o w 2 y + h e i
0022760 376 001 \0 357 W g h t \r \t . b l k 4
0023000 \r \t " W \r \r ; Q \r \t r o w 2 x
0023020 + ( 2 * w i d t h ) \r \t r o w 2
0023040 y \r \t r o w 2 x + ( 3 * w i d t
0023060 h ) \r \t r o w 2 y + h e i g h t
0023100 \r \t . b l k 4 \r \t " Q \r \r ;
0023120 S \r \t r o w 3 x + ( 3 * w i d t
0023140 h ) \r \t r o w 3 y \r \t r o w 3 x
0023160 + ( 4 * w i d t h ) \r \t r o w 3
0023200 y + h e i g h t \r \t . b l k 4
0023220 \r \t " S \r \r ; A \r \t r o w 3 x
0023240 + ( 2 * w i d t h ) \r \t r o w 3
0023260 y \r \t r o w 3 x + ( 3 * w i d t
0023300 h ) \r \t r o w 3 y + h e i g h t
0023320 \r \t . b l k 4 \r \t " A \r \r ;
0023340 9 \r \t r o w 1 x + ( 9 * w i d t
0023360 h ) \r \t r 376 001 \0 ; I o w 1 y \r \t
0023400 r o w 1 x + ( 1 0 * w i d t h )
0023420 \r \t r o w 1 y + h e i g h t \r \t
0023440 . b l k 4 \r \t " 9 \r \r ; I \r
0023460 \t r o w 2 x + ( 9 * w i d t h )
0023500 \r \t r o w 2 y \r \t r o w 2 x + (
0023520 1 0 * w i d t h ) \r \t r o w 2 y
0023540 + h e i g h t \r \t . b l k 4 \r
0023560 \t " I \r \r ; X \r \t r o w 4 x +
0023600 ( 4 * w i d t h ) \r \t r o w 4 y
0023620 \r \t r o w 4 x + ( 5 * w i d t h
0023640 ) \r \t r o w 4 y + h e i g h t \r
0023660 \t . b l k 4 \r \t " X \r \r ; O
0023700 \r \t r o w 2 x + ( 1 0 * w i d t
0023720 h ) \r \t r o w 2 y \r \t r o w 2 x
0023740 + ( 1 1 * w i d t h ) \r \t r o w
0023760 2 y + h e i g h t \r 376 001 \0 j 330 \t
0024000 . b l k 4 \r \t " O \r \r ; L \r
0024020 \t r o w 3 x + ( 1 0 * w i d t h
0024040 ) \r \t r o w 3 y \r \t r o w 3 x +
0024060 ( 1 1 * w i d t h ) \r \t r o w 3
0024100 y + h e i g h t \r \t . b l k 4
0024120 \r \t " L \r \r ; , \r \t r o w 4 x
0024140 + ( 1 0 * w i d t h ) \r \t r o w
0024160 4 y \r \t r o w 4 x + ( 1 1 * w i
0024200 d t h ) \r \t r o w 4 y + h e i g
0024220 h t \r \t . b l k 4 \r \t " , \r \r
0024240 ; " \r \t r o w 3 x + ( 1 2 * w
0024260 i d t h ) \r \t r o w 3 y \r \t r o
0024300 w 3 x + ( 1 3 * w i d t h ) \r \t
0024320 r o w 3 y + h e i g h t \r \t . b
0024340 l k 4 \r \t " " \r \r ; ] \r \t r
0024360 o w 2 x + ( 1 3 * w i d t h ) 376
0024400 001 \0 266 263 \r \t r o w 2 y \r \t r o w
0024420 2 x + ( 1 4 * w i d t h ) \r \t r
0024440 o w 2 y + h e i g h t \r \t . b l
0024460 k 4 \r \t " ] \r \r ; < b l a n
0024500 k m i d d l e > \r \t r o w 3 x
0024520 + ( 1 5 * w i d t h ) \r \t r o w
0024540 3 y \r \t r o w 3 x + ( 1 6 * w i
0024560 d t h ) \r \t r o w 3 y + h e i g
0024600 h t \r \t . b l k 4 \r \t 0 \r \r ;
0024620 < b l a n k t o p > \r \t r o
0024640 w 2 x + ( 1 6 * w i d t h ) \r \t
0024660 r o w 2 y \r \t r o w 2 x + ( 1 7
0024700 * w i d t h ) \r \t r o w 2 y + h
0024720 e i g h t \r \t . b l k 4 \r \t 0
0024740 \r \r ; 1 \r \t r o w 1 x + ( 1 *
0024760 w i d t h ) \r \t r o w 1 y \r \t r
0025000 o w 1 x 376 001 \0 265 246 + ( 2 * w i d
0025020 t h ) \r \t r o w 1 y + h e i g h
0025040 t \r \t . b l k 4 \r \t " 1 \r \r ;
0025060 < e s c > \r \t r o w 1 x \r \t r
0025100 o w 1 y \r \t r o w 1 x + ( 1 * w
0025120 i d t h ) \r \t r o w 1 y + h e i
0025140 g h t \r \t . b l k 4 \r \t 0 \r \r
0025160 ; < t a b > \r \t r o w 2 x \r \t
0025200 r o w 2 y \r \t r o w 2 x + ( 2 *
0025220 w i d t h ) \r \t r o w 2 y + h e
0025240 i g h t \r \t . b l k 4 \r \t 0 \r
0025260 \r ; F \r \t r o w 3 x + ( 5 * w
0025300 i d t h ) \r \t r o w 3 y \r \t r o
0025320 w 3 x + ( 6 * w i d t h ) \r \t r
0025340 o w 3 y + h e i g h t \r \t . b l
0025360 k 4 \r \t " F \r \r ; < c t r l
0025400 > \r \t r o w 3 x \r 376 001 \0 266 351 \t r
0025420 o w 3 y \r \t r o w 3 x + ( 2 * w
0025440 i d t h ) \r \t r o w 3 y + h e i
0025460 g h t \r \t . b l k 4 \r \t 0 \r \r
0025500 ; C \r \t r o w 4 x + ( 5 * w i
0025520 d t h ) \r \t r o w 4 y \r \t r o w
0025540 4 x + ( 6 * w i d t h ) \r \t r o
0025560 w 4 y + h e i g h t \r \t . b l k
0025600 4 \r \t " C \r \r ; J \r \t r o w
0025620 3 x + ( 8 * w i d t h ) \r \t r o
0025640 w 3 y \r \t r o w 3 x + ( 9 * w i
0025660 d t h ) \r \t r o w 3 y + h e i g
0025700 h t \r \t . b l k 4 \r \t " J \r \r
0025720 ; B \r \t r o w 4 x + ( 7 * w i
0025740 d t h ) \r \t r o w 4 y \r \t r o w
0025760 4 x + ( 8 * w i d t h ) \r \t r o
0026000 w 4 y + h e i g h t \r \t . b 376 001
0026020 \0 367 030 l k 4 \r \t " B \r \r ; Z
0026040 \r \t r o w 4 x + ( 3 * w i d t h
0026060 ) \r \t r o w 4 y \r \t r o w 4 x +
0026100 ( 4 * w i d t h ) \r \t r o w 4 y
0026120 + h e i g h t \r \t . b l k 4 \r
0026140 \t " Z \r \r ; < s h i f t l e
0026160 f t > \r \t r o w 4 x + ( 1 * w i
0026200 d t h ) \r \t r o w 4 y \r \t r o w
0026220 4 x + ( 3 * w i d t h ) \r \t r o
0026240 w 4 y + h e i g h t \r \t . b l k
0026260 4 \r \t 0 \r \r ; . \r \t r o w 4
0026300 x + ( 1 1 * w i d t h ) \r \t r o
0026320 w 4 y \r \t r o w 4 x + ( 1 2 * w
0026340 i d t h ) \r \t r o w 4 y + h e i
0026360 g h t \r \t . b l k 4 \r \t " . \r
0026400 \r ; ; \r \t r o w 3 x + ( 1 1 *
0026420 w i d 376 001 \0 8 I t h ) \r \t r o w
0026440 3 y \r \t r o w 3 x + ( 1 2 * w i
0026460 d t h ) \r \t r o w 3 y + h e i g
0026500 h t \r \t . b l k 4 \r \t " ; \r \r
0026520 ; < r e t u r n > \r \t r o w 3
0026540 x + ( 1 3 * w i d t h ) \r \t r o
0026560 w 3 y \r \t r o w 3 x + ( 1 5 * w
0026600 i d t h ) \r \t r o w 3 y + h e i
0026620 g h t \r \t . b l k 4 \r \t 0 \r \r
0026640 ; _ \r \t r o w 2 x + ( 1 4 * w
0026660 i d t h ) \r \t r o w 2 y \r \t r o
0026700 w 2 x + ( 1 5 * w i d t h ) \r \t
0026720 r o w 2 y + h e i g h t \r \t . b
0026740 l k 4 \r \t " _ \r \r ; < d e l
0026760 > \r \t r o w 1 x + ( 1 5 * w i d
0027000 t h ) \r \t r o w 1 y \r \t r o w 1
0027020 x + ( 1 6 * w i 376 001 \0 316 U d t h
0027040 ) \r \t r o w 1 y + h e i g h t \r
0027060 \t . b l k 4 \r \t 0 \r \r ; u n
0027100 d e f i n e d \r \t . b l k 4 \r
0027120 \t . b l k 4 \r \t 0 \r \r ; R \r
0027140 \t r o w 2 x + ( 5 * w i d t h )
0027160 \r \t r o w 2 y \r \t r o w 2 x + (
0027200 6 * w i d t h ) \r \t r o w 2 y +
0027220 h e i g h t \r \t . b l k 4 \r \t
0027240 " R \r \r ; T \r \t r o w 2 x + (
0027260 6 * w i d t h ) \r \t r o w 2 y \r
0027300 \t r o w 2 x + ( 7 * w i d t h )
0027320 \r \t r o w 2 y + h e i g h t \r \t
0027340 . b l k 4 \r \t " T \r \r ; G \r
0027360 \t r o w 3 x + ( 6 * w i d t h )
0027400 \r \t r o w 3 y \r \t r o w 3 x + (
0027420 7 * w i d t h ) \r \t r o w 376 001 \0
0027440 354 337 3 y + h e i g h t \r \t . b l
0027460 k 4 \r \t " G \r \r ; Y \r \t r o
0027500 w 2 x + ( 7 * w i d t h ) \r \t r
0027520 o w 2 y \r \t r o w 2 x + ( 8 * w
0027540 i d t h ) \r \t r o w 2 y + h e i
0027560 g h t \r \t . b l k 4 \r \t " Y \r
0027600 \r ; H \r \t r o w 3 x + ( 7 * w
0027620 i d t h ) \r \t r o w 3 y \r \t r o
0027640 w 3 x + ( 8 * w i d t h ) \r \t r
0027660 o w 3 y + h e i g h t \r \t . b l
0027700 k 4 \r \t " H \r \r ; 8 \r \t r o
0027720 w 1 x + ( 8 * w i d t h ) \r \t r
0027740 o w 1 y \r \t r o w 1 x + ( 9 * w
0027760 i d t h ) \r \t r o w 1 y + h e i
0030000 g h t \r \t . b l k 4 \r \t " 8 \r
0030020 \r ; N \r \t r o w 4 x + ( 8 * w
0030040 i d 376 001 \0 316 203 t h ) \r \t r o w 4
0030060 y \r \t r o w 4 x + ( 9 * w i d t
0030100 h ) \r \t r o w 4 y + h e i g h t
0030120 \r \t . b l k 4 \r \t " N \r \r ;
0030140 M \r \t r o w 4 x + ( 9 * w i d t
0030160 h ) \r \t r o w 4 y \r \t r o w 4 x
0030200 + ( 1 0 * w i d t h ) \r \t r o w
0030220 4 y + h e i g h t \r \t . b l k
0030240 4 \r \t " M \r \r ; < l o c k > \r
0030260 \t r o w 4 x \r \t r o w 4 y \r \t r
0030300 o w 4 x + ( 1 * w i d t h ) \r \t
0030320 r o w 4 y + h e i g h t \r \t . b
0030340 l k 4 \r \t 0 \r \r ; < s p a c
0030360 e > \r \t r o w 5 x \r \t r o w 5 y
0030400 \r \t r o w 5 x + ( 9 * w i d t h
0030420 ) \r \t r o w 5 y + h e i g h t \r
0030440 \t . b l k 4 376 001 \0 203 I \r \t 0 \r
0030460 \r ; [ \r \t r o w 2 x + ( 1 2 *
0030500 w i d t h ) \r \t r o w 2 y \r \t r
0030520 o w 2 x + ( 1 3 * w i d t h ) \r
0030540 \t r o w 2 y + h e i g h t \r \t .
0030560 b l k 4 \r \t " [ \r \r ; = \r \t
0030600 r o w 1 x + ( 1 2 * w i d t h )
0030620 \r \t r o w 1 y \r \t r o w 1 x + (
0030640 1 3 * w i d t h ) \r \t r o w 1 y
0030660 + h e i g h t \r \t . b l k 4 \r
0030700 \t " = \r \r ; < s h i f t r i
0030720 g h t > \r \t r o w 4 x + ( 1 3 *
0030740 w i d t h ) \r \t r o w 4 y \r \t r
0030760 o w 4 x + ( 1 5 * w i d t h ) \r
0031000 \t r o w 4 y + h e i g h t \r \t .
0031020 b l k 4 \r \t 0 \r \r ; < b l a
0031040 n k b o t t o m > \r \t 376 \0 212 257
0031060 \b r o w 4 x + ( 1 5 * w i d t h
0031100 ) \r \t r o w 4 y \r \t r o w 4 x +
0031120 ( 1 6 * w i d t h ) \r \t r o w 4
0031140 y + h e i g h t \r \t . b l k 4
0031160 \r \t 0 \r \r ; u n d e f i n e d
0031200 \r \t . b l k 4 \r \t . b l k 4
0031220 \r \t 0 \r \r ; u n d e f i n e d
0031240 \r \t . b l k 4 \r \t . b l k 4
0031260 \r \t 0 \r \r \t . e n d \r 377 \0 \0 K e
0031300 y T e s t A l t o 2 . a s m \0 376
0031320 001 \0 271 276 ; K e y T e s t A l t
0031340 o 2 . a s m \r ; C o p y r i g
0031360 h t X e r o x C o r p o r a
0031400 t i o n 1 9 7 9 \r ; L a s t
0031420 m o d i f i e d J a n u a r
0031440 y 1 1 , 1 9 8 0 5 : 1 5
0031460 P M b y B o g g s \r \r . b
0031500 e x t a l t o 2 K b d \r \r \t .
0031520 s r e l \r \r a l t o 2 K b d : \t
0031540 . a l t o 2 K b d \r \r \t . n r e
0031560 l \r \r \t . r d x 1 0 \r \r w i d
0031600 t h = 2 4 \r h e i g h t =
0031620 2 4 \r \r F L x = 2 4 \r F R
0031640 x = 4 8 2 \r \r r o w 0 y =
0031660 3 8 0 \r \r r o w 1 x = 1 0
0031700 8 \r r o w 1 y = r o w 0 y +
0031720 h e i g 376 001 \0 { 255 h t \r \r r o w
0031740 2 x = 9 2 \r r o w 2 y =
0031760 r o w 1 y + h e i g h t \r \r r o
0032000 w 3 x = 1 0 0 \r r o w 3 y
0032020 = r o w 2 y + h e i g h t \r \r
0032040 r o w 4 x = 8 4 \r r o w 4 y
0032060 = r o w 3 y + h e i g h t \r
0032100 \r r o w 5 x = 1 7 2 \r r o w
0032120 5 y = r o w 4 y + h e i g h
0032140 t \r \r \r . a l t o 2 K b d : \r \t
0032160 6 4 \t \t ; n u m K e y s \r \t -
0032200 1 \t \t ; k e y s e t = t r
0032220 u e \r ; 5 \r \t r o w 1 x + ( 5
0032240 * w i d t h ) \r \t r o w 1 y \r \t
0032260 r o w 1 x + ( 6 * w i d t h ) \r
0032300 \t r o w 1 y + h e i g h t \r \t .
0032320 b l k 4 \r \t " 5 376 001 \0 344 250 \r \r
0032340 ; 4 \r \t r o w 1 x + ( 4 * w i
0032360 d t h ) \r \t r o w 1 y \r \t r o w
0032400 1 x + ( 5 * w i d t h ) \r \t r o
0032420 w 1 y + h e i g h t \r \t . b l k
0032440 4 \r \t " 4 \r \r ; 6 \r \t r o w
0032460 1 x + ( 6 * w i d t h ) \r \t r o
0032500 w 1 y \r \t r o w 1 x + ( 7 * w i
0032520 d t h ) \r \t r o w 1 y + h e i g
0032540 h t \r \t . b l k 4 \r \t " 6 \r \r
0032560 ; E \r \t r o w 2 x + ( 4 * w i
0032600 d t h ) \r \t r o w 2 y \r \t r o w
0032620 2 x + ( 5 * w i d t h ) \r \t r o
0032640 w 2 y + h e i g h t \r \t . b l k
0032660 4 \r \t " E \r \r ; 7 \r \t r o w
0032700 1 x + ( 7 * w i d t h ) \r \t r o
0032720 w 1 y \r \t r o w 1 x + ( 8 * 376 001
0032740 \0 P 246 w i d t h ) \r \t r o w 1 y
0032760 + h e i g h t \r \t . b l k 4 \r
0033000 \t " 7 \r \r ; D \r \t r o w 3 x +
0033020 ( 4 * w i d t h ) \r \t r o w 3 y
0033040 \r \t r o w 3 x + ( 5 * w i d t h
0033060 ) \r \t r o w 3 y + h e i g h t \r
0033100 \t . b l k 4 \r \t " D \r \r ; U
0033120 \r \t r o w 2 x + ( 8 * w i d t h
0033140 ) \r \t r o w 2 y \r \t r o w 2 x +
0033160 ( 9 * w i d t h ) \r \t r o w 2 y
0033200 + h e i g h t \r \t . b l k 4 \r
0033220 \t " U \r \r ; V \r \t r o w 4 x +
0033240 ( 6 * w i d t h ) \r \t r o w 4 y
0033260 \r \t r o w 4 x + ( 7 * w i d t h
0033300 ) \r \t r o w 4 y + h e i g h t \r
0033320 \t . b l k 4 \r \t " V \r \r ; 0
0033340 \r \t r 376 001 \0 245 } o w 1 x + ( 1 0
0033360 * w i d t h ) \r \t r o w 1 y \r \t
0033400 r o w 1 x + ( 1 1 * w i d t h )
0033420 \r \t r o w 1 y + h e i g h t \r \t
0033440 . b l k 4 \r \t " 0 \r \r ; K \r
0033460 \t r o w 3 x + ( 9 * w i d t h )
0033500 \r \t r o w 3 y \r \t r o w 3 x + (
0033520 1 0 * w i d t h ) \r \t r o w 3 y
0033540 + h e i g h t \r \t . b l k 4 \r
0033560 \t " K \r \r ; - \r \t r o w 1 x +
0033600 ( 1 1 * w i d t h ) \r \t r o w 1
0033620 y \r \t r o w 1 x + ( 1 2 * w i d
0033640 t h ) \r \t r o w 1 y + h e i g h
0033660 t \r \t . b l k 4 \r \t " - \r \r ;
0033700 P \r \t r o w 2 x + ( 1 1 * w i
0033720 d t h ) \r \t r o w 2 y \r \t r o w
0033740 2 x + ( 1 2 * w 376 001 \0 271 o i d t
0033760 h ) \r \t r o w 2 y + h e i g h t
0034000 \r \t . b l k 4 \r \t " P \r \r ;
0034020 / \r \t r o w 4 x + ( 1 2 * w i d
0034040 t h ) \r \t r o w 4 y \r \t r o w 4
0034060 x + ( 1 3 * w i d t h ) \r \t r o
0034100 w 4 y + h e i g h t \r \t . b l k
0034120 4 \r \t " / \r \r ; \ = < F
0034140 R 2 > \r \t F R x \r \t r o w 1 y \r
0034160 \t F R x + ( 2 * w i d t h ) \r \t
0034200 r o w 1 y + h e i g h t \r \t . b
0034220 l k 4 \r \t " \ \r \r ; < l f >
0034240 = < F L 3 > \r \t F L x \r \t r
0034260 o w 2 y \r \t F L x + ( 2 * w i d
0034300 t h ) \r \t r o w 2 y + h e i g h
0034320 t \r \t . b l k 4 \r \t 0 \r \r ;
0034340 < b s > \r \t r o w 2 x + ( 376 001 \0
0034360 m 215 1 2 * w i d t h ) \r \t r o w
0034400 2 y \r \t r o w 2 x + ( 1 4 * w i
0034420 d t h ) \r \t r o w 2 y + h e i g
0034440 h t \r \t . b l k 4 \r \t 0 \r \r ;
0034460 3 \r \t r o w 1 x + ( 3 * w i d
0034500 t h ) \r \t r o w 1 y \r \t r o w 1
0034520 x + ( 4 * w i d t h ) \r \t r o w
0034540 1 y + h e i g h t \r \t . b l k
0034560 4 \r \t " 3 \r \r ; 2 \r \t r o w 1
0034600 x + ( 2 * w i d t h ) \r \t r o w
0034620 1 y \r \t r o w 1 x + ( 3 * w i d
0034640 t h ) \r \t r o w 1 y + h e i g h
0034660 t \r \t . b l k 4 \r \t " 2 \r \r ;
0034700 W \r \t r o w 2 x + ( 3 * w i d
0034720 t h ) \r \t r o w 2 y \r \t r o w 2
0034740 x + ( 4 * w i d t h ) \r \t r o w
0034760 2 y 376 001 \0 M 251 + h e i g h t \r \t
0035000 . b l k 4 \r \t " W \r \r ; Q \r
0035020 \t r o w 2 x + ( 2 * w i d t h )
0035040 \r \t r o w 2 y \r \t r o w 2 x + (
0035060 3 * w i d t h ) \r \t r o w 2 y +
0035100 h e i g h t \r \t . b l k 4 \r \t
0035120 " Q \r \r ; S \r \t r o w 3 x + (
0035140 3 * w i d t h ) \r \t r o w 3 y \r
0035160 \t r o w 3 x + ( 4 * w i d t h )
0035200 \r \t r o w 3 y + h e i g h t \r \t
0035220 . b l k 4 \r \t " S \r \r ; A \r
0035240 \t r o w 3 x + ( 2 * w i d t h )
0035260 \r \t r o w 3 y \r \t r o w 3 x + (
0035300 3 * w i d t h ) \r \t r o w 3 y +
0035320 h e i g h t \r \t . b l k 4 \r \t
0035340 " A \r \r ; 9 \r \t r o w 1 x + (
0035360 9 * w i d t h 376 001 \0 222 S ) \r \t r
0035400 o w 1 y \r \t r o w 1 x + ( 1 0 *
0035420 w i d t h ) \r \t r o w 1 y + h e
0035440 i g h t \r \t . b l k 4 \r \t " 9
0035460 \r \r ; I \r \t r o w 2 x + ( 9 *
0035500 w i d t h ) \r \t r o w 2 y \r \t r
0035520 o w 2 x + ( 1 0 * w i d t h ) \r
0035540 \t r o w 2 y + h e i g h t \r \t .
0035560 b l k 4 \r \t " I \r \r ; X \r \t
0035600 r o w 4 x + ( 4 * w i d t h ) \r
0035620 \t r o w 4 y \r \t r o w 4 x + ( 5
0035640 * w i d t h ) \r \t r o w 4 y + h
0035660 e i g h t \r \t . b l k 4 \r \t "
0035700 X \r \r ; O \r \t r o w 2 x + ( 1
0035720 0 * w i d t h ) \r \t r o w 2 y \r
0035740 \t r o w 2 x + ( 1 1 * w i d t h
0035760 ) \r \t r o w 2 y + h e i 376 001 \0 z
0036000 257 g h t \r \t . b l k 4 \r \t " O
0036020 \r \r ; L \r \t r o w 3 x + ( 1 0
0036040 * w i d t h ) \r \t r o w 3 y \r \t
0036060 r o w 3 x + ( 1 1 * w i d t h )
0036100 \r \t r o w 3 y + h e i g h t \r \t
0036120 . b l k 4 \r \t " L \r \r ; , \r
0036140 \t r o w 4 x + ( 1 0 * w i d t h
0036160 ) \r \t r o w 4 y \r \t r o w 4 x +
0036200 ( 1 1 * w i d t h ) \r \t r o w 4
0036220 y + h e i g h t \r \t . b l k 4
0036240 \r \t " , \r \r ; " \r \t r o w 3 x
0036260 + ( 1 2 * w i d t h ) \r \t r o w
0036300 3 y \r \t r o w 3 x + ( 1 3 * w i
0036320 d t h ) \r \t r o w 3 y + h e i g
0036340 h t \r \t . b l k 4 \r \t " " \r \r
0036360 ; ] \r \t r o w 1 x + ( 1 4 * w
0036400 i 376 001 \0 262 277 d t h ) \r \t r o w 1
0036420 y \r \t r o w 1 x + ( 1 5 * w i d
0036440 t h ) \r \t r o w 1 y + h e i g h
0036460 t \r \t . b l k 4 \r \t " ] \r \r ;
0036500 < F R 4 > \r \t F R x \r \t r o w
0036520 3 y \r \t F R x + ( 2 * w i d t h
0036540 ) \r \t r o w 3 y + h e i g h t \r
0036560 \t . b l k 4 \r \t 0 \r \r ; < b
0036600 w > \r \t r o w 2 x + ( 1 4 * w i
0036620 d t h ) \r \t r o w 2 y \r \t r o w
0036640 2 x + ( 1 5 * w i d t h ) \r \t r
0036660 o w 2 y + h e i g h t \r \t . b l
0036700 k 4 \r \t 0 \r \r ; 1 \r \t r o w
0036720 1 x + ( 1 * w i d t h ) \r \t r o
0036740 w 1 y \r \t r o w 1 x + ( 2 * w i
0036760 d t h ) \r \t r o w 1 y + h e i g
0037000 h t \r \t . b 376 001 \0 034 r l k 4 \r
0037020 \t " 1 \r \r ; < e s c > \r \t r o
0037040 w 1 x \r \t r o w 1 y \r \t r o w 1
0037060 x + ( 1 * w i d t h ) \r \t r o w
0037100 1 y + h e i g h t \r \t . b l k
0037120 4 \r \t 0 \r \r ; < t a b > \r \t r
0037140 o w 2 x \r \t r o w 2 y \r \t r o w
0037160 2 x + ( 2 * w i d t h ) \r \t r o
0037200 w 2 y + h e i g h t \r \t . b l k
0037220 4 \r \t 0 \r \r ; F \r \t r o w 3
0037240 x + ( 5 * w i d t h ) \r \t r o w
0037260 3 y \r \t r o w 3 x + ( 6 * w i d
0037300 t h ) \r \t r o w 3 y + h e i g h
0037320 t \r \t . b l k 4 \r \t " F \r \r ;
0037340 < c t r l > \r \t r o w 3 x \r \t
0037360 r o w 3 y \r \t r o w 3 x + ( 2 *
0037400 w i d t h ) \r \t r o w 376 001 \0 016 372
0037420 3 y + h e i g h t \r \t . b l k
0037440 4 \r \t 0 \r \r ; C \r \t r o w 4 x
0037460 + ( 5 * w i d t h ) \r \t r o w 4
0037500 y \r \t r o w 4 x + ( 6 * w i d t
0037520 h ) \r \t r o w 4 y + h e i g h t
0037540 \r \t . b l k 4 \r \t " C \r \r ;
0037560 J \r \t r o w 3 x + ( 8 * w i d t
0037600 h ) \r \t r o w 3 y \r \t r o w 3 x
0037620 + ( 9 * w i d t h ) \r \t r o w 3
0037640 y + h e i g h t \r \t . b l k 4
0037660 \r \t " J \r \r ; B \r \t r o w 4 x
0037700 + ( 7 * w i d t h ) \r \t r o w 4
0037720 y \r \t r o w 4 x + ( 8 * w i d t
0037740 h ) \r \t r o w 4 y + h e i g h t
0037760 \r \t . b l k 4 \r \t " B \r \r ;
0040000 Z \r \t r o w 4 x + ( 3 * w i d t
0040020 376 001 \0 \b r h ) \r \t r o w 4 y \r \t
0040040 r o w 4 x + ( 4 * w i d t h ) \r
0040060 \t r o w 4 y + h e i g h t \r \t .
0040100 b l k 4 \r \t " Z \r \r ; < s h
0040120 i f t l e f t > \r \t r o w 4 x
0040140 + ( 1 * w i d t h ) \r \t r o w 4
0040160 y \r \t r o w 4 x + ( 3 * w i d t
0040200 h ) \r \t r o w 4 y + h e i g h t
0040220 \r \t . b l k 4 \r \t 0 \r \r ; .
0040240 \r \t r o w 4 x + ( 1 1 * w i d t
0040260 h ) \r \t r o w 4 y \r \t r o w 4 x
0040300 + ( 1 2 * w i d t h ) \r \t r o w
0040320 4 y + h e i g h t \r \t . b l k
0040340 4 \r \t " . \r \r ; ; \r \t r o w 3
0040360 x + ( 1 1 * w i d t h ) \r \t r o
0040400 w 3 y \r \t r o w 3 x + ( 1 2 * w
0040420 i d t h ) 376 001 \0 y 252 \r \t r o w 3
0040440 y + h e i g h t \r \t . b l k 4
0040460 \r \t " ; \r \r ; < r e t u r n >
0040500 \r \t r o w 3 x + ( 1 3 * w i d t
0040520 h ) \r \t r o w 3 y \r \t r o w 3 x
0040540 + ( 1 5 * w i d t h ) \r \t r o w
0040560 3 y + h e i g h t \r \t . b l k
0040600 4 \r \t 0 \r \r ; _ = < F R 3
0040620 > \r \t F R x \r \t r o w 2 y \r \t F
0040640 R x + ( 2 * w i d t h ) \r \t r o
0040660 w 2 y + h e i g h t \r \t . b l k
0040700 4 \r \t " _ \r \r ; < d e l >
0040720 = < F L 1 > \r \t F L x \r \t r o
0040740 w 1 y \r \t F L x + ( 2 * w i d t
0040760 h ) \r \t r o w 1 y + h e i g h t
0041000 \r \t . b l k 4 \r \t 0 \r \r ; <
0041020 F L 3 > \r \t F L x \r 376 001 \0 220 017 \t
0041040 r o w 3 y \r \t F L x + ( 2 * w i
0041060 d t h ) \r \t r o w 3 y + h e i g
0041100 h t \r \t . b l k 4 \r \t 0 \r \r ;
0041120 R \r \t r o w 2 x + ( 5 * w i d
0041140 t h ) \r \t r o w 2 y \r \t r o w 2
0041160 x + ( 6 * w i d t h ) \r \t r o w
0041200 2 y + h e i g h t \r \t . b l k
0041220 4 \r \t " R \r \r ; T \r \t r o w 2
0041240 x + ( 6 * w i d t h ) \r \t r o w
0041260 2 y \r \t r o w 2 x + ( 7 * w i d
0041300 t h ) \r \t r o w 2 y + h e i g h
0041320 t \r \t . b l k 4 \r \t " T \r \r ;
0041340 G \r \t r o w 3 x + ( 6 * w i d
0041360 t h ) \r \t r o w 3 y \r \t r o w 3
0041400 x + ( 7 * w i d t h ) \r \t r o w
0041420 3 y + h e i g h t \r \t . b l k 376
0041440 001 \0 370 223 4 \r \t " G \r \r ; Y \r
0041460 \t r o w 2 x + ( 7 * w i d t h )
0041500 \r \t r o w 2 y \r \t r o w 2 x + (
0041520 8 * w i d t h ) \r \t r o w 2 y +
0041540 h e i g h t \r \t . b l k 4 \r \t
0041560 " Y \r \r ; H \r \t r o w 3 x + (
0041600 7 * w i d t h ) \r \t r o w 3 y \r
0041620 \t r o w 3 x + ( 8 * w i d t h )
0041640 \r \t r o w 3 y + h e i g h t \r \t
0041660 . b l k 4 \r \t " H \r \r ; 8 \r
0041700 \t r o w 1 x + ( 8 * w i d t h )
0041720 \r \t r o w 1 y \r \t r o w 1 x + (
0041740 9 * w i d t h ) \r \t r o w 1 y +
0041760 h e i g h t \r \t . b l k 4 \r \t
0042000 " 8 \r \r ; N \r \t r o w 4 x + (
0042020 8 * w i d t h ) \r \t r o w 4 y \r
0042040 \t r o w 376 001 \0 256 B 4 x + ( 9 * w
0042060 i d t h ) \r \t r o w 4 y + h e i
0042100 g h t \r \t . b l k 4 \r \t " N \r
0042120 \r ; M \r \t r o w 4 x + ( 9 * w
0042140 i d t h ) \r \t r o w 4 y \r \t r o
0042160 w 4 x + ( 1 0 * w i d t h ) \r \t
0042200 r o w 4 y + h e i g h t \r \t . b
0042220 l k 4 \r \t " M \r \r ; < l o c
0042240 k > \r \t r o w 4 x \r \t r o w 4 y
0042260 \r \t r o w 4 x + ( 1 * w i d t h
0042300 ) \r \t r o w 4 y + h e i g h t \r
0042320 \t . b l k 4 \r \t 0 \r \r ; < s
0042340 p a c e > \r \t r o w 5 x \r \t r o
0042360 w 5 y \r \t r o w 5 x + ( 9 * w i
0042400 d t h ) \r \t r o w 5 y + h e i g
0042420 h t \r \t . b l k 4 \r \t 0 \r \r ;
0042440 [ \r \t r o w 1 x 376 001 \0 L a + (
0042460 1 3 * w i d t h ) \r \t r o w 1 y
0042500 \r \t r o w 1 x + ( 1 4 * w i d t
0042520 h ) \r \t r o w 1 y + h e i g h t
0042540 \r \t . b l k 4 \r \t " [ \r \r ;
0042560 = \r \t r o w 1 x + ( 1 2 * w i d
0042600 t h ) \r \t r o w 1 y \r \t r o w 1
0042620 x + ( 1 3 * w i d t h ) \r \t r o
0042640 w 1 y + h e i g h t \r \t . b l k
0042660 4 \r \t " = \r \r ; < s h i f t
0042700 r i g h t > \r \t r o w 4 x + (
0042720 1 3 * w i d t h ) \r \t r o w 4 y
0042740 \r \t r o w 4 x + ( 1 5 * w i d t
0042760 h ) \r \t r o w 4 y + h e i g h t
0043000 \r \t . b l k 4 \r \t 0 \r \r ; <
0043020 F R 1 > = < s w a t > \r \t F
0043040 R x \r \t r o w 0 y \r \t F R x 376 \0
0043060 245 372 341 + ( 2 * w i d t h ) \r \t r
0043100 o w 0 y + h e i g h t \r \t . b l
0043120 k 4 \r \t 0 \r \r ; < F L 4 > \r
0043140 \t F L x \r \t r o w 4 y \r \t F L x
0043160 + ( 2 * w i d t h ) \r \t r o w 4
0043200 y + h e i g h t \r \t . b l k 4
0043220 \r \t 0 \r \r ; < F R 5 > \r \t F R
0043240 x \r \t r o w 4 y \r \t F R x + ( 2
0043260 * w i d t h ) \r \t r o w 4 y + h
0043300 e i g h t \r \t . b l k 4 \r \t 0
0043320 \r \r \t . e n d \r 377 \0 \0 K e y T e
0043340 s t T e a k 3 . a s m \0 376 001 \0 324
0043360 [ ; K e y T e s t T e a k 3 .
0043400 a s m \r ; T H I S F I L E
0043420 C O N T A I N S X E R O X P
0043440 R O P R I E T A R Y D A T A \r
0043460 ; L a s t m o d i f i e d
0043500 J a n u a r y 1 1 , 1 9 8 0
0043520 5 : 1 5 P M b y B o g
0043540 g s \r \r . b e x t t e a k 3 K
0043560 b d \r \r \t . s r e l \r \r t e a k
0043600 3 K b d : \t . t e a k 3 K b d \r
0043620 \r \t . n r e l \r \r \t . r d x 1
0043640 0 \r \r h e i g h t = 2 4 \r w
0043660 i d t h = 2 4 \r w i d t h 2
0043700 5 = w i d t h / 4 \r w i d t
0043720 h 5 0 = w i d t h / 2 \r w i
0043740 d t h 7 5 = ( w i d t h * 3
0043760 ) 376 001 \0 324 s / 4 \r \r F L x =
0044000 2 4 \r K B x = F L x + ( 3 *
0044020 w i d t h ) + w i d t h 5 0 + w
0044040 i d t h 5 0 \r F R x = K B x
0044060 + ( 1 5 * w i d t h ) + w i d t
0044100 h 5 0 \r \r r o w 0 y = 3 7 0
0044120 \r r o w 0 x = K B x \r \r r o
0044140 w 1 y = r o w 0 y + ( h e i
0044160 g h t / 2 ) + h e i g h t \r r o
0044200 w 1 x = K B x + w i d t h \r
0044220 \r r o w 2 y = r o w 1 y + h
0044240 e i g h t \r r o w 2 x = K B
0044260 x + w i d t h + w i d t h 5 0 \r
0044300 \r r o w 3 y = r o w 2 y + h
0044320 e i g h t \r r o w 3 x = K B
0044340 x + w i d t h + w i d t h 5 0 +
0044360 w i d t h 2 376 001 \0 213 ? 5 \r \r r o
0044400 w 4 y = r o w 3 y + h e i g
0044420 h t \r r o w 4 x = K B x + (
0044440 2 * w i d t h ) + w i d t h 2 5
0044460 \r \r r o w 5 y = r o w 4 y +
0044500 h e i g h t \r r o w 5 x = K
0044520 B x + ( 2 * w i d t h ) + w i d
0044540 t h 5 0 + w i d t h 2 5 \r \r . t
0044560 e a k 3 K b d : \r \t 9 6 \t \t ;
0044600 n u m K e y s \r \t 0 \t \t ; k e
0044620 y s e t = f a l s e \r ; 5
0044640 \r \t r o w 1 x + ( 4 * w i d t h
0044660 ) \r \t r o w 1 y \r \t r o w 1 x +
0044700 ( 5 * w i d t h ) \r \t r o w 1 y
0044720 + h e i g h t \r \t . b l k 4 \r
0044740 \t " 5 \r \r ; 4 \r \t r o w 1 x +
0044760 ( 3 * w i d t h ) \r \t 376 001 \0 . 1
0045000 r o w 1 y \r \t r o w 1 x + ( 4 *
0045020 w i d t h ) \r \t r o w 1 y + h e
0045040 i g h t \r \t . b l k 4 \r \t " 4
0045060 \r \r ; 6 \r \t r o w 1 x + ( 5 *
0045100 w i d t h ) \r \t r o w 1 y \r \t r
0045120 o w 1 x + ( 6 * w i d t h ) \r \t
0045140 r o w 1 y + h e i g h t \r \t . b
0045160 l k 4 \r \t " 6 \r \r ; E \r \t r
0045200 o w 2 x + ( 2 * w i d t h ) \r \t
0045220 r o w 2 y \r \t r o w 2 x + ( 3 *
0045240 w i d t h ) \r \t r o w 2 y + h e
0045260 i g h t \r \t . b l k 4 \r \t " E
0045300 \r \r ; 7 \r \t r o w 1 x + ( 6 *
0045320 w i d t h ) \r \t r o w 1 y \r \t r
0045340 o w 1 x + ( 7 * w i d t h ) \r \t
0045360 r o w 1 y + h e i g h t \r \t . b
0045400 376 001 \0 333 220 l k 4 \r \t " 7 \r \r ;
0045420 D \r \t r o w 3 x + ( 2 * w i d
0045440 t h ) \r \t r o w 3 y \r \t r o w 3
0045460 x + ( 3 * w i d t h ) \r \t r o w
0045500 3 y + h e i g h t \r \t . b l k
0045520 4 \r \t " D \r \r ; U \r \t r o w 2
0045540 x + ( 6 * w i d t h ) \r \t r o w
0045560 2 y \r \t r o w 2 x + ( 7 * w i d
0045600 t h ) \r \t r o w 2 y + h e i g h
0045620 t \r \t . b l k 4 \r \t " U \r \r ;
0045640 V \r \t r o w 4 x + ( 3 * w i d
0045660 t h ) \r \t r o w 4 y \r \t r o w 4
0045700 x + ( 4 * w i d t h ) \r \t r o w
0045720 4 y + h e i g h t \r \t . b l k
0045740 4 \r \t " V \r \r ; 0 \r \t r o w 1
0045760 x + ( 9 * w i d t h ) \r \t r o w
0046000 1 y \r \t r 376 001 \0 303 021 o w 1 x + (
0046020 1 0 * w i d t h ) \r \t r o w 1 y
0046040 + h e i g h t \r \t . b l k 4 \r
0046060 \t " 0 \r \r ; K \r \t r o w 3 x +
0046100 ( 7 * w i d t h ) \r \t r o w 3 y
0046120 \r \t r o w 3 x + ( 8 * w i d t h
0046140 ) \r \t r o w 3 y + h e i g h t \r
0046160 \t . b l k 4 \r \t " K \r \r ; -
0046200 \r \t r o w 1 x + ( 1 0 * w i d t
0046220 h ) \r \t r o w 1 y \r \t r o w 1 x
0046240 + ( 1 1 * w i d t h ) \r \t r o w
0046260 1 y + h e i g h t \r \t . b l k
0046300 4 \r \t " - \r \r ; P \r \t r o w 2
0046320 x + ( 9 * w i d t h ) \r \t r o w
0046340 2 y \r \t r o w 2 x + ( 1 0 * w i
0046360 d t h ) \r \t r o w 2 y + h e i g
0046400 h t \r \t . b l k 4 376 001 \0 215 333 \r
0046420 \t " P \r \r ; / \r \t r o w 4 x +
0046440 ( 9 * w i d t h ) \r \t r o w 4 y
0046460 \r \t r o w 4 x + ( 1 0 * w i d t
0046500 h ) \r \t r o w 4 y + h e i g h t
0046520 \r \t . b l k 4 \r \t " / \r \r ;
0046540 \ = < F R 2 > \r \t r o w 0 x
0046560 + ( 9 * ( w i d t h + w i d t h
0046600 5 0 ) ) \r \t r o w 0 y \r \t r o w
0046620 0 x + ( 1 0 * ( w i d t h + w i
0046640 d t h 5 0 ) ) \r \t r o w 0 y + h
0046660 e i g h t \r \t . b l k 4 \r \t "
0046700 \ \r \r ; < l f > \r \t F L x + (
0046720 2 * w i d t h ) \r \t r o w 2 y \r
0046740 \t F L x + ( 3 * w i d t h ) + w
0046760 i d t h 5 0 \r \t r o w 2 y + h e
0047000 i g h t \r \t . b l k 4 \r \t 0 376
0047020 001 \0 $ 346 \r \r ; < b s > \r \t r o
0047040 w 1 x + ( 1 2 * w i d t h ) \r \t
0047060 r o w 1 y \r \t r o w 1 x + ( 1 4
0047100 * w i d t h ) \r \t r o w 1 y + h
0047120 e i g h t \r \t . b l k 4 \r \t 0
0047140 \r \r ; 3 \r \t r o w 1 x + ( 2 *
0047160 w i d t h ) \r \t r o w 1 y \r \t r
0047200 o w 1 x + ( 3 * w i d t h ) \r \t
0047220 r o w 1 y + h e i g h t \r \t . b
0047240 l k 4 \r \t " 3 \r \r ; 2 \r \t r
0047260 o w 1 x + ( 1 * w i d t h ) \r \t
0047300 r o w 1 y \r \t r o w 1 x + ( 2 *
0047320 w i d t h ) \r \t r o w 1 y + h e
0047340 i g h t \r \t . b l k 4 \r \t " 2
0047360 \r \r ; W \r \t r o w 2 x + ( 1 *
0047400 w i d t h ) \r \t r o w 2 y \r \t r
0047420 o w 2 x 376 001 \0 F 216 + ( 2 * w i d
0047440 t h ) \r \t r o w 2 y + h e i g h
0047460 t \r \t . b l k 4 \r \t " W \r \r ;
0047500 Q \r \t r o w 2 x + ( 0 * w i d
0047520 t h ) \r \t r o w 2 y \r \t r o w 2
0047540 x + ( 1 * w i d t h ) \r \t r o w
0047560 2 y + h e i g h t \r \t . b l k
0047600 4 \r \t " Q \r \r ; S \r \t r o w 3
0047620 x + ( 1 * w i d t h ) \r \t r o w
0047640 3 y \r \t r o w 3 x + ( 2 * w i d
0047660 t h ) \r \t r o w 3 y + h e i g h
0047700 t \r \t . b l k 4 \r \t " S \r \r ;
0047720 A \r \t r o w 3 x + ( 0 * w i d
0047740 t h ) \r \t r o w 3 y \r \t r o w 3
0047760 x + ( 1 * w i d t h ) \r \t r o w
0050000 3 y + h e i g h t \r \t . b l k
0050020 4 \r \t " A \r \r ; 376 001 \0 311 212 9 \r
0050040 \t r o w 1 x + ( 8 * w i d t h )
0050060 \r \t r o w 1 y \r \t r o w 1 x + (
0050100 9 * w i d t h ) \r \t r o w 1 y +
0050120 h e i g h t \r \t . b l k 4 \r \t
0050140 " 9 \r \r ; I \r \t r o w 2 x + (
0050160 7 * w i d t h ) \r \t r o w 2 y \r
0050200 \t r o w 2 x + ( 8 * w i d t h )
0050220 \r \t r o w 2 y + h e i g h t \r \t
0050240 . b l k 4 \r \t " I \r \r ; X \r
0050260 \t r o w 4 x + ( 1 * w i d t h )
0050300 \r \t r o w 4 y \r \t r o w 4 x + (
0050320 2 * w i d t h ) \r \t r o w 4 y +
0050340 h e i g h t \r \t . b l k 4 \r \t
0050360 " X \r \r ; O \r \t r o w 2 x + (
0050400 8 * w i d t h ) \r \t r o w 2 y \r
0050420 \t r o w 2 x + ( 9 * w i d t 376 001
0050440 \0 242 ~ h ) \r \t r o w 2 y + h e i
0050460 g h t \r \t . b l k 4 \r \t " O \r
0050500 \r ; L \r \t r o w 3 x + ( 8 * w
0050520 i d t h ) \r \t r o w 3 y \r \t r o
0050540 w 3 x + ( 9 * w i d t h ) \r \t r
0050560 o w 3 y + h e i g h t \r \t . b l
0050600 k 4 \r \t " L \r \r ; , \r \t r o
0050620 w 4 x + ( 7 * w i d t h ) \r \t r
0050640 o w 4 y \r \t r o w 4 x + ( 8 * w
0050660 i d t h ) \r \t r o w 4 y + h e i
0050700 g h t \r \t . b l k 4 \r \t " , \r
0050720 \r ; " \r \t r o w 3 x + ( 1 0 *
0050740 w i d t h ) \r \t r o w 3 y \r \t r
0050760 o w 3 x + ( 1 1 * w i d t h ) \r
0051000 \t r o w 3 y + h e i g h t \r \t .
0051020 b l k 4 \r \t " " \r \r ; ] \r \t
0051040 r o w 376 001 \0 204 6 2 x + ( 1 1 * w
0051060 i d t h ) \r \t r o w 2 y \r \t r o
0051100 w 2 x + ( 1 2 * w i d t h ) \r \t
0051120 r o w 2 y + h e i g h t \r \t . b
0051140 l k 4 \r \t " ] \r \r ; < F R 4
0051160 > \r \t F R x + ( 2 * w i d t h )
0051200 + w i d t h 5 0 \r \t r o w 3 y \r
0051220 \t F R x + ( 3 * w i d t h ) + w
0051240 i d t h 5 0 \r \t r o w 3 y + h e
0051260 i g h t \r \t . b l k 4 \r \t 0 \r
0051300 \r ; < b w > \r \t F R x + ( 2 *
0051320 w i d t h ) + w i d t h 5 0 \r \t
0051340 r o w 2 y \r \t F R x + ( 3 * w i
0051360 d t h ) + w i d t h 5 0 \r \t r o
0051400 w 2 y + h e i g h t \r \t . b l k
0051420 4 \r \t 0 \r \r ; 1 \r \t r o w 1
0051440 x + ( 0 * w i d 376 001 \0 e U t h )
0051460 \r \t r o w 1 y \r \t r o w 1 x + (
0051500 1 * w i d t h ) \r \t r o w 1 y +
0051520 h e i g h t \r \t . b l k 4 \r \t
0051540 " 1 \r \r ; < e s c > \r \t r o w
0051560 0 x \r \t r o w 0 y \r \t r o w 0 x
0051600 + ( 1 * w i d t h ) + w i d t h
0051620 5 0 \r \t r o w 0 y + h e i g h t
0051640 \r \t . b l k 4 \r \t 0 \r \r ; <
0051660 t a b > \r \t K B x \r \t r o w 1 y
0051700 \r \t K B x + ( 1 * w i d t h ) \r
0051720 \t r o w 1 y + h e i g h t \r \t K
0051740 B x \r \t r o w 2 y \r \t K B x + (
0051760 1 * w i d t h ) + w i d t h 5 0
0052000 \r \t r o w 2 y + h e i g h t \r \t
0052020 0 \r \r ; F \r \t r o w 3 x + ( 3
0052040 * w i d t h ) \r \t r o w 3 376 001 \0
0052060 243 216 y \r \t r o w 3 x + ( 4 * w i
0052100 d t h ) \r \t r o w 3 y + h e i g
0052120 h t \r \t . b l k 4 \r \t " F \r \r
0052140 ; < c t r l > \r \t r o w 5 x \r
0052160 \t r o w 5 y \r \t r o w 5 x + w i
0052200 d t h + w i d t h 5 0 \r \t r o w
0052220 5 y + h e i g h t \r \t . b l k
0052240 4 \r \t 0 \r \r ; C \r \t r o w 4 x
0052260 + ( 2 * w i d t h ) \r \t r o w 4
0052300 y \r \t r o w 4 x + ( 3 * w i d t
0052320 h ) \r \t r o w 4 y + h e i g h t
0052340 \r \t . b l k 4 \r \t " C \r \r ;
0052360 J \r \t r o w 3 x + ( 6 * w i d t
0052400 h ) \r \t r o w 3 y \r \t r o w 3 x
0052420 + ( 7 * w i d t h ) \r \t r o w 3
0052440 y + h e i g h t \r \t . b l k 4
0052460 \r \t 376 001 \0 376 261 " J \r \r ; B \r \t
0052500 r o w 4 x + ( 4 * w i d t h ) \r
0052520 \t r o w 4 y \r \t r o w 4 x + ( 5
0052540 * w i d t h ) \r \t r o w 4 y + h
0052560 e i g h t \r \t . b l k 4 \r \t "
0052600 B \r \r ; Z \r \t r o w 4 x + ( 0
0052620 * w i d t h ) \r \t r o w 4 y \r \t
0052640 r o w 4 x + ( 1 * w i d t h ) \r
0052660 \t r o w 4 y + h e i g h t \r \t .
0052700 b l k 4 \r \t " Z \r \r ; < s h
0052720 i f t l e f t > \r \t K B x \r \t
0052740 r o w 4 y \r \t K B x + ( 2 * w i
0052760 d t h ) + w i d t h 2 5 \r \t r o
0053000 w 4 y + h e i g h t \r \t . b l k
0053020 4 \r \t 0 \r \r ; . \r \t r o w 4
0053040 x + ( 8 * w i d t h ) \r \t r o w
0053060 4 y \r \t r o w 376 001 \0 Z ~ 4 x + (
0053100 9 * w i d t h ) \r \t r o w 4 y +
0053120 h e i g h t \r \t . b l k 4 \r \t
0053140 " . \r \r ; ; \r \t r o w 3 x + (
0053160 9 * w i d t h ) \r \t r o w 3 y \r
0053200 \t r o w 3 x + ( 1 0 * w i d t h
0053220 ) \r \t r o w 3 y + h e i g h t \r
0053240 \t . b l k 4 \r \t " ; \r \r ; <
0053260 r e t u r n > \r \t r o w 2 x + (
0053300 1 2 * w i d t h ) \r \t r o w 2 y
0053320 \r \t r o w 2 x + ( 1 3 * w i d t
0053340 h ) + w i d t h 5 0 \r \t r o w 2
0053360 y + h e i g h t \r \t r o w 3 x +
0053400 ( 1 2 * w i d t h ) \r \t r o w 3
0053420 y \r \t r o w 3 x + ( 1 3 * w i d
0053440 t h ) + w i d t h 2 5 \r \t r o w
0053460 3 y + h e i g h t \r \t 0 376 001 \0 345
0053500 8 \r \r ; _ \r \t r o w 3 x + ( 1
0053520 1 * w i d t h ) \r \t r o w 3 y \r
0053540 \t r o w 3 x + ( 1 2 * w i d t h
0053560 ) \r \t r o w 3 y + h e i g h t \r
0053600 \t . b l k 4 \r \t " _ \r \r ; <
0053620 d e l > \r \t F L x + ( 2 * w i d
0053640 t h ) \r \t r o w 1 y \r \t F L x +
0053660 ( 3 * w i d t h ) + w i d t h 5
0053700 0 \r \t r o w 1 y + h e i g h t \r
0053720 \t . b l k 4 \r \t 0 \r \r ; < F
0053740 L 3 > \r \t F L x + ( 2 * w i d t
0053760 h ) \r \t r o w 3 y \r \t F L x + (
0054000 3 * w i d t h ) + w i d t h 5 0
0054020 \r \t r o w 3 y + h e i g h t \r \t
0054040 . b l k 4 \r \t 0 \r \r ; R \r \t
0054060 r o w 2 x + ( 3 * w i d t h ) \r
0054100 \t 376 001 \0 w w r o w 2 y \r \t r o w
0054120 2 x + ( 4 * w i d t h ) \r \t r o
0054140 w 2 y + h e i g h t \r \t . b l k
0054160 4 \r \t " R \r \r ; T \r \t r o w
0054200 2 x + ( 4 * w i d t h ) \r \t r o
0054220 w 2 y \r \t r o w 2 x + ( 5 * w i
0054240 d t h ) \r \t r o w 2 y + h e i g
0054260 h t \r \t . b l k 4 \r \t " T \r \r
0054300 ; G \r \t r o w 3 x + ( 4 * w i
0054320 d t h ) \r \t r o w 3 y \r \t r o w
0054340 3 x + ( 5 * w i d t h ) \r \t r o
0054360 w 3 y + h e i g h t \r \t . b l k
0054400 4 \r \t " G \r \r ; Y \r \t r o w
0054420 2 x + ( 5 * w i d t h ) \r \t r o
0054440 w 2 y \r \t r o w 2 x + ( 6 * w i
0054460 d t h ) \r \t r o w 2 y + h e i g
0054500 h t \r \t . b 376 001 \0 341 222 l k 4 \r
0054520 \t " Y \r \r ; H \r \t r o w 3 x +
0054540 ( 5 * w i d t h ) \r \t r o w 3 y
0054560 \r \t r o w 3 x + ( 6 * w i d t h
0054600 ) \r \t r o w 3 y + h e i g h t \r
0054620 \t . b l k 4 \r \t " H \r \r ; 8
0054640 \r \t r o w 1 x + ( 7 * w i d t h
0054660 ) \r \t r o w 1 y \r \t r o w 1 x +
0054700 ( 8 * w i d t h ) \r \t r o w 1 y
0054720 + h e i g h t \r \t . b l k 4 \r
0054740 \t " 8 \r \r ; N \r \t r o w 4 x +
0054760 ( 5 * w i d t h ) \r \t r o w 4 y
0055000 \r \t r o w 4 x + ( 6 * w i d t h
0055020 ) \r \t r o w 4 y + h e i g h t \r
0055040 \t . b l k 4 \r \t " N \r \r ; M
0055060 \r \t r o w 4 x + ( 6 * w i d t h
0055100 ) \r \t r o w 4 y \r \t r 376 001 \0 256 r
0055120 o w 4 x + ( 7 * w i d t h ) \r \t
0055140 r o w 4 y + h e i g h t \r \t . b
0055160 l k 4 \r \t " M \r \r ; < l o c
0055200 k > \r \t K B x \r \t r o w 3 y \r \t
0055220 K B x + w i d t h + w i d t h 5
0055240 0 + w i d t h 2 5 \r \t r o w 3 y
0055260 + h e i g h t \r \t . b l k 4 \r
0055300 \t 0 \r \r ; < s p a c e > \r \t r
0055320 o w 5 x + ( 1 * w i d t h ) + w
0055340 i d t h 5 0 \r \t r o w 5 y \r \t r
0055360 o w 5 x + ( 7 * w i d t h ) + w
0055400 i d t h 5 0 \r \t r o w 5 y + h e
0055420 i g h t \r \t . b l k 4 \r \t 0 \r
0055440 \r ; [ \r \t r o w 2 x + ( 1 0 *
0055460 w i d t h ) \r \t r o w 2 y \r \t r
0055500 o w 2 x + ( 1 1 * w i d t h ) \r
0055520 376 001 \0 " 206 \t r o w 2 y + h e i g
0055540 h t \r \t . b l k 4 \r \t " [ \r \r
0055560 ; = \r \t r o w 1 x + ( 1 1 * w
0055600 i d t h ) \r \t r o w 1 y \r \t r o
0055620 w 1 x + ( 1 2 * w i d t h ) \r \t
0055640 r o w 1 y + h e i g h t \r \t . b
0055660 l k 4 \r \t " = \r \r ; < s h i
0055700 f t r i g h t > \r \t r o w 4 x
0055720 + ( 1 0 * w i d t h ) \r \t r o w
0055740 4 y \r \t r o w 4 x + ( 1 2 * w i
0055760 d t h ) + w i d t h 5 0 + w i d
0056000 t h 2 5 \r \t r o w 4 y + h e i g
0056020 h t \r \t . b l k 4 \r \t 0 \r \r ;
0056040 < F R 1 > = < s w a t > \r
0056060 \t F R x + ( 2 * w i d t h ) + w
0056100 i d t h 5 0 \r \t r o w 4 y \r \t F
0056120 R x + ( 3 376 001 \0 031 \v * w i d t h
0056140 ) + w i d t h 5 0 \r \t r o w 4 y
0056160 + h e i g h t \r \t . b l k 4 \r
0056200 \t 0 \r \r ; < F L 4 > \r \t F L x
0056220 + ( 2 * w i d t h ) \r \t r o w 4
0056240 y \r \t F L x + ( 3 * w i d t h )
0056260 + w i d t h 5 0 \r \t r o w 4 y +
0056300 h e i g h t \r \t . b l k 4 \r \t
0056320 0 \r \r ; < F R 5 > \r \t F R x +
0056340 ( 2 * w i d t h ) + w i d t h 5
0056360 0 \r \t r o w 1 y \r \t F R x + ( 3
0056400 * w i d t h ) + w i d t h 5 0 \r
0056420 \t r o w 1 y + h e i g h t \r \t .
0056440 b l k 4 \r \t 0 \r \r ; < R 5 >
0056460 = C A R R I A G E \r \t F R x
0056500 + ( 1 * w i d t h ) \r \t r o w 2
0056520 y \r \t F R x + ( 2 * 376 001 \0 377 227 w
0056540 i d t h ) + w i d t h 5 0 \r \t r
0056560 o w 2 y + h e i g h t \r \t . b l
0056600 k 4 \r \t 0 \r \r ; < R 1 1 >
0056620 = S P E C I A L \r \t F R x + (
0056640 1 * w i d t h ) \r \t r o w 4 y \r
0056660 \t F R x + ( 2 * w i d t h ) + w
0056700 i d t h 5 0 \r \t r o w 4 y + h e
0056720 i g h t \r \t . b l k 4 \r \t 0 \r
0056740 \r ; < L 1 0 > \r \t F L x \r \t r
0056760 o w 4 y \r \t F L x + w i d t h \r
0057000 \t r o w 4 y + h e i g h t \r \t .
0057020 b l k 4 \r \t 0 \r \r ; < L 7 >
0057040 \r \t F L x \r \t r o w 3 y \r \t F L
0057060 x + w i d t h \r \t r o w 3 y + h
0057100 e i g h t \r \t . b l k 4 \r \t 0
0057120 \r \r ; < L 4 > \r \t F L x \r \t 376
0057140 001 \0 234 e r o w 2 y \r \t F L x + w
0057160 i d t h \r \t r o w 2 y + h e i g
0057200 h t \r \t . b l k 4 \r \t 0 \r \r ;
0057220 < L 1 > \r \t F L x \r \t r o w 1
0057240 y \r \t F L x + w i d t h \r \t r o
0057260 w 1 y + h e i g h t \r \t . b l k
0057300 4 \r \t 0 \r \r ; < A 9 > \r \t r
0057320 o w 5 x + ( 7 * w i d t h ) + w
0057340 i d t h 5 0 \r \t r o w 5 y \r \t r
0057360 o w 5 x + ( 9 * w i d t h ) \r \t
0057400 r o w 5 y + h e i g h t \r \t . b
0057420 l k 4 \r \t 0 \r \r ; < R 1 0 >
0057440 \r \t . b l k 4 \r \t . b l k 4
0057460 \r \t 0 \r \r ; < L 1 1 > = A
0057500 G A I N \r \t F L x + ( 1 * w i d
0057520 t h ) \r \t r o w 4 y \r \t F L x +
0057540 ( 2 * w 376 001 \0 \ 313 i d t h ) \r \t
0057560 r o w 4 y + h e i g h t \r \t . b
0057600 l k 4 \r \t 0 \r \r ; < L 8 >
0057620 = G L O B L R P L C E \r \t F
0057640 L x + ( 1 * w i d t h ) \r \t r o
0057660 w 3 y \r \t F L x + ( 2 * w i d t
0057700 h ) \r \t r o w 3 y + h e i g h t
0057720 \r \t . b l k 4 \r \t 0 \r \r ; <
0057740 L 5 > = F I N D \r \t F L x +
0057760 ( 1 * w i d t h ) \r \t r o w 2 y
0060000 \r \t F L x + ( 2 * w i d t h ) \r
0060020 \t r o w 2 y + h e i g h t \r \t .
0060040 b l k 4 \r \t 0 \r \r ; < L 2 >
0060060 = S T O P / U N D O \r \t F L
0060100 x + ( 1 * w i d t h ) \r \t r o w
0060120 1 y \r \t F L x + ( 2 * w i d t h
0060140 ) \r \t r o w 1 y + 376 001 \0 / \n h e
0060160 i g h t \r \t . b l k 4 \r \t 0 \r
0060200 \r ; < R 2 > = H E L P \r \t
0060220 F R x + ( 1 * w i d t h ) \r \t r
0060240 o w 1 y \r \t F R x + ( 2 * w i d
0060260 t h ) + w i d t h 5 0 \r \t r o w
0060300 1 y + h e i g h t \r \t . b l k
0060320 4 \r \t 0 \r \r ; < R 7 > = D
0060340 E F / E X P A N D \r \t F R x \r \t
0060360 r o w 3 y \r \t F R x + w i d t h
0060400 \r \t r o w 3 y + ( 2 * h e i g h
0060420 t ) \r \t . b l k 4 \r \t 0 \r \r ;
0060440 < R 4 > \r \t . b l k 4 \r \t .
0060460 b l k 4 \r \t 0 \r \r ; < D 2 >
0060500 = d i a g n o s t i c o n
0060520 l y \r \t . b l k 4 \r \t . b l k
0060540 4 \r \t 0 \r \r ; < D 1 > 376 001
0060560 \0 } t = d i a g n o s t i c
0060600 o n l y \r \t . b l k 4 \r \t . b
0060620 l k 4 \r \t 0 \r \r ; < 4 8 >
0060640 = n o t o n l e v e l I
0060660 I I \r \t . b l k 4 \r \t . b l k
0060700 4 \r \t 0 \r \r ; < T 2 > =
0060720 I N D E N T \r \t r o w 0 x + ( 1
0060740 * w i d t h ) + w i d t h 5 0 \r
0060760 \t r o w 0 y \r \t r o w 0 x + ( 3
0061000 * w i d t h ) \r \t r o w 0 y + h
0061020 e i g h t \r \t . b l k 4 \r \t 0
0061040 \r \r ; < T 3 > = J U S T I
0061060 F Y \r \t r o w 0 x + ( 3 * w i d
0061100 t h ) \r \t r o w 0 y \r \t r o w 0
0061120 x + ( 4 * w i d t h ) + w i d t
0061140 h 5 0 \r \t r o w 0 y + h e i g h
0061160 t \r \t 376 001 \0 241 266 . b l k 4 \r \t
0061200 0 \r \r ; < T 4 > = C E N T
0061220 E R \r \t r o w 0 x + ( 4 * w i d
0061240 t h ) + w i d t h 5 0 \r \t r o w
0061260 0 y \r \t r o w 0 x + ( 6 * w i d
0061300 t h ) \r \t r o w 0 y + h e i g h
0061320 t \r \t . b l k 4 \r \t 0 \r \r ;
0061340 < T 5 > = B O L D \r \t r o w
0061360 0 x + ( 6 * w i d t h ) \r \t r o
0061400 w 0 y \r \t r o w 0 x + ( 7 * w i
0061420 d t h ) + w i d t h 5 0 \r \t r o
0061440 w 0 y + h e i g h t \r \t . b l k
0061460 4 \r \t 0 \r \r ; < T 6 > =
0061500 I T A L I C S \r \t r o w 0 x + (
0061520 7 * w i d t h ) + w i d t h 5 0
0061540 \r \t r o w 0 y \r \t r o w 0 x + (
0061560 9 * w i d t h ) 376 001 \0 312 234 \r \t r
0061600 o w 0 y + h e i g h t \r \t . b l
0061620 k 4 \r \t 0 \r \r ; < T 7 > =
0061640 U N D E R L I N E \r \t r o w 0
0061660 x + ( 9 * w i d t h ) \r \t r o w
0061700 0 y \r \t r o w 0 x + ( 1 0 * w i
0061720 d t h ) + w i d t h 5 0 \r \t r o
0061740 w 0 y + h e i g h t \r \t . b l k
0061760 4 \r \t 0 \r \r ; < T 8 > =
0062000 S U P E R / S U B S C R I P T \r
0062020 \t r o w 0 x + ( 1 0 * w i d t h
0062040 ) + w i d t h 5 0 \r \t r o w 0 y
0062060 \r \t r o w 0 x + ( 1 2 * w i d t
0062100 h ) \r \t r o w 0 y + h e i g h t
0062120 \r \t . b l k 4 \r \t 0 \r \r ; <
0062140 T 9 > = L A R G E R / S M A
0062160 L L E R \r \t r o w 0 x + ( 376 001 \0
0062200 205 240 1 2 * w i d t h ) \r \t r o w
0062220 0 y \r \t r o w 0 x + ( 1 3 * w i
0062240 d t h ) + w i d t h 5 0 \r \t r o
0062260 w 0 y + h e i g h t \r \t . b l k
0062300 4 \r \t 0 \r \r ; < R 1 > =
0062320 S K I P / N E X T \r \t F R x \r \t
0062340 r o w 1 y \r \t F R x + w i d t h
0062360 \r \t r o w 1 y + ( 2 * h e i g h
0062400 t ) \r \t . b l k 4 \r \t 0 \r \r ;
0062420 < 4 7 > n o t o n L e v
0062440 e l I I I \r \t . b l k 4 \r \t
0062460 . b l k 4 \r \t 0 \r \r ; < A 1
0062500 0 > n o t o n l e v e l
0062520 I I I \r \t . b l k 4 \r \t . b l
0062540 k 4 \r \t 0 \r \r ; < R 8 > =
0062560 F O N T \r \t F R x + w i d t h
0062600 \r \t 376 \0 w 357 250 r o w 3 y \r \t F R
0062620 x + ( 2 * w i d t h ) + w i d t
0062640 h 5 0 \r \t r o w 3 y + h e i g h
0062660 t \r \t . b l k 4 \r \t 0 \r \r ;
0062700 u n u s e d \r \t . b l k 4 \r \t
0062720 . b l k 4 \r \t 0 \r \r ; u n u
0062740 s e d \r \t . b l k 4 \r \t . b l
0062760 k 4 \r \t 0 \r \r \t . e n d \r 377 \0
0063000 \0 K e y T e s t K e y s e t . a
0063020 s m \0 376 001 \0 M 253 ; K e y T e s
0063040 t K e y S e t . a s m \r ; C o
0063060 p y r i g h t X e r o x C o
0063100 r p o r a t i o n 1 9 7 9 \r ;
0063120 L a s t m o d i f i e d J
0063140 a n u a r y 1 1 , 1 9 8 0
0063160 5 : 1 3 P M b y B o g g
0063200 s \r \r . b e x t k e y s e t \r
0063220 \r \t . s r e l \r \r k e y s e t :
0063240 \t \t . k e y s e t \r \r \t . n r e
0063260 l \r \r \t . r d x 1 0 \r \r k s W
0063300 i d t h = 2 0 \r k s H e i g
0063320 h t = 8 5 \r \r k s X = 1
0063340 0 0 \r k s Y = 1 0 0 \r \r . k
0063360 e y s e t : \r \r \t k s X + 1 0 \r
0063400 \t k s Y + 2 5 \r \t k s X + 1 0 +
0063420 k s W i d t h \r 376 001 \0 341 310 \t k s
0063440 Y + 2 5 + k s H e i g h t \r \r \t
0063460 k s X + 1 0 + ( 1 * k s W i d t
0063500 h ) \r \t k s Y + 2 5 \r \t k s X +
0063520 1 0 + ( 2 * k s W i d t h ) \r \t
0063540 k s Y + 2 5 + k s H e i g h t \r
0063560 \r \t k s X + 1 0 + ( 2 * k s W i
0063600 d t h ) \r \t k s Y + 2 5 \r \t k s
0063620 X + 1 0 + ( 3 * k s W i d t h )
0063640 \r \t k s Y + 2 5 + k s H e i g h
0063660 t \r \r \t k s X + 1 0 + ( 3 * k s
0063700 W i d t h ) \r \t k s Y + 2 5 \r \t
0063720 k s X + 1 0 + ( 4 * k s W i d t
0063740 h ) \r \t k s Y + 2 5 + k s H e i
0063760 g h t \r \r \t k s X + 1 0 + ( 4 *
0064000 k s W i d t h ) \r \t k s Y + 2 5
0064020 \r \t k s X + 1 0 + ( 5 * k 376 \0 {
0064040 034 255 s W i d t h ) \r \t k s Y + 2
0064060 5 + k s H e i g h t \r \r \t k s X
0064100 \r \t k s Y \r \t k s X + 1 2 0 \r \t
0064120 k s Y + 1 2 0 \r \r \t k s X + 1 \r
0064140 \t k s Y + 1 \r \t k s X + 1 1 9 \r
0064160 \t k s Y + 1 1 9 \r \r \t k s X \r \t
0064200 k s Y \r \t k s X + 1 2 0 \r \t k s
0064220 Y + 2 5 \r \r \t . e n d \r \r 377 \0 \0
0064240 B u i l d K e y T e s t . c m \0
0064260 376 001 \0 245 001 B l d r / L V K K e
0064300 y T e s t B o o t / S 4 6 4 0
0064320 / V B a s i c B o o t B a s e
0064340 / J ^ \r K e y T e s t G a c
0064360 h a 1 0 S t r i k e B F S M L
0064400 ^ \r K e y T e s t A l t o 1
0064420 K e y T e s t A l t o 2 K e y
0064440 T e s t T e a k 3 K e y T e s
0064460 t K e y s e t \r \r B u i l d B o
0064500 o t K e y T e s t . m a p / L
0064520 K e y T e s t . B o o t / O
0064540 1 1 0 1 / G 3 / D D i s k B
0064560 o o t . R u n / B 3 0 0 / N
0064600 B a s i c B o o t B a s e . x c
0064620 / S 1 2 0 1 / V B a s i c B
0064640 o o t B a s e . R u n / E 1 1
0064660 4 1 / V 376 \0 * G 267 K e y T e s
0064700 t B o o t . r u n / E \r \r D e l
0064720 e t e K e y T e s t B o o t .
0064740 r u n \r 377 \0 \0 C o m p i l e K e
0064760 y T e s t . c m \0 376 \0 u 024 333 B c
0065000 p l / f K e y T e s t . b c p
0065020 l \r A s m / e K e y T e s t
0065040 K e y s e t . a s m \r A s m / e
0065060 K e y T e s t A l t o 1 . a
0065100 s m \r A s m / e K e y T e s
0065120 t A l t o 2 . a s m \r A s m / e
0065140 K e y T e s t T e a k 3 . a
0065160 s m \r 377 \0 \0 K e y T e s t . c m
0065200 \0 376 \0 ~ 223 8 k e y T e s t . b c
0065220 p l K e y T e s t A l t o 1 .
0065240 a s m K e y T e s t A l t o 2
0065260 . a s m K e y T e s t T e a k
0065300 3 . a s m K e y T e s t K e y
0065320 s e t . a s m B u i l d K e y
0065340 T e s t . c m C o m p i l e K
0065360 e y T e s t . c m K e y T e s
0065400 t . c m 374
0065405