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