$ od -c -N 50000 [eris]<Lisp>JCAI>library>HASH.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - J u n - 8 5 0 0 : 5 5 : 1 5
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 > H A S H . ;
0000120 1 9 ) \r " 2 - J u n - 8 5
0000140 1 5 : 2 0 : 0 7 " b c o m p l
0000160 ' d i n " I N T E R L I S P
0000200 - D 2 - J u n - 8 5 . . .
0000220 " d a t e d " 2 - J u n -
0000240 8 5 1 7 : 4 4 : 1 2 " ) \r ( F
0000260 I L E C R E A T E D " 6 - J
0000300 u n - 8 5 0 0 : 5 4 : 1 6 "
0000320 { E R I S } < L I S P C O R E >
0000340 L I B R A R Y > H A S H . ; 1 9
0000360 2 7 0 4 3 c h a n g e s t
0000400 o : ( F N S \r C R E A T E H
0000420 A S H F I L E ) p r e v i o u
0000440 s d a t e : " 5 - J u n -
0000460 8 5 1 7 : 1 4 : 0 8 " { E R
0000500 I S } < L I S P C O R E > L I B
0000520 R A R Y > H A S H . ; 1 8 ) \r L
0000540 O O K U P H A S H F I L E D 1
0000560 \r ( L ( 4 K E Y 2 3 C A
0000600 L L T Y P E 2 H A S H F I L
0000620 E 1 V A L U E 0 K E Y )
0000640 ) \0 324 \a \0 \0 005 ` \0 \0 @ D 021 002 001
0000660 I 241 H 207 H ` \0 \0 I \v \0 \0 022 021 R 006
0000700 B o \0 \0 \0 C 276 \ 003 265 C h \n \0 \0 b
0000720 004 I B C g \0 \0 360 265 016 C 003 264 \n g \0
0000740 \0 C 034 264 003 i H \f \0 \0 X j H 363 262 6
0000760 C g \0 \0 360 252 C 003 264 023 g \0 \0 C 034 264
0001000 \f j H 331 I A B \f \0 \0 h 020 001 ] d N
0001020 360 250 277 N 003 231 M N 034 225 M 265 261 i 260 256
0001040 L 002 260 245 C g \0 \0 360 253 C d 003 262 026 277
0001060 g \0 \0 C 034 233 i 273 B k ( ` \0 \0 \n \0
0001100 \0 272 C g \0 \0 360 253 C d 003 262 023 277 g \0
0001120 \0 C 034 230 H I A B \f \0 \0 260 026 C g \0
0001140 \0 360 250 C 003 233 g \0 \0 C 034 225 H B \n \0
0001160 \0 277 K 221 J 020 H 264 003 i 020 \0 ( 3 1 0
0001200 Q \ L O O K U P H A S H F I L
0001220 E B L O C K / D E L E T E H A S
0001240 H K E Y 2 6 2 Q \ L O O K U
0001260 P H A S H F I L E B L O C K / R
0001300 E P L A C E H A S H K E Y 2 3
0001320 0 Q R E A D 1 4 1 Q \ L O
0001340 O K U P H A S H F I L E B L O C
0001360 K / I N S E R T H A S H K E Y
0001400 1 0 1 Q \ L O O K U P H A S H
0001420 F I L E B L O C K / G E T H A S
0001440 H K E Y 4 6 Q G T H A S H F
0001460 I L E 2 3 Q P A C K * ) \r (
0001500 3 0 0 Q D E L E T E 2 7 0 Q
0001520 D E L E T E 2 5 0 Q R E P
0001540 L A C E 2 3 5 Q R E P L A C
0001560 E 2 2 5 Q H A S H F I L E R
0001600 D T B L 2 1 2 Q R E T R I E
0001620 V E 1 7 7 Q R E T R I E V E
0001640 1 2 4 Q I N S E R T 1 1 3
0001660 Q I N S E R T 7 0 Q I N S
0001700 E R T 5 6 Q I N S E R T 1
0001720 7 Q H A S H T E X T C H A R
0001740 2 M A X . I N T E G E R ) \r (
0001760 3 4 Q ( R E P L A C E D E
0002000 L E T E I N S E R T ) ) \r G E
0002020 T H A S H F I L E D 1 \r ( L
0002040 ( 2 K E Y 2 1 H A S H F I
0002060 L E 0 K E Y ) ) \0 034 002 \0 \0
0002100 003 @ B 021 002 001 I 241 H 207 H ` \0 \0 I \v
0002120 \0 \0 022 h A g \0 \0 \f \0 \0 020 \0 ( 3 1
0002140 Q L O O K U P H A S H F I L E
0002160 2 0 Q P A C K * ) \r ( 2 6 Q
0002200 R E T R I E V E 1 4 Q H A
0002220 S H T E X T C H A R ) \r ( ) \r P
0002240 U T H A S H F I L E D 1 \r ( L
0002260 ( 3 K E Y 2 2 H A S H F
0002300 I L E 1 V A L U E 0 K E
0002320 Y ) ) \0 $ 002 \0 \0 004 @ C 021 002 001 I
0002340 241 H 207 H ` \0 \0 I \v \0 \0 022 A B A 224
0002360 o \0 \0 \0 202 g \0 \0 \f \0 \0 A 020 \0 ( 4
0002400 0 Q L O O K U P H A S H F I L
0002420 E 2 0 Q P A C K * ) \r ( 3 5
0002440 Q D E L E T E 1 4 Q H A S
0002460 H T E X T C H A R ) \r ( 3 1 Q
0002500 ( R E P L A C E I N S E R T
0002520 ) ) \r \ L O O K U P H A S H F I
0002540 L E B L O C K / D E L E T E H A
0002560 S H K E Y D 1 \r ( L ( 1 H
0002600 A S H F I L E 0 H A S H K E
0002620 Y ) ) \0 X \0 \0 \0 002 A l 004 A l 004
0002640 ( k 331 * A k ( j \n \0 \0 A l 002 ( A
0002660 l 004 ( l 020 \n \0 \0 l 377 345 ! 277 A l 002
0002700 ( A l 004 ( l \b \n \0 \0 l 377 345 ! 277 A
0002720 l 002 ( A l 004 ( l 377 345 ! A k ( @ \n
0002740 \0 \0 A l 002 ( l D ! A l 002 ( \t \0 \0
0002760 020 \0 ( 1 2 5 Q F O R C E O U T
0003000 P U T 1 0 7 Q S E T F I L E
0003020 P T R 5 7 Q R S H 3 5 Q
0003040 R S H 2 0 Q S E T F I L E P
0003060 T R ) \r N I L \r ( ) \r \ L O O K
0003100 U P H A S H F I L E B L O C K /
0003120 G E T H A S H K E Y D 1 \r ( L
0003140 ( 3 H A S H K E Y 2 D E
0003160 L O K 1 H A S H F I L E 0
0003200 I N D E X ) ) \0 205 004 \0 \0 004 021
0003220 020 \0 @ A l 003 ( \n \0 \0 b 006 277 A k (
0003240 C \n \0 \0 277 B 262 024 A l 002 ( d j 360
0003260 222 277 i 214 l D 360 232 i 206 A l 002 ( j
0003300 360 263 N A k ( A l 002 ( 341 341 A l 002
0003320 ( 341 A l 002 ( 330 330 \n \0 \0 277 @ A
0003340 k ( ` \0 \0 \n \0 \0 364 221 C 020 H 244 @ \t
0003360 \0 \0 270 C H A l 003 ( 021 003 003 J I l 004
0003400 333 330 K \n \0 \0 l 004 332 l \b 330 022 260 215 j
0003420 C 331 020 \0 ( 1 6 6 Q I M O D 1
0003440 4 2 Q \ L O O K U P H A S H F
0003460 I L E B L O C K / G E T P R O B
0003500 E 1 3 0 Q R E A D 1 1 5 Q
0003520 S E T F I L E P T R 2 4 Q
0003540 S E T F I L E P T R 1 2 Q \
0003560 L O O K U P H A S H F I L E B L
0003600 O C K / M A K E H A S H K E Y )
0003620 \r ( 1 2 5 Q H A S H F I L E R
0003640 D T B L ) \r ( ) \r \ L O O K U P
0003660 H A S H F I L E B L O C K / G E
0003700 T P R O B E D 1 \r ( L ( 0
0003720 K E Y ) ) \0 027 \0 \0 \0 001 ` \0 \0 @
0003740 d \t \0 \0 342 k 330 ) l 037 345 k 330 \n \0 \0
0003760 001 020 \0 ( 2 3 Q F N T H 7 N
0004000 C H A R S ) \r ( 2 P R O B E L
0004020 S T ) \r ( ) \r \ L O O K U P H A
0004040 S H F I L E B L O C K / I N S E
0004060 R T H A S H K E Y D 1 \r ( L
0004100 ( 3 H A S H F I L E 2 V A
0004120 L U E 1 I N D E X 0 H A
0004140 S H K E Y ) ) \0 ] \0 \0 \0 004 C l
0004160 004 ( C l 003 ( ` \0 \0 326 363 224 C \t \0 \0
0004200 277 C k ( j \n \0 \0 C l 004 C l 004 ( k
0004220 330 * C l 002 ( C l 004 ( l 020 \n \0 \0 l
0004240 377 345 ! 277 C l 002 ( C l 004 ( l \b \n \0
0004260 \0 l 377 345 ! 277 C l 002 ( C l 004 ( l 377
0004300 345 ! @ A B C \f \0 \0 020 \0 ( 1 3 2 Q
0004320 \ L O O K U P H A S H F I L E
0004340 B L O C K / R E P L A C E H A S
0004360 H K E Y 1 0 2 Q R S H 6 0
0004400 Q R S H 3 1 Q S E T F I L
0004420 E P T R 2 1 Q R E H A S H F
0004440 I L E ) \r ( 1 2 Q H A S H L O
0004460 A D F A C T O R ) \r ( ) \r \ L O
0004500 O K U P H A S H F I L E B L O C
0004520 K / M A K E H A S H K E Y D 1
0004540 \r ( L ( 1 R A N G E 0 K
0004560 E Y ) ) \0 . 005 \0 \0 002 @ ` \0 \0 \n
0004600 \0 \0 A 021 002 001 H k 021 022 004 J 003 265 \f K
0004620 022 022 l 004 332 l \b 330 020 001 274 K L 332 I \n
0004640 \0 \0 273 J 002 Z 260 346 \0 ( 4 6 Q I M
0004660 O D 6 D C H C O N ) \r ( 3
0004700 H A S H S C R A T C H L S T ) \r
0004720 ( ) \r \ L O O K U P H A S H F I
0004740 L E B L O C K / R E P L A C E H
0004760 A S H K E Y D 1 \r ( L ( 3
0005000 H A S H F I L E 2 V A L U E
0005020 1 I N D E X 0 H A S H K
0005040 E Y ) ) \0 r 001 \0 \0 004 C k ( @ \n
0005060 \0 \0 C l 002 ( l U ! C l 002 ( C k (
0005100 \t \0 \0 l 020 \n \0 \0 l 377 345 ! 277 C l 002
0005120 ( C k ( \t \0 \0 l \b \n \0 \0 l 377 345 !
0005140 277 C l 002 ( C k ( \t \0 \0 l 377 345 ! C
0005160 k ( m 377 \n \0 \0 C k ( 021 001 \0 A H \n
0005200 \0 \0 277 k H \n \0 \0 277 B H \n \0 \0 277 H
0005220 \t \0 \0 023 C l 002 ( \t \0 \0 020 \0 ( 1 5
0005240 7 Q F O R C E O U T P U T 1
0005260 4 7 Q T E R P R I 1 4 2 Q
0005300 P R I N 2 1 3 4 Q S P A C E
0005320 S 1 2 6 Q P R I N 2 1 1 3
0005340 Q S E T F I L E P T R 7 7 Q
0005360 G E T E O F P T R 6 0 Q R
0005400 S H 5 3 Q G E T E O F P T R
0005420 3 4 Q R S H 2 7 Q G E T
0005440 E O F P T R 6 S E T F I L E
0005460 P T R ) \r N I L \r ( ) \r C R E A
0005500 T E H A S H F I L E D 1 \r ( L
0005520 ( 5 C O P Y F N 4 S M A
0005540 S H 3 # E N T R I E S 2
0005560 I T E M L E N G T H 1 V A L
0005600 U E T Y P E 0 F I L E ) )
0005620 \0 361 006 \0 \0 006 021 0 002 C 265 X ` \0 \0 `
0005640 \0 \0 352 j 330 \t \0 \0 X @ g \0 \0 g \0 \0
0005660 l \b o \0 \0 \0 \r 005 \0 \0 b \0 d j ! 277
0005700 @ j ! 277 @ j ! @ H l 020 \n \0 \0 l 377
0005720 345 ! 277 @ H l \b \n \0 \0 l 377 345 ! 277 @
0005740 H l 377 345 ! @ A d g \0 \0 360 234 277 l T
0005760 260 027 ` \0 \0 \n \0 \0 260 247 g \0 \0 360 245 g
0006000 \0 \0 b 002 277 l E ! @ B 3 020 265 l j b
0006020 004 ! H l 004 332 k 330 @ g \0 \0 \n \0 \0 021
0006040 022 005 k ] K 363 262 W L \t \0 \0 b \0 023 D
0006060 005 006 265 \a l \t \t \0 \0 Y Z k @ g \0 \0
0006100 g \0 \0 l \b o \0 \0 \0 \r 005 \0 \0 * 277 J
0006120 l 003 H * 277 J l 004 j * 277 J l \b i *
0006140 277 J l 005 A * 277 J l \t E * 277 J l 006
0006160 B * 277 I \t \0 \0 020 l 377 345 260 224 L j !
0006200 277 M k 324 260 237 \0 ( 3 4 0 Q \ O P
0006220 E N H A S H F I L E B L O C K /
0006240 S E T H A S H S T A T U S 2 6
0006260 6 Q O P E N F I L E 2 4 2 Q
0006300 A R R A Y 2 2 5 Q C L O S
0006320 E F 2 1 0 Q G E T S T R E A
0006340 M 1 4 1 Q M A X 1 0 3 Q
0006360 R S H 6 7 Q R S H 4 3 Q
0006400 O P E N F I L E 2 1 Q \ O P
0006420 E N H A S H F I L E B L O C K /
0006440 F I N D 1 S T P R I M E ) \r ( 2
0006460 5 4 Q O L D 2 5 1 Q B O T
0006500 H 2 0 5 Q O U T P U T 1 5
0006520 3 Q E X P R 1 4 6 Q E X P
0006540 R 1 3 6 Q H A S H F I L E D
0006560 E F A U L T S I Z E 1 2 4 Q
0006600 T E X T 3 1 Q N E W 2 6 Q
0006620 O U T P U T 1 3 Q H F G R
0006640 O W T H F A C T O R 1 0 Q H
0006660 A S H F I L E D E F A U L T S I
0006700 Z E ) \r ( 2 6 2 Q ( ( T Y P
0006720 E B I N A R Y ) ) 3 7 Q (
0006740 ( T Y P E B I N A R Y ) ) ) \r
0006760 O P E N H A S H F I L E D 1 \r
0007000 ( L ( 4 S M A S H 3 # E
0007020 N T R I E S 2 I T E M L E N
0007040 G T H 1 A C C E S S 0 F
0007060 I L E ) ) 001 002 \0 \0 005 B 263 % C
0007100 263 " A g \0 \0 360 263 033 A g \0 \0 360 263 024
0007120 A g \0 \0 360 253 A g \0 \0 360 245 A g \0 \0
0007140 360 231 @ A B C D \r 005 \0 \0 020 @ \t \0 \0
0007160 ` \0 \0 026 002 021 021 001 A g \0 \0 360 263 030 A
0007200 g \0 \0 360 257 A g \0 \0 360 251 A 227 A d g
0007220 \0 \0 360 225 277 g \0 \0 260 4 g \0 \0 360 263 '
0007240 A g \0 \0 360 263 A g \0 \0 360 263 031 A i
0007260 360 263 024 A g \0 \0 360 253 A g \0 \0 360 245 A
0007300 g \0 \0 360 223 g \0 \0 202 \b \0 \0 b 002 H 235
0007320 d H k ( g \0 \0 \n \0 \0 360 221 H 020 @ \t
0007340 \0 \0 D 005 006 265 \a l \t \t \0 \0 X Y k @
0007360 A g \0 \0 l \b o \0 \0 \0 \r 005 \0 \0 * 277
0007400 I l 004 I k ( 341 341 I k ( 341 I k
0007420 ( 330 330 * 277 I l 003 I k ( 341 341 I
0007440 k ( 341 I k ( 330 330 * 277 I l 005 I
0007460 k ( d l T 360 224 277 g \0 \0 203 277 g \0
0007500 \0 * 277 I l 006 I k ( * 277 I l \b A
0007520 g \0 \0 360 * 277 H \t \0 \0 020 \0 ( 4 3 5
0007540 Q \ O P E N H A S H F I L E B
0007560 L O C K / S E T H A S H S T A T
0007600 U S 3 0 1 Q O P E N F I L E
0007620 2 5 7 Q A R R A Y 2 4 5 Q
0007640 C L O S E F ? 2 3 5 Q G E
0007660 T F I L E I N F O 2 1 7 Q S
0007700 H O U L D N T 6 3 Q F U L L
0007720 N A M E 5 6 Q C R E A T E H
0007740 A S H F I L E ) \r ( 4 2 6 Q B
0007760 O T H 4 0 4 Q E X P R 3 7
0010000 7 Q T E X T 2 6 7 Q O L D
0010020 2 3 2 Q A C C E S S 2 1 3
0010040 Q B O T H 2 0 6 Q R E P L
0010060 A C E 2 0 0 Q D E L E T E
0010100 1 7 2 Q I N S E R T 1 5 6 Q
0010120 B O T H 1 4 7 Q O U T P U
0010140 T 1 4 0 Q W R I T E 1 3 3
0010160 Q I N P U T 1 2 5 Q R E T
0010200 R I E V E 1 1 4 Q O L D 1
0010220 0 6 Q I N P U T 7 7 Q R E
0010240 A D 6 6 Q S Y S H A S H F I
0010260 L E L S T 4 3 Q F U L L P R
0010300 I N T 3 5 Q P R I N T 2 7
0010320 Q S T R I N G 2 0 Q N U M
0010340 B E R 1 1 Q D O U B L E ) \r
0010360 ( 2 7 5 Q ( ( T Y P E B I
0010400 N A R Y ) ) ) \r \ O P E N H A S
0010420 H F I L E B L O C K / F I N D 1
0010440 S T P R I M E D 1 \r ( L ( 0
0010460 N ) ) \0 = 003 \0 \0 001 @ k 344 021 !
0010500 002 l 003 272 H d J 361 234 J 334 Y j 360 263 031
0010520 I 005 003 265 017 H J d 332 375 361 254 J l 002 324
0010540 260 343 \t \0 \0 262 360 h 200 i 224 H 265 003 i 020
0010560 H l 002 324 270 260 314 \0 ( 5 1 Q \ F Z
0010600 E R O P ) \r N I L \r ( ) \r \ O P
0010620 E N H A S H F I L E B L O C K /
0010640 S E T H A S H S T A T U S D 1
0010660 \r ( L ( 0 H A S H F I L E )
0010700 ) \0 9 \0 \0 \0 001 @ k ( g \0 \0 g \0
0010720 \0 \v \0 \0 277 @ l \a i * 277 @ l 002 @ k
0010740 ( @ k ( g \0 \0 \n \0 \0 \n \0 \0 * 277 @
0010760 k ( @ 032 ` \0 \0 032 027 \0 \0 @ 027 \0 \0 020
0011000 \0 ( 4 4 Q G E T S T R E A M
0011020 4 1 Q G E T F I L E I N F O
0011040 1 3 Q W H E N C L O S E ) \r (
0011060 6 6 Q S Y S H A S H F I L E
0011100 6 2 Q S Y S H A S H F I L E L
0011120 S T 5 6 Q S Y S H A S H F I
0011140 L E L S T 3 6 Q A C C E S S
0011160 1 0 Q H A S H B E F O R E C
0011200 L O S E 5 B E F O R E ) \r (
0011220 ) \r C O L L E C T K E Y S A 0 0
0011240 0 1 D 1 \r ( L ( 1 K E Y 2
0011260 0 K E Y 1 ) F 0 M K S
0011300 T R I N G ? F 1 K E Y L S
0011320 T ) \0 027 \0 002 \0 002 P 224 @ \t \0 \0 200
0011340 @ P 224 A \t \0 \0 200 A 032 Q 032 c 002 020 \0
0011360 ( 1 5 Q M K S T R I N G 5
0011400 M K S T R I N G ) \r N I L \r ( )
0011420 \r C O L L E C T K E Y S A 0 0 0
0011440 2 D 1 \r ( L ( 0 K E Y )
0011460 F 0 K E Y L S T F 1 M
0011500 K S T R I N G ? ) \0 016 \0 002 \0 001
0011520 Q 224 @ \t \0 \0 200 @ P 032 c \0 020 \0 ( 5
0011540 M K S T R I N G ) \r N I L \r (
0011560 ) \r C O L L E C T K E Y S D 1
0011600 \r ( L ( 1 D O U B L E 0
0011620 H A S H F I L E ) P 0 K E
0011640 Y L S T I 2 M K S T R I N
0011660 G ? ) \0 030 001 \0 \0 003 021 020 \0 A 230 @
0011700 g \0 \0 i \v \0 \0 206 @ g \0 \0 \n \0 \0 H
0011720 020 \0 ( 2 4 Q M A P H A S H F I
0011740 L E 1 4 Q M A P H A S H F I
0011760 L E ) \r ( 2 1 Q C O L L E C T
0012000 K E Y S A 0 0 0 2 1 0 Q C O
0012020 L L E C T K E Y S A 0 0 0 1 ) \r
0012040 ( ) \r C O P Y H A S H F I L E A
0012060 0 0 0 3 D 1 \r ( L ( 0 K E
0012100 Y ) F 0 H A S H F I L E
0012120 F 1 N E W H A S H F I L E
0012140 F 2 F N ) \0 \t \0 003 \0 001 @ P
0012160 Q R \f \0 \0 020 \0 ( 6 C O P Y H A
0012200 S H I T E M ) \r N I L \r ( ) \r C
0012220 O P Y H A S H F I L E D 1 \r (
0012240 L ( 4 L E A V E O P E N 3
0012260 V A L U E T Y P E 1 N E W
0012300 N A M E ) P 2 N E W H A S
0012320 H F I L E I 2 F N I 0
0012340 H A S H F I L E ) \0 K 003 \0 \0
0012360 005 @ \t \0 \0 b \0 021 001 \0 @ g \0 \0 \n \0
0012400 \0 A C 265 006 H l 005 ( H l 006 ( H l 004
0012420 ( h H l \t ( \r 006 \0 \0 021 002 002 I g \0
0012440 \0 360 247 @ I \n \0 \0 b \0 200 @ g \0 \0 \n
0012460 \0 \0 D 244 J \t \0 \0 020 J 020 \0 ( 1 0 6
0012500 Q C L O S E H A S H F I L E
0012520 1 0 0 Q M A P H A S H F I L E
0012540 6 6 Q C L O S E H A S H F I
0012560 L E 5 0 Q C R E A T E H A S
0012600 H F I L E 1 7 Q H A S H F I
0012620 L E P R O P 3 G T H A S H F
0012640 I L E ) \r ( 7 5 Q C O P Y H A
0012660 S H F I L E A 0 0 0 3 5 7 Q
0012700 I N P U T 1 4 Q A C C E S S
0012720 ) \r ( ) \r C O P Y H A S H I T E
0012740 M D 1 \r ( L ( 3 U S E R F
0012760 N 2 N E W H A S H F I L E
0013000 1 H A S H F I L E 0 K E Y
0013020 ) ) \0 = 001 \0 \0 004 @ h A g \0 \0 \f
0013040 \0 \0 021 001 \0 C 232 @ H A B l 004 C 017 016
0013060 X 200 H 003 001 g \0 \0 360 237 @ A k ( B H
0013100 002 001 H 002 002 \r 005 \0 \0 210 @ H B g \0 \0
0013120 \f \0 \0 h 020 \0 ( 7 1 Q L O O K U
0013140 P H A S H F I L E 5 7 Q P U
0013160 T H A S H T E X T 1 0 Q L O
0013200 O K U P H A S H F I L E ) \r ( 6
0013220 6 Q I N S E R T 3 6 Q H a
0013240 s h T e x t P t r 5 R E T R
0013260 I E V E ) \r ( ) \r H A S H F I L
0013300 E S P L S T A 0 0 0 4 D 1 \r (
0013320 F 0 H A S H F I L E F 1
0013340 X W O R D ) \0 \a \0 002 \0 \0 P Q
0013360 \n \0 \0 020 \0 ( 4 \ M A P H A S H
0013400 F I L E B L O C K / H A S H F I
0013420 L E S P L S T 1 ) \r N I L \r ( )
0013440 \r H A S H F I L E S P L S T D
0013460 1 \r ( I 1 X W O R D I 0
0013500 H A S H F I L E ) \0 020 \0 \0 \0
0013520 002 @ \t \0 \0 b \0 264 \b g \0 \0 \t \0 \0 020
0013540 \0 ( 1 5 Q G E N E R A T E F N
0013560 3 G T H A S H F I L E ) \r (
0013600 1 2 Q H A S H F I L E S P L S
0013620 T A 0 0 0 4 ) \r ( ) \r \ M A P H
0013640 A S H F I L E B L O C K / H A S
0013660 H F I L E S P L S T 1 A 0 0 0 5
0013700 D 1 \r ( L ( 0 K E Y ) F
0013720 0 X W O R D ) \0 023 \0 001 \0 001
0013740 P 232 P @ k h i \r 005 \0 \0 264 006 @ \t \0
0013760 \0 020 \0 ( 2 0 Q P R O D U C E
0014000 1 2 Q S T R P O S ) \r N I L \r
0014020 ( ) \r \ M A P H A S H F I L E B
0014040 L O C K / H A S H F I L E S P L
0014060 S T 1 D 1 \r ( L ( 0 H A S
0014100 H F I L E ) I 1 X W O R D
0014120 ) \0 \t \0 \0 \0 002 @ g \0 \0 \n \0 \0 020
0014140 \0 ( 6 M A P H A S H F I L E )
0014160 \r ( 3 \ M A P H A S H F I L E
0014200 B L O C K / H A S H F I L E S P
0014220 L S T 1 A 0 0 0 5 ) \r ( ) \r M A
0014240 P H A S H F I L E D 1 \r ( L
0014260 ( 2 D O U B L E 1 M A P F
0014300 N 0 H A S H F I L E ) ) \0
0014320 232 \t \0 \0 003 @ \t \0 \0 b \0 021 021 001 H l
0014340 003 ( A \t \0 \0 265 003 j B 222 l 002 200 k 361
0014360 l \b 021 C \b k 275 M J 363 263 r H k ( L
0014400 \n \0 \0 277 H d l 002 ( l U 360 262 S l
0014420 002 ( 341 341 H l 002 ( 341 H l 002 (
0014440 330 330 _ 020 277 H k ( O 020 \n \0 \0 277 H k
0014460 ( ` \0 \0 \n \0 \0 276 K 233 H k ( ` \0 \0
0014500 \n \0 \0 _ 016 277 B 237 N \t \0 \0 Y 001 I 002
0014520 O 016 l 003 A 017 016 207 N O 016 l 002 A 017 016
0014540 277 M k 324 275 L l 004 324 274 260 215 h 020 \0 (
0014560 1 6 6 Q \ M A P H A S H F I L
0014600 E B L O C K / S P L I T K E Y
0014620 1 5 5 Q R E A D 1 4 1 Q R
0014640 E A D 1 2 7 Q S E T F I L E
0014660 P T R 5 5 Q S E T F I L E P
0014700 T R 2 0 Q N A R G S 3 G
0014720 T H A S H F I L E ) \r ( 1 5 2 Q
0014740 H A S H F I L E R D T B L 1
0014760 3 6 Q H A S H F I L E R D T B
0015000 L ) \r ( ) \r R E H A S H F I L E
0015020 D 1 \r ( L ( 2 V A L U E T
0015040 Y P E 1 N E W N A M E 0
0015060 H A S H F I L E ) F 3 R E
0015100 H A S H G A G ) \0 r 003 001 \0 003 @
0015120 \t \0 \0 b \0 A 265 023 g \0 \0 h g \0 \0 @
0015140 g \0 \0 \n \0 \0 \f \0 \0 @ g \0 \0 \n \0 \0
0015160 021 022 002 S 262 036 o \0 \0 \0 \t \0 \0 277 k \t
0015200 \0 \0 277 @ k ( \t \0 \0 277 o \0 \0 \0 \t \0
0015220 \0 277 @ H @ l \t ( B 265 006 @ l 005 ( \f
0015240 \0 \0 X @ \t \0 \0 H I h d @ \r 005 \0 \0
0015260 272 S 232 J k ( \t \0 \0 277 h \t \0 \0 @ 020
0015300 \0 ( 1 5 6 Q T E R P R I 1 5
0015320 1 Q P R I N 1 1 4 0 Q O P
0015340 E N H A S H F I L E 1 2 7 Q
0015360 C L O S E H A S H F I L E 1 2
0015400 2 Q C O P Y H A S H F I L E
0015420 1 0 1 Q P R I N 1 7 1 Q P
0015440 R I N 1 6 2 Q S P A C E S
0015460 5 5 Q P R I N 1 4 0 Q H A
0015500 S H F I L E P R O P 3 1 Q P
0015520 A C K F I L E N A M E 2 6 Q
0015540 H A S H F I L E P R O P 3 G
0015560 T H A S H F I L E ) \r ( 3 5 Q
0015600 A C C E S S 2 3 Q N A M E
0015620 1 7 Q B O D Y 1 3 Q V E R
0015640 S I O N ) \r ( 7 6 Q " . .
0015660 . " 5 2 Q " R e h a s h i
0015700 n g " ) \r \ M A P H A S H F I L
0015720 E B L O C K / S P L I T K E Y
0015740 D 1 \r ( L ( 0 K E Y ) ) \0
0015760 5 004 \0 \0 001 ` \0 \0 @ \n \0 \0 021 001 \0 H
0016000 262 037 ` \0 \0 @ k H k 331 \v \0 \0 @ H k
0016020 330 \n \0 \0 021 003 003 I J 030 d K 031 277 020 `
0016040 \0 \0 @ 030 d h 031 277 020 \0 ( 3 6 Q S
0016060 U B A T O M 2 7 Q S U B A T
0016100 O M 6 S T R P O S L ) \r ( 5
0016120 4 Q H A S H S C R A T C H C O
0016140 N S C E L L 1 7 Q H A S H S
0016160 C R A T C H C O N S C E L L 2
0016200 H A S H B I T T A B L E ) \r (
0016220 ) \r C L E A R H A S H F I L E S
0016240 D 1 \r ( I 1 R E L E A S E
0016260 I 0 C L O S E ) \0 ( 001 \0
0016300 \0 002 @ 264 \n ` \0 \0 d 243 027 \0 \0 020 001 `
0016320 \0 \0 002 027 \0 \0 277 021 001 \0 H 001 \t \0 \0 277
0016340 H 002 l \a h * 023 260 336 \0 ( 3 4 Q C
0016360 L O S E F ? ) \r ( 2 3 Q S Y S
0016400 H A S H F I L E L S T 1 7 Q
0016420 S Y S H A S H F I L E L S T 1
0016440 2 Q S Y S H A S H F I L E 5
0016460 S Y S H A S H F I L E L S T )
0016500 \r ( ) \r C L O S E H A S H F I L
0016520 E D 1 \r ( I 1 R E O P E N
0016540 I 0 H A S H F I L E ) \0
0016560 ) \0 \0 \0 002 @ 265 005 ` \0 \0 \t \0 \0 b \0
0016600 d 262 033 k @ k ( \t \0 \0 * A 233 @ k (
0016620 A h d @ \r 005 \0 \0 020 @ k ( 020 \0 ( 4
0016640 2 Q O P E N H A S H F I L E
0016660 2 4 Q C L O S E F ? 1 0 Q
0016700 H A S H F I L E P ) \r ( 5 S Y
0016720 S H A S H F I L E ) \r ( ) \r G E
0016740 T H A S H T E X T D 1 \r ( P
0016760 0 H A S H T E X T P T R I
0017000 2 D S T F I L I 1 H A S
0017020 H F I L E I 0 K E Y ) \0
0017040 $ 001 \0 \0 003 @ h A g \0 \0 \f \0 \0 021 001
0017060 \0 H 003 001 g \0 \0 360 264 017 A k ( B H 002
0017100 001 H 002 002 \f \0 \0 020 \0 ( 4 1 Q C O
0017120 P Y B Y T E S 1 0 Q L O O K
0017140 U P H A S H F I L E ) \r ( 2 1 Q
0017160 H a s h T e x t P t r 5 R
0017200 E T R I E V E ) \r ( ) \r H A S H
0017220 B E F O R E C L O S E D 1 \r (
0017240 P 0 E N T R Y I 0 F I
0017260 L E ) \0 0 001 \0 \0 001 @ \t \0 \0 ` \0
0017300 \0 026 021 001 \0 H d 262 ! d 002 ` \0 \0 360 226
0017320 277 h 027 \0 \0 277 H 002 l \a h * 277 H ` \0
0017340 \0 \n \0 \0 027 \0 \0 h 020 \0 ( 5 1 Q D
0017360 R E M O V E 3 F U L L N A M
0017400 E ) \r ( 5 4 Q S Y S H A S H F
0017420 I L E L S T 4 6 Q S Y S H A
0017440 S H F I L E L S T 3 2 Q S Y
0017460 S H A S H F I L E 2 3 Q S Y
0017500 S H A S H F I L E 6 S Y S H
0017520 A S H F I L E L S T ) \r ( ) \r H
0017540 A S H F I L E D A T A D 1 \r (
0017560 I 0 H A S H F I L E ) \0 035
0017600 001 \0 \0 001 @ \t \0 \0 021 001 \0 H k ( H l
0017620 005 ( H l 006 ( H l 004 ( h 032 032 032 032 020
0017640 \0 ( 3 G T H A S H F I L E ) \r
0017660 N I L \r ( ) \r H A S H F I L E N
0017700 A M E D 1 \r ( I 0 H A S H
0017720 F I L E ) \0 \t \0 \0 \0 001 @ g \0 \0
0017740 \n \0 \0 020 \0 ( 6 H A S H F I L E
0017760 P R O P ) \r ( 3 N A M E ) \r (
0020000 ) \r H A S H F I L E P D 1 \r (
0020020 I 1 W R I T E I 0 H A
0020040 S H F I L E ) \0 1 \0 \0 \0 002 @ d
0020060 005 006 263 035 d 262 ( 004 l 004 360 264 " @ \t \0
0020100 \0 b \0 d 262 031 ` \0 \0 026 002 b \0 d 235 l
0020120 \a ( 264 \v A 225 @ l \b ( 264 003 @ 020 \0 (
0020140 2 2 Q F U L L N A M E ) \r ( 3
0020160 2 Q S Y S H A S H F I L E L S
0020200 T ) \r ( ) \r H A S H F I L E P R
0020220 O P D 1 \r ( I 1 P R O P
0020240 I 0 H A S H F I L E ) \0 i
0020260 001 \0 \0 002 @ \t \0 \0 021 001 \0 A d g \0 \0
0020300 360 225 277 H l 005 ( 020 g \0 \0 360 231 H k (
0020320 g \0 \0 \n \0 \0 020 A d g \0 \0 360 224 277 H
0020340 k ( 020 g \0 \0 360 224 H l \t ( 020 A d g
0020360 \0 \0 360 225 277 H l 002 ( 020 g \0 \0 360 224 H
0020400 l 003 ( 020 A d g \0 \0 360 225 277 H l 004 (
0020420 020 g \0 \0 360 264 006 H l 006 ( 020 \0 ( 4 1
0020440 Q G E T F I L E I N F O 3
0020460 G T H A S H F I L E ) \r ( 1 3 7
0020500 Q I T E M L E N G T H 1 2 4
0020520 Q # E N T R I E S 1 1 0 Q
0020540 S I Z E 7 5 Q S T R E A M
0020560 6 1 Q C O P Y F N 4 7 Q N
0020600 A M E 3 6 Q A C C E S S 2
0020620 6 Q A C C E S S 1 3 Q V A
0020640 L U E T Y P E ) \r ( ) \r P U T H
0020660 A S H T E X T D 1 \r ( P 0
0020700 H A S H T E X T P T R I 4
0020720 E N D I 3 S T A R T I
0020740 2 H A S H F I L E I 1 S
0020760 R C F I L I 0 K E Y ) \0
0021000 = 002 \0 \0 005 B i \n \0 \0 b 004 021 001 B
0021020 k ( m 377 \n \0 \0 277 g \0 \0 B k ( \t \0
0021040 \0 h 032 032 X 271 A B k ( C D \f \0 \0 277
0021060 I 002 B k ( \t \0 \0 031 277 @ H B \v \0 \0
0021100 020 \0 ( 7 2 Q P U T H A S H F I
0021120 L E 6 2 Q G E T E O F P T R
0021140 5 1 Q C O P Y B Y T E S 3
0021160 3 Q G E T E O F P T R 2 1 Q
0021200 S E T F I L E P T R 4 G T
0021220 H A S H F I L E ) \r ( 2 5 Q H
0021240 a s h T e x t P t r ) \r ( ) \r G
0021260 T H A S H F I L E D 1 \r ( I
0021300 1 W R I T E I 0 H A S H
0021320 F I L E ) \0 4 \0 \0 \0 002 @ 265 \a `
0021340 \0 \0 b \0 A \n \0 \0 221 @ 020 @ d 005 006 232
0021360 k ( A h d @ \r 005 \0 \0 020 004 l 004 360 225
0021400 @ A \n \0 \0 020 @ o \0 \0 \0 \n \0 \0 020 \0
0021420 ( 6 1 Q H E L P 5 0 Q O P
0021440 E N H A S H F I L E 3 5 Q O
0021460 P E N H A S H F I L E 1 3 Q
0021500 H A S H F I L E P ) \r ( 5 S Y
0021520 S H A S H F I L E ) \r ( 5 6 Q
0021540 " N O T A H A S H F I L E
0021560 " ) \r ( P R E T T Y C O M P R I
0021600 N T H A S H C O M S ) \r ( R P
0021620 A Q Q H A S H C O M S ( ( *
0021640 * U s e r F u n c t i o n
0021660 s ) ( F N S C L E A R H A S
0021700 H F I L E S C L O S E H A S H
0021720 F I L E C O L L E C T K E Y S
0021740 C O P Y H A S H F I L E \r C
0021760 O P Y H A S H I T E M C R E A
0022000 T E H A S H F I L E G E T H A
0022020 S H F I L E G E T H A S H T E
0022040 X T H A S H B E F O R E C L O
0022060 S E H A S H F I L E D A T A
0022100 H A S H F I L E N A M E \r H A
0022120 S H F I L E P H A S H F I L E
0022140 P R O P H A S H F I L E S P L
0022160 S T L O O K U P H A S H F I L
0022200 E M A P H A S H F I L E O P
0022220 E N H A S H F I L E P U T H A
0022240 S H F I L E P U T H A S H T E
0022260 X T \r R E H A S H F I L E )
0022300 ( * * I n t e r n a l F u
0022320 n c t i o n s ) ( F N S D E
0022340 L E T E H A S H K E Y F I N D
0022360 1 S T P R I M E G E T H A S H
0022400 K E Y G E T P R O B E G T H
0022420 A S H F I L E \r H A S H F I L
0022440 E S P L S T 1 I N S E R T H A
0022460 S H K E Y M A K E H A S H K E
0022500 Y R E P L A C E H A S H K E Y
0022520 S E T H A S H S T A T U S S
0022540 P L I T K E Y ) ( * * S y
0022560 s t e m V a r i a b l e s ) \r
0022600 ( I N I T V A R S ( H F G R
0022620 O W T H F A C T O R 3 ) ( H
0022640 A S H L O A D F A C T O R . 8
0022660 7 5 ) ( H A S H F I L E D E F
0022700 A U L T S I Z E 5 1 2 ) ( H
0022720 A S H S C R A T C H C O N S C E
0022740 L L ( \r C O N S ) ) ( H A S
0022760 H T E X T C H A R ( C H A R A
0023000 C T E R ( C H A R C O D E ^
0023020 A ) ) ) ( H A S H F I L E R D
0023040 T B L ( C O P Y R E A D T A B
0023060 L E ' O R I G ) ) ( H A S H
0023100 S C R A T C H L S T \r ( C O N
0023120 S T A N T ( t o 3 0 c o l
0023140 l e c t N I L ) ) ) ( H A S
0023160 H B I T T A B L E ( M A K E B
0023200 I T T A B L E ( L I S T H A
0023220 S H T E X T C H A R ) ) ) S Y
0023240 S H A S H F I L E \r R E H A S
0023260 H G A G S Y S H A S H F I L E
0023300 L S T ) ( V A R S P R O B E
0023320 L S T ) ( A D D V A R S ( A
0023340 F T E R S Y S O U T F O R M S
0023360 ( C L E A R H A S H F I L E S )
0023400 ) ) ( M A C R O S \r G E T H
0023420 A S H F I L E H A S H F I L E
0023440 N A M E ) ( * * S y s t e
0023460 m M a c r o s ) ( D E C L A
0023500 R E : E V A L @ C O M P I L E
0023520 D O N T C O P Y ( M A C R O
0023540 S A N Y E Q C R E A T E K E
0023560 Y \r M O D T I M E S P R I N
0023600 T P T R P R I N T S T B Y T E
0023620 R E A D P T R R E A D S T B
0023640 Y T E R E H A S H K E Y ) (
0023660 * * e t c . ) ( R E C O R
0023700 D S H a s h F i l e H a s h
0023720 T e x t P t r \r H a s h F i l
0023740 e E n t r y D o u b l e K e y
0023760 ) ( C O N S T A N T S ( H A
0024000 S H . H E A D E R . S I Z E 8
0024020 ) ( H A S H . K E Y . S I Z E
0024040 4 ) ) ( G L O B A L V A R S
0024060 H F G R O W T H F A C T O R \r
0024100 H A S H L O A D F A C T O R
0024120 H A S H F I L E D E F A U L T S
0024140 I Z E H A S H S C R A T C H C
0024160 O N S C E L L H A S H T E X T
0024200 C H A R H A S H S C R A T C H
0024220 L S T H A S H B I T T A B L E
0024240 \r S Y S H A S H F I L E S Y
0024260 S H A S H F I L E L S T P R O
0024300 B E L S T H A S H F I L E R D
0024320 T B L M A X . I N T E G E R )
0024340 ( * F o r M A S T E R S C
0024360 O P E ) ( G L O B A L V A R S
0024400 \r H A S H . H E A D E R . S I
0024420 Z E H A S H . K E Y . S I Z E
0024440 ) ( S P E C V A R S R E H A
0024460 S H G A G ) ( B L O C K S (
0024500 L O O K U P H A S H F I L E B L
0024520 O C K ( E N T R I E S \r L O
0024540 O K U P H A S H F I L E G E T
0024560 H A S H F I L E P U T H A S H
0024600 F I L E ) L O O K U P H A S H
0024620 F I L E G E T H A S H F I L E
0024640 P U T H A S H F I L E D E L
0024660 E T E H A S H K E Y \r G E T H
0024700 A S H K E Y G E T P R O B E
0024720 I N S E R T H A S H K E Y M A
0024740 K E H A S H K E Y R E P L A C
0024760 E H A S H K E Y ) ( O P E N H
0025000 A S H F I L E B L O C K ( E N
0025020 T R I E S \r C R E A T E H A S
0025040 H F I L E O P E N H A S H F I
0025060 L E ) C R E A T E H A S H F I
0025100 L E O P E N H A S H F I L E
0025120 F I N D 1 S T P R I M E S E T
0025140 H A S H S T A T U S ) ( M A P
0025160 H A S H F I L E B L O C K \r (
0025200 E N T R I E S C O L L E C T K
0025220 E Y S C O P Y H A S H F I L E
0025240 C O P Y H A S H I T E M H A
0025260 S H F I L E S P L S T M A P H
0025300 A S H F I L E R E H A S H F I
0025320 L E ) ( S P E C V A R S \r R
0025340 E H A S H G A G ) C O L L E C
0025360 T K E Y S C O P Y H A S H F I
0025400 L E C O P Y H A S H I T E M
0025420 H A S H F I L E S P L S T H A
0025440 S H F I L E S P L S T 1 M A P
0025460 H A S H F I L E R E H A S H F
0025500 I L E \r S P L I T K E Y ) ) )
0025520 ( P ( S E L E C T Q ( S Y
0025540 S T E M T Y P E ) ( ( T E N E
0025560 X T O P S 2 0 ) ( F I L E S
0025600 L O A D ( S Y S L O A D F R
0025620 O M V A L U E O F \r L I S P
0025640 U S E R S D I R E C T O R I E S
0025660 ) D F O R 1 0 ) ) N I L )
0025700 ( M O V D ? ' N I L L ' F O
0025720 R C E O U T P U T ) ) ) ) \r ( R
0025740 P A Q ? H F G R O W T H F A C
0025760 T O R 3 ) \r ( R P A Q ? H A
0026000 S H L O A D F A C T O R . 8 7
0026020 5 ) \r ( R P A Q ? H A S H F I
0026040 L E D E F A U L T S I Z E 5 1
0026060 2 ) \r ( R P A Q ? H A S H S C
0026100 R A T C H C O N S C E L L ( C
0026120 O N S ) ) \r ( R P A Q ? H A S
0026140 H T E X T C H A R ( C H A R A
0026160 C T E R ( C H A R C O D E ^
0026200 A ) ) ) \r ( R P A Q ? H A S H
0026220 F I L E R D T B L ( C O P Y R
0026240 E A D T A B L E ' O R I G ) )
0026260 \r ( R P A Q ? H A S H S C R A
0026300 T C H L S T ( C O N S T A N T
0026320 ( t o 3 0 c o l l e c t
0026340 N I L ) ) ) \r ( R P A Q ? H A
0026360 S H B I T T A B L E ( M A K E
0026400 B I T T A B L E ( L I S T H
0026420 A S H T E X T C H A R ) ) ) \r (
0026440 R P A Q ? S Y S H A S H F I L
0026460 E N I L ) \r ( R P A Q ? R E
0026500 H A S H G A G N I L ) \r ( R P
0026520 A Q ? S Y S H A S H F I L E L
0026540 S T N I L ) \r ( R P A Q Q P
0026560 R O B E L S T ( 1 3 5 7
0026600 1 1 1 1 1 3 1 7 1 7
0026620 1 9 2 3 2 3 2 9 2 9 2
0026640 9 3 1 3 7 3 7 3 7 4 1
0026660 4 1 4 3 4 7 4 7 5 3
0026700 5 3 5 3 5 9 5 9 5 9 \r
0026720 6 1 6 7 ) ) \r ( A D D T O V A
0026740 R A F T E R S Y S O U T F O R
0026760 M S ( C L E A R H A S H F I L
0027000 E S ) ) \r ( P U T P R O P S G
0027020 E T H A S H F I L E M A C R O
0027040 ( X ( i f ( C A D D R X
0027060 ) t h e n ( Q U O T E I G
0027100 N O R E M A C R O ) e l s e
0027120 ( B Q U O T E ( L O O K U P H
0027140 A S H F I L E , ( \r C A R
0027160 X ) N I L , ( C A D R X
0027200 ) ( Q U O T E R E T R I E V
0027220 E ) ) ) ) ) ) \r ( P U T P R O P
0027240 S H A S H F I L E N A M E M
0027260 A C R O ( ( H A S H F I L E )
0027300 ( H A S H F I L E P R O P H
0027320 A S H F I L E ( Q U O T E N
0027340 A M E ) ) ) ) \r ( S E L E C T Q
0027360 ( S Y S T E M T Y P E ) ( (
0027400 T E N E X T O P S 2 0 ) ( F
0027420 I L E S L O A D ( S Y S L O A
0027440 D F R O M V A L U E O F L
0027460 I S P U S E R S D I R E C T O R
0027500 I E S ) D F O R 1 0 ) ) \r N
0027520 I L ) \r ( M O V D ? ' N I L L
0027540 ' F O R C E O U T P U T ) \r (
0027560 P U T P R O P S H A S H C O
0027600 P Y R I G H T ( " C h r i s t
0027620 o p h e r L a n e a n d X
0027640 e r o x C o r p o r a t i o n
0027660 " 1 9 8 4 1 9 8 5 ) ) \r N I
0027700 L \r
0027702