$ od -c -N 50000 [qv]<IDL>koto>ARRAYSUPPORT.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - J u n - 8 6 1 5 : 3 0 : 4 3
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > A R R A Y S U P P O R
0000120 T . ; 3 ) \r " 1 2 - N o v - 8
0000140 5 1 4 : 5 9 : 2 3 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 n o t h i n g i n " I N T E
0000220 R L I S P - D 1 1 - M a y - 8
0000240 6 . . . " d a t e d \r " 1
0000260 1 - M a y - 8 6 1 5 : 1 9 : 0
0000300 8 " ) \r ( F I L E C R E A T E D
0000320 " 2 0 - J u n - 8 6 1 5 : 3
0000340 0 : 0 9 " { Q V } < P E D E R
0000360 S E N > L I S P > A R R A Y S U
0000400 P P O R T . ; 3 4 1 9 2 c h
0000420 a n g e s t o : ( V A R S
0000440 \r A R R A Y S U P P O R T C O M
0000460 S ) p r e v i o u s d a t e
0000500 : " 1 7 - J u n - 8 6 1 0 :
0000520 4 5 : 1 6 " { Q V } < P E D E
0000540 R S E N > L I S P > A R R A Y S
0000560 U P P O R T . ; 2 ) \r A R R A Y
0000600 B A S E D 1 \r ( I 0 A )
0000620 \0 035 \0 \0 \0 001 @ 004 ` \0 \0 360 233 @ 311 004
0000640 @ 310 \n @ 310 \v 365 320 020 o \0 \0 \0 @ \n \0
0000660 \0 020 \0 ( 3 2 Q E R R O R ) \r (
0000700 4 004 003 A R R A Y T Y P E # ) \r
0000720 ( 2 6 Q " N o t a n a r
0000740 r a y " ) \r \ B L K E X P O N E
0000760 N T D 1 \r ( I 2 C N T I
0001000 1 D E S T I 0 S O U R
0001020 C E ) \0 \a \0 \0 \0 003 @ A B 372 \0 020
0001040 \0 N I L \r N I L \r ( ) \r \ B L K
0001060 F A B S M A X D 1 \r ( I 2
0001100 C N T I 1 Z E R O I 0
0001120 S O U R C E ) \0 \a \0 \0 \0 003 @
0001140 A B 372 006 020 \0 N I L \r N I L \r ( )
0001160 \r \ B L K F A B S M I N D 1 \r
0001200 ( I 2 C N T I 1 Z E R
0001220 O I 0 S O U R C E ) \0 \a
0001240 \0 \0 \0 003 @ A B 372 \a 020 \0 N I L \r N
0001260 I L \r ( ) \r \ B L K F D I F F
0001300 D 1 \r ( I 3 C N T I 2
0001320 D E S T I 1 S O U R C E 2
0001340 I 0 S O U R C E 1 ) \0 \b
0001360 \0 \0 \0 004 @ A B C 373 003 020 \0 N I L \r
0001400 N I L \r ( ) \r \ B L K F M A X
0001420 D 1 \r ( I 2 C N T I 1
0001440 Z E R O I 0 S O U R C E )
0001460 \0 \a \0 \0 \0 003 @ A B 372 004 020 \0 N I
0001500 L \r N I L \r ( ) \r \ B L K F M I
0001520 N D 1 \r ( I 2 C N T I
0001540 1 Z E R O I 0 S O U R C
0001560 E ) \0 \a \0 \0 \0 003 @ A B 372 005 020 \0
0001600 N I L \r N I L \r ( ) \r \ B L K F
0001620 P L U S D 1 \r ( I 3 C N T
0001640 I 2 D E S T I 1 S O
0001660 U R C E 2 I 0 S O U R C E
0001700 1 ) \0 \b \0 \0 \0 004 @ A B C 373 002 020
0001720 \0 N I L \r N I L \r ( ) \r \ B L K
0001740 F T I M E S D 1 \r ( I 3 C
0001760 N T I 2 D E S T I 1
0002000 S O U R C E 2 I 0 S O U R
0002020 C E 1 ) \0 \b \0 \0 \0 004 @ A B C 373
0002040 \0 020 \0 N I L \r N I L \r ( ) \r \ B
0002060 L K P E R M D 1 \r ( I 3 C
0002100 N T I 2 D E S T I N A T I
0002120 O N I 1 P E R M U T A T I
0002140 O N S I 0 O R I G ) \0 \b
0002160 \0 \0 \0 004 @ A B C 373 001 020 \0 N I L \r
0002200 N I L \r ( ) \r \ B L K S M A L L
0002220 P 2 F L O A T D 1 \r ( I 2
0002240 C N T I 1 D E S T I 0
0002260 S O U R C E ) \0 \a \0 \0 \0 003 @
0002300 A B 372 002 020 \0 N I L \r N I L \r ( )
0002320 \r \ F L O A T T O B Y T E D 1
0002340 \r ( I 2 C N T I 1 D E
0002360 S T I 0 S O U R C E ) \0
0002400 \a \0 \0 \0 003 @ A B 372 \b 020 \0 N I L \r
0002420 N I L \r ( ) \r \ P O L Y N O M
0002440 D 1 \r ( L ( 2 S I Z E 1
0002460 B A S E 0 X ) ) \0 \v \0 \0 \0
0002500 003 @ 355 001 A B 2 \0 355 \0 020 \0 N I L \r
0002520 N I L \r ( ) \r ( P R E T T Y C O
0002540 M P R I N T A R R A Y S U P P
0002560 O R T C O M S ) \r ( R P A Q Q
0002600 A R R A Y S U P P O R T C O M S
0002620 ( ( F N S A R R A Y B A S E
0002640 \ B L K E X P O N E N T \ B
0002660 L K F A B S M A X \ B L K F A
0002700 B S M I N \ B L K F D I F F
0002720 \ B L K F M A X \r \ B L K F M
0002740 I N \ B L K F P L U S \ B L
0002760 K F T I M E S \ B L K P E R M
0003000 \ B L K S M A L L P 2 F L O A
0003020 T \ F L O A T T O B Y T E \
0003040 P O L Y N O M ) ( M A C R O S
0003060 M U L 2 \ P O L Y N O M )
0003100 \r ( P R O P D O P V A L \ B
0003120 L K E X P O N E N T \ B L K F
0003140 A B S M A X \ B L K F A B S M
0003160 I N \ B L K F D I F F \ B L
0003200 K F M A X \ B L K F M I N \
0003220 B L K F P L U S \ B L K F T I
0003240 M E S \r \ B L K P E R M \ B
0003260 L K S M A L L P 2 F L O A T \
0003300 F L O A T T O B Y T E ) ( I .
0003320 S . O P R S p r o d u c t u
0003340 p t o ) ) ) \r ( P U T P R O P S
0003360 M U L 2 M A C R O ( O P E
0003400 N L A M B D A ( X ) ( \ A D
0003420 D B A S E X X ) ) ) \r ( P U
0003440 T P R O P S \ P O L Y N O M
0003460 D M A C R O ( ( X B A S E
0003500 S I Z E ) ( * e x e c u t e
0003520 t h e P O L Y E V A L o p
0003540 c o d e o n t h e v a l u
0003560 e X , t h e a r r a y \r
0003600 C O E F F S w i t h d e g r
0003620 e e D E G R E E ) ( \ F L O
0003640 A T B O X ( ( O P C O D E S
0003660 U B F L O A T 3 0 ) ( \ F L
0003700 O A T U N B O X X ) B A S E
0003720 S I Z E ) ) ) ) \r ( P U T P R
0003740 O P S \ B L K E X P O N E N T
0003760 D O P V A L ( 3 M I S C 3
0004000 0 ) ) \r ( P U T P R O P S \
0004020 B L K F A B S M A X D O P V A
0004040 L ( 3 M I S C 3 6 ) ) \r (
0004060 P U T P R O P S \ B L K F A B
0004100 S M I N D O P V A L ( 3 M
0004120 I S C 3 7 ) ) \r ( P U T P R O
0004140 P S \ B L K F D I F F D O P
0004160 V A L ( 4 M I S C 4 3 ) )
0004200 \r ( P U T P R O P S \ B L K F
0004220 M A X D O P V A L ( 3 M I
0004240 S C 3 4 ) ) \r ( P U T P R O P
0004260 S \ B L K F M I N D O P V A
0004300 L ( 3 M I S C 3 5 ) ) \r (
0004320 P U T P R O P S \ B L K F P L
0004340 U S D O P V A L ( 4 M I S
0004360 C 4 2 ) ) \r ( P U T P R O P S
0004400 \ B L K F T I M E S D O P V
0004420 A L ( 4 M I S C 4 0 ) ) \r
0004440 ( P U T P R O P S \ B L K P E
0004460 R M D O P V A L ( 4 M I S
0004500 C 4 1 ) ) \r ( P U T P R O P S
0004520 \ B L K S M A L L P 2 F L O A
0004540 T D O P V A L ( 3 M I S C
0004560 3 2 ) ) \r ( P U T P R O P S
0004600 \ F L O A T T O B Y T E D O P
0004620 V A L ( 3 M I S C 3 8 ) )
0004640 \r ( I . S . O P R ( Q U O T E
0004660 p r o d u c t ) ( Q U O T E
0004700 ( S E T Q $ $ V A L ( T I
0004720 M E S $ $ V A L B O D Y ) )
0004740 ) ( Q U O T E ( B I N D (
0004760 $ $ V A L _ 1 ) ) ) ) \r ( I
0005000 . S . O P R ( Q U O T E u p
0005020 t o ) N I L ( Q U O T E (
0005040 T O ( S U B 1 B O D Y ) ) )
0005060 ) \r ( P U T P R O P S A R R A
0005100 Y S U P P O R T C O P Y R I G
0005120 H T ( " X e r o x C o r p o
0005140 r a t i o n " 1 9 8 6 ) ) \r N
0005160 I L \r
0005163