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