$ od -c -N 50000 [eris]<LispCore>SOURCES>MACHINEINDEPENDENT.DCOM!64
0000000 ( F I L E C R E A T E D " 2 9
0000020 - S e p - 8 6 2 3 : 3 5 : 4 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 C H I N
0000120 E I N D E P E N D E N T . ; 6 3
0000140 ) \r " 2 7 - S e p - 8 6 0 0
0000160 : 3 3 : 5 8 " b r e c o m p i
0000200 l e d e x p r s : F N S . P
0000220 U T D E F U N S A V E D 1 L
0000240 I S P S O U R C E F I L E P i
0000260 n \r " X e r o x L i s p 2
0000300 7 - S e p - 8 6 . . . " d a
0000320 t e d " 2 7 - S e p - 8 6 0
0000340 0 : 5 1 : 4 7 " ) \r ( F I L E C
0000360 R E A T E D " 2 9 - S e p - 8
0000400 6 2 3 : 3 3 : 1 9 " { E R I
0000420 S } < L I S P C O R E > S O U R
0000440 C E S > M A C H I N E I N D E P
0000460 E N D E N T . ; 6 3 1 2 7 9 3
0000500 7 c h a n g e s t o : ( \r
0000520 V A R S M A C H I N E I N D E
0000540 P E N D E N T C O M S U N S A
0000560 F E . T O . M O D I F Y . F N S
0000600 ) ( F N S F N S . P U T D E
0000620 F L I S P S O U R C E F I L E
0000640 P U N S A V E D 1 D O F I L
0000660 E S L O A D \r ) p r e v i o u
0000700 s d a t e : " 2 6 - S e p -
0000720 8 6 1 2 : 1 1 : 4 9 " { E R
0000740 I S } < L I S P C O R E > S O U
0000760 R C E S > M A C H I N E I N D E
0001000 P E N D E N T . ; 6 0 ) \r C O M
0001020 P A R E L I S T S A 0 0 0 1 D
0001040 1 \r ( N A M E E R R O R S E T
0001060 P 0 D I F F E R E N C E S
0001100 F 1 X F 2 Y F 3
0001120 M A C R O Y ) \0 9 001 003 002 \0 021
0001140 020 \0 Q R i \v \0 \0 221 h 200 i 225 Q R \n
0001160 \0 \0 210 H 265 036 g \0 \0 \t \0 \0 277 \b \0 \0
0001200 023 h c 006 i 020 d 001 \t \0 \0 277 k \t \0 \0
0001220 277 002 003 265 363 260 350 \0 ( 6 0 Q S P A
0001240 C E S 5 3 Q P R I N 2 4 0
0001260 Q T E R P R I 3 4 Q P R I
0001300 N 1 2 2 Q \ C O M P A R E L
0001320 I S T S B L O C K / C O M P A R
0001340 E P R I N T 1 0 Q C O M P A
0001360 R E L S T ) \r ( 3 1 Q S A M E
0001400 ) \r ( ) \r C O M P A R E L I S T
0001420 S D 1 \r ( P 3 R E S E T S
0001440 T A T E P 2 M A C R O Y
0001460 P 0 O L D V A L U E I 1
0001500 Y I 0 X F 4 R E S
0001520 E T V A R S L S T ) \0 ? 004 001 \0
0001540 002 i \t \0 \0 021 1 003 g \0 \0 H h 032 032 h
0001560 032 T 032 c \b Y o \0 \0 \0 g \0 \0 \n \0 \0
0001600 221 h 200 i 223 g \0 \0 273 I 002 c \b g \0 \0
0001620 I 001 001 002 \n \0 \0 K 223 \b \0 \0 020 J 020 \0
0001640 ( 7 2 Q E R R O R ! 6 5 Q
0001660 A P P L Y 3 6 Q C O M P A R
0001700 E L I S T S A 0 0 0 1 3 O U
0001720 T P U T ) \r ( 5 6 Q O U T P U
0001740 T 4 6 Q E R R O R 3 3 Q
0001760 I N T E R N A L 1 1 Q O U T
0002000 P U T ) \r ( 3 0 Q ( C O M P
0002020 A R E L I S T S A 0 0 0 1 ) ) \r
0002040 C O M P A R E L S T D 1 \r ( L
0002060 ( 1 Y 0 X ) I 2 L
0002100 O O S E M A T C H ) \0 024 \0 \0 \0
0002120 003 B m 377 360 227 @ A \n \0 \0 b 004 277 @ A
0002140 \n \0 \0 020 \0 ( 2 1 Q \ C O M P A
0002160 R E L I S T S B L O C K / C O M
0002200 P A R E 1 1 1 Q \ C O M P A
0002220 R E L I S T S B L O C K / C O M
0002240 P A R E M A X ) \r N I L \r ( ) \r
0002260 \ C O M P A R E L I S T S B L O
0002300 C K / C O M P A R E 1 D 1 \r (
0002320 L ( 1 Y 0 X ) F 0
0002340 L O O S E M A T C H ) \0 R \0 001
0002360 \0 002 @ A 360 263 * @ d 003 262 033 277 A 003 262
0002400 031 @ d 001 ` \0 \0 360 230 277 A 001 ` \0 \0 360
0002420 255 @ 003 257 @ A 364 246 @ A \n \0 \0 264 006 P
0002440 265 003 i 020 A 003 262 362 @ 001 A 001 \n \0 \0 221
0002460 h 200 i 222 h 260 350 @ 002 b \0 277 A 002 b 002
0002500 277 260 320 \0 ( 7 4 Q \ C O M P A R
0002520 E L I S T S B L O C K / C O M P
0002540 A R E 1 5 2 Q \ C O M P A R
0002560 E L I S T S B L O C K / C O M P
0002600 A R E F A I L ) \r ( 3 4 Q C O
0002620 M M E N T F L G 2 4 Q C O M
0002640 M E N T F L G ) \r ( ) \r \ C O M
0002660 P A R E L I S T S B L O C K / C
0002700 O M P A R E P R I N T A 0 0 0 2
0002720 D 1 \r ( N A M E E R R O R S
0002740 E T F 0 X F 1 Y F
0002760 2 M A C R O Y ) \0 P \0 003 002
0003000 \0 P Q 364 222 h 260 F P d 003 224 277 Q 003 252
0003020 P \t \0 \0 277 Q \t \0 \0 260 1 g \0 \0 \t \0
0003040 \0 277 P Q \n \0 \0 277 g \0 \0 \t \0 \0 277 \b
0003060 \0 \0 277 g \0 \0 \t \0 \0 277 Q P \n \0 \0 277
0003100 g \0 \0 \t \0 \0 277 \b \0 \0 277 i c 004 i 020
0003120 \0 ( 1 1 0 Q T E R P R I 1 0
0003140 4 Q P R I N 1 7 5 Q \ C O
0003160 M P A R E L I S T S B L O C K /
0003200 C O M P A R E P R I N T 1 6 7
0003220 Q P R I N 1 6 0 Q T E R P
0003240 R I 5 4 Q P R I N 1 4 5 Q
0003260 \ C O M P A R E L I S T S B L
0003300 O C K / C O M P A R E P R I N T
0003320 1 3 7 Q P R I N 1 2 7 Q
0003340 P R I N T 2 2 Q P R I N T )
0003360 \r ( 1 0 1 Q % ) 6 4 Q % (
0003400 5 1 Q % ) 3 4 Q % ( ) \r
0003420 ( ) \r \ C O M P A R E L I S T S
0003440 B L O C K / C O M P A R E P R I
0003460 N T D 1 \r ( P 3 R E S E T
0003500 S T A T E P 2 M A C R O Y
0003520 P 0 O L D V A L U E I
0003540 1 Y I 0 X F 4 R E
0003560 S E T V A R S L S T ) \0 @ 004 001
0003600 \0 002 k d \n \0 \0 021 1 003 g \0 \0 H h 032
0003620 032 h 032 T 032 c \b Y o \0 \0 \0 g \0 \0 \n
0003640 \0 \0 221 h 200 i 223 g \0 \0 273 I 002 c \b g
0003660 \0 \0 I 001 001 002 \n \0 \0 K 223 \b \0 \0 020 J
0003700 020 \0 ( 7 3 Q E R R O R ! 6 6
0003720 Q A P P L Y 3 7 Q \ C O M
0003740 P A R E L I S T S B L O C K / C
0003760 O M P A R E P R I N T A 0 0 0 2
0004000 4 P R I N T L E V E L ) \r (
0004020 5 7 Q P R I N T L E V E L 4
0004040 7 Q E R R O R 3 4 Q I N T
0004060 E R N A L 1 2 Q P R I N T L
0004100 E V E L ) \r ( 3 1 Q ( \ C O
0004120 M P A R E L I S T S B L O C K /
0004140 C O M P A R E P R I N T A 0 0 0
0004160 2 ) ) \r \ C O M P A R E L I S T
0004200 S B L O C K / C O M P A R E P R
0004220 I N T 1 D 1 \r ( L ( 1 B
0004240 0 A ) ) 001 x \b \0 \0 002 j 021 q \a
0004260 @ 275 A 276 L 223 M 271 N 204 M 001 271 N 001 272
0004300 I J \n \0 \0 _ 016 I J O 016 \v \0 \0 _ 016
0004320 360 262 # K 221 h 200 i 262 025 I 004 l 004 360 234
0004340 H d j 360 230 277 I \t \0 \0 261 \0 336 H k 330
0004360 270 261 \0 332 H K i \v \0 \0 277 j 270 I 003 262
0004400 8 J 003 262 4 I 001 ` \0 \0 360 262 026 ` \0 \0
0004420 \t \0 \0 277 J 001 ` \0 \0 360 263 035 M 002 275 260
0004440 225 J 001 ` \0 \0 360 236 ` \0 \0 \t \0 \0 \t \0
0004460 \0 277 N 002 261 377 177 O 016 251 L 247 M 003 265 /
0004500 N 003 265 021 I d 003 225 277 J 003 263 j I \t \0
0004520 \0 260 w 002 003 262 357 N 002 001 I m 377 \v \0 \0
0004540 262 344 J d 003 263 " i \n \0 \0 260 A 002 003 262
0004560 321 M 002 001 J m 377 \v \0 \0 262 306 I \t \0 \0
0004600 277 M 002 275 261 377 0 001 003 221 k 205 J 001 i \n
0004620 \0 \0 J d 002 003 223 277 l 003 214 002 231 J 002 i
0004640 \n \0 \0 l 003 330 200 j l 002 330 330 \t \0 \0 277
0004660 N 002 261 377 001 g \0 \0 \t \0 \0 277 I J \n \0
0004700 \0 277 g \0 \0 \t \0 \0 277 i 273 L 251 M 003 226
0004720 M 002 221 h 200 i 227 H K \n \0 \0 277 260 D M
0004740 002 003 h 360 274 N 003 002 227 M 002 275 N 002 261 376
0004760 305 H K \n \0 \0 277 L 237 o \0 \0 \0 \t \0 \0
0005000 277 M 002 \t \0 \0 277 260 032 k \t \0 \0 277 M 002
0005020 001 \t \0 \0 277 M 002 002 264 \n o \0 \0 \0 \t \0
0005040 \0 h 020 \0 ( 5 6 4 Q P R I N 1
0005060 5 4 7 Q P R I N 2 5 4 0 Q
0005100 S P A C E S 5 3 1 Q P R I N
0005120 2 5 2 3 Q P R I N 1 5 1 1
0005140 Q \ C O M P A R E L I S T S B
0005160 L O C K / C O M P A R E P R I N
0005200 T N 4 5 7 Q \ C O M P A R E
0005220 L I S T S B L O C K / C O M P A
0005240 R E P R I N T N 4 3 3 Q P R
0005260 I N 1 4 2 4 Q \ C O M P A R
0005300 E L I S T S B L O C K / C O M P
0005320 A R E P R I N T 1 4 1 6 Q P
0005340 R I N 1 4 0 2 Q S P A C E S
0005360 3 6 6 Q N C H A R S 3 4 5
0005400 Q N C H A R S 3 2 3 Q P R
0005420 I N 2 3 1 5 Q C O M P A R E
0005440 L S T 2 7 6 Q N C H A R S
0005460 2 6 3 Q C O M P A R E L S T
0005500 2 4 4 Q P R I N 2 2 0 4 Q
0005520 S P A C E S 2 0 1 Q N C H A
0005540 R S 1 4 6 Q P R I N 1 1 1
0005560 5 Q \ C O M P A R E L I S T S
0005600 B L O C K / C O M P A R E P R I
0005620 N T N 7 5 Q P R I N 2 4 1
0005640 Q C O M P A R E L S T 3 0 Q
0005660 \ C O M P A R E L I S T S B L
0005700 O C K / C O M P A R E M A X ) \r
0005720 ( 4 3 0 Q % ) 4 1 3 Q % (
0005740 1 7 6 Q * * C O M M E N T *
0005760 * F L G 1 7 1 Q C O M M E N
0006000 T F L G 1 5 4 Q C O M M E N
0006020 T F L G 1 4 3 Q * * C O M M
0006040 E N T * * F L G 1 3 5 Q C O
0006060 M M E N T F L G ) \r ( 5 6 1 Q
0006100 " - - " 5 2 0 Q " .
0006120 " ) \r \ C O M P A R E L I S T S
0006140 B L O C K / C O M P A R E M A X
0006160 D 1 \r ( L ( 1 Y 0 X )
0006200 ) \0 025 \0 \0 \0 002 l A @ l 036 \n \0 \0
0006220 A l 036 \n \0 \0 330 331 l 005 333 020 \0 ( 1 5
0006240 Q C O U N T D O W N 7 C O
0006260 U N T D O W N ) \r N I L \r ( ) \r
0006300 \ C O M P A R E L I S T S B L O
0006320 C K / C O M P A R E P R I N T N
0006340 D 1 \r ( L ( 2 F L G 1
0006360 S P A C E 0 N ) ) \0 L \0 \0
0006400 \0 003 @ j 360 263 = A 224 k \t \0 \0 202 i b
0006420 002 277 @ k 360 224 g \0 \0 260 % \b \0 \0 l \a
0006440 330 \b \0 \0 375 361 221 h 200 i 223 \b \0 \0 277 g
0006460 \0 \0 \t \0 \0 277 @ \t \0 \0 277 g \0 \0 \t \0
0006500 \0 277 B 264 \t A 264 006 k \t \0 \0 020 \0 ( 1
0006520 1 1 Q S P A C E S 7 6 Q P
0006540 R I N 1 6 7 Q P R I N 2 6
0006560 2 Q P R I N 1 5 3 Q T E R
0006600 P R I 4 1 Q L I N E L E N G
0006620 T H 3 3 Q P O S I T I O N
0006640 1 2 Q S P A C E S ) \r ( 7 3 Q
0006660 - 5 7 Q - 2 6 Q & ) \r
0006700 ( ) \r \ C O M P A R E L I S T S
0006720 B L O C K / C O M P A R E F A I
0006740 L D 1 \r ( L ( 1 Y 0 X
0006760 ) F 1 L O O S E M A T C H
0007000 F 2 D I F F E R E N C E S
0007020 ) \0 k 001 002 \0 002 ` \0 \0 216 d 001 021 001
0007040 \0 @ A l 002 H 017 016 022 244 002 003 265 360 h 265
0007060 P Q d 262 L 3 020 237 A @ Q k 331 \n \0 \0
0007100 \n \0 \0 c 002 j 361 020 @ 003 263 6 A 003 237 A
0007120 204 d 001 003 245 002 003 265 372 i 201 277 h 264 $ @
0007140 R 026 021 001 \0 H 226 A H 002 002 001 364 020 R @
0007160 g \0 \0 A h 032 032 032 h 032 \n \0 \0 c 004 020
0007200 h 020 \0 ( 1 4 4 Q \ N C O N C 2
0007220 5 2 Q C O U N T D O W N 4
0007240 7 Q C O U N T D O W N ) \r ( 1
0007260 3 2 Q - > 2 C O M P A R E
0007300 T R A N S F O R M S ) \r ( ) \r L
0007320 O A D ? D 1 \r ( L ( 2 P R
0007340 I N T F L G 1 L D F L G 0
0007360 F I L E ) F 4 L O A D E
0007400 D F I L E L S T F 5 C O M
0007420 P I L E . E X T ) \0 200 004 002 \0 003
0007440 021 @ 003 @ \t \0 \0 X 265 \f @ l 027 \n \0 \0
0007460 b \0 260 362 T 034 263 g H i \n \0 \0 Y g \0
0007500 \0 \n \0 \0 272 I g \0 \0 \n \0 \0 273 J 262 2
0007520 H g \0 \0 \n \0 \0 U 360 262 $ K 262 027 K 001
0007540 002 d g \0 \0 360 245 d g \0 \0 360 222 277 i 201
0007560 277 h 234 J 001 001 H i \n \0 \0 260 037 K 265 \t
0007600 H A B \v \0 \0 020 001 002 i 360 262 365 J 001 002
0007620 H 360 251 J 001 001 H \t \0 \0 364 262 345 H 020 \0
0007640 ( 1 7 1 Q F I L E D A T E 1
0007660 4 5 Q L O A D 1 3 2 Q F I
0007700 L E D A T E 6 6 Q F I L E N
0007720 A M E F I E L D 5 3 Q G E T
0007740 P R O P 4 3 Q G E T P R O P
0007760 3 4 Q R O O T F I L E N A M
0010000 E 1 7 Q \ L I S P E R R O R
0010020 6 F I N D F I L E ) \r ( 1 1
0010040 2 Q C O M P I L E D 1 0 4 Q
0010060 C o m p i l e d 6 3 Q E X
0010100 T E N S I O N 5 0 Q F I L E
0010120 4 0 Q F I L E D A T E S ) \r
0010140 ( ) \r F I L E S L O A D D 1 \r
0010160 ( L ( 0 F I L E S ) ) \0 \t
0010200 \0 \0 003 001 @ \t \0 \0 \t \0 \0 020 \0 ( 6
0010220 D O F I L E S L O A D 3 N L
0010240 A M B D A . A R G S ) \r N I L \r
0010260 ( ) \r D O F I L E S L O A D D
0010300 1 \r ( L ( 0 F I L E S ) F
0010320 1 3 Q C O M P I L E . E X T
0010340 F 1 4 Q D I R E C T O R I
0010360 E S F 1 5 Q L D F L G )
0010400 001 354 \v 003 \0 001 @ g \0 \0 W 026 021 203 \n g
0010420 \0 \0 \t \0 \0 262 = \b \0 \0 i 360 263 6 h g
0010440 \0 \0 \n \0 \0 \t \0 \0 _ 024 004 l 004 360 262 $
0010460 O 024 i 360 263 036 g \0 \0 h g \0 \0 h g \0
0010500 \0 h g \0 \0 O 024 \r \b \0 \0 W 030 032 275 W
0010520 032 276 H 265 004 K 020 003 243 H 274 h 204 H 001 274
0010540 H 002 270 K L d 004 l 004 360 242 261 001 j 277 I
0010560 g \0 \0 360 262 # L \t \0 \0 g \0 \0 \n \0 \0
0010600 262 027 h 260 c L M 226 o \0 \0 \0 M 032 203 o
0010620 \0 \0 \0 \n \0 \0 274 g \0 \0 L g \0 \0 J \f
0010640 \0 \0 i M \v \0 \0 265 031 J W 026 360 232 O 016
0010660 247 L i M \v \0 \0 265 \t O 020 262 312 h 260 (
0010700 274 I d g \0 \0 360 231 277 L i \n \0 \0 277 L
0010720 260 024 g \0 \0 360 225 L N \n \0 \0 206 L N l
0010740 002 I 017 016 h 032 \n \0 \0 273 261 377 h d g \0
0010760 \0 360 231 277 g \0 \0 271 h 272 261 \0 330 d g \0
0011000 \0 360 262 f 277 L 002 \ 001 _ 022 g \0 \0 360 263
0011020 027 O 022 d g \0 \0 360 262 031 277 L 002 001 g \0
0011040 \0 360 233 L 002 274 L 002 \ 001 \t \0 \0 260 1 O
0011060 022 \t \0 \0 d l { 360 244 d l < 360 222 277 h
0011100 201 277 i 262 031 O 022 g \0 \0 \n \0 \0 _ 022 \t
0011120 \0 \0 230 O 022 \t \0 \0 _ 022 265 004 L 001 d 003
0011140 243 d 221 h 032 275 260 l d g \0 \0 360 231 277 i
0011160 _ 016 277 W 026 272 260 \ d g \0 \0 360 226 277 g
0011200 \0 \0 271 260 O d g \0 \0 360 245 d g \0 \0 360
0011220 234 277 i _ 016 277 L 002 003 \ 001 272 260 6 d g
0011240 \0 \0 360 245 d g \0 \0 360 224 277 h 272 260 % d
0011260 g \0 \0 360 230 277 g \0 \0 271 h 272 260 026 g \0
0011300 \0 360 224 i _ 020 277 211 L d 001 ` \0 \0 034 222
0011320 001 276 L 002 \ 003 264 003 202 261 377 \r L 001 d g
0011340 \0 \0 360 242 261 377 \t 277 g \0 \0 271 h ^ 272 260
0011360 343 \0 ( 5 2 1 Q \ E V A L V 1
0011400 5 1 3 Q B O U N D P 5 0 6 Q
0011420 P A C K * 4 5 5 Q C H C O
0011440 N 1 4 4 6 Q E V A L 3 4 2
0011460 Q \ N C O N C 2 3 2 5 Q L
0011500 O A D 3 0 7 Q C H E C K I M
0011520 P O R T S 2 6 0 Q F I N D F
0011540 I L E 2 4 0 Q F I N D F I L
0011560 E 2 3 3 Q P A C K F I L E N
0011600 A M E . S T R I N G 2 1 7 Q
0011620 E R R O R 1 7 1 Q G E T P R
0011640 O P 1 6 3 Q R O O T F I L E
0011660 N A M E 1 0 4 Q P A C K F I
0011700 L E N A M E . S T R I N G 4 1
0011720 Q F U L L N A M E 3 6 Q G
0011740 E T S T R E A M 2 3 Q I N P
0011760 U T 1 6 Q B O U N D P ) \r (
0012000 7 4 4 Q L O A D C O M P ? 7
0012020 3 3 Q L O A D C O M P 7 0 7
0012040 Q L O A D O P T I O N S 6 7
0012060 2 Q N O E R R O R 6 6 2 Q
0012100 C H E C K I M P O R T S 6 5 4
0012120 Q I M P O R T 6 4 1 Q S Y
0012140 M B O L I C 6 3 3 Q S O U R
0012160 C E 6 1 0 Q E X T 6 0 2 Q
0012200 E X T E N S I O N 5 7 3 Q
0012220 L O A D ? 5 6 5 Q L O A D
0012240 5 4 5 Q C O M P I L E D 5 0
0012260 3 Q D I R E C T O R I E S 4
0012300 3 2 Q O F 4 2 0 Q V A L U
0012320 E 4 0 7 Q V A L U E O F 3
0012340 7 2 Q F R O M 3 6 0 Q L O
0012360 A D F R O M 3 5 2 Q L O A D
0012400 F R O M 3 1 6 Q L O A D ?
0012420 2 7 7 Q C H E C K I M P O R T
0012440 S 2 2 7 Q E X T E N S I O N
0012460 2 2 3 Q B O D Y 1 6 6 Q
0012500 F I L E D A T E S 1 5 4 Q L
0012520 O A D ? 7 6 Q B O D Y 7 2
0012540 Q E X T E N S I O N 6 6 Q
0012560 N A M E 6 2 Q V E R S I O N
0012600 3 3 Q I N P U T 1 3 Q L
0012620 D F L G 3 L O A D ? ) \r (
0012640 2 1 4 Q " n o t f o u n d "
0012660 2 0 5 Q " n o t f o u n d
0012700 o n " ) \r D M P H A S H A 0 0
0012720 0 1 A 0 0 0 5 D 1 \r ( L ( 1
0012740 I T E M 0 V A L ) F 0
0012760 A R R A Y N A M E ) \0 > \0 001
0013000 \0 002 g \0 \0 A d 262 026 d i 360 257 3 020 221
0013020 h 200 i 227 g \0 \0 A h 032 032 200 A @ d 262
0013040 026 d i 360 257 3 020 221 h 200 i 227 g \0 \0 @
0013060 h 032 032 200 @ P h 032 032 032 032 \t \0 \0 020 \0
0013100 ( 7 3 Q P R I N T ) \r ( 5 4 Q
0013120 Q U O T E 2 4 Q Q U O T E
0013140 2 P U T H A S H ) \r ( ) \r D
0013160 M P H A S H A 0 0 0 1 D 1 \r (
0013200 N A M E E R R O R S E T L
0013220 ( 0 N I L ) F 5 A R R A
0013240 Y N A M E ) \0 237 005 001 002 \0 U g \0
0013260 \0 \n \0 \0 021 A 004 g \0 \0 U H 003 265 g
0013300 \0 \0 H \t \0 \0 I g \0 \0 \n \0 \0 \ d 262
0013320 d d i 360 263 _ 3 020 262 P h 260 N 001 271 g
0013340 \0 \0 g \0 \0 I \t \0 \0 I g \0 \0 \n \0 \0
0013360 Z d 262 026 d i 360 257 3 020 221 h 200 i 227 g
0013400 \0 \0 J h 032 032 200 J h 032 032 032 H 002 [ d
0013420 262 # d i 360 263 036 3 020 221 h 200 i 227 g \0
0013440 \0 K h 032 032 214 K 212 i 227 g \0 \0 L h 032
0013460 032 200 L h 032 032 032 h 032 032 032 \t \0 \0 277 I
0013500 265 003 H g \0 \0 \n \0 \0 i 020 \0 ( 2 3 3
0013520 Q M A P H A S H 2 2 0 Q P
0013540 R I N T 1 0 2 Q H A R R A Y
0013560 P R O P 7 3 Q H A R R A Y S
0013600 I Z E 3 7 Q H A R R A Y P R
0013620 O P 3 0 Q H A R R A Y S I Z
0013640 E 6 E V A L V ) \r ( 2 3 0 Q
0013660 D M P H A S H A 0 0 0 1 A 0 0
0013700 0 5 1 7 7 Q Q U O T E 1 6
0013720 3 Q Q U O T E 1 2 4 Q Q U
0013740 O T E 7 7 Q O V E R F L O W
0013760 6 7 Q H A R R A Y 6 4 Q
0014000 C O N S 3 4 Q O V E R F L O
0014020 W 2 4 Q H A S H A R R A Y
0014040 1 4 Q R P A Q 3 D M P H A
0014060 S H ) \r ( ) \r D M P H A S H D
0014100 1 \r ( L ( 0 L ) P 0 A
0014120 R R A Y N A M E ) \0 027 001 \0 003 001
0014140 @ 216 d 001 021 001 \0 o \0 \0 \0 i \n \0 \0 023
0014160 002 003 265 360 h 020 \0 ( 1 6 Q D M P H
0014200 A S H A 0 0 0 1 ) \r N I L \r (
0014220 1 2 Q ( D M P H A S H A 0 0 0
0014240 1 ) ) \r H A S H O V E R F L O W
0014260 D 1 \r ( L ( 0 H A R R A Y
0014300 ) ) \0 237 005 \0 \0 001 @ 006 \0 \0 021 A 004
0014320 @ 003 265 031 H g \0 \0 \n \0 \0 \ 273 H g \0
0014340 \0 \n \0 \0 Z K 265 \r d 260 F 002 273 g \0 \0
0014360 274 260 354 g \0 \0 360 233 l 032 @ h 032 032 \t \0
0014400 \0 277 260 366 K d 005 003 230 277 J K 352 \t \0 \0
0014420 260 $ 3 223 J K 260 034 K \t \0 \0 231 @ k
0014440 K 017 016 [ 3 020 265 - H g \0 \0 \n \0 \0 d
0014460 k 324 342 324 Y H I L H g \0 \0 \n \0 \0 H
0014500 g \0 \0 \n \0 \0 \f \0 \0 \n \0 \0 d H \n \0
0014520 \0 @ 020 d 005 003 262 336 277 H g \0 \0 \n \0 \0
0014540 K 352 \t \0 \0 260 317 \0 ( 2 3 3 Q F I
0014560 X R 2 2 6 Q H A R R A Y P R
0014600 O P 2 0 7 Q \ C O P Y H A R
0014620 R A Y P 2 0 2 Q R E H A S H
0014640 1 7 7 Q H A S H A R R A Y
0014660 1 7 4 Q H A R R A Y P R O P
0014700 1 6 5 Q H A R R A Y P R O P
0014720 1 4 5 Q H A R R A Y P R O P
0014740 1 2 3 Q F N T Y P 1 0 6 Q
0014760 F I X R 6 7 Q E R R O R X
0015000 3 2 Q H A R R A Y P R O P 2
0015020 1 Q H A R R A Y P R O P ) \r (
0015040 2 2 3 Q N U M K E Y S 1 7 1
0015060 Q E Q U I V F N 1 6 2 Q H
0015100 A S H B I T S F N 1 4 2 Q N
0015120 U M K E Y S 5 4 Q E R R O R
0015140 4 6 Q E R R O R 2 7 Q N
0015160 U M K E Y S 1 6 Q O V E R F
0015200 L O W 3 H A R R A Y P ) \r (
0015220 ) \r B K B U F S D 1 \r ( L (
0015240 1 I D 0 B U F S ) ) \0 V
0015260 002 \0 \0 002 021 001 @ 003 265 004 h 020 001 270 @
0015300 002 271 i \t \0 \0 262 " \b \0 \0 277 \b \0 \0 277
0015320 i d \n \0 \0 277 I \t \0 \0 277 i \t \0 \0 \t
0015340 \0 \0 277 \b \0 \0 277 202 I 265 032 H 264 320 A 225
0015360 A i \n \0 \0 277 H i \n \0 \0 277 H \t \0 \0
0015400 277 260 272 \t \0 \0 277 260 344 \0 ( 1 2 1 Q
0015420 B K S Y S B U F 1 1 3 Q B K
0015440 L I N B U F 1 0 6 Q P R I N
0015460 1 1 0 0 Q P R I N 1 6 1 Q
0015500 S Y S B U F 5 5 Q B K S Y
0015520 S B U F 5 2 Q S Y S B U F
0015540 4 5 Q B K S Y S B U F 4 0 Q
0015560 C L E A R B U F 3 2 Q D O
0015600 B E 2 6 Q P R I N T B E L L
0015620 S 2 1 Q R E A D P ) \r N I L
0015640 \r ( ) \r C H A N G E N A M E D
0015660 1 \r ( L ( 2 T O 1 F R O
0015700 M 0 F N ) F 0 F I L E
0015720 P K G F L G ) \0 037 \0 001 \0 003 @ \t
0015740 \0 \0 A B @ \f \0 \0 264 023 P 235 @ d \t \0
0015760 \0 230 277 @ g \0 \0 \n \0 \0 @ 020 \0 ( 3 3
0016000 Q M A R K A S C H A N G E D
0016020 2 2 Q E X P R P 1 1 Q C H
0016040 A N G E N A M E 1 3 G E T D
0016060 ) \r ( 3 0 Q F N S ) \r ( ) \r C
0016100 H N G N M A 0 0 0 1 D 1 \r ( N
0016120 A M E E R R O R S E T F 0
0016140 D E F F 1 X F 2 Y
0016160 F 3 F N ) \0 020 \0 004 002 \0 i
0016200 027 \0 \0 277 P Q R S \f \0 \0 h 032 020 \0 (
0016220 1 3 Q C H A N G E N A M E 1 )
0016240 \r ( 3 N O L I N K M E S S ) \r
0016260 ( ) \r C H N G N M D 1 \r ( L
0016300 ( 2 F L G 1 O L D ) P
0016320 3 Y P 2 X P 1 D E
0016340 F I 0 F N F 7 R E S
0016360 E T V A R S L S T ) 001 / \a 001 \0
0016400 003 021 p 006 @ h i \v \0 \0 b \0 A i d \v
0016420 \0 \0 265 003 A b 002 @ g \0 \0 \n \0 \0 265 \f
0016440 @ g \0 \0 \n \0 \0 265 003 @ \t \0 \0 Y A g
0016460 \0 \0 @ h 032 032 032 \t \0 \0 X B 262 l d \t
0016500 \0 \0 244 H \t \0 \0 277 A @ g \0 \0 \n \0 \0
0016520 \n \0 \0 \ 230 @ g \0 \0 L \v \0 \0 206 @ g
0016540 \0 \0 \n \0 \0 277 H g \0 \0 \n \0 \0 277 A 273
0016560 H 272 I 264 / g \0 \0 ` \0 \0 032 W 016 032 c
0016600 016 ] 276 o \0 \0 \0 g \0 \0 \n \0 \0 M 001 002
0016620 027 \0 \0 277 N d W 016 360 262 0 277 M 002 c 016
0016640 260 9 o \0 \0 \0 032 020 H 273 A Z @ g \0 \0
0016660 \n \0 \0 \n \0 \0 262 274 H \t \0 \0 262 266 H g
0016700 \0 \0 \n \0 \0 262 255 H 020 W 016 \n \0 \0 232 W
0016720 016 k N \v \0 \0 M 002 031 277 265 005 \b \0 \0 001
0016740 254 J o \0 \0 \0 @ h 032 \n \0 \0 032 020 B 263
0016760 > A \t \0 \0 Y 263 030 g \0 \0 \b \0 \0 h 032
0017000 032 271 A o \0 \0 \0 032 i d \v \0 \0 277 H A
0017020 h I A \f \0 \0 \n \0 \0 277 @ g \0 \0 A \v
0017040 \0 \0 277 H g \0 \0 @ A 032 \v \0 \0 K 020 \0
0017060 ( 4 5 3 Q / P U T 4 4 0 Q
0017100 / A D D P R O P 4 2 7 Q / P
0017120 U T D 4 2 4 Q S A V E D 4
0017140 1 3 Q P R I N T 3 7 4 Q G
0017160 E N S Y M 3 6 3 Q G E T D
0017200 3 5 2 Q \ A P P E N D 2 3 3
0017220 5 Q E R R O R ! 3 2 4 Q N
0017240 L E F T 3 1 4 Q T A I L P
0017260 3 0 3 Q G E T P 2 7 2 Q \
0017300 D E F I N E D P 2 6 4 Q M E
0017320 M B 2 6 1 Q G E T P 2 1 3
0017340 Q C H N G N M A 0 0 0 1 1 5
0017360 3 Q / R E M P R O P 1 4 3 Q
0017400 / R E M P R O P 1 3 3 Q /
0017420 P U T 1 2 1 Q / D R E M O V
0017440 E 1 1 6 Q G E T P 1 0 5 Q
0017460 / P U T D 1 0 0 Q S T K P
0017500 O S 7 0 Q P A C K 5 3 Q
0017520 G E T D 4 5 Q G E T P 3 4
0017540 Q G E T P 2 0 Q F N C H E
0017560 C K 1 0 Q F N C H E C K ) \r
0017600 ( 4 4 5 Q A L I A S 4 3 4 Q
0017620 N A M E S C H A N G E D 3 7
0017640 1 Q N L A M B D A 3 0 0 Q
0017660 A L I A S 2 5 6 Q N A M E S
0017700 C H A N G E D 2 2 1 Q N O L
0017720 I N K M E S S 2 1 0 Q I N T
0017740 E R N A L 1 7 1 Q N O L I N
0017760 K M E S S 1 6 6 Q N O L I N
0020000 K M E S S 1 5 0 Q A L I A S
0020020 1 4 0 Q N A M E S C H A N G
0020040 E D 1 2 7 Q N A M E S C H A
0020060 N G E D 1 1 3 Q N A M E S C
0020100 H A N G E D 6 0 Q - I N -
0020120 4 2 Q B R O K E N 3 1 Q A
0020140 D V I S E D ) \r ( 4 0 5 Q (
0020160 w a s u n d e f i n e d ) 3
0020200 4 4 Q ( n o t f o u n d i
0020220 n ) 2 4 4 Q ( n o t d e f
0020240 i n e d ) 2 0 5 Q ( C H N G
0020260 N M A 0 0 0 1 ) ) \r C L B U F S
0020300 D 1 \r ( L ( 2 B U F 1
0020320 N O T Y P E F L G 0 N O C L
0020340 E A R F L G ) F 2 R E A D
0020360 B U F ) \0 K 002 001 \0 003 021 001 @ 263
0020400 033 A 234 i \t \0 \0 227 \b \0 \0 277 \b \0 \0 277
0020420 i d \n \0 \0 277 B c 004 277 h 027 \0 \0 277 i
0020440 \t \0 \0 270 i \t \0 \0 271 \b \0 \0 277 \b \0 \0
0020460 277 H o \0 \0 \0 \n \0 \0 221 h 270 I 242 H 264
0020500 005 H I 032 020 \0 ( 7 5 Q S T R E Q
0020520 U A L 6 4 Q S Y S B U F 6
0020540 0 Q L I N B U F 5 4 Q S Y
0020560 S B U F 4 7 Q L I N B U F
0020600 3 1 Q C L E A R B U F 2 3 Q
0020620 D O B E 1 7 Q P R I N T B
0020640 E L L S 1 3 Q R E A D P ) \r
0020660 ( 4 2 Q C T R L U F L G ) \r (
0020700 7 2 Q " \r " ) \r D E F I N E
0020720 D 1 \r ( L ( 1 T Y P E - I
0020740 N 0 X ) ) \0 K 004 \0 \0 002 021 @
0020760 003 @ 260 A d 001 [ 003 265 \f o \0 \0 \0 K \n
0021000 \0 \0 277 K 001 g \0 \0 K 002 002 243 K 002 001 205
0021020 g \0 \0 K 002 032 A 223 g \0 \0 202 g \0 \0 \f
0021040 \0 \0 270 I 221 h 200 i 224 H h 032 Z 202 I H
0021060 & 271 002 003 265 300 J 020 \0 ( 6 3 Q F N
0021100 S . P U T D E F 2 3 Q E R R
0021120 O R ) \r ( 6 0 Q L O A D 5 4
0021140 Q D E F I N E D 4 4 Q L A
0021160 M B D A 3 1 Q F N S ) \r (
0021200 1 7 Q " i n c o r r e c t d
0021220 e f i n i n g f o r m " ) \r F
0021240 N S . P U T D E F D 1 \r ( L
0021260 ( 3 R E A S O N 2 D E F I
0021300 N I T I O N 1 T Y P E 0
0021320 N A M E ) F 0 D F N F L G
0021340 F 1 A D D S P E L L F L G
0021360 F 2 L A M B D A S P L S T
0021400 F 3 F I L E P K G F L G )
0021420 \0 307 \0 004 \0 004 B d 222 d 003 230 001 R 034
0021440 221 h 200 i 230 B o \0 \0 \0 \n \0 \0 277 P d
0021460 224 d i 360 262 025 277 @ o \0 \0 \0 \n \0 \0 231
0021500 @ o \0 \0 \0 i \v \0 \0 277 C g \0 \0 360 224
0021520 B \t \0 \0 277 P 224 P i 360 262 f @ d \t \0
0021540 \0 262 3 277 @ i \n \0 \0 277 B @ \t \0 \0 364
0021560 221 @ 020 P 263 ? o \0 \0 \0 i \n \0 \0 277 @
0021600 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 @ \t
0021620 \0 \0 260 g \0 \0 \n \0 \0 225 i o \0 \0 \0
0021640 214 @ ` \0 \0 \n \0 \0 231 i o \0 \0 \0 @ \v
0021660 \0 \0 277 Q 224 @ \t \0 \0 277 @ B \n \0 \0 217
0021700 Q 225 @ j \n \0 \0 277 @ g \0 \0 B \v \0 \0
0021720 277 S 227 @ g \0 \0 C \v \0 \0 @ 020 \0 ( 3
0021740 0 3 Q M A R K A S C H A N G E
0021760 D 2 7 0 Q / P U T P R O P
0022000 2 5 7 Q A D D S P E L L 2 4
0022020 7 Q / P U T D 2 4 1 Q A D
0022040 D S P E L L 2 3 2 Q F O R M
0022060 A T 2 2 0 Q M E M B 2 0 2
0022100 Q G E T P R O P 1 7 2 Q S
0022120 A V E D E F 1 6 5 Q L I S P
0022140 X P R I N 1 1 5 4 Q L I S P
0022160 X P R I N 2 1 4 6 Q L I S P
0022200 X P R I N 1 1 2 7 Q G E T D
0022220 1 2 1 Q V I R G I N F N 1
0022240 1 1 Q \ D E F I N E D P 7 4
0022260 Q F I X E D I T D A T E 6 1
0022300 Q E R R O R 4 7 Q U N S A
0022320 F E . T O . M O D I F Y 2 5 Q
0022340 E R R O R ) \r ( 2 7 7 Q F N
0022360 S 2 6 4 Q E X P R 2 1 5 Q
0022400 L I S P X C O M S 1 7 7 Q
0022420 C L I S P W O R D 6 6 Q D E
0022440 F I N E D ) \r ( 2 2 6 Q " *
0022460 * * * N o t e : ~ S i s a
0022500 l s o t h e n a m e o f
0022520 a h i s t o r y c o m m a n
0022540 d . W h e n t y p e d i n
0022560 , i t s i n t e r p r e t a
0022600 t i o n a s a h i s t o r
0022620 y c o m m a n d w i l l t
0022640 a k e p r e c e d e n c e . ~
0022660 % % " \r 2 1 0 Q " * * * * N
0022700 o t e : ~ S d e f i n e d ,
0022720 t h e r e f o r e d i s a b
0022740 l e d i n C L I S P . ~ % %
0022760 " 1 6 1 Q " r e d e f i n
0023000 e d ) \r " 1 4 2 Q " ( " 5
0023020 5 Q " n o t r e d e f i n
0023040 e d " 4 4 Q " r e d e f i n
0023060 e " 2 2 Q " I l l e g a l
0023100 f u n c t i o n d e f i n i t
0023120 i o n " ) \r E Q M E M B D 1 \r
0023140 ( L ( 1 Y 0 X ) ) \0 021
0023160 \0 \0 \0 002 @ A 360 265 \f A 003 264 \b @ A 034
0023200 264 003 i 020 \0 N I L \r N I L \r ( ) \r
0023220 E Q U A L N D 1 \r ( L ( 2
0023240 D E P T H 1 Y 0 X ) )
0023260 \0 ` \0 \0 \0 003 @ A 360 265 [ @ 003 263 ' @
0023300 d 3 020 233 277 A 3 020 264 L @ A \n \0 \0 020
0023320 005 \a 225 @ A \n \0 \0 020 @ 005 \b 264 8 @ A
0023340 \n \0 \0 020 A 003 241 h 020 B 227 k B 361 223 g
0023360 \0 \0 020 @ 001 A 001 B d 223 k 331 b 004 \v \0
0023400 \0 d g \0 \0 360 263 351 i 360 264 \n @ 002 A 002
0023420 B \v \0 \0 020 \0 ( 1 3 5 Q E Q U A
0023440 L N 1 1 2 Q E Q U A L N 5
0023460 4 Q E Q P 4 1 Q S T R E Q
0023500 U A L 3 0 Q E Q P ) \r ( 1 1
0023520 6 Q ? 7 3 Q ? ) \r ( ) \r F
0023540 I L E D A T E A 0 0 0 1 A 0 0 0
0023560 2 D 1 \r ( N A M E E R R O R
0023600 S E T L ( 0 N I L ) P
0023620 1 2 Q * P R I N T - B A S E *
0023640 P 1 1 Q * R E A D - B A S
0023660 E * P 1 0 Q * R E A D T A
0023700 B L E * P 7 * P A C K A G
0023720 E * F 1 3 Q F I L E F
0023740 1 4 Q R E S E T V A R S L S T
0023760 F 1 5 Q C F L G F 1 6
0024000 Q R E S E T Y ) \0 212 \v 004 002 \0
0024020 021 p 006 W 026 g \0 \0 \n \0 \0 X 265 \ g \0
0024040 \0 W 026 g \0 \0 \n \0 \0 X h 032 032 h h 032
0024060 032 W 030 032 c 030 277 H \t \0 \0 262 P H j \n
0024100 \0 \0 277 H g \0 \0 \n \0 \0 \t \0 \0 ^ 001 275
0024120 N 002 001 274 W 032 262 ( L d 003 262 $ 277 M 006
0024140 \0 \0 [ 311 \0 K 311 002 K 311 004 K 311 004 021 004
0024160 \n H \t \0 \0 022 \ 206 \t \0 \0 271 260 273 L 003
0024200 001 g \0 \0 360 224 L 002 003 001 272 I 225 H I \n
0024220 \0 \0 277 J 022 c 034 i 020 \0 ( 2 0 1 Q
0024240 S E T F I L E P T R 1 5 2 Q
0024260 G E T F I L E P T R 1 4 4 Q
0024300 R E A D 7 4 Q \ M V L I S T
0024320 7 1 Q \ P A R S E - F I L E
0024340 - H E A D E R 6 1 Q S E T F
0024360 I L E P T R 5 2 Q R A N D A
0024400 C C E S S P 3 0 Q O P E N S
0024420 T R E A M 1 2 Q O P E N P )
0024440 \r ( 1 6 3 Q F I L E C R E A T
0024460 E D 1 2 1 Q R E A D E R - E
0024500 N V I R O N M E N T 6 6 Q R
0024520 E T U R N 2 5 Q I N P U T
0024540 2 0 Q C L O S E F 7 I N P
0024560 U T ) \r ( ) \r F I L E D A T E A
0024600 0 0 0 1 D 1 \r ( N A M E E R
0024620 R O R S E T P 1 R E S E T
0024640 Y P 0 L I S P X H I S T
0024660 F 3 L I S P X H I S T F
0024700 4 R E S E T V A R S L S T )
0024720 \0 & 003 002 002 \0 S 021 ! 002 T o \0 \0 \0 g
0024740 \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 277
0024760 J 223 \b \0 \0 200 I 022 h 032 020 \0 ( 3 6 Q
0025000 E R R O R ! 3 0 Q R E S E
0025020 T R E S T O R E 1 6 Q F I L
0025040 E D A T E A 0 0 0 1 A 0 0 0 2 )
0025060 \r ( 2 4 Q E R R O R 1 3 Q
0025100 I N T E R N A L ) \r ( 1 0 Q
0025120 ( F I L E D A T E A 0 0 0 1 A 0
0025140 0 0 2 ) ) \r F I L E D A T E D
0025160 1 \r ( I 1 C F L G I 0
0025200 F I L E ) \0 \r \0 \0 \0 002 @ 264 \n o
0025220 \0 \0 \0 \t \0 \0 001 020 \0 ( 1 1 Q F I
0025240 L E D A T E A 0 0 0 1 ) \r N I L
0025260 \r ( 6 ( F I L E D A T E A 0
0025300 0 0 1 ) ) \r F N C H E C K A 0 0
0025320 0 1 D 1 \r ( N A M E E R R O
0025340 R S E T F 0 F N F 1
0025360 S P E L L F L G F 2 T A I
0025400 L F 3 X ) \0 # \0 004 002 \0 P
0025420 l F ` \0 \0 Q R g \0 \0 \r 006 \0 \0 265 016
0025440 P l F ` \0 \0 Q R \r 005 \0 \0 c 006 h 032
0025460 020 \0 ( 3 4 Q M I S S P E L L E
0025500 D ? 1 6 Q M I S S P E L L E
0025520 D ? ) \r ( 2 6 Q S P E L L I N
0025540 G S 2 1 2 Q G E T D 5 U
0025560 S E R W O R D S ) \r ( ) \r F N C
0025600 H E C K D 1 \r ( L ( 3 P R
0025620 O P F L G 1 N O E R R O R F
0025640 L G ) P 0 X I 4 T A
0025660 I L I 2 S P E L L F L G
0025700 I 0 F N F 1 1 Q A D D
0025720 S P E L L F L G ) \0 347 \t 001 \0 005
0025740 021 220 \b @ 004 l 004 360 221 h 200 i 263 023 @ \t
0025760 \0 \0 263 Q @ g \0 \0 \n \0 \0 231 C 263 F A
0026000 242 261 \0 245 h 020 ` \0 \0 262 366 o \0 \0 \0 \t
0026020 \0 \0 001 230 H @ 360 244 H b \0 260 311 @ \t \0
0026040 \0 h _ 020 277 _ 016 003 265 % h 262 324 g \0 \0
0026060 I 001 g \0 \0 @ \f \0 \0 Z \t \0 \0 262 302 J
0026100 b \0 277 W 022 224 @ j \n \0 \0 @ 020 001 _ 020
0026120 g \0 \0 \n \0 \0 265 004 O 020 h 276 275 M d 250
0026140 262 A O 020 263 311 i 260 304 003 243 M 276 h 204 M
0026160 001 276 M 002 275 N g \0 \0 \n \0 \0 h 274 [ 003
0026200 265 \f h Y 262 331 N 263 333 i 260 326 001 274 H 001
0026220 233 @ I \n \0 \0 225 L 265 353 i 260 350 K 002 260
0026240 337 O 016 002 260 201 @ o \0 \0 \0 g \0 \0 \t \0
0026260 \0 265 \b g \0 \0 \t \0 \0 \t \0 \0 h 360 \v \0
0026300 \0 b \0 261 377 ! \0 ( 3 4 0 Q E R R
0026320 O R 3 3 3 Q R E L S T K 3
0026340 3 0 Q S T K P O S 3 2 0 Q
0026360 S T K P O S 2 6 5 Q M E M B
0026400 2 3 3 Q F I L E C O M S L S
0026420 T 1 6 5 Q G E T P 1 5 2 Q
0026440 A D D S P E L L 1 3 4 Q \
0026460 D E F I N E D P 1 3 0 Q P A
0026500 C K * 1 0 0 Q W H E R E I S
0026520 6 1 Q F N C H E C K A 0 0 0
0026540 1 3 2 Q G E T P 2 1 Q \
0026560 D E F I N E D P ) \r ( 3 2 5 Q
0026600 L O A D F R O M 3 1 5 Q L O
0026620 A D 2 3 0 Q B L O C K S 1
0026640 6 2 Q F I L E G R O U P 1 2
0026660 4 Q / 1 1 7 Q \ 5 0 Q
0026700 D W I M F L G 2 7 Q E X P R
0026720 ) \r ( 3 1 2 Q " n o t a
0026740 f u n c t i o n " 5 6 Q ( F
0026760 N C H E C K A 0 0 0 1 ) ) \r F N
0027000 T Y P 1 D 1 \r ( L ( 0 X )
0027020 ) \0 023 \0 \0 \0 001 ` \0 \0 264 016 @ ` \0
0027040 \0 \n \0 \0 d 222 \t \0 \0 020 \0 ( 2 0 Q
0027060 F N T Y P 1 3 Q G E T H A S
0027100 H ) \r ( 1 0 Q C L I S P A R R
0027120 A Y 2 C L I S P A R R A Y )
0027140 \r ( ) \r F R E E V A R S D 1 \r
0027160 ( L ( 0 X ) ) \0 003 \0 \0 \0 001
0027200 h 020 \0 N I L \r N I L \r ( ) \r L C
0027220 S K I P D 1 \r ( L ( 1 F L
0027240 G 0 F N ) ) \0 A 002 \0 \0 002 021
0027260 001 \b \0 \0 g \0 \0 360 262 037 \b \0 \0 X d
0027300 g \0 \0 360 232 277 @ A h d H \r 005 \0 \0 020
0027320 g \0 \0 \n \0 \0 265 \f o \0 \0 \0 @ \n \0 \0
0027340 h 020 002 271 @ A h d H l 005 I 017 016 020 \0
0027360 ( 6 0 Q E R R O R 4 6 Q G
0027400 E T P R O P 3 7 Q B I N S K
0027420 I P 1 6 Q R E A D 5 P E
0027440 E K C ) \r ( 4 3 Q C O D E R E
0027460 A D E R 2 3 Q B I N A R Y
0027500 1 0 Q % ) \r ( 5 4 Q " B
0027520 a d c o m p i l e d f u n c
0027540 t i o n " ) \r M A P R I N T A 0
0027560 0 0 1 D 1 \r ( N A M E E R R
0027600 O R S E T F 0 F I L E F
0027620 1 L S T F 2 P F N F
0027640 3 S E P F 4 L S P X P
0027660 R N T F L G F 5 L E F T
0027700 F 6 R I G H T ) \0 ] \0 \a 002
0027720 \0 T 027 \0 \0 277 R 245 g \0 \0 c 004 277 S 245
0027740 g \0 \0 c 006 277 U 265 \b Q 003 265 2 260 035 P
0027760 \n \0 \0 277 260 365 003 263 037 o \0 \0 \0 P \n \0
0030000 \0 277 Q P l 002 R 017 016 277 V d 225 P \n \0
0030020 \0 277 h h 032 020 S P \n \0 \0 277 Q 001 P l
0030040 002 R 017 016 277 Q 002 c 002 265 315 260 337 \0 ( 1
0030060 1 1 Q L I S P X P R I N 1 7
0030100 7 Q L I S P X P R I N 1 5 7
0030120 Q L I S P X P R I N 1 4 1 Q
0030140 L I S P X P R I N 1 ) \r ( 2 1
0030160 Q % 1 1 Q L I S P X P R
0030200 I N 1 3 L I S P X P R I N T
0030220 F L G ) \r ( 5 3 Q " . "
0030240 ) \r M A P R I N T D 1 \r ( I
0030260 6 L S P X P R N T F L G I
0030300 5 P F N I 4 S E P I
0030320 3 R I G H T I 2 L E F T
0030340 I 1 F I L E I 0 L S
0030360 T F 2 R E S E T V A R S L
0030400 S T ) \0 C 002 001 \0 \a g \0 \0 ` \0 \0
0030420 032 R 032 c 004 021 021 001 R Y o \0 \0 \0 g \0
0030440 \0 \n \0 \0 H 001 002 027 \0 \0 277 I d R 360 225
0030460 277 H 002 c 004 215 R \n \0 \0 231 R k I \v \0
0030500 \0 H 002 031 277 265 005 \b \0 \0 001 020 \0 ( 7 7
0030520 Q E R R O R ! 6 6 Q N L E
0030540 F T 5 7 Q T A I L P 3 1 Q
0030560 M A P R I N T A 0 0 0 1 ) \r (
0030600 3 7 Q L I S P X P R I N T F L
0030620 G 2 6 Q I N T E R N A L 5
0030640 L I S P X P R I N T F L G 2
0030660 L I S P X P R I N T F L G ) \r
0030700 ( 2 3 Q ( M A P R I N T A 0
0030720 0 0 1 ) ) \r M K L I S T D 1 \r
0030740 ( L ( 0 X ) ) \0 \n \0 \0 \0 001
0030760 @ d 224 d 003 241 h 032 020 \0 N I L \r N I
0031000 L \r ( ) \r N A M E F I E L D D
0031020 1 \r ( L ( 2 D I R F L G 1
0031040 S U F F I X F L G 0 F I L
0031060 E ) ) \0 S \0 \0 \0 003 B g \0 \0 360 227
0031100 @ g \0 \0 \n \0 \0 020 A d g \0 \0 360 230 277
0031120 @ g \0 \0 \n \0 \0 020 251 B 247 @ g \0 \0 \n
0031140 \0 \0 020 g \0 \0 B 264 \t @ g \0 \0 \n \0 \0
0031160 g \0 \0 @ g \0 \0 \n \0 \0 g \0 \0 A 264 \t
0031200 @ g \0 \0 \n \0 \0 \r 006 \0 \0 020 \0 ( 1 2
0031220 0 Q P A C K F I L E N A M E
0031240 1 1 4 Q F I L E N A M E F I E
0031260 L D 7 7 Q F I L E N A M E F
0031300 I E L D 6 5 Q F I L E N A M
0031320 E F I E L D 4 7 Q F I L E N
0031340 A M E F I E L D 3 4 Q F I L
0031360 E N A M E F I E L D 1 4 Q F
0031400 I L E N A M E F I E L D ) \r ( 1
0031420 1 1 Q E X T E N S I O N 1 0
0031440 2 Q E X T E N S I O N 7 4 Q
0031460 N A M E 7 0 Q N A M E 6
0031500 2 Q D I R E C T O R Y 5 3 Q
0031520 D I R E C T O R Y 4 4 Q N
0031540 A M E 3 1 Q E X T E N S I O
0031560 N 2 2 Q O N L Y 1 1 Q D
0031600 I R E C T O R Y 3 O N L Y )
0031620 \r ( ) \r N L I S T D 1 \r ( L
0031640 ( 0 N ) ) \0 ! 003 \0 002 \0 e 021 001
0031660 \0 H 021 021 002 I j 360 221 J 020 J 244 I d a
0031700 226 277 I a J 032 272 I k 331 Y 260 353 \0 N I
0031720 L \r N I L \r ( ) \r P R I N T B E
0031740 L L S D 1 \r N I L \0 \t \0 \0 \0
0031760 \0 ` \0 \0 i \n \0 \0 020 \0 ( 6 P R I
0032000 N 3 ) \r ( 2 B E L L S ) \r ( )
0032020 \r P R O M P T C H A R A 0 0 0 1
0032040 D 1 \r ( N A M E E R R O R S
0032060 E T F 0 X ) \0 \a \0 001 002 \0
0032100 P \t \0 \0 i 020 \0 ( 3 E V A L ) \r
0032120 N I L \r ( ) \r P R O M P T C H A
0032140 R D 1 \r ( L ( 1 F L G )
0032160 P 3 X P 2 P R O M P T
0032200 S T R I 2 H I S T O R Y
0032220 I 0 I D F 4 R E A D B
0032240 U F ) \0 f 004 001 \0 003 021 0 002 A 262 .
0032260 T 265 " B 262 1 ` \0 \0 262 , B 002 001 k 330
0032300 X B 002 002 002 001 265 004 l d Y 361 262 027 H I
0032320 331 260 023 \t \0 \0 c \b 262 333 h 020 \b \0 \0 262
0032340 324 h 020 H 272 ` \0 \0 265 " J 225 J i \n \0
0032360 \0 277 @ d 224 i \n \0 \0 h 020 d 001 021 001 003
0032400 o \0 \0 \0 i \n \0 \0 023 002 003 265 360 260 335 \0
0032420 ( 1 3 5 Q P R O M P T C H A R
0032440 A 0 0 0 1 1 1 6 Q P R I N 1
0032460 1 0 6 Q P R I N 2 6 4 Q
0032500 L I S P X R E A D P 5 3 Q L
0032520 I S P X R E A D B U F ) \r ( 7 5
0032540 Q P R O M P T C H A R F O R M
0032560 S 1 6 Q P R O M P T # F L G
0032600 ) \r ( 1 3 1 Q ( P R O M P T
0032620 C H A R A 0 0 0 1 ) ) \r R A I S
0032640 E P D 1 \r ( L ( 0 T T B L
0032660 ) ) \0 017 \0 \0 \0 001 h @ \n \0 \0 264 \b
0032700 i @ \n \0 \0 i 020 \0 ( 1 3 Q R A I
0032720 S E 4 R A I S E ) \r N I L \r
0032740 ( ) \r R E A D F I L E A 0 0 0 1
0032760 A 0 0 0 2 D 1 \r ( N A M E E
0033000 R R O R S E T F 0 F I L E
0033020 F 1 T E M ) \0 \t \0 002 002 \0
0033040 P \t \0 \0 c 002 i 020 \0 ( 3 R E A D
0033060 ) \r N I L \r ( ) \r R E A D F I L
0033100 E A 0 0 0 1 D 1 \r ( N A M E
0033120 E R R O R S E T L ( 0 N I
0033140 L ) P 4 H E L P C L O C K
0033160 P 3 T E M F 5 F I L
0033200 E F 6 R E S E T V A R S L
0033220 S T F 7 E N D T O K E N
0033240 F 1 0 Q R E S E T Y ) \0 \
0033260 005 004 002 \0 g \0 \0 U g \0 \0 h d ` \0 \0
0033300 \r 005 \0 \0 c \n h 032 032 h h 032 032 V 032 c
0033320 \f 277 021 P 004 o \0 \0 \0 \t \0 \0 221 h 200 i
0033340 246 K d W 016 360 226 277 H 022 c 020 i 020 001 g
0033360 \0 \0 360 231 U K 002 \n \0 \0 \t \0 \0 277 K 272
0033400 I 265 \t J h 032 Y 270 260 315 J & 271 260 310 \0
0033420 ( 1 1 0 Q S E T - R E A D E R
0033440 - E N V I R O N M E N T 1 0 5
0033460 Q \ D O - D E F I N E - F I L
0033500 E - I N F O 4 7 Q R E A D F
0033520 I L E A 0 0 0 1 A 0 0 0 2 1 7
0033540 Q O P E N S T R E A M ) \r ( 7
0033560 5 Q D E F I N E - F I L E - I
0033600 N F O 1 3 Q L O A D P A R A
0033620 M E T E R S 6 I N P U T 2
0033640 C L O S E F ? ) \r ( 4 4 Q
0033660 ( R E A D F I L E A 0 0 0 1 A 0
0033700 0 0 2 ) ) \r R E A D F I L E D
0033720 1 \r ( L ( 0 - a r g s - )
0033740 P 1 3 Q R E S E T Y P 1
0033760 2 Q L I S P X H I S T P 1
0034000 1 Q * P R I N T - B A S E *
0034020 P 1 0 Q * R E A D - B A S E
0034040 * P 7 * R E A D T A B L E
0034060 * P 6 * P A C K A G E *
0034100 P 3 E N D T O K E N P 1
0034120 F I L E F 1 5 Q * O L D
0034140 - I N T E R L I S P - R E A D -
0034160 E N V I R O N M E N T * F 1
0034200 6 Q L I S P X H I S T F 1
0034220 7 Q R E S E T V A R S L S T )
0034240 \0 } \r 003 002 \0 e 021 001 \0 k a 021 A 005
0034260 l 002 H 361 221 h 202 l 002 a 272 l 003 H 361 223
0034300 g \0 \0 202 l 003 a 273 l 004 H 361 221 h 202 l
0034320 004 a 274 W 032 006 \0 \0 ] 311 \0 M 311 002 M 311
0034340 004 M 311 004 021 004 \t J 265 ! L 265 030 W 034 021
0034360 ! \f W 036 o \0 \0 \0 g \0 \0 \n \0 \0 262 023
0034400 h 260 023 006 \0 \0 276 260 346 006 \0 \0 _ 016 277 260
0034420 333 g \0 \0 _ 030 \n \0 \0 O 030 223 \b \0 \0 020
0034440 O 026 020 \0 ( 1 6 7 Q E R R O R !
0034460 1 6 1 Q R E S E T R E S T O
0034500 R E 1 2 6 Q R E A D F I L E
0034520 A 0 0 0 1 ) \r ( 1 5 4 Q E R R
0034540 O R 1 4 4 Q R E A D T A B L
0034560 E P 1 3 6 Q P A C K A G E
0034600 1 2 3 Q I N T E R N A L 6 0
0034620 Q R E A D E R - E N V I R O N
0034640 M E N T 3 3 Q S T O P ) \r (
0034660 1 2 0 Q ( R E A D F I L E A
0034700 0 0 0 1 ) ) \r R E A D L I N E A
0034720 0 0 0 1 D 1 \r ( N A M E E R
0034740 R O R S E T F 0 L I N E )
0034760 \0 \a \0 001 002 \0 P \t \0 \0 i 020 \0 ( 3
0035000 E D I T E ) \r N I L \r ( ) \r R
0035020 E A D L I N E D 1 \r ( L ( 0
0035040 R D T B L ) P 1 S P A C
0035060 E F L G I 2 L I S P X F L
0035100 G I 1 L I N E F 3 R
0035120 E A D B U F ) 001 4 003 001 \0 003 021 0
0035140 002 S 003 265 003 202 261 \0 376 i \t \0 \0 222 261 \0
0035160 315 i \t \0 \0 A 020 g \0 \0 @ \v \0 \0 253 J
0035200 d g \0 \0 @ \v \0 \0 262 033 277 i @ \n \0 \0
0035220 277 B 262 j A d 002 263 f h h 032 \n \0 \0 b
0035240 002 260 \ l 360 262 023 J g \0 \0 @ \v \0 \0
0035260 227 i Y \t \0 \0 261 \0 207 ` \0 \0 g \0 \0 360
0035300 247 i g \0 \0 \n \0 \0 225 i @ \n \0 \0 210 i
0035320 @ l 002 ` \0 \0 017 016 X ` \0 \0 360 263 a A
0035340 H h 032 \n \0 \0 b 002 277 i \t \0 \0 \t \0 \0
0035360 X d g \0 \0 @ \v \0 \0 262 ! 277 A 003 262 032
0035400 ` \0 \0 262 025 h 027 \0 \0 277 o \0 \0 \0 \t \0
0035420 \0 245 g \0 \0 027 \0 \0 A 020 g \0 \0 @ \v \0
0035440 \0 264 033 B 230 I 246 A d 002 002 262 322 277 i d
0035460 360 264 \v g \0 \0 i \n \0 \0 277 h Y 277 i @
0035500 265 003 d \n \0 \0 X \t \0 \0 Z d g \0 \0 \n
0035520 \0 \0 242 261 377 $ 277 i \t \0 \0 277 A 264 240 I
0035540 262 234 260 314 d 001 ` \0 \0 360 226 277 S 002 c 006
0035560 A 020 \t \0 \0 c 006 265 005 261 376 350 X 002 c 006
0035600 277 A H 001 h 032 \n \0 \0 b 002 277 S 265 327 A
0035620 020 \0 ( 4 5 2 Q \ N C O N C 2
0035640 4 2 6 Q L I S P X R E A D B U
0035660 F 3 7 4 Q R E A D C 3 6 3
0035700 Q S Y N T A X P 3 5 3 Q C
0035720 H C O N 1 3 4 7 Q P E E K C
0035740 3 3 3 Q P R I N 1 3 0 2 Q
0035760 S Y N T A X P 2 6 2 Q R E
0036000 A D L I N E A 0 0 0 1 2 3 2 Q
0036020 S Y N T A X P 2 2 1 Q C H
0036040 C O N 1 2 1 6 Q L A S T C
0036060 2 0 7 Q \ N C O N C 2 1 5 7
0036100 Q R E A D 1 5 1 Q I M A G
0036120 E S T R E A M T Y P E P 1 2 7
0036140 Q R E A D C 1 2 1 Q S Y N
0036160 T A X P 1 0 0 Q \ N C O N C
0036200 2 6 1 Q R E A D 5 1 Q S
0036220 Y N T A X P 3 7 Q S Y N T A
0036240 X P 2 6 Q C L E A R B U F
0036260 1 6 Q R E A D P ) \r ( 4 1 2 Q
0036300 H I S T S T R 0 3 6 0 Q E
0036320 O L 3 2 7 Q . . . 2 7 6 Q
0036340 R I G H T P A R E N 2 7 1 Q
0036360 R E R E A D F L G 2 6 6 Q
0036400 A B O R T 2 5 2 Q C T R L U
0036420 F L G 2 4 4 Q C T R L U F L
0036440 G 2 2 6 Q R I G H T B R A C
0036460 K E T 1 7 5 Q H I S T S T R
0036500 4 1 6 7 Q L I S P X R E A D
0036520 F N 1 4 6 Q T E X T 1 4 0
0036540 Q R E A D 1 3 5 Q L I S P
0036560 X R E A D F N 1 1 5 Q S E P
0036600 R 4 5 Q R I G H T B R A C K
0036620 E T 3 3 Q R I G H T P A R E
0036640 N ) \r ( 2 5 7 Q ( R E A D L
0036660 I N E A 0 0 0 1 ) ) \r R E M P R
0036700 O P L I S T D 1 \r ( L ( 1
0036720 P R O P S 0 A T M ) ) \0 I
0036740 003 \0 \0 002 021 0 002 @ 301 002 311 \0 X Y d 263
0036760 020 i 251 I d H 360 231 277 H 002 002 270 I 002
0037000 002 Y 213 002 002 Z 262 025 I J \n \0 \0 277 I 003
0037020 262 024 I 001 A 034 262 334 h 260 332 H k I \v \0
0037040 \0 h 031 277 @ 301 002 H 024 \0 h 020 \0 ( 7 4
0037060 Q N L E F T 5 0 Q R P L N
0037100 O D E 2 ) \r N I L \r ( ) \r R E S
0037120 E T B U F S D 1 \r ( L ( 0
0037140 F O R M S ) F 1 R E A D B
0037160 U F ) \0 $ 001 001 003 001 \b \0 \0 277 \b \0
0037200 \0 277 h i Q \v \0 \0 021 001 \0 g \0 \0 @ g
0037220 \0 \0 \v \0 \0 H 224 H \t \0 \0 277 020 \0 ( 4
0037240 0 Q B K B U F S 3 2 Q A P
0037260 P L Y 1 5 Q C L B U F S 6
0037300 S Y S B U F 2 L I N B U F
0037320 ) \r ( 2 7 Q I N T E R N A L
0037340 2 3 Q P R O G N ) \r ( ) \r T A
0037360 B D 1 \r ( L ( 2 F I L E
0037400 1 M I N S P A C E S 0 P O
0037420 S ) ) \0 + 001 \0 \0 003 021 020 \0 B \t \0
0037440 \0 X A 3 020 265 003 k 330 @ 361 221 h 200 i 223
0037460 @ H 331 211 A i 360 251 B \t \0 \0 277 @ B \n
0037500 \0 \0 h 020 \0 ( 4 7 Q S P A C E S
0037520 4 1 Q T E R P R I 6 P O
0037540 S I T I O N ) \r N I L \r ( ) \r U
0037560 N S A V E D 1 D 1 \r ( L ( 1
0037600 T Y P 0 F N ) F 2 D
0037620 F N F L G F 3 A D D S P E
0037640 L L F L G ) \0 232 002 002 \0 002 021 001
0037660 @ 004 l 004 360 221 h 200 i 263 ~ A Y 227 @ 301
0037700 002 311 \0 A 260 # @ 301 002 311 \0 g \0 \0 Y '
0037720 265 030 @ 301 002 311 \0 g \0 \0 Y ' 265 \f @ 301
0037740 002 311 \0 g \0 \0 Y ' X 262 & @ i \n \0 \0
0037760 277 @ I \n \0 \0 277 R i 360 244 @ \t \0 \0 277
0040000 @ H i \v \0 \0 277 S 223 @ \t \0 \0 I 020 @
0040020 \t \0 \0 250 @ d 301 002 311 \0 262 027 277 A 234 o
0040040 \0 \0 \0 A o \0 \0 \0 \v \0 \0 020 o \0 \0 \0
0040060 020 i \n \0 \0 265 \f @ o \0 \0 \0 \n \0 \0 h
0040100 020 b \0 261 377 n \0 ( 2 2 1 Q E R R
0040120 O R 2 0 7 Q F N C H E C K
0040140 1 7 5 Q C O N C A T 1 4 5 Q
0040160 \ D E F I N E D P 1 3 7 Q
0040200 A D D S P E L L 1 3 0 Q / P
0040220 U T D 1 2 1 Q S A V E D E F
0040240 1 1 0 Q / R E M P R O P 1
0040260 0 2 Q V I R G I N F N ) \r ( 7
0040300 0 Q S U B R 5 4 Q C O D E
0040320 4 0 Q E X P R ) \r ( 2 1 6
0040340 Q " n o t a f u n c t i o
0040360 n " 2 0 2 Q " ( n o t h i n
0040400 g f o u n d ) " 1 7 2 Q "
0040420 n o t f o u n d ) " 1 6 5
0040440 Q " ( " ) \r U S E D F R E E
0040460 D 1 \r ( L ( 0 A ) ) \0 003 \0
0040500 \0 003 001 @ 020 \0 N I L \r N I L \r ( )
0040520 \r W R I T E F I L E A 0 0 0 1
0040540 D 1 \r ( N A M E E R R O R S E
0040560 T L ( 0 N I L ) F 3
0040600 F I L E F 4 R E S E T V A
0040620 R S L S T F 5 X F 6
0040640 R E S E T Y ) \0 243 003 004 002 \0 021 0
0040660 002 S 003 265 r g \0 \0 S g \0 \0 \n \0 \0 X
0040700 h 032 032 h h 032 032 T 032 c \b 277 g \0 \0 H
0040720 \t \0 \0 h 032 032 h 032 T 032 c \b 277 U d 223
0040740 3 \b 226 U \t \0 \0 c \n 277 o \0 \0 \0 \t \0
0040760 \0 277 H \t \0 \0 c 006 \t \0 \0 277 o \0 \0 \0
0041000 \t \0 \0 277 \b \0 \0 \t \0 \0 277 o \0 \0 \0 \t
0041020 \0 \0 277 \b \0 \0 \t \0 \0 277 o \0 \0 \0 \t \0
0041040 \0 277 U 260 036 001 c 006 277 i 271 260 212 d 001 Z
0041060 h J 003 001 g \0 \0 360 \v \0 \0 277 \b \0 \0 277
0041100 002 003 265 353 I 243 \b \0 \0 277 S 022 c \f i 020
0041120 \0 ( 2 3 2 Q E N D F I L E 2
0041140 2 0 Q T E R P R I 2 1 4 Q
0041160 P R I N T D E F 1 6 2 Q P R
0041200 I N 1 1 5 2 Q P R I N 1 1
0041220 4 7 Q D A T E 1 4 3 Q P R
0041240 I N 1 1 3 3 Q P R I N 1 1
0041260 3 0 Q U S E R N A M E 1 2 4
0041300 Q P R I N 1 1 1 4 Q P R I
0041320 N 2 1 0 7 Q F U L L N A M E
0041340 1 0 2 Q P R I N 1 7 0 Q
0041360 E V A L 4 4 Q O U T P U T
0041400 2 0 Q O P E N S T R E A M ) \r
0041420 ( 2 1 0 Q D E F I N E Q 4 0
0041440 Q O U T P U T 1 5 Q O U T
0041460 P U T 1 1 Q C L O S E - A N
0041500 D - M A Y B E - D E L E T E ) \r
0041520 ( 1 5 7 Q " \r % " ) T ) \r \r
0041540 " 1 4 0 Q " O N " 1 2
0041560 1 Q " M A D E B Y " 7
0041600 7 Q " \r ( P R I N 1 ( Q U O
0041620 T E % " \r W R I T E F I L E
0041640 O F " ) \r W R I T E F I L E
0041660 D 1 \r ( P 6 R E S E T Y P
0041700 5 L I S P X H I S T P 4
0041720 * P R I N T - B A S E * P
0041740 3 * R E A D - B A S E * P
0041760 2 * R E A D T A B L E * P
0042000 1 * P A C K A G E * I 1
0042020 F I L E I 0 X F 1 0 Q
0042040 * O L D - I N T E R L I S P -
0042060 R E A D - E N V I R O N M E N T
0042100 * F 1 1 Q L I S P X H I S
0042120 T F 1 2 Q R E S E T V A R
0042140 S L S T ) \0 = \b 003 \0 002 W 020 006 \0
0042160 \0 021 001 \0 H 311 \0 H 311 002 H 311 004 H 311 004
0042200 021 004 004 W 022 021 ! \a W 024 o \0 \0 \0 g \0
0042220 \0 \n \0 \0 221 h 202 g \0 \0 _ 016 \n \0 \0 O
0042240 016 223 \b \0 \0 020 N 020 \0 ( 7 0 Q E R
0042260 R O R ! 6 2 Q R E S E T R E
0042300 S T O R E 4 7 Q W R I T E F
0042320 I L E A 0 0 0 1 ) \r ( 5 5 Q E
0042340 R R O R 4 4 Q I N T E R N A
0042360 L 4 R E A D E R - E N V I R
0042400 O N M E N T ) \r ( 4 1 Q ( W
0042420 R I T E F I L E A 0 0 0 1 ) ) \r
0042440 C L O S E - A N D - M A Y B E -
0042460 D E L E T E D 1 \r ( L ( 0
0042500 S T R E A M ) F 0 R E S E
0042520 T S T A T E ) \0 \r \0 001 \0 001 @ \t
0042540 \0 \0 P 264 006 d \t \0 \0 020 \0 ( 1 2 Q
0042560 D E L F I L E 3 C L O S E F
0042600 ) \r N I L \r ( ) \r X N L S E T Q
0042620 D 1 \r ( L ( 2 X N L S E T
0042640 F N 1 X N L S E T F L G 0
0042660 X N L S E T Q X ) ) \0 \b \0 \0
0042700 001 003 @ A B \v \0 \0 020 \0 ( 5 E R R
0042720 O R S E T ) \r N I L \r ( ) \r P R
0042740 O G 2 D 1 \r ( L ( 0 U ) )
0042760 \0 026 001 \0 002 \0 e 021 001 \0 l 002 H 361 227
0043000 o \0 \0 \0 \t \0 \0 020 l 002 a 020 \0 ( 1 7
0043020 Q E R R O R ) \r N I L \r ( 1
0043040 4 Q " T o o f e w a r g u
0043060 m e n t s " ) \r U N S A F E . T
0043100 O . M O D I F Y D 1 \r ( L (
0043120 1 O P T I O N 0 F N ) F
0043140 0 U N S A F E . T O . M O D
0043160 I F Y . F N S F 1 D W I M
0043200 W A I T ) \0 N \0 002 \0 002 @ P 034 264
0043220 I o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0 277
0043240 o \0 \0 \0 i \n \0 \0 277 A 265 006 o \0 \0 \0
0043260 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 g \0 \0
0043300 \t \0 \0 227 Q g \0 \0 \n \0 \0 203 i \t \0 \0
0043320 g \0 \0 360 221 h 020 i 020 \0 ( 1 0 3 Q
0043340 R E A D 7 6 Q A S K U S E R
0043360 6 6 Q \ D E F I N E D P 6
0043400 0 Q P R I N 1 4 7 Q P R I
0043420 N 1 3 3 Q P R I N 1 2 2 Q
0043440 P R I N 1 1 4 Q P R I N 1
0043460 ) \r ( 1 0 6 Q Y 7 3 Q N
0043500 6 3 Q A S K U S E R ) \r ( 5
0043520 4 Q " - - c o n t i n u e
0043540 ? " 4 3 Q " m o d i f y "
0043560 2 7 Q " m a y b e u n
0043600 s a f e t o " 1 0 Q " W
0043620 a r n i n g : " ) \r R E S E T
0043640 F O R M A 0 0 0 1 D 1 \r ( N A
0043660 M E E R R O R S E T F 0
0043700 R E S E T Z F 1 M A C R O
0043720 Y ) \0 020 \0 002 002 \0 g \0 \0 P 002 g \0
0043740 \0 \v \0 \0 c 002 i 020 \0 ( 1 2 Q A P
0043760 P L Y ) \r ( 7 I N T E R N A L
0044000 2 P R O G N ) \r ( ) \r R E S
0044020 E T F O R M D 1 \r ( P 3 R
0044040 E S E T S T A T E P 2 M A
0044060 C R O Y P 0 O L D V A L U
0044100 E I 0 R E S E T Z F 4
0044120 R E S E T V A R S L S T ) \0
0044140 C 004 001 003 001 @ 001 g \0 \0 \n \0 \0 021 1 003
0044160 @ 001 001 H h 032 032 h 032 T 032 c \b Y o \0
0044200 \0 \0 g \0 \0 \n \0 \0 221 h 200 i 223 g \0 \0
0044220 273 I 002 c \b @ 001 001 I 001 001 002 \n \0 \0 K
0044240 223 \b \0 \0 020 J 020 \0 ( 7 6 Q E R R
0044260 O R ! 7 1 Q A P P L Y 4 2
0044300 Q R E S E T F O R M A 0 0 0 1
0044320 7 E V A L ) \r ( 5 2 Q E R
0044340 R O R 3 7 Q I N T E R N A L
0044360 4 I N T E R N A L ) \r ( 3
0044400 4 Q ( R E S E T F O R M A 0 0
0044420 0 1 ) ) \r R E S E T L S T D 1
0044440 \r ( L ( 0 R E S E T X ) P
0044460 0 L I S P X H I S T F 2
0044500 L I S P X H I S T F 3 R
0044520 E S E T V A R S L S T ) \0 % 002
0044540 002 003 001 R 021 021 001 S g \0 \0 @ 032 g \0 \0
0044560 \n \0 \0 Y 221 h 202 g \0 \0 \n \0 \0 I 265 \a
0044600 \b \0 \0 h 020 001 020 \0 ( 3 7 Q E R R
0044620 O R ! 3 1 Q R E S E T R E S
0044640 T O R E 1 7 Q E R R O R S E
0044660 T ) \r ( 2 6 Q E R R O R 1 4
0044700 Q I N T E R N A L 7 P R O
0044720 G N ) \r ( ) \r R E S E T T O P V
0044740 A L S D 1 \r ( P 0 L I S P
0044760 X H I S T I 0 R E S E T X
0045000 F 2 L I S P X H I S T F
0045020 3 R E S E T V A R S L S T )
0045040 \0 + 002 002 003 001 R 021 021 001 S g \0 \0 o
0045060 \0 \0 \0 @ 002 032 032 g \0 \0 \n \0 \0 Y 221 h
0045100 202 g \0 \0 \n \0 \0 I 265 \a \b \0 \0 h 020 001
0045120 020 \0 ( 4 5 Q E R R O R ! 3 7
0045140 Q R E S E T R E S T O R E 2
0045160 5 Q E R R O R S E T ) \r ( 3 4
0045200 Q E R R O R 2 2 Q I N T E
0045220 R N A L 7 P R O G N ) \r (
0045240 1 3 Q ( R E S E T T O P V A L
0045260 S 1 ( C A R R E S E T X ) )
0045300 ) \r R E S E T T O P V A L S 1
0045320 D 1 \r ( L ( 0 V L I S T ) )
0045340 \0 026 001 \0 \0 001 @ 215 d 001 021 001 \0 g \0
0045360 \0 H \n \0 \0 023 002 003 265 361 h 020 \0 ( 1 5
0045400 Q A P P L Y ) \r ( 1 1 Q R E
0045420 S E T S A V E ) \r ( ) \r F I L E
0045440 M A P D 1 \r ( L ( 0 F I L
0045460 E M A P ) F 0 F I L E C R
0045500 E A T E D L S T ) \0 024 \0 001 001 001
0045520 h g \0 \0 \n \0 \0 \t \0 \0 @ P h i \r 005
0045540 \0 \0 020 \0 ( 2 1 Q P U T F I L E
0045560 M A P 1 1 Q F U L L N A M E
0045600 6 G E T S T R E A M ) \r ( 3
0045620 I N P U T ) \r ( ) \r \ P A R S
0045640 E - F I L E - H E A D E R D 1
0045660 \r ( L ( 3 I N I T I A L E N
0045700 V 2 R E T U R N F O R M 1
0045720 F I L E C R E A T E D F N 0
0045740 S T R E A M ) P 4 * P R
0045760 I N T - B A S E * P 3 * R
0046000 E A D - B A S E * P 2 * R
0046020 E A D T A B L E * P 1 * P
0046040 A C K A G E * F 1 1 Q * O
0046060 L D - I N T E R L I S P - R E A
0046100 D - E N V I R O N M E N T * F
0046120 1 2 Q * C O M M O N - L I S
0046140 P - R E A D - E N V I R O N M E
0046160 N T * ) \0 264 \t 002 \0 004 C 265 004 W 022
0046200 006 \0 \0 021 001 \0 H 311 \0 H 311 002 H 311 004 H
0046220 311 004 021 004 004 @ \t \0 \0 d l ; 360 222 W 024
0046240 020 l ( 360 264 003 202 261 \0 206 021 @ \b @ \t \0
0046260 \0 _ 020 277 @ \t \0 \0 277 @ \t \0 \0 g \0 \0
0046300 \n \0 \0 264 006 @ \t \0 \0 ^ d g \0 \0 360 262
0046320 % 277 M 263 @ l ) @ \n \0 \0 \n \0 \0 275
0046340 A 236 @ \t \0 \0 l ( 360 226 M \t \0 \0 277 260
0046360 276 M 020 N g \0 \0 360 262 " M 242 W 022 275 A
0046400 d g \0 \0 360 233 277 g \0 \0 l ) @ \n \0 \0
0046420 032 217 241 h 214 @ k A 016 207 B 230 l ) @ \n
0046440 \0 \0 _ 016 277 M O 016 O 020 \v \0 \0 020 \0 (
0046460 2 6 1 Q V A L U E S 2 4 6 Q
0046500 R E A D - D E L I M I T E D -
0046520 L I S T 2 2 4 Q R E A D - D
0046540 E L I M I T E D - L I S T 1 6
0046560 2 Q S E T - R E A D E R - E N
0046600 V I R O N M E N T 1 5 2 Q S
0046620 K I P S E P R C O D E S 1 4 3
0046640 Q \ D O - D E F I N E - F I L
0046660 E - I N F O 1 4 0 Q R E A D
0046700 - D E L I M I T E D - L I S T
0046720 1 1 5 Q R A T O M 1 0 7 Q
0046740 S Y N T A X P 1 0 1 Q S K I
0046760 P S E P R C O D E S 7 4 Q R
0047000 E A D C C O D E 6 5 Q G E T
0047020 F I L E P T R 3 5 Q S K I P
0047040 S E P R C O D E S ) \r ( 2 1 6 Q
0047060 F I L E C R E A T E D 2 1 0
0047100 Q R E T U R N 1 7 3 Q F I
0047120 L E C R E A T E D 1 2 2 Q D
0047140 E F I N E - F I L E - I N F O
0047160 1 0 4 Q O T H E R 7 R E A
0047200 D E R - E N V I R O N M E N T )
0047220 \r ( ) \r G E T - E N V I R O N M
0047240 E N T - A N D - F I L E M A P
0047260 D 1 \r ( L ( 1 D O N T C A C
0047300 H E 0 S T R E A M ) ) \0 301
0047320 \t \0 \0 002 @ d \t \0 \0 224 277 @ \t \0 \0 021
0047340 201 \b H ` \0 \0 \n \0 \0 Y d 262 ; d 002 002
0047360 002 002 002 002 Z 244 ` \0 \0 263 - I 002 002 002 i
0047400 030 I 001 J 264 021 ` \0 \0 251 I 002 002 001 221 h
0047420 200 i 264 003 J I 002 002 002 002 001 I 002 002 002 002
0047440 002 001 \f \0 \0 020 @ g \0 \0 \n \0 \0 b \0 221
0047460 h 200 i 250 @ \t \0 \0 221 h 200 i 221 h 020 @
0047500 \t \0 \0 [ @ j \n \0 \0 @ J 250 ` \0 \0 264
0047520 \a g \0 \0 200 h \n \0 \0 \t \0 \0 \ 001 275 L
0047540 002 ^ 001 _ 016 277 N 002 001 _ 020 277 @ K \n \0
0047560 \0 O 016 262 025 A 221 h 200 i 234 H O 016 h M
0047600 i O 020 \r 006 \0 \0 277 M O 016 265 003 J O 020
0047620 \v \0 \0 020 \0 ( 2 7 6 Q V A L U E
0047640 S 2 6 2 Q P U T F I L E M A
0047660 P 2 3 4 Q S E T F I L E P T
0047700 R 2 0 7 Q \ M V L I S T 2
0047720 0 4 Q \ P A R S E - F I L E -
0047740 H E A D E R 1 6 4 Q S E T F
0047760 I L E P T R 1 5 6 Q G E T F
0050000 I L E P T R 1 4 3 Q R A N D
0050020 A C C E S S P 1 3 0 Q O P E
0050040 N P 1 2 0 Q V A L U E S 2
0050060 4 Q G E T H A S H 1 2 Q F
0050100 U L L N A M E 4 S T R E A M
0050120 P ) \r ( 1 7 7 Q G E T - F I L
0050140 E M A P - F R O M - F I L E C R
0050160 E A T E D 1 7 2 Q U S E M A
0050200 P F L G 1 2 5 Q I N P U T
0050220 6 4 Q U S E M A P F L G 4 4
0050240 Q U S E M A P F L G 2 1 Q
0050260 * F I L E M A P - H A S H * ) \r
0050300 ( ) \r G E T - F I L E M A P - F
0050320 R O M - F I L E C R E A T E D A
0050340 0 0 0 1 D 1 \r ( N A M E E R
0050360 R O R S E T L ( 0 N I L )
0050400 F 1 S T R E A M ) \0 8 001
0050420 001 002 \0 Q \t \0 \0 021 001 \0 H 3 264 ) H
0050440 Q \t \0 \0 375 363 264 Q H \n \0 \0 277 Q \t
0050460 \0 \0 l ( 360 264 021 Q \t \0 \0 X 001 g \0 \0
0050500 360 264 005 H 002 001 022 h 032 020 \0 ( 4 7 Q
0050520 R E A D 3 6 Q S K I P S E P
0050540 R C O D E S 3 1 Q S E T F I
0050560 L E P T R 2 0 Q G E T E O F
0050600 P T R 3 R E A D ) \r ( 5 4 Q
0050620 F I L E M A P ) \r ( ) \r G E T
0050640 - F I L E M A P - F R O M - F I
0050660 L E C R E A T E D D 1 \r ( I
0050700 0 S T R E A M ) \0 022 \0 \0 \0 001
0050720 @ \t \0 \0 @ \t \0 \0 o \0 \0 \0 \t \0 \0 001
0050740 020 \0 ( 1 6 Q G E T - F I L E M
0050760 A P - F R O M - F I L E C R E A
0051000 T E D A 0 0 0 1 7 S K R E A
0051020 D 3 S K R E A D ) \r N I L \r
0051040 ( 1 3 Q ( G E T - F I L E M
0051060 A P - F R O M - F I L E C R E A
0051100 T E D A 0 0 0 1 ) ) \r \ F I L E
0051120 M A P - H A S H O V E R F L O W
0051140 A 0 0 0 1 D 1 \r ( L ( 1 K
0051160 E Y 0 V A L ) F 2 E N
0051200 T R I E S ) \0 8 002 001 \0 002 @ 002 001
0051220 021 021 001 H R 026 Y 221 h 200 i 230 H h 032 Y
0051240 R 032 c 004 277 I d @ 002 002 002 002 002 001 002 221
0051260 j 206 A g \0 \0 \n \0 \0 A @ 032 032 I 002 032
0051300 031 277 002 020 \0 ( 5 3 Q F I L E N A
0051320 M E F I E L D ) \r ( 5 0 Q V E
0051340 R S I O N ) \r ( ) \r \ F I L E M
0051360 A P - H A S H O V E R F L O W
0051400 D 1 \r ( L ( 0 H A R R A Y )
0051420 P 1 E N T R I E S F 1
0051440 5 Q F I L E L S T ) \0 335 \r 001
0051460 \0 001 @ g \0 \0 \n \0 \0 021 1 003 H ` \0 \0
0051500 363 264 003 202 261 \0 311 @ g \0 \0 \n \0 \0 I 021
0051520 Q \t L 003 265 033 023 ` \0 \0 H o \0 \0 \0 352
0051540 \t \0 \0 273 Z K 361 242 261 \0 240 h 261 \0 235 001
0051560 ] 001 W 032 \n \0 \0 276 M 002 \t \0 \0 ` \0 \0
0051600 325 _ 020 277 M 002 i \n \0 \0 k 021 022 \f O 024
0051620 _ 030 277 O 030 003 265 \b 023 L 002 \ 260 267 001 002
0051640 _ 016 277 O 026 O 020 363 221 h 200 i 262 M 001
0051660 301 002 311 \0 g \0 \0 ' _ 022 262 1 O 022 001 002
0051700 O 016 001 \n \0 \0 221 h 200 i 263 ! O 016 002 002
0051720 002 002 001 231 O 016 002 002 002 002 h 030 260 034 N 221
0051740 h 200 i 246 O 030 d 002 262 023 277 O 016 001 @ \n
0051760 \0 \0 277 H m 377 324 X 277 O 030 002 _ 030 277 O
0052000 026 k 324 _ 026 277 260 215 i 221 K 020 J 020 \0 (
0052020 2 7 7 Q R E M H A S H 2 2 3
0052040 Q S T R I N G . E Q U A L 1
0052060 2 7 Q S O R T 1 1 2 Q L E
0052100 N G T H 1 0 4 Q M E M B 6
0052120 0 Q F I X R 3 3 Q M A P H
0052140 A S H 6 H A R R A Y P R O P
0052160 ) \r ( 2 0 4 Q F I L E D A T E
0052200 S 1 1 5 Q * F I L E M A P -
0052220 V E R S I O N S * 4 7 Q * F
0052240 I L E M A P - L I M I T * 3 0
0052260 Q \ F I L E M A P - H A S H O
0052300 V E R F L O W A 0 0 0 1 1 5 Q
0052320 * F I L E M A P - L I M I T *
0052340 3 N U M K E Y S ) \r ( 5 4
0052360 Q 1 . 2 ) \r F L U S H F I L E
0052400 M A P S A 0 0 0 1 D 1 \r ( L
0052420 ( 1 F U L L N A M E 0 M E
0052440 ) F 0 R O O T N A M E )
0052460 \0 022 \0 001 \0 002 @ 002 001 P \n \0 \0 264 \t A
0052500 ` \0 \0 \n \0 \0 020 \0 ( 1 7 Q R E M
0052520 H A S H 6 S T R I N G - E Q
0052540 U A L ) \r ( 1 4 Q * F I L E M
0052560 A P - H A S H * ) \r ( ) \r F L U
0052600 S H F I L E M A P S D 1 \r ( I
0052620 0 R O O T N A M E ) \0 027 \0
0052640 \0 \0 001 @ i 360 226 ` \0 \0 \t \0 \0 210 ` \0
0052660 \0 g \0 \0 \n \0 \0 @ 020 \0 ( 2 3 Q M
0052700 A P H A S H 1 1 Q C L R H A
0052720 S H ) \r ( 2 0 Q F L U S H F I
0052740 L E M A P S A 0 0 0 1 1 5 Q
0052760 * F I L E M A P - H A S H * 6
0053000 * F I L E M A P - H A S H * )
0053020 \r ( ) \r L I S P S O U R C E F I
0053040 L E P A 0 0 0 1 A 0 0 0 2 A 0 0
0053060 0 3 D 1 \r ( N A M E E R R O
0053100 R S E T F 0 S T R E A M )
0053120 \0 024 \0 001 002 \0 P \t \0 \0 277 P \t \0 \0
0053140 277 P \t \0 \0 3 h 032 020 \0 ( 1 5 Q
0053160 R E A D 1 0 Q S K R E A D
0053200 3 S K R E A D ) \r N I L \r ( )
0053220 \r L I S P S O U R C E F I L E P
0053240 A 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0053260 0 S T R E A M ) \0 \n \0 \0 \0
0053300 001 o \0 \0 \0 \t \0 \0 001 020 \0 ( 6 L I
0053320 S P S O U R C E F I L E P A 0 0
0053340 0 1 A 0 0 0 2 A 0 0 0 3 ) \r N I
0053360 L \r ( 3 ( L I S P S O U R C
0053400 E F I L E P A 0 0 0 1 A 0 0 0 2
0053420 A 0 0 0 3 ) ) \r L I S P S O U R
0053440 C E F I L E P A 0 0 0 1 D 1 \r
0053460 ( N A M E E R R O R S E T L
0053500 ( 0 N I L ) F 1 F I L
0053520 E F 2 R E S E T V A R S L
0053540 S T F 3 R E S E T Y ) \0
0053560 G 001 003 002 \0 Q \t \0 \0 221 h 200 i 262 032 g
0053600 \0 \0 Q g \0 \0 \n \0 \0 c 002 h 032 032 h h
0053620 032 032 R 032 c 004 277 Q \t \0 \0 264 034 Q \t \0
0053640 \0 021 001 \0 Q g \0 \0 \n \0 \0 \t \0 \0 002 001
0053660 Q H \n \0 \0 277 022 c 006 i 020 \0 ( 7 7 Q
0053700 S E T F I L E P T R 7 0 Q
0053720 \ M V L I S T 6 5 Q \ P A R
0053740 S E - F I L E - H E A D E R 5
0053760 3 Q G E T F I L E P T R 4 5
0054000 Q R A N D A C C E S S P 2 3
0054020 Q O P E N S T R E A M 3 S
0054040 T R E A M P ) \r ( 6 2 Q L I S
0054060 P S O U R C E F I L E P A 0 0 0
0054100 1 A 0 0 0 2 2 0 Q I N P U T
0054120 1 4 Q C L O S E F ) \r ( ) \r
0054140 L I S P S O U R C E F I L E P
0054160 D 1 \r ( P 1 R E S E T Y P
0054200 0 L I S P X H I S T I 0
0054220 F I L E F 3 L I S P X H
0054240 I S T F 4 R E S E T V A R
0054260 S L S T ) \0 " 003 002 \0 001 S 021 ! 002
0054300 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0054320 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3
0054340 5 Q E R R O R ! 3 0 Q R E
0054360 S E T R E S T O R E 1 6 Q L
0054400 I S P S O U R C E F I L E P A 0
0054420 0 0 1 ) \r ( 2 4 Q E R R O R
0054440 1 3 Q I N T E R N A L ) \r (
0054460 1 0 Q ( L I S P S O U R C E F
0054500 I L E P A 0 0 0 1 ) ) \r G E T F
0054520 I L E M A P D 1 \r ( L ( 1
0054540 F L 0 S T R E A M ) ) \0 020
0054560 \0 \0 \0 002 ` \0 \0 264 \v @ \t \0 \0 \t \0 \0
0054600 002 001 020 \0 ( 1 3 Q \ M V L I S T
0054620 1 0 Q G E T - E N V I R O N
0054640 M E N T - A N D - F I L E M A P
0054660 ) \r ( 2 U S E M A P F L G ) \r
0054700 ( ) \r P U T F I L E M A P D 1
0054720 \r ( L ( 5 F C L O C A T I O
0054740 N 4 F R O M F I L E ? 3
0054760 E N V 2 F I L C R E A T E D
0055000 L S T 1 F I L E M A P 0
0055020 F I L E ) F 2 B U I L D M
0055040 A P F L G ) \0 } 002 001 \0 006 A 247 @
0055060 ` \0 \0 \n \0 \0 020 R 264 p @ ` \0 \0 \n \0
0055100 \0 021 021 001 H 001 H 002 001 D i H 002 002 002 002
0055120 001 H 002 002 002 002 002 001 H 002 002 002 002 002 002 032
0055140 032 032 032 032 032 271 H 251 I 002 @ B 002 \n \0 \0
0055160 030 277 C 222 I C 205 H 245 I \b \0 \0 030 277 A
0055200 003 230 I 002 002 002 002 002 A 031 277 E 227 I 002 002
0055220 002 002 E 030 277 B 230 I 002 002 002 002 002 B 030 277
0055240 @ I ` \0 \0 \v \0 \0 020 \0 ( 1 7 2 Q
0055260 P U T H A S H 1 1 7 Q M A K
0055300 E - R E A D E R - E N V I R O N
0055320 M E N T 1 0 2 Q R O O T F I
0055340 L E N A M E 2 3 Q G E T H A
0055360 S H 1 0 Q R E M H A S H ) \r
0055400 ( 1 6 7 Q * F I L E M A P - H
0055420 A S H * 2 0 Q * F I L E M A
0055440 P - H A S H * 5 * F I L E M
0055460 A P - H A S H * ) \r ( ) \r U P D
0055500 A T E F I L E M A P A 0 0 0 1
0055520 D 1 \r ( N A M E E R R O R S E
0055540 T F 0 F U L L N A M E )
0055560 \0 024 \0 001 002 \0 P g \0 \0 g \0 \0 h o \0
0055600 \0 \0 \r 005 \0 \0 h 032 020 \0 ( 1 7 Q O
0055620 P E N S T R E A M ) \r ( 6 O L
0055640 D 3 B O T H ) \r ( 1 3 Q
0055660 ( D O N ' T . C H A N G E . D A
0055700 T E ) ) \r U P D A T E F I L E M
0055720 A P A 0 0 0 2 D 1 \r ( N A M E
0055740 E R R O R S E T P 0 * P
0055760 R I N T - R A D I X * F 1
0056000 S T R E A M F 2 F I L E M
0056020 A P A D R F 3 R E S E T V
0056040 A R S L S T F 4 D F N F L
0056060 G F 5 F I L E M A P F
0056100 6 F U L L N A M E F 7 F
0056120 I L E M A P L O C A D R F 1
0056140 0 Q F I L E M A P L O C L E N
0056160 F 1 1 Q R E S E T Y ) \0
0056200 206 001 \t 002 \0 g \0 \0 Q h 032 032 h h 032 032
0056220 S 032 c 006 277 Q R \n \0 \0 277 o \0 \0 \0 Q
0056240 \n \0 \0 277 Q \t \0 \0 c 004 277 o \0 \0 \0 Q
0056260 \n \0 \0 277 Q l \t \n \0 \0 277 l \n 021 001 \0
0056300 U Q \n \0 \0 023 o \0 \0 \0 Q \n \0 \0 277 Q
0056320 \t \0 \0 277 g \0 \0 Q \n \0 \0 277 Q W 016 \n
0056340 \0 \0 277 g \0 \0 W 020 h 032 032 R Q \v \0 \0
0056360 277 T i 360 257 o \0 \0 \0 i \n \0 \0 277 V i
0056400 d \v \0 \0 200 h c 022 i 020 \0 ( 1 7 6 Q
0056420 P R I N T 1 6 7 Q P R I N
0056440 3 1 5 2 Q P R I N T N U M
0056460 1 3 4 Q S E T F I L E P T R
0056500 1 2 5 Q P R I N T 1 1 5 Q
0056520 T E R P R I 1 1 0 Q P R I N
0056540 1 7 7 Q P R I N 2 6 4 Q
0056560 P O S I T I O N 5 5 Q P R I
0056600 N 3 4 2 Q G E T F I L E P T
0056620 R 3 5 Q P R I N 3 2 4 Q
0056640 S E T F I L E P T R ) \r ( 1 4 0
0056660 Q F I X 1 2 1 Q S T O P
0056700 2 C L O S E F ) \r ( 1 6 3 Q
0056720 " * * * * r e w r o t e f i
0056740 l e m a p f o r " 1 0 4
0056760 Q " ) ) " 5 1 Q " ( F I L
0057000 E M A P " 3 1 Q " ( D E C
0057020 L A R E : D O N T C O P Y \r
0057040 " ) \r U P D A T E F I L E M A
0057060 P D 1 \r ( P 6 R E S E T Y
0057100 P 5 L I S P X H I S T P
0057120 4 F U L L N A M E P 3
0057140 F I L E M A P L O C L E N P
0057160 2 F I L E M A P A D R P 1
0057200 F I L E M A P L O C A D R I
0057220 1 F I L E M A P I 0 S
0057240 T R E A M F 1 0 Q L I S P
0057260 X H I S T F 1 1 Q R E S E
0057300 T V A R S L S T ) \0 322 \b 002 \0 002
0057320 o \0 \0 \0 o \0 \0 \0 \n \0 \0 021 A 004 @ j
0057340 \n \0 \0 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0 g
0057360 \0 \0 360 264 003 202 261 \0 252 @ \t \0 \0 277 @ \t
0057400 \0 \0 277 @ \t \0 \0 d l 360 222 277 i 214 g
0057420 \0 \0 \n \0 \0 221 h 200 i 262 352 h 264 003 202 261
0057440 \0 201 @ \t \0 \0 271 @ \t \0 \0 @ \t \0 \0 I
0057460 331 273 Z 3 264 k H @ J o \0 \0 \0 326 j
0057500 330 \v \0 \0 265 \b H @ j \v \0 \0 Z 264 S @
0057520 \t \0 \0 277 @ \t \0 \0 g \0 \0 360 264 D J i
0057540 \n \0 \0 K 361 221 h 200 i 264 7 @ \t \0 \0 \
0057560 o \0 \0 \0 \t \0 \0 001 b \0 262 % W 020 021 !
0057600 \a W 022 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202
0057620 g \0 \0 _ 016 \n \0 \0 277 O 016 222 \b \0 \0 i
0057640 020 \0 ( 3 1 6 Q E R R O R ! 3
0057660 0 7 Q R E S E T R E S T O R E
0057700 2 7 4 Q U P D A T E F I L E
0057720 M A P A 0 0 0 2 2 4 6 Q U P
0057740 D A T E F I L E M A P A 0 0 0 1
0057760 2 3 6 Q C L O S E F 2 2 2
0060000 Q N C H A R S 2 0 7 Q R A
0060020 T O M 2 0 2 Q S K R E A D
0060040 1 7 3 Q F F I L E P O S 1 6
0060060 3 Q F F I L E P O S 1 3 6 Q
0060100 G E T F I L E P T R 1 3 2 Q
0060120 R A T O M 1 2 5 Q G E T F
0060140 I L E P T R 1 0 4 Q S Y N T
0060160 A X P 6 6 Q R E A D C C O D
0060200 E 6 1 Q S K R E A D 5 4 Q
0060220 S K R E A D 3 6 Q R A T O
0060240 M 3 2 Q R E A D C 2 6 Q
0060260 S K I P S E P R S 2 2 Q S E
0060300 T F I L E P T R 1 2 Q C O N
0060320 C A T ) \r ( 3 0 2 Q E R R O R
0060340 2 7 1 Q I N T E R N A L 2
0060360 1 2 Q S T O P 1 0 1 Q S E
0060400 P R C H A R 4 1 Q F I L E C
0060420 R E A T E D ) \r ( 2 6 6 Q (
0060440 U P D A T E F I L E M A P A 0 0
0060460 0 2 ) 2 4 3 Q ( U P D A T E
0060500 F I L E M A P A 0 0 0 1 ) 1 5
0060520 5 Q . 9 7 " ( F I L E M A
0060540 P " 3 " ( D E C L A R E :
0060560 D O N T C O P Y \r " ) \r P R
0060600 I N T - R E A D E R - E N V I R
0060620 O N M E N T D 1 \r ( L ( 1
0060640 S T R E A M 0 E N V ) P
0060660 1 * P R I N T - B A S E * P
0060700 0 * P A C K A G E * F 3
0060720 * O L D - I N T E R L I S P -
0060740 R E A D - E N V I R O N M E N T
0060760 * F 4 * I N T E R L I S P
0061000 - P A C K A G E * ) \0 O 003 002 \0
0061020 002 @ S \n \0 \0 221 h 200 i 264 D T l \n 021
0061040 022 002 g \0 \0 @ 311 006 265 . @ 311 \0 Z 264 016
0061060 g \0 \0 J \t \0 \0 h 032 032 h 032 g \0 \0 @
0061100 311 002 g \0 \0 \n \0 \0 g \0 \0 @ 311 004 h 032
0061120 032 032 032 \n \0 \0 032 A ` \0 \0 \v \0 \0 020 \0
0061140 ( 1 1 4 Q P R I N T 1 0 4 Q
0061160 \ A P P E N D 2 6 6 Q R E
0061200 A D T A B L E P R O P 4 5 Q
0061220 P A C K A G E - N A M E 4 E
0061240 Q U A L - R E A D E R - E N V I
0061260 R O N M E N T ) \r ( 1 1 1 Q F
0061300 I L E R D T B L 7 1 Q : B A
0061320 S E 6 3 Q N A M E 5 5 Q
0061340 : R E A D T A B L E 4 1 Q :
0061360 P A C K A G E 2 3 Q D E F I
0061400 N E - F I L E - I N F O ) \r ( )
0061420 \r L V L P R I N T D 1 \r ( L
0061440 ( 4 T A I L 3 C D R L V L
0061460 2 C A R L V L 1 F I L E
0061500 0 X ) ) \0 020 \0 \0 \0 005 @ A B
0061520 C D \r 005 \0 \0 A \t \0 \0 @ 020 \0 ( 1 4
0061540 Q T E R P R I 1 0 Q L V L
0061560 P R I N 2 ) \r N I L \r ( ) \r L V
0061600 L P R I N 1 D 1 \r ( L ( 4
0061620 T A I L 3 C D R L V L 2
0061640 C A R L V L 0 X ) P 0
0061660 P R I N 2 F L G I 1 F I L
0061700 E ) \0 \r 001 \0 \0 005 021 020 \0 @ B C D
0061720 \f \0 \0 @ 020 \0 ( 1 1 Q L V L P R
0061740 I N ) \r N I L \r ( ) \r L V L P R
0061760 I N 2 D 1 \r ( L ( 4 T A I
0062000 L 3 C D R L V L 2 C A R
0062020 L V L 0 X ) P 0 P R I
0062040 N 2 F L G I 1 F I L E )
0062060 \0 016 001 \0 \0 005 i 021 001 \0 @ B C D \f \0
0062100 \0 @ 020 \0 ( 1 2 Q L V L P R I N
0062120 ) \r N I L \r ( ) \r L V L P R I N
0062140 D 1 \r ( L ( 3 T A I L 2
0062160 C D R L V L 1 C A R L V L
0062200 0 X ) F 0 F I L E F
0062220 1 P R I N 2 F L G ) \0 l \0
0062240 002 \0 004 @ 003 263 G C 262 5 @ C \t \0 \0 002
0062260 360 262 , @ C \n \0 \0 221 h 200 i 262 ! o \0
0062300 \0 \0 P \n \0 \0 Q 226 @ P i \v \0 \0 204 @
0062320 P \n \0 \0 277 g \0 \0 P \n \0 \0 020 Q 226 @
0062340 P i \v \0 \0 020 @ P \n \0 \0 020 C 232 @ C
0062360 \n \0 \0 224 o \0 \0 \0 202 g \0 \0 P \n \0 \0
0062400 @ A B \v \0 \0 g \0 \0 P \n \0 \0 020 \0 (
0062420 1 5 1 Q P R I N 1 1 4 2 Q
0062440 L V L P R I N 0 1 3 4 Q P R
0062460 I N 1 1 1 7 Q T A I L P 1
0062500 0 7 Q P R I N 1 1 0 1 Q P
0062520 R I N 2 7 0 Q P R I N 1 6
0062540 0 Q P R I N 1 5 2 Q P R I
0062560 N 2 4 2 Q P R I N 1 2 4 Q
0062600 M E M B 1 3 Q L A S T ) \r
0062620 ( 1 4 5 Q % ) 1 3 0 Q % (
0062640 6 4 Q % ) ) \r ( 1 2 4 Q
0062660 " . . . " 3 6 Q " . . .
0062700 . " ) \r L V L P R I N 0 D
0062720 1 \r ( L ( 2 C D R L V L 1
0062740 C A R L V L 0 X ) F 1
0062760 F I L E F 2 P R I N 2 F
0063000 L G ) \0 266 001 002 \0 003 @ 001 ` \0 \0 360
0063020 225 @ 002 002 b \0 277 B 021 001 \0 260 $ 003 263 033
0063040 o \0 \0 \0 Q \n \0 \0 277 R 226 @ Q i \v \0
0063060 \0 204 @ Q \n \0 \0 h 020 k Q \n \0 \0 277 B
0063100 j 360 230 g \0 \0 Q \n \0 \0 h 020 @ 001 003 257
0063120 R 231 @ 001 Q i d \f \0 \0 260 R @ 001 260 J
0063140 A j 360 263 2 H 265 ) Q i 360 236 @ 001 001 `
0063160 \0 \0 \n \0 \0 224 ` \0 \0 265 / g \0 \0 Q \n
0063200 \0 \0 277 @ 001 A d 262 025 j A 363 233 k 213 k
0063220 331 j 360 262 325 g \0 \0 216 m 377 330 H d 221 k
0063240 331 \v \0 \0 277 g \0 \0 Q \n \0 \0 277 B 225 B
0063260 k 331 b 004 277 @ 002 b \0 d 222 261 377 b 020 \0
0063300 ( 2 4 1 Q P R I N 1 2 3 1 Q
0063320 L V L P R I N 0 1 6 7 Q P
0063340 R I N 1 1 5 2 Q S U P E R P
0063360 R I N T E Q 1 1 7 Q P R I N
0063400 2 7 7 Q P R I N 1 6 3 Q
0063420 S P A C E S 5 4 Q P R I N 1
0063440 4 6 Q P R I N 2 3 5 Q P
0063460 R I N 1 ) \r ( 2 3 5 Q % ) 2
0063500 1 5 Q & 1 6 3 Q % ( 1 5
0063520 6 Q * * C O M M E N T * * F L
0063540 G 1 4 7 Q C O M M E N T F L
0063560 G 7 3 Q - - 4 C L I S P
0063600 T R A N F L G ) \r ( 3 1 Q "
0063620 . " ) \r F L U S H R I G H T
0063640 D 1 \r ( L ( 5 F I L E 4
0063660 C E N T E R F L A G 3 P 2
0063700 F L A G 2 M I N 1 X 0
0063720 P O S ) ) \0 I \0 \0 \0 006 j @ 363
0063740 227 E \t \0 \0 @ 331 260 026 @ j 360 252 @ d 005
0063760 003 232 d \t \0 \0 225 277 h E \n \0 \0 A C \n
0064000 \0 \0 331 b \0 D 231 d E \t \0 \0 330 l 002 327
0064020 200 @ B E \v \0 \0 C 225 A E \n \0 \0 020 A
0064040 E \n \0 \0 020 \0 ( 1 0 6 Q P R I N
0064060 1 1 0 0 Q P R I N 2 7 1 Q
0064100 T A B 5 6 Q P O S I T I O
0064120 N 4 4 Q N C H A R S 3 7 Q
0064140 L I N E L E N G T H 3 0 Q
0064160 \ F Z E R O P 7 P O S I T I
0064200 O N ) \r N I L \r ( ) \r P R I N T
0064220 P A R A D 1 \r ( L ( 4 P A
0064240 R E N F L A G 2 L I S T )
0064260 I 5 F I L E I 3 P 2 F
0064300 L A G I 1 R M A R G I
0064320 0 L M A R G ) \0 > \0 \0 \0 006 @
0064340 244 E \t \0 \0 211 j @ 363 230 E \t \0 \0 @ 331
0064360 b \0 277 A j 361 221 h 200 i 231 A h E \n \0
0064400 \0 330 b 002 277 E B E \t \0 \0 D 221 k 200 j
0064420 D 221 k 200 j \f \0 \0 \n \0 \0 020 \0 ( 7 3
0064440 Q P O S I T I O N 7 0 Q P
0064460 R I N T P A R A 1 5 3 Q P O
0064500 S I T I O N 4 1 Q L I N E L
0064520 E N G T H 1 6 Q P O S I T I
0064540 O N 5 P O S I T I O N ) \r N
0064560 I L \r ( ) \r P R I N T P A R A 1
0064600 D 1 \r ( L ( 3 C L O S E C
0064620 O U N T 2 O P E N C O U N T
0064640 1 P O S 0 L I S T ) F
0064660 7 F I L E F 1 0 Q L M
0064700 A R G F 1 1 Q R M A R G
0064720 F 1 2 Q P 2 F L A G ) 001 \n
0064740 \a 004 \0 004 j 021 a 006 @ 003 265 4 H ^ j 361
0064760 242 261 \0 372 W 022 A k 330 b 002 375 361 242 261 \0
0065000 336 W 016 \t \0 \0 277 W 020 ] j 361 242 261 \0 277
0065020 g \0 \0 W 016 \n \0 \0 277 M k 331 260 355 001 271
0065040 @ 002 003 241 C 270 I 003 265 2 W 022 B H A I
0065060 W 024 \n \0 \0 Z 330 b 002 330 330 375 361 262 7 W
0065100 016 \t \0 \0 277 W 020 [ j 361 262 # g \0 \0 W
0065120 016 \n \0 \0 277 K k 331 260 357 A B k 330 H k
0065140 330 \f \0 \0 b 002 277 j b 004 X 260 ; W 020 J
0065160 330 b 002 277 B j 361 262 037 B \ j 361 235 g \0
0065200 \0 W 016 \n \0 \0 277 L k 331 260 360 A B 330 b
0065220 002 277 j b 004 277 W 024 226 I W 016 \n \0 \0 205
0065240 I W 016 \n \0 \0 277 W 022 A k 330 361 262 030 @
0065260 d 002 003 262 023 277 g \0 \0 W 016 \n \0 \0 277 A
0065300 k 330 b 002 277 @ 002 b \0 261 377 g \0 \0 W
0065320 016 \n \0 \0 277 W 020 k 330 b 002 207 g \0 \0 W
0065340 016 \n \0 \0 277 N k 331 261 377 005 A 020 \0 ( 3
0065360 7 7 Q P R I N 3 3 5 7 Q P
0065400 R I N 3 3 3 1 Q P R I N 3
0065420 3 0 1 Q P R I N 3 2 7 2 Q
0065440 P R I N 4 2 4 1 Q P R I N 3
0065460 1 7 7 Q P R I N T P A R A 1
0065500 1 5 7 Q P R I N 3 1 3 7 Q
0065520 T E R P R I 1 2 0 Q N C H
0065540 A R S 6 3 Q P R I N 3 4 1
0065560 Q T E R P R I ) \r ( 3 7 2 Q
0065600 % ) 3 5 2 Q % ) 3 2 4 Q
0065620 % 2 3 4 Q % ( 1 5 2 Q
0065640 % 5 6 Q % ) \r ( ) \r S U
0065660 B L I S D 1 \r ( L ( 2 F L
0065700 G 1 E X P R 0 A L S T )
0065720 ) \0 B 002 \0 \0 003 A d 003 262 * 002 264 \t
0065740 @ A 002 B \v \0 \0 @ A 001 B \v \0 \0 021 002
0065760 001 I d A 001 360 230 277 H A 002 360 221 B 223 I
0066000 H 032 020 A 020 @ 026 021 001 \0 H 232 B 225 H 002
0066020 \t \0 \0 020 H 002 020 A 020 \0 ( 7 2 Q C
0066040 O P Y 2 5 Q S U B L I S 1
0066060 6 Q S U B L I S ) \r N I L \r (
0066100 ) \r S U B P A I R D 1 \r ( L
0066120 ( 3 F L G 2 E X P R 1
0066140 N E W 0 O L D ) ) \0 b 002 \0
0066160 \0 004 B 003 265 \a @ 265 . B 020 002 264 \n @ A
0066200 B 002 C \f \0 \0 @ A B 001 C \f \0 \0 021 002
0066220 001 I d B 001 360 230 277 H B 002 360 221 C 223 I
0066240 H 032 020 B 020 003 257 B d @ 360 262 317 277 C 224
0066260 A \t \0 \0 020 A 020 B @ 001 360 232 C 225 A 001
0066300 \t \0 \0 020 A 001 020 @ 002 b \0 A 002 b 002 277
0066320 277 260 245 \0 ( 1 2 0 Q C O P Y 1
0066340 0 1 Q C O P Y 3 3 Q S U B
0066360 P A I R 2 3 Q S U B P A I R
0066400 ) \r N I L \r ( ) \r D S U B L I S
0066420 D 1 \r ( L ( 2 F L G 1
0066440 E X P R 0 A L S T ) ) \0 3
0066460 001 \0 \0 003 A 003 246 @ A B \v \0 \0 020 @ A
0066500 001 B \v \0 \0 021 001 \0 H A 001 360 243 A H 030
0066520 277 023 @ A 002 B \v \0 \0 021 001 \0 H A 002 360
0066540 242 A H 031 A 020 \0 ( 4 4 Q D S U B
0066560 L I S 2 0 Q D S U B L I S
0066600 1 0 Q S U B L I S ) \r N I L \r
0066620 ( ) \r C O N S T A N T O K D 1
0066640 \r ( L ( 1 D E P T H 0 X
0066660 ) ) \0 M \0 \0 \0 002 A 244 l d b 002 277
0066700 @ 005 001 250 @ 005 \a 244 @ d 005 003 221 A 020 3
0066720 234 @ j 330 005 001 221 h 200 i 264 023 A 020 @
0066740 d 004 l 004 360 230 \t \0 \0 j 361 264 003 A 020 003
0066760 264 376 @ 001 A k 331 \n \0 \0 b 002 264 362 @ 002
0067000 b \0 277 260 266 \0 ( 1 0 0 Q C O N S
0067020 T A N T O K 5 7 Q N C H A R
0067040 S ) \r N I L \r ( ) \r C O U N T D
0067060 O W N D 1 \r ( L ( 1 N 0
0067100 X ) ) \0 037 \0 \0 \0 002 @ 003 227 A j
0067120 361 221 h 200 i 221 A 020 @ 002 @ 001 A k 331 \n
0067140 \0 \0 b 002 277 b \0 260 345 \0 ( 2 6 Q C
0067160 O U N T D O W N ) \r N I L \r ( )
0067200 \r N L A M B D A . A R G S D 1
0067220 \r ( L ( 0 X ) ) \0 - \0 \0 \0
0067240 001 @ d 003 244 d 221 h 032 020 001 g \0 \0 360 224
0067260 @ 002 003 265 031 @ d 001 003 262 023 d 001 001 g \0
0067300 \0 360 230 001 002 001 @ 002 \t \0 \0 032 020 \0 ( 5
0067320 1 Q N L A M B D A . A R G S )
0067340 \r ( 3 7 Q Q U O T E 1 4 Q
0067360 Q U O T E ) \r ( ) \r ( P R E T T
0067400 Y C O M P R I N T M A C H I N
0067420 E I N D E P E N D E N T C O M S
0067440 ) \r ( R P A Q Q M A C H I N E
0067460 I N D E P E N D E N T C O M S
0067500 ( ( C O M S ( * ; " r a n
0067520 d o m m a c h i n e - i n d e
0067540 p e n d e n t u t i l i t i e
0067560 s " ) ( F N S L O A D ? F
0067600 I L E S L O A D \r D O F I L E
0067620 S L O A D ) ( F N S D M P H
0067640 A S H H A S H O V E R F L O W
0067660 ) ( D E C L A R E : E V A L
0067700 @ C O M P I L E D O N T C O P
0067720 Y ( M A C R O S \r H A S H O
0067740 V E R F L O W . A R R A Y T E S
0067760 T H A S H O V E R F L O W . U
0070000 P D A T E A R R A Y ) ) ( F N
0070020 S B K B U F S C H A N G E N
0070040 A M E C H N G N M C L B U F
0070060 S D E F I N E \r F N S . P U
0070100 T D E F E Q M E M B E Q U A
0070120 L N F I L E D A T E F N C H
0070140 E C K F N T Y P 1 F R E E V
0070160 A R S L C S K I P M A P R I
0070200 N T M K L I S T N A M E F I
0070220 E L D N L I S T \r P R I N T
0070240 B E L L S P R O M P T C H A R
0070260 R A I S E P R E A D F I L E
0070300 R E A D L I N E R E M P R O
0070320 P L I S T R E S E T B U F S
0070340 T A B U N S A V E D 1 U S E
0070360 D F R E E W R I T E F I L E
0070400 \r C L O S E - A N D - M A Y B E
0070420 - D E L E T E X N L S E T Q
0070440 P R O G 2 U N S A F E . T O .
0070460 M O D I F Y ) ( V A R S U N
0070500 S A F E . T O . M O D I F Y . F
0070520 N S ) ( P R O P A R G N A M
0070540 E S \r P R O G 2 ) ( P ( M
0070560 O V D ? ( Q U O T E C O P Y
0070600 B Y T E S ) ( Q U O T E C O
0070620 P Y C H A R S ) N I L T ) )
0070640 ( F N S R E S E T F O R M
0070660 R E S E T L S T R E S E T T O
0070700 P V A L S \r R E S E T T O P V
0070720 A L S 1 ) ( P R O P I N F O
0070740 R E S E T T O P V A L S ) )
0070760 ( C O M S ( * ; \r " F u n
0071000 c t i o n s f o r r e t r i
0071020 e v i n g a n d r e m e m b
0071040 e r i n g F I L E M A P s a
0071060 n d f i l e r e a d e r e
0071100 n v i r o n m e n t s " ) ( F
0071120 N S F I L E M A P \r \ P A R
0071140 S E - F I L E - H E A D E R G
0071160 E T - E N V I R O N M E N T - A
0071200 N D - F I L E M A P G E T - F
0071220 I L E M A P - F R O M - F I L E
0071240 C R E A T E D \ F I L E M A P
0071260 - H A S H O V E R F L O W \r F
0071300 L U S H F I L E M A P S L I S
0071320 P S O U R C E F I L E P G E T
0071340 F I L E M A P P U T F I L E M
0071360 A P U P D A T E F I L E M A P
0071400 P R I N T - R E A D E R - E N
0071420 V I R O N M E N T ) ( I N I T
0071440 V A R S \r ( * F I L E M A P -
0071460 L I M I T * 2 0 ) ( * F I L
0071500 E M A P - V E R S I O N S * 2
0071520 ) ( * F I L E M A P - H A S H
0071540 * ( H A S H A R R A Y * F I
0071560 L E M A P - L I M I T * ( F U
0071600 N C T I O N \r \ F I L E M A P
0071620 - H A S H O V E R F L O W ) (
0071640 F U N C T I O N S T R I N G -
0071660 E Q U A L - H A S H B I T S )
0071700 ( F U N C T I O N S T R I N G
0071720 . E Q U A L ) ) ) ) ( D E C L
0071740 A R E : \r E V A L @ C O M P I
0071760 L E D O N T C O P Y ( R E C
0072000 O R D S F I L E M A P H A S H
0072020 ) ( G L O B A L V A R S * F
0072040 I L E M A P - L I M I T * * F
0072060 I L E M A P - V E R S I O N S *
0072100 \r * F I L E M A P - H A S H *
0072120 ) ) ) ( C O M S ( * * L
0072140 V L P R I N T ) ( F N S L V
0072160 L P R I N T L V L P R I N 1
0072200 L V L P R I N 2 L V L P R I N
0072220 L V L P R I N 0 ) ) ( C O M
0072240 S ( * ; \r " u s e d b y
0072260 P R I N T O U T " ) ( F N S
0072300 F L U S H R I G H T P R I N
0072320 T P A R A P R I N T P A R A 1
0072340 ) ) ( C O M S ( * ; " S
0072360 U B L I S a n d f r i e n d
0072400 s " ) ( F N S \r S U B L I S
0072420 S U B P A I R D S U B L I S
0072440 ) ) ( C O M S ( * * C O
0072460 N S T A N T S ) ( F N S C O
0072500 N S T A N T O K ) ( P ( M O
0072520 V D ? ( Q U O T E E V Q )
0072540 ( Q U O T E C O N S T A N T )
0072560 \r ) ( M O V D ? ( Q U O T E
0072600 E V Q ) ( Q U O T E D E F
0072620 E R R E D C O N S T A N T ) )
0072640 ( M O V D ? ( Q U O T E E V
0072660 Q ) ( Q U O T E L O A D T I
0072700 M E C O N S T A N T ) ) ) ) (
0072720 C O M S ( * \r * S C R A T
0072740 C H L I S T ) ( P R O P M A
0072760 C R O S C R A T C H L I S T
0073000 A D D T O S C R A T C H L I S T
0073020 ) ( P R O P I N F O S C R
0073040 A T C H L I S T ) ) ( C O M S
0073060 ( * * C O M P A R E ) \r
0073100 ( F N S C O M P A R E L S T
0073120 C O M P A R E 1 C O M P A R E
0073140 P R I N T C O M P A R E P R I
0073160 N T 1 C O M P A R E L I S T S
0073200 C O M P A R E P R I N T N C
0073220 O M P A R E F A I L C O M P A
0073240 R E M A X \r C O U N T D O W N
0073260 ) ( A D D V A R S ( C O M P
0073300 A R E T R A N S F O R M S ) )
0073320 ( D E C L A R E : E V A L @ C
0073340 O M P I L E D O N T C O P Y
0073360 ( P R O P B L K L I B R A R Y
0073400 D E F \r C O U N T D O W N )
0073420 ( A D D V A R S ( B L K L I B
0073440 A R Y C O U N T D O W N ) ) )
0073460 ( B L O C K S ( C O M P A R
0073500 E L I S T S B L O C K C O M P
0073520 A R E L I S T S C O M P A R E
0073540 L S T \r C O M P A R E 1 C O
0073560 M P A R E P R I N T C O M P A
0073600 R E P R I N T 1 C O M P A R E
0073620 M A X ( E N T R I E S C O M
0073640 P A R E L I S T S C O M P A R
0073660 E L S T ) ( G L O B A L V A R
0073700 S \r C O M P A R E T R A N S F
0073720 O R M S ) ( L O C A L F R E E
0073740 V A R S D I F F E R E N C E S
0073760 L O O S E M A T C H ) ( N O
0074000 L I N K F N S . T ) C O M
0074020 P A R E P R I N T N C O M P A
0074040 R E F A I L ( \r G L O B A L V
0074060 A R S C O M M E N T F L G *
0074100 * C O M M E N T * * F L G ) ) )
0074120 ) ( G L O B A L V A R S S Y
0074140 S F I L E S L O A D O P T I O
0074160 N S L I S P X C O M S C L I
0074200 S P T R A N F L G \r C O M M E
0074220 N T F L G * * C O M M E N T *
0074240 * F L G H I S T S T R 4 L I
0074260 S P X R E A D F N R E R E A D
0074300 F L G H I S T S T R 0 C T R
0074320 L U F L G N O L I N K M E S S
0074340 P R O M P T C H A R F O R M S
0074360 \r P R O M P T # F L G F I L
0074400 E R D T B L S P E L L I N G S
0074420 2 U S E R W O R D S B E L L
0074440 S C L I S P A R R A Y ) ( F
0074460 N S N L A M B D A . A R G S )
0074500 ( D E C L A R E : D O N T E
0074520 V A L @ L O A D \r D O C O P Y
0074540 ( * ; " i n i t i a l i z
0074560 a t i o n o f v a r i a b l
0074600 e s u s e d i n m a n y
0074620 p l a c e s " ) ( A D D V A R
0074640 S ( C L I S P A R R A Y ) (
0074660 C L I S P F L G ) ( \r C T R L
0074700 U F L G ) ( E D I T C A L L S
0074720 ) ( E D I T H I S T O R Y )
0074740 ( E D I T U N D O S A V E S )
0074760 ( E D I T U N D O S T A T S )
0075000 ( G L O B A L V A R S ) ( L C
0075020 A S E F L G ) ( L I S P X B U
0075040 F S \r ) ( L I S P X C O M S )
0075060 ( L I S P X F N S ) ( L I S
0075100 P X H I S T ) ( L I S P X H I
0075120 S T O R Y ) ( L I S P X P R I
0075140 N T F L G ) ( N O C L E A R S
0075160 T K L S T ) ( N O F I X F N S
0075200 L S T ) ( \r N O F I X V A R S
0075220 L S T ) ( P . A . S T A T S )
0075240 ( P R O M P T C H A R F O R M
0075260 S ) ( R E A D B U F ) ( R E
0075300 A D B U F S O U R C E ) ( R E
0075320 R E A D F L G ) ( R E S E T S
0075340 T A T E ) ( \r S P E L L I N G
0075360 S 1 ) ( S P E L L I N G S 2 )
0075400 ( S P E L L I N G S 3 ) ( S
0075420 P E L L S T A T S 1 ) ( U S E
0075440 R W O R D S ) ) ( V A R S (
0075460 C H C O N L S T ( Q U O T E
0075500 ( N I L N I L N I L \r N I
0075520 L N I L N I L N I L N I
*
0075620 L ) ) ) ( C H C O N L S T 1
0075640 ( Q U O T E ( N I L N I L
0075660 N I L \r N I L N I L N I L
0075700 N I L N I L N I L N I L
*
0075760 N I L N I L ) ) ) ( C H C
0076000 O N L S T 2 ( Q U O T E ( N
0076020 I L N I L N I L \r N I L
0076040 N I L N I L N I L N I L
*
0076120 N I L N I L N I L N I L )
0076140 ) ) ( C L E A R S T K L S T
0076160 T ) ( C L I S P T R A N F L G
0076200 ( \r Q U O T E C L I S P %
0076220 ) ) ( H I S T S T R 0 " < c
0076240 . r . > " ) ( H I S T S T R 2
0076260 " r e p e a t " ) ( H I S T
0076300 S T R 3 " f r o m e v e n t
0076320 : " ) ( H I S T S T R 4 " i
0076340 g n o r e " ) ( \r L I S P X R
0076360 E A D F N ( Q U O T E R E A
0076400 D ) ) ( U S E M A P F L G T
0076420 ) ) ( P ( M A P C ( Q U O
0076440 T E ( ( A P P L Y B L K A P
0076460 P L Y ) ( S E T T O P V A L
0076500 S E T A T O M V A L ) ( \r G E
0076520 T T O P V A L G E T A T O M V
0076540 A L ) ( A P P L Y * B L K A
0076560 P P L Y * ) ( R P L A C A F
0076600 R P L A C A ) ( R P L A C D
0076620 F R P L A C D ) ( S T K N T H
0076640 F S T K N T H ) ( S T K N A
0076660 M E \r F S T K N A M E ) ( C
0076700 H A R A C T E R F C H A R A C
0076720 T E R ) ( S T K A R G F S T
0076740 K A R G ) ( C H C O N D C H
0076760 C O N ) ( U N P A C K D U N
0077000 P A C K ) ( A D D P R O P /
0077020 A D D P R O P ) ( \r A T T A C
0077040 H / A T T A C H ) ( D R E M
0077060 O V E / D R E M O V E ) ( D
0077100 S U B S T / D S U B S T ) (
0077120 N C O N C / N C O N C ) ( N
0077140 C O N C 1 / N C O N C 1 ) (
0077160 P U T / P U T ) ( \r P U T P
0077200 R O P / P U T P R O P ) ( P
0077220 U T D / P U T D ) ( R E M P
0077240 R O P / R E M P R O P ) ( R
0077260 P L A C A / R P L A C A ) (
0077300 R P L A C D / R P L A C D )
0077320 ( S E T / S E T ) ( \r S E T
0077340 A T O M V A L / S E T A T O M
0077360 V A L ) ( S E T T O P V A L
0077400 / S E T T O P V A L ) ( S E T
0077420 P R O P L I S T / S E T P R O
0077440 P L I S T ) ( S E T S A V E
0077460 S E T ) ( P R I N T \r L I S
0077500 P X P R I N T ) ( P R I N 1
0077520 L I S P X P R I N 1 ) ( P R I
0077540 N 2 L I S P X P R I N 2 ) (
0077560 S P A C E S L I S P X S P A C
0077600 E S ) ( T A B L I S P X T A
0077620 B ) ( T E R P R I \r L I S P
0077640 X T E R P R I ) ( P R I N T
0077660 S H O W P R I N T ) ( P R I N
0077700 2 S H O W P R I N 2 ) ( P U
0077720 T H A S H / P U T H A S H )
0077740 ( Q U O T E * ) ( F N C L O
0077760 S E R / F N C L O S E R ) (
0100000 \r F N C L O S E R A / F N C L
0100020 O S E R A ) ( F N C L O S E R
0100040 D / F N C L O S E R D ) ( E
0100060 V Q D E L F I L E ) ( N I L
0100100 L S M A S H F I L E C O M S )
0100120 ( P U T A S S O C / P U T A
0100140 S S O C ) ( \r L I S T P U T 1
0100160 P U T L ) ( N I L L I . S
0100200 . O P R ) ( N I L L R E S E
0100220 T U N D O ) ( N I L L L I S
0100240 P X W A T C H ) ( Q U O T E
0100260 A D D S T A T S ) ) ) ( F U N
0100300 C T I O N ( L A M B D A \r (
0100320 X ) ( M O V D ? ( C A R X
0100340 ) ( C A D R X ) ) ) ) ) (
0100360 M A P C ( Q U O T E ( ( T I
0100400 M E P R I N 1 L I S P X P R
0100420 I N 1 ) ( T I M E S P A C E
0100440 S L I S P X S P A C E S ) (
0100460 T I M E \r P R I N T L I S P
0100500 X P R I N T ) ( D E F C P R
0100520 I N T L I S P X P R I N T )
0100540 ( D E F C P U T D / P U T D
0100560 ) ( D E F C P U T P R O P
0100600 / P U T P R O P ) ( D O L I N
0100620 K F N C L O S E R D \r / F N
0100640 C L O S E R D ) ( D O L I N K
0100660 F N C L O S E R A / F N C L
0100700 O S E R A ) ( D E F L I S T
0100720 P U T P R O P / P U T P R O P
0100740 ) ( S A V E D E F 1 P U T P
0100760 R O P / P U T P R O P ) ( \r
0101000 M K S W A P B L O C K P U T D
0101020 / P U T D ) ) ) ( F U N C T
0101040 I O N ( L A M B D A ( X )
0101060 ( A N D ( C C O D E P ( C A
0101100 R X ) ) ( A P P L Y ( Q U
0101120 O T E C H A N G E N A M E )
0101140 X ) ) ) ) ) \r ( M A P C ( Q
0101160 U O T E ( ( E V A L Q T ( L
0101200 A M B D A N I L ( P R O G
0101220 ( T E M ) ( R E S E T R E S T
0101240 O R E N I L ( Q U O T E R
0101260 E S E T ) ) L P ( P R O M P
0101300 T C H A R ( Q U O T E \r _ )
0101320 T ) ( L I S P X ( L I S P
0101340 X R E A D T T ) ) ( G O
0101360 L P ) ) ) ) ( L I S P X ( L
0101400 A M B D A ( L I S P X X ) (
0101420 P R I N T ( A N D L I S P X
0101440 X ( P R O G ( L I S P X L I
0101460 N E \r L I S P X H I S T T E
0101500 M ) ( R E T U R N ( C O N D
0101520 ( ( A N D ( N L I S T P L
0101540 I S P X X ) ( S E T Q L I S
0101560 P X L I N E ( R E A D L I N E
0101600 T N I L T ) ) ) ( A P P
0101620 L Y L I S P X X \r ( C A R
0101640 L I S P X L I N E ) ) ) ( T
0101660 ( E V A L L I S P X X ) ) ) )
0101700 ) ) T T ) ) ) ( L I S P X
0101720 R E A D ( L A M B D A ( F I
0101740 L E R D T B L ) ( C O N D
0101760 ( R E A D B U F ( P R O G 1
0102000 ( \r C A R R E A D B U F ) (
0102020 S E T Q R E A D B U F ( C D
0102040 R R E A D B U F ) ) ) ) ( T
0102060 ( R E A D F I L E R D T B
0102100 L ) ) ) ) ) ( L I S P X R E A
0102120 D P ( L A M B D A ( F L G )
0102140 ( C O N D ( \r ( A N D R E
0102160 A D B U F ( S E T Q R E A D
0102200 B U F ( L I S P X R E A D B U
0102220 F R E A D B U F ) ) ) T )
0102240 ( T ( R E A D P T F L G )
0102260 ) ) ) ) ( L I S P X U N R E A
0102300 D ( L A M B D A ( L S T ) \r
0102320 ( S E T Q R E A D B U F (
0102340 A P P E N D L S T ( C O N S
0102360 H I S T S T R 0 R E A D B U
0102400 F ) ) ) ) ) ( L I S P X R E A
0102420 D B U F ( L A M B D A ( R D
0102440 B U F ) ( P R O G N I L L
0102460 P ( \r C O N D ( ( N L I S T
0102500 P R D B U F ) ( R E T U R N
0102520 N I L ) ) ( ( E Q ( C A R
0102540 R D B U F ) H I S T S T R 0
0102560 ) ( S E T Q R D B U F ( C
0102600 D R R D B U F ) ) ( G O L
0102620 P ) ) ( T ( \r R E T U R N
0102640 R D B U F ) ) ) ) ) ) ( L I S
0102660 P X / ( L A M B D A ( X )
0102700 X ) ) ( L O W E R C A S E (
0102720 L A M B D A ( F L G ) ( P R
0102740 O G 1 L C A S E F L G ( R A
0102760 I S E ( N U L L F L G ) ) \r
0103000 ( R P A Q L C A S E F L G
0103020 F L G ) ) ) ) ( F I L E P O S
0103040 ( L A M B D A ( S T R F I
0103060 L E ) ( P R O G N I L L P
0103100 ( C O N D ( ( E Q ( P E E
0103120 K C F I L E ) ( N T H C H A
0103140 R S T R \r 1 ) ) ( R E T U
0103160 R N T ) ) ) ( R E A D C F
0103200 I L E ) ( G O L P ) ) ) )
0103220 ( F I L E P K G C O M ( N L A
0103240 M B D A N I L N I L ) ) ) )
0103260 ( F U N C T I O N ( L A M B
0103300 D A ( L ) ( O R ( \r G E T
0103320 D ( C A R L ) ) ( P U T D
0103340 ( C A R L ) ( C A D R L
0103360 ) ) ) ) ) ) ) ) ( D E C L A R
0103400 E : D O N T E V A L @ L O A D
0103420 D O E V A L @ C O M P I L E
0103440 D O N T C O P Y \r C O M P I L
0103460 E R V A R S ( A D D V A R S
0103500 ( N L A M A R E S E T T O P V
0103520 A L S R E S E T L S T R E S
0103540 E T F O R M U S E D F R E E
0103560 R E S E T B U F S D M P H A S
0103600 H F I L E S L O A D ) ( \r N
0103620 L A M L F I L E M A P X N L
0103640 S E T Q ) ( L A M A P R O G
0103660 2 R E A D F I L E N L I S T
0103700 ) ) ) ( L O C A L V A R S .
0103720 T ) ) ) \r ( R P A Q Q U N S
0103740 A F E . T O . M O D I F Y . F N
0103760 S ( Q U O T E A P P L Y P
0104000 R I N T B L O C K T I M E R
0104020 E X P I R E D ? P R I N 1 P
0104040 R I N 2 L I S P X P U T P R
0104060 I N 3 \r D S P C L I P P I N G
0104100 R E G I O N A D D C H A R B
0104120 L T C H A R T T W A I T F O R
0104140 I N P U T R E A D R E A D L
0104160 I N E / P U T D / R E M P R
0104200 O P A D D C H A R / P U T
0104220 A D D S P E L L \r A D V I S E
0104240 W D S A L L O C S T R I N G
0104260 A P P L Y A S S O C A W A I
0104300 T . E V E N T B I T B L T . E
0104320 R A S E B I T M A P C O P Y
0104340 B I T M A P C R E A T E B K B
0104360 I T B L T B L O C K \r B L T
0104400 C H A R B L T S H A D E B R
0104420 E A K B R E A K 0 B R E A K
0104440 1 B R E A K 1 A B R E A K 2
0104460 B R E A K R E S E T F N B R
0104500 K L A S T P O S C H A R S E T
0104520 C H C O N 1 C L E A R . L I
0104540 N E ? \r C L O C K C L O C K
0104560 D I F F E R E N C E C L O S E
0104600 W C O N C A T C R E A T E W
0104620 C U R S O R C U R S O R H O
0104640 T S P O T D E L E T E T O D
0104660 O . C R L F D R A W L I N E
0104700 D S P B A C K U P \r D S P C L
0104720 I P P I N G R E G I O N D S P
0104740 C R E A T E D S P D E S T I N
0104760 A T I O N D S P F I L L D S
0105000 P F O N T D S P L E F T M A R
0105020 G I N D S P R I G H T M A R G
0105040 I N D S P S C R O L L \r D S
0105060 P S O U R C E T Y P E D S P X
0105100 O F F S E T D S P X P O S I T
0105120 I O N D S P Y P O S I T I O N
0105140 E Q L E N G T H E Q P E Q
0105160 U A L E R A S E . T O . E N D
0105200 . O F . L I N E \r E R A S E .
0105220 T O . E N D . O F . P A G E E
0105240 R R O R M E S S 1 E R R O R S
0105260 E T E V A L E V A L Q T E
0105300 X P R P F A S S O C F I L E
0105320 N A M E F I E L D F I X R F
0105340 L I P C U R S O R G E N S Y M
0105360 \r G E T B R E A K W I N D O W
0105400 G E T M O U S E S T A T E G
0105420 E T P R O P H E L P H I S T
0105440 O R Y S A V E I M A G E S T R
0105460 E A M T Y P E P I M O D I N
0105500 I T . C U R S O R I N T E G E
0105520 R L E N G T H \r I N T E R R U
0105540 P T A B L E I N T E R S E C T
0105560 R E G I O N S I R E M A I N D
0105600 E R L A S T L A S T C L I
0105620 S P X L I S P X / L I S P X
0105640 F I N D L I S P X F I N D 1
0105660 L I S P X P R I N T \r L I S P
0105700 X P U T L I S P X R E A D L
0105720 I S P X R E A D B U F L I S P
0105740 X U N R E A D L I S T G E T
0105760 L I S T P U T M E M B M K A
0106000 T O M M K S T R I N G M O N
0106020 I T O R . A W A I T . E V E N T
0106040 \r M O V E T O U P P E R L E F
0106060 T N O T I F Y . E V E N T N
0106100 T H N T H C H A R C O D E O
0106120 B T A I N . M O N I T O R L O C
0106140 K O P E N W O V E R F L O W
0106160 ? P A C K * P A G E H E I G
0106200 H T P R I N 1 \r P R I N 2
0106220 P R I N 3 P R I N T P R I N
0106240 T C C O D E P R I N T L E V E
0106260 L P R O G N P R O M P T C H
0106300 A R P U T W I N D O W P R O P
0106320 R E A D R E A D L I N E R
0106340 E A D P R E A L S T K N T H \r
0106360 R E G I O N P R E L E A S E
0106400 . P U P R E L E A S E B R E A
0106420 K W I N D O W R E L S T K R
0106440 E S E T R E S T O R E R E S H
0106460 O W T I T L E R E S T O R E
0106500 R E T F R O M R P L C H A R C
0106520 O D E \r R P L S T R I N G S
0106540 A V E D S E T B R E A K T T Y
0106560 S E T C U R S O R S E T T E
0106600 R M T A B L E S H O W P R I N
0106620 2 S H O W P R I N T S H O W
0106640 W F R A M E S H O W W T I T L
0106660 E S K I P S E P R S \r S P A
0106700 C E S S T K P O S S U B A T
0106720 O M S U B S T R I N G S Y N
0106740 T A X P T E R P R I T I M E
0106760 R E X P I R E D ? T O T O P W
0107000 T T B I N T T B I T W I D T
0107020 H T T C R L F \r T T D E L E
0107040 T E L I N E T T S K R E A D
0107060 T T W A I T F O R I N P U T T
0107100 T Y D I S P L A Y S T R E A M
0107120 T T Y I N T T Y I N . C L E A
0107140 N U P T T Y I N . F I N I S H
0107160 T T Y I N . R E A D \r T T Y
0107200 I N . S E T U P T T Y I N 1
0107220 T T Y I N 1 R E S T A R T T T
0107240 Y I N R E A D T Y P E N A M E
0107260 U N B R E A K 0 U N D O S A
0107300 V E U N P A C K F I L E N A M
0107320 E . S T R I N G W F R O M D S
0107340 \r W I N D O W . M O U S E . H
0107360 A N D L E R ) ) \r ( P U T P R O
0107400 P S P R O G 2 A R G N A M E
0107420 S ( N I L ( F I R S T S E
0107440 C O N D . . . ) . U ) ) \r
0107460 ( M O V D ? ( Q U O T E C O
0107500 P Y B Y T E S ) ( Q U O T E
0107520 C O P Y C H A R S ) N I L T
0107540 ) \r ( P U T P R O P S R E S E
0107560 T T O P V A L S I N F O ( E
0107600 V A L B I N D S ) ) \r ( R P A
0107620 Q ? * F I L E M A P - L I M I
0107640 T * 2 0 ) \r ( R P A Q ? * F
0107660 I L E M A P - V E R S I O N S *
0107700 2 ) \r ( R P A Q ? * F I L E
0107720 M A P - H A S H * ( H A S H A
0107740 R R A Y * F I L E M A P - L I
0107760 M I T * ( F U N C T I O N \
0110000 F I L E M A P - H A S H O V E R
0110020 F L O W ) ( F U N C T I O N
0110040 \r S T R I N G - E Q U A L - H A
0110060 S H B I T S ) ( F U N C T I O
0110100 N S T R I N G . E Q U A L ) )
0110120 ) \r ( M O V D ? ( Q U O T E
0110140 E V Q ) ( Q U O T E C O N S
0110160 T A N T ) ) \r ( M O V D ? ( Q
0110200 U O T E E V Q ) ( Q U O T E
0110220 D E F E R R E D C O N S T A N
0110240 T ) ) \r ( M O V D ? ( Q U O T
0110260 E E V Q ) ( Q U O T E L O
0110300 A D T I M E C O N S T A N T ) )
0110320 \r ( P U T P R O P S S C R A T
0110340 C H L I S T M A C R O ( ( S
0110360 C R A T C H L I S T . F O R
0110400 M S ) ( ( L A M B D A ( ! S
0110420 C R A T C H L I S T ! S C R A
0110440 T C H T A I L ) ( D E C L A R
0110460 E ( \r S P E C V A R S ! S C
0110500 R A T C H L I S T ! S C R A T
0110520 C H T A I L ) ) ( S E T Q !
0110540 S C R A T C H T A I L ! S C R
0110560 A T C H L I S T ) ( P R O G N
0110600 . F O R M S ) ( C O N D
0110620 ( ( E Q \r ! S C R A T C H T A
0110640 I L ! S C R A T C H L I S T )
0110660 N I L ) ( T ( P R O G (
0110700 ( L 2 ( C D R ! S C R A T C
0110720 H L I S T ) ) ) ( R P L A C D
0110740 ! S C R A T C H L I S T ( P
0110760 R O G 1 ( C D R \r ! S C R A
0111000 T C H T A I L ) ( R P L A C D
0111020 ! S C R A T C H T A I L N I
0111040 L ) ) ) ( F R P L A C D ( F
0111060 L A S T ! S C R A T C H L I S
0111100 T ) L 2 ) ( R E T U R N L
0111120 2 ) ) ) ) ) ( O R ( L I S T
0111140 P \r S C R A T C H L I S T )
0111160 ( C O N S ) ) N I L ) ) ) \r (
0111200 P U T P R O P S A D D T O S C
0111220 R A T C H L I S T M A C R O
0111240 ( ( V A L U E ) ( F R P L A C
0111260 A ( S E T Q ! S C R A T C H
0111300 T A I L ( O R ( L I S T P
0111320 ( C D R ! S C R A T C H T A I
0111340 L ) ) ( \r C D R ( F R P L A
0111360 C D ! S C R A T C H T A I L
0111400 ( C O N S ) ) ) ) ) V A L U E
0111420 ) ) ) \r ( P U T P R O P S S C
0111440 R A T C H L I S T I N F O E
0111460 V A L ) \r ( A D D T O V A R C
0111500 O M P A R E T R A N S F O R M S
0111520 ) \r ( A D D T O V A R C L I S
0111540 P A R R A Y ) \r ( A D D T O V A
0111560 R C L I S P F L G ) \r ( A D D
0111600 T O V A R C T R L U F L G ) \r
0111620 ( A D D T O V A R E D I T C A
0111640 L L S ) \r ( A D D T O V A R E
0111660 D I T H I S T O R Y ) \r ( A D D
0111700 T O V A R E D I T U N D O S A
0111720 V E S ) \r ( A D D T O V A R E
0111740 D I T U N D O S T A T S ) \r ( A
0111760 D D T O V A R G L O B A L V A
0112000 R S ) \r ( A D D T O V A R L C
0112020 A S E F L G ) \r ( A D D T O V A
0112040 R L I S P X B U F S ) \r ( A D
0112060 D T O V A R L I S P X C O M S
0112100 ) \r ( A D D T O V A R L I S P
0112120 X F N S ) \r ( A D D T O V A R
0112140 L I S P X H I S T ) \r ( A D D T
0112160 O V A R L I S P X H I S T O R
0112200 Y ) \r ( A D D T O V A R L I S
0112220 P X P R I N T F L G ) \r ( A D D
0112240 T O V A R N O C L E A R S T K
0112260 L S T ) \r ( A D D T O V A R N
0112300 O F I X F N S L S T ) \r ( A D D
0112320 T O V A R N O F I X V A R S L
0112340 S T ) \r ( A D D T O V A R P .
0112360 A . S T A T S ) \r ( A D D T O V
0112400 A R P R O M P T C H A R F O R
0112420 M S ) \r ( A D D T O V A R R E
0112440 A D B U F ) \r ( A D D T O V A R
0112460 R E A D B U F S O U R C E ) \r
0112500 ( A D D T O V A R R E R E A D
0112520 F L G ) \r ( A D D T O V A R R
0112540 E S E T S T A T E ) \r ( A D D T
0112560 O V A R S P E L L I N G S 1 )
0112600 \r ( A D D T O V A R S P E L L
0112620 I N G S 2 ) \r ( A D D T O V A R
0112640 S P E L L I N G S 3 ) \r ( A D
0112660 D T O V A R S P E L L S T A T
0112700 S 1 ) \r ( A D D T O V A R U S
0112720 E R W O R D S ) \r ( R P A Q Q
0112740 C H C O N L S T ( N I L N I
0112760 L N I L N I L N I L N I
*
0113060 L N I L N I L ) ) \r ( R P A
0113100 Q Q C H C O N L S T 1 ( N I
0113120 L N I L N I L N I L N I
*
0113220 L N I L N I L N I L ) ) \r
0113240 ( R P A Q Q C H C O N L S T 2
0113260 ( N I L N I L N I L N I
0113300 L N I L N I L N I L N I
*
0113400 L ) ) \r ( R P A Q Q C L E A R
0113420 S T K L S T T ) \r ( R P A Q Q
0113440 C L I S P T R A N F L G C L
0113460 I S P % ) \r ( R P A Q H I S
0113500 T S T R 0 " < c . r . > " ) \r
0113520 ( R P A Q H I S T S T R 2 "
0113540 r e p e a t " ) \r ( R P A Q H
0113560 I S T S T R 3 " f r o m e v
0113600 e n t : " ) \r ( R P A Q H I S
0113620 T S T R 4 " i g n o r e " ) \r
0113640 ( R P A Q Q L I S P X R E A D
0113660 F N R E A D ) \r ( R P A Q Q
0113700 U S E M A P F L G T ) \r ( M A
0113720 P C ( Q U O T E ( ( A P P L
0113740 Y B L K A P P L Y ) ( S E T
0113760 T O P V A L S E T A T O M V A
0114000 L ) ( G E T T O P V A L G E
0114020 T A T O M V A L ) ( A P P L Y
0114040 * B L K A P P L Y * ) ( \r R
0114060 P L A C A F R P L A C A ) (
0114100 R P L A C D F R P L A C D )
0114120 ( S T K N T H F S T K N T H )
0114140 ( S T K N A M E F S T K N A
0114160 M E ) ( C H A R A C T E R F
0114200 C H A R A C T E R ) ( S T K A
0114220 R G \r F S T K A R G ) ( C H
0114240 C O N D C H C O N ) ( U N P
0114260 A C K D U N P A C K ) ( A D
0114300 D P R O P / A D D P R O P )
0114320 ( A T T A C H / A T T A C H )
0114340 ( D R E M O V E / D R E M O
0114360 V E ) ( \r D S U B S T / D S
0114400 U B S T ) ( N C O N C / N C
0114420 O N C ) ( N C O N C 1 / N C
0114440 O N C 1 ) ( P U T / P U T )
0114460 ( P U T P R O P / P U T P R
0114500 O P ) ( P U T D / P U T D )
0114520 ( R E M P R O P \r / R E M P
0114540 R O P ) ( R P L A C A / R P
0114560 L A C A ) ( R P L A C D / R
0114600 P L A C D ) ( S E T / S E T
0114620 ) ( S E T A T O M V A L / S
0114640 E T A T O M V A L ) ( S E T T
0114660 O P V A L / S E T T O P V A L
0114700 ) \r ( S E T P R O P L I S T
0114720 / S E T P R O P L I S T ) ( S
0114740 E T S A V E S E T ) ( P R I
0114760 N T L I S P X P R I N T ) (
0115000 P R I N 1 L I S P X P R I N 1
0115020 ) ( P R I N 2 L I S P X P R
0115040 I N 2 ) ( \r S P A C E S L I
0115060 S P X S P A C E S ) ( T A B
0115100 L I S P X T A B ) ( T E R P R
0115120 I L I S P X T E R P R I ) (
0115140 P R I N T S H O W P R I N T )
0115160 ( P R I N 2 S H O W P R I N
0115200 2 ) ( P U T H A S H \r / P U
0115220 T H A S H ) ( Q U O T E * )
0115240 ( F N C L O S E R / F N C L
0115260 O S E R ) ( F N C L O S E R A
0115300 / F N C L O S E R A ) ( F N
0115320 C L O S E R D / F N C L O S E
0115340 R D ) ( E V Q D E L F I L E
0115360 ) ( \r N I L L S M A S H F I
0115400 L E C O M S ) ( P U T A S S O
0115420 C / P U T A S S O C ) ( L I
0115440 S T P U T 1 P U T L ) ( N I
0115460 L L I . S . O P R ) ( N I L
0115500 L R E S E T U N D O ) ( N I
0115520 L L \r L I S P X W A T C H )
0115540 ( Q U O T E A D D S T A T S )
0115560 ) ) ( F U N C T I O N ( L A
0115600 M B D A ( X ) ( M O V D ?
0115620 ( C A R X ) ( C A D R X )
0115640 ) ) ) ) \r ( M A P C ( Q U O T
0115660 E ( ( T I M E P R I N 1 L
0115700 I S P X P R I N 1 ) ( T I M E
0115720 S P A C E S L I S P X S P A
0115740 C E S ) ( T I M E P R I N T
0115760 L I S P X P R I N T ) ( D E
0116000 F C P R I N T \r L I S P X P
0116020 R I N T ) ( D E F C P U T D
0116040 / P U T D ) ( D E F C P U
0116060 T P R O P / P U T P R O P )
0116100 ( D O L I N K F N C L O S E R
0116120 D / F N C L O S E R D ) ( D
0116140 O L I N K F N C L O S E R A
0116160 \r / F N C L O S E R A ) ( D E
0116200 F L I S T P U T P R O P / P
0116220 U T P R O P ) ( S A V E D E F
0116240 1 P U T P R O P / P U T P R
0116260 O P ) ( M K S W A P B L O C K
0116300 P U T D / P U T D ) ) ) (
0116320 \r F U N C T I O N ( L A M B D
0116340 A ( X ) ( A N D ( C C O D
0116360 E P ( C A R X ) ) ( A P P
0116400 L Y ( Q U O T E C H A N G E
0116420 N A M E ) X ) ) ) ) ) \r ( M A
0116440 P C ( Q U O T E ( ( E V A L
0116460 Q T ( L A M B D A N I L (
0116500 P R O G ( T E M ) ( R E S E
0116520 T R E S T O R E N I L ( Q U
0116540 O T E R E S E T ) ) L P (
0116560 P R O M P T C H A R ( Q U O T
0116600 E _ \r ) T ) ( L I S P X
0116620 ( L I S P X R E A D T T ) )
0116640 ( G O L P ) ) ) ) ( L I S
0116660 P X ( L A M B D A ( L I S P
0116700 X X ) ( P R I N T ( A N D
0116720 L I S P X X ( P R O G ( L I
0116740 S P X L I N E \r L I S P X H I
0116760 S T T E M ) ( R E T U R N
0117000 ( C O N D ( ( A N D ( N L I
0117020 S T P L I S P X X ) ( S E T
0117040 Q L I S P X L I N E ( R E A
0117060 D L I N E T N I L T ) ) )
0117100 ( A P P L Y L I S P X X \r
0117120 ( C A R L I S P X L I N E ) )
0117140 ) ( T ( E V A L L I S P X
0117160 X ) ) ) ) ) ) T T ) ) ) (
0117200 L I S P X R E A D ( L A M B D
0117220 A ( F I L E R D T B L ) (
0117240 C O N D ( R E A D B U F ( P
0117260 R O G 1 ( \r C A R R E A D B
0117300 U F ) ( S E T Q R E A D B U
0117320 F ( C D R R E A D B U F ) )
0117340 ) ) ( T ( R E A D F I L E
0117360 R D T B L ) ) ) ) ) ( L I S
0117400 P X R E A D P ( L A M B D A
0117420 ( F L G ) ( C O N D ( \r ( A
0117440 N D R E A D B U F ( S E T Q
0117460 R E A D B U F ( L I S P X R
0117500 E A D B U F R E A D B U F ) )
0117520 ) T ) ( T ( R E A D P T
0117540 F L G ) ) ) ) ) ( L I S P X
0117560 U N R E A D ( L A M B D A (
0117600 L S T ) \r ( S E T Q R E A D
0117620 B U F ( A P P E N D L S T
0117640 ( C O N S H I S T S T R 0 R
0117660 E A D B U F ) ) ) ) ) ( L I S
0117700 P X R E A D B U F ( L A M B D
0117720 A ( R D B U F ) ( P R O G
0117740 N I L L P ( \r C O N D ( (
0117760 N L I S T P R D B U F ) ( R
0120000 E T U R N N I L ) ) ( ( E Q
0120020 ( C A R R D B U F ) H I S
0120040 T S T R 0 ) ( S E T Q R D B
0120060 U F ( C D R R D B U F ) )
0120100 ( G O L P ) ) ( T ( \r R E
0120120 T U R N R D B U F ) ) ) ) ) )
0120140 ( L I S P X / ( L A M B D A
0120160 ( X ) X ) ) ( L O W E R C
0120200 A S E ( L A M B D A ( F L G
0120220 ) ( P R O G 1 L C A S E F L
0120240 G ( R A I S E ( N U L L F
0120260 L G ) ) \r ( R P A Q L C A S
0120300 E F L G F L G ) ) ) ) ( F I
0120320 L E P O S ( L A M B D A ( S
0120340 T R F I L E ) ( P R O G N
0120360 I L L P ( C O N D ( ( E Q
0120400 ( P E E K C F I L E ) ( N
0120420 T H C H A R S T R \r 1 ) )
0120440 ( R E T U R N T ) ) ) ( R E
0120460 A D C F I L E ) ( G O L P
0120500 ) ) ) ) ( F I L E P K G C O M
0120520 ( N L A M B D A N I L N I
0120540 L ) ) ) ) ( F U N C T I O N
0120560 ( L A M B D A ( L ) ( O R
0120600 ( \r G E T D ( C A R L ) )
0120620 ( P U T D ( C A R L ) ( C
0120640 A D R L ) ) ) ) ) ) \r ( P U T
0120660 P R O P S M A C H I N E I N D
0120700 E P E N D E N T C O P Y R I G
0120720 H T ( " X e r o x C o r p o
0120740 r a t i o n " T 1 9 8 3 1
0120760 9 8 4 1 9 8 5 1 9 8 6 ) ) \r
0121000 N I L \r
0121004