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