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