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