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