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