$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>DATABASEFNS!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 2 - D e c - 8 6 0 8 : 0 2 : 5
0000140 0 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > D A T
0000200 A B A S E F N S . ; 4 006 001 1 7
0000220 5 1 0 \r \r c h a
0000240 n g e s t o % : ( F N S
0000260 D U M P D B L O A D D B ) \r \r
0000300 p r e v i o u s d
0000320 a t e % : " 2 5 - S e p - 8 6
0000340 2 1 : 3 3 : 0 8 " { E R I S
0000360 } < L I S P C O R E > L I B R A
0000400 R Y > D A T A B A S E F N S . ;
0000420 2 ) \r \r \r ( * " \r C o p y r i
0000440 g h t ( c ) 1 9 8 6 b y
0000460 X e r o x C o r p o r a t i o
0000500 n . A l l r i g h t s r
0000520 e s e r v e d . \r " ) \r \r ( P R
0000540 E T T Y C O M P R I N T D A T
0000560 A B A S E F N S C O M S ) \r \r (
0000600 R P A Q Q 006 002 D A T A B A S E
0000620 F N S C O M S 006 001 [ ( * D o
0000640 e s a u t o m a t i c M a s
0000660 t e r s c o p e d a t a b a s
0000700 e m a i n t e n a n c e ) \r
0000720
0000740 [ D E C L A R E %
0000760 : F I R S T ( P ( V I R G
0001000 I N F N ' L O A D T ) \r
0001020
*
0001060 ( M O V D ?
0001100 ' L O A D ' O L D L O A D )
0001120 \r
0001140
0001160 ( V I
0001200 R G I N F N ' L O A D F R O M
0001220 T ) \r
0001240
*
0001300 ( M O V D ? ' L O A D F R O M
0001320 ' O L D L O A D F R O M ) \r
0001340
*
0001400 ( V I R G
0001420 I N F N ' M A K E F I L E T
0001440 ) \r
0001460
0001500 ( M
0001520 O V D ? ' M A K E F I L E '
0001540 O L D M A K E F I L E ] \r
0001560
0001600 ( F N S D B F I L E
0001620 D B F I L E 1 D B F I L E 2
0001640 L O A D L O A D F R O M M
0001660 A K E F I L E ) \r
0001700
0001720 ( A D D V A R S ( L I N K E
0001740 D F N S O L D L O A D ) ) \r
0001760
0002000 ( P ( R E L I N
0002020 K ' M A K E F I L E S ) ) \r
0002040
0002060 ( F N S D U M P
0002100 D B L O A D D B M A K E D B
0002120 ) \r
0002140 ( P R O P
0002160 P R O P T Y P E D A T A B A S
0002200 E ) \r
0002220 ( I N I T
0002240 V A R S ( L O A D D B F L G
0002260 ' A S K ) \r
0002300
0002320 ( S A V E D B F L G
0002340 ' A S K ) ) \r
0002360 (
0002400 A D D V A R S ( M A K E F I L
0002420 E F O R M S ( M A K E D B F
0002440 I L E ) ) ) \r
0002460 (
0002500 * T o p e r m i t M S H A
0002520 S H i n t e r f a c e ) \r
0002540
0002560 ( I N I T V A R S
0002600 ( M S H A S H F I L E N A M E )
0002620 \r
0002640
0002660 ( M S F I L E T A B L E ) ) \r
0002700
0002720 ( L O C A L V A R
0002740 S . T ) \r
0002760 (
0003000 B L O C K S ( L O A D D B L
0003020 O A D D B D B F I L E D B F
0003040 I L E 1 D B F I L E 2 ( N O
0003060 L I N K F N S . T ) ) ) \r
0003100
0003120 ( D E C L A R E %
0003140 : E V A L @ C O M P I L E D
0003160 O N T C O P Y ( P ( R E S E
0003200 T S A V E D W I M I F Y C O M
0003220 P F L G T ] ) \r \r \r \r 006 004 ( *
0003240 D o e s a u t o m a t i c
0003260 M a s t e r s c o p e d a t a
0003300 b a s e m a i n t e n a n c e
0003320 ) 006 001 \r \r ( D E C L A R E % :
0003340 F I R S T \r ( V I R G I N F N
0003360 ' L O A D T ) \r ( M O V D ?
0003400 ' L O A D ' O L D L O A D )
0003420 \r ( V I R G I N F N ' L O A D
0003440 F R O M T ) \r ( M O V D ? '
0003460 L O A D F R O M ' O L D L O A
0003500 D F R O M ) \r ( V I R G I N F N
0003520 ' M A K E F I L E T ) \r ( M
0003540 O V D ? ' M A K E F I L E '
0003560 O L D M A K E F I L E ) \r ) \r (
0003600 D E F I N E Q \r \r ( 006 004 D B F I
0003620 L E 006 001 \r [ L A M B D A (
0003640 F I L E A S K F L A G ) 006 006 006
0003660 001
0003700
0003720 006 006 ( * l m m "
0003740 2 9 - A P R - 8 1 2 0 : 2 7 "
0003760 ) 006 001 \r \r
0004000 006 006 ( * F i
0004020 n d s a d a t a b a s e f
0004040 i l e t h a t c o r r e s p
0004060 o n d s t o t h e c o n t
0004100 e n t s o f F I L E . \r 006 001
0004120 006 006 L o o k
0004140 s i n d i r e c t o r y o
0004160 f F I L E , a n d a l s o
0004200 i n t h e d i r e c t o r
0004220 y t h a t f i l e o r i g
0004240 i n a l l y c a m e \r 006 001
0004260 006 006 f r o m ,
0004300 i f i t w a s c o p i e
0004320 d . R e t u r n s N I L i
0004340 f n o d a t a b a s e f i
0004360 l e i s f o u n d , e l s
0004400 e \r 006 001 006 006
0004420 ( f u l l d b f i l e n a m e
0004440 . f i l e d a t e s ) % , w
0004460 h e r e f i l e d a t e s i
0004500 d e n t i f i e s t h e n a
0004520 m e u n d e r w h i c h \r
0004540 006 001 006 006 t h
0004560 e f i l e t h a t t h e
0004600 d a t a b a s e c o r r e s p
0004620 o n d s t o i s c u r r e
0004640 n t l y k n o w n . \r 006 001
0004660 006 006 - \r 006 001
0004700 006 006 I f F I L
0004720 E d o e s n ' t h a v e a
0004740 v e r s i o n , t r i e s
0004760 t o g e t d a t a b a s e
0005000 f o r v e r s i o n i n c
0005020 o r e , o r \r 006 001
0005040 006 006 m o s t r e c e
0005060 n t v e r s i o n i f i t
0005100 h a s n ' t b e e n l o a
0005120 d e d ) 006 001 \r \r ( 006 002 D
0005140 E C L A R E 006 001 ( G L O B A L
0005160 V A R S C O M P I L E . E X T
0005200 F I L E R D T B L ) ) \r
0005220 [ C O N D \r ( (
0005240 N U L L F I L E ) \r
0005260 ( S E T Q F I L E ( I
0005300 N P U T ) ) ) \r (
0005320 ( E Q ( F I L E N A M E F I E
0005340 L D F I L E ' E X T E N S I
0005360 O N ) \r
0005400 C O M P I L E . E X T )
0005420
*
0005460 006 006 ( * M a p c o m p i l
0005500 e d f i l e i n t o s y m
0005520 b o l i c \r 006 001
0005540
*
0005620 006 006 n a m e ) 006 001 \r
0005640 ( S E T Q F I
0005660 L E ( P A C K F I L E N A M E
0005700 ' E X T E N S I O N N I L
0005720 ' V E R S I O N N I L ' B O
0005740 D Y F I L E ] \r ( P R
0005760 O G [ ( F I L E D A T E S (
0006000 C O N D \r
0006020 [ (
0006040 A N D ( N U L L ( F I L E N
0006060 A M E F I E L D F I L E ' V
0006100 E R S I O N ) ) \r
0006120
0006140 ( C A R ( G E
0006160 T P R O P ( N A M E F I E L D
0006200 F I L E ) \r
0006220
*
0006260 ' F I L E D A T E S ] \r
0006300
0006320 ( [ S E T Q F I
0006340 L E ( C O N D \r
0006360
*
0006420 ( A S K F L A G ( I N F I L
0006440 E P F I L E ) ) \r
0006460
*
0006520 ( T ( F I N D F I L E F
0006540 I L E ] \r
0006560 (
0006600 C O N S ( F I L E D A T E F
0006620 I L E ) \r
0006640
0006660 F I L E ] \r
0006700 ( A N D F I L E D A
0006720 T E S ( R E T U R N ( 006 002 D
0006740 B F I L E 1 006 001 F I L E F I
0006760 L E D A T E S ] ) \r \r ( 006 004 D B
0007000 F I L E 1 006 001 \r [ L A M B D
0007020 A ( F F I L E D A T E S ) 006
0007040 006 006 001
0007060
0007100 006 006 ( * j d
0007120 s " 2 5 - S e p - 8 6 2 0 :
0007140 0 4 " ) 006 001 \r
0007160 \r 006 006 ( *
0007200 S e a r c h e s d a t a b a
0007220 s e s b a s e d o n F t
0007240 o f i n d o n e t h a t
0007260 m a t c h e s F I L E D A T E
0007300 S . \r 006 001 006
0007320 006 R e t u r n s ( d b f i l e
0007340 n a m e . f i l e d a t e s
0007360 ) i f s u c c e s s f u l .
0007400 \r 006 001 006 006 F
0007420 o r e f f i c i e n c y , c
0007440 h e c k s t h e m o s t l
0007460 i k e l y h i g h e s t v e
0007500 r s i o n f i r s t , b e f
0007520 o r e d o i n g t h e \r 006
0007540 001 006 006 d i r
0007560 e c t o r y e n u m e r a t i
0007600 o n ) 006 001 \r \r ( P R O G
0007620 ( ( H I G H E S T ( I N F I
0007640 L E P ( P A C K F I L E N A M
0007660 E ' E X T E N S I O N ' D A
0007700 T A B A S E ' V E R S I O N
0007720 ' N I L ' B O D Y F ) ) ) \r
0007740 D B F ) \r
0007760 ( R E T U R
0010000 N ( C O N D \r
0010020 ( ( N
0010040 U L L H I G H E S T )
0010060
0010100 006 006 ( * ; \r 006 001
0010120
*
0010200 006 006 " N o f i
0010220 l e m a t c h e s t h e n
0010240 a m e w e g a v e , s o
0010260 p u n t . " ) 006 001 \r
0010300
0010320 N I L ) \r
0010340 ( ( S E T Q
0010360 D B F ( 006 002 D B F I L E 2 006
0010400 001 H I G H E S T F I L E D A
0010420 T E S ) ) 006 006 ( * ; " T h
0010440 e m o s t r e c e n t o n
0010460 e m a t c h e s . " ) 006 001 \r
0010500
0010520 ( C O N S D B F F
0010540 I L E D A T E S ) ) \r
0010560
0010600 ( T
0010620
0010640 006 006 ( * ; \r
0010660 006 001
0010700
0010720 006 006 "
0010740 H u n t b a c k t h r u b
0010760 a c k v e r s i o n s l o o
0011000 k i n g f o r a m a t c h
0011020 i n g o n e . " ) 006 001 \r
0011040
0011060 ( 006 002 f o r 006 001 D B
0011100 F 006 002 i n 006 001 ( R E M O V E
0011120 H I G H E S T ( F I L D I R
0011140 ( P A C K F I L E N A M E '
0011160 E X T E N S I O N ' D A T A B
0011200 A S E \r
0011220
*
0011300 ' V E R S I O N \r
0011320
*
0011420 ' * \r
0011440
*
0011520 ' B O D Y F
0011540 ) ) ) \r
0011560 006
0011600 002 w h e n 006 001 ( S E T Q D B
0011620 F ( 006 002 D B F I L E 2 006 001 D
0011640 B F F I L E D A T E S ) ) \r
0011660
0011700 006 002 d o 006 001
0011720 ( R E T U R N ( C O N S D
0011740 B F F I L E D A T E S ] ) \r \r
0011760 ( 006 004 D B F I L E 2 006 001 \r [
0012000 L A M B D A ( D B F F I L E
0012020 D A T E S ) 006 006 006 001
0012040
0012060 006 006
0012100 ( * j d s " 2 5 - S e p - 8
0012120 6 2 0 : 0 1 " ) 006 001 \r
0012140 \r
0012160 006 006 ( * T i f D B F i
0012200 s t h e n a m e o f t h
0012220 e d a t a b a s e f i l e
0012240 m a t c h i n g F I L E D A T
0012260 E S ) 006 001 \r \r ( 006 002 D E
0012300 C L A R E 006 001 ( G L O B A L V
0012320 A R S F I L E R D T B L ) ) \r
0012340 [ R E S E T S A V E (
0012360 S E T Q D B F ( O P E N S T
0012400 R E A M D B F ' I N P U T )
0012420 ) \r ' ( P
0012440 R O G N ( C L O S E F ? O L
0012460 D V A L U E ] \r
0012500 \r 006 006 (
0012520 * T h e c l o s e i s d
0012540 o n e i n t h e L O A D D
0012560 B R E S E T L S T , e x c e
0012600 p t w h e n a c a n d i d
0012620 a t e f i l e i s n ' t \r
0012640 006 001 006 006 c o
0012660 r r e c t ) 006 001 \r \r ( S
0012700 K R E A D D B F )
0012720
*
0012760 006 006 ( * S k i p
0013000 L O A D e r r o r m e s s
0013020 a g e ) 006 001 \r ( C O N D
0013040 \r ( ( S T R E Q U
0013060 A L ( C A R F I L E D A T E
0013100 S ) \r
0013120 ( C A R ( R E A D D B F
0013140 F I L E R D T B L ) ) ) \r
0013160 D B F ) \r
0013200 ( T ( C L O S E F D B F
0013220 ) \r N I L ]
0013240 ) \r \r ( 006 004 L O A D 006 001 \r [
0013260 L A M B D A ( F I L E L D F
0013300 L G P R I N T F L G ) 006 006 006 001
0013320
0013340 006 006
0013360 ( * l m m " 2 9 - A P R - 8
0013400 1 2 0 : 2 7 " ) 006 001 \r
0013420 ( S E T Q F I L E ( O L D L
0013440 O A D F I L E L D F L G P
0013460 R I N T F L G ) ) \r ( C
0013500 O N D \r ( ( N E Q
0013520 L D F L G ' S Y S L O A D )
0013540 \r ( 006 002 L O A D
0013560 D B 006 001 F I L E T ) ) ) \r
0013600 F I L E ] ) \r \r ( 006 004 L O
0013620 A D F R O M 006 001 \r [ L A M B
0013640 D A ( F I L E F N S L D F
0013660 L G ) 006 006 006 001
0013700
0013720 006 006 ( * l
0013740 m m " 2 9 - A P R - 8 1 2 0
0013760 : 2 7 " ) 006 001 \r ( S E T
0014000 Q F I L E ( O L D L O A D F
0014020 R O M F I L E F N S L D F
0014040 L G ) ) \r ( 006 002 L O A D
0014060 D B 006 001 F I L E T ) \r
0014100 F I L E ] ) \r \r ( 006 004 M A K E
0014120 F I L E 006 001 \r [ L A M B D A
0014140 ( F I L E O P T I O N S R
0014160 E P R I N T F N S S O U R C E
0014200 F I L E ) 006 006 006 001
0014220 006 006 ( * l m m
0014240 " 2 9 - A P R - 8 1 2 0 : 2
0014260 7 " ) 006 001 \r ( S E T Q
0014300 F I L E ( O L D M A K E F I L
0014320 E F I L E O P T I O N S R
0014340 E P R I N T F N S S O U R C E
0014360 F I L E ) ) \r ( 006 002 D U
0014400 M P D B 006 001 F I L E T ) \r
0014420 F I L E ] ) \r ) \r \r ( A D
0014440 D T O V A R 006 002 L I N K E D F
0014460 N S 006 001 O L D L O A D ) \r ( R
0014500 E L I N K ' M A K E F I L E S
0014520 ) \r ( D E F I N E Q \r \r ( 006 004 D
0014540 U M P D B 006 001 \r [ L A M B D
0014560 A ( F I L E P R O P F L G )
0014600 006 006 006 001
0014620
0014640 006 006 ( * ;
0014660 " E d i t e d 2 - D e c - 8
0014700 6 0 7 : 5 9 b y j d s " )
0014720 006 001 \r \r
0014740 006 006 ( * D u m
0014760 p s a M a s t e r s c o p e
0015000 d a t a b a s e f o r f u
0015020 n c t i o n s i n F I L E .
0015040 \r 006 001 006 006 C
0015060 h e c k s t h e D A T A B A
0015100 S E p r o p e r t y i f P
0015120 R O P F L G = T w h i c h i
0015140 s h o w t h e M A K E F I
0015160 L E a d v i c e \r 006 001
0015200 006 006 c a l l s i
0015220 t . A u s e r - l e v e l
0015240 c a l l w o u l d d e f a u
0015260 l t P R O P F L G t o N I
0015300 L . ) 006 001 \r
0015320 \r 006 006 ( *
0015340 T h e F I L E c h e c k i
0015360 s b e c a u s e M A K E F I
0015400 L E r e t u r n s a l i s
0015420 t w h e n i t d o e s n '
0015440 t u n d e r s t a n d \r 006 001
0015460 006 006 t h e
0015500 o p t i o n s ) 006 001 \r \r
0015520 ( 006 002 D E C L A R E 006 001 ( G L
0015540 O B A L V A R S M S H A S H F
0015560 I L E N A M E M S F I L E T A
0015600 B L E S A V E D B F L G ) ) \r
0015620 ( A N D F I L E ( L
0015640 I T A T O M F I L E ) \r
0015660 ( P R O G ( 006 002 D
0015700 B F I L E 006 001 ( F L ( N A M
0015720 E F I E L D F I L E ) ) \r
0015740
0015760 F N S \r
0016000 ( F
0016020 F N S ( F I L E F N S L S T
0016040 F I L E ) ) ) \r
0016060 ( C O N D \r
0016100 (
0016120 F F N S ) \r
0016140 ( ( A N D M S
0016160 F I L E T A B L E ( T E S T T
0016200 A B L E F L ( C A D R M S
0016220 F I L E T A B L E ) ) ) \r
0016240
*
0016320 006 006 ( * A
0016340 l w a y s d u m p i f t h
0016360 i s i s a k n o w n f i
0016400 l e ) 006 001 \r
0016420 ( S E T Q P
0016440 R O P F L G N I L ) ) \r
0016460 (
0016500 T ( C O N D \r
0016520
0016540 ( P R O P F L G ( / R E M P R
0016560 O P F L ' D A T A B A S E )
0016600 ) \r
0016620 ( T ( p r
0016640 i n t o u t T T F I L E
0016660 " h a s n o f u n c t i o
0016700 n s . " T ) ) ) \r
0016720 (
0016740 R E T U R N ) ) ) \r
0016760 ( S E T Q F
0017000 N S F F N S ) \r
0017020 ( C O N D \r
0017040
0017060 ( [ O R ( N U L L P R O P F
0017100 L G ) \r
0017120 ( E Q (
0017140 G E T P R O P F L ' D A T A
0017160 B A S E ) \r
0017200
0017220 ' Y E S ) \r
0017240 ( E
0017260 Q S A V E D B F L G ' Y E S
0017300 ) \r
0017320 ( A N D M S
0017340 F I L E T A B L E ( T E S T T
0017360 A B L E F L ( C A D R M S
0017400 F I L E T A B L E ] \r
0017420 \r
0017440 006 006 ( * I f M S H A S H i
0017460 s l o a d e d , o n l y d
0017500 u m p f u n c t i o n s i n
0017520 t h e l o c a l d a t a b
0017540 a s e ) 006 001 \r \r
0017560 [ C O N D
0017600 \r
0017620 ( M S H A S H F I
0017640 L E N A M E ( S E T Q F N S
0017660 ( 006 002 f o r 006 001 F N 006 002 i
0017700 n 006 001 F N S 006 002 w h e n 006 001
0017720 ( P R O G N ( U P D A T E F
0017740 N F N ) \r
0017760
*
0020060 ( L O C A L F N P F N ) ) \r
0020100
*
0020160 006 002 c o l l e c t 006 001 F
0020200 N ] \r
0020220 [ R E S E T L S T
0020240 [ R E S E T S A V E ( S E T Q
0020260 D B F I L E ( O P E N S T R
0020300 E A M ( P A C K F I L E N A M
0020320 E ' E X T E N S I O N \r
0020340
*
0020440 ' D A T A B A S E \r
0020460
*
0020560 ' V E R S I O N
0020600 N I L ' B O D Y F I L E ) \r
0020620
*
0020700 ' O U T
0020720 P U T \r
0020740
*
0021020 ' N E W ) ) \r
0021040
0021060 ' ( P R O
0021100 G N ( C L O S E F ? O L D V
0021120 A L U E ) \r
0021140
*
0021200 ( A N D R E S E T S T A T
0021220 E ( D E L F I L E O L D V A
0021240 L U E ] \r
0021260 (
0021300 R E S E T S A V E ( O U T P U
0021320 T D B F I L E ) ) \r
0021340
0021360 ( P R I N 1 \r
0021400
0021420 " ( P
0021440 R O G N ( P R I N 1 % " U s
0021460 e L O A D D B t o l o a d
0021500 d a t a b a s e f i l e s !
0021520 \r % " T ) ( E R R O R ! ) )
0021540 \r " ) \r
0021560 [ A
0021600 N D M S F I L E T A B L E (
0021620 S T O R E T A B L E F L M S
0021640 F I L E T A B L E \r
0021660
*
0021720 ( P R I
0021740 N T ( C A R ( G E T P R O P
0021760 F L ' F I L E D A T E S ] \r
0022000
0022020 ( C O N D \r
0022040
0022060 ( M S
0022100 H A S H F I L E N A M E ( U P
0022120 D A T E C O N T A I N S F L
0022140 F F N S T ) ) ) \r
0022160 \r 006
0022200 006 ( * T f l a g m e a n s
0022220 t h a t t h e f u n c t i
0022240 o n w o n ' t b e e r a s
0022260 e d - - i t m i g h t s t i
0022300 l l b e \r 006 001
0022320 006 006 i n t e r e s t i n g
0022340 ) 006 001 \r \r
0022360 (
0022400 p r i n t o u t N I L " F N
0022420 S " | . P 2 | F F N S T
0022440 ) \r \r
0022460 006 006 ( * S o t
0022500 h e d a t a b a s e f i l e
0022520 k n o w s w h i c h f u n
0022540 c t i o n s a r e o n t h
0022560 e f i l e ) 006 001 \r \r
0022600
0022620 ( C O N D \r
0022640
0022660 ( F N S ( D U
0022700 M P D A T A B A S E F N S ) )
0022720 \r
0022740 ( T
0022760 ( p r i n t o u t N I L "
0023000 S T O P " T ] \r
0023020 [ C O N
0023040 D \r
0023060 ( P R O P F L G
0023100 ( P R I N T ( F U L L N A M
0023120 E D B F I L E ) \r
0023140
*
0023200 T ) ) \r
0023220 ( T ( / P
0023240 U T F L ' D A T A B A S E F
0023260 I L E N A M E D B F I L E )
0023300 006 006 ( * R e m e m b e r t
0023320 h a t w e h a v e t h i s
0023340 f i l e \r 006 001
0023360
*
0023440 006 006 v a l i d a l
0023460 r e a d y . ) 006 001 \r
0023500
0023520 ( / P U T F L ' D A T
0023540 A B A S E ' Y E S ] \r
0023560 \r
0023600 006 006 ( * T a k e f u t u r
0023620 e n o t e o f t h e d a
0023640 t a b a e o n a u s e r
0023660 c a l l ) 006 001 \r \r
0023700 ( R E T
0023720 U R N ( F U L L N A M E D B
0023740 F I L E ] ) \r \r ( 006 004 L O A D D
0023760 B 006 001 \r [ L A M B D A ( F
0024000 I L E A S K F L A G ) 006 006 006 001
0024020
*
0024060 006 006 ( * ; " E d i
0024100 t e d 2 - D e c - 8 6 0 8
0024120 : 0 1 b y j d s " ) 006 001 \r
0024140 \r
0024160 006 006 ( * L o a d s t
0024200 h e d a t a b a s e f i l e
0024220 c o r r e s p o n d i n g t
0024240 o F I L E , a s k i n g f
0024260 o r c o n f i r m a t i o n
0024300 o n l y \r 006 001
0024320 006 006 i f A S K F L A G i
0024340 s T , w h i c h i s t h
0024360 e c a s e f r o m t h e
0024400 a d v i c e o n L O A D b
0024420 u t n o t f r o m u s u a
0024440 l \r 006 001 006
0024460 006 u s e r - l e v e l c a l l
0024500 s . B e f o r e a s k i n g
0024520 , i t l o o k s a r o u n
0024540 d f i r s t t o s e e w
0024560 h e t h e r a \r 006 001
0024600 006 006 d a t a b a s e
0024620 f i l e o f t h e a p p
0024640 r o p r i a t e n a m e r e
0024660 a l l y e x i s t s . ) 006 001 \r
0024700 \r ( 006 002 D E C L A R E 006
0024720 001 ( G L O B A L V A R S M S
0024740 H A S H F I L E N A M E M S F
0024760 I L E T A B L E M S A R G T A
0025000 B L E D W I M W A I T F I L
0025020 E R D T B L L O A D D B F L G
0025040 ) ) \r ( R E S E T L S T
0025060 ( P R O G * [ T E M N E W
0025100 F N S F O R F I L E ( N F
0025120 ( N A M E F I E L D F I L E )
0025140 ) \r
0025160 ( D B S
0025200 T R E A M ( 006 002 D B F I L E 006
0025220 001 F I L E A S K F L A G ) )
0025240 \r
0025260 ( 006 002 D B
0025300 F I L E 006 001 ( F U L L N A M E
0025320 ( C A R D B S T R E A M ] \r
0025340
0025360 ( C O N D \r
0025400
0025420 ( D B S T R E A M ( S E
0025440 T Q F O R F I L E ( C D R
0025460 D B S T R E A M ) ) \r
0025500
0025520 ( S E T Q
0025540 D B S T R E A M ( C A R D B
0025560 S T R E A M ) ) ) \r
0025600
0025620 ( T ( C O N D \r
0025640
0025660 ( ( N U L L
0025700 A S K F L A G ) \r
0025720
0025740 ( p r i n t o u
0025760 t T " n o d a t a b a s e
0026000 f i l e f o u n d f o r
0026020 " N F T ) ) ) \r
0026040
0026060 ( R E T U R N ) ) ) \r
0026100
0026120 ( C O N D \r
0026140
0026160 ( [ C O N D \r
0026200
0026220 [ A S K F L A G (
0026240 C O N D \r
0026260
0026300 ( ( E
0026320 Q ( G E T P R O P N F ' D
0026340 A T A B A S E F I L E N A M E )
0026360 \r
0026400
0026420 D B
0026440 F I L E ) \r
0026460 \r 006 006 ( *
0026500 I f t h e d a t a b a s e
0026520 f o r t h i s v e r y f i
0026540 l e h a s a l r e a d y b
0026560 e e n l o a d e d , d o n '
0026600 t b o t h e r \r 006 001
0026620 006 006 d o i n g i t
0026640 a g a i n . ) 006 001 \r \r
0026660
*
0026720 ( p r i n t o u t T
0026740 " D a t a b a s e " D B F
0026760 I L E " a l r e a d y l o
0027000 a d e d . " T ) \r
0027020
*
0027060 N I L ) \r
0027100
*
0027140 ( T ( S E L E C T Q ( G E T
0027160 P R O P N F ' D A T A B A S
0027200 E ) \r
0027220
*
0027260 ( Y E S T ) \r
0027300
*
0027340 ( N O N I L
0027360 ) \r
0027400
*
0027440 ( S E L E C T Q L O A D D B
0027460 F L G \r
0027500
*
0027540 ( Y E S ( / P U
0027560 T N F ' D A T A B A S E '
0027600 Y E S ) ) \r
0027620
*
0027660 ( N O ( / P
0027700 U T N F ' D A T A B A S E
0027720 ' N O N E ) \r
0027740
*
0030000 N I
0030020 L ) \r
0030040
*
0030100 ( O R ( A N D M
0030120 S F I L E T A B L E ( T E S T
0030140 T A B L E N F ( C A D R \r
0030160
*
0030300 M S F I L E
0030320 T A B L E \r
0030340
*
0030460 ) ) ) \r
0030500
*
0030540 ( C O
0030560 N D \r
0030600
*
0030640 ( ( E
0030660 Q ( A S K U S E R D W I M W
0030700 A I T ' Y ( L I S T \r
0030720
*
0031040 " l o a d d a t a b a s e f
0031060 o r " \r
0031100
*
0031200 N
0031220 F ) ) \r
0031240
*
0031320 ' Y ) \r
0031340
*
0031420 ( / P U T N F ' D A T A
0031440 B A S E ' Y E S ) ) \r
0031460
*
0031540 ( T ( / P U T N
0031560 F ' D A T A B A S E ' N O )
0031600 \r
0031620
*
0031660 N I
0031700 L ] \r
0031720 (
0031740 T ( / P U T N F ' D A T A
0031760 B A S E ' Y E S ] \r
0032000
0032020 ( L I S P X P R I N T
0032040 ( F U L L N A M E D B F I L E
0032060 ) \r
0032100
0032120 T )
0032140 006
0032160 006 ( * D B S T R E A M w a s
0032200 o p e n e d i n D B F I L
0032220 E ) 006 001 \r
0032240 ( R
0032260 E S E T S A V E ( I N P U T
0032300 D B S T R E A M ) ) \r
0032320
0032340 [ C O N D \r
0032360
0032400 ( ( E Q ( S E T Q
0032420 T E M ( R E A D N I L F
0032440 I L E R D T B L ) ) \r
0032460
0032500 ' F N S
0032520 ) \r
0032540 (
0032560 S E T Q N E W F N S ( R E A
0032600 D N I L F I L E R D T B L )
0032620 ) \r
0032640 (
0032660 C O N D \r
0032700
0032720 ( ( E Q ( S E T Q
0032740 T E M ( R E A D N I L F I
0032760 L E R D T B L ) ) \r
0033000
0033020 '
0033040 A R G S ) \r
0033060
0033100 [ C O N D \r
0033120
*
0033160 [ M S H A S H F I L E N A M E
0033200 ( 006 002 b i n d 006 001 F 006 002 w
0033220 h i l e 006 001 ( S E T Q F (
0033240 R E A D N I L F I L E R D T
0033260 B L ) ) \r
0033300
*
0033340 006 002 d o
0033360 006 001 ( S T O R E T A B L E F
0033400 M S A R G T A B L E ( R E A
0033420 D N I L \r
0033440
*
0033560 F I L E R D T B L ] \r
0033600
0033620 (
0033640 T ( 006 002 w h i l e 006 001 ( R E
0033660 A D N I L F I L E R D T B L
0033700 ] \r
0033720
0033740 ( S E T Q T E M ( R E
0033760 A D N I L F I L E R D T B L
0034000 ] \r
0034020 ( C O N D
0034040 \r
0034060 ( ( O
0034100 R ( E Q ( C A R ( L I S T
0034120 P T E M ) ) \r
0034140
0034160 ' R E
0034200 A D A T A B A S E ) \r
0034220
0034240 ( E Q
0034260 T E M ' S T O P ) ) \r
0034300
0034320 ( C O N D \r
0034340
0034360 (
0034400 ( N E Q T E M ' S T O P )
0034420 006 006 ( *
0034440 I t m u s t b e ( R E A
0034460 D A T A B A S E ) ) 006 001 \r
0034500
0034520 ( R
0034540 E A D A T A B A S E ) ) ) \r
0034560
0034600 ( C O N D
0034620 \r
0034640
0034660 ( M S H A S H F I L E N A M E
0034700 ( U P D A T E C O N T A I N S
0034720 N F N E W F N S ) ) ) \r
0034740
0034760 ( A N D
0035000 M S F I L E T A B L E ( S T O
0035020 R E T A B L E N F M S F I L
0035040 E T A B L E F O R F I L E ) )
0035060 \r \r
0035100 006 006 ( * T h i s
0035120 i s d o n e w h e t h e r
0035140 o r n o t t h e r e i s
0035160 a h a s h f i l e . ) 006 001 \r \r
0035200
0035220 ( U P
0035240 D A T E F I L E S )
0035260 006 006 (
0035300 * M a r k a n y e d i t e
0035320 d f n s a s n e e d i n g
0035340 t o \r 006 001
0035360
*
0035440 006 006 b e r e a n a l y
0035460 z e d . ) 006 001 \r
0035500
0035520 ( 006 002 f o r 006 001 F N
0035540 006 002 i n 006 001 ( C D R ( G E
0035560 T P N F ' F I L E ) ) 006 002
0035600 w h e n 006 001 ( O R ( E X P R
0035620 P F N ) \r
0035640
*
0035720 ( G E
0035740 T P F N ' E X P R ) ) \r
0035760
0036000 006 002
0036020 d o 006 001 ( M S M A R K C H A N
0036040 G E D F N ) ) ) \r
0036060
0036100 ( T ( p r i n t o
0036120 u t T T D B F I L E "
0036140 i s n o t a d a t a b a s
0036160 e f i l e ! " T ) \r
0036200
*
0036260 006 006 ( * S o
0036300 t h a t v a l u e o f L
0036320 O A D D B i s N I L ) 006 001 \r
0036340
0036360 (
0036400 S E T Q D B F I L E N I L )
0036420 ) ) \r
0036440 ( / P U
0036460 T N F ' D A T A B A S E F I
0036500 L E N A M E D B F I L E )
0036520 006 006 ( * R e m e m b e r t h
0036540 e n a m e o f t h e d a
0036560 t a b a s e \r 006 001
0036600
*
0036660 006 006 w e j u s t
0036700 l o a d e d . ) 006 001 \r
0036720
0036740 ( R E T U R N ( F U
0036760 L L N A M E D B F I L E ] ) \r
0037000 \r ( 006 004 M A K E D B 006 001 \r [
0037020 L A M B D A ( F )
0037040
*
0037100 006 006 ( * D
0037120 E C L A R A T I O N S % : U N
0037140 D O A B L E ) 006 001 \r
0037160
*
0037240 006 006 ( * r m k %
0037260 : " 9 - N O V - 8 3 0 2 :
0037300 5 6 " ) 006 001 \r ( 006 002 D E
0037320 C L A R E 006 001 ( G L O B A L V
0037340 A R S S A V E D B F L G M S
0037360 F I L E T A B L E D W I M W A
0037400 I T ) ) \r ( S E T Q F
0037420 ( N A M E F I E L D F ) ) \r
0037440 \r
0037460 006 006 ( * T h e e x
0037500 t e n s i o n i s s t r i p
0037520 p e d o f f f o r p u r p
0037540 o s e s o f t h e D A T A
0037560 B A S E . \r 006 001
0037600 006 006 T h i s m a p s c o
0037620 m p i l e d f i l e s i n t
0037640 o t h e r o o t n a m e ,
0037660 b u t m e a n s t h a t
0037700 w e c a n ' t h a v e \r 006
0037720 001 006 006 m u l
0037740 t i p l e - e x t e n s i o n
0037760 f i l e s w i t h d i f f e
0040000 r e n t d a t a b a s e s t
0040020 a t u s ) 006 001 \r \r ( C O
0040040 N D \r ( ( I N F I
0040060 L E C O M S ? T ' F N S (
0040100 F I L E C O M S F ) ) \r
0040120 ( O R ( F M E M B
0040140 ( G E T P R O P F ' D A T A
0040160 B A S E ) \r
0040200 ' ( Y E S N
0040220 O ) ) \r
0040240 ( F M E M B S A V E D B F L G
0040260 ' ( Y E S N O ) ) \r
0040300 ( A N D M S F
0040320 I L E T A B L E ( T E S T T A
0040340 B L E F ( C A D R M S F I
0040360 L E T A B L E ) ) ) \r
0040400 ( / P U T F '
0040420 D A T A B A S E ( C O N D \r
0040440
*
0040500 ( ( E Q ' Y ( A S K U S E R
0040520 D W I M W A I T ' N \r
0040540
*
0040600 " D
0040620 o y o u w a n t a M a s
0040640 t e r s c o p e D a t a b a s
0040660 e f o r t h i s f i l e ?
0040700 " ) \r
0040720
0040740 ) \r
0040760
0041000 ' Y
0041020 E S ) \r
0041040
0041060 ( T ' N O ] ) \r ) \r
0041100 \r ( P U T P R O P S 006 002 D A T
0041120 A B A S E P R O P T Y P E 006 001
0041140 I G N O R E ) \r \r ( R P A Q ?
0041160 006 002 L O A D D B F L G 006 001 '
0041200 A S K ) \r \r ( R P A Q ? 006 002 S
0041220 A V E D B F L G 006 001 ' A S K )
0041240 \r \r ( A D D T O V A R 006 002 M A
0041260 K E F I L E F O R M S 006 001 ( M
0041300 A K E D B F I L E ) ) \r \r \r \r
0041320 006 004 ( * T o p e r m i t M
0041340 S H A S H i n t e r f a c e )
0041360 006 001 \r \r \r ( R P A Q ? 006 002 M S
0041400 H A S H F I L E N A M E 006 001 )
0041420 \r \r ( R P A Q ? 006 002 M S F I L
0041440 E T A B L E 006 001 ) \r ( D E C L
0041460 A R E % : D O E V A L @ C O M
0041500 P I L E D O N T C O P Y \r \r (
0041520 L O C A L V A R S . T ) \r )
0041540 \r ( D E C L A R E % : D O N T
0041560 E V A L @ L O A D D O E V A L
0041600 @ C O M P I L E D O N T C O P
0041620 Y \r ( B L O C K % : L O A D D
0041640 B L O A D D B D B F I L E
0041660 D B F I L E 1 D B F I L E 2
0041700 ( N O L I N K F N S . T ) )
0041720 \r ) \r ( D E C L A R E % : E V
0041740 A L @ C O M P I L E D O N T C
0041760 O P Y \r ( R E S E T S A V E
0042000 D W I M I F Y C O M P F L G T
0042020 ) \r ) \r ( P U T P R O P S D A
0042040 T A B A S E F N S C O P Y R I
0042060 G H T ( " X e r o x C o r p
0042100 o r a t i o n " 1 9 8 6 ) ) \r
0042120 ( D E C L A R E % : D O N T C
0042140 O P Y \r ( F I L E M A P (
0042160 N I L ( 1 9 1 9 6 4 2 7 (
0042200 D B F I L E 1 9 2 9 . 3 5
0042220 7 7 ) ( D B F I L E 1 3 5 7
0042240 9 . 5 1 0 2 ) ( D B F I L
0042260 E 2 5 1 0 4 . 5 7 9 3 )
0042300 ( L O A D 5 7 9 5 \r . 6 0
0042320 2 5 ) ( L O A D F R O M 6 0
0042340 2 7 . 6 2 1 5 ) ( M A K E
0042360 F I L E 6 2 1 7 . 6 4 2 5
0042400 ) ) ( 6 4 8 2 1 6 9 5 9 (
0042420 D U M P D B 6 4 9 2 . 1 0
0042440 2 1 4 ) ( L O A D D B \r 1 0
0042460 2 1 6 . 1 5 8 7 1 ) ( M A
0042500 K E D B 1 5 8 7 3 . 1 6 9
0042520 5 7 ) ) ) ) ) \r S T O P \r
0042535