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