$ od -c -N 50000 [Indigo]<Spruce>frommaxc>GRANTCHARACTERSSOURCES.DM!1
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 225 Z 231 \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 020 256 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 [ " G r a n t C h a r a c t e
0070320 r s . P r e s s : " , s c r e a
0070340 m e r F o n t 2 , 1 1 3 0 0 , 2
0070360 3 0 0 0 , c e n t e r e d ] ; \r
0070400 P u t S t r i n g [ " A F
0070420 o n t S a m p l e r " , s
0070440 c r e a m e r F o n t 1 , 1 1 3
0070460 0 0 , 2 0 4 0 0 , c e n t e r e
0070500 d ] ; \r P u t B o x [ 5 0 , 1 3
0070520 8 0 0 , 6 0 0 0 , 1 1 3 0 0 , 2
0070540 1 5 0 0 ] ; \r P u t B o x [ 1 0
0070560 0 , 1 4 1 0 0 , 6 3 0 0 , 1 1 3
0070600 0 0 , 376 001 \0 X 212 2 1 5 0 0 ] ; \r
0070620 \r - - s t a r t p u t t i n g
0070640 i n k e y s \r \r F O R c h
0070660 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 I
0070760 N A L ; \r l _ c h a r - 0 C
0071000 ; \r r o w _ l / n u m C o l
0071020 s ; \r c o l u m n _ l
0071040 M O D n u m C o l s ; \r x
0071060 _ l e f t E d g e + c o l u
0071100 m n * c o l W i d t h + c o l W
0071120 i d t h / 2 ; \r y _ b o
0071140 t t o m E d g e + ( n u m R o w
0071160 s - r o w ) * r o w H e i g h t
0071200 - r o w H e i g 376 001 \0 344 * h t /
0071220 2 ; \r S E L E C T c h a r
0071240 F R O M \r = 0 C = >
0071260 P u t S t r i n g [ " N U L L
0071300 " , 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 h
0071520 a r + 1 0 0 B ; \r P
0071540 u t S t r i n g [ s t r , e n t
0071560 r y F o n t , x , y , c e n t e
0071600 r e d ] ; \r E 376 001 \0
0071620 206 f N D ; \r = 4 0 C =
0071640 > P u t S t r i n g [ " S P A
0071660 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 h
0071740 a r [ c h a r , e n t r y F o n
0071760 t , x , y ] ; \r = 4 2 C
0072000 = > P u t C h a r [ c h a r
0072020 , q u o t e F o n t , x , y ] ;
0072040 \r I N [ 4 3 C . . 5 4
0072060 C ] = > P u t C h a r [ c h
0072100 a r , e n t r y F o n t , x , y
0072120 ] ; \r = 5 5 C = > P
0072140 u t C h a r [ 3 0 C , e n t r y
0072160 F o n t , x , y ] ; \r I
0072200 N [ 5 6 C . . 1 7 6 C ] = >
0072220 P 376 001 \0 5 004 u t C h a r [ c h
0072240 a r , e n t r y F o n t , x , y
0072260 ] ; \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 E
0072360 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 D
0072420 e f s . W r i t e P a g e [ o u
0072440 t F i l e ] ; \r \r P r e s s D e
0072460 f s . C l o s e P r e s s F i l
0072500 e [ o u t F i l e ] ; \r \r I O D
0072520 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 L
0072560 i n e [ " D o n e . " ] \r \r E N
0072600 D . \r \r 032 ( 6 3 5 ) \ f 1 1 6
0072620 6 f 0 b 6 f 1 376 \0 l 251 024 B 8 2 b
0072640 4 B 2 9 b 8 B 1 1 5 b 6 B 3 0 b
0072660 9 B 8 1 b 1 8 B 7 6 5 b 9 B 4 0
0072700 0 b 1 3 B 2 9 f 0 1 7 f 1 3
0072720 7 4 b 1 2 B 7 3 8 b 1 0 B 2 1 2
0072740 b 7 B 1 8 0 b 1 3 B 2 2 6 b 1 5
0072760 B 2 6 7 0 f 0 1 0 4 f 1 4 5
0073000 f 0 1 1 f 1 \r 377 \0 \0 t i t l e
0073020 . p r e s s \0 373 226 225 Z 271 \0 \0 376 001
0073040 \0 244 036 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 c
0073160 o m m o n n a m e s o f t
0073200 h e s e v e n b i t c h a
0073220 r a c t e r c o d e s . G r a
0073240 n t C h a r a c t e r s . P r e
0073260 s s : A F o n t S a
0073300 m p l e r N U L L ^ A ^ B ^ C ^
0073320 D ^ E ^ F ^ G ^ H ^ I ^ J ^ K ^
0073340 L ^ M ^ N ^ O ^ P ^ Q ^ R ^ S ^
0073360 T ^ U ^ V ^ W ^ X ^ Y ^ Z ^ [ ^
0073400 \ ^ ] ^ ^ ^ _ S P A C E ! " # $
0073420 % & ' ( ) * + , 030 . / 0 1 2 3 4
0073440 5 6 7 376 001 \0 5 004 8 9 : ; < = > ?
0073460 @ A B C D E F G H I J K L M N O
0073500 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 n o
0073540 p q r s t u v w x y z { | } ~ D
0073560 E L \0 \0 356 017 240 357 \v 270 376 : 254 \0 024 356
0073600 017 240 357 016 246 376 : 254 \0 024 356 017 240 357 021 224
0073620 376 : 254 \0 024 356 017 240 357 024 202 376 : 254 \0 024
0073640 356 017 240 357 027 p 376 : 254 \0 024 356 017 240 357 032
0073660 ^ 376 : 254 \0 024 356 017 240 357 035 L 376 : 254 \0
0073700 024 356 017 240 357 : 376 : 254 \0 024 356 017 240 357
0073720 # ( 376 : 254 \0 024 356 017 240 357 & 026 376 : 254
0073740 \0 024 356 017 240 357 ) 004 376 : 254 \0 024 356 017 240
0073760 357 + 362 376 : 254 \0 024 356 017 240 357 . 340 376 :
0074000 254 \0 024 356 017 240 357 1 316 376 : 254 \0 024 356 017
0074020 240 357 4 274 376 : 254 \0 024 356 017 240 357 7 252 376
0074040 : 254 \0 024 356 017 240 357 376 001 \0 260 ` : 230 376
0074060 : 254 \0 024 356 017 240 357 \v 270 376 \0 024 . 364 356
0074100 026 363 357 \v 270 376 \0 024 . 364 356 036 F 357 \v 270
0074120 376 \0 024 . 364 356 % 231 357 \v 270 376 \0 024 . 364
0074140 356 , 354 357 \v 270 376 \0 024 . 364 356 4 ? 357 \v
0074160 270 376 \0 024 . 364 356 ; 222 357 \v 270 376 \0 024 .
0074200 364 356 B 345 357 \v 270 376 \0 024 . 364 356 J 8 357
0074220 \v 270 376 \0 024 . 364 p 356 022 361 357 ; ` 360 001
0074240 p 356 032 D 357 ; ` 360 001 p 356 ! 227 357 ; `
0074260 360 001 p 356 ( 352 357 ; ` 360 001 p 356 0 = 357
0074300 ; ` 360 001 p 356 7 220 357 ; ` 360 001 p 356 >
0074320 343 357 ; ` 360 001 p 356 F 6 357 ; ` 360 001 p
0074340 356 \v d 357 8 206 360 004 p 356 \v d 357 5 230 360
0074360 004 p 356 \v d 357 2 252 360 004 p 356 \v d 357 /
0074400 274 360 004 p 356 \v d 357 , 316 360 004 p 356 \v d
0074420 357 ) 340 360 004 p 356 \v d 357 & 362 360 004 p 356
0074440 \v d 357 $ 004 360 004 p 356 \v d 357 ! 376 001 \0
0074460 300 315 026 360 004 p 356 \v d 357 036 ( 360 004 p 356
0074500 \v d 357 033 : 360 004 p 356 \v d 357 030 L 360 004
0074520 p 356 \v d 357 025 ^ 360 004 p 356 \v d 357 022 p
0074540 360 004 p 356 \v d 357 017 202 360 004 p 356 \v d 357
0074560 \f 224 360 004 q 356 032 \ 357 \b 264 360 2 r 356 025
0074600 360 357 W 335 360 026 s 356 024 w 357 M \f 360 022 356
0074620 021 027 357 H + 376 6 032 \0 2 356 021 027 357 H +
0074640 376 \0 2 027 242 356 021 027 357 _ 233 376 6 032 \0 2
0074660 356 F 377 357 H + 376 \0 2 027 242 356 020 h 357 G
0074700 | 376 7 x \0 d 356 020 h 357 G | 376 \0 d 031
0074720 \0 356 020 h 357 ` 030 376 7 x \0 d 356 G | 357
0074740 G | 376 \0 d 031 \0 p 356 021 @ 357 8 206 360 004
0074760 q 356 031 224 357 8 g 360 002 q 356 373 357 8 g
0075000 360 002 q 356 ( @ 357 8 g 360 002 q 356 / 177 357
0075020 8 g 360 002 q 356 6 364 357 8 g 360 002 q 356 >
0075040 G 357 8 g 360 002 q 356 E r 357 8 g 360 002 q
0075060 356 022 376 001 \0 : ! 3 357 5 y 360 002 q 356 031
0075100 343 357 5 y 360 002 q 356 ! ( 357 5 y 360 002 q
0075120 356 ( + 357 5 y 360 002 q 356 / 241 357 5 y 360
0075140 002 q 356 6 261 357 5 y 360 002 q 356 > # 357 5
0075160 y 360 002 q 356 E 177 357 5 y 360 002 q 356 022 b
0075200 357 2 213 360 002 q 356 031 215 357 2 213 360 002 q 356
0075220 346 357 2 213 360 002 q 356 ( a 357 2 213 360 002
0075240 q 356 / 241 357 2 213 360 002 q 356 6 322 357 2 213
0075260 360 002 q 356 > 9 357 2 213 360 002 q 356 E Q 357
0075300 2 213 360 002 q 356 022 @ 357 / 235 360 002 q 356 031
0075320 224 357 / 235 360 002 q 356 373 357 / 235 360 002 q
0075340 356 ( 235 357 / 235 360 002 q 356 / 301 357 / 235 360
0075360 002 q 356 7 C 357 / 235 360 002 q 356 > g 357 /
0075400 235 360 002 q 356 E 206 357 / 235 360 002 p 356 021 006
0075420 357 , 316 360 005 q 356 032 S 357 , 257 360 001 t 356
0075440 ! n 357 , 304 360 001 q 356 ( o 357 , 257 360 001
0075460 q 356 0 + 357 , 257 376 001 \0 \0 002 360 001 q 356
0075500 7 J 357 , 257 360 001 q 356 > 226 357 , 257 360 001
0075520 q 356 F Y 357 , 257 360 001 q 356 023 \0 357 ) 301
0075540 360 001 q 356 032 S 357 ) 301 360 001 q 356 ! 205 357
0075560 ) 301 360 001 q 356 ( o 357 ) 301 360 001 q 356 0
0075600 ` 357 ) 301 360 001 q 356 7 025 357 ) 301 360 001 q
0075620 356 ? \a 357 ) 301 360 001 q 356 F $ 357 ) 301 360
0075640 001 q 356 022 337 357 & 323 360 001 q 356 032 2 357 &
0075660 323 360 001 q 356 ! 205 357 & 323 360 001 q 356 ( 330
0075700 357 & 323 360 001 q 356 0 + 357 & 323 360 001 q 356
0075720 7 ~ 357 & 323 360 001 q 356 > 321 357 & 323 360 001
0075740 q 356 F $ 357 & 323 360 001 q 356 022 337 357 # 345
0075760 360 001 q 356 032 2 357 # 345 360 001 q 356 ! 246 357
0076000 # 345 360 001 q 356 ( 371 357 # 345 360 001 q 356 0
0076020 + 357 # 345 360 001 q 356 7 025 357 # 345 360 001 q
0076040 356 > 321 357 # 345 360 001 q 356 F 8 357 # 345 360
0076060 001 q 356 022 v 357 367 360 001 q 356 376 001 \0 m
0076100 200 031 376 357 367 360 001 q 356 ! e 357 367 360
0076120 001 q 356 ( 252 357 367 360 001 q 356 / 351 357
0076140 367 360 001 q 356 7 ^ 357 367 360 001 q 356 > 261
0076160 357 367 360 001 q 356 E 334 357 367 360 001 q 356
0076200 022 235 357 036 \t 360 001 q 356 032 M 357 036 \t 360 001
0076220 q 356 ! 222 357 036 \t 360 001 q 356 ( 225 357 036 \t
0076240 360 001 q 356 0 \v 357 036 \t 360 001 q 356 7 033 357
0076260 036 \t 360 001 q 356 > 215 357 036 \t 360 001 q 356 E
0076300 351 357 036 \t 360 001 q 356 022 314 357 033 033 360 001 q
0076320 356 031 367 357 033 033 360 001 q 356 ! P 357 033 033 360
0076340 001 q 356 ( 313 357 033 033 360 001 q 356 0 \v 357 033
0076360 033 360 001 q 356 7 < 357 033 033 360 001 q 356 > 243
0076400 357 033 033 360 001 q 356 E 273 357 033 033 360 001 q 356
0076420 022 252 357 030 - 360 001 q 356 031 376 357 030 - 360 001
0076440 q 356 ! e 357 030 - 360 001 q 356 ) \a 357 030 -
0076460 360 001 q 356 0 + 357 030 - 360 001 q 356 7 255 357
0076500 030 376 001 \0 i ` - 360 001 q 356 > 321 357 030 -
0076520 360 001 q 356 E 360 357 030 - 360 001 q 356 023 024 357
0076540 025 ? 360 001 q 356 032 9 357 025 ? 360 001 q 356 !
0076560 x 357 025 ? 360 001 q 356 ( 345 357 025 ? 360 001 q
0076600 356 0 036 357 025 ? 360 001 q 356 7 205 357 025 ? 360
0076620 001 q 356 > 362 357 025 ? 360 001 q 356 F $ 357 025
0076640 ? 360 001 q 356 022 322 357 022 Q 360 001 q 356 032 a
0076660 357 022 Q 360 001 q 356 ! 264 357 022 Q 360 001 q 356
0076700 ( 322 357 022 Q 360 001 q 356 0 Z 357 022 Q 360 001
0076720 q 356 7 6 357 022 Q 360 001 q 356 > 304 357 022 Q
0076740 360 001 q 356 F 036 357 022 Q 360 001 q 356 022 322 357
0076760 017 c 360 001 q 356 032 % 357 017 c 360 001 q 356 !
0077000 240 357 017 c 360 001 q 356 ( 363 357 017 c 360 001 q
0077020 356 0 S 357 017 c 360 001 q 356 7 q 357 017 c 360
0077040 001 q 356 > 321 357 017 c 360 001 q 356 E 366 357 017
0077060 c 360 001 q 356 022 337 357 \f u 360 001 q 356 032 2
0077100 357 \f u 360 001 q 376 001 \0 367 J 356 ! 223 357 \f
0077120 u 360 001 q 356 ( 330 357 \f u 360 001 q 356 0 `
0077140 357 \f u 360 001 q 356 7 ~ 357 \f u 360 001 q 356
0077160 > 235 357 \f u 360 001 p 356 E 027 357 \f 224 360 003
0077200 377 \0 \0 \0 \0 \0 \0 \0 \0 001 L \0 \0 \0 \0 \0
0077220 \0 \0 \0 T V m $ 003 201 344 ^ 310 \0 311 \0 \0
0077240 \0 202 \f 344 230 \0 \0 \0 \0 \0 \0 \0 \0 \0 005 \0
0077260 001 \0 001 \0 t 362 365 344 t 344 201 " \n : 004 ;
0077300 $ 344 J 377 377 377 377 \0 # 344 326 \0 , \v 225 \v
0077320 1 \v 251 \v 221 \v ! \v 265 344 336 210 001 \0 c 001
0077340 \0 \0 025 002 \0 315 \0 345 212 = 372 A 275 B J \v
0077360 ) \v 231 \v ) \v 221 \0 , \v 225 \v = \v 251 \v
0077400 5 \v ! \v 265 \0 \0 236 \0 \0 } \0 272 \0 001 \0
0077420 272 316 \0 345 326 037 \a 037 \b 377 377 \v ) \v 231 \v
0077440 ) \v 5 \0 030 \r 241 \r 235 \r 211 \r 225 \r 221 \r
0077460 231 \r 205 \r 215 345 276 \0 \0 \0 \f \0 002 021 250 350
0077500 004 351 \0 345 376 021 R \0 350 \f 367 376 001 \0 367 315
0077520 B \a 374 \0 Z \b " 004 i Q \0 001 " 004 i O
0077540 \0 001 : 005 # 001 : 004 C # 204 P : 004 C 035
0077560 : 005 # \0 : 004 C 036 204 P : 004 C 037 375 \0
0077600 Z \f = U Z \r 374 \0 Z 016 9 R Z 003 " 004
0077620 255 \0 i O \0 005 202 \f 001 005 : 005 # \0 200 \f
0077640 001 034 " \a 9 \ 345 K 001 005 : 005 ; 001 Z 006
0077660 001 005 : 004 # . : 005 C 002 " 006 200 \f 001 003
0077700 205 \0 001 036 " 004 i L \0 001 375 \0 Z 003 " 004
0077720 * 006 i e \0 003 B \b : \b Z \t " 004 : 005
0077740 + 002 i \r \0 002 * \t \f 340 B \b " 004 \0
0077760 001 275 \0 001 277 \0 001 301 \0 001 303 \0
0100000 001 267 \0 001 305 ` \0 \0 \t 345 h 4 020 \0
0100020 \0 307 Y 201 \0 \0 \0 \0 \0 \0 030 317 2 320 \0
0100040 \0 310 \0 001 311 ` 232 \0 020 345 x 016 373 \0
0100060 \0 313 [ 201 \0 \0 \0 \0 \0 \0 031 367 016 351 ` <
0100100 \0 033 345 212 B O \0 \0 315 < 004 345 226 \0 002
0100120 376 001 \0 E 216 \0 020 \0 \0 \0 377 \n T I M E
0100140 S R O M A N 315 \0 315 \0 315 \0 315 \0 315 \0
0100160 \0 \0 \n \0 \0 \0 020 \0 001 \0 377 \n T I M E
0100200 S R O M A N 036 302 036 303 036 304 036 305 036 \0
0100220 \0 \0 \f \0 \0 \0 020 \0 002 \0 377 \n O L D E
0100240 N G L I S H \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0100260 \0 \0 $ \0 \0 \0 020 \0 003 \0 377 \n O L D E
0100300 N G L I S H \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0100320 \0 \0 0 \0 \0 \0 020 \0 004 \0 377 005 G A C H
0100340 A \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0100360 \0 \0 \f \0 \0 \0 \0 271 177 \0 \0 \0 005 G | \0
0100400 002 365 < 377 341 \t 231 \0 \0 \0 004 \0 \0 \0 016 \0
0100420 \0 \0 \0 365 K \0 035 \0 016 \0 \0 \0 \0 \0 \0 \0
0100440 003 \0 022 \0 \0 \0 \0 \0 001 352 p \0 \0 \0 \0 \0
0100460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0100500 006 356 h \0 \t \0 \0 \0 003 353 x \0 \0 \0 \0 \0
0100520 004 355 x \0 % 376 001 \0 003 k \0 \0 \0 001 352 210
0100540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0100560 \0 \0 \0 \0 \0 003 353 214 \0 \0 \0 \0 \0 \0 \0 \0
0100600 \0 \0 \0 \0 \0 004 355 220 \0 \0 \0 \0 \0 001 352 240
0100620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 003 353 240
0100640 \0 \0 \0 \0 \0 001 352 254 \0 \0 \0 \0 \0 \0 \0 \0
0100660 \0 \0 \0 \0 \0 005 \0 032 \0 \0 \0 \0 \0 001 352 270
0100700 \0 \0 \0 \0 \0 003 353 264 001 220 353 334 \0 \0 003 201
0100720 366 250 366 250 \0 016 352 304 \0 M \0 \0 \0 \0 \0 \0
0100740 \0 \0 \0 \0 003 201 353 334 \0 \0 \0 \0 \0 003 353 310
0100760 001 002 357 304 \0 \0 357 330 \0 003 \0 003 360 020 \0 004
0101000 357 344 \0 004 \0 003 \0 L \0 \0 357 350 \0 003 \0 003
0101020 \0 \0 \0 \0 \0 003 353 334 001 002 357 304 \0 \0 357 330
0101040 \0 003 \0 003 360 020 \0 004 357 344 \0 004 \0 005 \0 L
0101060 \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 b
0101120 \0 260 \0 P \0 260 \0 \0 344 ^ 376 001 \0 351 356 \0
0101140 \0 \0 \0 \0 005 \0 331 \0 001 \0 005 \0 001 \0 377 344
0101160 ^ 310 \0 311 \0 \0 \0 202 \f 344 230 \0 005 \0 001 \0
0101200 \0 \0 002 \0 005 \0 001 \0 001 \0 t 362 365 344 t 344
0101220 201 " \n : 004 ; $ 344 J 377 377 377 377 \0 \0 \0
0101240 \0 \0 , \v 225 \v 1 \v 251 \v 221 \v ! \v 265 344
0101260 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 , \v
0101320 225 \v = \v 251 \v 5 \v ! \v 265 \0 \0 236 \0 \0
0101340 } \0 272 \0 001 \0 272 316 \0 345 326 037 \a 037 \b 377
0101360 377 \v ) \v 231 \v ) \v 5 \0 030 \r 241 \r 235 \r
0101400 211 \r 225 \r 221 \r 231 \r 205 \r 215 345 276 \0 \0 \0
0101420 \f \0 002 021 250 350 004 351 \0 345 376 021 R \0 350 \f
0101440 367 B \a 374 \0 Z \b " 004 i Q \0 001 " 004 i
0101460 O \0 001 : 005 # 001 : 004 C # 204 P : 004 C
0101500 035 : 005 # \0 : 004 C 036 204 P : 004 C 037 375
0101520 \0 Z \f = U Z \r 374 \0 Z 016 9 R Z 003 376
0101540 001 \0 036 \a " 004 255 \0 i O \0 005 202 \f 001 005
0101560 : 005 # \0 200 \f 001 034 " \a 9 \ 345 K 001 005
0101600 : 005 ; 001 Z 006 001 005 : 004 # . : 005 C 002
0101620 " 006 200 \f 001 003 205 \0 001 036 " 004 i L \0 001
0101640 375 \0 Z 003 " 004 * 006 i e \0 003 B \b : \b
0101660 Z \t " 004 : 005 + 002 i \r \0 002 * \t \f 340
0101700 B \b " 004 \0 001 275 \0 001 277 \0 001 301
0101720 \0 001 303 \0 001 267 \0 001 305 ` \0 \0 \t
0101740 345 h 4 020 \0 \0 307 Y 201 \0 \0 \0 \0 \0 \0
0101760 030 317 2 320 \0 \0 310 \0 001 311 ` 232 \0 020
0102000 345 x 016 373 \0 \0 313 [ 201 \0 \0 \0 \0 \0 \0
0102020 031 367 016 351 ` < \0 033 345 212 B O \0 \0 315
0102040 < 004 345 226 \0 002 002 001 246 S 343 \v Z 001 \0 \0
0102060 \0 \0 \0 \0 \0 332 036 273 < \0 345 242 \0 002 003 001
0102100 246 S 343 \b R \0 \0 001 \0 001 \0 \0 030 l A 224
0102120 < \0 345 250 \0 002 \b 001 246 S 343 005 R \0 \0 001
0102140 \0 001 \0 \0 376 001 \0 ] 004 j / \0 \b \0 002 \0
0102160 006 \0 001 \0 \0 226 225 Z 273 \0 001 \0 001 377 377 377
0102200 377 \0 t \0 \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 376 001 \0 _ 323 \v T
0102560 i t l e . P r e s s \0 \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 \a R a m s h a w \0 \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 022 2 1 - J a n - 8 1 1 :
0102720 3 4 : 4 9 \0 \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 377 \0
0103160 \0 o s p a g e . m e s a \0 373 225 363
0103200 307 233 \0 \0 376 001 \0 O 7 D I R E C T O
0103220 R Y \r I O D e f s : F R O
0103240 M " i o d e f s " , \r S t
0103260 r e a m D e f s : F R O M "
0103300 s t r e a m d e f s " , \r S
0103320 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 M
0103400 " s y s t e m d e f s " , \r
0103420 P r e s s D e f s : F R O M
0103440 " p r e s s d e f s " ; \r \r M
0103460 a t r i x : P R O G R A M I
0103500 M P O R T S I O D e f s , S
0103520 t r e a m D e f s , S t r i n
0103540 g D e f s , S y s t e m D e f
0103560 s , P r e s s D e f s = \r
0103600 B E G I N \r \r F o 376 001 \0 333 310 n t
0103620 : 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 n
0103660 t B o d y : T Y P E = R E C
0103700 O R D [ f a m i l y : S T R I N
0103720 G , s i z e : C A R D I N A L
0103740 _ 0 , f a c e : C A R D I
0103760 N A L _ 0 , \r r o t a t
0104000 i o n : C A R D I N A L _ 0
0104020 , w i d t h s : W i d t h s
0104040 _ N I L ] ; \r W i d t h s : T
0104060 Y P E = P O I N T E R T O
0104100 W i d t h B o d y ; \r W i d t
0104120 h B o d y : T Y P E = R E C
0104140 O R D [ m i c a X : A R R A Y
0104160 [ 0 . . 2 5 6 ) O F I N T E
0104200 G E R , \r b B o x : A R 376 001
0104220 \0 336 306 R A Y [ 0 . . 4 ) O F
0104240 I N T E G E R ] ; \r J u s t i
0104260 f i c a t i o n M o d e : T Y
0104300 P E = { l e f t J u s t i f
0104320 i e d , r i g h t J u s t i f
0104340 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 d
0104400 , 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 t
0104440 r y F o n t , t i t l e F o n
0104460 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 : S
0104540 t r e a m D e f s . S t r e a m
0104560 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 u
0104620 t F i 376 001 \0 211 323 l e : P O I N T
0104640 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 p
0104700 t o r ; \r o u t F i l e N a m e
0104720 : S T R I N G = " M a t r i
0104740 x . P r e s s " ; \r s t r : S T
0104760 R I N G _ [ 1 5 ] ; \r r o w
0105000 , c o l u m n : C A R D I N A L
0105020 ; \r c h a r : C H A R A C T E R
0105040 ; \r \r l e f t E d g e : C A R D
0105060 I N A L _ 4 0 0 0 ; \r r i g h t
0105100 E d g e : C A R D I N A L _ 1 9
0105120 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 t
0105160 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 h
0105220 : C A R D I N A 376 001 \0 230 234 L _ 2
0105240 0 ; \r l a b e l M a r g i n : C
0105260 A R D I N A L _ 2 0 0 ; \r t i t
0105300 l e M a r g i n : C A R D I N A
0105320 L _ 7 0 0 ; \r t i t l e : S T R
0105340 I N G = " A l t o O S k
0105360 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 N
0105420 G = " H e r e i s o n e
0105440 w a y t o t y p e e a c
0105460 h s e v e n b i t c h a r
0105500 a c t e r c o d e t o t h
0105520 e k e y b o a r d h a n d l
0105540 e r i n c l u d e d a s p
0105560 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 N
0105620 G = " O p e r a t i n 376 001 \0
0105640 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 r
0105700 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 h
0105740 e k e y b o a r d f o r t
0105760 h e m ( s u c h a s O E d
0106000 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 ; f
0106100 o r e x a m p l e , < c t r
0106120 l > < @ > g i v e s # 0 0 0
0106140 , w h i l e < s h i f t > <
0106160 h y p h e n > g i v e s # 0
0106200 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 R
0106240 o w 376 001 \0 243 334 s : C A R D I N A
0106260 L = 1 6 ; \r c o l W i d t h : C
0106300 A R D I N A L = ( r i g h t E d
0106320 g e - l e f t E d g e ) / n u m
0106340 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 g
0106400 e - b o t t o m E d g e ) / n u
0106420 m R o w s ; \r \r F i n d W i d t
0106440 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 N
0106520 ; \r I F f = N I L T H E
0106540 N E R R O R A t t e m p t T
0106560 o F i n d W i d t h s O f N I L
0106600 ; \r f . w i d t h s _ S
0106620 y s t e m D e f s . A l l o c a
0106640 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 r
0106720 e s s D e f s . L o o k u p F o
0106740 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 e
0107000 , f . s i z e , \r f .
0107020 r o t a t i o n , @ f . w i d
0107040 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 T
0107120 H E N E R R O R F o n t N o
0107140 t I n W i d t h D i c t i o n a
0107160 r y ; \r E N D ; \r F o n t N
0107200 o t I n W i d t h D i c t i o n
0107220 a r y : S I G N A L = C O
0107240 D E ; \r A t t e m p t T 376 001 \0 021
0107260 241 o F i n d W i d t h s O f N I
0107300 L : S I G N A L = C O D E
0107320 ; \r \r P u t S t r i n g : P R
0107340 O C E D U R E [ s : S T R I N G
0107360 , f : F o n t , x , y : C A R D
0107400 I N A L , m : J u s t i f i c a
0107420 t i o n M o d e ] = \r B E G
0107440 I N \r l e n g t h : C A R D
0107460 I N A L _ 0 ; \r h e i g
0107500 h t , i : C A R D I N A L ; \r
0107520 I F f . w i d t h s = N I
0107540 L T H E N E R R O R F o n
0107560 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 h
0107660 + 376 001 \0 , u f . w i d t h s . m
0107700 i c a X [ s [ i ] - 0 C ] ; \r
0107720 E N D L O O P ; \r h e
0107740 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 - h
0110060 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 - h
0110140 e i g h t / 2 ; x _ x - l
0110160 e n g t h E N D ; \r c
0110200 e n t e r e d = > B E G I N
0110220 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 o
0110300 p J u s t i f i e d = > B E
0110320 G I N y _ y - h e i g h t
0110340 ; x _ x - l e n g t h / 2
0110360 E N D ; \r b o t t o m
0110400 J u s t i f i e d = > B E G
0110420 I N x _ x - l e n g t h /
0110440 2 E N D ; \r E N D C
0110460 A S E ; \r P r e s s D e f s
0110500 . S e t F o n t [ o u t F i l e
0110520 , f . f a m i l y , f . s i
0110540 z e , f . f a c e , f . r o
0110560 t a t i o n ] ; \r P r e s s
0110600 D e f s . P u t T e x t [ o u t
0110620 F i l e , s , x , y ] ; \r
0110640 E N D ; \r F o n t H a s N o
0110660 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 I
0110720 n i t F o n t : P R O C E D U
0110740 R E [ f a m : S T R I N G , s
0110760 i z e : C A R D I N A L , f a
0111000 c e , r o t : C A R D I N A L
0111020 _ 0 ] \r R E T U R N S
0111040 [ F o n t ] = \r B E G I
0111060 N \r f : F o n t ; \r f
0111100 _ S y s t e m D e f s . A l l
0111120 o c a t e H e a p N o d e [ S I
0111140 Z E [ F o n t B o d y ] ] ; \r
0111160 f ^ _ F o n t B o d y [ f
0111200 a m , s i z e , f a c e , r o t
0111220 , N I L ] ; \r R E T U R N
0111240 [ f ] ; \r E N D ; \r \r P u t
0111260 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 C
0111320 T E R , f o n t : F o n t , x
0111340 , y : C A R D I N A L ] = I
0111360 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 e
0111440 n g t h _ 1 ; \r s t r i
0111460 n g [ 0 ] _ c h a r ; \r
0111500 P u t S t r i n g [ s t r i n g
0111520 , f o n t , x , y , c e n t e r
0111540 e d ] ; \r E N D ; \r \r P u t
0111560 S t r i n g C h a r : P R O C
0111600 E D U R E [ s t r i n g 1 : S T
0111620 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 I
0111740 N \r s t r i n g 2 : S T R I
0111760 N G _ [ 1 ] ; \r s t r i
0112000 n g 2 . l e n g t h _ 1 ; \r
0112020 s t r i n g 2 [ 0 ] _ c
0112040 h a r ; \r P u t S t r i n g
0112060 S t r i n g [ s t r i n g 1 , f
0112100 o n t 1 , s t r i n g 2 , f o n
0112120 t 2 , x , y ] ; \r E N D ; \r
0112140 \r P u t S t r i n g S t r i n g
0112160 : P R O C E D U R E [ s t r i
0112200 n g 1 : S T R I N G , f o n t 1
0112220 : F o n t , s t r i n g 2 : S T
0112240 R I N G , \r f o n t 2 : F
0112260 o n t , x , y : C A R D I N A L
0112300 ] = I N L I N E 376 001 \0 L 226 \r
0112320 B E G I N \r P u t S t r
0112340 i n g [ s t r i n g 1 , f o n t
0112360 1 , x , y + 5 0 , b o t t o m J
0112400 u s t i f i e d ] ; \r P u t
0112420 S t r i n g [ s t r i n g 2 , f
0112440 o n t 2 , x , y , t o p J u s t
0112460 i f i e d ] ; \r E N D ; \r \r
0112500 I O D e f s . W r i t e L i n e
0112520 [ " S t a r t i n g : " ] ; \r w
0112540 S t r e a m _ S t r e a m D
0112560 e f s . N e w W o r d S t r e a
0112600 m [ " F o n t s . W i d t h s "
0112620 , \r S t r e a m
0112640 D e f s . R e a d ] ; \r o u t F
0112660 i l e _ S y s t e m D e f s
0112700 . A l l o c a t e H e a p N o 376
0112720 001 \0 O 302 d e [ S I Z E [ P r e s
0112740 s D e f s . P r e s s F i l e D
0112760 e s c r i p t o r ] ] ; \r P r e
0113000 s s D e f s . I n i t P r e s s
0113020 F i l e D e s c r i p t o r [ o
0113040 u t F i l e , o u t F i l e N a
0113060 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 s
0113120 R o m a n " , 1 0 ] ; \r e n t r
0113140 y F o n t _ I n i t F o n t
0113160 [ " T i m e s R o m a n " , 1 0
0113200 ] ; \r t i t l e F o n t _ I
0113220 n i t F o n t [ " T i m e s R o
0113240 m a n " , 1 8 , 2 ] ; \r c o m m
0113260 e n t F o n t _ I n i t F o
0113300 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 F
0113340 o n t _ I n i t F o n t [ "
0113360 G a c h a " , 1 2 ] ; \r \r F i n
0113400 d W i d t h s [ l a b e l F o n
0113420 t ] ; \r F i n d W i d t h s [ e
0113440 n t r y F o n t ] ; \r F i n d W
0113460 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 m
0113520 m e n t F o n t ] ; \r F i n d W
0113540 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 h
0113600 e r u l e s o f t h e g
0113620 r i d ; \r F O R r o w I N
0113640 [ 0 . . n u m R o w s ] \r D
0113660 O \r P r e s s D e f s . P u
0113700 t R e c t a n g l e [ o u t F i
0113720 l e , l e f t E d 376 001 \0 $ h g e
0113740 , 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 m
0114020 C o l s * c o l W i d t h + g r
0114040 i d W i d t h , g r i d W i d t
0114060 h ] \r E N D L O O P ; \r F O
0114100 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 c
0114160 t a n g l e [ o u t F i l e , l
0114200 e f t E d g e + c o l u m n * c
0114220 o l W i d t h , b o t t o m E d
0114240 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 h
0114320 t + g r i d W i d t h ] \r 376 001
0114340 \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 e
0114400 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 O
0114440 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 u
0114520 m n ; \r s t r . l e n g t h
0114540 _ 1 ; \r P u t S t r i n
0114560 g [ s t r , l a b e l F o n t
0114600 , l e f t E d g e + c o l W i
0114620 d t h / 2 + c o l u m n * c o l
0114640 W i d t h , \r
0114660 b o t t o m E d g e + l a b e l
0114700 M a r g i n + n u m R o w s * r
0114720 o w H e i g h t , b o t t o m J
0114740 u s t 376 001 \0 2 J i f i e d ] ; \r
0114760 E N D L O O P ; \r F O R r
0115000 o w I N [ 0 . . n u m R o w
0115020 s ) \r D O \r s t r . l e
0115040 n g t h _ 0 ; \r S t r i n g
0115060 D e f s . A p p e n d C h a r [
0115100 s t r , ' # ] ; \r S E L E C
0115120 T r o w * n u m C o l s F R
0115140 O M \r I N [ 0 B . . 7
0115160 B ] = > S t r i n g D e f s
0115200 . A p p e n d S t r i n g [ s t
0115220 r , " 0 0 " ] ; \r I N
0115240 [ 1 0 B . . 7 7 B ] = > S t
0115260 r i n g D e f s . A p p e n d S
0115300 t r i n g [ s t r , " 0 " ] ; \r
0115320 E N D C A S E ; \r S
0115340 t r i n g D e f 376 001 \0 210 6 s . A
0115360 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 ] ; \r
0115420 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 t
0115460 E d g e - l a b e l M a r g i n
0115500 , \r b o t t o m E
0115520 d g e + ( n u m R o w s - r o w
0115540 ) * r o w H e i g h t - ( r o w
0115560 H e i g h t / 2 ) , r i g h t
0115600 J u s t i f i e d ] ; \r E N
0115620 D L O O P ; \r \r - - p u t t i
0115640 t l e a t t h e b o t t o
0115660 m o f t h e p a g e \r P u
0115700 t S t r i n g [ t i t l e , t
0115720 i t l e F o n t , l e f t E d
0115740 g e + ( n u m C o l s * c 376 001 \0
0115760 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 e
0116020 M a r g i n , t o p J u s t i
0116040 f i e d ] ; \r \r - - a n d a d
0116060 d c o m m e n t s b e l o w
0116100 i t \r P u t S t r i n g [ c o
0116120 m m e n t 1 , c o m m e n t F o
0116140 n t , l e f t E d g e - 1 0 0 0
0116160 , b o t t o m E d g e * 6 / 1 0
0116200 , 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 e
0116240 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 o
0116300 t t o m E d g e / 2 , l e f t J
0116320 u s t i f i e d ] ; \r P u t S t
0116340 r i n g [ c o m m e n t 3 , c o
0116360 m m 376 001 \0 . { e n t F o n t , l
0116400 e f t E d g e - 1 0 0 0 , b o t
0116420 t o m E d g e * 4 / 1 0 , l e f
0116440 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 n
0116500 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 R
0116560 D I N A L ; \r x , y , r o w
0116600 , c o l u m n : C A R D I N A L
0116620 ; \r l _ c h a r - 0 C ; \r
0116640 r o w _ l / n u m C o l s ; \r
0116660 c o l u m n _ l M O D
0116700 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 t
0116760 h / 2 ; \r 376 001 \0 376 210 y _
0117000 b o t t o m E d g e + ( n u m R
0117020 o w s - r o w ) * r o w H e i g
0117040 h t - r o w H e i g h t / 2 ; \r
0117060 S E L E C T c h a r F R
0117100 O M \r = 0 C = > P u
0117120 t S t r i n g S t r i n g [ " c
0117140 t r l " , c o m m e n t F o n t
0117160 , " s p a c e " , c o m m e n t
0117200 F o n t , x , y ] ; \r I
0117220 N [ 1 C . . 7 C ] = > P u
0117240 t S t r i n g C h a r [ " c t r
0117260 l " , c o m m e n t F o n t , c
0117300 h a r + 1 4 0 B , e n t r y F o
0117320 n t , x , y ] ; \r = 1 0
0117340 C = > P u t S t r i n g [ "
0117360 b s " , c o m m e n t F 376 001 \0 9
0117400 333 o n t , x , y , c e n t e r e
0117420 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 g
0117540 [ " l f " , c o m m e n t F o n
0117560 t , x , y , c e n t e r e d ] ;
0117600 \r I N [ 1 3 C . . 1 4
0117620 C ] = > P u t S t r i n g C h
0117640 a r [ " c t r l " , c o m m e n
0117660 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 ] ; \r
0117720 = 1 5 C = > P u t S
0117740 t r i n g [ " r e t u r n " , c
0117760 o m m e n t F o n t , x , y , c
0120000 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 r
0120060 [ " c t r l " , c o m m e n t F
0120100 o n t , c h a r + 1 4 0 B , e n
0120120 t r y F o n t , x , y ] ; \r
0120140 = 3 3 C = > P u t S t r
0120160 i n g [ " e s c " , c o m m e n
0120200 t F o n t , x , y , c e n t e r
0120220 e d ] ; \r I N [ 3 4 C
0120240 . . 3 7 C ] = > P u t S t r i
0120260 n g C h a r [ " c t r l " , c o
0120300 m m e n t F o n t , c h a r + 1
0120320 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 e
0120400 " , c o m m 376 001 \0 \r 030 e n t F o
0120420 n t , x , y , c e n t e r e d ]
0120440 ; \r = 4 1 C = > P u
0120460 t C h a r [ c h a r , e n t r y
0120500 F o n t , x , y ] ; \r =
0120520 4 2 C = > P u t C h a r [ c
0120540 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 r
0120620 [ 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 , q
0120700 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 r
0120760 , e n t r y F o n t , x , y ] ;
0121000 \r = 5 5 C = 376 001 \0 A 273
0121020 > P u t C h a r [ 3 0 C , e n
0121040 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 r
0121120 , e n t r y F o n t , x , y ] ;
0121140 \r I N [ 1 0 1 C . . 1
0121160 3 2 C ] = > P u t S t r i n
0121200 g C h a r [ " s h i f t " , c o
0121220 m m e n t F o n t , c h a r + 4
0121240 0 B , e n t r y F o n t , \r
0121260
0121300 x , y ] ;
0121320 \r I N [ 1 3 3 C . . 1
0121340 3 7 C ] = > P u t C h a r [
0121360 c h a r , e n t r y F o n t , x
0121400 , y ] ; \r = 1 4 0 C =
0121420 376 001 \0 034 201 > P u t S t r i n g
0121440 S t r i n g [ " s h i f t " , c
0121460 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 r
0121560 [ 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 e
0121640 l " , c o m m e n t F o n t , x
0121660 , y , c e n t e r e d ] ; \r
0121700 E N D C A S E ; \r E N D
0121720 \r E N D L O O P ; \r \r P r e
0121740 s s D e f s . W r i t e P a g e
0121760 [ o u t F i l e ] ; \r \r P r e s
0122000 s D e f s . C l o s e P r e s s
0122020 F i l e [ 376 \0 246 037 236 o u t F i l
0122040 e ] ; \r \r I O D e f s . W r i t
0122060 e L i n e [ " " ] ; \r I O D e f
0122100 s . W r i t e L i n e [ " D o n
0122120 e . " ] \r \r E N D . \r \r 032 ( 6 3
0122140 5 ) \ f 1 1 6 6 f 0 b 6 f 1 B
0122160 8 2 b 4 B 2 9 b 8 B 1 1 5 b 6 B
0122200 3 0 b 9 B 8 1 b 1 8 B 1 0 9 4 b
0122220 1 3 B 2 9 f 0 1 7 f 1 3 7 4
0122240 b 1 2 B 7 3 8 b 1 0 B 2 1 2 b 7
0122260 B 1 8 0 b 1 3 B 2 2 6 b 1 5 B \r
0122300 377 \0 \0 o s p a g e . p r e s s \0
0122320 373 225 363 307 233 \0 \0 376 001 \0 327 277 0 1 2 3
0122340 4 5 6 7 # 0 0 0 # 0 1 0 # 0 2 0
0122360 # 0 3 0 # 0 4 0 # 0 5 0 # 0 6 0
0122400 # 0 7 0 # 1 0 0 # 1 1 0 # 1 2 0
0122420 # 1 3 0 # 1 4 0 # 1 5 0 # 1 6 0
0122440 # 1 7 0 A l t o O S k e y b
0122460 o a r d h a n d l e r H e r e
0122500 i s o n e w a y t o t
0122520 y p e e a c h s e v e n b
0122540 i t c h a r a c t e r c o d
0122560 e t o t h e k e y b o a r
0122600 d h a n d l e r i n c l u d
0122620 e d a s p a r t o f t h
0122640 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 c
0122700 e t o A l t o p r o g r a
0122720 m s t h a t l e t 376 001 \0 m
0122740 m t h e O S h a n d l e t
0122760 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 E
0123020 d i t ) . T h e r e a r e o
0123040 f t e n o t h e r w a y s
0123060 a s w e l l ; f o r e x
0123100 a m p l e , < c t r l > < @ >
0123120 g i v e s # 0 0 0 , w h i
0123140 l e < s h i f t > < h y p h e
0123160 n > g i v e s # 0 3 0 . c t
0123200 r l s p a c e c t r l a c t r l
0123220 b c t r l c c t r l d c t r l e
0123240 c t r l f c t r l g b s t a b l
0123260 f c t r l k c t r l l r e t u r
0123300 n c t r l n c t r l o c t r l p
0123320 c t r l q c t r l r c t r l s c
0123340 t 376 001 \0 271 ; r l t c t r l u c t
0123360 r l v c t r l w c t r l x c t r
0123400 l y c t r l z e s c c t r l \ c
0123420 t r l ] c t r l ^ c t r l _ s p
0123440 a c e ! " # $ % & ' ( ) * + , 030
0123460 . / 0 1 2 3 4 5 6 7 8 9 : ; < =
0123500 > ? @ s h i f t a s h i f t b s
0123520 h i f t c s h i f t d s h i f t
0123540 e s h i f t f s h i f t g s h i
0123560 f t h s h i f t i s h i f t j s
0123600 h i f t k s h i f t l s h i f t
0123620 m s h i f t n s h i f t o s h i
0123640 f t p s h i f t q s h i f t r s
0123660 h i f t s s h i f t t s h i f t
0123700 u s h i f t v s h i f t w s h i
0123720 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 f
0123760 a b c d e f g h i j k l m n o p
0124000 q r s t u v w x y z { | } ~ d e
0124020 l \0 \0 356 017 240 357 027 p 376 : 254 \0 024 356 017
0124040 240 357 034 \a 376 : 254 \0 024 356 017 240 357 236 376
0124060 : 254 \0 024 356 017 240 357 % 5 376 : 254 \0 024 356
0124100 017 240 357 ) 314 376 : 254 \0 024 356 017 240 357 . c
0124120 376 : 254 \0 024 356 017 240 357 2 372 376 : 254 \0 024
0124140 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 \0
0124200 024 356 017 240 357 E V 376 : 254 \0 024 356 017 240 357
0124220 I 355 376 : 254 \0 024 356 017 240 357 N 204 376 : 254
0124240 \0 024 356 017 240 357 S 033 376 : 254 \0 024 356 017 240
0124260 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 017
0124320 240 357 027 p 376 \0 024 I 204 356 026 363 357 027 p 376
0124340 \0 024 I 204 356 036 F 357 027 p 376 376 001 \0 320 6
0124360 \0 024 I 204 356 % 231 357 027 p 376 \0 024 I 204 356
0124400 , 354 357 027 p 376 \0 024 I 204 356 4 ? 357 027 p
0124420 376 \0 024 I 204 356 ; 222 357 027 p 376 \0 024 I 204
0124440 356 B 345 357 027 p 376 \0 024 I 204 356 J 8 357 027
0124460 p 376 \0 024 I 204 p 356 022 361 357 a 250 360 001 p
0124500 356 032 D 357 a 250 360 001 p 356 ! 227 357 a 250 360
0124520 001 p 356 ( 352 357 a 250 360 001 p 356 0 = 357 a
0124540 250 360 001 p 356 7 220 357 a 250 360 001 p 356 > 343
0124560 357 a 250 360 001 p 356 F 6 357 a 250 360 001 p 356
0124600 \v h 357 ] 373 360 004 p 356 \v h 357 Y d 360 004
0124620 p 356 \v h 357 T 315 360 004 p 356 \v h 357 P 6
0124640 360 004 p 356 \v h 357 K 237 360 004 p 356 \v h 357
0124660 G \b 360 004 p 356 \v h 357 B q 360 004 p 356 \v
0124700 h 357 = 332 360 004 p 356 \v h 357 9 C 360 004 p
0124720 356 \v h 357 4 254 360 004 p 356 \v h 357 0 025 360
0124740 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 360
0125000 004 p 356 \v h 357 035 271 360 004 p 356 \v h 357 031
0125020 " 360 004 q 356 037 / 357 022 267 360 030 p 356 \v 270
0125040 357 \r v 360 j p 356 \v 270 357 \v 036 360 j p 356
0125060 \v 270 357 \b 306 360 i p 356 022 R 357 ^ 307 360 004
0125100 p 356 021 262 357 ] ` 360 005 p 356 031 245 357 ^ 307
0125120 360 004 p 356 032 J 357 ] ` 360 001 p 356 370 357
0125140 ^ 307 360 004 p 356 ! 214 357 ] ` 360 001 p 356 (
0125160 K 357 ^ 307 360 004 p 356 ( 365 357 ] ` 360 001 p
0125200 356 / 236 357 ^ 307 360 004 p 356 0 2 357 ] ` 360
0125220 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 > 377
0125260 357 ] ` 360 001 p 356 E 227 357 ^ 307 360 004 p 356
0125300 F 6 357 ] ` 360 001 p 356 022 244 357 Y d 360 002
0125320 p 356 031 260 357 Y d 360 003 p 356 ! 202 357 Y d
0125340 360 002 p 356 ( K 357 Z 0 360 004 p 356 ( 345 357
0125360 X 311 360 001 p 376 001 \0 343 W 356 / 236 357 Z 0
0125400 360 004 p 356 0 d 357 X 311 360 001 p 356 6 025 357
0125420 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 p
0125460 356 F 1 357 X 311 360 001 p 356 022 R 357 U 231 360
0125500 004 p 356 022 346 357 T 2 360 001 p 356 031 245 357 U
0125520 231 360 004 p 356 032 9 357 T 2 360 001 p 356 370
0125540 357 U 231 360 004 p 356 ! 255 357 T 2 360 001 p 356
0125560 ( K 357 U 231 360 004 p 356 ) \0 357 T 2 360 001
0125600 p 356 / 236 357 U 231 360 004 p 356 0 ^ 357 T 2
0125620 360 001 p 356 6 361 357 U 231 360 004 p 356 7 205 357
0125640 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 p
0125700 356 F 020 357 T 2 360 001 p 356 022 R 357 Q 002 360
0125720 004 p 356 022 361 357 O 233 360 001 p 356 031 245 357 Q
0125740 002 360 004 p 356 032 D 357 O 233 360 001 p 356 370
0125760 357 Q 002 360 004 p 356 ! 243 357 376 001 \0 b J O
0126000 233 360 001 p 356 ( a 357 P 6 360 003 p 356 / 236
0126020 357 Q 002 360 004 p 356 0 = 357 O 233 360 001 p 356
0126040 6 361 357 Q 002 360 004 p 356 7 267 357 O 233 360 001
0126060 p 356 > D 357 Q 002 360 004 p 356 > 343 357 O 233
0126100 360 001 p 356 E 227 357 Q 002 360 004 p 356 F \n 357
0126120 O 233 360 001 p 356 021 262 357 K 237 360 005 p 356 032
0126140 ` 357 K 237 360 001 r 356 ! n 357 K 224 360 001 p
0126160 356 ( 222 357 K 237 360 001 p 356 0 = 357 K 237 360
0126200 001 p 356 7 d 357 K 237 360 001 p 356 > 262 357 K
0126220 237 360 001 r 356 F \r 357 K 224 360 001 p 356 023 \r
0126240 357 G \b 360 001 p 356 032 ` 357 G \b 360 001 p 356
0126260 ! 227 357 G \b 360 001 p 356 ( 222 357 G \b 360 001
0126300 p 356 0 i 357 G \b 360 001 p 356 7 8 357 G \b
0126320 360 001 p 356 ? 020 357 G \b 360 001 p 356 F 6 357
0126340 G \b 360 001 p 356 022 361 357 B q 360 001 p 356 032
0126360 D 357 B q 360 001 p 356 ! 227 357 B q 360 001 376
0126400 001 \0 224 303 p 356 ( 352 357 B q 360 001 p 356 0
0126420 = 357 B q 360 001 p 356 7 220 357 B q 360 001 p
0126440 356 > 343 357 B q 360 001 p 356 F 6 357 B q 360
0126460 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 ) 006
0126520 357 = 332 360 001 p 356 0 = 357 = 332 360 001 p 356
0126540 7 8 357 = 332 360 001 p 356 > 343 357 = 332 360 001
0126560 p 356 F G 357 = 332 360 001 p 356 022 231 357 9 C
0126600 360 001 p 356 031 S 357 : 017 360 005 p 356 032 J 357
0126620 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 p
0126660 356 ( 365 357 8 250 360 001 p 356 / L 357 : 017 360
0126700 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 = 362
0126740 357 : 017 360 005 p 356 > 377 357 8 250 360 001 p 356
0126760 E E 357 : 017 360 005 p 356 F 6 357 8 250 360 001
0127000 p 356 022 \0 376 001 \0 * 320 357 5 x 360 005 p 356
0127020 022 346 357 4 021 360 001 p 356 031 S 357 5 x 360 005
0127040 p 356 032 k 357 4 021 360 001 p 356 246 357 5 x
0127060 360 005 p 356 ! 276 357 4 021 360 001 p 356 ' 371 357
0127100 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 p
0127140 356 6 237 357 5 x 360 005 p 356 7 T 357 4 021 360
0127160 001 p 356 = 362 357 5 x 360 005 p 356 > 330 357 4
0127200 021 360 001 p 356 E E 357 5 x 360 005 p 356 F 1
0127220 357 4 021 360 001 p 356 022 \0 357 0 341 360 005 p 356
0127240 022 346 357 / z 360 001 p 356 031 S 357 0 341 360 005
0127260 p 356 032 9 357 / z 360 001 p 356 246 357 0 341
0127300 360 005 p 356 ! 255 357 / z 360 001 p 356 ' 371 357
0127320 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 p
0127360 356 6 237 357 0 341 360 005 p 356 7 205 357 / z 360
0127400 001 p 356 = 362 357 0 341 360 376 001 \0 212 315 005 p
0127420 356 > 343 357 / z 360 001 p 356 E E 357 0 341 360
0127440 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 S
0127500 357 , J 360 005 p 356 032 D 357 * 343 360 001 p 356
0127520 246 357 , J 360 005 p 356 ! 243 357 * 343 360 001
0127540 p 356 ) 021 357 + ~ 360 001 p 356 0 = 357 + ~
0127560 360 001 p 356 7 267 357 + ~ 360 001 p 356 > 343 357
0127600 + ~ 360 001 p 356 F \n 357 + ~ 360 001 p 356 022
0127620 \0 357 ' 263 360 005 p 356 022 334 357 & L 360 002 p
0127640 356 032 J 357 & 347 360 001 p 356 ! 214 357 & 347 360
0127660 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 > 377
0127720 357 & 347 360 001 p 356 F 6 357 & 347 360 001 p 356
0127740 022 346 357 " P 360 001 p 356 032 k 357 " P 360 001
0127760 p 356 ! 276 357 " P 360 001 p 356 ( 345 357 " P
0130000 360 001 p 356 0 d 357 " P 360 001 p 356 7 376 001
0130020 \0 X t T 357 " P 360 001 p 356 > 330 357 " P
0130040 360 001 p 356 F 1 357 " P 360 001 p 356 022 346 357
0130060 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 p
0130120 356 0 ^ 357 035 271 360 001 p 356 7 205 357 035 271 360
0130140 001 p 356 > 343 357 035 271 360 001 p 356 F 020 357 035
0130160 271 360 001 p 356 022 361 357 031 " 360 001 p 356 032 D
0130200 357 031 " 360 001 p 356 ! 243 357 031 " 360 001 p 356
0130220 ( 352 357 031 " 360 001 p 356 0 i 357 031 " 360 001
0130240 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 \0
0130300 \0 \0 \0 003 ( \0 \0 \0 \0 \0 \0 \0 \0 T V m
0130320 $ 004 L 344 ^ 306 \0 307 \0 \0 \0 202 \f 344 230 \0
0130340 \0 \0 \0 \0 \0 \0 \0 \0 003 \0 001 \0 001 \0 t 312
0130360 @ 344 t 344 201 " \n : 004 ; $ 344 J 001 \f "
0130400 \t \0 # 344 326 \0 , \v 225 \v 1 \v 251 \v 221 \v
0130420 ! \v 265 376 001 \0 / B \0 020 \0 \0 \0 177 \n T
0130440 I M E S R O M A N 315 \0 315 \0 315 \0 315
0130460 \0 315 \0 \0 \0 \n \0 \0 \0 020 \0 001 \0 177 \n T
0130500 I M E S R O M A N 315 \0 315 \0 315 \0 315
0130520 \0 315 002 \0 \0 022 \0 \0 \0 020 \0 002 \0 177 005 G
0130540 A C H A 336 \0 s 344 \0 273 \t 315 \0 315 \0 315
0130560 \0 315 \0 \0 \0 \f \0 \0 \0 \0 273 251 \0 \0 \0 003
0130600 027 p \0 002 365 < 377 341 \t 231 \0 \0 \0 004 \0 \0
0130620 \0 016 \0 \0 \0 \0 365 K \0 035 \0 016 \0 \0 \0 \0
0130640 \0 \0 \0 003 \0 022 \0 \0 \0 \0 \0 001 352 p \0 \0
0130660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0130700 \0 \0 \0 006 356 h \0 \t \0 \0 \0 003 353 x \0 \0
0130720 \0 \0 \0 004 355 x \0 % \0 \0 \0 001 352 210 \0 \0
0130740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0130760 \0 \0 \0 003 353 214 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0131000 \0 \0 \0 004 355 220 \0 \0 \0 \0 \0 001 352 240 \0 \0
0131020 \0 \0 \0 \0 \0 \0 \0 \0 376 001 \0 \t / \0 \0 \0
0131040 003 353 240 \0 \0 \0 \0 \0 001 352 254 \0 \0 \0 \0 \0
0131060 \0 \0 \0 \0 \0 \0 \0 \0 005 \0 032 \0 \0 \0 \0 \0
0131100 001 352 270 \0 \0 \0 \0 \0 003 353 264 001 217 353 334 \0
0131120 \0 003 201 366 250 366 250 \0 016 357 , \0 \0 \0 \0 \0
0131140 \0 \0 \0 \r 001 \0 \0 003 201 353 334 \0 \0 \0 \0 \0
0131160 003 353 310 001 002 357 304 \0 \0 357 330 \0 003 \0 003 360
0131200 020 \0 004 357 344 \0 004 \0 004 \0 L \0 \0 357 350 \0
0131220 003 \0 003 \0 \0 \0 \0 \0 003 353 334 001 002 357 304 \0
0131240 \0 357 330 \0 003 \0 003 360 020 \0 004 357 344 \0 004 \0
0131260 006 \0 L \0 \0 357 350 \0 003 \0 003 \v \r 023 A \0
0131300 003 366 @ 377 4 352 334 \0 \0 \0 320 344 ^ \0 \0 \0
0131320 001 353 b \0 320 \0 0 \0 320 \0 \0 344 ^ 002 \0 \0
0131340 \0 \0 \0 \v \r \0 003 \0 004 \0 026 \0 \0 \0 \0 \0
0131360 \0 352 024 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0131400 \0 352 034 \0 \0 \0 \0 \0 002 353 030 \0 \0 \0 \0 \0
0131420 \0 352 $ \0 \0 \0 \0 \0 004 354 030 \0 \0 376 001 \0
0131440 214 021 \0 \0 \0 \0 \0 006 \0 \0 001 \0 006 \0 001
0131460 \0 377 344 ^ 306 \0 307 \0 \0 \0 202 \f 344 230 \0 006
0131500 \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 " \t
0131540 \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 \0
0131600 345 212 4 334 4 335 4 336 \v ) \v 231 \v ) \v 221
0131620 \0 , \v 225 \v = \v 251 \v 5 \v ! \v 265 \0 \0
0131640 236 \0 \0 ~ \0 274 \0 001 \0 274 316 \0 345 326 230
0131660 231 377 377 \v ) \v 231 \v ) \v 5 \0 030 \r 241
0131700 \r 235 \r 211 \r 225 \r 221 \r 231 \r 205 \r 215 345 276
0131720 \0 \0 \0 \f \0 002 021 246 264 004 351 \0 345 376 021 P
0131740 \0 350 \f 367 B \a 374 \0 Z \b " 004 i Q \0 001
0131760 " 004 i O \0 001 : 005 # 001 : 004 C # 204 P
0132000 : 004 C 035 : 005 # \0 : 004 C 036 204 P : 004
0132020 C 037 375 \0 Z \f = U Z \r 374 \0 Z 016 9 R
0132040 Z 003 376 001 \0 242 312 " 004 255 \0 i O \0 005 202
0132060 \f 001 005 : 005 # \0 200 \f 001 034 " \a 9 \ 345
0132100 K 001 005 : 005 ; 001 Z 006 001 005 : 004 # . :
0132120 005 C 002 " 006 200 \f 001 003 205 \0 001 036 " 004 i
0132140 L \0 001 375 \0 Z 003 " 004 * 006 i e \0 003 B
0132160 \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 345
0132240 f 2 375 \0 \0 305 Y 201 \0 \0 \0 \0 \0 \0 G
0132260 034 2 247 \0 \0 306 \0 001 307 ` 200 \0 005 345
0132300 v 2 374 \0 \0 311 _ 201 \0 \0 \0 \0 \0 \0 G
0132320 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 Z
0132360 001 \0 \0 \0 \0 \0 \0 \f 265 036 \b < \0 345 242 \0
0132400 002 003 001 246 S 343 \b R \0 \0 001 \0 001 \0 \0 G
0132420 j 2 345 < \0 345 250 \0 002 \a 001 246 S 343 005 R
0132440 \0 \0 001 \0 001 \0 \0 376 001 \0 224 201 j / \0 \t
0132460 \0 002 \0 \a \0 001 \0 \0 225 205 223 F \0 001 \0 001
0132500 377 377 377 377 \0 t \0 \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 376 001 \0 357
0133060 004 \f M a t r i x . P r e s s \0 \0
0133100 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0133140 \0 \0 \0 \0 \0 \a r a m s h a w \0 \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 022 2 8 - J u n - 8 0
0133220 2 2 : 5 9 : 3 2 \0 \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 377 \0 \0 b 7 p a g e . m e s a \0
0133500 373 225 363 307 233 \0 \0 376 001 \0 035 351 D I R E
0133520 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 O
0133600 M " s t r e a m d e f s " , \r
0133620 S t r i n g D e f s : F R
0133640 O M " s t r i n g d e f s " ,
0133660 \r S y s t e m D e f s : F
0133700 R O M " s y s t e m d e f s "
0133720 , \r P r e s s D e f s : F
0133740 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 A
0134000 M I M P O R T S I O D e f s
0134020 , S t r e a m D e f s , S t
0134040 r i n g D e f s , S y s t e m
0134060 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 333
0134120 310 n t : T Y P E = P O I N T
0134140 E R T O F o n t B o d y ; \r
0134160 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 T
0134220 R I N G , s i z e : C A R D I
0134240 N A L _ 0 , f a c e : C A
0134260 R D I N A L _ 0 , \r r o
0134300 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 t
0134340 h s _ N I L ] ; \r W i d t h
0134360 s : T Y P E = P O I N T E R
0134400 T O W i d t h B o d y ; \r W
0134420 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 R
0134460 A Y [ 0 . . 2 5 6 ) O F I
0134500 N T E G E R , \r b B o x : A
0134520 R 376 001 \0 336 306 R A Y [ 0 . . 4 )
0134540 O F I N T E G E R ] ; \r J u
0134560 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 s
0134620 t i f i e d , r i g h t J u s
0134640 t i f i e d , c e n t e r e d
0134660 , \r b o t t o m J u s t i f
0134700 i e d , t o p J u s t i f i e
0134720 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 e
0134760 F o n t , c o m m e n t F o n
0135000 t , q u o t e F o n t : F o
0135020 n t _ N I L ; \r w S t r e a
0135040 m : S t r e a m D e f s . S t r
0135060 e a m H a n d l e ; - - F o n
0135100 t s . W i d t h s s t r e a m
0135120 \r o u t F i 376 001 \0 ; 242 l e : P O
0135140 I N T E R T O P r e s s D e
0135160 f s . P r e s s F i l e D e s c
0135200 r i p t o r ; \r o u t F i l e N
0135220 a m e : S T R I N G = " B 7
0135240 P a g e . P r e s s " ; \r s t r
0135260 : S T R I N G _ [ 1 5 ] ; \r
0135300 r o w , c o l u m n : C A R D I
0135320 N A L ; \r c h a r : C H A R A C
0135340 T E R ; \r \r l e f t E d g e : C
0135360 A R D I N A L _ 4 0 0 0 ; \r r i
0135400 g h t E d g e : C A R D I N A L
0135420 _ 1 9 0 0 0 ; \r b o t t o m E d
0135440 g e : C A R D I N A L _ 6 0 0 0
0135460 ; \r t o p E d g e : C A R D I N
0135500 A L _ 2 4 8 0 0 ; \r g r i d W i
0135520 d t h : C A R D I N A 376 001 \0 y v
0135540 L _ 2 0 ; \r l a b e l M a r g i
0135560 n : C A R D I N A L _ 2 0 0 ; \r
0135600 t i t l e M a r g i n : C A R D
0135620 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 R
0135700 I N G = " H e r e i s t
0135720 h e s t o r y o n B r a v
0135740 o 7 : e a c h c o l u m
0135760 n d e s i g n a t e s o n e
0136000 k e y s t r o k e . T h
0136020 e c o d e s ^ I = # 0 1 1 ,
0136040 ^ L = # 0 1 4 , " ; \r c o m m
0136060 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 t
0136140 376 001 \0 m 217 i n g f u n c t i o
0136160 n s t h a t p r e c l u d e
0136200 t h e i r u s e a s p r
0136220 i n t i n g c h a r a c t e r
0136240 s , " ; \r c o m m e n t 3 : S T
0136260 R I N G = " w h i l e D E
0136300 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 r
0136360 e c t l y i n H a r d c o p
0136400 y m o d e . " ; \r \r n u m C
0136420 o l s : C A R D I N A L = 8 ; \r
0136440 n u m R o w s : C A R D I N A L
0136460 = 1 6 ; \r c o l W i d t h : C A
0136500 R D I N A L = ( r i g h t E d g
0136520 e - l e f t E d g e ) / n u m C
0136540 o l s ; \r 376 001 \0 C 325 r o w H e i
0136560 g h t : C A R D I N A L = ( t o
0136600 p E d g e - b o t t o m E d g e
0136620 ) / n u m R o w s ; \r \r F i n d
0136640 W i d t h s : P R O C E D U R
0136660 E [ f : F o n t ] = \r B E G
0136700 I N \r s u c c e s s : B O O
0136720 L E A N ; \r I F f = N I L
0136740 T H E N E R R O R A t t e
0136760 m p t T o F i n d W i d t h s O
0137000 f N I L ; \r f . w i d t h s
0137020 _ S y s t e m D e f s . A l
0137040 l o c a t e H e a p N o d e [ S
0137060 I Z E [ W i d t h B o d y ] ] ;
0137100 \r s u c c e s s _ P r e
0137120 s s D e f s . L o o k u p F o n
0137140 t N a m e [ w S t r 376 001 \0 w 0 e
0137160 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 , @ f
0137240 . w i d t h s . m i c a X , N
0137260 I L , @ f . w i d t h s . b B
0137300 o x ] ; \r I F ~ s u c c e
0137320 s s T H E N E R R O R F o
0137340 n t N o t I n W i d t h D i c t
0137360 i o n a r y ; \r E N D ; \r F
0137400 o n t N o t I n W i d t h D i c
0137420 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 T
0137460 o F i n d W i d t h s O f N I L
0137500 : S I G N A L = C O D E ;
0137520 \r \r P u t S t r i n g : P R O
0137540 C E D U R E [ s : S T R I N G 376
0137560 001 \0 % 342 , f : F o n t , x , y :
0137600 C A R D I N A L , m : J u s t i
0137620 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 N
0137720 A L ; \r I F f . w i d t h
0137740 s = N I L T H E N E R R O R
0137760 F o n t H a s N o W i d t h D
0140000 a t a ; \r F O R i I N
0140020 [ 0 . . s . l e n g t h ) D O
0140040 \r l e n g t h _ l e
0140060 n g t h + f . w i d t h s . m i
0140100 c a X [ s [ i ] - 0 C ] ; \r
0140120 E N D L O O P ; \r h e i
0140140 g h t _ f . w i d t h s . b
0140160 B o x [ 376 001 \0 \f 1 3 ] * 8 / 1 0
0140200 ; \r S E L E C T m F R O
0140220 M \r l e f t J u s t i f
0140240 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 f
0140320 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 = > B
0140420 E G I N y _ y - h e i g h
0140440 t / 2 ; x _ x - l e n g t
0140460 h / 2 E N D ; \r t o p
0140500 J u s t i f i e d = > B E G
0140520 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 o
0140600 t t o m J u s t i f i e d = >
0140620 B E G I N x _ x - l e n
0140640 g t h / 2 E N D ; \r
0140660 E N D C A S E ; \r P r e s s
0140700 D e f s . S e t F o n t [ o u t
0140720 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 P
0141000 r e s s D e f s . P u t T e x t
0141020 [ o u t F i l e , s , x ,
0141040 y ] ; \r E N D ; \r F o n t H
0141060 a s N o W i d t h D a t a : S I
0141100 G N A L = C O D E ; \r \r I n
0141120 i t F o n t : P R O C E D U R
0141140 E [ f a m : S T R I N G , s i
0141160 z e : C A R D I N A L , f 376 001
0141200 \0 l w a c e , r o t : C A R D I
0141220 N A L _ 0 ] \r R E T
0141240 U R N S [ F o n t ] = \r
0141260 B E G I N \r f : F o n t ; \r
0141300 f _ S y s t e m D e f s
0141320 . A l l o c a t e H e a p N o d
0141340 e [ S I Z E [ F o n t B o d y ]
0141360 ] ; \r f ^ _ F o n t B o
0141400 d y [ f a m , s i z e , f a c e
0141420 , r o t , N I L ] ; \r R E T
0141440 U R N [ f ] ; \r E N D ; \r
0141460 \r P u t C h a r : P R O C E D
0141500 U R E [ c h a r : C H A R A C T
0141520