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