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