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