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