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