$ od -c -N 50000 [phylum]<LISP>KOTO>Sources>LLFCOMPILE.DCOM!1
0000000 ( F I L E C R E A T E D " 1 6
0000020 - A u g - 8 5 0 7 : 1 5 : 0 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > L L F C O M
0000120 P I L E . ; 3 ) \r " 1 5 - A u
0000140 g - 8 5 0 1 : 1 7 : 2 9 " r
0000160 e c o m p i l e d c h a n g e
0000200 s : \ M A K E P S E U D O C O
0000220 D E C O M P 0 D E F C C A L
0000240 L 0 C C A L L 2 i n \r " I
0000260 N T E R L I S P - D 1 5 - A u
0000300 g - 8 5 . . . " d a t e d
0000320 " 1 5 - A u g - 8 5 0 1 : 5 3
0000340 : 4 3 " ) \r ( F I L E C R E A T
0000360 E D " 1 6 - A u g - 8 5 0 7
0000400 : 1 4 : 4 6 " { E R I S } < L
0000420 I S P C O R E > S O U R C E S >
0000440 L L F C O M P I L E . ; 3 2 3
0000460 3 6 6 c h a n g e s t o :
0000500 ( F N S \r C O M P 0 D E F C
0000520 C A L L 0 \ M A K E P S E U D
0000540 O C O D E C C A L L 2 ) ( V
0000560 A R S L L F C O M P I L E C O
0000600 M S F C O M P I L E M A C R O
0000620 P R O P S ) ( P R O P S ( F
0000640 U N C A L L \r F C O M P I L E
0000660 - M A C R O ) ( . E R R S E T
0000700 Q . F C O M P I L E - M A C R
0000720 O ) ) p r e v i o u s d a t
0000740 e : " 2 7 - S e p - 8 4 2 3
0000760 : 0 9 : 4 4 " \r { E R I S } <
0001000 L I S P C O R E > S O U R C E S
0001020 > L L F C O M P I L E . ; 1 ) \r
0001040 ( R P A Q Q C O M P I L E A T
0001060 P U T D F L G N I L ) \r C O M
0001100 P S T 0 D 1 \r ( P 5 6 Q N
0001120 T B S Z P 5 5 Q N T 1 P
0001140 5 1 Q X P 1 4 Q F V A
0001160 R S P 1 3 Q F V A R C N T
0001200 P 1 2 Q L O C A L S I Z E
0001220 P 1 1 Q S T A R T L O C A
0001240 L S P 1 0 Q L O C A L A R
0001260 G S P 7 F V A R O F F S E
0001300 T P 6 C A P 5 N T W
0001320 O R D S P 4 S T A R T P C
0001340 P 3 R E A L S I Z E P
0001360 2 N T S I Z E P 1 P V A
0001400 R C N T P 0 I V A R C N T
0001420 I 6 C O M F N I 5 S
0001440 T A R T I 4 A T I 3
0001460 F V A R S I 2 P V A R S
0001500 I 1 I V A R S I 0 C O
0001520 D E F 5 7 Q D F 6 0 Q
0001540 F V A R R E F ) 003 206 / 002 \0 \a
0001560 j @ \n \0 \0 b \0 A \t \0 \0 B \t \0 \0 021
0001600 362 020 021 360 037 021 220 ( I _ 026 W ` 260 L d
0001620 001 021 001 ) O R 001 O 030 \n \0 \0 c ^ 263 026
0001640 O R 001 O 026 d k 330 _ 026 277 032 c ^ O 030
0001660 032 _ 030 277 ` \0 \0 O R 002 001 W ^ 002 340 021
0001700 003 , O T 006 \0 \0 311 \0 O T 006 \0 \0 310 003
0001720 O V 330 O X 307 023 023 002 003 265 265 H O 026 l
0001740 004 330 330 m 374 345 Z 340 ] d l \b 330 340 \ d
0001760 @ l \a 330 330 m 370 345 [ d L l 003 330 342 342
0002000 l 002 330 m 376 345 \n \0 \0 ^ l 021 J 340 021 002
0002020 . B 260 , d 001 021 001 ) N O Z O R 001 323
0002040 \v \0 \0 277 N O Z O \ 330 O R 002 n 200 \0
0002060 330 \v \0 \0 277 O Z l 002 330 _ Z 023 002 003 265
0002100 325 A 260 * d 001 021 001 ) N O Z O R 001 323
0002120 \v \0 \0 277 N O Z O \ 330 O R 002 j 330 \v
0002140 \0 \0 277 O Z l 002 330 _ Z 023 002 003 265 327 O
0002160 Z 342 _ 016 277 O 030 \t \0 \0 260 , d 001 021 001
0002200 ) N O Z O R 001 323 \v \0 \0 277 N O Z O
0002220 \ 330 O R 002 n 300 \0 330 \v \0 \0 277 O Z l
0002240 002 330 _ Z 023 002 003 265 325 023 N D l 002 360 222
0002260 m 377 200 H n 377 377 345 _ $ 277 _ " O $ 343
0002300 _ 034 277 _ 032 006 \0 \0 311 \0 O 032 006 \0 \0 310
0002320 003 l 002 330 O 034 307 277 O " O $ l 377 345 _
0002340 277 _ 036 006 \0 \0 311 \0 O 036 006 \0 \0 310 003
0002360 l 003 330 O 307 277 N O 026 k 330 342 k 331 n
0002400 377 377 345 _ 0 277 _ . O 0 343 _ ( 277 _ &
0002420 006 \0 \0 311 \0 O & 006 \0 \0 310 003 l 004 330 O
0002440 ( 307 277 O . O 0 l 377 345 _ , 277 _ * 006
0002460 \0 \0 311 \0 O * 006 \0 \0 310 003 l 005 330 O ,
0002500 307 277 N L 343 _ 4 277 _ 2 006 \0 \0 311 \0 O
0002520 2 006 \0 \0 310 003 l 006 330 O 4 307 277 N L l
0002540 377 345 _ 8 277 _ 6 006 \0 \0 311 \0 O 6 006 \0
0002560 \0 310 003 l \a 330 O 8 307 277 N d 006 \0 \0 311
0002600 \0 N 006 \0 \0 310 003 l \b 330 302 n 377 317 345 D
0002620 l 003 345 340 340 340 340 344 _ < 277 _ : 006 \0 \0
0002640 311 \0 O : 006 \0 \0 310 003 l \b 330 O < 307 277
0002660 N l \v F \v \0 \0 277 N J 343 _ @ 277 _ >
0002700 006 \0 \0 311 \0 O > 006 \0 \0 310 003 l \f 330 O
0002720 @ 307 277 N J l 377 345 _ D 277 _ B 006 \0 \0
0002740 311 \0 O B 006 \0 \0 310 003 l \r 330 O D 307 277
0002760 N 006 \0 \0 311 \0 N 006 \0 \0 310 003 l 016 330 I
0003000 307 277 N 006 \0 \0 311 \0 N 006 \0 \0 310 003 l 017
0003020 330 O 016 307 277 N d 006 \0 \0 311 \0 N 006 \0 \0
0003040 310 003 l 002 330 302 341 N 006 \0 \0 311 \0 N 006 \0
0003060 \0 310 003 l 003 330 302 344 d n 177 377 363 224 o \0
0003100 \0 \0 325 N 006 \0 \0 311 \0 N 006 \0 \0 310 003 l
0003120 004 330 302 341 N 006 \0 \0 311 \0 N 006 \0 \0 310 003
0003140 l 005 330 302 344 d n 177 377 363 224 o \0 \0 \0 325
0003160 k 330 340 330 340 l , 330 _ P 277 _ N O P 343
0003200 _ H 277 _ F 006 \0 \0 311 \0 O F 006 \0 \0 310
0003220 003 j 330 O H 307 277 O N O P l 377 345 _ L
0003240 277 _ J 006 \0 \0 311 \0 O J 006 \0 \0 310 003 k
0003260 330 O L 307 277 @ E 361 262 ; N L ` \0 \0 006
0003300 \0 \0 311 \0 ` \0 \0 006 \0 \0 310 003 E 330 302 021
0003320 003 , O T 006 \0 \0 311 \0 O T 006 \0 \0 310 003
0003340 O V 330 O X 307 023 E k 330 b \n 277 L k 330
0003360 \ 260 303 N 020 \0 ( 1 1 0 6 Q \ F I
0003400 X C O D E P T R 4 5 3 Q \ F
0003420 I X C O D E N U M 4 3 2 Q \
0003440 F I X C O D E N U M 4 1 1 Q
0003460 R E V E R S E 3 6 1 Q \ F I
0003500 X C O D E N U M 3 4 2 Q \ F
0003520 I X C O D E N U M 3 0 3 Q \
0003540 F I X C O D E N U M 2 6 2 Q
0003560 \ F I X C O D E N U M 2 3 0 Q
0003600 \ C O D E A R R A Y 5 3 Q
0003620 F A S S O C 1 6 Q L E N G T
0003640 H 1 2 Q L E N G T H 4 C
0003660 B Y T E 0 ) \r ( 1 5 5 5 Q A R
0003700 R A Y P 1 5 4 6 Q A R R A Y
0003720 P 1 5 3 1 Q A R R A Y P 1
0003740 5 2 6 Q \ F C C O D E A R R A
0003760 Y 1 5 2 1 Q A R R A Y P 1
0004000 5 1 6 Q \ F C C O D E A R R A
0004020 Y 1 4 7 4 Q A R R A Y P 1
0004040 4 6 5 Q A R R A Y P 1 4 3 6
0004060 Q A R R A Y P 1 4 2 7 Q A
0004100 R R A Y P 1 3 5 5 Q A R R A
0004120 Y P 1 3 4 7 Q A R R A Y P
0004140 1 3 3 4 Q A R R A Y P 1 3 2
0004160 6 Q A R R A Y P 1 3 0 0 Q
0004200 A R R A Y P 1 2 7 2 Q A R R
0004220 A Y P 1 2 5 7 Q A R R A Y P
0004240 1 2 5 1 Q A R R A Y P 1 2
0004260 3 3 Q A R R A Y P 1 2 2 5 Q
0004300 A R R A Y P 1 2 1 1 Q A R
0004320 R A Y P 1 2 0 3 Q A R R A Y
0004340 P 1 1 6 6 Q A R R A Y P 1
0004360 1 5 7 Q A R R A Y P 1 1 3 1
0004400 Q A R R A Y P 1 1 2 2 Q A
0004420 R R A Y P 1 0 6 6 Q A R R A
0004440 Y P 1 0 5 7 Q A R R A Y P
0004460 1 0 2 4 Q A R R A Y P 1 0 1
0004500 6 Q A R R A Y P 1 0 0 0 Q
0004520 A R R A Y P 7 7 1 Q A R R A
0004540 Y P 7 4 3 Q A R R A Y P 7
0004560 3 4 Q A R R A Y P 7 1 0 Q
0004600 A R R A Y P 7 0 1 Q A R R A
0004620 Y P 6 5 1 Q A R R A Y P 6
0004640 4 2 Q A R R A Y P 5 7 5 Q
0004660 A R R A Y P 5 6 6 Q A R R A
0004700 Y P 5 3 6 Q A R R A Y P 5
0004720 2 7 Q A R R A Y P 1 3 5 Q
0004740 A R R A Y P 1 2 6 Q A R R A
0004760 Y P 1 0 6 Q \ F C C O D E A
0005000 R R A Y ) \r ( 1 3 7 6 Q 2 0
0005020 0 0 0 0 Q 1 3 2 1 Q 2 0 0 0
0005040 0 0 Q ) \r F C O M P I L E R R
0005060 D 1 \r ( I 1 Y I 0 X
0005100 F 0 R E T L O C ) \0 026 \0 001
0005120 \0 002 @ i \n \0 \0 277 A i \n \0 \0 277 i \t
0005140 \0 \0 P \t \0 \0 020 \0 ( 2 3 Q R E T
0005160 F R O M 1 7 Q T E R P R I
0005200 1 2 Q P R I N 1 4 P R I N
0005220 1 ) \r N I L \r ( ) \r G R O W F C
0005240 C O D E D 1 \r ( I 0 G R O
0005260 W T H ) \0 P 005 \0 \0 001 ` \0 \0 @ 330
0005300 b \0 j \n \0 \0 021 021 001 j 271 ` \0 \0 I 361
0005320 262 0 H I ` \0 \0 006 \0 \0 311 \0 ` \0 \0 006
0005340 \0 \0 310 003 I 330 302 021 003 004 J 006 \0 \0 311 \0
0005360 J 006 \0 \0 310 003 K 330 L 307 023 I k 330 260 314
0005400 H 027 \0 \0 @ 027 \0 \0 h 020 \0 ( 1 2 Q
0005420 \ C O D E A R R A Y ) \r ( 1 1 4
0005440 Q \ F C C O D E S I Z E 1 1
0005460 0 Q \ F C C O D E A R R A Y
0005500 7 0 Q A R R A Y P 6 2 Q A
0005520 R R A Y P 4 6 Q A R R A Y P
0005540 4 3 Q \ F C C O D E A R R A
0005560 Y 3 6 Q A R R A Y P 3 3 Q
0005600 \ F C C O D E A R R A Y 2 2
0005620 Q \ F C C O D E S I Z E 2
0005640 \ F C C O D E S I Z E ) \r ( ) \r
0005660 O P # D 1 \r ( I 0 X ) \0
0005700 \b \0 \0 003 001 @ 001 \t \0 \0 001 020 \0 ( 4
0005720 \ F I N D O P ) \r N I L \r ( ) \r
0005740 \ A R G C H E C K D 1 \r ( I
0005760 2 A R G S I 1 T Y P I
0006000 0 X ) \0 031 \0 \0 \0 003 @ d 001 A
0006020 360 233 d 002 003 227 002 001 B \n \0 \0 244 @ \t \0
0006040 \0 020 h 020 \0 ( 2 4 Q \ A R G C H
0006060 E C K F A I L 1 7 Q E Q U A
0006100 L ) \r N I L \r ( ) \r \ A R G C H
0006120 E C K F A I L D 1 \r ( P 0
0006140 F N I 0 L A M ) \0 031 001 \0
0006160 \0 001 m 375 \t \0 \0 021 001 \0 H d \t \0 \0 \n
0006200 \0 \0 @ l 033 \n \0 \0 h 020 \0 ( 2 5 Q
0006220 \ L I S P E R R O R 1 7 Q P
0006240 U T D 1 4 Q G E T D 4 S
0006260 T K N A M E ) \r N I L \r ( ) \r \
0006300 M A K E P S E U D O C O D E D
0006320 1 \r ( P 0 R E T L O C I
0006340 1 T O P F N I 0 L A M )
0006360 \0 \ 002 \0 \0 002 ` \0 \0 264 W g \0 \0 \t
0006400 \0 \0 264 O g \0 \0 021 021 001 @ 003 264 E @ 002
0006420 003 264 @ A @ 001 @ 002 001 ` \0 \0 g \0 \0 360
0006440 227 g \0 \0 @ 002 002 260 034 g \0 \0 @ 002 002 Y
0006460 d 236 d i 360 252 3 020 265 \t g \0 \0 I h 032
0006500 032 h 032 032 h 032 032 032 j \v \0 \0 006 \0 \0 311
0006520 \0 020 \0 ( 1 2 4 Q C O M P 0 D E
0006540 F 1 2 Q D E F I N E D P ) \r
0006560 ( 1 2 7 Q A R R A Y P 1 0 5
0006600 Q Q U O T E 6 4 Q \ E V P
0006620 R O G N 5 4 Q P R O G N 4
0006640 7 Q A L L 4 4 Q C O M P I
0006660 L E A T P U T D F L G 1 7 Q
0006700 \ M A K E P S E U D O C O D E
0006720 7 C O M P 0 D E F 2 C O M
0006740 P I L E A T P U T D F L G ) \r (
0006760 ) \r \ P S E U D O C O D E . R E
0007000 A L D E F D 1 \r ( L ( 0 F
0007020 N H ) ) \0 \f \0 \0 \0 001 @ d 226 d 310
0007040 003 342 320 311 \0 020 \0 N I L \r N I L \r (
0007060 ) \r F C O M P I L E D 1 \r ( P
0007100 1 0 Q D E F P 7 X P
0007120 2 P R E D F P 1 R E T
0007140 F P 0 E F F I 0 F N
0007160 L S T ) \0 P \t \0 \0 001 021 0 002 @ 021
0007200 Q \b K 265 004 L 020 003 245 K _ 016 277 h 206 K
0007220 001 _ 016 277 K 002 273 O 016 d 004 l 004 360 262 027
0007240 i \n \0 \0 _ 020 \t \0 \0 230 O 016 O 020 \n \0
0007260 \0 265 \t O 016 o \0 \0 \0 032 276 M 265 \t N h
0007300 032 ] 274 260 277 N & 275 260 272 \0 ( 6 5 Q
0007320 F C O M P I L E 2 5 5 Q E X
0007340 P R P 5 0 Q V I R G I N F N
0007360 ) \r N I L \r ( 7 5 Q ( n o t
0007400 c o m p i l a b l e ) ) \r F C
0007420 O M P I L E 2 D 1 \r ( P 0
0007440 R E T L O C I 1 D E F I
0007460 0 T O P F N ) \0 016 001 \0 \0 002
0007500 g \0 \0 021 001 \0 @ A j \v \0 \0 020 \0 ( 1
0007520 3 Q C O M P 0 ) \r ( 2 F C O
0007540 M P I L E 2 ) \r ( ) \r C O M P 0
0007560 D 1 \r ( I 2 S T A R T I
0007600 1 D E F I 0 C O M F N
0007620 ) \0 \r \0 \0 \0 003 @ d A B \v \0 \0 \n
0007640 \0 \0 @ 020 \0 ( 1 1 Q D E F C 6
0007660 C O M P 0 D E F ) \r N I L \r (
0007700 ) \r C O M P 0 D E F D 1 \r ( P
0007720 1 2 Q F V A R R E F P 1
0007740 1 Q C U R R E N T P V A R S
0007760 P 1 0 Q I N P R O G P 7
0010000 L B L P 6 F V A R S P
0010020 5 P V A R S P 4 I V A
0010040 R S P 3 P V A R N P 2
0010060 A T P 1 V L P 0 I
0010100 V A R N I 2 S T A R T I
0010120 1 D E F I 0 C O M F N
0010140 F 1 3 Q C O M P I L E U S
0010160 E R F N F 1 4 Q R E T L O
0010200 C ) \0 213 \v 002 \0 003 A 001 d g \0 \0 360
0010220 263 033 d g \0 \0 360 263 024 277 h A l 002 W 026
0010240 017 016 b 002 265 346 W 030 \t \0 \0 277 j A 002 001
0010260 A \t \0 \0 j 021 t \n A 002 002 b 002 I d 003
0010300 263 : 264 8 J l 002 360 245 I h 032 Y 260 - I
0010320 g \0 \0 360 263 027 g \0 \0 I h 032 A 032 032 o
0010340 \0 \0 \0 h 032 032 h 032 b 002 277 h Y 213 d 001
0010360 H d k 324 270 032 L 032 274 002 003 265 363 l 020 A
0010400 B \n \0 \0 \n \0 \0 L M O 024 J B @ \r \a
0010420 \0 \0 020 \0 ( 2 1 0 Q C O M P S T
0010440 0 1 7 5 Q C B Y T E 0 1 7
0010460 2 Q C P R O G N 0 5 2 Q A
0010500 R G T Y P E 4 1 Q R E T F R
0010520 O M ) \r ( 1 1 7 Q L A M B D A
0010540 1 1 1 Q N O B I N D 1 4 Q
0010560 N L A M B D A 5 L A M B D
0010600 A ) \r ( 1 3 1 Q ( \ M Y A R
0010620 G C O U N T ) ) \r C E X P 0 D
0010640 1 \r ( I 1 C O D E I 0
0010660 E ) \0 017 \0 \0 \0 002 @ d 003 224 A \n \0
0010700 \0 020 A \n \0 \0 020 \0 ( 1 4 Q C A T
0010720 O M 0 7 C C A L L 0 ) \r N I
0010740 L \r ( ) \r C E X P A 0 D 1 \r (
0010760 I 2 C O D E I 1 E I
0011000 0 A R G C N T ) \0 017 \0 \0 \0
0011020 003 A d 003 224 B \n \0 \0 020 B \n \0 \0 020 \0
0011040 ( 1 4 Q C A T O M 0 7 C C
0011060 A L L 0 ) \r N I L \r ( ) \r C A T
0011100 O M 0 D 1 \r ( P 0 D I
0011120 2 S E T I 1 C O D E I
0011140 0 V A R F 1 F V A R R
0011160 E F F 2 I V A R S F 3
0011200 C U R R E N T P V A R S ) \0
0011220 242 001 003 \0 003 021 020 \0 @ R \n \0 \0 002 X 262
0011240 * B 233 H 340 l b A \n \0 \0 \n \0 \0 020 l
0011260 \a H 361 253 H 340 l G A \n \0 \0 \n \0 \0 020
0011300 H l @ 330 A \n \0 \0 020 @ S \n \0 \0 002 X
0011320 262 * B 233 H 340 l _ A \n \0 \0 \n \0 \0 020
0011340 l \a H 361 253 H 340 l O A \n \0 \0 \n \0 \0
0011360 020 H l H 330 A \n \0 \0 020 @ d i 360 227 277
0011400 l i A \n \0 \0 020 246 l h A \n \0 \0 020 @
0011420 d 004 l 004 360 262 034 B 222 l c 201 l W A \n
0011440 \0 \0 b 002 h 032 032 Q 032 c 002 j A \n \0 \0
0011460 020 A \n \0 \0 020 \0 ( 2 3 7 Q C C O
0011500 N 0 2 3 2 Q C B Y T E 0 2
0011520 1 4 Q C B Y T E 0 1 7 0 Q
0011540 C B Y T E 0 1 6 0 Q C B Y T
0011560 E 0 1 4 3 Q C B Y T E 0 1
0011600 3 2 Q C B Y T E 0 1 2 7 Q
0011620 C B Y T E 0 1 1 1 Q C B Y T
0011640 E 0 1 0 6 Q C B Y T E 0 7
0011660 0 Q F A S S O C 6 2 Q C B
0011700 Y T E 0 5 1 Q C B Y T E 0
0011720 4 6 Q C B Y T E 0 3 0 Q C
0011740 B Y T E 0 2 5 Q C B Y T E 0
0011760 7 F A S S O C ) \r N I L \r (
0012000 ) \r C C O N 0 D 1 \r ( P 0
0012020 D I 1 C O D E I 0 X
0012040 ) \0 262 001 \0 \0 002 @ 265 \t l h A \n \0
0012060 \0 020 i 360 226 l i A \n \0 \0 020 @ d j 360
0012100 227 277 l j A \n \0 \0 020 k 360 226 l k A \n
0012120 \0 \0 020 @ d 004 l 004 360 262 031 323 021 001 \0 H
0012140 l 377 345 H 343 l g A \n \0 \0 \n \0 \0 \n \0
0012160 \0 020 d 005 001 245 d 005 002 241 005 003 262 F @ d
0012200 m \0 361 262 @ d n 377 377 361 263 9 277 j @ 361
0012220 236 @ n 001 \0 330 l m A \n \0 \0 \n \0 \0 020
0012240 @ d l 377 361 251 l l A \n \0 \0 \n \0 \0 020
0012260 l 377 345 @ 343 l n A \n \0 \0 \n \0 \0 \n \0
0012300 \0 020 @ j d d l o A \n \0 \0 \n \0 \0 \n
0012320 \0 \0 \n \0 \0 \n \0 \0 020 \0 ( 2 5 7 Q
0012340 C F I X C O N 0 2 5 4 Q C B
0012360 Y T E 0 2 5 1 Q C B Y T E 0
0012400 2 4 6 Q C B Y T E 0 2 4 3
0012420 Q C B Y T E 0 2 3 0 Q C B
0012440 Y T E 0 2 2 5 Q C B Y T E 0
0012460 2 2 2 Q C B Y T E 0 2 0 6
0012500 Q C B Y T E 0 2 0 3 Q C B
0012520 Y T E 0 1 6 6 Q C B Y T E 0
0012540 1 6 3 Q C B Y T E 0 1 1 0
0012560 Q C B Y T E 0 1 0 5 Q C B
0012600 Y T E 0 1 0 2 Q C B Y T E 0
0012620 5 1 Q C B Y T E 0 3 7 Q
0012640 C B Y T E 0 2 2 Q C B Y T E
0012660 0 1 0 Q C B Y T E 0 ) \r N I
0012700 L \r ( ) \r C F I X C O N 0 D 1
0012720 \r ( I 2 C O D E I 1 L
0012740 O C I 0 C O N ) \0 \r \0 \0
0012760 \0 003 ` \0 \0 A k 331 @ \v \0 \0 A 020 \0 (
0013000 1 1 Q \ F I X C O D E P T R )
0013020 \r ( 2 \ F C C O D E A R R A Y
0013040 ) \r ( ) \r C P R O G 0 D 1 \r (
0013060 P 1 1 Q R P 1 0 Q X
0013100 P 7 R R L P 6 A R G C
0013120 N T P 5 I N P R O G P
0013140 4 L B L I 2 C O D E I
0013160 1 B O D Y I 0 V A R S
0013200 ) \0 357 \n \0 \0 003 @ 262 U g \0 \0 021 0
0013220 002 @ 260 025 d 001 d 003 220 001 270 I 265 \a H h
0013240 032 Z 201 H & 271 002 003 265 354 J 022 g \0 \0 h
0013260 A 032 032 h 032 032 032 021 @ 003 @ 260 030 d 001 [
0013300 003 264 005 K 002 001 270 I 265 \a H h 032 Z 201 H
0013320 & 271 002 003 265 351 J 022 032 B \n \0 \0 020 021 @
0013340 003 A 260 035 d 001 [ 004 l 004 360 264 \t K h h
0013360 032 032 h 032 X 003 226 I 265 # H Z Y 277 002 003
0013400 265 344 J 022 i 021 " \a j d l 021 B \n \0 \0
0013420 \n \0 \0 \n \0 \0 b 004 A 260 1 \t \0 \0 Y H
0013440 031 260 334 d 001 021 001 \b O 020 004 l 004 360 233 O
0013460 020 L \n \0 \0 002 B 030 277 B 212 l 277 O 020 B
0013500 \n \0 \0 \n \0 \0 b 004 023 002 003 265 330 L 260 024
0013520 d 001 021 001 \t O 022 002 002 O 022 002 001 \n \0 \0
0013540 023 002 003 265 355 l 022 O 016 l h B \n \0 \0 \n
0013560 \0 \0 \n \0 \0 020 \0 ( 3 5 4 Q C B Y
0013600 T E 0 3 5 1 Q J F I X 0 3
0013620 4 6 Q C B Y T E 0 3 2 7 Q
0013640 J F I X 0 2 7 5 Q C B Y T E
0013660 0 2 7 2 Q C E X P 0 2 5 4
0013700 Q F A S S O C 2 2 5 Q L A
0013720 S T 2 1 5 Q C B Y T E 0 2
0013740 1 2 Q C B Y T E 0 2 0 7 Q
0013760 C B Y T E 0 1 2 4 Q C E X P
0014000 0 ) \r ( 4 6 Q P R O G 5 L
0014020 A M B D A ) \r ( ) \r C G O 0 D
0014040 1 \r ( P 0 D I 1 C O D
0014060 E I 0 A F 1 L B L
0014100 F 2 A R G C N T ) \0 / 001 002
0014120 \0 002 @ Q \n \0 \0 021 001 \0 H 221 R 230 @ o
0014140 \0 \0 \0 \n \0 \0 277 j d l 261 A \n \0 \0 \n
0014160 \0 \0 \n \0 \0 b 002 H A h 032 \n \0 \0 A 020
0014200 \0 ( 5 3 Q \ N C O N C 2 4 2
0014220 Q C B Y T E 0 3 7 Q C B Y
0014240 T E 0 3 4 Q C B Y T E 0 2
0014260 3 Q F C O M P I L E R R 4
0014300 F A S S O C ) \r N I L \r ( 2 0
0014320 Q " - c a n ' t h a n d l
0014340 e G O " ) \r C R E T U R N 0
0014360 D 1 \r ( I 1 C O D E I 0
0014400 L F 0 R R L F 1 I
0014420 N P R O G ) \0 ' \0 002 \0 002 Q 250 @
0014440 o \0 \0 \0 \n \0 \0 277 j d l 261 @ A \n \0
0014460 \0 \n \0 \0 \n \0 \0 \n \0 \0 b 002 d P 032 c
0014500 \0 A 020 \0 ( 3 4 Q C B Y T E 0
0014520 3 1 Q C B Y T E 0 2 6 Q C
0014540 B Y T E 0 2 3 Q C P R O G 1
0014560 0 1 1 Q F C O M P I L E R R
0014600 ) \r N I L \r ( 6 " - i l l
0014620 e g a l R E T U R N " ) \r C P
0014640 R O G 1 0 D 1 \r ( P 0 X
0014660 I 1 C O D E I 0 L )
0014700 \0 % 001 \0 \0 002 @ 001 A \n \0 \0 b 002 @ 260
0014720 025 d 001 021 001 \0 l 277 k H A \v \0 \0 \n \0
0014740 \0 b 002 023 002 003 265 353 A 020 \0 ( 3 2 Q
0014760 C B Y T E 0 2 7 Q C E X P A
0015000 0 5 C E X P 0 ) \r N I L \r (
0015020 ) \r C P R O G N 0 D 1 \r ( I
0015040 1 C O D E I 0 L ) \0 +
0015060 \0 \0 \0 002 @ 002 262 ! @ d 001 003 001 g \0 \0
0015100 360 257 277 l 277 @ 001 A \n \0 \0 \n \0 \0 b 002
0015120 277 @ 002 b \0 260 340 @ 001 A \n \0 \0 020 \0 (
0015140 5 0 Q C E X P 0 3 1 Q C B
0015160 Y T E 0 2 6 Q C E X P 0 ) \r
0015200 ( 1 3 Q * ) \r ( ) \r C L A M 0
0015220 D 1 \r ( I 1 C O D E I
0015240 0 D E F F 0 C O M F N )
0015260 \0 021 \0 001 \0 002 P \b \0 \0 h 032 032 \t \0
0015300 \0 @ A \v \0 \0 020 \0 ( 1 6 Q C O M
0015320 P 0 1 1 Q P A C K 3 G E
0015340 N S Y M ) \r N I L \r ( ) \r C S E
0015360 L Q 0 D 1 \r ( I 2 C O D E
0015400 I 1 C L I 0 X ) \0
0015420 201 005 \0 \0 003 @ 004 l 004 360 263 037 l 277 g \0
0015440 \0 g \0 \0 @ h 032 032 032 B \n \0 \0 \n \0 \0
0015460 b 004 277 g \0 \0 b \0 277 021 P 004 A 260 N d
0015500 \ 002 262 6 L 001 001 003 243 g \0 \0 202 g \0 \0
0015520 @ L 001 001 [ d 262 032 d i 360 263 025 d 005 001
0015540 245 d 005 002 241 005 003 265 \t g \0 \0 K h 032 032
0015560 h 032 032 032 L 001 002 204 i L 001 h 032 032 270 I
0015600 265 \a H h 032 Z 201 H & 271 002 003 265 263 J 022
0015620 B \n \0 \0 020 \0 ( 1 7 6 Q C C O N
0015640 D 0 3 2 Q C B Y T E 0 2 7
0015660 Q C E X P 0 ) \r ( 1 2 6 Q Q
0015700 U O T E 7 2 Q F M E M B 6
0015720 6 Q E Q 4 0 Q \ S E L E C
0015740 T Q V A L U E 1 6 Q \ S E L
0015760 E C T Q V A L U E 1 3 Q S E
0016000 T Q ) \r ( ) \r C C A L L 0 D 1
0016020 \r ( P 1 7 Q O T H E R V A R
0016040 S P 1 6 Q F N P 7 X
0016060 P 6 A R G C N T P 2
0016100 M A C R O P 1 F N P 0
0016120 A R G S I 1 C O D E I
0016140 0 F O R M F 2 0 Q C O
0016160 M P I L E U S E R F N F 2 1
0016200 Q F C O M P I L E M A C R O P
0016220 R O P S F 2 2 Q P V A R S
0016240 F 2 3 Q T O P F N F 2
0016260 4 Q I V A R S ) 002 + 020 005 \0 002
0016300 @ 002 021 001 \0 @ 001 021 001 001 I W " \n \0 \0
0016320 021 001 002 J 265 035 I \t \0 \0 d j 360 262 ? 277
0016340 I d g \0 \0 360 242 261 001 364 277 H A \n \0 \0
0016360 020 001 003 263 027 J 001 d g \0 \0 360 245 d g \0
0016400 \0 360 222 277 i 201 277 h 263 316 @ d J i \v \0
0016420 \0 b \0 360 263 302 @ A \n \0 \0 020 d l 003 360
0016440 242 261 \0 353 277 I d g \0 \0 360 236 277 H 001 H
0016460 002 001 A \n \0 \0 i \v \0 \0 020 g \0 \0 360 247
0016500 I d g \0 \0 360 227 277 H 001 A \n \0 \0 020 g
0016520 \0 \0 360 225 H A \n \0 \0 020 I d g \0 \0 360
0016540 262 ( 277 H d 002 262 023 001 g \0 \0 H 002 032 h
0016560 032 032 h 032 A \n \0 \0 020 226 H 001 A \n \0 \0
0016600 020 l i A \n \0 \0 020 g \0 \0 360 262 # 021 0
0016620 005 H 260 023 d 001 h 032 273 L 265 \a K h 032 ]
0016640 201 K & 274 002 003 265 356 M 022 A \n \0 \0 020 I
0016660 d g \0 \0 360 231 277 H 001 H 002 A \v \0 \0 020
0016700 g \0 \0 360 230 H 001 H 002 A \v \0 \0 020 I d
0016720 g \0 \0 360 227 277 H 001 A \n \0 \0 020 g \0 \0
0016740 360 225 H A \n \0 \0 020 I g \0 \0 360 225 H A
0016760 \n \0 \0 020 @ d i \n \0 \0 b \0 364 242 261 377
0017000 030 I k H A \n \0 \0 \v \0 \0 020 d k 360 262
0017020 K 277 I d g \0 \0 360 262 034 277 H 002 263 026 H
0017040 d 001 004 l 004 360 221 001 204 001 A \n \0 \0 A \n
0017060 \0 \0 020 I 277 j 021 001 006 H 260 026 d 001 021 001
0017100 \a O 016 A \n \0 \0 b 002 277 N k 330 ^ 023 002
0017120 003 265 353 I N A \v \0 \0 020 265 003 202 261 \0 204
0017140 I g \0 \0 360 230 H 001 H 002 001 \n \0 \0 020 W
0017160 262 i @ W & 021 0 \n W ( 260 032 d 001 001
0017200 _ 020 277 O 022 265 \t O 020 h 032 _ 024 202 O 020
0017220 & _ 022 277 002 003 265 347 O 024 022 021 0 \r W $
0017240 260 032 d 001 001 _ 026 277 O 030 265 \t O 026 h 032
0017260 _ 032 202 O 026 & _ 030 277 002 003 265 347 O 032 022
0017300 \n \0 \0 021 002 017 @ 002 @ l 002 W 017 016 265
0017320 003 @ 022 b \0 364 242 261 376 ? I H A \v \0 \0
0017340 020 l 002 360 263 366 \b \0 \0 020 \0 ( 1 0 5 0
0017360 Q S H O U L D N T 1 0 3 7 Q
0017400 C C A L L 1 1 0 0 2 Q \ N
0017420 C O N C 2 6 5 5 Q C E R S E
0017440 T 0 6 3 0 Q C C A L L 2 6
0017460 0 6 Q C C O N 0 5 6 1 Q C
0017500 C O N 0 5 5 5 Q C L A M 0
0017520 5 1 2 Q C C A L L 2 5 0 7 Q
0017540 C C O N 0 4 7 1 Q E X P A
0017560 N D M A C R O 4 6 2 Q C P R
0017600 O G 1 0 4 4 6 Q C P R O G N
0017620 0 4 3 3 Q C G O 0 4 1 4 Q
0017640 C P R O G 0 3 7 6 Q C S E
0017660 L Q 0 3 5 5 Q C C O N D 0
0017700 3 0 6 Q C B Y T E 0 2 7 7 Q
0017720 C E X P 0 2 6 7 Q C C O N
0017740 D 0 2 3 0 Q C C O N D 0 2
0017760 1 5 Q C C O N 0 1 7 1 Q C
0020000 A T O M 0 1 6 5 Q C E X P 0
0020020 1 3 2 Q C E X P 0 1 2 0 Q
0020040 M A C R O E X P A N S I O N
0020060 5 7 Q C R E T U R N 0 3 1 Q
0020100 A R G T Y P E 1 7 Q G E T
0020120 M A C R O P R O P ) \r ( 6 4 3 Q
0020140 . E R R S E T Q . 5 2 6 Q
0020160 F U N C T I O N 4 5 3 Q P R
0020200 O G 1 4 3 7 Q P R O G N 4
0020220 2 2 Q G O 4 0 2 Q P R O G
0020240 3 6 3 Q S E L E C T Q 3 1
0020260 2 Q O R 2 5 3 Q A N D 2
0020300 3 6 Q A N D 2 2 1 Q C O N
0020320 D 2 0 4 Q * 1 7 5 Q Q U
0020340 O T E 1 5 1 Q S E T Q 1 0
0020360 0 Q A P P L Y * 7 2 Q A P
0020400 P L Y 4 4 Q R E T U R N ) \r
0020420 ( ) \r C E R S E T 0 D 1 \r ( I
0020440 1 F L G I 0 F O R M
0020460 F 0 C O D E ) \0 - \0 001 \0 002
0020500 g \0 \0 l 002 A @ 002 250 @ 001 004 l 004 360 221
0020520 @ 216 g \0 \0 h @ h 032 032 032 P \n \0 \0 h
0020540 032 P \n \0 \0 \n \0 \0 \v \0 \0 020 \0 ( 5 2
0020560 Q C C A L L 2 4 7 Q C C O
0020600 N 0 4 4 Q C C O N 0 3 6 Q
0020620 C L A M 0 ) \r ( 2 4 Q L A M
0020640 B D A 2 E R R O R S E T ) \r
0020660 ( ) \r C C A L L 2 D 1 \r ( P
0020700 1 X P 0 T E M I 2
0020720 C O D E I 1 A R G C N T
0020740 I 0 F N ) \0 351 002 \0 \0 003 021 020
0020760 \0 @ d 004 l 004 360 262 [ g \0 \0 033 265 \a @
0021000 g \0 \0 033 X 242 261 \0 202 H 001 3 262 { H
0021020 003 262 & A H 001 B \v \0 \0 b 004 277 H 260 023
0021040 d 001 021 001 001 I \t \0 \0 001 B \n \0 \0 b 004
0021060 023 002 003 265 355 B 020 A j 361 262 N A k 331 d
0021100 j 361 262 / H \t \0 \0 001 B \n \0 \0 b 004 277
0021120 260 355 001 g \0 \0 360 262 034 @ 260 023 d 001 021 001
0021140 001 I \t \0 \0 001 B \n \0 \0 b 004 023 002 003 265
0021160 355 B 020 @ d 001 g \0 \0 360 225 A B \v \0 \0
0021200 020 B \n \0 \0 b \0 277 @ 006 \0 \0 323 b \0 d
0021220 l 377 345 @ 343 A d l 003 360 224 277 l \v 260 -
0021240 l 002 360 223 l \n 260 % A d k 360 224 277 l \t
0021260 260 033 l 004 360 223 l \f 260 023 A j 360 222 l \b
0021300 211 l \r B \n \0 \0 b 004 277 A B \n \0 \0 \n
0021320 \0 \0 \n \0 \0 020 \0 ( 3 4 6 Q C B Y
0021340 T E 0 3 4 3 Q C B Y T E 0
0021360 3 4 0 Q C B Y T E 0 3 3 0 Q
0021400 C B Y T E 0 2 2 6 Q C L A
0021420 M 0 2 2 1 Q C L A M 0 1 1
0021440 7 3 Q C B Y T E 0 1 6 6 Q
0021460 \ F I N D O P 1 3 6 Q C B Y
0021500 T E 0 1 3 1 Q \ F I N D O P
0021520 7 7 Q C B Y T E 0 7 2 Q
0021540 \ F I N D O P 5 3 Q C A D J
0021560 U S T 0 ) \r ( 2 3 5 Q L I T A
0021600 T O M 2 1 2 Q L A M B D A
0021620 1 4 7 Q O P C O D E S 2 4 Q
0021640 D O P V A L 1 5 Q F C O M
0021660 P I L E ) \r ( ) \r C L A M 0 1
0021700 D 1 \r ( P 0 C U R R E N T P
0021720 V A R S I 2 C O D E I
0021740 1 A R G C N T I 0 F N
0021760 F 1 P V A R N F 2 P V
0022000 A R S F 3 C U R R E N T P
0022020 V A R S ) \0 W 001 003 \0 003 A @ 002 001
0022040 \t \0 \0 b 002 B \v \0 \0 b 004 A j 360 227 @
0022060 002 002 B \n \0 \0 020 S 021 001 \0 @ 002 001 260 025
0022100 d 001 Q d k 330 c 002 277 032 R 032 c 004 001 H
0022120 032 270 002 003 265 354 l 022 @ 002 002 Q k 331 A l
0022140 021 B \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n \0
0022160 \0 020 \0 ( 1 2 4 Q C B Y T E 0
0022200 1 2 1 Q C P R O G N 0 1 1 6
0022220 Q C B Y T E 0 1 1 3 Q C B
0022240 Y T E 0 1 1 0 Q C B Y T E 0
0022260 3 1 Q C P R O G N 0 1 4 Q
0022300 C A D J U S T 0 6 L E N G
0022320 T H ) \r N I L \r ( ) \r C A D J U
0022340 S T 0 D 1 \r ( I 2 C O D E
0022360 I 1 N W A N T I 0 N
0022400 H A V E ) \0 ) \0 \0 \0 003 @ A 331 d
0022420 j 361 233 l 277 B \n \0 \0 b 004 277 k 260 361 A
0022440 @ 331 d j 361 233 l h B \n \0 \0 b 004 277 k
0022460 260 361 B 020 \0 ( 3 7 Q C B Y T E 0
0022500 1 4 Q C B Y T E 0 ) \r N I L
0022520 \r ( ) \r C C A L L 1 D 1 \r ( P
0022540 1 X P 0 A R G C N T
0022560 I 2 C O D E I 1 A R G
0022600 S I 0 F N ) \0 % 002 \0 \0 003
0022620 j 021 001 \0 A 260 025 d 001 021 001 001 I B \n \0
0022640 \0 b 004 277 H k 330 X 023 002 003 265 354 @ H B
0022660 \v \0 \0 020 \0 ( 4 2 Q C C A L L 2
0022700 2 0 Q C E X P 0 ) \r N I L \r
0022720 ( ) \r C C O N D 0 D 1 \r ( P
0022740 1 J P 0 R I 1 C O
0022760 D E I 0 C L A U S E S )
0023000 \0 Y 002 \0 \0 002 021 001 @ 265 \r H l h A
0023020 \n \0 \0 \n \0 \0 020 001 001 A \n \0 \0 b 002 277
0023040 @ 001 002 262 035 l 242 A \n \0 \0 \t \0 \0 Y h
0023060 032 @ 001 002 I \n \0 \0 \t \0 \0 \n \0 \0 260 025
0023100 l 202 l 003 l 265 A \n \0 \0 \n \0 \0 \n \0 \0
0023120 \t \0 \0 b 002 H 032 270 @ 002 b \0 260 256 \0 (
0023140 1 1 4 Q C J U M P X 1 1 1 Q
0023160 C B Y T E 0 1 0 6 Q C B Y
0023200 T E 0 1 0 3 Q C B Y T E 0
0023220 6 7 Q J F I X 0 6 4 Q C J
0023240 U M P X 6 1 Q C P R O G N 0
0023260 4 7 Q C J U M P X 4 4 Q
0023300 C B Y T E 0 2 6 Q C E X P 0
0023320 1 7 Q J F I X 0 1 4 Q C
0023340 B Y T E 0 ) \r N I L \r ( ) \r C J
0023360 U M P X D 1 \r ( I 0 C O D
0023400 E ) \0 020 \0 \0 \0 001 j d l 261 @ \n \0
0023420 \0 \n \0 \0 \n \0 \0 020 \0 ( 1 5 Q C B
0023440 Y T E 0 1 2 Q C B Y T E 0
0023460 7 C B Y T E 0 ) \r N I L \r ( )
0023500 \r J F I X 0 D 1 \r ( L ( 1
0023520 C O D E 0 R E F S ) ) \0 W
0023540 005 \0 \0 002 @ 260 P d 001 021 021 001 H k 331 270
0023560 A H l 002 331 331 271 ` \0 \0 H I l 377 345 021
0023600 003 004 J 006 \0 \0 311 \0 J 006 \0 \0 310 003 K 330
0023620 L 307 023 ` \0 \0 H k 331 I n 377 \0 345 343 021
0023640 003 004 J 006 \0 \0 311 \0 J 006 \0 \0 310 003 K 330
0023660 L 307 023 023 002 003 265 261 A 020 \0 N I L \r (
0023700 1 0 7 Q A R R A Y P 1 0 1 Q
0023720 A R R A Y P 6 1 Q \ F C C
0023740 O D E A R R A Y 4 7 Q A R R
0023760 A Y P 4 1 Q A R R A Y P 2
0024000 5 Q \ F C C O D E A R R A Y )
0024020 \r ( ) \r C B Y T E 0 D 1 \r ( I
0024040 1 I I 0 B Y T E ) \0
0024060 % \0 \0 \0 002 ` \0 \0 A 361 245 l d \t \0 \0
0024100 277 ` \0 \0 006 \0 \0 311 \0 ` \0 \0 006 \0 \0 310
0024120 003 A 330 @ 307 A k 330 020 \0 ( 1 2 Q G
0024140 R O W F C C O D E ) \r ( 3 1 Q
0024160 A R R A Y P 2 6 Q \ F C C O
0024200 D E A R R A Y 2 1 Q A R R A
0024220 Y P 1 6 Q \ F C C O D E A R
0024240 R A Y 2 \ F C C O D E S I Z
0024260 E ) \r ( ) \r ( P R E T T Y C O M
0024300 P R I N T L L F C O M P I L E
0024320 C O M S ) \r ( R P A Q Q L L F
0024340 C O M P I L E C O M S ( ( D E
0024360 C L A R E : F I R S T ( V A
0024400 R S ( C O M P I L E A T P U T
0024420 D F L G ) ) ) ( V A R S F C
0024440 O M P I L E M A C R O P R O P S
0024460 ( \r \ F C C O D E S I Z E 7
0024500 5 0 ) ) ( F N S C O M P S T
0024520 0 F C O M P I L E R R G R O
0024540 W F C C O D E O P # \ A R G
0024560 C H E C K \ A R G C H E C K F
0024600 A I L \ M A K E P S E U D O C
0024620 O D E \r \ P S E U D O C O D E
0024640 . R E A L D E F ) ( F N S F
0024660 C O M P I L E F C O M P I L E
0024700 2 C O M P 0 C O M P 0 D E F
0024720 C E X P 0 C E X P A 0 C A
0024740 T O M 0 C C O N 0 C F I X C
0024760 O N 0 C P R O G 0 \r C G O 0
0025000 C R E T U R N 0 C P R O G 1
0025020 0 C P R O G N 0 C L A M 0
0025040 C S E L Q 0 C C A L L 0 C E
0025060 R S E T 0 C C A L L 2 C L A
0025100 M 0 1 C A D J U S T 0 C C A
0025120 L L 1 C C O N D 0 C J U M P
0025140 X \r J F I X 0 C B Y T E 0 )
0025160 ( V A R S ( \ F C C O D E A
0025200 R R A Y ( \ C O D E A R R A Y
0025220 \ F C C O D E S I Z E 0 ) )
0025240 ) ( D E C L A R E : E V A L
0025260 @ C O M P I L E D O N T C O P
0025300 Y ( \r A D D V A R S ( N O F
0025320 I X V A R S L S T G V A R _
0025340 P V A R _ P V A R X _ I V A
0025360 R X _ F V A R X _ ' N I L
0025400 ' T ' 0 ' 1 P V A R _ ^ )
0025420 ) ( G L O B A L V A R S \ F
0025440 C C O D E S I Z E \r \ F C C O
0025460 D E A R R A Y ) ) ( M A C R O
0025500 S O P # ) ( T E M P L A T E
0025520 S O P # ) ( P R O P F C O
0025540 M P I L E C A D R C A R C
0025560 D R I P L U S I D I F F E R
0025600 E N C E S U B 1 E Q \r L I
0025620 S T P N E Q N L I S T P N
0025640 U L L N O T \ G E T B A S E
0025660 P T R I L E S S P I G R E A
0025700 T E R P ) ( P ( M O V D ?
0025720 ( Q U O T E N I L L ) ( Q U
0025740 O T E A D D R E F ) ) ) ( P
0025760 R O P \r F C O M P I L E - M A
0026000 C R O . E R R S E T Q . F U
0026020 N C A L L ) ( D E C L A R E :
0026040 D O N T E V A L @ L O A D D
0026060 O E V A L @ C O M P I L E D O
0026100 N T C O P Y C O M P I L E R V
0026120 A R S ( \r A D D V A R S ( N
0026140 L A M A O P # ) ( N L A M L
0026160 ) ( L A M A ) ) ) ) ) \r ( R P
0026200 A Q Q F C O M P I L E M A C R
0026220 O P R O P S ( F C O M P I L E
0026240 - M A C R O O P T I M I Z E R
0026260 D M A C R O A L T O M A C R
0026300 O B Y T E M A C R O M A C R
0026320 O ) ) \r ( R P A Q Q \ F C C O
0026340 D E S I Z E 7 5 0 ) \r ( R P A
0026360 Q \ F C C O D E A R R A Y (
0026400 \ C O D E A R R A Y \ F C C O
0026420 D E S I Z E 0 ) ) \r ( P U T P
0026440 R O P S O P # M A C R O (
0026460 X ( C A R ( \ F I N D O P
0026500 ( C A R X ) ) ) ) ) \r ( S E T
0026520 T E M P L A T E ( Q U O T E
0026540 O P # ) ( Q U O T E ( N I L
0026560 ) ) ) \r ( P U T P R O P S C A
0026600 D R F C O M P I L E ( 1 C
0026620 D R C A R ) ) \r ( P U T P R O
0026640 P S C A R F C O M P I L E
0026660 ( 1 C A R ) ) \r ( P U T P R O
0026700 P S C D R F C O M P I L E
0026720 ( 1 C D R ) ) \r ( P U T P R O
0026740 P S I P L U S F C O M P I L
0026760 E I P L U S 2 ) \r ( P U T P R
0027000 O P S I D I F F E R E N C E
0027020 F C O M P I L E ( 2 I D I F
0027040 F E R E N C E ) ) \r ( P U T P R
0027060 O P S S U B 1 F C O M P I L
0027100 E ( 1 ' 1 I D I F F E R E
0027120 N C E ) ) \r ( P U T P R O P S
0027140 E Q F C O M P I L E ( 2 E
0027160 Q ) ) \r ( P U T P R O P S L I
0027200 S T P F C O M P I L E ( 1
0027220 L I S T P ) ) \r ( P U T P R O P
0027240 S N E Q F C O M P I L E (
0027260 2 E Q ' N I L E Q ) ) \r (
0027300 P U T P R O P S N L I S T P
0027320 F C O M P I L E ( 1 L I S T
0027340 P ' N I L E Q ) ) \r ( P U T
0027360 P R O P S N U L L F C O M P
0027400 I L E ( 1 ' N I L E Q ) )
0027420 \r ( P U T P R O P S N O T F
0027440 C O M P I L E ( 1 ' N I L
0027460 E Q ) ) \r ( P U T P R O P S \
0027500 G E T B A S E P T R F C O M P
0027520 I L E ( 2 A D D B A S E G
0027540 E T B A S E P T R . N 0 ) ) \r
0027560 ( P U T P R O P S I L E S S P
0027600 F C O M P I L E ( 2 S W A
0027620 P I G R E A T E R P ) ) \r ( P
0027640 U T P R O P S I G R E A T E R
0027660 P F C O M P I L E ( 2 I G
0027700 R E A T E R P ) ) \r ( M O V D ?
0027720 ( Q U O T E N I L L ) ( Q
0027740 U O T E A D D R E F ) ) \r ( P
0027760 U T P R O P S . E R R S E T Q
0030000 . F C O M P I L E - M A C R O
0030020 T ) \r ( P U T P R O P S F U
0030040 N C A L L F C O M P I L E - M
0030060 A C R O ( D E F M A C R O (
0030100 F N & R E S T A R G S ) (
0030120 B Q U O T E ( ( O P C O D E S
0030140 A P P L Y F N ) ( \ , @ A
0030160 R G S ) ( \ , ( \r L E N G T
0030200 H A R G S ) ) ( \ , F N )
0030220 ) ) ) ) \r ( P U T P R O P S L
0030240 L F C O M P I L E C O P Y R I
0030260 G H T ( " X e r o x C o r p
0030300 o r a t i o n " 1 9 8 2 1 9
0030320 8 3 1 9 8 4 1 9 8 5 ) ) \r N
0030340 I L \r
0030343