$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>CMLFLOATARRAY!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 9 - A p r - 8
0000140 7 1 6 : 3 2 : 4 5 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > C M L F L O A T A R
0000220 R A Y . ; 6 006 001 4 3 5 5 7
0000240 \r \r c h a n g e s
0000260 t o % : ( V A R S C M L F
0000300 L O A T A R R A Y C O M S ) \r
0000320
0000340 ( F N S M A P - A R R A
0000360 Y ) \r
0000400 ( F U N C T I O N
0000420 S R E D U C E - A R R A Y %
0000440 % M A P - F L O A T - A R R A Y
0000460 - F L O A T % % M A P - F L O
0000500 A T - A R R A Y - M I N U S \r
0000520
0000540 % % M A P
0000560 - F L O A T - A R R A Y - P L U
0000600 S % % M A P - F L O A T - A R
0000620 R A Y - Q U O T I E N T % % M
0000640 A P - F L O A T - A R R A Y - T
0000660 I M E S \r
0000700
0000720 M A P - A R R A Y - 1 M A P
0000740 - A R R A Y - 2 % % M A P - F
0000760 L O A T - A R R A Y - A B S %
0001000 % M A P - F L O A T - A R R A Y
0001020 - N E G A T E \r
0001040
0001060 % % M A P - F L O A T -
0001100 A R R A Y - T R U N C A T E %
0001120 % R E D U C E - F L O A T - A R
0001140 R A Y - T I M E S E V A L U A
0001160 T E - P O L Y N O M I A L \r
0001200
0001220 F I N D - A
0001240 R R A Y - E L E M E N T - I N D
0001260 E X F L A T T E N - A R G ) \r
0001300 \r p r e v i o u s
0001320 d a t e % : " 9 - A p r - 8
0001340 7 1 4 : 5 0 : 2 6 " { E R I
0001360 S } < L I S P C O R E > L I B R
0001400 A R Y > C M L F L O A T A R R A
0001420 Y . ; 5 ) \r \r \r ( * " \r C o p
0001440 y r i g h t ( c ) 1 9 8 5 ,
0001460 1 9 8 6 , 1 9 8 7 b y X
0001500 e r o x C o r p o r a t i o n
0001520 . A l l r i g h t s r e
0001540 s e r v e d . \r " ) \r \r ( P R E
0001560 T T Y C O M P R I N T C M L F
0001600 L O A T A R R A Y C O M S ) \r \r
0001620 ( R P A Q Q 006 002 C M L F L O A
0001640 T A R R A Y C O M S 006 001 \r
0001660 [ ( D E C L A R E % :
0001700 D O N T C O P Y D O E V A L
0001720 @ C O M P I L E ( F I L E S
0001740 ( S Y S L O A D F R O M V A
0001760 L U E O F D I R E C T O R I E
0002000 S ) \r
0002020
*
0002060 U N B O X E D O P S
0002100 F L O A T - A R R A Y - S U P P
0002120 O R T ) ) \r
0002140 \r 006 006 ( *
0002160 ; ; " M A P A R R A Y f n s
0002200 a n d m a c r o s " ) 006 001 \r
0002220 \r ( F N S M A
0002240 P - A R R A Y ) \r
0002260 ( F U N C T I O N S M A P -
0002300 A R R A Y - 1 M A P - A R R A
0002320 Y - 2 ) \r ( F U
0002340 N C T I O N S R E D U C E - A
0002360 R R A Y E V A L U A T E - P O
0002400 L Y N O M I A L F I N D - A R
0002420 R A Y - E L E M E N T - I N D E
0002440 X ) \r ( F U N C
0002460 T I O N S F L A T T E N - A R
0002500 G M A X - A B S M I N - A B
0002520 S ) \r ( F U N C
0002540 T I O N S % % M A P - F L O A
0002560 T - A R R A Y - A B S % % M A
0002600 P - F L O A T - A R R A Y - F L
0002620 O A T % % M A P - F L O A T -
0002640 A R R A Y - M I N U S \r
0002660 % % M A
0002700 P - F L O A T - A R R A Y - N E
0002720 G A T E % % M A P - F L O A T
0002740 - A R R A Y - P L U S % % M A
0002760 P - F L O A T - A R R A Y - Q U
0003000 O T I E N T \r
0003020 % % M A P - F L O
0003040 A T - A R R A Y - T I M E S %
0003060 % M A P - F L O A T - A R R A Y
0003100 - T R U N C A T E % % R E D U
0003120 C E - F L O A T - A R R A Y - M
0003140 A X \r
0003160 % % R E D U C E - F L O A
0003200 T - A R R A Y - M A X - A B S
0003220 % % R E D U C E - F L O A T - A
0003240 R R A Y - M I N % % R E D U C
0003260 E - F L O A T - A R R A Y - M I
0003300 N - A B S \r
0003320 % % R E D U C E - F
0003340 L O A T - A R R A Y - P L U S
0003360 % % R E D U C E - F L O A T - A
0003400 R R A Y - T I M E S ) \r
0003420 \r
0003440 006 006 ( * ; ; " F o r c o
0003460 n v e n i e n c e " ) 006 001 \r \r
0003500 ( P R O P F I L
0003520 E T Y P E C M L F L O A T A R
0003540 R A Y ) \r ( D E
0003560 C L A R E % : D O N T E V A L
0003600 @ L O A D D O E V A L @ C O M
0003620 P I L E D O N T C O P Y ( L
0003640 O C A L V A R S . T ) ) \r
0003660 ( D E C L A R E %
0003700 : D O N T E V A L @ L O A D
0003720 D O E V A L @ C O M P I L E D
0003740 O N T C O P Y C O M P I L E R
0003760 V A R S ( A D D V A R S ( N
0004000 L A M A ) \r
0004020
*
0004120 ( N L A M L ) \r
0004140
*
0004240 ( L A M A M A
0004260 P - A R R A Y ] ) \r ( D E C L A
0004300 R E % : D O N T C O P Y D O
0004320 E V A L @ C O M P I L E \r ( F
0004340 I L E S L O A D ( S Y S L O A
0004360 D F R O M V A L U E O F D
0004400 I R E C T O R I E S ) \r
0004420 U N B O X E D O P S F L
0004440 O A T - A R R A Y - S U P P O R
0004460 T ) \r ) \r \r \r \r 006 004 ( * ; ;
0004500 " M A P A R R A Y f n s a n
0004520 d m a c r o s " ) 006 001 \r \r ( D
0004540 E F I N E Q \r \r ( 006 004 M A P - A
0004560 R R A Y 006 001 \r [ L A M B D A
0004600 A R G S 006 006 006 001
0004620
*
0004660 006 006 ( * ; "
0004700 E d i t e d 9 - A p r - 8 7
0004720 1 6 : 2 2 b y j o p " ) 006
0004740 001 \r \r
0004760 006 006 ( * ; ; "
0005000 F i r s t a r g , R E S U L
0005020 T , m a y e i t h e r b e
0005040 a n a r r a y o f t h e
0005060 c o r r e c t t y p e , o
0005100 r a s y m b o l i n d i c
0005120 a t i n g t h e e l e m e n
0005140 t - t y p e o f t h e r e
0005160 s u l t , o r N I L i f
0005200 t h e m a p i s f o r e
0005220 f f e c t . S e c o n d a r
0005240 g i s t h e m a p p i n g
0005260 f u n c t i o n s . O t h e
0005300 r a r g s a r e a r r a y
0005320 s , a l l o f w h i c h
0005340 m u s t h a v e t h e s a
0005360 m e n u m b e r o f e l e
0005400 m e n t s , o r n o n - a r
0005420 r a y s w h i c h w i l l
0005440 b e t r e a t e d a s s c
0005460 a l a r s " ) 006 001 \r \r
0005500 ( C L : I F ( < A R G S 3
0005520 ) \r ( C L
0005540 : E R R O R " M A P A R R A Y
0005560 t a k e s a t l e a s t
0005600 t h r e e a r g s " ) ) \r
0005620 ( L E T ( ( R E S U L T
0005640 ( A R G A R G S 1 ) ) \r
0005660 ( M A P F N (
0005700 A R G A R G S 2 ) ) \r
0005720 ( A R R A Y 1 (
0005740 A R G A R G S 3 ) ) \r
0005760 F I R S T - A R R
0006000 A Y ) \r \r
0006020 006 006 ( * ; ;
0006040 " A r g c h e c k i n g .
0006060 F i r s t - a r r a y i s t
0006100 h e f i r s t a r r a y m
0006120 a p a r g u m e n t " ) 006 001 \r
0006140 \r ( C L : I F
0006160 ( N O T ( T Y P E P M A P
0006200 F N ' C L : F U N C T I O N )
0006220 ) \r
0006240 ( C L : E R R O R " N o t
0006260 a f u n c t i o n : ~ S "
0006300 M A P F N ) ) \r
0006320 [ C L : D O ( ( I 3 (
0006340 C L : 1 + I ) ) \r
0006360 M A P - A
0006400 R G ) \r
0006420 ( ( > I A R G S ) )
0006440 \r
0006460 ( S E T Q M A P - A R G (
0006500 A R G A R G S I ) ) \r
0006520 ( C L
0006540 : W H E N ( C L : A R R A Y P
0006560 M A P - A R G ) \r
0006600
0006620 ( C L : I F F I R S T - A R
0006640 R A Y ( C L : I F ( N O T
0006660 ( E Q U A L - D I M E N S I O N
0006700 S - P M A P - A R G F I R S
0006720 T - A R R A Y ) ) \r
0006740
*
0007000 ( C L : E
0007020 R R O R " D i m e n s i o n s
0007040 m i s m a t c h " M A P - A
0007060 R G ) ) \r
0007100
0007120 ( S E T Q F I R S T - A
0007140 R R A Y M A P - A R G ] \r
0007160 \r
0007200 006 006 ( * ; ; " C o e r
0007220 c e R E S U L T i n t o a
0007240 n a r r a y o r N I L " )
0007260 006 001 \r \r [ C L
0007300 : T Y P E C A S E R E S U L T
0007320 ( C L : A R R A Y ( C L : I
0007340 F [ N O T ( O R ( E Q U A
0007360 L - D I M E N S I O N S - P R
0007400 E S U L T F I R S T - A R R A
0007420 Y ) \r
0007440
*
0007500 ( A N D (
0007520 N U L L F I R S T - A R R A Y
0007540 ) \r
0007560
*
0007620 ( E
0007640 Q 0 ( C L : A R R A Y - R A
0007660 N K R E S U L T ] \r
0007700
*
0007740 ( C L : E R R
0007760 O R " D i m e n s i o n s m
0010000 i s m a t c h : ~ S " R E S
0010020 U L T ) ) ) \r
0010040 [ ( O R C L : S
0010060 Y M B O L C O N S ) \r
0010100 ( S E
0010120 T Q R E S U L T ( C L : I F
0010140 F I R S T - A R R A Y ( C L
0010160 : M A K E - A R R A Y ( C L :
0010200 A R R A Y - D I M E N S I O N S
0010220 F I R S T - A R R A Y ) \r
0010240
*
0010320 : E L E M E N T - T
0010340 Y P E R E S U L T ) \r
0010360
*
0010420 ( C L : M A K E - A R R A Y
0010440 N I L : E L E M E N T - T Y P
0010460 E R E S U L T ] \r
0010500 ( T ( O R
0010520 ( N U L L R E S U L T ) \r
0010540
0010560 ( C L : E R R O R
0010600 " R E S U L T m u s t b e
0010620 a n a r r a y , a n e l e
0010640 m e n t t y p e , o r N I
0010660 L : ~ S " R E S U L T ] \r
0010700 ( C L : I F F
0010720 I R S T - A R R A Y [ C L : I
0010740 F ( A N D R E S U L T ( <
0010760 A R G S 5 ) ) \r
0011000
0011020 [ C L
0011040 : E C A S E A R G S ( 3
0011060 006 006 ( * ; \r 006
0011100 001
0011120
*
0011160 006 006 " N o t
0011200 e : i n t h i s c a s e
0011220 ( E Q A R R A Y 1 F I R S T
0011240 - A R R A Y ) " ) 006 001 \r
0011260
*
0011340 ( M A P - A R R A Y - 1 R E
0011360 S U L T M A P F N A R R A Y
0011400 1 ) ) \r
0011420
0011440 ( 4
0011460 ( M A P - A R R A Y - 2 R E
0011500 S U L T M A P F N A R R A Y
0011520 1 ( A R G A R G S 4 ] \r
0011540
*
0011600 ( L E T * ( ( F L A T T E
0011620 N E D - R E S U L T ( F L A T
0011640 T E N - A R G R E S U L T ) )
0011660 \r
0011700
0011720 ( S I Z E
0011740 ( C L : A R R A Y - T O T A L
0011760 - S I Z E R E S U L T ) ) \r
0012000
*
0012040 [ F L A T T E
0012060 N E D - A R R A Y S ( 006 002 f o
0012100 r 006 001 I 006 002 f r o m 006 001 3
0012120 006 002 t o 006 001 A R G S \r
0012140
*
0012220 006 002 c o
0012240 l l e c t 006 001 ( F L A T T E N
0012260 - A R G ( A R G A R G S I
0012300 ] \r
0012320
0012340 ( E L T
0012360 - S L I C E ( C L : C O P Y -
0012400 L I S T F L A T T E N E D - A
0012420 R R A Y S ) ) \r
0012440
*
0012500 V A L U E ) \r
0012520
*
0012560 ( C L : D O T I M E S \r
0012600
*
0012640 ( I N D E X S
0012660 I Z E R E S U L T ) \r
0012700
*
0012740 [ S E T Q V A L U
0012760 E ( C L : A P P L Y \r
0013000
*
0013060 M A P F N \r
0013100
*
0013160 ( C L : D O ( ( % % S U B S L
0013200 I C E E L T - S L I C E ( C
0013220 D R % % S U B S L I C E ) \r
0013240
*
0013340 ) \r
0013360
*
0013440 ( % % S U B A R R A
0013460 Y S F L A T T E N E D - A R R
0013500 A Y S \r
0013520
*
0013600 ( C D R %
0013620 % S U B A R R A Y S ) ) ) \r
0013640
*
0013720 ( ( N U
0013740 L L % % S U B A R R A Y S ) \r
0013760
*
0014040 E
0014060 L T - S L I C E ) \r
0014100
*
0014160 ( A N D ( C L
0014200 : A R R A Y P ( C A R % % S
0014220 U B A R R A Y S ) ) \r
0014240
*
0014320 ( R
0014340 P L A C A % % S U B S L I C E
0014360 \r
0014400
*
0014460 ( C L : A
0014500 R E F ( C A R % % S U B A R
0014520 R A Y S ) \r
0014540
*
0014640 I N D E X ] \r
0014660
*
0014720 ( C L : I F R
0014740 E S U L T ( C L : S E T F (
0014760 C L : A R E F F L A T T E N E
0015000 D - R E S U L T I N D E X ) \r
0015020
*
0015100 V
0015120 A L U E ] \r
0015140 ( C L : I F R E S
0015160 U L T [ C L : S E T F ( C L
0015200 : A R E F R E S U L T ) \r
0015220
*
0015260 ( C L : A P P L Y M A P
0015300 F N ( 006 002 f o r 006 001 I 006 002
0015320 f r o m 006 001 3 006 002 t o 006 001
0015340 A R G S \r
0015360
*
0015420 006 002 c
0015440 o l l e c t 006 001 ( A R G A R
0015460 G S I ] \r
0015500 ( C L
0015520 : A P P L Y M A P F N ( 006 002
0015540 f o r 006 001 I 006 002 f r o m 006 001
0015560 3 006 002 t o 006 001 A R G S 006
0015600 002 c o l l e c t 006 001 ( A R G
0015620 A R G S I ] ) \r ) \r \r ( C L :
0015640 D E F U N 006 002 M A P - A R R A
0015660 Y - 1 006 001 ( R E S U L T M A
0015700 P F N A R R A Y ) \r
0015720 \r
0015740 006 006 ( * ; ; \r 006 001
0015760 006 006 " D o e s s o m e
0016000 t h i n g f a s t f o r M
0016020 A P F N S - a b s t r u n
0016040 c a t e f l o a t a n d E
0016060 X P O N E N T . A R R A Y i
0016100 s a l w a y s a n a r r a
0016120 y . " ) 006 001 \r [ L E T [ ( R
0016140 E S U L T - F L O A T - P ( E
0016160 Q ( C L : A R R A Y - E L E M
0016200 E N T - T Y P E R E S U L T )
0016220 \r
0016240 ' C L :
0016260 S I N G L E - F L O A T ) ) \r
0016300 ( A R R A Y - F L O
0016320 A T - P ( E Q ( C L : A R R
0016340 A Y - E L E M E N T - T Y P E
0016360 A R R A Y ) \r
0016400
0016420 ' C L : S I N G L E - F L O A
0016440 T ]
0016460 006 006 ( * ; " C o e r
0016500 c e M A P F N t o s t a n
0016520 d a r d f o r m " ) 006 001 \r
0016540 ( S E T Q M A P F N
0016560 ( C L : T Y P E C A S E M A P
0016600 F N ( C L : S Y M B O L ( C
0016620 A S E M A P F N ( M I N U S
0016640 ' - ) \r
0016660
*
0016720 ( F I X
0016740 ' C L : T R U N C A T E ) \r
0016760
*
0017040 ( T M A P F N ) ) ) \r
0017060
0017100 ( C O M P I L
0017120 E D - C L O S U R E ( C O N D
0017140 \r
0017160
0017200 (
0017220 ( O R ( C L : : % % E Q C O D
0017240 E P M A P F N ' - ) \r
0017260
*
0017340 ( C L : : % % E Q C O D E P M
0017360 A P F N ' M I N U S ) ) \r
0017400
*
0017440 ' - )
0017460 \r
0017500
0017520 (
0017540 ( C L : : % % E Q C O D E P M
0017560 A P F N ' A B S ) \r
0017600
*
0017640 ' A B S ) \r
0017660
*
0017720 ( (
0017740 O R ( C L : : % % E Q C O D E
0017760 P M A P F N ' F I X ) \r
0020000
*
0020060 ( C L : : % % E Q C O D E P
0020100 M A P F N ' C L : T R U N C A
0020120 T E ) ) \r
0020140
*
0020200 ' C L : T R U N C A T E
0020220 ) \r
0020240
*
0020300 ( ( C L : : % % E Q C O D E P
0020320 M A P F N ' F L O A T ) \r
0020340
*
0020400 ' F L
0020420 O A T ) \r
0020440
*
0020500 ( T M A P F N ) ) ) \r
0020520
0020540 ( T M A P F N
0020560 ) ) ) \r ( C O N D \r
0020600 ( ( A N D (
0020620 E Q M A P F N ' - ) \r
0020640 R E S U
0020660 L T - F L O A T - P A R R A Y
0020700 - F L O A T - P ) \r
0020720 ( % % M A P - F L O A T
0020740 - A R R A Y - N E G A T E R E
0020760 S U L T A R R A Y ) ) \r
0021000 ( ( A N D ( E Q
0021020 M A P F N ' A B S ) \r
0021040 R E S U L
0021060 T - F L O A T - P A R R A Y -
0021100 F L O A T - P ) \r
0021120 ( % % M A P - F L O A T -
0021140 A R R A Y - A B S R E S U L T
0021160 A R R A Y ) ) \r
0021200 ( ( A N D ( E Q M A P F
0021220 N ' C L : T R U N C A T E ) \r
0021240 A
0021260 R R A Y - F L O A T - P ) \r
0021300 ( % % M A P - F
0021320 L O A T - A R R A Y - T R U N C
0021340 A T E R E S U L T A R R A Y
0021360 ) ) \r ( ( A N
0021400 D ( E Q M A P F N ' F L O
0021420 A T ) \r
0021440 R E S U L T - F L O A T -
0021460 P ) \r ( % %
0021500 M A P - F L O A T - A R R A Y -
0021520 F L O A T R E S U L T A R R
0021540 A Y ) ) \r ( T
0021560 ( L E T ( ( F L A T T E N E
0021600 D - R E S U L T ( F L A T T E
0021620 N - A R G R E S U L T ) ) \r
0021640
0021660 ( F L A T T E N E D - A R R A
0021700 Y ( F L A T T E N - A R G A
0021720 R R A Y ) ) ) \r
0021740 ( C L : D O T
0021760 I M E S ( I N D E X ( C L :
0022000 A R R A Y - T O T A L - S I Z E
0022020 R E S U L T ) \r
0022040
0022060 R E S
0022100 U L T ) \r
0022120 ( C L
0022140 : S E T F ( C L : A R E F F
0022160 L A T T E N E D - R E S U L T
0022200 I N D E X ) \r
0022220
0022240 ( C L : F U N C A L
0022260 L M A P F N ( C L : A R E F
0022300 F L A T T E N E D - A R R A Y
0022320 I N D E X ] ) \r \r \r ( C L : D
0022340 E F U N 006 002 M A P - A R R A Y
0022360 - 2 006 001 ( R E S U L T M A P
0022400 F N A R R A Y - 1 A R R A Y
0022420 - 2 ) \r \r
0022440 006 006 ( * ;
0022460 ; \r 006 001 006
0022500 006 " D o e s s o m e t h i n g
0022520 f a s t f o r M A P F N S
0022540 + - * / . A t l e a
0022560 s t o n e o f A R R A Y -
0022600 1 a n d A R R A Y - 2 i s
0022620 a n a r r a y " ) 006 001 \r [
0022640 L E T [ ( A R R A Y S - F L O
0022660 A T - P ( A N D ( E Q ( C
0022700 L : A R R A Y - E L E M E N T -
0022720 T Y P E R E S U L T ) \r
0022740
0022760 ' C L
0023000 : S I N G L E - F L O A T ) \r
0023020
0023040 [ O R (
0023060 T Y P E P A R R A Y - 1 ' (
0023100 C L : A R R A Y C L : S I N G
0023120 L E - F L O A T ) ) \r
0023140
0023160 ( T Y P E
0023200 P A R R A Y - 1 ' ( O R F
0023220 L O A T C L : R A T I O N A L
0023240 ] \r
0023260 ( O
0023300 R ( T Y P E P A R R A Y - 2
0023320 ' ( C L : A R R A Y C L : S
0023340 I N G L E - F L O A T ) ) \r
0023360
0023400 ( T
0023420 Y P E P A R R A Y - 2 ' ( O
0023440 R F L O A T C L : R A T I O
0023460 N A L ] \r
0023500
*
0023560 006 006 ( * ; " C o e r c e
0023600 M A P F N t o s t a n d a
0023620 r d f o r m " ) 006 001 \r
0023640 ( S E T Q M A P F N ( C
0023660 L : T Y P E C A S E M A P F N
0023700 ( C L : S Y M B O L ( C A S
0023720 E M A P F N ( P L U S ' +
0023740 ) \r
0023760
*
0024020 ( M I N U S '
0024040 - ) \r
0024060
*
0024120 ( T I M E S
0024140 ' C L : * ) \r
0024160
*
0024220 ( Q U
0024240 O T I E N T ' / ) \r
0024260
*
0024340 ( T M A P F N ) ) ) \r
0024360
0024400 ( C O M P I L E D -
0024420 C L O S U R E ( C O N D \r
0024440
*
0024500 ( ( O R
0024520 ( C L : : % % E Q C O D E P
0024540 M A P F N ' + ) \r
0024560
*
0024620 ( C L
0024640 : : % % E Q C O D E P M A P F
0024660 N ' P L U S ) ) \r
0024700
*
0024740 ' + ) \r
0024760
*
0025020 ( ( O R
0025040 ( C L : : % % E Q C O D E P M
0025060 A P F N ' - ) \r
0025100
*
0025140 ( C L :
0025160 : % % E Q C O D E P M A P F N
0025200 ' M I N U S ) ) \r
0025220
*
0025260 ' - ) \r
0025300
*
0025340 ( ( O R
0025360 ( C L : : % % E Q C O D E P M
0025400 A P F N ' C L : * ) \r
0025420
*
0025460 (
0025500 C L : : % % E Q C O D E P M A
0025520 P F N ' T I M E S ) ) \r
0025540
*
0025600 ' C L :
0025620 * ) \r
0025640
*
0025700 ( ( O R ( C L : : % % E Q C
0025720 O D E P M A P F N ' / ) \r
0025740
*
0026020 ( C L : : % % E Q C O D E P
0026040 M A P F N ' Q U O T I E N T
0026060 ) ) \r
0026100
*
0026140 ' / ) \r
0026160
*
0026220 ( T M A P F N ) ) ) \r
0026240
0026260 ( T M A P F
0026300 N ) ) ) \r ( C O N D
0026320 \r ( ( A N D
0026340 ( E Q M A P F N ' + ) \r
0026360 A R R
0026400 A Y S - F L O A T - P ) \r
0026420 ( % % M A P - F L
0026440 O A T - A R R A Y - P L U S R
0026460 E S U L T A R R A Y - 1 A R
0026500 R A Y - 2 ) ) \r
0026520 ( ( A N D ( E Q M A P F N
0026540 ' - ) \r
0026560 A R R A Y S - F L O A T
0026600 - P ) \r ( %
0026620 % M A P - F L O A T - A R R A Y
0026640 - M I N U S R E S U L T A R
0026660 R A Y - 1 A R R A Y - 2 ) ) \r
0026700 ( ( A N D (
0026720 E Q M A P F N ' C L : * ) \r
0026740 A
0026760 R R A Y S - F L O A T - P ) \r
0027000 ( % % M A P -
0027020 F L O A T - A R R A Y - T I M E
0027040 S R E S U L T A R R A Y - 1
0027060 A R R A Y - 2 ) ) \r
0027100 ( ( A N D ( E Q M A
0027120 P F N ' / ) \r
0027140 A R R A Y S - F L
0027160 O A T - P ) \r
0027200 ( % % M A P - F L O A T - A R
0027220 R A Y - Q U O T I E N T R E S
0027240 U L T A R R A Y - 1 A R R A
0027260 Y - 2 ) ) \r (
0027300 T ( L E T ( ( F L A T T E N
0027320 E D - R E S U L T ( F L A T T
0027340 E N - A R G R E S U L T ) ) \r
0027360
0027400 ( F L A T T E N E D - A R R
0027420 A Y - 1 ( F L A T T E N - A R
0027440 G A R R A Y - 1 ) ) \r
0027460 ( F
0027500 L A T T E N E D - A R R A Y - 2
0027520 ( F L A T T E N - A R G A R
0027540 R A Y - 2 ) ) ) \r
0027560 ( C L : I F
0027600 ( C L : A R R A Y P A R R A
0027620 Y - 1 ) \r
0027640 [ C L
0027660 : I F ( C L : A R R A Y P A
0027700 R R A Y - 2 ) \r
0027720
0027740 [ C L : D O T I M
0027760 E S ( I N D E X ( C L : A R
0030000 R A Y - T O T A L - S I Z E R
0030020 E S U L T ) \r
0030040
*
0030100 R E S U L T )
0030120 \r
0030140
0030160 ( C L : S E T F
0030200 ( C L : A R E F F L A T T E N
0030220 E D - R E S U L T I N D E X )
0030240 \r
0030260
0030300 ( C
0030320 L : F U N C A L L M A P F N
0030340 ( C L : A R E F F L A T T E N
0030360 E D - A R R A Y - 1 I N D E X
0030400 ) \r
0030420
*
0030460 ( C L : A R E F F
0030500 L A T T E N E D - A R R A Y - 2
0030520 I N D E X ] \r
0030540
0030560 ( C L : D O T I M
0030600 E S ( I N D E X ( C L : A R
0030620 R A Y - T O T A L - S I Z E R
0030640 E S U L T ) \r
0030660
*
0030720 R E S U L T )
0030740 \r
0030760
0031000 ( C L : S E T F
0031020 ( C L : A R E F F L A T T E N
0031040 E D - R E S U L T I N D E X )
0031060 \r
0031100
0031120 ( C
0031140 L : F U N C A L L M A P F N
0031160 ( C L : A R E F F L A T T E N
0031200 E D - A R R A Y - 1 I N D E X
0031220 ) \r
0031240
*
0031300 F L A T T E N E D -
0031320 A R R A Y - 2 ] \r
0031340
0031360 ( C L : D O T I M E S ( I N
0031400 D E X ( C L : A R R A Y - T O
0031420 T A L - S I Z E R E S U L T )
0031440 \r
0031460
0031500 R E S U
0031520 L T ) \r
0031540
0031560 ( C L : S E T F ( C L :
0031600 A R E F F L A T T E N E D - R
0031620 E S U L T I N D E X ) \r
0031640
*
0031700 ( C L : F U N C A L L M
0031720 A P F N F L A T T E N E D - A
0031740 R R A Y - 1 ( C L : A R E F
0031760 F L A T T E N E D - A R R A Y -
0032000 2 \r
0032020
*
0032120 I N D E X ] ) \r \r \r ( C
0032140 L : D E F U N 006 002 R E D U C E
0032160 - A R R A Y 006 001 ( R E D U C T
0032200 I O N - F N A R R A Y & O P
0032220 T I O N A L ( I N I T I A L -
0032240 V A L U E N I L I N I T I A
0032260 L - V A L U E - P ) ) \r (
0032300 S E T Q R E D U C T I O N - F
0032320 N ( C L : T Y P E C A S E R
0032340 E D U C T I O N - F N ( C L :
0032360 S Y M B O L ( C A S E R E D
0032400 U C T I O N - F N ( P L U S
0032420 ' + ) \r
0032440
*
0032520 ( T I M E S ' C L :
0032540 * ) \r
0032560
*
0032640 ( T R E D U C T I O N
0032660 - F N ) ) ) \r
0032700
0032720 ( C O M P I L E D - C L
0032740 O S U R E ( C O N D \r
0032760
*
0033020 ( (
0033040 O R ( C L : : % % E Q C O D E
0033060 P R E D U C T I O N - F N '
0033100 + ) \r
0033120
*
0033160 ( C L : : %
0033200 % E Q C O D E P R E D U C T I
0033220 O N - F N ' P L U S ) ) \r
0033240
*
0033320 ' + ) \r
0033340
*
0033400 ( ( O R ( C L :
0033420 : % % E Q C O D E P R E D U C
0033440 T I O N - F N ' C L : * ) \r
0033460
*
0033540 ( C L : : % % E Q C
0033560 O D E P R E D U C T I O N - F
0033600 N ' T I M E S ) ) \r
0033620
*
0033660 ' C
0033700 L : * ) \r
0033720
*
0033760 ( ( C L : : % % E
0034000 Q C O D E P R E D U C T I O N
0034020 - F N ' M I N ) \r
0034040
*
0034100 ' M I
0034120 N ) \r
0034140
*
0034200 ( ( C L : : % % E Q C
0034220 O D E P R E D U C T I O N - F
0034240 N ' M A X ) \r
0034260
*
0034320 ' M A X )
0034340 \r
0034360
*
0034420 ( ( C L : : % % E Q C O D
0034440 E P R E D U C T I O N - F N
0034460 ' M I N - A B S ) \r
0034500
*
0034540 ' M I
0034560 N - A B S ) \r
0034600
*
0034640 ( ( C L : : %
0034660 % E Q C O D E P R E D U C T I
0034700 O N - F N ' M A X - A B S ) \r
0034720
*
0035000 ' M A X - A B S ) \r
0035020
*
0035060 (
0035100 T R E D U C T I O N - F N ) )
0035120 ) \r
0035140 (
0035160 T R E D U C T I O N - F N ) )
0035200 ) \r [ C L : I F ( N O T
0035220 ( C L : A R R A Y P A R R A
0035240 Y ) ) \r ( C
0035260 L : I F I N I T I A L - V A L
0035300 U E - P ( C L : F U N C A L L
0035320 R E D U C T I O N - F N I N
0035340 I T I A L - V A L U E A R R A
0035360 Y ) \r
0035400 A R R A Y ) \r
0035420 ( L E T [ ( S I Z E
0035440 ( C L : A R R A Y - T O T A L
0035460 - S I Z E A R R A Y ) ) \r
0035500 ( A
0035520 R R A Y - F L O A T - P ( E Q
0035540 ( C L : A R R A Y - E L E M E
0035560 N T - T Y P E A R R A Y ) \r
0035600
*
0035640 ' C L : S I N G L E - F L O
0035660 A T ] \r
0035700 ( C A S E S I Z E ( 0
0035720 ( C L : I F I N I T I A L -
0035740 V A L U E - P I N I T I A L -
0035760 V A L U E ( C L : F U N C A L
0036000 L R E D U C T I O N - F N ) )
0036020 ) \r
0036040 ( 1 ( C L : I F
0036060 I N I T I A L - V A L U E - P
0036100 ( C L : F U N C A L L R E D
0036120 U C T I O N - F N I N I T I A
0036140 L - V A L U E \r
0036160
*
0036220 ( C
0036240 L : A R E F ( F L A T T E N -
0036260 A R G A R R A Y ) \r
0036300
*
0036360 0 ) ) \r
0036400
0036420 ( C L : A
0036440 R E F ( F L A T T E N - A R G
0036460 A R R A Y ) \r
0036500
0036520 0 )
0036540 ) ) \r
0036560 ( T ( C O N D
0036600 \r
0036620 ( ( A N
0036640 D ( E Q R E D U C T I O N -
0036660 F N ' + ) \r
0036700
0036720 A R R A Y - F L
0036740 O A T - P ) \r
0036760
0037000 ( % % R E D U C E - F L O
0037020 A T - A R R A Y - P L U S A R
0037040 R A Y I N I T I A L - V A L U
0037060 E ) ) \r
0037100 (
0037120 ( A N D ( E Q R E D U C T I
0037140 O N - F N ' C L : * ) \r
0037160
0037200 A R
0037220 R A Y - F L O A T - P ) \r
0037240
0037260 ( % % R E D U
0037300 C E - F L O A T - A R R A Y - T
0037320 I M E S A R R A Y I N I T I
0037340 A L - V A L U E ) ) \r
0037360
0037400 ( ( A N D ( E Q
0037420 R E D U C T I O N - F N ' M I
0037440 N ) \r
0037460
0037500 A R R A Y - F L O A T -
0037520 P ) \r
0037540 (
0037560 % % R E D U C E - F L O A T - A
0037600 R R A Y - M I N A R R A Y I
0037620 N I T I A L - V A L U E ) ) \r
0037640
0037660 ( ( A N D
0037700 ( E Q R E D U C T I O N - F N
0037720 ' M A X ) \r
0037740
0037760 A R R A Y - F L
0040000 O A T - P ) \r
0040020
0040040 ( % % R E D U C E - F L O
0040060 A T - A R R A Y - M A X A R R
0040100 A Y I N I T I A L - V A L U E
0040120 ) ) \r
0040140 ( (
0040160 A N D ( E Q R E D U C T I O
0040200 N - F N ' M I N - A B S ) \r
0040220
*
0040260 A R R A Y - F L O A T - P ) \r
0040300
0040320 ( % % R E
0040340 D U C E - F L O A T - A R R A Y
0040360 - M I N - A B S A R R A Y I
0040400 N I T I A L - V A L U E ) ) \r
0040420
0040440 ( ( A N D
0040460 ( E Q R E D U C T I O N - F N
0040500 ' M A X - A B S ) \r
0040520
0040540 A R R A
0040560 Y - F L O A T - P ) \r
0040600
0040620 ( % % R E D U C E
0040640 - F L O A T - A R R A Y - M A X
0040660 - A B S A R R A Y I N I T I
0040700 A L - V A L U E ) ) \r
0040720
0040740 ( T ( C L : D O *
0040760 ( ( F L A T T E N E D - A R R
0041000 A Y ( F L A T T E N - A R G
0041020 A R R A Y ) ) \r
0041040
0041060 (
0041100 A C C U M U L A T O R ( C L :
0041120 I F I N I T I A L - V A L U E
0041140 - P I N I T I A L - V A L U E
0041160 \r
0041200
*
0041240 ( C L :
0041260 A R E F F L A T T E N E D - A
0041300 R R A Y 0 ) ) ) \r
0041320
*
0041360 ( I N D E X ( C L : I F I
0041400 N I T I A L - V A L U E - P 0
0041420 1 ) \r
0041440
*
0041500 ( C L : 1 + I N D E X ) )
0041520 ) \r
0041540
0041560 ( ( E Q I N D E
0041600 X S I Z E ) \r
0041620
0041640 A C
0041660 C U M U L A T O R ) \r
0041700
*
0041740 ( S E T Q A C C U M U L A T O
0041760 R ( C L : F U N C A L L R E
0042000 D U C T I O N - F N A C C U M
0042020 U L A T O R \r
0042040
*
0042120 ( C L : A R E F F L
0042140 A T T E N E D - A R R A Y I N
0042160 D E X ] ) \r \r \r ( C L : D E F U
0042200 N 006 002 E V A L U A T E - P O L
0042220 Y N O M I A L 006 001 ( X C O E
0042240 F F I C I E N T S ) [ C L : I
0042260 F ( N O T ( C L : A R R A Y
0042300 P C O E F F I C I E N T S ) )
0042320 \r
0042340
*
0042400 ( C L : E R R O R
0042420 " N o t a n a r r a y :
0042440 ~ S " C O E F F I C I E N T S
0042460 ) \r
0042500
*
0042540 ( C L : I F (
0042560 E Q ( C L : A R R A Y - E L E
0042600 M E N T - T Y P E C O E F F I
0042620 C I E N T S ) \r
0042640
*
0042720 ' C L : S I N
0042740 G L E - F L O A T ) \r
0042760
*
0043040 ( % % P O L Y -
0043060 E V A L ( F L O A T X ) \r
0043100
*
0043200 ( % % G E T - F L O A T -
0043220 A R R A Y - B A S E \r
0043240
*
0043340 C O E F F I C I E
0043360 N T S ) \r
0043400
*
0043460 ( C L : 1 -
0043500 ( C L : A R R A Y - T O T A L -
0043520 S I Z E \r
0043540
*
0043640 C O E F F I C I E N T S ) ) )
0043660 \r
0043700
*
0043740 ( C
0043760 L : D O ( ( F L A T T E N E D
0044000 - A R R A Y ( F L A T T E N -
0044020 A R G \r
0044040
*
0044140 C O E F F
0044160 I C I E N T S ) ) \r
0044200
*
0044260 (
0044300 I N D E X 1 ( C L : 1 + I
0044320 N D E X ) ) \r
0044340
*
0044420 ( S I Z
0044440 E ( C L : A R R A Y - T O T A
0044460 L - S I Z E \r
0044500
*
0044600 C O E F F I C I E N T S )
0044620 ) \r
0044640
*
0044720 ( P R O D U C T
0044740 ( C L : A R E F C O E F F I C
0044760 I E N T S 0 \r
0045000
*
0045100 ) ) )
0045120 \r
0045140
*
0045220 ( ( E Q I N D E X
0045240 S I Z E ) \r
0045260
*
0045340 P R O D U
0045360 C T ) \r
0045400
*
0045460 ( S E T Q P R
0045500 O D U C T \r
0045520
*
0045600 ( + ( C
0045620 L : * X P R O D U C T ) \r
0045640
*
0045740 ( C L : A R E F
0045760 C O E F F I C I E N T S I N D
0046000 E X ] ) \r \r \r ( C L : D E F U N
0046020 006 002 F I N D - A R R A Y - E L
0046040 E M E N T - I N D E X 006 001 ( E
0046060 L E M E N T A R R A Y ) [ C
0046100 L : I F ( N O T ( C L : A R
0046120 R A Y P A R R A Y ) ) \r
0046140
*
0046220 ( C L : E R R O R
0046240 " N o t a n a r r a y :
0046260 ~ S " A R R A Y ) \r
0046300
*
0046360 ( C L : I F ( E Q
0046400 ( C L : A R R A Y - E L E M E N
0046420 T - T Y P E A R R A Y ) \r
0046440
*
0046540 ' C L : S I N G L E - F L
0046560 O A T ) \r
0046600
*
0046660 ( C L : D O ( ( B
0046700 A S E ( \r
0046720
*
0047020 % % G E T - F L O A T
0047040 - A R R A Y - B A S E \r
0047060
*
0047160 A R R A
0047200 Y ) \r
0047220
*
0047320 ( \ A D D B A S E B A S E
0047340 2 ) ) \r
0047360
*
0047440 ( I
0047460 N D E X 0 ( C L : 1 + I N
0047500 D E X ) ) \r
0047520
*
0047600 (
0047620 F - E L E M E N T ( F L O A T
0047640 E L E M E N T ) ) \r
0047660
*
0047760 ( S I Z E ( C L : A R
0050000 R A Y - T O T A L - S I Z E \r
0050020
*
0050120 A
0050140 R R A Y ) ) ) \r
0050160
*
0050260 ( ( E Q I N D E X S I Z E )
0050300 \r
0050320
*
0050400 N I L ) \r
0050420
*
0050520 ( 006 002 D E C L A R
0050540 E 006 001 ( T Y P E F L O A T
0050560 \r
0050600
*
0050700 F - E L E M E N
0050720 T ) ) \r
0050740
*
0051020 ( C L :
0051040 I F ( U F E Q P F - E L E M
0051060 E N T \r
0051100
*
0051200 ( \ G E T B
0051220 A S E F L O A T P \r
0051240
*
0051360 B A S E 0 ) ) \r
0051400
*
0051500 ( R E T U R N
0051520 I N D E X ) ) ) \r
0051540
*
0051620 ( C L : D
0051640 O ( ( F L A T T E N E D - A R
0051660 R A Y \r
0051700
*
0051760 ( F
0052000 L A T T E N - A R G A R R A Y
0052020 ) ) \r
0052040
*
0052120 ( I N D
0052140 E X 0 ( C L : 1 + I N D E
0052160 X ) ) \r
0052200
*
0052260 ( S I
0052300 Z E ( C L : A R R A Y - T O T
0052320 A L - S I Z E \r
0052340
*
0052440 A R R A Y ) ) )
0052460 \r
0052500
*
0052560 ( ( E Q I N
0052600 D E X S I Z E ) \r
0052620
*
0052720 N I L ) \r
0052740
*
0053040 ( C L : I F ( E Q L E L E M
0053060 E N T \r
0053100
*
0053200 ( C L : A R E F
0053220 \r
0053240
*
0053340 F L A T T E N E
0053360 D - A R R A Y \r
0053400
*
0053520 I N D E X ) ) \r
0053540
*
0053640 ( R E T U
0053660 R N I N D E X ] ) \r \r \r ( C L
0053700 : D E F U N 006 002 F L A T T E N
0053720 - A R G 006 001 ( A R G ) ( C L
0053740 : I F ( O R ( N O T ( C L
0053760 : A R R A Y P A R G ) ) \r
0054000
*
0054040 ( E Q 1 ( C L : A
0054060 R R A Y - R A N K A R G ) ) )
0054100 \r
0054120
0054140 A R G \r
0054160
0054200 ( C L : M
0054220 A K E - A R R A Y ( C L : A R
0054240 R A Y - T O T A L - S I Z E A
0054260 R G ) \r
0054300
0054320 : E
0054340 L E M E N T - T Y P E \r
0054360
*
0054420 ( C L : A R R A Y -
0054440 E L E M E N T - T Y P E A R G
0054460 ) \r
0054500
0054520 : D I S
0054540 P L A C E D - T O A R G ) ) )
0054560 \r \r \r ( C L : D E F U N 006 002 M
0054600 A X - A B S 006 001 ( X Y ) (
0054620 C L : I F ( > ( A B S X )
0054640 \r
0054660
0054700 ( A B S Y ) ) \r
0054720
0054740 X Y ) )
0054760 \r \r \r ( C L : D E F U N 006 002 M
0055000 I N - A B S 006 001 ( X Y ) (
0055020 C L : I F ( < ( A B S X )
0055040 \r
0055060
0055100 ( A B S Y ) ) \r
0055120
0055140 X Y ) ) \r \r
0055160 \r ( C L : D E F U N 006 002 % % M
0055200 A P - F L O A T - A R R A Y - A
0055220 B S 006 001 ( R E S U L T A R R
0055240 A Y ) [ C L : D O ( ( S I Z
0055260 E ( C L : A R R A Y - T O T A
0055300 L - S I Z E R E S U L T ) ) \r
0055320
*
0055400 ( R E S U L T - B
0055420 A S E ( % % G E T - F L O A T
0055440 - A R R A Y - B A S E R E S U
0055460 L T ) \r
0055500
*
0055560 ( \ A D D B A S E R E S U
0055600 L T - B A S E 2 ) ) \r
0055620
*
0055700 ( A R R A Y - B A S E (
0055720 % % G E T - F L O A T - A R R A
0055740 Y - B A S E A R R A Y ) \r
0055760
*
0056040 ( \ A D
0056060 D B A S E A R R A Y - B A S E
0056100 2 ) ) \r
0056120
*
0056160 ( I N D
0056200 E X 0 ( C L : 1 + I N D E
0056220 X ) ) ) \r
0056240
*
0056300 ( ( E Q
0056320 I N D E X S I Z E ) \r
0056340
*
0056420 R E S U L T ) \r
0056440
*
0056520 ( \ P U T B A S E F L O A T P
0056540 R E S U L T - B A S E 0 \r
0056560
*
0056640 ( U F A
0056660 B S ( \ G E T B A S E F L O A
0056700 T P A R R A Y - B A S E 0 ]
0056720 ) \r \r \r ( C L : D E F U N 006 002
0056740 % % M A P - F L O A T - A R R A
0056760 Y - F L O A T 006 001 ( R E S U L
0057000 T A R R A Y ) ( L E T ( (
0057020 S I Z E ( C L : A R R A Y - T
0057040 O T A L - S I Z E R E S U L T
0057060 ) ) ) \r
0057100
*
0057140 [ C L : I F
0057160 ( E Q U A L ( C L : A R R A
0057200 Y - E L E M E N T - T Y P E A
0057220 R R A Y ) \r
0057240
*
0057320 ' ( C L : U
0057340 N S I G N E D - B Y T E 1 6 )
0057360 ) \r
0057400
*
0057440 (
0057460 % % B L K S M A L L P 2 F L O A
0057500 T ( \r
0057520
*
0057620 % % G E T - F L O A T - A
0057640 R R A Y - B A S E \r
0057660
*
0057760 A R R A Y
0060000 ) \r
0060020
*
0060100 ( % % G E T - F L O
0060120 A T - A R R A Y - B A S E R E
0060140 S U L T ) \r
0060160
*
0060240 S I Z E ) \r
0060260
*
0060340 ( C L
0060360 : D O ( ( R E S U L T - B A S
0060400 E ( \r
0060420
*
0060520 % % G E T - F L O A T - A
0060540 R R A Y - B A S E \r
0060560
*
0060660 R E S
0060700 U L T ) \r
0060720
*
0061020 ( \ A D D B A S E R E S U L
0061040 T - B A S E 2 ) ) \r
0061060
*
0061160 ( I N D E X 0 ( C L : 1 +
0061200 I N D E X ) ) ) \r
0061220
*
0061300 ( ( E
0061320 Q I N D E X S I Z E ) ) \r
0061340
*
0061440 ( \ P U T B A S E F L O A
0061460 T P \r
0061500
*
0061560 R E S U L T - B
0061600 A S E 0 \r
0061620
*
0061700 ( F L O A
0061720 T ( C L : A R E F A R R A Y
0061740 I N D E X ] \r
0061760
*
0062020 R E
0062040 S U L T ) ) \r \r \r ( C L : D E F
0062060 U N 006 002 % % M A P - F L O A T
0062100 - A R R A Y - M I N U S 006 001 (
0062120 R E S U L T A R R A Y - 1 A
0062140 R R A Y - 2 ) \r [ C L : I
0062160 F ( C L : A R R A Y P A R R
0062200 A Y - 1 ) \r
0062220 [ C L : I F ( C L : A R R A Y
0062240 P A R R A Y - 2 ) \r
0062260 ( % % B
0062300 L K F D I F F ( % % G E T - F
0062320 L O A T - A R R A Y - B A S E
0062340 A R R A Y - 1 ) \r
0062360
0062400 ( % % G E T - F L O A T - A R
0062420 R A Y - B A S E A R R A Y - 2
0062440 ) \r
0062460 ( % % G E T
0062500 - F L O A T - A R R A Y - B A S
0062520 E R E S U L T ) \r
0062540
0062560 ( C L : A R R A Y - T O T A
0062600 L - S I Z E R E S U L T ) ) \r
0062620
0062640 ( C L : D O ( ( S I Z E (
0062660 C L : A R R A Y - T O T A L - S
0062700 I Z E R E S U L T ) ) \r
0062720
0062740 ( R E S U L T - B A
0062760 S E ( % % G E T - F L O A T -
0063000 A R R A Y - B A S E R E S U L
0063020 T ) \r
0063040
0063060 ( \ A D D B A S E R E S
0063100 U L T - B A S E 2 ) ) \r
0063120
0063140 ( A R R A Y - 1 - B
0063160 A S E ( % % G E T - F L O A T
0063200 - A R R A Y - B A S E A R R A
0063220 Y - 1 ) \r
0063240
0063260 ( \ A D D B A S E A
0063300 R R A Y - 1 - B A S E 2 ) ) \r
0063320
0063340 ( S C A L A R
0063360 ( F L O A T A R R A Y - 2 )
0063400 ) \r
0063420 ( I N D E
0063440 X 0 ( C L : 1 + I N D E X
0063460 ) ) ) \r
0063500 ( ( E Q
0063520 I N D E X S I Z E ) ) \r
0063540
0063560 ( 006 002 D E C L A R E
0063600 006 001 ( T Y P E F L O A T P
0063620 S C A L A R ) ) \r
0063640
0063660 ( \ P U T B A S E F L O A T P
0063700 R E S U L T - B A S E 0 (
0063720 F D I F F E R E N C E ( \ G E
0063740 T B A S E F L O A T P A R R A
0063760 Y - 1 - B A S E 0 ) \r
0064000
*
0064060 S C A L A R ]
0064100 \r ( C L : D
0064120 O ( ( S I Z E ( C L : A R R
0064140 A Y - T O T A L - S I Z E R E
0064160 S U L T ) ) \r
0064200 ( R E S U L T
0064220 - B A S E ( % % G E T - F L O
0064240 A T - A R R A Y - B A S E R E
0064260 S U L T ) \r
0064300 (
0064320 \ A D D B A S E R E S U L T -
0064340 B A S E 2 ) ) \r
0064360 ( S C A L
0064400 A R ( F L O A T A R R A Y -
0064420 1 ) ) \r
0064440 ( A R R A Y - 2 - B
0064460 A S E ( % % G E T - F L O A T
0064500 - A R R A Y - B A S E A R R A
0064520 Y - 2 ) \r
0064540 ( \
0064560 A D D B A S E A R R A Y - 2 -
0064600 B A S E 2 ) ) \r
0064620 ( I N D E
0064640 X 0 ( C L : 1 + I N D E X
0064660 ) ) ) \r
0064700 ( ( E Q I N D E X
0064720 S I Z E ) ) \r
0064740 ( 006 002 D E C L A
0064760 R E 006 001 ( T Y P E F L O A T
0065000 P S C A L A R ) ) \r
0065020 ( \ P U
0065040 T B A S E F L O A T P R E S U
0065060 L T - B A S E 0 ( F D I F F
0065100 E R E N C E S C A L A R ( \
0065120 G E T B A S E F L O A T P A R
0065140 R A Y - 2 - B A S E 0 ] \r
0065160 R E S U L T ) \r \r \r ( C L : D
0065200 E F U N 006 002 % % M A P - F L O
0065220 A T - A R R A Y - N E G A T E 006
0065240 001 ( R E S U L T A R R A Y )
0065260 [ C L : D O ( ( S I Z E (
0065300 C L : A R R A Y - T O T A L - S
0065320 I Z E R E S U L T ) ) \r
0065340
*
0065420 ( R E S U L T - B
0065440 A S E ( % % G E T - F L O A T
0065460 - A R R A Y - B A S E R E S U
0065500 L T \r
0065520
*
0065620 ) \r
0065640
*
0065720 ( \ A D D B A S E R E
0065740 S U L T - B A S E 2 ) ) \r
0065760
*
0066040 ( A R R A Y - B
0066060 A S E ( % % G E T - F L O A T
0066100 - A R R A Y - B A S E A R R A
0066120 Y ) \r
0066140
*
0066220 ( \ A D D B A S E A R
0066240 R A Y - B A S E 2 ) ) \r
0066260
*
0066340 ( I N D E X 0
0066360 ( C L : 1 + I N D E X ) ) ) \r
0066400
*
0066460 ( ( E Q I N
0066500 D E X S I Z E ) \r
0066520
*
0066600 R E S U L T ) \r
0066620
*
0066700 ( \ P U T B A S E F L
0066720 O A T P R E S U L T - B A S E
0066740 0 \r
0066760
*
0067040 ( U F M I N U S ( \ G E
0067060 T B A S E F L O A T P A R R A
0067100 Y - B A S E 0 \r
0067120
*
0067220 ] ) \r \r \r ( C
0067240 L : D E F U N 006 002 % % M A P -
0067260 F L O A T - A R R A Y - P L U S
0067300 006 001 ( R E S U L T A R R A Y
0067320 - 1 A R R A Y - 2 ) ( C L :
0067340 I F ( N O T ( C L : A R R A
0067360 Y P A R R A Y - 1 ) ) \r
0067400
*
0067460 ( C
0067500 L : R O T A T E F A R R A Y -
0067520 1 A R R A Y - 2 ) ) \r
0067540
*
0067620 006 006 ( * ;
0067640 " a d d i t i o n i s c o m
0067660 m u t a t i v e " ) 006 001 \r
0067700
*
0067760 [ C L : I F ( C
0070000 L : A R R A Y P A R R A Y - 2
0070020 ) \r
0070040
*
0070120 ( % % B L K F P L U S (
0070140 % % G E T - F L O A T - A R R A
0070160 Y - B A S E \r
0070200
*
0070300 A R R A Y - 1 ) \r
0070320
*
0070420 ( % % G E T - F L O
0070440 A T - A R R A Y - B A S E \r
0070460
*
0070560 A R R A Y - 2 ) \r
0070600
*
0070700 ( % % G E T - F
0070720 L O A T - A R R A Y - B A S E \r
0070740
*
0071040 R E S U L T )
0071060 \r
0071100
*
0071160 ( C L : A R R
0071200 A Y - T O T A L - S I Z E R E
0071220 S U L T ) ) \r
0071240
*
0071320 ( C L : D O (
0071340 ( S I Z E ( C L : A R R A Y -
0071360 T O T A L - S I Z E \r
0071400
*
0071500 R E S U L
0071520 T ) ) \r
0071540
*
0071620 ( R E
0071640 S U L T - B A S E ( \r
0071660
*
0071760 % % G E T
0072000 - F L O A T - A R R A Y - B A S
0072020 E \r
0072040
*
0072140 R E S U L T )
0072160 \r
0072200
*
0072300 ( \ A D D B A S E R E S U L
0072320 T - B A S E \r
0072340
*
0072440 2
0072460 ) ) \r
0072500
*
0072560 ( A R R
0072600 A Y - 1 - B A S E ( \r
0072620
*
0072720 % % G E T
0072740 - F L O A T - A R R A Y - B A S
0072760 E \r
0073000
*
0073100 A R R A Y -
0073120 1 ) \r
0073140
*
0073240 ( \ A D D B A S E \r
0073260
*
0073400 A R R A Y - 1 - B A S
0073420 E 2 \r
0073440
*
0073540 ) ) \r
0073560
*
0073660 ( S C A L A R (
0073700 F L O A T A R R A Y - 2 ) ) \r
0073720
*
0074020 ( I N D E X
0074040 0 ( C L : 1 + I N D E X ) )
0074060 ) \r
0074100
*
0074160 ( ( E Q I
0074200 N D E X S I Z E ) ) \r
0074220
*
0074320 ( 006 002 D E C L A R E 006 001
0074340 ( T Y P E F L O A T P S C
0074360 A L A R ) \r
0074400
*
0074500 ) \r
0074520
*
0074600 (
0074620 \ P U T B A S E F L O A T P \r
0074640
*
0074740 R E S U L T - B
0074760 A S E 0 \r
0075000
*
0075060 (
0075100 F P L U S ( \ G E T B A S E F
0075120 L O A T P \r
0075140
*
0075240 A R R A Y - 1 - B
0075260 A S E 0 ) \r
0075300
*
0075400 S C A L A R ] \r
0075420
*
0075500 R E S U L T )
0075520 \r \r \r ( C L : D E F U N 006 002 %
0075540 % M A P - F L O A T - A R R A Y
0075560 - Q U O T I E N T 006 001 ( R E S
0075600 U L T A R R A Y - 1 A R R A
0075620 Y - 2 ) \r [ C L : I F (
0075640 C L : A R R A Y P A R R A Y -
0075660 1 ) \r [ C L
0075700 : I F ( C L : A R R A Y P A
0075720 R R A Y - 2 ) \r
0075740 [ C L : D O
0075760 ( ( S I Z E ( C L : A R R A Y
0076000 - T O T A L - S I Z E R E S U
0076020 L T ) ) \r
0076040 ( R
0076060 E S U L T - B A S E ( % % G E
0076100 T - F L O A T - A R R A Y - B A
0076120 S E R E S U L T ) \r
0076140
0076160 ( \ A D D
0076200 B A S E R E S U L T - B A S E
0076220 2 ) ) \r
0076240 ( A
0076260 R R A Y - 1 - B A S E ( % % G
0076300 E T - F L O A T - A R R A Y - B
0076320 A S E A R R A Y - 1 ) \r
0076340
0076360 ( \ A
0076400 D D B A S E A R R A Y - 1 - B
0076420 A S E 2 ) ) \r
0076440
0076460 ( A R R A Y - 2 - B A S E (
0076500 % % G E T - F L O A T - A R R A
0076520 Y - B A S E A R R A Y - 2 ) \r
0076540
*
0076600 ( \ A D D B A S E A R R A Y -
0076620 1 - B A S E 2 ) ) \r
0076640
0076660 ( I N D E X 0 ( C L
0076700 : 1 + I N D E X ) ) ) \r
0076720
0076740 ( ( E Q I N D E X
0076760 S I Z E ) ) \r
0077000 (
0077020 \ P U T B A S E F L O A T P R
0077040 E S U L T - B A S E 0 ( F Q
0077060 U O T I E N T ( \ G E T B A S
0077100 E F L O A T P A R R A Y - 1 -
0077120 B A S E 0 ) \r
0077140
*
0077220 ( \ G E T B A S E F L
0077240 O A T P A R R A Y - 2 - B A S
0077260 E 0 ] \r
0077300 ( C L : D O ( ( S
0077320 I Z E ( C L : A R R A Y - T O
0077340 T A L - S I Z E R E S U L T )
0077360 ) \r
0077400 ( R E S U
0077420 L T - B A S E ( % % G E T - F
0077440 L O A T - A R R A Y - B A S E
0077460 R E S U L T ) \r
0077500
0077520 ( \ A D D B A S
0077540 E R E S U L T - B A S E 2 )
0077560 ) \r
0077600 ( A R R A
0077620 Y - 1 - B A S E ( % % G E T -
0077640 F L O A T - A R R A Y - B A S E
0077660 A R R A Y - 1 ) \r
0077700
0077720 ( \ A D D B
0077740 A S E A R R A Y - 1 - B A S E
0077760 2 ) ) \r
0100000 ( S
0100020 C A L A R ( F L O A T A R R
0100040 A Y - 2 ) ) \r
0100060
0100100 ( I N D E X 0 ( C L : 1 +
0100120 I N D E X ) ) ) \r
0100140
0100160 ( ( E Q I N D E X S I Z E
0100200 ) ) \r
0100220 ( 006 002 D E
0100240 C L A R E 006 001 ( T Y P E F L
0100260 O A T P S C A L A R ) ) \r
0100300
0100320 ( \ P U T B A S E F
0100340 L O A T P R E S U L T - B A S
0100360 E 0 ( F Q U O T I E N T (
0100400 \ G E T B A S E F L O A T P A
0100420 R R A Y - 1 - B A S E 0 ) \r
0100440
*
0100520 S C A L
0100540 A R ] \r ( C
0100560 L : D O ( ( S I Z E ( C L :
0100600 A R R A Y - T O T A L - S I Z E
0100620 R E S U L T ) ) \r
0100640 ( R E S
0100660 U L T - B A S E ( % % G E T -
0100700 F L O A T - A R R A Y - B A S E
0100720 R E S U L T ) \r
0100740
0100760 ( \ A D D B A S E R E S U
0101000 L T - B A S E 2 ) ) \r
0101020 ( S
0101040 C A L A R ( F L O A T A R R
0101060 A Y - 1 ) ) \r
0101100 ( A R R A Y -
0101120 2 - B A S E ( % % G E T - F L
0101140 O A T - A R R A Y - B A S E A
0101160 R R A Y - 2 ) \r
0101200
0101220 ( \ A D D B A S E A R R A Y
0101240 - 2 - B A S E 2 ) ) \r
0101260 ( I
0101300 N D E X 0 ( C L : 1 + I N
0101320 D E X ) ) ) \r
0101340 ( ( E Q I N D
0101360 E X S I Z E ) ) \r
0101400 ( 006 002 D E
0101420 C L A R E 006 001 ( T Y P E F L
0101440 O A T P S C A L A R ) ) \r
0101460 (
0101500 \ P U T B A S E F L O A T P R
0101520 E S U L T - B A S E 0 ( F Q
0101540 U O T I E N T S C A L A R (
0101560 \ G E T B A S E F L O A T P A
0101600 R R A Y - 2 - B A S E 0 ] \r
0101620 R E S U L T ) \r \r \r ( C L :
0101640 D E F U N 006 002 % % M A P - F L
0101660 O A T - A R R A Y - T I M E S 006
0101700 001 ( R E S U L T A R R A Y -
0101720 1 A R R A Y - 2 ) ( C L : I
0101740 F ( N O T ( C L : A R R A Y
0101760 P A R R A Y - 1 ) ) \r
0102000
*
0102060 ( C
0102100 L : R O T A T E F A R R A Y -
0102120 1 A R R A Y - 2 ) ) \r
0102140
*
0102220 006 006 ( * ;
0102240 " M u l t i p l i c a t i o n
0102260 i s c o m m u t a t i v e " )
0102300 006 001 \r
0102320
*
0102360 [ C
0102400 L : I F ( C L : A R R A Y P
0102420 A R R A Y - 2 ) \r
0102440
*
0102520 ( % % B L
0102540 K F T I M E S ( \r
0102560
*
0102660 % % G E T - F
0102700 L O A T - A R R A Y - B A S E \r
0102720
*
0103040 A R R A Y - 1 ) \r
0103060
*
0103160 ( % % G E T - F L O A T - A
0103200 R R A Y - B A S E \r
0103220
*
0103320 A R R A Y - 2 ) \r
0103340
*
0103440 ( % % G E T - F L O
0103460 A T - A R R A Y - B A S E \r
0103500
*
0103600 R E S U L T ) \r
0103620
*
0103720 ( C L : A R R
0103740 A Y - T O T A L - S I Z E R E
0103760 S U L T ) \r
0104000
*
0104060 )
0104100 \r
0104120
*
0104200 ( C L : D O ( ( S I Z E
0104220 ( C L : A R R A Y - T O T A L
0104240 - S I Z E \r
0104260
*
0104360 R E S U L T ) ) \r
0104400
*
0104500 ( R E S U L
0104520 T - B A S E ( \r
0104540
*
0104640 % % G E T - F L
0104660 O A T - A R R A Y - B A S E \r
0104700
*
0105020 R E S U L T ) \r
0105040
*
0105160 ( \ A D D B A S E \r
0105200
*
0105320 R E S U L T - B A S E 2
0105340 \r
0105360
*
0105460 ) ) \r
0105500
*
0105600 ( A R R A Y - 1 - B
0105620 A S E ( \r
0105640
*
0105740 % % G E T - F L O A T
0105760 - A R R A Y - B A S E \r
0106000
*
0106120 A R R A Y - 1 ) \r
0106140
*
0106240 (
0106260 \ A D D B A S E \r
0106300
*
0106420 A R R A Y - 1 - B A S E \r
0106440
*
0106560 2 ) ) \r
0106600
*
0106700 ( S C A L A R ( F
0106720 L O A T A R R A Y - 2 ) ) \r
0106740
*
0107040 ( I N D E X
0107060 0 ( C L : 1 + I N D E X ) )
0107100 ) \r
0107120
*
0107200 ( ( E Q
0107220 I N D E X S I Z E ) ) \r
0107240
*
0107340 ( 006 002 D E C L A R E
0107360 006 001 ( T Y P E F L O A T P
0107400 S C A L A R \r
0107420
*
0107520 )
0107540 ) \r
0107560
*
0107640 ( \ P U T
0107660 B A S E F L O A T P \r
0107700
*
0110000 R E S U L T - B A S E
0110020 0 \r
0110040
*
0110120 ( F T
0110140 I M E S ( \ G E T B A S E F L
0110160 O A T P \r
0110200
*
0110300 A R R A Y - 1 -
0110320 B A S E 0 ) \r
0110340
*
0110440 S C A L A R ]
0110460 \r
0110500
*
0110540 R E S U
0110560 L T ) \r \r \r ( C L : D E F U N
0110600 006 002 % % M A P - F L O A T - A R
0110620 R A Y - T R U N C A T E 006 001 (
0110640 R E S U L T A R R A Y ) [ C
0110660 L : D O ( ( S I Z E ( C L :
0110700 A R R A Y - T O T A L - S I Z E
0110720 R E S U L T ) ) \r
0110740
*
0111020 ( A R R A Y - B A S
0111040 E ( % % G E T - F L O A T - A
0111060 R R A Y - B A S E \r
0111100
*
0111200 A R R A Y ) \r
0111220
*
0111300 ( \ A
0111320 D D B A S E A R R A Y - B A S
0111340 E 2 ) ) \r
0111360
*
0111440 ( I N D E X 0 ( C L : 1
0111460 + I N D E X ) ) ) \r
0111500
*
0111560 ( ( E Q I N D E X
0111600 S I Z E ) \r
0111620
*
0111700 R E S U L T ) \r
0111720
*
0112000 ( C L : S E T F (
0112020 C L : A R E F R E S U L T I
0112040 N D E X ) \r
0112060
*
0112140 ( U F I X ( \
0112160 G E T B A S E F L O A T P A R
0112200 R A Y - B A S E 0 ] ) \r \r \r (
0112220 C L : D E F U N 006 002 % % R E D
0112240 U C E - F L O A T - A R R A Y -
0112260 M A X 006 001 ( A R R A Y I N I
0112300 T I A L - V A L U E ) ( L E T
0112320 [ ( R E S U L T ( C L : A R
0112340 E F A R R A Y \r
0112360
*
0112460 ( % % B L K F M A
0112500 X ( \r
0112520
*
0112620 % % G E T - F L O A T - A
0112640 R R A Y - B A S E \r
0112660
*
0113000 A R R A Y ) \r
0113020
*
0113140 0 \r
0113160
*
0113260 ( \r
0113300
*
0113400 C L : A R
0113420 R A Y - T O T A L - S I Z E \r
0113440
*
0113560 A R R A Y ] \r
0113600
*
0113660 ( C L : I F
0113700 I N I T I A L - V A L U E (
0113720 M A X I N I T I A L - V A L U
0113740 E \r
0113760
*
0114060 R E S U L
0114100 T ) \r
0114120
*
0114200 R E S U L T ) )
0114220 ) \r \r \r ( C L : D E F U N 006 002
0114240 % % R E D U C E - F L O A T - A
0114260 R R A Y - M A X - A B S 006 001 (
0114300 A R R A Y I N I T I A L - V A
0114320 L U E ) \r ( L E T [ ( R
0114340 E S U L T ( C L : A R E F A
0114360 R R A Y ( % % B L K F A B S M
0114400 A X ( % % G E T - F L O A T -
0114420 A R R A Y - B A S E A R R A Y
0114440 ) \r
0114460
0114500 0 \r
0114520
*
0114560 ( C L : A R R A Y - T O T A
0114600 L - S I Z E A R R A Y ] \r
0114620 ( C L : I F I N I
0114640 T I A L - V A L U E ( M A X -
0114660 A B S I N I T I A L - V A L U
0114700 E R E S U L T ) \r
0114720 R E S U L T )
0114740 ) ) \r \r \r ( C L : D E F U N 006
0114760 002 % % R E D U C E - F L O A T -
0115000 A R R A Y - M I N 006 001 ( A R R
0115020 A Y I N I T I A L - V A L U E
0115040 ) ( L E T [ ( R E S U L T
0115060 ( C L : A R E F A R R A Y \r
0115100
*
0115200 ( % %
0115220 B L K F M I N ( \r
0115240
*
0115340 % % G E T - F
0115360 L O A T - A R R A Y - B A S E \r
0115400
*
0115520 A R R A Y )
0115540 \r
0115560
*
0115660 0 \r
0115700
*
0116000 ( \r
0116020
*
0116140 C L : A R R A Y - T O T A L -
0116160 S I Z E \r
0116200
*
0116300 A R R A Y
0116320 ] \r
0116340
*
0116420 ( C L : I F I N I T I A L - V
0116440 A L U E ( M I N I N I T I A
0116460 L - V A L U E \r
0116500
*
0116620 R E S U L T ) \r
0116640
*
0116720 R E
0116740 S U L T ) ) ) \r \r \r ( C L : D E
0116760 F U N 006 002 % % R E D U C E - F
0117000 L O A T - A R R A Y - M I N - A
0117020 B S 006 001 ( A R R A Y I N I T
0117040 I A L - V A L U E ) \r ( L
0117060 E T [ ( R E S U L T ( C L :
0117100 A R E F A R R A Y ( % % B L
0117120 K F A B S M I N ( % % G E T -
0117140 F L O A T - A R R A Y - B A S E
0117160 A R R A Y ) \r
0117200
0117220 0
0117240 \r
0117260
0117300 ( C L : A R R A
0117320 Y - T O T A L - S I Z E A R R
0117340 A Y ] \r ( C L :
0117360 I F I N I T I A L - V A L U E
0117400 ( M I N - A B S I N I T I A
0117420 L - V A L U E R E S U L T ) \r
0117440 R
0117460 E S U L T ) ) ) \r \r \r ( C L : D
0117500 E F U N 006 002 % % R E D U C E -
0117520 F L O A T - A R R A Y - P L U S
0117540 006 001 ( A R R A Y I N I T I A
0117560 L - V A L U E ) ( L E T [ (
0117600 R E S U L T ( % % P O L Y - E
0117620 V A L \r
0117640
*
0117720 1 . 0
0117740 \r
0117760
*
0120040 ( % % G E T
0120060 - F L O A T - A R R A Y - B A S
0120100 E \r
0120120
*
0120200 A R R A
0120220 Y ) \r
0120240
*
0120320 ( C L :
0120340 1 - ( C L : A R R A Y - T O T
0120360 A L - S I Z E \r
0120400
*
0120500 A R R A Y ] \r
0120520
*
0120600 (
0120620 C L : I F I N I T I A L - V A
0120640 L U E ( + I N I T I A L - V
0120660 A L U E \r
0120700
*
0121000 R E S
0121020 U L T ) \r
0121040
*
0121120 R E S U L
0121140 T ) ) ) \r \r \r ( C L : D E F U N
0121160 006 002 % % R E D U C E - F L O A
0121200 T - A R R A Y - T I M E S 006 001
0121220 ( A R R A Y I N I T I A L - V
0121240 A L U E ) ( L E T ( ( T O T
0121260 A L 1 . 0 ) ) \r
0121300
*
0121360 ( 006 002 D E C L
0121400 A R E 006 001 ( T Y P E F L O A
0121420 T T O T A L ) ) \r
0121440
*
0121520 [ C L : D O
0121540 ( ( I 0 ( C L : 1 + I )
0121560 ) \r
0121600
*
0121660 ( B A S E
0121700 ( % % G E T - F L O A T - A R R
0121720 A Y - B A S E \r
0121740
*
0122040 A R R A Y ) \r
0122060
*
0122160 ( \ A D
0122200 D B A S E B A S E 2 ) ) \r
0122220
*
0122320 ( S I Z E ( C L
0122340 : A R R A Y - T O T A L - S I Z
0122360 E \r
0122400
*
0122500 A R R A Y ) ) ) \r
0122520
*
0122620 ( ( E Q I S I Z E ) \r
0122640
*
0122740 T O T A L ) \r
0122760
*
0123060 ( S E T Q T O T A L \r
0123100
*
0123200 ( C L : * T O
0123220 T A L ( \ G E T B A S E F L O
0123240 A T P \r
0123260
*
0123360 B A S E 0 ]
0123400 \r
0123420
*
0123500 ( C L : I F I N I T I A L -
0123520 V A L U E ( C L : * \r
0123540
*
0123660 I N I T I A L - V A L
0123700 U E \r
0123720
*
0124020 T
0124040 O T A L ) \r
0124060
*
0124140 T O T
0124160 A L ) ) ) \r \r \r \r \r 006 004 ( * ;
0124200 ; " F o r c o n v e n i e n
0124220 c e " ) 006 001 \r \r \r ( P U T P R O
0124240 P S 006 002 C M L F L O A T A R R
0124260 A Y F I L E T Y P E 006 001 C L
0124300 : C O M P I L E - F I L E ) \r (
0124320 D E C L A R E % : D O N T E V
0124340 A L @ L O A D D O E V A L @ C
0124360 O M P I L E D O N T C O P Y
0124400 \r ( D E C L A R E % : D O E V
0124420 A L @ C O M P I L E D O N T C
0124440 O P Y \r \r ( L O C A L V A R S
0124460 . T ) \r ) \r ) \r ( D E C L A R
0124500 E % : D O N T E V A L @ L O A
0124520 D D O E V A L @ C O M P I L E
0124540 D O N T C O P Y C O M P I L
0124560 E R V A R S \r \r ( A D D T O V
0124600 A R 006 002 N L A M A 006 001 ) \r \r
0124620 ( A D D T O V A R 006 002 N L A M
0124640 L 006 001 ) \r \r ( A D D T O V A R
0124660 006 002 L A M A 006 001 M A P - A R
0124700 R A Y ) \r ) \r ( P U T P R O P S
0124720 C M L F L O A T A R R A Y C
0124740 O P Y R I G H T ( " X e r o x
0124760 C o r p o r a t i o n " 1 9
0125000 8 5 1 9 8 6 1 9 8 7 ) ) \r (
0125020 D E C L A R E % : D O N T C O
0125040 P Y \r ( F I L E M A P ( N
0125060 I L ( 2 3 9 8 7 0 6 6 ( M
0125100 A P - A R R A Y 2 4 0 8 .
0125120 7 0 6 4 ) ) ) ) ) \r S T O P \r
0125137