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