$ od -c -N 50000 [qv]<IDL>SOURCES>SCALARARITH.DCOM!18
0000000 ( F I L E C R E A T E D " 1 1
0000020 - F e b - 8 6 2 3 : 3 4 : 1 7
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < I D L > S O U R C
0000100 E S > S C A L A R A R I T H . ;
0000120 1 2 ) \r " 1 2 - N o v - 8 5
0000140 1 4 : 5 9 : 2 3 " r e c o m p
0000160 i l e d c h a n g e s : n o
0000200 t h i n g i n " I N T E R L
0000220 I S P - D 7 - F e b - 8 6
0000240 . . . " d a t e d \r " 7 -
0000260 F e b - 8 6 1 1 : 4 3 : 0 5 "
0000300 ) \r ( F I L E C R E A T E D "
0000320 1 1 - F e b - 8 6 2 3 : 3 3 :
0000340 5 6 " { Q V } < I D L > S O U
0000360 R C E S > S C A L A R A R I T H
0000400 . ; 1 2 2 8 8 6 c h a n g e
0000420 s t o : ( F N S 1 0 F I X
0000440 R ) ( V A R S \r S C A L A R
0000460 A R I T H C O M S ) p r e v i
0000500 o u s d a t e : " 4 - S e
0000520 p - 8 5 1 3 : 0 5 : 1 2 " {
0000540 Q V } < I D L > S O U R C E S >
0000560 S C A L A R A R I T H . ; 1 1 )
0000600 \r U - D 1 \r ( I 1 Y I
0000620 0 X ) \0 P \0 \0 \0 002 @ d 005 001 245
0000640 d 005 002 241 005 003 253 @ 231 g \0 \0 g \0 \0 \n
0000660 \0 \0 277 A d 005 001 245 d 005 002 241 005 003 253 A
0000700 231 g \0 \0 g \0 \0 \n \0 \0 277 @ 264 \b A 264
0000720 005 @ A 325 d d 005 001 245 d 005 002 241 005 003 241
0000740 d 240 020 g \0 \0 \n \0 \0 020 \0 ( 1 1 5 Q
0000760 V A L U E E R R O R 5 6 Q
0001000 A S S E R T F A U L T 2 6 Q
0001020 A S S E R T F A U L T ) \r ( 1 1
0001040 2 Q S C A L A R 5 3 Q Y
0001060 5 0 Q S C A L A R 2 3 Q X
0001100 2 0 Q S C A L A R ) \r ( ) \r
0001120 U E Q P D 1 \r ( I 1 Y I
0001140 0 X ) \0 4 \0 \0 \0 002 @ 3 020 253
0001160 @ 231 g \0 \0 g \0 \0 \n \0 \0 277 A 3 020 253
0001200 A 231 g \0 \0 g \0 \0 \n \0 \0 277 @ A \n \0
0001220 \0 d 223 d i 360 220 020 g \0 \0 \n \0 \0 020 \0
0001240 ( 6 1 Q V A L U E E R R O R
0001260 4 4 Q E Q P 3 6 Q A S S E
0001300 R T F A U L T 1 6 Q A S S E
0001320 R T F A U L T ) \r ( 5 6 Q B O
0001340 O L 3 3 Q Y 3 0 Q S C A
0001360 L A R 1 3 Q X 1 0 Q S C
0001400 A L A R ) \r ( ) \r U G R E A T E
0001420 R P D 1 \r ( I 1 Y I 0
0001440 X ) \0 N \0 \0 \0 002 @ d 005 001 245 d
0001460 005 002 241 005 003 253 @ 231 g \0 \0 g \0 \0 \n \0
0001500 \0 277 A d 005 001 245 d 005 002 241 005 003 253 A 231
0001520 g \0 \0 g \0 \0 \n \0 \0 277 @ 265 006 o \0 \0
0001540 \0 A 265 006 o \0 \0 \0 363 d 223 d i 360 220 020
0001560 g \0 \0 \n \0 \0 020 \0 ( 1 1 3 Q V A
0001600 L U E E R R O R 5 6 Q A S S
0001620 E R T F A U L T 2 6 Q A S S
0001640 E R T F A U L T ) \r ( 1 1 0 Q
0001660 B O O L 5 3 Q Y 5 0 Q S
0001700 C A L A R 2 3 Q X 2 0 Q
0001720 S C A L A R ) \r ( 7 5 Q 0 .
0001740 0 6 6 Q 0 . 0 ) \r U L E S S
0001760 P D 1 \r ( I 1 Y I 0
0002000 X ) \0 O \0 \0 \0 002 @ d 005 001 245 d 005
0002020 002 241 005 003 253 @ 231 g \0 \0 g \0 \0 \n \0 \0
0002040 277 A d d 005 001 245 d 005 002 241 005 003 263 024 234
0002060 g \0 \0 g \0 \0 \n \0 \0 277 A 265 006 o \0 \0
0002100 \0 @ 265 006 o \0 \0 \0 363 d 223 d i 360 220 020
0002120 g \0 \0 \n \0 \0 020 \0 ( 1 1 4 Q V A
0002140 L U E E R R O R 5 7 Q A S S
0002160 E R T F A U L T 2 6 Q A S S
0002200 E R T F A U L T ) \r ( 1 1 1 Q
0002220 B O O L 5 4 Q Y 5 1 Q S
0002240 C A L A R 2 3 Q X 2 0 Q
0002260 S C A L A R ) \r ( 7 6 Q 0 .
0002300 0 6 7 Q 0 . 0 ) \r U + D 1
0002320 \r ( I 1 Y I 0 X ) \0
0002340 P \0 \0 \0 002 @ d 005 001 245 d 005 002 241 005 003
0002360 253 @ 231 g \0 \0 g \0 \0 \n \0 \0 277 A d 005
0002400 001 245 d 005 002 241 005 003 253 A 231 g \0 \0 g \0
0002420 \0 \n \0 \0 277 @ 264 \b A 264 005 @ A 324 d d
0002440 005 001 245 d 005 002 241 005 003 241 d 240 020 g \0 \0
0002460 \n \0 \0 020 \0 ( 1 1 5 Q V A L U E
0002500 E R R O R 5 6 Q A S S E R T
0002520 F A U L T 2 6 Q A S S E R T
0002540 F A U L T ) \r ( 1 1 2 Q S C A
0002560 L A R 5 3 Q Y 5 0 Q S C
0002600 A L A R 2 3 Q X 2 0 Q S
0002620 C A L A R ) \r ( ) \r U / D 1 \r
0002640 ( I 1 Y I 0 X ) \0 Q
0002660 \0 \0 \0 002 @ d 005 001 245 d 005 002 241 005 003 253
0002700 @ 231 g \0 \0 g \0 \0 \n \0 \0 277 A d 005 001
0002720 245 d 005 002 241 005 003 253 A 231 g \0 \0 g \0 \0
0002740 \n \0 \0 277 @ 264 020 A d 232 j \n \0 \0 h 360
0002760 264 005 @ A 353 d 223 d 005 003 220 020 o \0 \0 \0
0003000 \n \0 \0 020 \0 ( 1 1 6 Q V A L U E
0003020 E R R O R 7 1 Q E Q P 5 6
0003040 Q A S S E R T F A U L T 2 6
0003060 Q A S S E R T F A U L T ) \r (
0003100 5 3 Q Y 5 0 Q S C A L A R
0003120 2 3 Q X 2 0 Q S C A L A
0003140 R ) \r ( 1 1 3 Q ( O N E O F
0003160 N I L F L O A T I N G ) ) \r
0003200 U * D 1 \r ( I 1 Y I 0
0003220 X ) \0 P \0 \0 \0 002 @ d 005 001 245 d
0003240 005 002 241 005 003 253 @ 231 g \0 \0 g \0 \0 \n \0
0003260 \0 277 A d 005 001 245 d 005 002 241 005 003 253 A 231
0003300 g \0 \0 g \0 \0 \n \0 \0 277 @ 264 \b A 264 005
0003320 @ A 326 d d 005 001 245 d 005 002 241 005 003 241 d
0003340 240 020 g \0 \0 \n \0 \0 020 \0 ( 1 1 5 Q
0003360 V A L U E E R R O R 5 6 Q A
0003400 S S E R T F A U L T 2 6 Q A
0003420 S S E R T F A U L T ) \r ( 1 1 2
0003440 Q S C A L A R 5 3 Q Y 5
0003460 0 Q S C A L A R 2 3 Q X
0003500 2 0 Q S C A L A R ) \r ( ) \r (
0003520 P R E T T Y C O M P R I N T S
0003540 C A L A R A R I T H C O M S ) \r
0003560 ( R P A Q Q S C A L A R A R I
0003600 T H C O M S ( ( * C o n t a
0003620 i n s p o l y m o r p h i c
0003640 a r i t h m e t i c f o r s
0003660 c a l a r s . ) ( F N S U -
0003700 U E Q P U G R E A T E R P
0003720 U L E S S P \r U + U / U *
0003740 ) ( I F : T E S T S Y S (
0003760 P R O P C L I S P W O R D u
0004000 a d d U A D D ) ( P R O P
0004020 C H A N G E W O R D u a d d )
0004040 ) ) ) \r ( D E C L A R E : E V
0004060 A L @ L O A D W H E N T E S T
0004100 S Y S ( P U T P R O P S u a
0004120 d d C L I S P W O R D ( C H
0004140 A N G E T R A N . u a d d )
0004160 ) ( P U T P R O P S U A D D
0004200 C L I S P W O R D \r ( C H A
0004220 N G E T R A N . u a d d ) )
0004240 ( P U T P R O P S u a d d
0004260 C H A N G E W O R D ( L A M B
0004300 D A ( F ) ( L I S T ( Q U
0004320 O T E D A T U M _ ) ( L I S
0004340 T ( Q U O T E U + ) ( \r Q
0004360 U O T E D A T U M ) ( C A D
0004400 D R F ) ) ) ) ) ) \r ( P U T P
0004420 R O P S S C A L A R A R I T H
0004440 C O P Y R I G H T ( " X e r
0004460 o x C o r p o r a t i o n "
0004500 1 9 8 3 1 9 8 4 1 9 8 5 1
0004520 9 8 6 ) ) \r N I L \r
0004532