$ od -c -N 50000 [qv]<IDL>RELEASE0.1>ARITHMETIC.FDCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - S e p - 8 5 2 2 : 1 6 : 1 6
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 > A R I T H M E T I C . ; 9
0000120 ) " 1 6 - A u g - 8 5 0 6 :
0000140 2 0 : 2 6 " \r b c o m p l ' d
0000160 i n " I D L - T e s t - S y
0000200 s o u t 5 - S e p - 8 5 .
0000220 . . " d a t e d " 5 - S e
0000240 p - 8 5 2 1 : 3 3 : 2 8 " ) \r
0000260 ( F I L E C R E A T E D " 4
0000300 - S e p - 8 5 1 3 : 1 1 : 5 4
0000320 " { Q V } < I D L > S O U R C
0000340 E S > A R I T H M E T I C . ; 9
0000360 6 1 4 2 c h a n g e s t o
0000400 : ( V A R S A R I T H M E T
0000420 I C C O M S \r ) p r e v i o u
0000440 s d a t e : " 3 - S e p -
0000460 8 5 1 7 : 2 8 : 3 1 " { Q V
0000500 } < I D L > S O U R C E S > A R
0000520 I T H M E T I C . ; 8 ) \r P L U
0000540 S P A 0 0 0 1 D 1 \r ( N A M E
0000560 U E R R O R S E T P 2 X
0000600 I 1 U R E S E T V A R S L
0000620 S T I 0 U E R R O R N A M
0000640 E F 3 X ) \0 026 003 001 \0 002 S
0000660 d 021 002 001 I \t \0 \0 022 021 001 002 J d 223 j
0000700 \n \0 \0 020 \0 ( 2 3 Q G R E A T E
0000720 R P . L I S P 1 0 Q C O N V
0000740 . S C A L A R ) \r N I L \r ( ) \r
0000760 P L U S P D 1 \r ( I 0 X
0001000 F 0 R E S E T V A R S L S T
0001020 ) \0 \n \0 001 \0 001 o \0 \0 \0 P \n \0 \0
0001040 020 \0 ( 7 P L U S P A 0 0 0 1 )
0001060 \r N I L \r ( 3 031 ( P R O G N
0001100 ( A D D S P E L L ( Q U O T
0001120 E P L U S P ) 1 ) ( A D D
0001140 S P E L L ( Q U O T E P L U
0001160 S P ) 2 ) ( Q U O T E P L
0001200 U S P ) ) ) \r R O U N D A 0 0 0
0001220 1 A 0 0 0 2 A 0 0 0 3 D 1 \r (
0001240 N A M E U E R R O R S E T I
0001260 1 U R E S E T V A R S L S T
0001300 I 0 U E R R O R N A M E
0001320 F 2 V A L F 3 I N T E
0001340 R V A L ) \0 5 002 002 \0 002 R d 021 002
0001360 001 I \t \0 \0 022 S d 021 002 001 I \t \0 \0 022
0001400 021 002 001 I 241 k 271 H 264 027 I H I 353 j H
0001420 363 224 o \0 \0 \0 203 o \0 \0 \0 350 j 330 326 020
0001440 \0 ( 2 2 Q C O N V . S C A L A
0001460 R 1 0 Q C O N V . S C A L A
0001500 R ) \r N I L \r ( 5 6 Q . 5
0001520 5 1 Q - . 5 ) \r R O U N D A 0
0001540 0 0 1 A 0 0 0 2 D 1 \r ( I 1
0001560 I N T E R V A L I 0 V A
0001600 L F 0 R E S E T V A R S L
0001620 S T ) \0 \n \0 001 \0 002 o \0 \0 \0 P \n
0001640 \0 \0 020 \0 ( 7 R O U N D A 0 0 0
0001660 1 A 0 0 0 2 A 0 0 0 3 ) \r N I L
0001700 \r ( 3 031 ( P R O G N ( A D
0001720 D S P E L L ( Q U O T E R O
0001740 U N D ) 1 ) ( A D D S P E L
0001760 L ( Q U O T E R O U N D )
0002000 2 ) ( Q U O T E R O U N D )
0002020 ) ) \r R O U N D A 0 0 0 1 D 1
0002040 \r ( N A M E U E R R O R S E T
0002060 I 1 U R E S E T V A R S L
0002100 S T I 0 U E R R O R N A M
0002120 E F 0 V A L F 1 I N
0002140 T E R V A L ) \0 016 \0 002 \0 002 g \0
0002160 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q
0002200 E A P P L Y . C A L L E R ) \r
0002220 ( 2 R O U N D A 0 0 0 1 A 0 0
0002240 0 2 ) \r ( 6 ( 0 0 ) ) \r R
0002260 O U N D D 1 \r ( I 1 I N T
0002300 E R V A L I 0 V A L F
0002320 0 R E S E T V A R S L S T )
0002340 \0 \n \0 001 \0 002 o \0 \0 \0 P \n \0 \0 020 \0
0002360 ( 7 R O U N D A 0 0 0 1 ) \r N
0002400 I L \r ( 3 031 ( P R O G N (
0002420 A D D S P E L L ( Q U O T E
0002440 R O U N D ) 1 ) ( A D D S P
0002460 E L L ( Q U O T E R O U N D
0002500 ) 2 ) ( Q U O T E R O U N
0002520 D ) ) ) \r S A M E A 0 0 0 1 A 0
0002540 0 0 2 A 0 0 0 3 D 1 \r ( N A M
0002560 E U E R R O R S E T I 1
0002600 U R E S E T V A R S L S T I
0002620 0 U E R R O R N A M E F 2
0002640 A F 3 B ) \0 035 002 002 \0 002
0002660 R d 021 002 001 I \t \0 \0 022 S d 021 002 001 I
0002700 \t \0 \0 022 \n \0 \0 221 k 020 j 020 \0 ( 2 6
0002720 Q E Q P 2 2 Q C O N V . S
0002740 C A L A R 1 0 Q C O N V . S
0002760 C A L A R ) \r N I L \r ( ) \r S A
0003000 M E A 0 0 0 1 A 0 0 0 2 D 1 \r
0003020 ( I 1 B I 0 A F 0
0003040 R E S E T V A R S L S T ) \0
0003060 \n \0 001 \0 002 o \0 \0 \0 P \n \0 \0 020 \0 (
0003100 7 S A M E A 0 0 0 1 A 0 0 0 2
0003120 A 0 0 0 3 ) \r N I L \r ( 3 031
0003140 ( P R O G N ( A D D S P E L L
0003160 ( Q U O T E S A M E ) 1 )
0003200 ( A D D S P E L L ( Q U O T
0003220 E S A M E ) 2 ) ( Q U O T
0003240 E S A M E ) ) ) \r S A M E A 0
0003260 0 0 1 D 1 \r ( N A M E U E R
0003300 R O R S E T I 1 U R E S E
0003320 T V A R S L S T I 0 U E R
0003340 R O R N A M E F 0 A F
0003360 1 B ) \0 016 \0 002 \0 002 g \0 \0 o \0
0003400 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q E A
0003420 P P L Y . C A L L E R ) \r ( 2
0003440 S A M E A 0 0 0 1 A 0 0 0 2 ) \r
0003460 ( 6 ( 0 0 ) ) \r S A M E
0003500 D 1 \r ( I 1 B I 0 A
0003520 F 0 R E S E T V A R S L S T
0003540 ) \0 \n \0 001 \0 002 o \0 \0 \0 P \n \0 \0
0003560 020 \0 ( 7 S A M E A 0 0 0 1 ) \r
0003600 N I L \r ( 3 031 ( P R O G N
0003620 ( A D D S P E L L ( Q U O T E
0003640 S A M E ) 1 ) ( A D D S P
0003660 E L L ( Q U O T E S A M E )
0003700 2 ) ( Q U O T E S A M E )
0003720 ) ) \r S C A L A R P A 0 0 0 1
0003740 D 1 \r ( N A M E U E R R O R S
0003760 E T P 0 S I 1 U R E
0004000 S E T V A R S L S T I 0 U
0004020 E R R O R N A M E F 1 S )
0004040 \0 023 001 001 \0 002 Q 021 001 \0 H 3 020 247 H
0004060 225 H \t \0 \0 264 003 i 020 \0 ( 1 5 Q V
0004100 S C A L A R P ) \r N I L \r ( ) \r
0004120 S C A L A R P D 1 \r ( I 0
0004140 S F 0 R E S E T V A R S L
0004160 S T ) \0 \n \0 001 \0 001 o \0 \0 \0 P \n
0004200 \0 \0 020 \0 ( 7 S C A L A R P A 0
0004220 0 0 1 ) \r N I L \r ( 3 031 ( P
0004240 R O G N ( A D D S P E L L (
0004260 Q U O T E S C A L A R P ) 1
0004300 ) ( A D D S P E L L ( Q U O
0004320 T E S C A L A R P ) 2 ) (
0004340 Q U O T E S C A L A R P ) ) )
0004360 \r T R A N S L A T E A 0 0 0 1 A
0004400 0 0 0 2 A 0 0 0 3 A 0 0 0 4 D
0004420 1 \r ( N A M E U E R R O R S E
0004440 T I 1 U R E S E T V A R S
0004460 L S T I 0 U E R R O R N A
0004500 M E F 0 U A R G F 1
0004520 T A B L E ) \0 \t \0 002 \0 002 P \t \0
0004540 \0 c 002 h 020 \0 ( 3 C O N V . V E
0004560 C T O R ) \r N I L \r ( ) \r T R A
0004600 N S L A T E A 0 0 0 1 A 0 0 0 2
0004620 A 0 0 0 3 A 0 0 0 5 D 1 \r ( N
0004640 A M E U E R R O R S E T I
0004660 1 U R E S E T V A R S L S T
0004700 I 0 U E R R O R N A M E F
0004720 0 U A R G F 1 T A B L
0004740 E ) \0 023 \0 002 \0 002 P \t \0 \0 c 002 g
0004760 \0 \0 \n \0 \0 242 \b \0 \0 h 020 \0 ( 1 7 Q
0005000 U E R R O R ! 1 3 Q A R R
0005020 A Y T Y P E P 3 C O N V . A
0005040 R R A Y ) \r ( 1 0 Q M A T R I
0005060 X ) \r ( ) \r T R A N S L A T E A
0005100 0 0 0 1 A 0 0 0 2 A 0 0 0 3 D
0005120 1 \r ( N A M E U E R R O R S E
0005140 T P 1 3 Q T E L T P 1
0005160 2 Q G S B P 1 1 Q T T Y
0005200 P E P 1 0 Q I P 6 D
0005220 E F A U L T P 5 T A B L E
0005240 P 4 S P 3 U A R G
0005260 P 2 T A B L E I 1 U R
0005300 E S E T V A R S L S T I 0
0005320 U E R R O R N A M E F 1 4 Q
0005340 R E S E T V A R S L S T F
0005360 1 5 Q S F 1 6 Q T A B L
0005400 E F 1 7 Q T R A N S L A T
0005420 E N A R G S F 2 0 Q D E F
0005440 A U L T ) 001 216 \f 005 \0 002 W 032 d 021
0005460 002 001 I \t \0 \0 022 W 034 d 021 002 003 J g \0
0005500 \0 \n \0 \0 263 < J g \0 \0 \n \0 \0 263 3 g
0005520 \0 \0 W 030 \n \0 \0 262 ) g \0 \0 W 030 \n \0
0005540 \0 262 037 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0
0005560 277 K i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277
0005600 J 022 W d 021 002 001 I \t \0 \0 022 021 023 \a
0005620 j M 006 \0 \0 311 002 006 \0 \0 310 005 k 360 221 k
0005640 212 M 006 \0 \0 311 002 l 002 \n \0 \0 M g \0 \0
0005660 o \0 \0 \0 \v \0 \0 021 023 \v O 024 006 \0 \0 310
0005700 \0 _ 016 j 360 222 261 \0 347 O 016 005 003 230 O 016
0005720 \t \0 \0 222 261 \0 331 M O 024 \t \0 \0 \n \0 \0
0005740 _ 026 277 O 022 d k 360 262 025 277 O 020 k 324 _
0005760 020 277 L O 026 \n \0 \0 262 302 O 020 020 l 002 360
0006000 262 034 L O 026 \n \0 \0 231 M O 024 \t \0 \0 \n
0006020 \0 \0 020 O 024 k \n \0 \0 277 260 240 O 022 l 003
0006040 360 262 s L 262 M O 026 265 036 M O 024 \t \0 \0
0006060 \n \0 \0 _ 026 225 L O 026 363 262 317 O 024 k \n
0006100 \0 \0 277 261 377 w L 363 232 O 024 l 002 \n \0 \0
0006120 277 261 377 i M O 024 \t \0 \0 \n \0 \0 _ 026 262
0006140 252 L O 026 363 262 244 O 024 k \n \0 \0 277 261 377
0006160 L O 026 232 O 024 l 002 \n \0 \0 277 261 377 > M
0006200 O 024 \t \0 \0 \n \0 \0 262 201 O 024 k \n \0 \0
0006220 277 261 377 ) \b \0 \0 235 o \0 \0 \0 i \n \0 \0
0006240 277 i \t \0 \0 277 \b \0 \0 277 261 377 020 N 265 \n
0006260 l 003 W 036 361 264 003 L 020 \0 ( 5 7 4 Q
0006300 U E R R O R ! 5 7 0 Q T E R
0006320 P R I 5 6 3 Q P R I N 1 5
0006340 5 2 Q U E R R O R P R I N T ?
0006360 5 4 3 Q S K I P 5 3 3 Q
0006400 G E T A E L T 5 3 0 Q N E X
0006420 T 5 1 6 Q S K I P 5 0 0 Q
0006440 S K I P 4 6 0 Q G E T A E
0006460 L T 4 5 5 Q N E X T 4 4 3
0006500 Q S K I P 4 2 5 Q S K I P
0006520 4 0 6 Q G E T A E L T 4 0
0006540 3 Q N E X T 3 5 4 Q S K I
0006560 P 3 4 5 Q C O P Y A E L T
0006600 3 4 2 Q N E X T 3 3 3 Q U
0006620 E Q P 3 1 3 Q U E Q P 2 6
0006640 3 Q G E T A E L T 2 6 0 Q
0006660 N E X T 2 4 6 Q \ F Z E R O
0006700 P 2 1 2 Q S E T U P 1 7 7
0006720 Q G E T R E L T 1 3 7 Q C
0006740 O N V . S C A L A R 1 2 2 Q
0006760 U E R R O R ! 1 1 6 Q T E R
0007000 P R I 1 1 1 Q P R I N 2 1
0007020 0 3 Q P R I N 1 7 1 Q U E
0007040 R R O R P R I N T ? 6 4 Q T
0007060 R A N S L A T E A 0 0 0 1 A 0 0
0007100 0 2 A 0 0 0 3 A 0 0 0 5 5 2 Q
0007120 T R A N S L A T E A 0 0 0 1 A
0007140 0 0 0 2 A 0 0 0 3 A 0 0 0 4 4
0007160 0 Q A R R A Y T Y P E P 2 7
0007200 Q A R R A Y T Y P E P 1 1 Q
0007220 C O N V . S C A L A R ) \r ( 2
0007240 2 2 Q G E N S T A T E B L O C
0007260 K 2 0 3 Q R O W M A J O R
0007300 1 7 0 Q A R R A Y F R A M E
0007320 1 5 5 Q R O W H E A D E R 1
0007340 5 0 Q A R R A Y F R A M E 5
0007360 7 Q U E R R O R G U A R D 4
0007400 5 Q U E R R O R G U A R D 3
0007420 5 Q M A T R I X 2 4 Q V E
0007440 C T O R ) \r ( 5 5 7 Q " I n
0007460 v a l i d s i z e t r a n s
0007500 l a t i o n t a b l e " 2 0
0007520 7 Q 031 ( N C R E A T E ( Q U
0007540 O T E G E N S T A T E B L O C
0007560 K ) ) 7 7 Q " I n v a l i d
0007600 T A B L E : " ) \r T R A N
0007620 S L A T E A 0 0 0 1 A 0 0 0 2
0007640 D 1 \r ( I 2 D E F A U L T
0007660 I 1 T A B L E I 0 S
0007700 F 0 R E S E T V A R S L S T
0007720 ) \0 \n \0 001 \0 003 o \0 \0 \0 P \n \0 \0
0007740 020 \0 ( 7 T R A N S L A T E A 0
0007760 0 0 1 A 0 0 0 2 A 0 0 0 3 ) \r N
0010000 I L \r ( 3 031 ( P R O G N (
0010020 A D D S P E L L ( Q U O T E
0010040 T R A N S L A T E ) 1 ) ( A
0010060 D D S P E L L ( Q U O T E T
0010100 R A N S L A T E ) 2 ) ( Q U
0010120 O T E T R A N S L A T E ) ) )
0010140 \r T R A N S L A T E A 0 0 0 1
0010160 D 1 \r ( N A M E U E R R O R S
0010200 E T I 1 U R E S E T V A R
0010220 S L S T I 0 U E R R O R N
0010240 A M E F 0 T R A N S L A T
0010260 E N A R G S ) \0 E \0 001 \0 002 P k
0010300 361 263 030 \b \0 \0 235 o \0 \0 \0 i \n \0 \0 277
0010320 i \t \0 \0 277 \b \0 \0 277 g \0 \0 o \0 \0 \0
0010340 g \0 \0 k \n \0 \0 g \0 \0 l 002 \n \0 \0 P
0010360 l 002 361 264 \n g \0 \0 l 003 \n \0 \0 \r 005 \0
0010400 \0 020 \0 ( 1 0 2 Q E A P P L Y .
0010420 C A L L E R 7 6 Q A R G 6
0010440 0 Q A R G 5 0 Q A R G 3
0010460 1 Q U E R R O R ! 2 5 Q T
0010500 E R P R I 2 0 Q P R I N 1
0010520 7 U E R R O R P R I N T ? ) \r
0010540 ( 7 1 Q T R A N S L A T E N A
0010560 R G S 5 3 Q T R A N S L A T
0010600 E N A R G S 4 4 Q T R A N S
0010620 L A T E N A R G S 3 5 Q T R
0010640 A N S L A T E A 0 0 0 1 A 0 0 0
0010660 2 ) \r ( 4 1 Q ( 0 2 0 )
0010700 1 4 Q " M i s s i n g t r
0010720 a n s l a t i o n t a b l e "
0010740 ) \r T R A N S L A T E D 1 \r (
0010760 P 0 T R A N S L A T E N A R
0011000 G S F 1 R E S E T V A R S
0011020 L S T ) \0 016 001 001 002 \0 e 021 001 \0 o
0011040 \0 \0 \0 Q \n \0 \0 020 \0 ( 1 3 Q T R
0011060 A N S L A T E A 0 0 0 1 ) \r N I
0011100 L \r ( 7 031 ( P R O G N ( A
0011120 D D S P E L L ( Q U O T E T
0011140 R A N S L A T E ) 1 ) ( A D
0011160 D S P E L L ( Q U O T E T R
0011200 A N S L A T E ) 2 ) ( Q U O
0011220 T E T R A N S L A T E ) ) ) \r
0011240 ( P R E T T Y C O M P R I N T
0011260 A R I T H M E T I C C O M S ) \r
0011300 ( R P A Q Q A R I T H M E T I
0011320 C C O M S ( ( * N e w I D
0011340 L f u n c t i o n s t h a t
0011360 o p e r a t e o n a n d
0011400 p r o d u c e a r i t h m e t
0011420 i c v a l u e s . ) ( F N S
0011440 P L U S P \r R O U N D S A
0011460 M E S C A L A R P T R A N S
0011500 L A T E ) ( P R O P A R G N
0011520 A M E S T R A N S L A T E )
0011540 ( V A R S ( E 2 . 7 1 8 2 8
0011560 2 ) ( P I 3 . 1 4 1 5 9 4 )
0011600 ) ( D E C L A R E : \r D O N
0011620 T E V A L @ L O A D D O E V A
0011640 L @ C O M P I L E D O N T C O
0011660 P Y C O M P I L E R V A R S
0011700 ( A D D V A R S ( N L A M A )
0011720 ( N L A M L ) ( L A M A T
0011740 R A N S L A T E ) ) ) ) ) \r ( P
0011760 U T P R O P S T R A N S L A T
0012000 E A R G N A M E S ( N I L
0012020 ( S T A B L E D E F A U L T
0012040 ) . T R A N S L A T E N A R
0012060 G S ) ) \r ( R P A Q Q E 2 .
0012100 7 1 8 2 8 2 ) \r ( R P A Q Q P
0012120 I 3 . 1 4 1 5 9 4 ) \r ( P U T
0012140 P R O P S A R I T H M E T I C
0012160 C O P Y R I G H T ( " X e r
0012200 o x C o r p o r a t i o n "
0012220 1 9 8 3 1 9 8 4 1 9 8 5 ) )
0012240 \r N I L \r
0012245