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