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