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