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