$ 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