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