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