$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLREAD!5
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 4 - O c t - 8 6 0 0 : 1 8 : 2
0000140 6 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > C M L
0000200 R E A D . ; 5 006 001 4 1 4 8 4
0000220 \r \r c h a n g e s
0000240 t o % : ( F N S I N I T
0000260 - C M L - R E A D T A B L E S
0000300 C L : R E A D C L : C O P Y -
0000320 R E A D T A B L E C L : R E A
0000340 D - P R E S E R V I N G - W H I
0000360 T E S P A C E \r
0000400
0000420 C L : R E A D - D E L I M I
0000440 T E D - L I S T C L : R E A D
0000460 - L I N E C L : R E A D - C H
0000500 A R C L : U N R E A D - C H A
0000520 R C L : P E E K - C H A R \r
0000540
0000560 C L : L I S T
0000600 E N C L : R E A D - C H A R -
0000620 N O - H A N G C L : C L E A R
0000640 - I N P U T C L : R E A D - F
0000660 R O M - S T R I N G \r
0000700
0000720 C L : R E A D - B Y T
0000740 E C L : W R I T E - B Y T E
0000760 C M L R D T B L C M L R E A D
0001000 S E M I ) \r
0001020 ( F U N C T
0001040 I O N S C L - M A C R O - W R
0001060 A P P E D - P D O - D I S P A
0001100 T C H - M A C R O C L : G E T
0001120 - D I S P A T C H - M A C R O -
0001140 C H A R A C T E R \r
0001160
0001200 C L : G E T - M A C
0001220 R O - C H A R A C T E R H A S
0001240 H - D O T H A S H - M I N U S
0001260 H A S H - P L U S H A S H -
0001300 R C L - W R A P - M A C R O
0001320 \r
0001340 I L - M
0001360 A C R O - W R A P P E D - P I
0001400 L - W R A P - M A C R O C L :
0001420 P A R S E - I N T E G E R H A
0001440 S H - L E F T P A R E N H A S
0001460 H - A \r
0001500
0001520 H A S H - B H A S H - Q U O T
0001540 E H A S H - B A C K S L A S H
0001560 H A S H - C H A S H - C O L
0001600 O N H A S H - C O M M A \r
0001620
0001640 H A S H - D
0001660 O U B L E Q U O T E H A S H -
0001700 I L L E G A L - H A S H - C H A
0001720 R H A S H - L E F T A N G L E
0001740 \r
0001760 H A S
0002000 H - N O - P A R A M E T E R - E
0002020 R R O R H A S H - O H A S H
0002040 - S H A S H - S T A R H A S
0002060 H - V B A R H A S H - X \r
0002100
0002120 C L : M A K
0002140 E - D I S P A T C H - M A C R O
0002160 - C H A R A C T E R C L : S E
0002200 T - D I S P A T C H - M A C R O
0002220 - C H A R A C T E R \r
0002240
0002260 C L : S E T - M A
0002300 C R O - C H A R A C T E R ) \r
0002320
0002340 ( V A R S C M L R E A D
0002360 C O M S ) \r \r p r e
0002400 v i o u s d a t e % : " 1 2
0002420 - S e p - 8 6 2 2 : 2 6 : 1 7
0002440 " { E R I S } < L I S P C O R
0002460 E > S O U R C E S > C M L R E A
0002500 D . ; 4 ) \r \r \r ( * " \r C o p
0002520 y r i g h t ( c ) 1 9 8 5 ,
0002540 1 9 8 6 b y X e r o x C
0002560 o r p o r a t i o n . A l l
0002600 r i g h t s r e s e r v e d
0002620 . \r " ) \r \r ( P R E T T Y C O M
0002640 P R I N T C M L R E A D C O M
0002660 S ) \r \r ( R P A Q Q 006 002 C M L
0002700 R E A D C O M S 006 001 \r
0002720 [ ( * ; ; " T h i s
0002740 i s a c o l l e c t i o n
0002760 o f h a c k s d e s i g n e
0003000 d t o m a k e o u r r e
0003020 a d e r h a n d l e s o m e
0003040 s u b s e t o f C o m m o
0003060 n L i s p s y n t a x .
0003100 I t d o e s n ' t r e a l l
0003120 y w o r k r i g h t " \r
0003140 ) \r
0003160 ( C O M S ( F N S C L
0003200 : R E A D C L : C O P Y - R E
0003220 A D T A B L E ) \r
0003240 ( C O M S ( *
0003260 ; \r " R E
0003300 A D - P R E S E R V I N G - W H
0003320 I T E S P A C E d e f i n i t
0003340 e l y n e e d s m o r e w
0003360 o r k . O t h e r f u n c
0003400 t i o n s i n t h i s C O
0003420 M S m a y . " \r
0003440
0003460 ) \r
0003500 ( F N S C L : R E
0003520 A D - P R E S E R V I N G - W H
0003540 I T E S P A C E C L : R E A D
0003560 - D E L I M I T E D - L I S T
0003600 C L : R E A D - L I N E \r
0003620
0003640 C L : R E A D - C
0003660 H A R C L : U N R E A D - C H
0003700 A R C L : P E E K - C H A R
0003720 C L : L I S T E N C L : R E A
0003740 D - C H A R - N O - H A N G \r
0003760
0004000 C L : C L E A
0004020 R - I N P U T C L : R E A D -
0004040 F R O M - S T R I N G C L : R
0004060 E A D - B Y T E C L : W R I T
0004100 E - B Y T E ) ) \r
0004120 [ D E C L A R E %
0004140 : D O N T E V A L @ L O A D
0004160 D O C O P Y ( P ( M O V D ?
0004200 ' N I L L ' C M L T R A N S
0004220 L A T E ] \r
0004240 ( * ; " m u s t t
0004260 u r n o f f p a c k e d v
0004300 e r s i o n o f C L I S P
0004320 i n f i x " ) \r
0004340 ( V A R S [ C L I
0004360 S P C H A R S ( L D I F F E R
0004400 E N C E C L I S P C H A R S
0004420 ' ( - * % : ] \r
0004440 ( C
0004460 L I S P C H A R R A Y ( M A K
0004500 E B I T T A B L E C L I S P C
0004520 H A R S ) ) \r
0004540 ( D W I M
0004560 I N M A C R O S F L G ) ) ) \r
0004600 ( F U N C T I O N
0004620 S C L - M A C R O - W R A P P
0004640 E D - P C L - U N W R A P - M
0004660 A C R O C L - W R A P - M A C
0004700 R O I L - M A C R O - W R A P
0004720 P E D - P \r
0004740 I L - U N W R A P -
0004760 M A C R O I L - W R A P - M A
0005000 C R O C L : P A R S E - I N T
0005020 E G E R ) \r ( *
0005040 ; " C o m m o n L i s p
0005060 r e a d t a b l e i n t e r f
0005100 a c e f u n c t i o n s a n
0005120 d s u p p l i e d h a s h
0005140 m a c r o f u n c t i o n s "
0005160 ) \r ( F U N C T
0005200 I O N S C L : S E T - S Y N T
0005220 A X - F R O M - C H A R D O -
0005240 D I S P A T C H - M A C R O F
0005260 I N D - M A C R O - F U N C T I
0005300 O N \r
0005320 C L : G E T - D I S P A T
0005340 C H - M A C R O - C H A R A C T
0005360 E R C L : G E T - M A C R O -
0005400 C H A R A C T E R H A S H - L
0005420 E F T P A R E N H A S H - A
0005440 H A S H - B \r
0005460 H A S H - B A C K
0005500 S L A S H H A S H - C H A S
0005520 H - C O L O N H A S H - C O M
0005540 M A H A S H - D O T H A S H
0005560 - D O U B L E Q U O T E \r
0005600 H A S
0005620 H - I L L E G A L - H A S H - C
0005640 H A R H A S H - L E F T A N G
0005660 L E H A S H - M I N U S H A
0005700 S H - N O - P A R A M E T E R -
0005720 E R R O R H A S H - O \r
0005740 H A S
0005760 H - P L U S H A S H - Q U O T
0006000 E H A S H - R H A S H - S
0006020 H A S H - S T A R H A S H - V
0006040 B A R H A S H - X \r
0006060 C L : M A
0006100 K E - D I S P A T C H - M A C R
0006120 O - C H A R A C T E R C L : S
0006140 E T - D I S P A T C H - M A C R
0006160 O - C H A R A C T E R \r
0006200 C L : S
0006220 E T - M A C R O - C H A R A C T
0006240 E R ) \r ( I N I
0006260 T V A R S ( * S T A N D A R D
0006300 - I N P U T * N I L ) \r
0006320 ( * R E
0006340 A D - D E F A U L T - F L O A T
0006360 - F O R M A T * ' C L : S I N
0006400 G L E - F L O A T ) ) \r
0006420 [ C O M S ( * ; ;
0006440 " A t t e m p t t o b u i l
0006460 d a C o m m o n L i s p r
0006500 e a d t a b l e . M o s t
0006520 f e a t u r e s s i m u l a t
0006540 e d f o r t h e b a s i c
0006560 r e a d i n g , b u t m a
0006600 c r o s n e e d w o r k " \r
0006620
0006640 ) \r
0006660 ( F N S C M L R D T B L I
0006700 N I T - C M L - R E A D T A B L
0006720 E S S E T - D E F A U L T - H
0006740 A S H M A C R O - S E T T I N G
0006760 S C M L R E A D S E M I ) \r
0007000 ( D E
0007020 C L A R E % : D O N T E V A L
0007040 @ L O A D D O C O P Y ( P
0007060 ( I N I T - C M L - R E A D T A
0007100 B L E S ] \r [ C
0007120 O M S ( * ; ; " C r u d e
0007140 m e a n s t o a i d r e
0007160 a d i n g a n d p r i n t i
0007200 n g t h i n g s i n s a m
0007220 e r e a d e r e n v i r o n
0007240 m e n t . T h e r e a r e
0007260 s o m e f n s a n d a n
0007300 I N I T R E C O R D S f o r
0007320 t h i s o n A T B L t o
0007340 g e t i t e a r l y i n
0007360 t h e l o a d u p " \r
0007400 ) \r
0007420 ( R
0007440 E C O R D S R E A D E R - E N
0007460 V I R O N M E N T ) \r
0007500 ( F U N C T I
0007520 O N S W I T H - R E A D E R -
0007540 E N V I R O N M E N T ) \r
0007560 ( A D D V
0007600 A R S ( S Y S S P E C V A R S
0007620 * P A C K A G E * * R E A D
0007640 T A B L E * * R E A D - B A S
0007660 E * * P R I N T - B A S E * )
0007700 ) \r
0007720 ( P R O P I N F O W I T H -
0007740 R E A D E R - E N V I R O N M E
0007760 N T ) \r
0010000 ( G L O B A L V A R S * C
0010020 O M M O N - L I S P - R E A D -
0010040 E N V I R O N M E N T * ) \r
0010060 ( I N I
0010100 T V A R S ( * C O M M O N - L
0010120 I S P - R E A D - E N V I R O N
0010140 M E N T * ( c r e a t e R E
0010160 A D E R - E N V I R O N M E N T
0010200 R E P A C K A G E _ \r
0010220
*
0010300 ( C L :
0010320 F I N D - P A C K A G E " U S
0010340 E R " ) \r
0010360
*
0010440 R E R E A D T A B L E
0010460 _ C M L R D T B L R E B A S
0010500 E _ 1 0 ] \r
0010520 ( P R O P F I L E T Y P E C
0010540 M L R E A D ) \r
0010560 ( D E C L A R E % : D O N T E
0010600 V A L @ L O A D D O E V A L @
0010620 C O M P I L E D O N T C O P Y
0010640 C O M P I L E R V A R S \r
0010660 ( A D
0010700 D V A R S ( N L A M A ) \r
0010720
0010740 ( N L A M L ) \r
0010760
0011000 ( L A M A C L : W R I T E
0011020 - B Y T E C L : R E A D - B Y
0011040 T E C L : R E A D - F R O M -
0011060 S T R I N G C L : C L E A R -
0011100 I N P U T \r
0011120
0011140 C L : R E A D - C H A R -
0011160 N O - H A N G C L : L I S T E
0011200 N C L : P E E K - C H A R C
0011220 L : U N R E A D - C H A R C L
0011240 : R E A D - C H A R \r
0011260
0011300 C L : R E A D -
0011320 L I N E C L : R E A D - P R E
0011340 S E R V I N G - W H I T E S P A
0011360 C E C L : C O P Y - R E A D T
0011400 A B L E C L : R E A D ] ) \r \r
0011420 \r \r 006 004 ( * ; ; \r " T h i s
0011440 i s a c o l l e c t i o n
0011460 o f h a c k s d e s i g n
0011500 e d t o m a k e o u r r
0011520 e a d e r h a n d l e s o m
0011540 e s u b s e t o f C o m m
0011560 o n L i s p s y n t a x .
0011600 I t d o e s n ' t r e a l
0011620 l y w o r k r i g h t " \r )
0011640 006 001 \r \r ( D E F I N E Q \r \r ( 006
0011660 004 C L : R E A D 006 001 \r ( C L
0011700 : L A M B D A ( & O P T I O N
0011720 A L I N P U T - S T R E A M
0011740 E O F - E R R O R - P E O F -
0011760 V A L U E R E C U R S I V E -
0012000 P ) 006 003 006 001 \r
0012020
*
0012100 006 003 ( * b v m % : "
0012120 1 3 - O c t - 8 6 1 5 : 2 1 "
0012140 ) 006 001 \r ( R E
0012160 A D I N P U T - S T R E A M )
0012200 ) ) \r \r ( 006 004 C L : C O P Y - R
0012220 E A D T A B L E 006 001 \r [ C L
0012240 : L A M B D A ( & O P T I O N
0012260 A L ( F R O M - R E A D T A B
0012300 L E * R E A D T A B L E * ) \r
0012320
0012340 T O - R E A D T A B L E
0012360 ) 006 003 006 001
0012400
0012420 006 003 ( * b v m % : " 1 3 -
0012440 O c t - 8 6 1 5 : 2 1 " ) 006 001
0012460 006 003 006 001 \r
0012500
*
0012540 006 003 ( * ; \r 006
0012560 001
0012600 006 003 " I f F R O M - R E A
0012620 D T A B L E i s N I L , t
0012640 h e n a c o p y o f a
0012660 s t a n d a r d C o m m o n
0012700 L i s p r e a d t a b l e i
0012720 s m a d e . " ) 006 001 \r
0012740 ( 006 002 i f 006 001 ( A N
0012760 D ( N U L L F R O M - R E A
0013000 D T A B L E ) \r
0013020 ( N U L L
0013040 T O - R E A D T A B L E ) ) \r
0013060 006 002 t h
0013100 e n 006 001 006 003 006 001
0013120
*
0013160 006 003 ( * ; " j u s t
0013200 m a k e a b r a n d n e
0013220 w o n e " ) 006 001 \r
0013240 ( 006 002 C
0013260 M L R D T B L 006 001 ) \r
0013300 006 002 e l s e 006 001 (
0013320 S E T Q F R O M - R E A D T A
0013340 B L E ( \ D T E S T ( O R
0013360 F R O M - R E A D T A B L E (
0013400 006 002 C M L R D T B L 006 001 ) ) \r
0013420
*
0013460 ' R E A D
0013500 T A B L E P ) ) \r
0013520 ( 006 002 i f 006 001
0013540 T O - R E A D T A B L E \r
0013560
0013600 006 002 t h e n 006 001 ( R E S E
0013620 T R E A D T A B L E ( \ D T E
0013640 S T T O - R E A D T A B L E
0013660 ' R E A D T A B L E P ) \r
0013700
0013720 F R O
0013740 M - R E A D T A B L E ) \r
0013760
0014000 T O - R E A D T A B
0014020 L E \r
0014040 006 002 e l s e 006 001 ( C
0014060 O P Y R E A D T A B L E F R O
0014100 M - R E A D T A B L E ] ) \r ) \r
0014120 \r \r \r 006 004 ( * ; \r " R E A D
0014140 - P R E S E R V I N G - W H I T
0014160 E S P A C E d e f i n i t e l
0014200 y n e e d s m o r e w o r
0014220 k . O t h e r f u n c t i
0014240 o n s i n t h i s C O M S
0014260 m a y . " ) 006 001 \r \r ( D E F I
0014300 N E Q \r \r ( 006 004 C L : R E A D -
0014320 P R E S E R V I N G - W H I T E
0014340 S P A C E 006 001 \r ( C L : L A
0014360 M B D A ( & O P T I O N A L
0014400 ( S T R E A M * S T A N D A R
0014420 D - I N P U T * ) \r
0014440 ( E
0014460 O F - E R R O R P T ) \r
0014500
0014520 ( E O F - V A L U E N I L )
0014540 \r
0014560 ( R E C U R S I V E P
0014600 N I L ) ) 006 003 006 001
0014620
0014640 006 003 ( * b v m % : " 1 3
0014660 - O c t - 8 6 1 5 : 2 2 " ) 006
0014700 001 006 003 006 001 \r
0014720
*
0014760 006 003 ( * ; ;
0015000 \r 006 001 006 003 " R e a d s f r o
0015020 m s t r e a m a n d r e t
0015040 u r n s t h e o b j e c t
0015060 r e a d , p r e s e r v i n g
0015100 t h e w h i t e s p a c e
0015120 t h a t f o l l o w e d t h
0015140 e o b j e c t . " ) 006 001 \r
0015160 ( L E T ( ( R E
0015200 S U L T ( 006 002 C L : R E A D 006
0015220 001 S T R E A M E O F - E R R
0015240 O R P E O F - V A L U E R E
0015260 C U R S I V E P ) ) ) \r
0015300 ( 006 002 i f 006
0015320 001 ( S Y N T A X P ( L A S T
0015340 C S T R E A M ) \r
0015360
0015400 ' S E P R C H A R ) \r
0015420
0015440 006 002 t h e n 006 001 ( \ B A C K C
0015460 H A R S T R E A M ) ) \r
0015500 R E S U L
0015520 T ) ) ) \r \r ( 006 004 C L : R E A D
0015540 - D E L I M I T E D - L I S T 006
0015560 001 \r [ L A M B D A ( C H A
0015600 R I N P U T - S T R E A M R
0015620 E C U R S I V E - P ) 006 003 006 001
0015640
0015660 006 003 ( * b v m % : " 1
0015700 3 - O c t - 8 6 1 5 : 4 3 " )
0015720 006 001 006 003 006 001 \r
0015740
*
0016000 006 003 ( * ; ;
0016020 ; " R e a d a l i s t o
0016040 f e l e m e n t s t e r m i
0016060 n a t e d b y C H A R .
0016100 C H A R m u s t n o t b e
0016120 a s e p a r a t o r c h a
0016140 r , a n d i d e a l l y s
0016160 h o u l d n o t b e a c
0016200 o n s t i t u e n t c h a r
0016220 ( i f i t i s , i t m u
0016240 s t b e p r e c e d e d b
0016260 y w h i t e s p a c e f o r
0016300 R E A D - D E L I M I T E D -
0016320 L I S T t o w o r k ) " ) 006
0016340 001 006 003 006 001 \r
0016360
*
0016420 006 003 ( * ; ;
0016440 " N o t e : t h i s i s n
0016460 o t q u i t e r i g h t ,
0016500 b e c a u s e i t l o s e s
0016520 i f t h e t e r m i n a t
0016540 o r i s p r e c e d e d b
0016560 y a m a c r o c h a r a c
0016600 t e r t h a t r e t u r n s
0016620 z e r o v a l u e s , f o
0016640 r e x a m p l e , a s e m
0016660 i - c o l o n . I t a l s
0016700 o i g n o r e s R E C U R S
0016720 I V E - P . W h e n t h e
0016740 r e a l r e a d e r i s
0016760 w r i t t e n , t h i s s h
0017000 o u l d b e i n t e g r a t
0017020 e d w i t h i t . " ) 006 001 \r
0017040 ( L E T [ ( E N D C O
0017060 D E ( O R ( F I X P C H A
0017100 R ) \r
0017120 ( C L : C H
0017140 A R - C O D E C H A R ) ) ) \r
0017160 ( I N S T R
0017200 E A M ( \ G E T S T R E A M
0017220 I N P U T - S T R E A M ' I N
0017240 P U T ] \r ( 006
0017260 002 u n t i l 006 001 ( E Q ( S K
0017300 I P S E P R C O D E S I N S T
0017320 R E A M ) \r
0017340 E N D C O D
0017360 E ) 006 002 c o l l e c t 006 001 (
0017400 R E A D I N S T R E A M ) 006
0017420 002 f i n a l l y 006 001 006 003 006 001 \r
0017440
*
0017520 006 003 ( *
0017540 ; " C o n s u m e t h e t
0017560 e r m i n a t i n g c h a r a
0017600 c t e r " ) 006 001 \r
0017620
*
0017700 ( R E A D C C O D E I
0017720 N S T R E A M ] ) \r \r ( 006 004 C L
0017740 : R E A D - L I N E 006 001 \r [
0017760 C L : L A M B D A ( & O P T I
0020000 O N A L ( S T R E A M * S T
0020020 A N D A R D - I N P U T * ) \r
0020040
0020060 ( E O F - E R R O R P T
0020100 ) \r
0020120 E O F - V A L U E
0020140 R E C U R S I V E - P ) 006 003 006 001
0020160
0020200 006 003 ( * b v m % : " 1
0020220 3 - O c t - 8 6 1 5 : 4 4 " )
0020240 006 001 006 003 006 001 \r
0020260
*
0020320 006 003 ( * ; ;
0020340 \r 006 001 006 003 "
0020360 R e t u r n s a l i n e o
0020400 f t e x t r e a d f r o m
0020420 t h e S T R E A M a s a
0020440 s t r i n g , d i s c a r d
0020460 i n g t h e n e w l i n e
0020500 c h a r a c t e r . " ) 006 001 \r
0020520 ( 006 002 D E C L A
0020540 R E 006 001 ( I G N O R E R E C
0020560 U R S I V E - P ) ) \r
0020600 ( L E T ( ( R E S U L
0020620 T ( R S T R I N G S T R E A
0020640 M R E A D - L I N E - R D T B
0020660 L ) ) ) \r
0020700 ( 006 002 i f 006 001 ( \ E O F
0020720 P S T R E A M ) \r
0020740 006 002 t h
0020760 e n 006 001 ( 006 002 i f 006 001 ( E Q
0021000 ( N C H A R S R E S U L T )
0021020 \r
0021040
0021060 0 ) \r
0021100 006 002
0021120 t h e n 006 001 006 003 006 001
0021140 006 003 (
0021160 * ; \r 006 001
0021200
*
0021240 006 003 " e o f
0021260 b e f o r e a n y t h i n g
0021300 r e a d , s o o b s e r v e
0021320 E O F - E R R O R P " ) 006 001 \r
0021340
*
0021400 ( 006 002 i f 006 001 E O F - E R R O
0021420 R P \r
0021440
0021460 006 002 t h e n 006 001
0021500 ( \ E O F . A C T I O N S T R
0021520 E A M ) \r
0021540
0021560 006 002 e l s e 006 001
0021600 E O F - V A L U E ) \r
0021620
0021640 006 002 e l s e 006 001 ( C L
0021660 : V A L U E S R E S U L T T
0021700 ) ) \r
0021720 006 002 e l s e 006 001 006 003 006 001
0021740
*
0022000 006 003 ( * ; "
0022020 c o n s u m e t h e e o l "
0022040 ) 006 001 \r
0022060 ( R E A D C C
0022100 O D E S T R E A M ) \r
0022120
0022140 ( C L : V A L U E S R E S U
0022160 L T N I L ] ) \r \r ( 006 004 C L :
0022200 R E A D - C H A R 006 001 \r [ C
0022220 L : L A M B D A ( & O P T I O
0022240 N A L ( S T R E A M * S T A
0022260 N D A R D - I N P U T * ) \r
0022300
0022320 ( E O F - E R R O R P T )
0022340 \r
0022360 E O F - V A L U E R
0022400 E C U R S I V E - P ) 006 003 006 001
0022420
0022440 006 003 ( * b v m % : " 1 3
0022460 - O c t - 8 6 1 5 : 4 4 " ) 006
0022500 001 006 003 006 001 \r
0022520
*
0022560 006 003 ( * ; ;
0022600 \r 006 001
0022620
*
0022660 006 003 " I n p u t s a
0022700 c h a r a c t e r f r o m
0022720 S T R E A M a n d r e t u r
0022740 n s i t . " ) 006 001 \r
0022760 ( 006 002 D E C L A R E 006 001
0023000 ( I G N O R E R E C U R S I
0023020 V E - P ) ) \r
0023040 ( L E T [ ( S T R E A M ( \
0023060 G E T S T R E A M S T R E A M
0023100 ' I N P U T ] \r
0023120 ( C L : I F ( A
0023140 N D ( N O T E O F - E R R O
0023160 R P ) \r
0023200 ( \
0023220 E O F P S T R E A M ) ) \r
0023240
0023260 E O F - V A L U E \r
0023300
0023320 ( C L : C O D E - C H A R
0023340 ( R E A D C C O D E S T R E A
0023360 M ] ) \r \r ( 006 004 C L : U N R E A
0023400 D - C H A R 006 001 \r ( C L : L
0023420 A M B D A ( C H A R A C T E R
0023440 & O P T I O N A L ( I N P U
0023460 T - S T R E A M * S T A N D A
0023500 R D - I N P U T * ) ) 006 003 006 001 \r
0023520
*
0023600 006 003 (
0023620 * b v m % : " 1 3 - O c t -
0023640 8 6 1 5 : 4 4 " ) 006 001 006 003 006 001
0023660 \r
0023700
*
0023740 006 003 ( * ; ; " P u t s
0023760 t h e C H A R A C T E R b
0024000 a c k o n t h e f r o n t
0024020 o f t h e i n p u t S T
0024040 R E A M . A c c o r d i n g
0024060 t o t h e m a n u a l ,
0024100 ` O n e m a y a p p l y U
0024120 N R E A D - C H A R o n l y
0024140 t o t h e c h a r a c t e r
0024160 m o s t r e c e n t l y r
0024200 e a d f r o m I N P U T - S
0024220 T R E A M . ' " ) 006 001 \r
0024240 ( \ B A C K C H A R
0024260 ( \ G E T S T R E A M I N P U
0024300 T - S T R E A M ' I N P U T )
0024320 ) \r N I L ) )
0024340 \r \r ( 006 004 C L : P E E K - C H A
0024360 R 006 001 \r [ C L : L A M B D A
0024400 ( & O P T I O N A L ( P E E
0024420 K - T Y P E N I L ) \r
0024440
0024460 ( S T R E A M * S T A N D A R
0024500 D - I N P U T * ) \r
0024520 ( E
0024540 O F - E R R O R P T ) \r
0024560
0024600 E O F - V A L U E R E C U R
0024620 S I V E - P ) 006 003 006 001
0024640 006 003
0024660 ( * b v m % : " 1 3 - O c t
0024700 - 8 6 1 5 : 4 5 " ) 006 001 006 003 006
0024720 001 \r
0024740
*
0025000 006 003 ( * ; ; \r 006 001
0025020
0025040 006 003 " P e e k
0025060 s a t t h e n e x t c h
0025100 a r a c t e r i n t h e i
0025120 n p u t S t r e a m . S e
0025140 e m a n u a l f o r d e t
0025160 a i l s . " ) 006 001 \r
0025200 ( 006 002 D E C L A R E 006 001
0025220 ( I G N O R E R E C U R S I V
0025240 E - P ) ) \r (
0025260 L E T ( ( S T R E A M ( \ G
0025300 E T S T R E A M S T R E A M
0025320 ' I N P U T ) ) \r
0025340 C L : C H A R )
0025360 \r (
0025400 S E L E C T Q P E E K - T Y P
0025420 E \r
0025440 ( N I L 006 003 006 001
0025460
*
0025520 006 003 ( * ; " s t a n d
0025540 a r d c a s e - - r e t u r n
0025560 n e x t c h a r " ) 006 001 \r
0025600
0025620 ( 006 002 i f 006 001 ( S
0025640 E T Q C L : C H A R ( \ P E
0025660 E K C C O D E S T R E A M (
0025700 N U L L E O F - E R R O R P )
0025720 ) ) \r
0025740 006 002
0025760 t h e n 006 001 ( C L : C O D E -
0026000 C H A R C L : C H A R ) \r
0026020
0026040 006 002 e l s e 006 001
0026060 E O F - V A L U E ) ) \r
0026100 ( T
0026120 006 003 006 001
0026140
0026160 006 003 (
0026200 * ; " s k i p w h i t e s
0026220 p a c e b e f o r e p e e k
0026240 i n g " ) 006 001 \r
0026260 ( 006 002
0026300 i f 006 001 ( S E T Q C L : C H
0026320 A R ( S K I P S E P R C O D E
0026340 S S T R E A M ) ) \r
0026360
0026400 006 002 t h e n 006 001 ( C L
0026420 : C O D E - C H A R C L : C H
0026440 A R ) \r
0026460 006 002 e l s
0026500 e i f 006 001 E O F - E R R O R P
0026520 \r
0026540 006 002 t h e n
0026560 006 001 ( \ E O F . A C T I O N
0026600 S T R E A M ) \r
0026620 006
0026640 002 e l s e 006 001 E O F - V A L U
0026660 E ) ) \r
0026700 ( 006 002 i f 006 001 ( C
0026720 L : C H A R A C T E R P P E E
0026740 K - T Y P E ) \r
0026760 006 002
0027000 t h e n 006 001 ( L E T ( ( D E
0027020 S I R E D C H A R ( C L : C H
0027040 A R - C O D E P E E K - T Y P
0027060 E ) ) \r
0027100
0027120 ( N O E R R O R ( N
0027140 U L L E O F - E R R O R P ) )
0027160 ) \r
0027200
0027220 ( 006 002 u n t i l 006 001 ( E Q
0027240 ( S E T Q C L : C H A R (
0027260 \ P E E K C C O D E S T R E A
0027300 M N O E R R O R ) ) \r
0027320
*
0027360 D E S I R E D C H
0027400 A R ) 006 002 d o 006 001 ( 006 002 i f
0027420 006 001 ( N U L L C L : C H A R
0027440 ) \r
0027460
*
0027540 006 002 t h e n 006 001 ( R E T U R
0027560 N E O F - V A L U E ) ) \r
0027600
*
0027660 ( R E A D C C
0027700 O D E S T R E A M ) \r
0027720
0027740 006
0027760 002 f i n a l l y 006 001 ( R E T U
0030000 R N P E E K - T Y P E ) ) ) \r
0030020
0030040 006 002 e l s e 006 001 ( \ I
0030060 L L E G A L . A R G P E E K -
0030100 T Y P E ] ) \r \r ( 006 004 C L : L I
0030120 S T E N 006 001 \r [ C L : L A M
0030140 B D A ( & O P T I O N A L (
0030160 S T R E A M * S T A N D A R D
0030200 - I N P U T * ) ) 006 003 006 001
0030220 006 003 ( * b v m
0030240 % : " 1 3 - O c t - 8 6 1 5
0030260 : 4 5 " ) 006 001 006 003 006 001 \r
0030300
*
0030340 006 003
0030360 ( * ; ; \r 006 001
0030400
*
0030440 006 003 " R e t u r n s T i
0030460 f a c h a r a c t e r i s
0030500 a v a i l a b l e o n t h
0030520 e g i v e n S T R E A M "
0030540 ) 006 001 \r ( R E
0030560 A D P ( \ G E T S T R E A M
0030600 S T R E A M ' I N P U T ] ) \r
0030620 \r ( 006 004 C L : R E A D - C H A R
0030640 - N O - H A N G 006 001 \r ( C L
0030660 : L A M B D A ( & O P T I O N
0030700 A L ( S T R E A M * S T A N
0030720 D A R D - I N P U T * ) \r
0030740
0030760 ( E O F - E R R O R P T ) \r
0031000
0031020 E O F - V A L U E R E
0031040 C U R S I V E - P ) 006 003 006 001
0031060
0031100 006 003 ( * b v m % : " 1 3 -
0031120 O c t - 8 6 1 5 : 4 6 " ) 006 001
0031140 006 003 006 001 \r
0031160
*
0031220 006 003 ( * ; ; \r
0031240 006 001
0031260 006
0031300 003 " R e t u r n s t h e n e
0031320 x t c h a r a c t e r f r o
0031340 m t h e S T R E A M i f
0031360 o n e i s a v a i l i b l e
0031400 , o r N I L " ) 006 001 \r
0031420 ( 006 002 D E C L A R E
0031440 006 001 ( I G N O R E R E C U R
0031460 S I V E - P ) ) \r
0031500 ( C L : I F ( 006 002 C L : L
0031520 I S T E N 006 001 S T R E A M ) \r
0031540
0031560 ( 006 002 C L : R E A D - C H A R 006
0031600 001 S T R E A M E O F - E R R
0031620 O R P E O F - V A L U E ) \r
0031640 N
0031660 I L ) ) ) \r \r ( 006 004 C L : C L E
0031700 A R - I N P U T 006 001 \r [ C L
0031720 : L A M B D A ( & O P T I O N
0031740 A L ( S T R E A M * S T A N
0031760 D A R D - I N P U T * ) ) 006 003 006
0032000 001 006 003 ( *
0032020 b v m % : " 1 3 - O c t - 8
0032040 6 1 5 : 4 6 " ) 006 001 006 003 006 001 \r
0032060
*
0032140 006 003 ( * ; ; \r 006 001
0032160
*
0032220 006 003 " C l
0032240 e a r s a n y b u f f e r e
0032260 d i n p u t a s s o c i a t
0032300 e d w i t h t h e S t r e
0032320 a m . " ) 006 001 \r
0032340 ( C L E A R B U F ( \ G E T
0032360 S T R E A M S T R E A M ' I
0032400 N P U T ] ) \r \r ( 006 004 C L : R E
0032420 A D - F R O M - S T R I N G 006 001
0032440 \r [ C L : L A M B D A ( S
0032460 T R I N G & O P T I O N A L
0032500 E O F - E R R O R - P E O F -
0032520 V A L U E & K E Y S T A R T
0032540 E N D P R E S E R V E - W H
0032560 I T E S P A C E ) 006 003 006 001 \r
0032600
*
0032660 006 003 ( *
0032700 b v m % : " 1 3 - O c t - 8 6
0032720 1 5 : 4 8 " ) 006 001 \r
0032740 ( L E T [ ( S T R E A
0032760 M ( O P E N S T R I N G S T R
0033000 E A M ( 006 002 i f 006 001 E N D \r
0033020
*
0033060 006 002 t
0033100 h e n 006 001 ( S U B S T R I N G
0033120 S T R I N G 1 E N D ) \r
0033140
*
0033200 006 002 e l s e
0033220 006 001 ( M K S T R I N G S T R
0033240 I N G ] \r
0033260 ( 006 002 i f 006 001 S T A R T
0033300 \r
0033320 006 002 t h e n 006 001 ( S E T
0033340 F I L E P T R S T R E A M S
0033360 T A R T ) ) \r
0033400 ( C L : V A L U E S
0033420 ( C L : I F P R E S E R V E -
0033440 W H I T E S P A C E ( 006 002 C L
0033460 : R E A D - P R E S E R V I N G
0033500 - W H I T E S P A C E 006 001 S T
0033520 R E A M E O F - E R R O R - P
0033540 \r
0033560
*
0033620 E O F
0033640 - V A L U E ) \r
0033660
0033700 ( 006 002 C L : R E
0033720 A D 006 001 S T R E A M E O F -
0033740 E R R O R - P E O F - V A L U
0033760 E ) ) \r
0034000 ( \ G E T F I
0034020 L E P T R S T R E A M ] ) \r \r
0034040 ( 006 004 C L : R E A D - B Y T E 006
0034060 001 \r [ C L : L A M B D A (
0034100 B I N A R Y - I N P U T - S T R
0034120 E A M & O P T I O N A L ( E
0034140 O F - E R R O R P T ) \r
0034160
0034200 E O F - V A L U E ) 006 003 006 001
0034220
0034240 006 003
0034260 ( * b v m % : " 1 3 - O c t
0034300 - 8 6 1 5 : 4 9 " ) 006 001 006 003 006
0034320 001 \r
0034340
*
0034400 006 003 ( * ; ; \r 006 001
0034420
*
0034500 006 003 " R e t u r n s t h e
0034520 n e x t b y t e o f t h e
0034540 B I N A R Y - I N P U T - S T
0034560 R E A M " ) 006 001 \r
0034600 ( L E T [ ( S T R E A M
0034620 ( \ G E T S T R E A M B I N A
0034640 R Y - I N P U T - S T R E A M
0034660 ' I N P U T ] \r
0034700 ( C L : I F ( A N
0034720 D ( N O T E O F - E R R O R
0034740 P ) \r
0034760 ( \ E
0035000 O F P S T R E A M ) ) \r
0035020
0035040 E O F - V A L U E \r
0035060
0035100 ( \ B I N S T R E A M ] ) \r
0035120 \r ( 006 004 C L : W R I T E - B Y T
0035140 E 006 001 \r ( C L : L A M B D A
0035160 ( C L : I N T E G E R B I N
0035200 A R Y - O U T P U T - S T R E A
0035220 M ) 006 003 006 001
0035240 006 003 ( * b v m % :
0035260 " 1 3 - O c t - 8 6 1 5 : 4 9
0035300 " ) 006 001 006 003 006 001 \r
0035320
*
0035360 006 003 ( *
0035400 ; ; \r 006 001
0035420
*
0035460 006 003 " O u t p u t s t h
0035500 e I N T E G E R t o t h e
0035520 b i n a r y B I N A R Y - O
0035540 U T P U T - S T R E A M " ) 006 001
0035560 \r ( B O U T
0035600 B I N A R Y - O U T P U T - S T
0035620 R E A M C L : I N T E G E R )
0035640 \r C L : I N T
0035660 E G E R ) ) \r ) \r ( D E C L A R
0035700 E % : D O N T E V A L @ L O A
0035720 D D O C O P Y \r ( M O V D ?
0035740 ' N I L L ' C M L T R A N S
0035760 L A T E ) \r ) \r \r \r \r 006 004 ( *
0036000 ; " m u s t t u r n o f f
0036020 p a c k e d v e r s i o n
0036040 o f C L I S P i n f i x " )
0036060 006 001 \r \r \r ( R P A Q 006 002 C L I
0036100 S P C H A R S 006 001 ( L D I F F
0036120 E R E N C E C L I S P C H A R
0036140 S ' ( - * % : ) ) ) \r \r (
0036160 R P A Q 006 002 C L I S P C H A R
0036200 R A Y 006 001 ( M A K E B I T T A
0036220 B L E C L I S P C H A R S ) )
0036240 \r \r ( R P A Q Q 006 002 D W I M I
0036260 N M A C R O S F L G 006 001 N I L
0036300 ) \r ( C L : D E F U N 006 002 C L
0036320 - M A C R O - W R A P P E D - P
0036340 006 001 ( F O R M ) 006 003 006 001
0036360 006 003 ( *
0036400 ; ; ; \r 006 001
0036420
*
0036460 006 003 " P r e d i c a t
0036500 e t h a t c h e c k s f o
0036520 r f o r m s b u i l t b y
0036540 C L - W R A P - M A C R O " )
0036560 006 001 \r ( A N D ( C L : C
0036600 O N S P F O R M ) \r
0036620 ( E Q ( C A R F O R M
0036640 ) \r ' C
0036660 L : L A M B D A ) \r
0036700 ( C L : C O N S P ( C D R
0036720 F O R M ) ) \r
0036740 ( C L : E Q U A L ( C A D R
0036760 F O R M ) \r
0037000 ' ( S T R E A M R E
0037020 A D T A B L E Z ) ) \r
0037040 ( C L : C O N S P ( C
0037060 D D R F O R M ) ) \r
0037100 ( N U L L ( C D D D R
0037120 F O R M ) ) \r (
0037140 C L : C O N S P ( C A D D R
0037160 F O R M ) ) \r (
0037200 E Q ( C A A D D R F O R M )
0037220 \r ' C L
0037240 : F U N C A L L ) ) ) \r \r ( C L
0037260 : D E F U N 006 002 C L - U N W R
0037300 A P - M A C R O 006 001 ( F O R M
0037320 ) \r \r
0037340 006 003 ( * * "
0037360 F e t c h e s C L f u n c t
0037400 i o n o u t w r a p p e d
0037420 b y C L - W R A P - M A C R O
0037440 " ) 006 001 \r ( C A D R ( C A D
0037460 R ( C A D D R F O R M ) ) )
0037500 ) \r \r ( C L : D E F U N 006 002 C
0037520 L - W R A P - M A C R O 006 001 (
0037540 F N C H A R ) 006 003 006 001
0037560 006 003 (
0037600 * ; ; ; \r 006 001
0037620
0037640 006 003 " W r a p s a f o r m
0037660 a r o u n d a C L r e a
0037700 d m a c r o t o m a k e i
0037720 t a c c e p t a b l e a s
0037740 a n I L r e a d m a c r o "
0037760 ) 006 001 \r ` ( C L : L A M B
0040000 D A ( S T R E A M R E A D T
0040020 A B L E Z ) \r
0040040 ( C L : F U N C A L L '
0040060 , F N S T R E A M , C H A R
0040100 ) ) ) \r \r ( C L : D E F U N 006
0040120 002 I L - M A C R O - W R A P P E
0040140 D - P 006 001 ( F O R M ) 006 003 006
0040160 001 006
0040200 003 ( * ; ; ; \r 006 001
0040220
*
0040260 006 003 " P r e d i
0040300 c a t e t h a t c h e c k s
0040320 f o r f o r m s b u i l t
0040340 b y I L - W R A P - M A C R
0040360 O " ) 006 001 \r ( A N D ( C
0040400 L : C O N S P F O R M ) \r
0040420 ( E Q ( C A R F
0040440 O R M ) \r
0040460 ' C L : L A M B D A ) \r
0040500 ( C L : C O N S P (
0040520 C D R F O R M ) ) \r
0040540 ( E Q U A L ( C A D R
0040560 F O R M ) \r
0040600 ' ( S T R E A M C H
0040620 A R ) ) \r ( C L
0040640 : C O N S P ( S E T Q F O R
0040660 M ( C D D R F O R M ) ) ) \r
0040700 ( N U L L ( C
0040720 D R F O R M ) ) \r
0040740 ( C L : C O N S P ( S E T
0040760 Q F O R M ( C A R F O R M
0041000 ) ) ) \r ( E Q
0041020 ( C A R F O R M ) \r
0041040 ' C L : F U N C A
0041060 L L ) \r ( E Q
0041100 ( C A D D R F O R M ) \r
0041120 ' S T R E A M
0041140 ) ) ) \r \r ( C L : D E F U N 006
0041160 002 I L - U N W R A P - M A C R O
0041200 006 001 ( F O R M ) ( C A D R
0041220 ( C A D R ( C A D D R F O R
0041240 M ) ) ) ) \r \r ( C L : D E F U N
0041260 006 002 I L - W R A P - M A C R O
0041300 006 001 ( F O R M ) 006 003 006 001
0041320
0041340 006 003 ( * ; ; ; \r 006 001
0041360
0041400 006 003 " W r a p s a
0041420 f o r m a r o u n d a n I
0041440 L r e a d m a c r o t o m
0041460 a k e i t a c c e p t a b l
0041500 e a s a C L r e a d m a
0041520 c r o " ) 006 001 \r ` ( C L :
0041540 L A M B D A ( S T R E A M C
0041560 H A R ) \r
0041600 ( C L : F U N C A L L ' , F O
0041620 R M S T R E A M ) ) ) \r \r ( C
0041640 L : D E F U N 006 002 C L : P A R
0041660 S E - I N T E G E R 006 001 ( S T
0041700 R I N G & K E Y ( S T A R T
0041720 0 ) \r
0041740
0041760 ( E N D ( C L : L
0042000 E N G T H S T R I N G ) ) \r
0042020
*
0042060 ( R A D I X 1 0 ) \r
0042100
0042120 J U
0042140 N K - A L L O W E D ) \r (
0042160 P R O G ( S A B A S E O F
0042200 F S T F A T P L E N I N D
0042220 E X C H A R S T A T E M A
0042240 X D I G I T C O D E S I G N
0042260 S T A R T I N T E N D I N T
0042300 V A L U E A N S W E R ) \r
0042320 ( S E T Q S A
0042340 ( 006 002 f e t c h 006 001 ( R E A D
0042360 T A B L E P R E A D S A ) 006
0042400 002 o f 006 001 * R E A D T A B L E
0042420 * ) ) \r ( S E
0042440 T Q B A S E ( 006 002 f e t c h
0042460 006 001 ( S T R I N G P B A S E
0042500 ) 006 002 o f 006 001 S T R I N G )
0042520 ) \r ( S E T Q
0042540 L E N ( 006 002 f e t c h 006 001
0042560 ( S T R I N G P L E N G T H )
0042600 006 002 o f 006 001 S T R I N G ) )
0042620 \r ( S E T Q
0042640 O F F S T ( 006 002 f e t c h 006 001
0042660 ( S T R I N G P O F F S T )
0042700 006 002 o f 006 001 S T R I N G ) )
0042720 \r ( S E T Q
0042740 F A T P ( 006 002 f e t c h 006 001
0042760 ( S T R I N G P F A T S T R I
0043000 N G P ) 006 002 o f 006 001 S T R I
0043020 N G ) ) \r ( S
0043040 E T Q I N D E X S T A R T )
0043060 \r ( 006 002 w h i
0043100 l e 006 001 ( A N D ( < I N D
0043120 E X E N D ) \r
0043140 ( E Q
0043160 ( \ S Y N C O D E S A ( S
0043200 E T Q C H A R ( \ G E T B A
0043220 S E C H A R F A T P B A S E
0043240 ( + O F F S T I N D E X )
0043260 ) ) ) \r
0043300 S E P
0043320 R C H A R . R C ) ) 006 002 d o 006
0043340 001 ( S E T Q I N D E X ( C
0043360 L : 1 + I N D E X ) ) ) \r
0043400 ( C L : I F ( >
0043420 I N D E X E N D ) \r
0043440 ( C L :
0043460 I F J U N K - A L L O W E D
0043500 ( C L : R E T U R N - F R O M
0043520 C L : P A R S E - I N T E G E R
0043540 ( C L : V A L U E S N I L
0043560 E N D ) ) \r
0043600 ( C L
0043620 : E R R O R " N o n o n - w
0043640 h i t e s p a c e c h a r a c
0043660 t e r s i n n u m b e r . "
0043700 ) ) ) \r ( S E
0043720 T Q S T A T E ' I N I T ) \r
0043740 ( S E T Q M
0043760 A X D I G I T C O D E ( + (
0044000 C H A R C O D E 0 ) \r
0044020
0044040 R A D I X
0044060 - 1 ) ) \r (
0044100 006 002 w h i l e 006 001 ( < I N D
0044120 E X E N D ) 006 002 d o 006 001 (
0044140 S E T Q S T A T E ( O R (
0044160 S E L C H A R Q ( S E T Q C
0044200 H A R ( \ G E T B A S E C H A
0044220 R F A T P B A S E \r
0044240
*
0044340 ( + O F F S
0044360 T I N D E X ) ) ) \r
0044400
*
0044460 ( - ( A N D ( N O T S I
0044500 G N ) \r
0044520
*
0044600 ( S E L E C T Q S T A T E
0044620 \r
0044640
*
0044720 ( I N I T ( S E T Q S
0044740 I G N ' - ) \r
0044760
*
0045060 S T A T E ) \r
0045100
*
0045160 N I L ) ) ) \r
0045200
*
0045260 ( + ( A N D ( N
0045300 O T S I G N ) \r
0045320
*
0045400 ( S E L E C T Q
0045420 S T A T E \r
0045440
*
0045520 ( I N I T ( S
0045540 E T Q S I G N ' + ) \r
0045560
*
0045660 S T A T E ) \r
0045700
*
0045760 N I
0046000 L ) ) ) \r
0046020
*
0046060 N I L ) \r
0046100
*
0046160 ( C O N D \r
0046200
*
0046240 ( ( A N D
0046260 ( I G E Q C H A R ( C H A
0046300 R C O D E 0 ) ) \r
0046320
*
0046400 ( I L E Q C H A R M
0046420 A X D I G I T C O D E ) ) 006 003 006
0046440 001 \r
0046460
*
0046520 006
0046540 003 ( * ; " d i g i t " ) 006 001
0046560 \r
0046600
*
0046640 ( S E L E C T Q S
0046660 T A T E \r
0046700
*
0046740 ( I
0046760 N I T ( S E T Q S T A R T I
0047000 N T I N D E X ) \r
0047020
*
0047100 ' I N I T D I
0047120 G I T ) \r
0047140
*
0047200 ( I
0047220 N I T D I G I T ' I N I T D I
0047240 G I T ) \r
0047260
*
0047320 N I
0047340 L ) ) ) \r
0047360
*
0047420 ( R E T U R N ) ) )
0047440 \r
0047460
0047500 ( S E T Q I N D E X ( C
0047520 L : 1 + I N D E X ) ) ) \r
0047540 ( O R E N D I N
0047560 T ( S E T Q E N D I N T I
0047600 N D E X ) ) \r
0047620 ( 006 002 w h i l e 006 001 ( A N D
0047640 ( < I N D E X E N D ) \r
0047660
0047700 ( E Q ( \ S Y N C O D E
0047720 S A ( S E T Q C H A R (
0047740 \ G E T B A S E C H A R F A T
0047760 P B A S E ( + O F F S T
0050000 I N D E X ) ) ) ) \r
0050020
0050040 S E P R C H A R . R C ) )
0050060 006 002 d o 006 001 ( S E T Q I N
0050100 D E X ( C L : 1 + I N D E X
0050120 ) ) ) \r ( S E
0050140 T Q A N S W E R ( C O N D \r
0050160
0050200 ( ( A N D (
0050220 E Q S T A T E ' I N I T D I
0050240 G I T ) \r
0050260
0050300 ( = I N D E X E N D
0050320 ) ) \r
0050340 ( \ M
0050360 K I N T E G E R B A S E S T
0050400 A R T I N T E N D I N T ( E
0050420 Q S I G N ' - ) \r
0050440
0050460 R A D I
0050500 X F A T P ) ) \r
0050520
0050540 ( J U N K - A L L O W E D
0050560 N I L ) \r
0050600 ( (
0050620 E Q S T A T E ' I N I T ) \r
0050640
0050660 ( C L : E R
0050700 R O R " T h e r e a r e n '
0050720 t a n y d i g i t s i n
0050740 t h i s i n t e g e r s t r
0050760 i n g : ~ S . " S T R I N G
0051000 ) ) \r
0051020 ( T (
0051040 C L : E R R O R " T h e r e
0051060 I s j u n k i n t h i s
0051100 i n t e g e r s t r i n g :
0051120 ~ S . " S T R I N G ) ) ) ) \r
0051140 ( R E T U R N
0051160 ( C L : V A L U E S A N S W
0051200 E R I N D E X ) ) ) ) \r \r \r \r
0051220 \r 006 004 ( * ; " C o m m o n
0051240 L i s p r e a d t a b l e i
0051260 n t e r f a c e f u n c t i o
0051300 n s a n d s u p p l i e d
0051320 h a s h m a c r o f u n c t
0051340 i o n s " ) 006 001 \r \r ( C L : D E
0051360 F U N 006 002 C L : S E T - S Y N
0051400 T A X - F R O M - C H A R 006 001
0051420 ( T O - C H A R F R O M - C H
0051440 A R & O P T I O N A L ( T O
0051460 - R E A D T A B L E * R E A D
0051500 T A B L E * ) \r
0051520
*
0051560 ( F R O M - R E A D T A B L E
0051600 C M L R D T B L ) ) ( S E T
0051620 S Y N T A X ( C L : C H A R -
0051640 C O D E T O - C H A R ) \r
0051660
*
0051760 ( G E T S Y N
0052000 T A X ( C L : C H A R - C O D
0052020 E \r
0052040
*
0052140 F R O M - C H
0052160 A R ) \r
0052200
*
0052300 F R O M - R E A D T
0052320 A B L E ) \r
0052340
*
0052440 T O - R E A D T A B L E ) ) \r
0052460 \r ( C L : D E F U N 006 002 D O -
0052500 D I S P A T C H - M A C R O 006 001
0052520 ( C H A R S T R E A M R D
0052540 T B L ) \r ( L E T ( ( *
0052560 R E A D T A B L E * R D T B L
0052600 ) \r ( D I S P
0052620 - T A B L E ( C D R ( A S S
0052640 O C C H A R ( 006 002 f e t c h
0052660 006 001 ( R E A D T A B L E P D
0052700 I S P A T C H M A C R O D E F S
0052720 ) 006 002 o f 006 001 R D T B L ) )
0052740 ) ) \r I N D E
0052760 X N E X T C H A R ) \r
0053000 ( C O N D \r
0053020 ( ( N O T D I S P -
0053040 T A B L E ) \r
0053060 ( C L : E R R O R " ~ S
0053100 i s n o t a d i s p a t
0053120 c h m a c r o c h a r a c t
0053140 e r " C H A R ) ) \r
0053160 ( T 006 003 006 001
0053200
*
0053240 006 003 ( * ; " D I S
0053260 P A T C H M A C R O D E F S i
0053300 s a l i s t o f A - l i
0053320 s t s " ) 006 001 \r
0053340 ( 006 002 w h i l e 006 001
0053360 ( D I G I T C H A R P ( S E
0053400 T Q N E X T C H A R ( R E A
0053420 D C C O D E S T R E A M R D
0053440 T B L ) ) ) \r
0053460 006 002 d o 006 001 006
0053500 003 006 001
0053520
0053540 006 003 ( *
0053560 ; " r e a d t h e o p t
0053600 i o n a l n u m e r i c a r
0053620 g " ) 006 001 \r
0053640 ( S E T Q
0053660 I N D E X ( + ( T I M E S
0053700 ( O R I N D E X 0 ) \r
0053720
*
0053760 1 0 ) \r
0054000
0054020 ( -
0054040 N E X T C H A R ( C H A R C
0054060 O D E 0 ) ) ) ) ) \r
0054100 ( L E T * (
0054120 ( D I S P - C H A R A C T E R
0054140 ( C L : C H A R - U P C A S E
0054160 ( C L : C O D E - C H A R N E
0054200 X T C H A R ) ) ) \r
0054220 (
0054240 D I S P - F U N C T I O N ( C
0054260 D R ( A S S O C D I S P - C
0054300 H A R A C T E R D I S P - T A
0054320 B L E ) ) ) ) \r
0054340 ( 006 002 i
0054360 f 006 001 D I S P - F U N C T I O
0054400 N \r
0054420 006 002 t h e n
0054440 006 001 ( C L : F U N C A L L D
0054460 I S P - F U N C T I O N S T R
0054500 E A M D I S P - C H A R A C T
0054520 E R I N D E X ) \r
0054540
0054560 006 002 e l s e 006 001 ( C L : E R R
0054600 O R \r
0054620
0054640 " U n d e f i n e d
0054660 d i s p a t c h c h a r a c
0054700 t e r ~ S f o r d i s p a
0054720 t c h m a c r o c h a r a c
0054740 t e r ~ S " \r
0054760
0055000 D I S P -
0055020 C H A R A C T E R C H A R ) )
0055040 ) ) ) ) ) \r \r ( C L : D E F U N
0055060 006 002 F I N D - M A C R O - F U
0055100 N C T I O N 006 001 ( F O R M )
0055120 ( C O N D \r
0055140
0055160 ( (
0055200 C L - M A C R O - W R A P P E D
0055220 - P F O R M ) \r
0055240
*
0055300 ( C L - U N W R A P - M A C
0055320 R O F O R M ) ) \r
0055340
*
0055400 ( ( C L : F U N C T I O N P
0055420 F O R M ) \r
0055440
*
0055500 ( I L - W R A P - M A C R O F
0055520 O R M ) ) ) ) \r \r ( C L : D E F
0055540 U N 006 002 C L : G E T - D I S P
0055560 A T C H - M A C R O - C H A R A
0055600 C T E R 006 001 ( D I S P - C H A
0055620 R S U B - C H A R & O P T I
0055640 O N A L ( R E A D T A B L E
0055660 * R E A D T A B L E * ) ) \r
0055700 ( C D R ( A S S O C S U B
0055720 - C H A R ( C D R ( A S S O
0055740 C D I S P - C H A R ( 006 002 f
0055760 e t c h 006 001 ( R E A D T A B L
0056000 E P D I S P A T C H M A C R O
0056020 D E F S ) 006 002 o f 006 001 R E A
0056040 D T A B L E ) ) ) ) ) ) \r \r ( C
0056060 L : D E F U N 006 002 C L : G E T
0056100 - M A C R O - C H A R A C T E R
0056120 006 001 ( C H A R & O P T I O N
0056140 A L ( R E A D T A B L E * R
0056160 E A D T A B L E * ) ) 006 003 006 001
0056200 \r
0056220
*
0056260 006 003 ( * ; ; ; " i n s
0056300 u r e s e n t r y i s C o
0056320 m m o n L i s p f o r m -
0056340 ( M A C R O { F I R S T , A
0056360 L W A Y S } ( L A M B D A (
0056400 S T R E A M R E A D T A B L E
0056420 ) ( F U N C A L L < f u n c
0056440 t i o n > ' < c h a r > S T
0056460 R E A M ) ) ) ) " ) 006 001 \r
0056500 ( L E T ( ( T A B E N T R Y
0056520 ( G E T S Y N T A X ( C L : C
0056540 H A R - C O D E C H A R ) \r
0056560
0056600 R E A D T A B
0056620 L E ) ) ) \r ( A
0056640 N D ( C L : C O N S P T A B
0056660 E N T R Y ) \r
0056700 ( E Q ( C A R T A B
0056720 E N T R Y ) \r
0056740 ' M A C R O ) \r
0056760 ( C L
0057000 : C O N S P ( C D R T A B E
0057020 N T R Y ) ) \r
0057040 ( F M E M B ( C A D R
0057060 T A B E N T R Y ) \r
0057100 '
0057120 ( 006 002 A L W A Y S 006 001 006 002 F I
0057140 R S T 006 001 ) ) \r
0057160 ( C L : C O N S P (
0057200 S E T Q T A B E N T R Y ( C
0057220 D D R T A B E N T R Y ) ) ) \r
0057240 ( N U
0057260 L L ( C D R T A B E N T R Y
0057300 ) ) \r
0057320 ( C L : V A L U E S ( F I N D
0057340 - M A C R O - F U N C T I O N
0057360 ( C A R T A B E N T R Y ) ) \r
0057400
0057420 ( N E Q ( C A D R T
0057440 A B E N T R Y ) \r
0057460
0057500 ' A L W A Y S ) ) ) ) ) \r \r
0057520 ( C L : D E F U N 006 002 H A S H
0057540 - L E F T P A R E N 006 001 ( S T
0057560 R E A M C H A R I N D E X )
0057600 006 003 006 001
0057620 006 003 ( * j r b % :
0057640 " 2 8 - J u l - 8 6 2 1 : 5 0
0057660 " ) 006 001 \r ( L E T ( ( C
0057700 O N T E N T S ( C L : R E A D
0057720 - D E L I M I T E D - L I S T
0057740 # \ ) S T R E A M T ) ) ) \r
0057760 ( C O N D \r
0060000 ( I N D E X
0060020 ( L E T ( ( V E C ( C L : M
0060040 A K E - A R R A Y I N D E X
0060060 : I N I T I A L - E L E M E N T
0060100 ( C A R ( L A S T C O N T
0060120 E N T S ) ) ) ) ) \r
0060140
0060160 ( C L : D O T I M E S ( I
0060200 ( L E N G T H C O N T E N T S
0060220 ) ) \r
0060240
0060260 ( C L : S E T F ( C L : A R
0060300 E F V E C I ) \r
0060320
0060340 (
0060360 006 002 P O P 006 001 C O N T E N T S
0060400 ) ) ) \r
0060420 V E C ) )
0060440 \r ( T (
0060460 C L : M A K E - A R R A Y ( L
0060500 E N G T H C O N T E N T S ) \r
0060520
0060540 : I N I T I A L - C O
0060560 N T E N T S C O N T E N T S )
0060600 ) ) ) ) \r \r ( C L : D E F U N
0060620 006 002 H A S H - A 006 001 ( S T R E
0060640 A M C H A R P A R A M ) (
0060660 L E T ( ( C O N T E N T S (
0060700 C L : R E A D S T R E A M ) )
0060720 ) \r
0060740
0060760 ( C L :
0061000 M A K E - A R R A Y ( E S T I
0061020 M A T E - D I M E N S I O N A L
0061040 I T Y P A R A M C O N T E N
0061060 T S ) \r
0061100
*
0061140 : I N I T I A L - C O
0061160 N T E N T S C O N T E N T S )
0061200 ) ) \r \r ( C L : D E F U N 006 002
0061220 H A S H - B 006 001 ( S T R E A M
0061240 C H A R P A R A M ) ( H A
0061260 S H - N O - P A R A M E T E R -
0061300 E R R O R C H A R P A R A M
0061320 ) \r
0061340
0061360 ( R E A D N U M B
0061400 E R I N B A S E S T R E A M
0061420 2 ) ) \r \r ( C L : D E F U N 006
0061440 002 H A S H - B A C K S L A S H 006
0061460 001 ( S T R E A M C H A R P
0061500 A R A M ) ( H A S H - N O - P
0061520 A R A M E T E R - E R R O R C
0061540 H A R P A R A M ) \r
0061560
*
0061620 ( C H A R A C T
0061640 E R . R E A D S T R E A M ) )
0061660 \r \r ( C L : D E F U N 006 002 H A
0061700 S H - C 006 001 ( S T R E A M C
0061720 H A R P A R A M ) ( H A S H
0061740 - N O - P A R A M E T E R - E R
0061760 R O R C H A R P A R A M ) \r
0062000
*
0062040 ( D E S T R U C T U R
0062060 I N G - B I N D ( N U M D E
0062100 N ) \r
0062120
0062140 (
0062160 R E A D S T R E A M ) \r
0062200
*
0062240 ( C L : C O M
0062260 P L E X N U M D E N ) ) ) \r
0062300 \r ( C L : D E F U N 006 002 H A S
0062320 H - C O L O N 006 001 ( S T R E A
0062340 M C H A R P A R A M ) ( H
0062360 A S H - N O - P A R A M E T E R
0062400 - E R R O R C H A R P A R A
0062420 M ) 006 003 006 001 \r
0062440
*
0062500 006 003 ( * ;
0062520 \r 006 001
0062540
*
0062600 006 003 " U n i n t e r n e d
0062620 s y m b o l . T h i s d e
0062640 f i n i t i o n m a y y e t
0062660 b e w r o n g " ) 006 001 \r
0062700
*
0062740 ( C L : M A K E -
0062760 S Y M B O L ( R E A D - E X T
0063000 E N D E D - T O K E N S T R E
0063020 A M * R E A D T A B L E * T
0063040 ) ) ) \r \r ( C L : D E F U N 006
0063060 002 H A S H - C O M M A 006 001 ( S
0063100 T R E A M C H A R P A R A M
0063120 ) ( H A S H - N O - P A R A M
0063140 E T E R - E R R O R C H A R
0063160 P A R A M ) \r
0063200
*
0063240 ( L I S T ' L O A D T I M E C
0063260 O N S T A N T ( R E A D S T
0063300 R E A M ) ) ) \r \r ( C L : D E F
0063320 U N 006 002 H A S H - D O T 006 001
0063340 ( S T R E A M C H A R P A R
0063360 A M ) ( H A S H - N O - P A R
0063400 A M E T E R - E R R O R C H A
0063420 R P A R A M ) \r
0063440
*
0063500 ( C O N D \r
0063520
*
0063560 ( ( 006 002 f e t c h 006 001 ( R E A
0063600 D T A B L E P C O M M O N L I
0063620 S P ) 006 002 o f 006 001 * R E A D
0063640 T A B L E * ) \r
0063660
*
0063720 ( C L : E V A L ( R E A
0063740 D S T R E A M ) ) ) \r
0063760
*
0064020 ( T ( E V A L (
0064040 R E A D S T R E A M ) ) ) ) )
0064060 \r \r ( C L : D E F U N 006 002 H A
0064100 S H - D O U B L E Q U O T E 006 001
0064120 ( S T R E A M C H A R P A
0064140 R A M ) ( H A S H - N O - P A
0064160 R A M E T E R - E R R O R C H
0064200 A R P A R A M ) \r
0064220
*
0064260 ( R S T R I N
0064300 G S T R E A M * R E A D T A
0064320 B L E * ' S K I P ) ) \r \r ( C
0064340 L : D E F U N 006 002 H A S H - I
0064360 L L E G A L - H A S H - C H A R
0064400 006 001 ( S T R E A M C H A R
0064420 P A R A M ) ( C L : E R R O R
0064440 " I l l e g a l h a s h m
0064460 a c r o c h a r a c t e r ~
0064500 S " C H A R \r
0064520
*
0064600 ) ) \r \r ( C L : D E F U
0064620 N 006 002 H A S H - L E F T A N G
0064640 L E 006 001 ( S T R E A M C H A
0064660 R P A R A M ) ( H A S H - N
0064700 O - P A R A M E T E R - E R R O
0064720 R C H A R P A R A M ) \r
0064740
*
0065000 ( C L : E
0065020 R R O R " U n r e a d a b l e
0065040 o b j e c t # < ~ A > " (
0065060 C L : R E A D S T R E A M ) )
0065100 ) \r \r ( C L : D E F U N 006 002 H
0065120 A S H - M I N U S 006 001 ( S T R
0065140 E A M C H A R P A R A M )
0065160 ( H A S H - N O - P A R A M E T
0065200 E R - E R R O R C H A R P A
0065220 R A M ) \r
0065240
0065260 ( C
0065300 O N D \r
0065320
*
0065360 ( ( C M L R E A D . F E A T U R
0065400 E . P A R S E R ( L E T ( (
0065420 * P A C K A G E * \r
0065440
*
0065540 * K E
0065560 Y W O R D - P A C K A G E * ) )
0065600 \r
0065620
*
0065700 ( C L : R
0065720 E A D S T R E A M ) ) ) \r
0065740
*
0066000 ( C L : R
0066020 E A D S T R E A M ) ) ) \r
0066040
*
0066100 ( C L : V A L U E
0066120 S ) ) \r \r ( C L : D E F U N 006
0066140 002 H A S H - N O - P A R A M E T
0066160 E R - E R R O R 006 001 ( C H A R
0066200 P A R A M ) ( C L : W H E N
0066220 P A R A M ( C L : E R R O R
0066240 \r
0066260
*
0066320 " P a r a m
0066340 e t e r ~ D n o t a l l o
0066360 w e d w i t h h a s h m a
0066400 c r o ~ S " \r
0066420
*
0066500 P A
0066520 R A M C H A R ) ) ) \r \r ( C L
0066540 : D E F U N 006 002 H A S H - O 006
0066560 001 ( S T R E A M C H A R P
0066600 A R A M ) ( H A S H - N O - P
0066620 A R A M E T E R - E R R O R C
0066640 H A R P A R A M ) \r
0066660
*
0066720 ( R E A D N U M B E R I N B A S
0066740 E S T R E A M 8 ) ) \r \r ( C
0066760 L : D E F U N 006 002 H A S H - P
0067000 L U S 006 001 ( S T R E A M C H
0067020 A R P A R A M ) ( H A S H -
0067040 N O - P A R A M E T E R - E R R
0067060 O R C H A R P A R A M ) 006 003
0067100 006 001 \r
0067120
*
0067160 006 003 ( * ;
0067200 " S k i p e x p r e s s i o n
0067220 i f f e a t u r e n o t
0067240 p r e s e n t " ) 006 001 \r
0067260
*
0067320 ( C O N D \r
0067340
*
0067400 ( ( N O T ( C M L R
0067420 E A D . F E A T U R E . P A R S
0067440 E R ( L E T ( ( * P A C K A
0067460 G E * \r
0067500
*
0067600 * K E Y W O R
0067620 D - P A C K A G E * \r
0067640
*
0067760 ) ) \r
0070000
*
0070100 ( C L : R E A D S T R E A
0070120 M ) ) ) ) \r
0070140
*
0070200 ( C L : R E A D S T R E A
0070220 M ) ) ) \r
0070240
0070260 ( C L
0070300 : V A L U E S ) ) \r \r ( C L : D
0070320 E F U N 006 002 H A S H - Q U O T
0070340 E 006 001 ( S T R E A M C H A R
0070360 P A R A M ) ( H A S H - N O
0070400 - P A R A M E T E R - E R R O R
0070420 C H A R P A R A M ) \r
0070440
*
0070500 ( L I S T ' C L :
0070520 F U N C T I O N ( C L : R E A
0070540 D S T R E A M ) ) ) \r \r ( C L
0070560 : D E F U N 006 002 H A S H - R 006
0070600 001 ( S T R E A M C H A R P
0070620 A R A M ) ( C O N D \r
0070640
*
0070700 ( P A R A M ( R E A D
0070720 N U M B E R I N B A S E S T R
0070740 E A M P A R A M ) ) \r
0070760
*
0071020 ( T ( C L : E R R O R
0071040 " N o b a s e s u p p l i
0071060 e d f o r # R " ) ) ) ) \r \r
0071100 ( C L : D E F U N 006 002 H A S H
0071120 - S 006 001 ( S T R E A M C H A
0071140 R P A R A M ) ( H A S H - N
0071160 O - P A R A M E T E R - E R R O
0071200 R C H A R P A R A M ) \r
0071220
*
0071260 ( C R E A T E - S T R U C
0071300 T U R E ( R E A D S T R E A
0071320 M ) ) ) \r \r ( C L : D E F U N
0071340 006 002 H A S H - S T A R 006 001 ( S
0071360 T R E A M C H A R P A R A M
0071400 ) \r ( L E T * ( ( C O N
0071420 T E N T S ( R E A D - E X T E
0071440 N D E D - T O K E N S T R E A
0071460 M ) ) \r ( L
0071500 E N ( N C H A R S C O N T E
0071520 N T S ) ) ) \r
0071540 ( 006 002 i f 006 001 ( A N D ( E Q
0071560 L E N 0 ) \r
0071600 P A R A M \r
0071620
0071640 ( N E Q P A R A M 0 ) )
0071660 \r 006 002
0071700 t h e n 006 001 ( C L : E R R O R
0071720 " N o c o n t e n t s s p
0071740 e c i f i e d f o r b i t
0071760 v e c t o r # ~ A * " P A R
0072000 A M ) \r 006
0072020 002 e l s e i f 006 001 ( A N D P
0072040 A R A M ( > L E N P A R A
0072060 M ) ) \r
0072100 006 002 t h e n 006 001 ( C L : E R
0072120 R O R " B i t v e c t o r
0072140 c o n t e n t s l o n g e r
0072160 t h a n s p e c i f i e d l
0072200 e n g t h i n # ~ A * ~ A "
0072220 P A R A M \r
0072240
0072260 C O N T E N T S ) \r
0072300 006 002 e l s e 006 001 (
0072320 L E T ( ( B I T A R R A Y (
0072340 C L : M A K E - A R R A Y ( O
0072360 R P A R A M L E N ) \r
0072400
*
0072440 : E L E M E N T - T Y P
0072460 E \r
0072500
0072520 ' C L : B I T
0072540 : I N I T I A L - E L E M E N
0072560 T \r
0072600
0072620 ( 006 002 i f 006 001
0072640 P A R A M \r
0072660
*
0072720 006 002 t h e n 006 001 ( S E L C
0072740 H A R Q ( N T H C H A R C O D
0072760 E C O N T E N T S - 1 ) \r
0073000
*
0073060 ( 0 0 ) \r
0073100
*
0073140 (
0073160 1 1 ) \r
0073200
*
0073240 ( C L : E R
0073260 R O R " I l l e g a l b i t
0073300 v e c t o r e l e m e n t
0073320 i n # ~ A * ~ A " \r
0073340
*
0073420 P A R A M C O
0073440 N T E N T S ) ) \r
0073460
*
0073520 006 002 e l s e 006 001 0 ) ) ) )
0073540 \r
0073560 ( C L : D O T I M E
0073600 S ( I L E N ) \r
0073620
0073640 ( C L : S E T F (
0073660 C L : A R E F B I T A R R A Y
0073700 I ) \r
0073720
0073740 ( S E L C H A R Q
0073760 ( N T H C H A R C O D E C O
0074000 N T E N T S ( C L : 1 + I )
0074020 ) \r
0074040
0074060 ( 0 0 ) \r
0074100
*
0074140 ( 1 1 ) \r
0074160
*
0074220 ( C L : E R R O R
0074240 " I l l e g a l b i t v e c
0074260 t o r e l e m e n t i n #
0074300 ~ A * ~ A " P A R A M \r
0074320
*
0074360 C O N
0074400 T E N T S ) ) ) ) \r
0074420 B
0074440 I T A R R A Y ) ) ) ) \r \r ( C L
0074460 : D E F U N 006 002 H A S H - V B
0074500 A R 006 001 ( S T R E A M C H A
0074520 R P A R A M ) ( H A S H - N
0074540 O - P A R A M E T E R - E R R O
0074560 R C H A R P A R A M ) \r
0074600
*
0074640 ( S K I P . H A S H
0074660 . C O M M E N T S T R E A M
0074700 * R E A D T A B L E * ) \r
0074720
*
0074760 ( C L : V A L U E S )
0075000 ) \r \r ( C L : D E F U N 006 002 H
0075020 A S H - X 006 001 ( S T R E A M
0075040 C H A R P A R A M ) ( H A S
0075060 H - N O - P A R A M E T E R - E
0075100 R R O R C H A R P A R A M )
0075120 \r
0075140
0075160 ( R E A D N U M B E
0075200 R I N B A S E S T R E A M 1
0075220 6 ) ) \r \r ( C L : D E F U N 006
0075240 002 C L : M A K E - D I S P A T C
0075260 H - M A C R O - C H A R A C T E
0075300 R 006 001 ( C H A R & O P T I O
0075320 N A L N O N - T E R M I N A T
0075340 I N G ( R E A D T A B L E *
0075360 R E A D T A B L E * ) ) \r
0075400 ( S E T S Y N T A X ( C L : C
0075420 H A R - C O D E C H A R ) \r
0075440 ` ( M A C R O
0075460 , ( C L : I F N O N - T E R
0075500 M I N A T I N G ' F I R S T
0075520 ' A L W A Y S ) ( L A M B D A
0075540 ( S T R E A M R E A D T A B
0075560 L E Z ) \r
0075600
*
0075660 ( D O - D I S P A T C H - M
0075700 A C R O , C H A R S T R E A
0075720 M R E A D T A B L E \r
0075740
*
0076020 )
0076040 ) ) R E A D T A B L E ) \r
0076060 T ) \r \r ( C L : D E F U N 006
0076100 002 C L : S E T - D I S P A T C H
0076120 - M A C R O - C H A R A C T E R
0076140 006 001 ( D I S P - C H A R S U
0076160 B - C H A R F U N C T I O N
0076200 & O P T I O N A L ( R E A D T
0076220 A B L E \r
0076240
*
0076340 * R
0076360 E A D T A B L E * ) ) \r (
0076400 C L : I F ( C L : D I G I T -
0076420 C H A R - P S U B - C H A R )
0076440 \r ( C L : E
0076460 R R O R " D i g i t ~ S i
0076500 l l e g a l a s a s u b -
0076520 c h a r a c t e r f o r a
0076540 d i s p a t c h i n g m a c r
0076560 o " S U B - C H A R ) ) \r
0076600 ( S E T Q S U B - C H A R
0076620 ( C L : C H A R - U P C A S E
0076640 S U B - C H A R ) ) \r ( L
0076660 E T ( ( D I S P - T A B L E
0076700 ( O R ( A S S O C D I S P -
0076720 C H A R ( 006 002 f e t c h 006 001
0076740 ( R E A D T A B L E P D I S P
0076760 A T C H M A C R O D E F S ) 006
0077000 002 o f 006 001 R E A D T A B L E )
0077020 ) \r
0077040 ( L E T
0077060 ( ( N E W T A B L E ( L I S T
0077100 D I S P - C H A R ) ) ) \r
0077120
0077140 ( 006 002 p
0077160 u s h 006 001 ( 006 002 f e t c h 006 001
0077200 ( R E A D T A B L E P D I S
0077220 P A T C H M A C R O D E F S )
0077240 006 002 o f 006 001 R E A D T A B L E
0077260 ) \r
0077300
0077320 N E W T A B L E ) \r
0077340
0077360 N E
0077400 W T A B L E ) ) ) \r
0077420 D I S P - C O N S ) \r
0077440 ( 006 002 i f 006 001 ( S
0077460 E T Q D I S P - C O N S ( A
0077500 S S O C S U B - C H A R ( C
0077520 D R D I S P - T A B L E ) ) )
0077540 \r 006 002 t
0077560 h e n 006 001 ( C L : S E T F (
0077600 C D R D I S P - C O N S ) \r
0077620
0077640 F U N C T I O N )
0077660 \r 006 002 e l s
0077700 e 006 001 ( 006 002 p u s h 006 001 ( C
0077720 D R D I S P - T A B L E ) \r
0077740
0077760 ( C O N S S U B - C H
0100000 A R F U N C T I O N ) ) ) \r
0100020 T ) ) \r \r ( C L :
0100040 D E F U N 006 002 C L : S E T - M
0100060 A C R O - C H A R A C T E R 006 001
0100100 ( C H A R F U N C T I O N
0100120 & O P T I O N A L N O N - T E
0100140 R M I N A T I N G ( R E A D T
0100160 A B L E * R E A D T A B L E *
0100200 ) ) \r ( S E T S Y N T A X
0100220 ( C L : C H A R - C O D E C
0100240 H A R ) \r `
0100260 ( M A C R O , ( C L : I F N
0100300 O N - T E R M I N A T I N G '
0100320 F I R S T ' A L W A Y S ) ,
0100340 ( C O N D \r
0100360
*
0100440 ( ( I L - M A C R O - W
0100460 R A P P E D - P F U N C T I O
0100500 N ) \r
0100520
*
0100600 ( I L - U N W R A P - M A C
0100620 R O F U N C T I O N ) ) \r
0100640
*
0100720 ( T (
0100740 C L - W R A P - M A C R O F U
0100760 N C T I O N ) ) ) ) \r
0101000 R E A D T A B L E )
0101020 ) \r \r \r ( R P A Q ? 006 002 * S T
0101040 A N D A R D - I N P U T * 006 001
0101060 N I L ) \r \r ( R P A Q ? 006 002 *
0101100 R E A D - D E F A U L T - F L O
0101120 A T - F O R M A T * 006 001 ' C L
0101140 : S I N G L E - F L O A T ) \r \r
0101160 \r \r 006 004 ( * ; ; \r " A t t e
0101200 m p t t o b u i l d a C
0101220 o m m o n L i s p r e a d t a
0101240 b l e . M o s t f e a t u
0101260 r e s s i m u l a t e d f o
0101300 r t h e b a s i c r e a d
0101320 i n g , b u t m a c r o s
0101340 n e e d w o r k " \r ) 006 001 \r \r
0101360 ( D E F I N E Q \r \r ( 006 004 C M L
0101400 R D T B L 006 001 \r [ L A M B D
0101420 A N I L 006 003 006 001
0101440
*
0101500 006 003 ( * b v
0101520 m % : " 1 3 - O c t - 8 6 1
0101540 5 : 5 3 " ) 006 001 006 003 006 001 \r
0101560
*
0101640 006 003 ( * ; ; " C r e a t e s
0101660 a v a n i l l a c o m m o
0101700 n - l i s p r e a d t a b l
0101720 e " ) 006 001 \r ( P R O G
0101740 [ ( T B L ( C O P Y R E A D T
0101760 A B L E ' O R I G ] 006 003 006 001
0102000
0102020 006 003 ( * ; ; "
0102040 F i r s t r e s e t t h e
0102060 t a b l e " ) 006 001 \r
0102100 ( 006 002 f o r 006 001 I 006
0102120 002 f r o m 006 001 0 006 002 t o 006 001
0102140 \ M A X T H I N C H A R 006 002
0102160 d o 006 001 ( S E T S Y N T A X
0102200 I ' O T H E R T B L ) ) 006 003
0102220 006 001 \r
0102240
*
0102320 006 003 ( * ; ; " I n s t a l l
0102340 t h e g o o d i e s " ) 006 001
0102360 \r ( S E T S
0102400 E P R ( C H A R C O D E ( S
0102420 P A C E C R ^ L L F T A
0102440 B ) ) \r
0102460 1 T B L ) \r
0102500 ( S E T S Y N T A X
0102520 ( C H A R C O D E " ' " ) \r
0102540
0102560 ' ( M A C R O A L W A Y S
0102600 R E A D Q U O T E ) T B L ) 006
0102620 003 006 001 006 003 ( * ; ; " N
0102640 o t e t h a t i n c m l ,
0102660 m o s t o f t h e s e m
0102700 a c r o s a r e t e r m i n
0102720 a t i n g , e v e n t h o u
0102740 g h i t w o u l d b e n
0102760 i c e r f o r u s i f t
0103000 h e y w e r e n o t " ) 006 001
0103020 \r ( S E T S
0103040 Y N T A X ( C H A R C O D E
0103060 " ; " ) \r
0103100 ' ( M A C R O A L
0103120 W A Y S C M L R E A D S E M I
0103140 ) T B L ) \r
0103160 ( S E T S Y N T A X ( C H A
0103200 R C O D E " ) " ) \r
0103220 ' R I G
0103240 H T P A R E N T B L ) \r
0103260 ( S E T S Y N T A
0103300 X ( C H A R C O D E " ( " )
0103320 \r
0103340 ' L E F T P A R E N T B L
0103360 ) \r ( R E A
0103400 D T A B L E P R O P T B L '
0103420 C A S E I N S E N S I T I V E
0103440 T ) \r ( R E
0103460 A D T A B L E P R O P T B L
0103500 ' C O M M O N L I S P T ) \r
0103520 ( R E A D T A
0103540 B L E P R O P T B L ' C O M
0103560 M O N N U M S Y N T A X T ) \r
0103600 ( R E A D T
0103620 A B L E P R O P T B L ' U S
0103640 E S I L P A C K A G E N I L )
0103660 \r ( R E A D
0103700 T A B L E P R O P T B L ' E
0103720 S C A P E C H A R ( C H A R C
0103740 O D E " \ " ) ) \r
0103760 ( R E A D T A B L E P R
0104000 O P T B L ' M U L T I P L E
0104020 - E S C A P E C H A R ( C H A
0104040 R C O D E " | " ) ) \r
0104060 ( 006 002 S E T - D E F
0104100 A U L T - H A S H M A C R O - S
0104120 E T T I N G S 006 001 T B L ) \r
0104140 ( S E T S Y N
0104160 T A X ( C H A R C O D E % "
0104200 ) \r
0104220 ' S T R I N G D E L I M
0104240 T B L ) \r (
0104260 S E T S Y N T A X ( C H A R C
0104300 O D E " ` " ) \r
0104320 ' ( M A C R
0104340 O A L W A Y S R E A D B Q U
0104360 O T E ) T B L ) \r
0104400 ( S E T S Y N T A X (
0104420 C H A R C O D E " , " ) \r
0104440 '
0104460 ( M A C R O A L W A Y S R E
0104500 A D B Q U O T E C O M M A ) T
0104520 B L ) \r ( R
0104540 E T U R N T B L ] ) \r \r ( 006 004
0104560 I N I T - C M L - R E A D T A B
0104600 L E S 006 001 \r [ L A M B D A
0104620 N I L 006 003 006 001
0104640
*
0104700 006 003 ( * b v m %
0104720 : " 1 4 - O c t - 8 6 0 0 :
0104740 0 5 " ) 006 001 \r ( R E A D
0104760 T A B L E P R O P ( S E T Q
0105000 C M L R D T B L ( 006 002 C M L R
0105020 D T B L 006 001 ) ) \r
0105040 ' N A M E " L I S P "
0105060 ) \r ( S E T Q * C O M
0105100 M O N - L I S P - R E A D - E N
0105120 V I R O N M E N T * ( M A K E
0105140 - R E A D E R - E N V I R O N M
0105160 E N T * L I S P - P A C K A G
0105200 E * C M L R D T B L 1 0 ) )
0105220 \r ( L E T ( ( F I L E
0105240 T B L ( C O P Y R E A D T A B
0105260 L E C M L R D T B L ) ) ) 006 003
0105300 006 001 006 003 ( * ; \r 006
0105320 001
0105340
*
0105400 006 003 " M a k e o n e f o r
0105420 f i l e s t h a t h a s f
0105440 o n t i n d i c a t o r s a
0105460 s s e p r s " ) 006 001 \r
0105500 ( 006 002 f o r 006 001 I
0105520 006 002 f r o m 006 001 1 006 002 t o 006
0105540 001 2 6 006 002 d o 006 001 ( S E T
0105560 S Y N T A X I ' S E P R C H
0105600 A R F I L E T B L ) ) \r
0105620 ( R E A D T A B L E
0105640 P R O P F I L E T B L ' N A
0105660 M E " X C L " ) ) \r (
0105700 P R O G N 006 003 006 001
0105720
*
0105760 006 003 ( * ; " R e a d
0106000 t a b l e t o m a k e R E
0106020 A D - L I N E w o r k e a s
0106040 i l y " ) 006 001 \r
0106060 ( S E T Q R E A D - L I
0106100 N E - R D T B L ( C O P Y R E
0106120 A D T A B L E ' O R I G ) ) \r
0106140 ( S E T B
0106160 R K ( C H A R C O D E ( E O
0106200 L ) ) \r
0106220 N I L R E A D - L
0106240 I N E - R D T B L ) \r
0106260 ( S E T S E P R N
0106300 I L N I L R E A D - L I N E
0106320 - R D T B L ] ) \r \r ( 006 004 S E T
0106340 - D E F A U L T - H A S H M A C
0106360 R O - S E T T I N G S 006 001 \r
0106400 [ L A M B D A ( R D T B L ) 006
0106420 003 006 001
0106440
0106460 006
0106500 003 ( * b v m % : " 1 1 - S e
0106520 p - 8 6 1 4 : 4 9 " ) 006 001 \r
0106540 ( R E A D T A B L E P R O
0106560 P R D T B L ' H A S H M A C
0106600 R O C H A R ( C H A R C O D E
0106620 " # " ) ) \r ( C L : M
0106640 A K E - D I S P A T C H - M A C
0106660 R O - C H A R A C T E R # \ #
0106700 T R D T B L ) \r ( C
0106720 L : S E T - D I S P A T C H - M
0106740 A C R O - C H A R A C T E R #
0106760 \ # # \ ( ' H A S H - L E F
0107000 T P A R E N R D T B L ) \r
0107020 ( C L : S E T - D I S P A T
0107040 C H - M A C R O - C H A R A C T
0107060 E R # \ # # \ ' ' H A S H
0107100 - Q U O T E R D T B L ) \r
0107120 ( C L : S E T - D I S P A T
0107140 C H - M A C R O - C H A R A C T
0107160 E R # \ # # \ . ' H A S H
0107200 - D O T R D T B L ) \r
0107220 ( C L : S E T - D I S P A T C H
0107240 - M A C R O - C H A R A C T E R
0107260 # \ # # \ , ' H A S H - C
0107300 O M M A R D T B L ) \r
0107320 ( C L : S E T - D I S P A T C H
0107340 - M A C R O - C H A R A C T E R
0107360 # \ # # \ \ ' H A S H - B
0107400 A C K S L A S H R D T B L ) \r
0107420 ( C L : S E T - D I S P
0107440 A T C H - M A C R O - C H A R A
0107460 C T E R # \ # # \ * ' H A
0107500 S H - S T A R R D T B L ) \r
0107520 ( C L : S E T - D I S P A
0107540 T C H - M A C R O - C H A R A C
0107560 T E R # \ # # \ : ' H A S
0107600 H - C O L O N R D T B L ) \r
0107620 ( C L : S E T - D I S P A
0107640 T C H - M A C R O - C H A R A C
0107660 T E R # \ # # \ O ' H A S
0107700 H - O R D T B L ) \r (
0107720 C L : S E T - D I S P A T C H -
0107740 M A C R O - C H A R A C T E R
0107760 # \ # # \ B ' H A S H - B
0110000 R D T B L ) \r ( C L : S
0110020 E T - D I S P A T C H - M A C R
0110040 O - C H A R A C T E R # \ #
0110060 # \ X ' H A S H - X R D T B
0110100 L ) \r ( C L : S E T - D
0110120 I S P A T C H - M A C R O - C H
0110140 A R A C T E R # \ # # \ R
0110160 ' H A S H - R R D T B L ) \r
0110200 ( C L : S E T - D I S P A
0110220 T C H - M A C R O - C H A R A C
0110240 T E R # \ # # \ A ' H A S
0110260 H - A R D T B L ) \r (
0110300 C L : S E T - D I S P A T C H -
0110320 M A C R O - C H A R A C T E R
0110340 # \ # # \ S ' H A S H - S
0110360 R D T B L ) \r ( C L : S
0110400 E T - D I S P A T C H - M A C R
0110420 O - C H A R A C T E R # \ #
0110440 # \ C ' H A S H - C R D T B
0110460 L ) \r ( C L : S E T - D
0110500 I S P A T C H - M A C R O - C H
0110520 A R A C T E R # \ # # \ +
0110540 ' H A S H - P L U S R D T B L
0110560 ) \r ( C L : S E T - D I
0110600 S P A T C H - M A C R O - C H A
0110620 R A C T E R # \ # # \ - '
0110640 H A S H - M I N U S R D T B L
0110660 ) \r ( C L : S E T - D I
0110700 S P A T C H - M A C R O - C H A
0110720 R A C T E R # \ # # \ | '
0110740 H A S H - V B A R R D T B L )
0110760 \r ( C L : S E T - D I S
0111000 P A T C H - M A C R O - C H A R
0111020 A C T E R # \ # # \ < ' H
0111040 A S H - L E F T A N G L E R D
0111060 T B L ) \r ( C L : S E T
0111100 - D I S P A T C H - M A C R O -
0111120 C H A R A C T E R # \ # # \
0111140 " ' H A S H - D O U B L E Q U
0111160 O T E R D T B L ) \r R
0111200 D T B L ] ) \r \r ( 006 004 C M L R E
0111220 A D S E M I 006 001 \r [ L A M B
0111240 D A ( S T R E A M R D T B L
0111260 ) 006 003 006 001
0111300
0111320 006 003 ( * b
0111340 v m % : " 1 3 - O c t - 8 6
0111360 1 5 : 5 3 " ) 006 001 006 003 006 001 \r
0111400
*
0111460 006 003 ( * ; ; ; " R e
0111500 a d a n d d i s c a r d t
0111520 h r o u g h e n d o f l i
0111540 n e " ) 006 001 \r ( 006 002 u n
0111560 t i l 006 001 ( E Q ( R E A D C
0111600 C O D E S T R E A M ) \r
0111620 ( C H A
0111640 R C O D E N E W L I N E ) )
0111660 006 002 d o 006 001 N I L ) \r
0111700 ( C L : V A L U E S ] ) \r ) \r (
0111720 D E C L A R E % : D O N T E V
0111740 A L @ L O A D D O C O P Y \r
0111760 ( I N I T - C M L - R E A D T A
0112000 B L E S ) \r ) \r \r \r \r 006 004 ( *
0112020 ; ; \r " C r u d e m e a n s
0112040 t o a i d r e a d i n g
0112060 a n d p r i n t i n g t h i
0112100 n g s i n s a m e r e a d
0112120 e r e n v i r o n m e n t .
0112140 T h e r e a r e s o m e
0112160 f n s a n d a n I N I T R
0112200 E C O R D S f o r t h i s
0112220 o n A T B L t o g e t i
0112240 t e a r l y i n t h e l
0112260 o a d u p " \r ) 006 001 \r \r ( D E C
0112300 L A R E % : E V A L @ C O M P
0112320 I L E \r \r ( D A T A T Y P E 006
0112340 002 R E A D E R - E N V I R O N M
0112360 E N T 006 001 ( R E P A C K A G E
0112400 R E R E A D T A B L E R E B
0112420 A S E R E S P E C ) ) \r ) \r (
0112440 / D E C L A R E D A T A T Y P E
0112460 ' R E A D E R - E N V I R O N
0112500 M E N T ' ( P O I N T E R P
0112520 O I N T E R P O I N T E R P
0112540 O I N T E R ) ' ( ( R E A D E
0112560 R - E N V I R O N M E N T 0
0112600 \r
0112620
*
0112720 P O I N T E R ) \r
0112740
*
0113040 ( R E A D E R - E
0113060 N V I R O N M E N T 2 \r
0113100
*
0113220 P O I N T E R ) \r
0113240
*
0113340 ( R E A D E R - E N V I
0113360 R O N M E N T 4 \r
0113400
*
0113500 P O I
0113520 N T E R ) \r
0113540
*
0113640 ( R E A D E R - E N V I R O N
0113660 M E N T 6 \r
0113700
*
0114000 P O I N T E
0114020 R ) ) \r ' 8 ) \r (
0114040 D E F M A C R O 006 002 W I T H -
0114060 R E A D E R - E N V I R O N M E
0114100 N T 006 001 ( E N V . B O D Y
0114120 ) ` ( ( C L : L A M B D A (
0114140 E ) \r
0114160
*
0114220 ( L E T
0114240 ( ( * P A C K A G E * ( 006 002 f
0114260 f e t c h 006 001 ( R E A D E R -
0114300 E N V I R O N M E N T \r
0114320
*
0114420 R E
0114440 P A C K A G E ) \r
0114460
*
0114560 006 002 o f 006 001 E ) ) \r
0114600
*
0114660 ( *
0114700 R E A D T A B L E * ( 006 002 f f
0114720 e t c h 006 001 ( \r
0114740
*
0115040 R E A D
0115060 E R - E N V I R O N M E N T \r
0115100
*
0115220 R E R E A D T A B L E ) \r
0115240
*
0115340 006 002
0115360 o f 006 001 E ) ) \r
0115400
*
0115460 ( * R E A D - B A
0115500 S E * ( 006 002 f f e t c h 006 001
0115520 ( \r
0115540
*
0115640 R E A D E R - E N V I
0115660 R O N M E N T \r
0115700
*
0116000 R E B A
0116020 S E ) \r
0116040
*
0116140 006 002 o f 006 001 E ) ) \r
0116160
*
0116240 ( * P R I
0116260 N T - B A S E * ( 006 002 f f e t
0116300 c h 006 001 ( \r
0116320
*
0116420 R E A D E R
0116440 - E N V I R O N M E N T \r
0116460
*
0116600 R E B A S E ) \r
0116620
*
0116720 006 002 o f 006 001
0116740 E ) ) ) \r
0116760
*
0117040 , @ B O D Y ) ) \r
0117060
*
0117120 ( \ D T
0117140 E S T , E N V ' R E A D E R
0117160 - E N V I R O N M E N T ) ) ) \r
0117200 \r \r ( A D D T O V A R 006 002 S Y
0117220 S S P E C V A R S 006 001 * P A C
0117240 K A G E * * R E A D T A B L E
0117260 * * R E A D - B A S E * * P
0117300 R I N T - B A S E * ) \r \r ( P U
0117320 T P R O P S 006 002 W I T H - R E
0117340 A D E R - E N V I R O N M E N T
0117360 I N F O 006 001 E V A L ) \r ( D
0117400 E C L A R E % : D O E V A L @
0117420 C O M P I L E D O N T C O P Y
0117440 \r \r ( G L O B A L V A R S * C
0117460 O M M O N - L I S P - R E A D -
0117500 E N V I R O N M E N T * ) \r ) \r
0117520 \r ( R P A Q ? 006 002 * C O M M O
0117540 N - L I S P - R E A D - E N V I
0117560 R O N M E N T * 006 001 ( c r e a
0117600 t e R E A D E R - E N V I R O
0117620 N M E N T R E P A C K A G E
0117640 _ ( C L : F I N D - P A C K A
0117660 G E " U S E R " ) \r
0117700
*
0117740 R E R E A D T A
0117760 B L E _ C M L R D T B L R
0120000 E B A S E _ 1 0 ) ) \r \r ( P
0120020 U T P R O P S 006 002 C M L R E A
0120040 D F I L E T Y P E 006 001 C L :
0120060 C O M P I L E - F I L E ) \r ( D
0120100 E C L A R E % : D O N T E V A
0120120 L @ L O A D D O E V A L @ C O
0120140 M P I L E D O N T C O P Y C
0120160 O M P I L E R V A R S \r \r ( A
0120200 D D T O V A R 006 002 N L A M A 006
0120220 001 ) \r \r ( A D D T O V A R 006
0120240 002 N L A M L 006 001 ) \r \r ( A D D
0120260 T O V A R 006 002 L A M A 006 001 C
0120300 L : W R I T E - B Y T E C L :
0120320 R E A D - B Y T E C L : R E A
0120340 D - F R O M - S T R I N G C L
0120360 : C L E A R - I N P U T C L :
0120400 R E A D - C H A R - N O - H A N
0120420 G \r
0120440 C L : L I S T E
0120460 N C L : P E E K - C H A R C
0120500 L : U N R E A D - C H A R C L
0120520 : R E A D - C H A R C L : R E
0120540 A D - L I N E \r
0120560 C L
0120600 : R E A D - P R E S E R V I N G
0120620 - W H I T E S P A C E C L : C
0120640 O P Y - R E A D T A B L E C L
0120660 : R E A D ) \r ) \r ( P U T P R O
0120700 P S C M L R E A D C O P Y R
0120720 I G H T ( " X e r o x C o r
0120740 p o r a t i o n " 1 9 8 5 1
0120760 9 8 6 ) ) \r ( D E C L A R E % :
0121000 D O N T C O P Y \r ( F I L
0121020 E M A P ( N I L ( 5 0 2 8
0121040 6 2 2 3 ( C L : R E A D 5 0
0121060 3 8 . 5 2 5 0 ) ( C L : C
0121100 O P Y - R E A D T A B L E 5 2
0121120 5 2 . 6 2 2 1 ) ) ( 6 3 3
0121140 1 1 5 2 8 8 ( \r C L : R E A
0121160 D - P R E S E R V I N G - W H I
0121200 T E S P A C E 6 3 4 1 . 6
0121220 9 9 6 ) ( C L : R E A D - D E
0121240 L I M I T E D - L I S T 6 9 9
0121260 8 . 8 1 5 3 ) ( C L : R E
0121300 A D - L I N E 8 1 5 5 . \r
0121320 9 3 3 6 ) ( C L : R E A D - C
0121340 H A R 9 3 3 8 . 9 9 7 1 )
0121360 ( C L : U N R E A D - C H A R
0121400 9 9 7 3 . 1 0 4 6 4 ) (
0121420 C L : P E E K - C H A R 1 0 4
0121440 6 6 . 1 2 3 5 8 ) ( C L :
0121460 L I S T E N \r 1 2 3 6 0 .
0121500 1 2 6 8 7 ) ( C L : R E A D -
0121520 C H A R - N O - H A N G 1 2 6
0121540 8 9 . 1 3 2 3 7 ) ( C L :
0121560 C L E A R - I N P U T 1 3 2 3
0121600 9 . 1 3 5 7 4 ) ( C L : R
0121620 E A D - F R O M - S T R I N G \r
0121640 1 3 5 7 6 . 1 4 3 6 6 )
0121660 ( C L : R E A D - B Y T E 1 4
0121700 3 6 8 . 1 4 9 2 7 ) ( C L
0121720 : W R I T E - B Y T E 1 4 9 2
0121740 9 . 1 5 2 8 6 ) ) ( 3 3 5
0121760 2 0 3 7 8 3 8 ( C M L R D T
0122000 B L \r 3 3 5 3 0 . 3 5 1 7
0122020 9 ) ( I N I T - C M L - R E A
0122040 D T A B L E S 3 5 1 8 1 .
0122060 3 6 0 5 6 ) ( S E T - D E F A
0122100 U L T - H A S H M A C R O - S E
0122120 T T I N G S 3 6 0 5 8 . 3
0122140 7 5 1 0 ) ( \r C M L R E A D S
0122160 E M I 3 7 5 1 2 . 3 7 8 3
0122200 6 ) ) ) ) ) \r S T O P \r
0122214