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