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