$ od -c -N 50000 [eris]<Lisp>JCAI>library>MAKEDATABASE.DCOM!1
0000000 ( F I L E C R E A T E D " 2 3
0000020 - J a n - 8 5 1 1 : 4 8 : 4 0
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > M A K E D A
0000120 T A B A S E . ; 2 0 ) \r " 2 0
0000140 - D e c - 8 4 1 2 : 0 7 : 2 2
0000160 " r e c o m p i l e d c h a
0000200 n g e s : \ M D B . C O N T I
0000220 N U E i n " I N T E R L I S
0000240 P - D 1 0 - J a n - 8 5 . .
0000260 . " d a t e d \r " 1 0 - J a
0000300 n - 8 5 1 3 : 2 8 : 5 5 " ) \r
0000320 ( F I L E C R E A T E D " 2 3
0000340 - J a n - 8 5 1 1 : 4 7 : 5 0
0000360 " { E R I S } < L I S P C O R
0000400 E > L I B R A R Y > M A K E D A
0000420 T A B A S E . ; 2 0 1 2 9 9 8
0000440 c h a n g e s t o : ( F N
0000460 S \r \ M D B . C O N T I N U E
0000500 ) p r e v i o u s d a t e :
0000520 " 2 1 - J a n - 8 5 1 4 : 5
0000540 7 : 2 3 " { E R I S } < L I S
0000560 P C O R E > L I B R A R Y > M A
0000600 K E D A T A B A S E . ; 1 9 ) \r
0000620 S T A R T M A K I N G D A T A B
0000640 A S E D 1 \r ( L ( 3 M O D
0000660 E 2 C O N S C O U N T L I M
0000700 I T 1 O U T P U T F I L E N
0000720 A M E 0 F I L E S L S T )
0000740 P 1 A L L S Y S P P 0
0000760 S Y S P F 4 S Y S F I L E
0001000 S F 5 M S H A S H F I L E
0001020 F 6 M S H A S H F I L E N
0001040 A M E ) 001 036 004 003 \0 004 021 @ 003 B d
0001060 005 001 241 005 002 246 o \0 \0 \0 b 004 277 C 265 \t
0001100 g \0 \0 b 006 260 025 g \0 \0 360 256 C g \0 \0
0001120 360 250 o \0 \0 \0 C \n \0 \0 277 @ 265 024 T b
0001140 \0 277 i X Y 260 ' d Z 001 J \n \0 \0 244 002
0001160 003 265 366 h 262 027 i 270 @ 210 d [ 001 K \n \0
0001200 \0 225 002 003 265 366 i 201 277 h 271 H 262 035 g \0
0001220 \0 g \0 \0 033 003 231 g \0 \0 g \0 \0 \n \0 \0
0001240 247 o \0 \0 \0 \t \0 \0 277 A 257 I 225 g \0 \0
0001260 b 002 206 o \0 \0 \0 \t \0 \0 277 C d g \0 \0
0001300 360 262 5 277 A g \0 \0 \n \0 \0 277 U 027 \0 \0
0001320 277 g \0 \0 h g \0 \0 V \f \0 \0 g \0 \0 h
0001340 g \0 \0 A \f \0 \0 360 247 o \0 \0 \0 \t \0 \0
0001360 277 \b \0 \0 260 5 g \0 \0 360 262 , A g \0 \0
0001400 g \0 \0 \v \0 \0 027 \0 \0 \t \0 \0 277 o \0 \0
0001420 \0 ` \0 \0 \n \0 \0 277 ` \0 \0 \t \0 \0 277 `
0001440 \0 \0 \t \0 \0 202 \b \0 \0 277 @ C d g \0 \0
0001460 360 222 277 A 213 g \0 \0 360 223 ` \0 \0 202 \b \0
0001500 \0 B C \f \0 \0 h 020 \0 ( 4 3 2 Q C
0001520 O N T I N U E M A K I N G D A T
0001540 A B A S E 4 2 5 Q N I L L
0001560 3 7 5 Q N I L L 3 7 1 Q C
0001600 L O S E F 3 6 2 Q T E R P R
0001620 I 3 5 3 Q P R I N 1 3 4 0
0001640 Q T E R P R I 3 3 2 Q O P
0001660 E N F I L E 3 1 0 Q S E T D
0001700 B 3 0 4 Q E R R O R 2 7 3
0001720 Q P A C K F I L E N A M E 2
0001740 6 0 Q P A C K F I L E N A M E
0001760 2 3 7 Q S E T D B 2 1 6 Q
0002000 H E L P 1 7 4 Q H E L P
0002020 1 6 4 Q H A S D E F 1 2 5 Q
0002040 \ S Y S F I L E P 1 0 2 Q
0002060 \ S Y S F I L E P 5 6 Q E R
0002100 R O R ) \r ( 4 2 1 Q D A T A B
0002120 A S E . O U T P U T . F I L E
0002140 4 1 4 Q T E X T 4 0 4 Q H
0002160 A S H F I L E 3 6 6 Q D A T
0002200 A B A S E . O U T P U T . F I L
0002220 E 3 5 7 Q D A T A B A S E .
0002240 O U T P U T . F I L E 3 5 0 Q
0002260 D A T A B A S E . O U T P U T
0002300 . F I L E 3 3 5 Q D A T A B
0002320 A S E . O U T P U T . F I L E
0002340 3 2 7 Q N E W 3 2 4 Q O U
0002360 T P U T 3 1 5 Q T E X T 2
0002400 6 7 Q B O D Y 2 6 3 Q V E
0002420 R S I O N 2 5 4 Q B O D Y
0002440 2 5 0 Q V E R S I O N 2 4 4
0002460 Q D A T A B A S E . O U T P U
0002500 T . F I L E 2 3 4 Q C R E A
0002520 T E 2 2 4 Q H A S H F I L E
0002540 2 0 4 Q { E R I S } < L I S
0002560 P C O R E > S O U R C E S > S Y
0002600 S T E M . D A T A B A S E 1 6
0002620 1 Q M A C R O S 1 5 6 Q \
0002640 M A C R O . M X 1 5 0 Q F I
0002660 L E D A T E S 1 4 5 Q A B C
0002700 4 4 Q T E X T 3 6 Q H A
0002720 S H F I L E 2 7 Q H A S H F
0002740 I L E ) \r ( 3 4 5 Q " S T O
0002760 P " 3 0 1 Q " M S H A S H
0003000 a n d M A K E D A T A B A
0003020 S E d o n ' t a g r e e o
0003040 n t h e o u t p u t f i l e
0003060 n a m e " 2 1 3 Q " N o n
0003100 a m e " 1 7 1 Q " D i d y
0003120 o u k n o w t h a t A B C
0003140 m u s t b e l o a d e d
0003160 t o d o t h i s ? " 5 2 Q
0003200 " U n k n o w n m o d e f
0003220 o r S T A R T M A K I N G D A
0003240 T A B A S E : " 1 6 Q 7 5
0003260 0 2 2 0 Q ) \r C O N T I N U E M
0003300 A K I N G D A T A B A S E D 1
0003320 \r ( L ( 3 M O D E 2 I N
0003340 C R E M E N T A L C O N S C O U
0003360 N T 1 O U T P U T F I L E N
0003400 A M E 0 F I L E S L S T )
0003420 P 0 A S S I G N D A T A T Y
0003440 P E . A S K U S E R W A I T )
0003460 \0 7 001 \0 \0 004 @ 244 o \0 \0 \0 205 A 247 o
0003500 \0 \0 \0 \t \0 \0 277 B d 005 001 241 005 002 264 \r
0003520 n 003 350 B 361 241 B 202 n 003 350 b 004 277 l 002
0003540 021 001 \0 @ A B C \f \0 \0 h 020 \0 ( 6 3
0003560 Q \ M D B . C O N T I N U E
0003600 1 7 Q H E L P ) \r N I L \r (
0003620 1 4 Q " M u s t h a v e a
0003640 n a m e f o r t h e d a
0003660 t a b a s e o u t p u t f i
0003700 l e " 5 " M u s t s p e c
0003720 i f y s o m e f i l e s t
0003740 o a n a l y z e " ) \r \ M D B
0003760 . C O N T I N U E A 0 0 0 1 A 0
0004000 0 0 3 D 1 \r ( N A M E E R R
0004020 O R S E T F 0 P O S F
0004040 1 F I L E S L S T F 2 R
0004060 O O T F I L E N A M E ) \0 024 \0
0004100 003 002 \0 P g \0 \0 Q 001 h 032 \v \0 \0 \t \0
0004120 \0 c 004 h 032 020 \0 ( 1 5 Q R O O T
0004140 F I L E N A M E 1 2 Q S T K
0004160 A P P L Y ) \r ( 3 L O A D F R
0004200 O M ) \r ( ) \r \ M D B . C O N T
0004220 I N U E A 0 0 0 1 A 0 0 0 4 D
0004240 1 \r ( N A M E E R R O R S E T
0004260 F 0 R O O T F I L E N A M
0004300 E ) \0 \t \0 001 002 \0 P i \n \0 \0 h 032
0004320 020 \0 ( 4 A N A L Y Z E F I L E
0004340 S ) \r N I L \r ( ) \r \ M D B . C
0004360 O N T I N U E A 0 0 0 1 D 1 \r
0004400 ( N A M E E R R O R S E T L
0004420 ( 0 N I L ) P 1 7 Q X
0004440 P 1 6 Q \ I N T E R R U P
0004460 T A B L E P 1 5 Q K E Y 2
0004500 P 1 4 Q K E Y 1 P 1 3
0004520 Q K E Y 2 P 1 2 Q H A S
0004540 H F I L E P 1 1 Q K E Y
0004560 P 7 T E M P 6 F P
0004600 5 I P 4 C R S T R P
0004620 3 L O S E R L I N E P 2
0004640 A L L S Y S P P 1 S Y S P
0004660 F 2 0 Q F I L E S L S T
0004700 F 2 1 Q M O D E F 2 2 Q
0004720 R E S E T V A R S L S T F
0004740 2 3 Q L O S E R E A S O N F
0004760 2 4 Q R O O T F I L E N A M
0005000 E F 2 5 Q R O O T F I L E
0005020 S F 2 6 Q O U T P U T F I
0005040 L E N A M E F 2 7 Q I N C
0005060 R E M E N T A L C O N S C O U N
0005100 T F 3 0 Q M S H A S H F I
0005120 L E F 3 1 Q R E S E T Y )
0005140 002 L 020 \n 002 \0 W 214 d 021 001 \0 H 001
0005160 H \n \0 \0 022 244 002 003 265 362 h W 214 d 021
0005200 001 \0 H 001 H \n \0 \0 022 225 002 003 265 362 i 201
0005220 277 h o \0 \0 \0 o \0 \0 \0 021 D \b I 262 035
0005240 g \0 \0 g \0 \0 033 003 231 g \0 \0 g \0 \0 \n
0005260 \0 \0 247 o \0 \0 \0 \t \0 \0 277 W 027 \0 \0
0005300 277 o \0 \0 \0 W " d g \0 \0 360 235 277 W ,
0005320 g \0 \0 \n \0 \0 277 W 0 260 034 g \0 \0 360 233
0005340 W , g \0 \0 g \0 \0 \v \0 \0 210 o \0 \0 \0
0005360 W " \n \0 \0 027 \0 \0 h 032 032 W $ 032 c $
0005400 277 g \0 \0 d \t \0 \0 032 g \0 \0 j \n \0 \0
0005420 277 W $ 032 c $ 277 W " d g \0 \0 360 263 >
0005440 g \0 \0 360 262 / ` \0 \0 o \0 \0 \0 ` \0 \0
0005460 d \t \0 \0 l \n 331 _ 020 277 j O 020 361 242 O
0005500 020 200 j \v \0 \0 265 \t o \0 \0 \0 \t \0 \0 \n
0005520 \0 \0 210 o \0 \0 \0 W " \n \0 \0 277 \b \0 \0
0005540 277 W " g \0 \0 360 262 026 g \0 \0 ` \0 \0 \t
0005560 \0 \0 h 032 032 h 032 W $ 032 c $ 277 g \0 \0
0005600 c & 277 W 001 \t \0 \0 c ( 277 o \0 \0 \0
0005620 \t \0 \0 003 262 025 g \0 \0 c & 277 o \0 \0 \0
0005640 \t \0 \0 003 223 h c & 277 W 002 c 277 W
0005660 * W & 262 031 L K L o \0 \0 \0 W & o \0
0005700 \0 \0 W ( L K L \r \n \0 \0 201 W ( \n \0
0005720 \0 277 W 262 023 W . 242 261 \0 311 \b \0 \0 W
0005740 . 375 361 222 261 \0 276 W " d g \0 \0 360 262 E
0005760 277 g \0 \0 W * g \0 \0 ` \0 \0 021 022 \v O
0006000 022 O 026 021 002 \r O 032 242 O 030 211 O 030 ` \0
0006020 \0 O 032 \v \0 \0 022 h O 024 g \0 \0 \f \0 \0
0006040 022 \n \0 \0 ` \0 \0 \v \0 \0 277 ` \0 \0 \t \0
0006060 \0 260 l g \0 \0 360 262 c 021 020 016 \b \0 \0 277
0006100 \b \0 \0 277 o \0 \0 \0 \t \0 \0 277 W * 001 260
0006120 023 d 001 021 001 017 O 036 \t \0 \0 277 k \t \0 \0
0006140 023 002 003 265 356 o \0 \0 \0 \t \0 \0 277 \b \0 \0
0006160 277 \b \0 \0 277 \b \0 \0 277 h d \t \0 \0 h \t
0006200 \0 \0 277 h \t \0 \0 277 o \0 \0 \0 \t \0 \0 277
0006220 h \t \0 \0 277 \n \0 \0 023 203 \b \0 \0 277 \b \0
0006240 \0 277 W 264 005 261 376 327 \t \0 \0 023 h c 2
0006260 i 020 \0 ( 1 1 0 4 Q C L O S E F
0006300 1 0 7 1 Q \ M D B . C L E A
0006320 R O U T 1 0 6 5 Q N I L L
0006340 1 0 6 0 Q S E T F I L E P T R
0006360 1 0 5 4 Q T E R P R I 1 0
0006400 4 7 Q P R I N 1 1 0 3 7 Q
0006420 T E R P R I 1 0 3 2 Q T E R
0006440 P R I 1 0 2 6 Q G E T F I L
0006460 E P T R 1 0 2 0 Q T E R P R
0006500 I 1 0 1 4 Q D U M P D A T A
0006520 B A S E 1 0 1 0 Q T E R P R
0006540 I 1 0 0 4 Q P R I N 1 7 7
0006560 0 Q S P A C E S 7 6 3 Q P
0006600 R I N 2 7 4 3 Q P R I N 1
0006620 7 3 3 Q T E R P R I 7 2 7 Q
0006640 T E R P R I 7 1 1 Q F L U
0006660 S H D B 7 0 2 Q P U T H A S
0006700 H F I L E 6 7 4 Q \ A P P E
0006720 N D 2 6 7 0 Q L O O K U P H
0006740 A S H F I L E 6 5 6 Q P A C
0006760 K * 5 6 7 Q C O N S C O U N
0007000 T 5 5 1 Q T C O N C 5 4 3
0007020 Q C O N C A T 4 7 3 Q \ M
0007040 D B . C O N T I N U E A 0 0 0 1
0007060 A 0 0 0 4 4 5 3 Q \ M D B .
0007100 C O N T I N U E A 0 0 0 1 A 0 0
0007120 0 3 4 4 1 Q R O O T F I L E
0007140 N A M E 4 1 2 Q O U T P U T
0007160 3 7 0 Q \ M D B . C L E A R
0007200 O U T 3 6 4 Q E R R O R 3
0007220 5 2 Q S E T F I L E P T R 3
0007240 4 7 Q H E L P 3 3 6 Q F I
0007260 L E P O S 3 1 4 Q G E T E O
0007300 F P T R 2 5 0 Q S E T T O P
0007320 V A L 2 4 0 Q G E T T O P V
0007340 A L 2 1 5 Q E R R O R 2 0
0007360 3 Q O P E N F I L E 1 5 6 Q
0007400 S E T D B 1 2 2 Q H E L P
0007420 1 1 2 Q H A S D E F 4 0 Q
0007440 \ S Y S F I L E P 1 4 Q \
0007460 S Y S F I L E P ) \r ( 7 1 6 Q
0007500 T E X T 7 0 6 Q D A T A B A
0007520 S E . O U T P U T . F I L E 6
0007540 7 7 Q D A T A B A S E . O U T
0007560 P U T . F I L E 6 6 5 Q R E
0007600 T R I E V E 6 5 1 Q H A S H
0007620 T E X T C H A R 6 2 4 Q D A
0007640 T A B A S E . O U T P U T . F I
0007660 L E 6 2 1 Q A N A L Y Z E D
0007700 . F I L E S 6 1 4 Q A N A L
0007720 Y Z E D . F I L E S 6 0 5 Q
0007740 H A S H F I L E 4 6 1 Q A N
0007760 A L Y Z E 4 3 0 Q L O A D F
0010000 R O M 4 0 7 Q D A T A B A S
0010020 E . O U T P U T . F I L E 4 0
0010040 4 Q O U T P U T 3 7 6 Q T
0010060 E X T 3 1 0 Q D A T A B A S
0010100 E . O U T P U T . F I L E 3 0
0010120 1 Q D A T A B A S E . O U T P
0010140 U T . F I L E 2 7 3 Q T E X
0010160 T 2 6 5 Q H A S H F I L E
0010200 2 4 4 Q P A G E . W A I T . S
0010220 E C O N D S 2 3 4 Q P A G E
0010240 . W A I T . S E C O N D S 2 2
0010260 0 Q D A T A B A S E . O U T P
0010300 U T . F I L E 2 0 0 Q O L D
0010320 1 7 5 Q B O T H 1 6 6 Q
0010340 T E X T 1 5 3 Q B O T H 1
0010360 4 3 Q H A S H F I L E 1 3 0
0010400 Q R E M A I N I N G . F I L E
0010420 S . T O . A N A L Y Z E 1 0 7
0010440 Q M A C R O S 1 0 4 Q \ M
0010460 A C R O . M X 7 6 Q F I L E
0010500 D A T E S 7 3 Q A B C ) \r (
0010520 1 0 4 4 Q " S T O P " 1
0010540 0 0 1 Q " ) " 7 4 0 Q "
0010560 ( * f i l e s a n a l y z e
0010600 d : " 5 3 2 Q " o n "
0010620 5 2 4 Q " F a i l e d t o
0010640 " 4 7 0 Q ( \ M D B . C O N
0010660 T I N U E A 0 0 0 1 A 0 0 0 4 )
0010700 4 5 0 Q ( \ M D B . C O N T
0010720 I N U E A 0 0 0 1 A 0 0 0 3 )
0010740 3 5 7 Q " B a d m o d e i
0010760 n \ M D B . C O N T I N U E :
0011000 " 3 4 4 Q " F i l e d o
0011020 e s n ' t h a v e S T O P "
0011040 3 0 5 Q " S T O P " 2 1 0
0011060 Q " B a d m o d e i n \
0011100 M D B . C O N T I N U E : "
0011120 1 3 5 Q ( P R O G N ( S E L
0011140 E C T Q M O D E ( H A S H F
0011160 I L E ( S E T D B ) ) ( T E
0011200 X T ( C L O S E F ? O L D V
0011220 A L U E ) ) ( E R R O R " B
0011240 a d m o d e i n \ M D B .
0011260 C O N T I N U E : " M O D E
0011300 ) ) ) 1 1 7 Q " D i d y o
0011320 u k n o w t h a t A B C
0011340 m u s t b e l o a d e d t
0011360 o d o t h i s ? " 6 2 Q
0011400 " \r " 5 6 Q " # # # # # # #
0011420 # # # # # # # # # # # # # # # #
*
0011500 # # # # # # # # # " ) \r \ M D B
0011520 . C O N T I N U E D 1 \r ( P
0011540 6 R E S E T Z P 5 R E S
0011560 E T Y P 4 L I S P X H I S
0011600 T P 3 L O S E R E A S O N
0011620 P 2 R O O T F I L E S P
0011640 1 R O O T F I L E N A M E
0011660 P 0 P O S I 3 M O D E
0011700 I 2 I N C R E M E N T A L
0011720 C O N S C O U N T I 1 O U
0011740 T P U T F I L E N A M E I 0
0011760 F I L E S L S T F 7 L I
0012000 S P X H I S T F 1 0 Q R E
0012020 S E T V A R S L S T ) \0 0 \a 002
0012040 \0 004 m 377 g \0 \0 \n \0 \0 021 1 003 W 016 021
0012060 ! 006 W 020 o \0 \0 \0 g \0 \0 \n \0 \0 221 h
0012100 202 g \0 \0 ^ \n \0 \0 277 N 264 006 \b \0 \0 h
0012120 020 \0 ( 5 4 Q E R R O R ! 4 5
0012140 Q R E S E T R E S T O R E 3
0012160 3 Q \ M D B . C O N T I N U E
0012200 A 0 0 0 1 7 S T K N T H ) \r
0012220 ( 4 1 Q E R R O R 3 0 Q I
0012240 N T E R N A L 4 \ M D B . C
0012260 O N T I N U E ) \r ( 2 5 Q (
0012300 \ M D B . C O N T I N U E A 0 0
0012320 0 1 ) ) \r \ M D B . C L E A R O
0012340 U T D 1 \r ( F 0 F I L E S
0012360 L S T F 1 C L I S P A R R
0012400 A Y F 2 R O O T F I L E S
0012420 ) \0 ( \0 003 \0 \0 P 027 \0 \0 o \0 \0 \0
0012440 \t \0 \0 Q \t \0 \0 l \n d j 361 264 \n \b \0
0012460 \0 277 k 331 260 365 h 032 c 004 j \t \0 \0 020 \0
0012500 ( 4 5 Q C O N S C O U N T 3
0012520 0 Q R E C L A I M 1 6 Q C
0012540 L R H A S H 1 2 Q % . ) \r (
0012560 3 R E M A I N I N G . F I L E
0012600 S . T O . A N A L Y Z E ) \r (
0012620 7 ( E R A S E ) ) \r \ S Y S F
0012640 I L E P A 0 0 0 1 D 1 \r ( N A
0012660 M E E R R O R S E T F 0
0012700 L U D F 1 R F ) \0 036 \0 002
0012720 002 \0 g \0 \0 o \0 \0 \0 P o \0 \0 \0 \n \0
0012740 \0 \n \0 \0 \n \0 \0 277 Q \t \0 \0 h 032 020 \0
0012760 ( 3 1 Q F I N D F I L E 2 4
0013000 Q S E T T O P V A L 2 1 Q
0013020 \ A P P E N D 2 1 6 Q \ A P
0013040 P E N D 2 ) \r ( 2 D I R E C T
0013060 O R I E S ) \r ( 1 3 Q ( { E
0013100 R I S } < L I S P C O R E > L I
0013120 B R A R Y > ) 6 ( { E R I S
0013140 } < L I S P C O R E > S O U R C
0013160 E S > ) ) \r \ S Y S F I L E P
0013200 D 1 \r ( P 3 M A C R O Y P
0013220 2 M A C R O X P 1 L U
0013240 D P 0 R F I 0 X F
0013260 4 R E S E T V A R S L S T
0013300 F 5 M A K E S Y S N A M E
0013320 F 6 S Y S F I L E S F 7
0013340 L I S P U S E R S D I R E C T
0013360 O R I E S ) \0 k 004 004 \0 001 @ \t \0
0013400 \0 021 021 001 H V 034 265 ] g \0 \0 \t \0 \0 264
0013420 031 U d 262 025 g \0 \0 360 254 g \0 \0 U g \0
0013440 \0 \v \0 \0 h 032 200 h Y 265 006 o \0 \0 \0 001
0013460 W 016 034 264 1 021 003 g \0 \0 d \t \0 \0 032
0013500 T 032 c \b Z o \0 \0 \0 g \0 \0 \n \0 \0 [
0013520 g \0 \0 J 001 002 \n \0 \0 J 002 c \b K 265 \a
0013540 \b \0 \0 h 020 001 020 \0 ( 1 4 5 Q E R
0013560 R O R ! 1 3 3 Q S E T T O P
0013600 V A L 1 2 1 Q \ S Y S F I L
0013620 E P A 0 0 0 1 1 0 1 Q G E T
0013640 T O P V A L 4 6 Q P A C K *
0013660 2 1 Q B O U N D P 3 R O
0013700 O T F I L E N A M E ) \r ( 1 2 5
0013720 Q D I R E C T O R I E S 1 1
0013740 6 Q I N T E R N A L 7 5 Q
0013760 D I R E C T O R I E S 4 3 Q
0014000 > L I B R A R Y > 3 7 Q { E
0014020 R I S } < L I S P > 3 2 Q L
0014040 I S P C O R E 1 6 Q M A K E
0014060 S Y S N A M E ) \r ( 1 1 3 Q
0014100 ( \ S Y S F I L E P A 0 0 0 1 )
0014120 6 1 Q ( { E R I S } < L I S
0014140 P C O R E > L I B R A R Y > ) )
0014160 \r P R I N T . D A T A B A S E .
0014200 B A N N E R L I N E S A 0 0 0 1
0014220 D 1 \r ( N A M E E R R O R S
0014240 E T P 0 S T A R T F 1
0014260 D A T A B A S E F I L E F
0014300 2 R E S E T V A R S L S T F
0014320 3 O U T P U T F I L E F
0014340 4 R E S E T Y ) \0 s 001 004 002 \0
0014360 Q g \0 \0 \n \0 \0 262 030 g \0 \0 Q g \0 \0
0014400 \n \0 \0 c 002 d \t \0 \0 h 032 032 032 h 214 o
0014420 \0 \0 \0 Q g \0 \0 \n \0 \0 c 002 h 032 032 R
0014440 032 c 004 277 k 021 001 \0 o \0 \0 \0 Q H m 377
0014460 \f \0 \0 X 264 ) Q S H o \0 \0 \0 Q H d
0014500 n 001 364 330 \f \0 \0 d 005 001 241 005 002 265 \a H
0014520 n 001 364 330 k 331 X \f \0 \0 277 260 315 022 c \b
0014540 i 020 \0 ( 1 5 1 Q C O P Y C H A
0014560 R S 1 2 6 Q F I L E P O S
0014600 1 0 2 Q F F I L E P O S 5 1
0014620 Q O P E N S T R E A M 3 0 Q
0014640 G E T F I L E P T R 2 2 Q
0014660 G E T S T R E A M 6 O P E N
0014700 P ) \r ( 4 6 Q I N P U T 1 7
0014720 Q I N P U T 1 3 Q S E T F
0014740 I L E P T R 3 I N P U T ) \r
0014760 ( 1 1 4 Q " ( R E A D A T A
0015000 B A S E ) " 7 3 Q " \r ( *
0015020 " 4 2 Q ( P R O G N ( C L
0015040 O S E F ? O L D V A L U E ) )
0015060 ) \r P R I N T . D A T A B A S E
0015100 . B A N N E R L I N E S D 1 \r
0015120 ( P 2 R E S E T Z P 1
0015140 R E S E T Y P 0 L I S P X
0015160 H I S T I 1 O U T P U T F
0015200 I L E I 0 D A T A B A S E
0015220 F I L E F 3 L I S P X H I
0015240 S T F 4 R E S E T V A R S
0015260 L S T ) \0 ( 003 002 \0 002 A 243 i b 002
0015300 277 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0
0015320 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020
0015340 I 020 \0 ( 4 3 Q E R R O R ! 3
0015360 6 Q R E S E T R E S T O R E
0015400 2 4 Q P R I N T . D A T A B A
0015420 S E . B A N N E R L I N E S A 0
0015440 0 0 1 ) \r ( 3 2 Q E R R O R
0015460 2 1 Q I N T E R N A L ) \r (
0015500 1 6 Q ( P R I N T . D A T A B
0015520 A S E . B A N N E R L I N E S A
0015540 0 0 0 1 ) ) \r ( P R E T T Y C O
0015560 M P R I N T M A K E D A T A B
0015600 A S E C O M S ) \r ( R P A Q Q
0015620 M A K E D A T A B A S E C O M S
0015640 ( ( F N S S T A R T M A K I
0015660 N G D A T A B A S E C O N T I
0015700 N U E M A K I N G D A T A B A S
0015720 E \ M D B . C O N T I N U E
0015740 \ M D B . C L E A R O U T \r \
0015760 S Y S F I L E P ) ( F N S P
0016000 R I N T . D A T A B A S E . B A
0016020 N N E R L I N E S ) ( V A R S
0016040 ( D A T A B A S E . O U T P U
0016060 T . F I L E ) ( R E M A I N I
0016100 N G . F I L E S . T O . A N A L
0016120 Y Z E ) ) \r ( G L O B A L V A
0016140 R S D A T A B A S E . O U T P
0016160 U T . F I L E R E M A I N I N
0016200 G . F I L E S . T O . A N A L Y
0016220 Z E ) ( F I L E S ( S Y S L
0016240 O A D F R O M L I S P U S E
0016260 R S ) P A G E H O L D \r ) (
0016300 C O N S T A N T S ( A N A L Y
0016320 Z E D . F I L E S . K E Y ( Q
0016340 U O T E A N A L Y Z E D . F I
0016360 L E S ) ) ) ) ) \r ( R P A Q Q
0016400 D A T A B A S E . O U T P U T .
0016420 F I L E N I L ) \r ( R P A Q Q
0016440 R E M A I N I N G . F I L E S
0016460 . T O . A N A L Y Z E N I L )
0016500 \r ( F I L E S L O A D ( S Y S
0016520 L O A D F R O M L I S P U S
0016540 E R S ) P A G E H O L D ) \r (
0016560 R P A Q Q A N A L Y Z E D . F
0016600 I L E S . K E Y A N A L Y Z E
0016620 D . F I L E S ) \r ( C O N S T A
0016640 N T S ( A N A L Y Z E D . F I
0016660 L E S . K E Y ( Q U O T E A
0016700 N A L Y Z E D . F I L E S ) ) )
0016720 \r ( P U T P R O P S M A K E D
0016740 A T A B A S E C O P Y R I G H
0016760 T ( " X e r o x C o r p o r
0017000 a t i o n " 1 9 8 3 1 9 8 4
0017020 1 9 8 5 ) ) \r N I L \r
0017034