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