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