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