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