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