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