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