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