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