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