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