$ od -c -N 50000 [qv]<IDL>FAST>USERARITH.FDCOM!2
0000000 ( F I L E C R E A T E D " 3
0000020 - A p r - 8 6 0 0 : 1 7 : 2 8
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 > U S E R A R I T H . ; 2 6
0000120 ) " 1 2 - N o v - 8 5 1 4 :
0000140 5 9 : 2 3 " \r t c o m p l ' d
0000160 i n " I N T E R L I S P - D
0000200 7 - F e b - 8 6 . . . "
0000220 d a t e d " 7 - F e b - 8 6
0000240 1 1 : 4 3 : 0 5 " ) \r ( F I L
0000260 E C R E A T E D " 2 - A p r
0000300 - 8 6 2 3 : 2 1 : 3 2 " { Q
0000320 V } < I D L > S O U R C E S > U
0000340 S E R A R I T H . ; 2 6 1 8 6
0000360 4 6 c h a n g e s t o : (
0000400 F N S I D L C O S I D L L O
0000420 G \r I D L A N T I L O G I D
0000440 L A B S I D L M I N U S I D
0000460 L S Q R T ) p r e v i o u s
0000500 d a t e : " 1 6 - F e b - 8 6
0000520 1 7 : 1 6 : 1 3 " { Q V } <
0000540 I D L > S O U R C E S > U S E R
0000560 A R I T H . ; 2 5 \r ) \r ( R P A
0000600 Q Q U S E R A R I T H F N S
0000620 ( I D L A B S I D L A N T I L
0000640 O G I D L A R C C O S I D L
0000660 A R C S I N I D L A R C T A N
0000700 I D L A R C T A N 2 I D L C
0000720 O S I D L D I F F E R E N C E
0000740 \r I D L E Q P I D L E X P T
0000760 I D L G C D I D L G R E A T
0001000 E R P I D L L E S S P I D L
0001020 L O G I D L M A X I D L M I
0001040 N I D L M I N U S I D L M I
0001060 N U S P I D L P L U S I D L
0001100 Q U O T I E N T \r I D L R A N
0001120 D I D L R E M A I N D E R I
0001140 D L S I N I D L S Q R T I D
0001160 L T A N I D L T I M E S I D
0001200 L \ S L O W D I F F E R E N C E
0001220 I D L \ S L O W P L U S 2 I
0001240 D L \ S L O W Q U O T I E N T \r
0001260 I D L \ S L O W T I M E S 2 )
0001300 ) \r I D L A B S A 0 0 0 1 A 0 0
0001320 0 2 D 1 \r ( I 0 X ) \0 \r
0001340 \0 \0 \0 001 @ \t \0 \0 b \0 d 222 \t \0 \0 020
0001360 \0 ( 1 2 Q A B S . L I S P 3
0001400 C O N V . S C A L A R ) \r N I
0001420 L \r ( ) \r I D L A B S A 0 0 0 1
0001440 D 1 \r ( N A M E U E R R O R
0001460 S E T I 1 U R E S E T V A
0001500 R S L S T I 0 U E R R O R
0001520 N A M E F 0 X ) \0 \r \0 001
0001540 \0 002 g \0 \0 o \0 \0 \0 P \v \0 \0 020 \0 (
0001560 1 2 Q E A P P L Y . C A L L E
0001600 R ) \r ( 2 I D L A B S A 0 0 0
0001620 1 A 0 0 0 2 ) \r ( 6 ( 0 ) )
0001640 \r I D L A B S D 1 \r ( I 0
0001660 X F 0 R E S E T V A R S L
0001700 S T ) \0 032 \0 001 \0 001 @ d 004 ` \0 \0
0001720 360 231 277 o \0 \0 \0 P \n \0 \0 020 264 006 @ \t
0001740 \0 \0 020 \0 ( 2 7 Q A B S . L I S
0001760 P 2 0 Q I D L A B S A 0 0 0
0002000 1 ) \r ( 5 004 003 A R R A Y F R A
0002020 M E T Y P E # ) \r ( 1 4 Q 031
0002040 ( P R O G N ( A D D S P E L L
0002060 ( Q U O T E A B S ) 1 )
0002100 ( A D D S P E L L ( Q U O T E
0002120 A B S ) 2 ) ( Q U O T E
0002140 A B S ) ) ) \r I D L A N T I L O
0002160 G A 0 0 0 1 A 0 0 0 2 D 1 \r (
0002200 I 0 X ) \0 \r \0 \0 \0 001 @ \t \0
0002220 \0 b \0 d 222 \t \0 \0 020 \0 ( 1 2 Q A
0002240 N T I L O G . L I S P 3 C O
0002260 N V . S C A L A R ) \r N I L \r (
0002300 ) \r I D L A N T I L O G A 0 0 0
0002320 1 D 1 \r ( N A M E U E R R O
0002340 R S E T I 1 U R E S E T V
0002360 A R S L S T I 0 U E R R O
0002400 R N A M E F 0 X ) \0 \r \0
0002420 001 \0 002 g \0 \0 o \0 \0 \0 P \v \0 \0 020 \0
0002440 ( 1 2 Q E A P P L Y . C A L L
0002460 E R ) \r ( 2 I D L A N T I L O
0002500 G A 0 0 0 1 A 0 0 0 2 ) \r ( 6
0002520 ( 0 ) ) \r I D L A N T I L O G
0002540 D 1 \r ( I 0 X F 0 R
0002560 E S E T V A R S L S T ) \0 032 \0
0002600 001 \0 001 @ d 004 ` \0 \0 360 231 277 o \0 \0 \0
0002620 P \n \0 \0 020 264 006 @ \t \0 \0 020 \0 ( 2 7
0002640 Q A N T I L O G . L I S P 2
0002660 0 Q I D L A N T I L O G A 0 0
0002700 0 1 ) \r ( 5 004 003 A R R A Y F R
0002720 A M E T Y P E # ) \r ( 1 4 Q
0002740 031 ( P R O G N ( A D D S P E L
0002760 L ( Q U O T E A N T I L O G
0003000 ) 1 ) ( A D D S P E L L (
0003020 Q U O T E A N T I L O G ) 2
0003040 ) ( Q U O T E A N T I L O G
0003060 ) ) ) \r I D L A R C C O S A 0 0
0003100 0 1 A 0 0 0 2 D 1 \r ( I 1
0003120 R A D I A N S F L G I 0 X
0003140 ) \0 020 \0 \0 \0 002 @ \t \0 \0 b \0 d 264
0003160 \a d A \n \0 \0 020 \0 ( 1 5 Q A R C
0003200 C O S . L I S P 3 C O N V .
0003220 S C A L A R ) \r N I L \r ( ) \r I
0003240 D L A R C C O S A 0 0 0 1 D 1
0003260 \r ( N A M E U E R R O R S E T
0003300 I 1 U R E S E T V A R S L
0003320 S T I 0 U E R R O R N A M
0003340 E F 0 X F 1 R A D I
0003360 A N S F L G ) \0 016 \0 002 \0 002 g \0
0003400 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q
0003420 E A P P L Y . C A L L E R ) \r
0003440 ( 2 I D L A R C C O S A 0 0 0
0003460 1 A 0 0 0 2 ) \r ( 6 ( 0 ) )
0003500 \r I D L A R C C O S D 1 \r ( I
0003520 1 R A D I A N S F L G I
0003540 0 X F 0 R E S E T V A R
0003560 S L S T ) \0 033 \0 001 \0 002 @ d 004 `
0003600 \0 \0 360 231 277 o \0 \0 \0 P \n \0 \0 020 264 \a
0003620 @ A \n \0 \0 020 \0 ( 3 0 Q A R C C
0003640 O S . L I S P 2 0 Q I D L A
0003660 R C C O S A 0 0 0 1 ) \r ( 5 004
0003700 003 A R R A Y F R A M E T Y P E #
0003720 ) \r ( 1 4 Q 031 ( P R O G N
0003740 ( A D D S P E L L ( Q U O T E
0003760 A R C C O S ) 1 ) ( A D D
0004000 S P E L L ( Q U O T E A R C
0004020 C O S ) 2 ) ( Q U O T E A
0004040 R C C O S ) ) ) \r I D L A R C S
0004060 I N A 0 0 0 1 A 0 0 0 2 D 1 \r
0004100 ( I 1 R A D I A N S F L G
0004120 I 0 X ) \0 020 \0 \0 \0 002 @ \t \0
0004140 \0 b \0 d 264 \a d A \n \0 \0 020 \0 ( 1 5
0004160 Q A R C S I N . L I S P 3
0004200 C O N V . S C A L A R ) \r N I L
0004220 \r ( ) \r I D L A R C S I N A 0 0
0004240 0 1 D 1 \r ( N A M E U E R R
0004260 O R S E T I 1 U R E S E T
0004300 V A R S L S T I 0 U E R R
0004320 O R N A M E F 0 X F 1
0004340 R A D I A N S F L G ) \0 016 \0
0004360 002 \0 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020
0004400 \0 ( 1 3 Q E A P P L Y . C A L
0004420 L E R ) \r ( 2 I D L A R C S I
0004440 N A 0 0 0 1 A 0 0 0 2 ) \r ( 6
0004460 ( 0 ) ) \r I D L A R C S I N
0004500 D 1 \r ( I 1 R A D I A N S F
0004520 L G I 0 X F 0 R E S
0004540 E T V A R S L S T ) \0 033 \0 001 \0
0004560 002 @ d 004 ` \0 \0 360 231 277 o \0 \0 \0 P \n
0004600 \0 \0 020 264 \a @ A \n \0 \0 020 \0 ( 3 0 Q
0004620 A R C S I N . L I S P 2 0 Q
0004640 I D L A R C S I N A 0 0 0 1 )
0004660 \r ( 5 004 003 A R R A Y F R A M E
0004700 T Y P E # ) \r ( 1 4 Q 031 ( P
0004720 R O G N ( A D D S P E L L (
0004740 Q U O T E A R C S I N ) 1 )
0004760 ( A D D S P E L L ( Q U O T
0005000 E A R C S I N ) 2 ) ( Q U
0005020 O T E A R C S I N ) ) ) \r I D
0005040 L A R C T A N A 0 0 0 1 A 0 0 0
0005060 2 D 1 \r ( I 1 R A D I A N
0005100 S F L G I 0 X ) \0 020 \0 \0
0005120 \0 002 @ \t \0 \0 b \0 d 264 \a d A \n \0 \0
0005140 020 \0 ( 1 5 Q A R C T A N . L I
0005160 S P 3 C O N V . S C A L A R
0005200 ) \r N I L \r ( ) \r I D L A R C T
0005220 A N A 0 0 0 1 D 1 \r ( N A M E
0005240 U E R R O R S E T I 1 U
0005260 R E S E T V A R S L S T I 0
0005300 U E R R O R N A M E F 0
0005320 X F 1 R A D I A N S F L G
0005340 ) \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0 P
0005360 Q \f \0 \0 020 \0 ( 1 3 Q E A P P L
0005400 Y . C A L L E R ) \r ( 2 I D L
0005420 A R C T A N A 0 0 0 1 A 0 0 0 2
0005440 ) \r ( 6 ( 0 ) ) \r I D L A R
0005460 C T A N D 1 \r ( I 1 R A D
0005500 I A N S F L G I 0 X F
0005520 0 R E S E T V A R S L S T )
0005540 \0 033 \0 001 \0 002 @ d 004 ` \0 \0 360 231 277 o
0005560 \0 \0 \0 P \n \0 \0 020 264 \a @ A \n \0 \0 020
0005600 \0 ( 3 0 Q A R C T A N . L I S
0005620 P 2 0 Q I D L A R C T A N A
0005640 0 0 0 1 ) \r ( 5 004 003 A R R A Y
0005660 F R A M E T Y P E # ) \r ( 1 4
0005700 Q 031 ( P R O G N ( A D D S P
0005720 E L L ( Q U O T E A R C T A
0005740 N ) 1 ) ( A D D S P E L L
0005760 ( Q U O T E A R C T A N ) 2
0006000 ) ( Q U O T E A R C T A N )
0006020 ) ) \r I D L A R C T A N 2 A 0 0
0006040 0 1 A 0 0 0 2 D 1 \r ( I 2
0006060 R A D I A N S F L G I 1 Y
0006100 I 0 X ) \0 032 \0 \0 \0 003 @ \t
0006120 \0 \0 b \0 A \t \0 \0 b 002 @ 264 \v d 264 \b
0006140 @ A B \v \0 \0 020 \0 ( 2 7 Q A R C
0006160 T A N 2 . L I S P 1 1 Q C O
0006200 N V . S C A L A R 3 C O N V
0006220 . S C A L A R ) \r N I L \r ( ) \r
0006240 I D L A R C T A N 2 A 0 0 0 1
0006260 D 1 \r ( N A M E U E R R O R S
0006300 E T I 1 U R E S E T V A R
0006320 S L S T I 0 U E R R O R N
0006340 A M E F 0 X F 1 Y
0006360 F 2 R A D I A N S F L G )
0006400 \0 020 \0 003 \0 002 g \0 \0 o \0 \0 \0 P Q R
0006420 \r 005 \0 \0 020 \0 ( 1 5 Q E A P P L
0006440 Y . C A L L E R ) \r ( 2 I D L
0006460 A R C T A N 2 A 0 0 0 1 A 0 0 0
0006500 2 ) \r ( 6 ( 0 0 ) ) \r I D
0006520 L A R C T A N 2 D 1 \r ( I 2
0006540 R A D I A N S F L G I 1
0006560 Y I 0 X F 0 R E S E
0006600 T V A R S L S T ) \0 % \0 001 \0 003
0006620 @ 004 ` \0 \0 360 246 A 004 ` \0 \0 360 230 o \0
0006640 \0 \0 P \n \0 \0 020 @ 264 \v A 264 \b @ A B
0006660 \v \0 \0 020 \0 ( 4 2 Q A R C T A N
0006700 2 . L I S P 2 5 Q I D L A R
0006720 C T A N 2 A 0 0 0 1 ) \r ( 1 3 Q
0006740 004 003 A R R A Y F R A M E T Y P
0006760 E # 4 004 003 A R R A Y F R A M
0007000 E T Y P E # ) \r ( 2 1 Q 031 (
0007020 P R O G N ( A D D S P E L L
0007040 ( Q U O T E A R C T A N 2 )
0007060 1 ) ( A D D S P E L L ( Q U
0007100 O T E A R C T A N 2 ) 2 )
0007120 ( Q U O T E A R C T A N 2 ) )
0007140 ) \r I D L C O S A 0 0 0 1 A 0 0
0007160 0 2 D 1 \r ( I 1 R A D I A
0007200 N S F L G I 0 X ) \0 020 \0
0007220 \0 \0 002 @ \t \0 \0 b \0 d 264 \a d A \n \0
0007240 \0 020 \0 ( 1 5 Q C O S . L I S P
0007260 3 C O N V . S C A L A R ) \r
0007300 N I L \r ( ) \r I D L C O S A 0 0
0007320 0 1 D 1 \r ( N A M E U E R R
0007340 O R S E T I 1 U R E S E T
0007360 V A R S L S T I 0 U E R R
0007400 O R N A M E F 0 X F 1
0007420 R A D I A N S F L G ) \0 016 \0
0007440 002 \0 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020
0007460 \0 ( 1 3 Q E A P P L Y . C A L
0007500 L E R ) \r ( 2 I D L C O S A 0
0007520 0 0 1 A 0 0 0 2 ) \r ( 6 ( 0
0007540 ) ) \r I D L C O S D 1 \r ( I
0007560 1 R A D I A N S F L G I 0
0007600 X F 0 R E S E T V A R S
0007620 L S T ) \0 033 \0 001 \0 002 @ d 004 ` \0
0007640 \0 360 231 277 o \0 \0 \0 P \n \0 \0 020 264 \a @
0007660 A \n \0 \0 020 \0 ( 3 0 Q C O S . L
0007700 I S P 2 0 Q I D L C O S A 0
0007720 0 0 1 ) \r ( 5 004 003 A R R A Y F
0007740 R A M E T Y P E # ) \r ( 1 4 Q
0007760 031 ( P R O G N ( A D D S P E
0010000 L L ( Q U O T E C O S ) 1
0010020 ) ( A D D S P E L L ( Q U O
0010040 T E C O S ) 2 ) ( Q U O T
0010060 E C O S ) ) ) \r I D L D I F F
0010100 E R E N C E A 0 0 0 1 A 0 0 0 2
0010120 A 0 0 0 3 A 0 0 0 4 A 0 0 0 5
0010140 D 1 \r ( I 1 Y I 0 X )
0010160 \0 027 \0 \0 \0 002 @ \t \0 \0 b \0 A \t \0
0010200 \0 b 002 @ 264 \b d 264 005 @ A 325 020 \0 ( 1
0010220 1 Q C O N V . S C A L A R 3
0010240 C O N V . S C A L A R ) \r N I
0010260 L \r ( ) \r I D L D I F F E R E N
0010300 C E A 0 0 0 1 A 0 0 0 2 A 0 0 0
0010320 3 A 0 0 0 4 D 1 \r ( N A M E
0010340 U E R R O R S E T I 1 U R
0010360 E S E T V A R S L S T I 0
0010400 U E R R O R N A M E F 0 X
0010420 F 1 Y ) \0 016 \0 002 \0 002 g \0
0010440 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q
0010460 E A P P L Y . C A L L E R ) \r
0010500 ( 2 I D L D I F F E R E N C E
0010520 A 0 0 0 1 A 0 0 0 2 A 0 0 0 3 A
0010540 0 0 0 4 A 0 0 0 5 ) \r ( 6 (
0010560 0 0 ) ) \r I D L D I F F E R E
0010600 N C E A 0 0 0 1 A 0 0 0 2 A 0 0
0010620 0 3 D 1 \r ( N A M E U E R R
0010640 O R S E T P 3 Y P 2
0010660 X I 1 U R E S E T V A R S
0010700 L S T I 0 U E R R O R N A
0010720 M E F 4 X F 5 Y F
0010740 6 R E S E T V A R S L S T )
0010760 \0 9 004 003 \0 002 T d 021 002 001 I \t \0 \0
0011000 022 U d 021 002 001 I \t \0 \0 022 021 002 003 J 004
0011020 ` \0 \0 360 246 K 004 ` \0 \0 360 230 o \0 \0 \0
0011040 V \n \0 \0 020 J 264 \b K 264 005 J K 325 020 \0
0011060 ( 5 4 Q I D L D I F F E R E N
0011100 C E A 0 0 0 1 A 0 0 0 2 A 0 0 0
0011120 3 A 0 0 0 4 2 2 Q C O N V .
0011140 S C A L A R 1 0 Q C O N V .
0011160 S C A L A R ) \r ( 4 2 Q 004 003 A
0011200 R R A Y F R A M E T Y P E # 3
0011220 3 Q 004 003 A R R A Y F R A M E T
0011240 Y P E # ) \r ( 5 0 Q 031 ( P R
0011260 O G N ( A D D S P E L L ( Q
0011300 U O T E D I F F E R E N C E )
0011320 1 ) ( A D D S P E L L ( Q
0011340 U O T E D I F F E R E N C E )
0011360 2 ) ( Q U O T E D I F F E
0011400 R E N C E ) ) ) \r I D L D I F F
0011420 E R E N C E A 0 0 0 1 A 0 0 0 2
0011440 D 1 \r ( I 1 Y I 0 X
0011460 F 0 R E S E T V A R S L S
0011500 T ) \0 \n \0 001 \0 002 o \0 \0 \0 P \n \0
0011520 \0 020 \0 ( 7 I D L D I F F E R E
0011540 N C E A 0 0 0 1 A 0 0 0 2 A 0 0
0011560 0 3 ) \r N I L \r ( 3 031 ( P R
0011600 O G N ( A D D S P E L L ( Q
0011620 U O T E I D L D I F F E R E N
0011640 C E ) 1 ) ( A D D S P E L L
0011660 ( Q U O T E I D L D I F F E
0011700 R E N C E ) 2 ) ( Q U O T E
0011720 I D L D I F F E R E N C E ) )
0011740 ) \r I D L D I F F E R E N C E A
0011760 0 0 0 1 D 1 \r ( N A M E U E
0012000 R R O R S E T I 1 U R E S
0012020 E T V A R S L S T I 0 U E
0012040 R R O R N A M E F 0 X F
0012060 1 Y ) \0 016 \0 002 \0 002 g \0 \0 o
0012100 \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q E
0012120 A P P L Y . C A L L E R ) \r ( 2
0012140 I D L D I F F E R E N C E A 0
0012160 0 0 1 A 0 0 0 2 ) \r ( 6 ( 0
0012200 0 ) ) \r I D L D I F F E R E N
0012220 C E D 1 \r ( I 1 Y I 0
0012240 X F 0 R E S E T V A R S
0012260 L S T ) \0 \n \0 001 \0 002 o \0 \0 \0 P
0012300 \n \0 \0 020 \0 ( 7 I D L D I F F E
0012320 R E N C E A 0 0 0 1 ) \r N I L \r
0012340 ( 3 031 ( P R O G N ( A D D
0012360 S P E L L ( Q U O T E I D L
0012400 D I F F E R E N C E ) 1 ) (
0012420 A D D S P E L L ( Q U O T E
0012440 I D L D I F F E R E N C E ) 2
0012460 ) ( Q U O T E I D L D I F F
0012500 E R E N C E ) ) ) \r I D L E Q P
0012520 A 0 0 0 1 A 0 0 0 2 D 1 \r ( N
0012540 A M E U E R R O R S E T I
0012560 1 U R E S E T V A R S L S T
0012600 I 0 U E R R O R N A M E F
0012620 0 X F 1 Y ) \0 020 \0 002
0012640 \0 002 P \t \0 \0 c \0 277 Q \t \0 \0 c 002 h
0012660 020 \0 ( 1 2 Q C O N V . S C A L
0012700 A R 3 C O N V . S C A L A R
0012720 ) \r N I L \r ( ) \r I D L E Q P A
0012740 0 0 0 1 D 1 \r ( N A M E U E
0012760 R R O R S E T I 1 U R E S
0013000 E T V A R S L S T I 0 U E
0013020 R R O R N A M E F 0 R E S
0013040 E T V A R S L S T F 1 X
0013060 F 2 Y ) \0 022 \0 003 \0 002 g \0 \0
0013100 P \n \0 \0 h 360 264 \a Q R \n \0 \0 020 \0 (
0013120 1 7 Q E Q P . L I S P 6 I
0013140 D L E Q P A 0 0 0 1 A 0 0 0 2 )
0013160 \r ( 2 U E R R O R G U A R D )
0013200 \r ( ) \r I D L E Q P D 1 \r ( I
0013220 1 Y I 0 X F 0 R
0013240 E S E T V A R S L S T ) \0 021 \0
0013260 001 \0 002 @ A \n \0 \0 265 \n o \0 \0 \0 P \n
0013300 \0 \0 020 \0 ( 1 6 Q I D L E Q P A
0013320 0 0 0 1 4 E Q P . L I S P )
0013340 \r N I L \r ( 1 2 Q 031 ( P R O
0013360 G N ( A D D S P E L L ( Q U
0013400 O T E E Q P ) 1 ) ( A D D
0013420 S P E L L ( Q U O T E E Q P
0013440 ) 2 ) ( Q U O T E E Q P )
0013460 ) ) \r I D L E X P T A 0 0 0 1 A
0013500 0 0 0 2 D 1 \r ( I 1 N I
0013520 0 A ) \0 031 \0 \0 \0 002 @ \t \0 \0
0013540 b \0 A \t \0 \0 b 002 @ 264 \n d 264 \a @ A
0013560 \n \0 \0 020 \0 ( 2 6 Q E X P T . L
0013600 I S P 1 1 Q C O N V . S C A
0013620 L A R 3 C O N V . S C A L A
0013640 R ) \r N I L \r ( ) \r I D L E X P
0013660 T A 0 0 0 1 D 1 \r ( N A M E
0013700 U E R R O R S E T I 1 U R
0013720 E S E T V A R S L S T I 0
0013740 U E R R O R N A M E F 0 A
0013760 F 1 N ) \0 016 \0 002 \0 002 g \0
0014000 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q
0014020 E A P P L Y . C A L L E R ) \r
0014040 ( 2 I D L E X P T A 0 0 0 1 A
0014060 0 0 0 2 ) \r ( 6 ( 0 0 ) )
0014100 \r I D L E X P T D 1 \r ( I 1
0014120 N I 0 A F 0 R E S
0014140 E T V A R S L S T ) \0 $ \0 001 \0
0014160 002 @ 004 ` \0 \0 360 246 A 004 ` \0 \0 360 230 o
0014200 \0 \0 \0 P \n \0 \0 020 @ 264 \n A 264 \a @ A
0014220 \n \0 \0 020 \0 ( 4 1 Q E X P T . L
0014240 I S P 2 5 Q I D L E X P T A
0014260 0 0 0 1 ) \r ( 1 3 Q 004 003 A R R
0014300 A Y F R A M E T Y P E # 4 004
0014320 003 A R R A Y F R A M E T Y P E #
0014340 ) \r ( 2 1 Q 031 ( P R O G N
0014360 ( A D D S P E L L ( Q U O T E
0014400 E X P T ) 1 ) ( A D D S P
0014420 E L L ( Q U O T E E X P T )
0014440 2 ) ( Q U O T E E X P T )
0014460 ) ) \r I D L G C D A 0 0 0 1 A 0
0014500 0 0 2 D 1 \r ( I 1 Y I
0014520 0 X ) \0 \r \0 \0 \0 002 @ 264 \n A 264
0014540 \a @ A \n \0 \0 020 \0 ( 1 2 Q G C D
0014560 . L I S P ) \r N I L \r ( ) \r I D
0014600 L G C D A 0 0 0 1 D 1 \r ( N A
0014620 M E U E R R O R S E T I 1
0014640 U R E S E T V A R S L S T I
0014660 0 U E R R O R N A M E F
0014700 0 X F 1 Y ) \0 016 \0 002 \0
0014720 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 (
0014740 1 3 Q E A P P L Y . C A L L E
0014760 R ) \r ( 2 I D L G C D A 0 0 0
0015000 1 A 0 0 0 2 ) \r ( 6 ( 0 0
0015020 ) ) \r I D L G C D D 1 \r ( I
0015040 1 Y I 0 X F 0 R E
0015060 S E T V A R S L S T ) \0 $ \0 001
0015100 \0 002 @ 004 ` \0 \0 360 246 A 004 ` \0 \0 360 230
0015120 o \0 \0 \0 P \n \0 \0 020 @ 264 \n A 264 \a @
0015140 A \n \0 \0 020 \0 ( 4 1 Q G C D . L
0015160 I S P 2 5 Q I D L G C D A 0
0015200 0 0 1 ) \r ( 1 3 Q 004 003 A R R A
0015220 Y F R A M E T Y P E # 4 004 003
0015240 A R R A Y F R A M E T Y P E # )
0015260 \r ( 2 1 Q 031 ( P R O G N (
0015300 A D D S P E L L ( Q U O T E
0015320 G C D ) 1 ) ( A D D S P E L
0015340 L ( Q U O T E G C D ) 2 )
0015360 ( Q U O T E G C D ) ) ) \r I
0015400 D L G R E A T E R P A 0 0 0 1 A
0015420 0 0 0 2 D 1 \r ( N A M E U E
0015440 R R O R S E T I 1 U R E S
0015460 E T V A R S L S T I 0 U E
0015500 R R O R N A M E F 0 X F
0015520 1 Y ) \0 020 \0 002 \0 002 P \t \0 \0
0015540 c \0 277 Q \t \0 \0 c 002 h 020 \0 ( 1 2 Q
0015560 C O N V . S C A L A R 3 C
0015600 O N V . S C A L A R ) \r N I L \r
0015620 ( ) \r I D L G R E A T E R P A 0
0015640 0 0 1 D 1 \r ( N A M E U E R
0015660 R O R S E T I 1 U R E S E
0015700 T V A R S L S T I 0 U E R
0015720 R O R N A M E F 0 X F
0015740 1 Y F 2 R E S E T V A R
0015760 S L S T ) \0 & \0 003 \0 002 g \0 \0 R
0016000 \n \0 \0 P 243 j c \0 277 Q 243 j c \0 277 P
0016020 d 3 231 277 Q 3 223 P Q 361 020 P Q 362
0016040 020 \0 ( 6 I D L G R E A T E R P
0016060 A 0 0 0 1 A 0 0 0 2 ) \r ( 2 U
0016100 E R R O R G U A R D ) \r ( ) \r I
0016120 D L G R E A T E R P D 1 \r ( I
0016140 1 Y I 0 X F 0 R
0016160 E S E T V A R S L S T ) \0 \n \0
0016200 001 \0 002 o \0 \0 \0 P \n \0 \0 020 \0 ( 7
0016220 I D L G R E A T E R P A 0 0 0 1
0016240 ) \r N I L \r ( 3 031 ( P R O G
0016260 N ( A D D S P E L L ( Q U O
0016300 T E G R E A T E R P ) 1 )
0016320 ( A D D S P E L L ( Q U O T E
0016340 G R E A T E R P ) 2 ) ( Q
0016360 U O T E G R E A T E R P ) ) )
0016400 \r I D L L E S S P A 0 0 0 1 A 0
0016420 0 0 2 D 1 \r ( N A M E U E R
0016440 R O R S E T I 1 U R E S E
0016460 T V A R S L S T I 0 U E R
0016500 R O R N A M E F 0 X F
0016520 1 Y ) \0 020 \0 002 \0 002 P \t \0 \0 c
0016540 \0 277 Q \t \0 \0 c 002 h 020 \0 ( 1 2 Q
0016560 C O N V . S C A L A R 3 C O
0016600 N V . S C A L A R ) \r N I L \r (
0016620 ) \r I D L L E S S P A 0 0 0 1
0016640 D 1 \r ( N A M E U E R R O R S
0016660 E T I 1 U R E S E T V A R
0016700 S L S T I 0 U E R R O R N
0016720 A M E F 0 R E S E T V A R
0016740 S L S T F 1 X F 2 Y
0016760 ) \0 023 \0 003 \0 002 g \0 \0 P \n \0 \0 Q
0017000 265 003 j R 265 003 j 375 363 020 \0 ( 6 I D
0017020 L L E S S P A 0 0 0 1 A 0 0 0 2
0017040 ) \r ( 2 U E R R O R G U A R D
0017060 ) \r ( ) \r I D L L E S S P D 1
0017100 \r ( I 1 Y I 0 X F
0017120 0 R E S E T V A R S L S T )
0017140 \0 \n \0 001 \0 002 o \0 \0 \0 P \n \0 \0 020 \0
0017160 ( 7 I D L L E S S P A 0 0 0 1
0017200 ) \r N I L \r ( 3 031 ( P R O G
0017220 N ( A D D S P E L L ( Q U O
0017240 T E L E S S P ) 1 ) ( A D
0017260 D S P E L L ( Q U O T E L E
0017300 S S P ) 2 ) ( Q U O T E L
0017320 E S S P ) ) ) \r I D L L O G A 0
0017340 0 0 1 A 0 0 0 2 D 1 \r ( I 0
0017360 X ) \0 \r \0 \0 \0 001 @ \t \0 \0 b \0
0017400 d 222 \t \0 \0 020 \0 ( 1 2 Q L O G .
0017420 L I S P 3 C O N V . S C A L
0017440 A R ) \r N I L \r ( ) \r I D L L O
0017460 G A 0 0 0 1 D 1 \r ( N A M E
0017500 U E R R O R S E T I 1 U R
0017520 E S E T V A R S L S T I 0
0017540 U E R R O R N A M E F 0 X
0017560 ) \0 \r \0 001 \0 002 g \0 \0 o \0 \0 \0 P
0017600 \v \0 \0 020 \0 ( 1 2 Q E A P P L Y
0017620 . C A L L E R ) \r ( 2 I D L L
0017640 O G A 0 0 0 1 A 0 0 0 2 ) \r (
0017660 6 ( 0 ) ) \r I D L L O G D 1
0017700 \r ( I 0 X F 0 R E S E
0017720 T V A R S L S T ) \0 032 \0 001 \0 001
0017740 @ d 004 ` \0 \0 360 231 277 o \0 \0 \0 P \n \0
0017760 \0 020 264 006 @ \t \0 \0 020 \0 ( 2 7 Q L
0020000 O G . L I S P 2 0 Q I D L L
0020020 O G A 0 0 0 1 ) \r ( 5 004 003 A R
0020040 R A Y F R A M E T Y P E # ) \r (
0020060 1 4 Q 031 ( P R O G N ( A D
0020100 D S P E L L ( Q U O T E L O
0020120 G ) 1 ) ( A D D S P E L L
0020140 ( Q U O T E L O G ) 2 ) (
0020160 Q U O T E L O G ) ) ) \r I D L
0020200 M A X A 0 0 0 1 A 0 0 0 2 D 1
0020220 \r ( P 4 M A X P 3 V
0020240 P 2 I P 0 N A R G S )
0020260 \0 ( 005 \0 002 \0 e 021 001 \0 H k 021 " 004
0020300 J d I 363 221 L 020 a \t \0 \0 [ 232 L 225 K
0020320 d L 363 241 201 K \ 277 J k 324 Z 260 345 \0 (
0020340 2 3 Q C O N V . S C A L A R )
0020360 \r N I L \r ( ) \r I D L M A X A 0
0020400 0 0 1 D 1 \r ( N A M E U E R
0020420 R O R S E T P 4 I I 1
0020440 U R E S E T V A R S L S T I
0020460 0 U E R R O R N A M E F
0020500 5 N A R G S ) \0 < 005 001 \0 002 U
0020520 j 361 264 7 g \0 \0 g \0 \0 o \0 \0 \0 U 021
0020540 A 004 k \ H 363 263 034 g \0 \0 L \n \0 \0 273
0020560 J 265 \f K h 032 Z 271 L k 324 260 350 K & 272
0020600 260 370 I 022 032 032 \n \0 \0 020 \0 ( 7 1 Q
0020620 A P P L Y 3 7 Q A R G ) \r (
0020640 3 3 Q N A R G S 1 2 Q I D
0020660 L M A X A 0 0 0 1 A 0 0 0 2 7
0020700 E A P P L Y . C A L L E R ) \r
0020720 ( 1 6 Q ( 0 . . . ) ) \r I
0020740 D L M A X D 1 \r ( P 0 N A
0020760 R G S F 3 R E S E T V A R
0021000 S L S T ) \0 > 003 001 002 \0 e 021 001 \0
0021020 H l 002 360 262 , H k 021 002 002 J d I 363 232
0021040 277 i 022 262 035 @ A \n \0 \0 020 a 264 366 J d
0021060 a 004 ` \0 \0 360 223 277 h 260 351 k 324 Z 260 336
0021100 o \0 \0 \0 S \n \0 \0 020 \0 ( 7 3 Q I
0021120 D L M A X A 0 0 0 1 3 5 Q M
0021140 A X . L I S P ) \r ( 5 0 Q 004 003
0021160 A R R A Y F R A M E T Y P E # )
0021200 \r ( 6 7 Q 031 ( P R O G N (
0021220 A D D S P E L L ( Q U O T E
0021240 M A X ) 1 ) ( A D D S P E L
0021260 L ( Q U O T E M A X ) 2 )
0021300 ( Q U O T E M A X ) ) ) \r I
0021320 D L M I N A 0 0 0 1 A 0 0 0 2
0021340 D 1 \r ( P 4 M I N P 3
0021360 V P 2 I P 0 N A R G
0021400 S ) \0 $ 005 \0 002 \0 e 021 001 \0 H 021 1
0021420 004 k Z d I 363 221 L 020 a \t \0 \0 [ 227 L
0021440 223 L K 363 221 K 274 J k 324 260 350 \0 ( 2 3
0021460 Q C O N V . S C A L A R ) \r N
0021500 I L \r ( ) \r I D L M I N A 0 0 0
0021520 1 D 1 \r ( N A M E U E R R O
0021540 R S E T P 4 I I 1 U
0021560 R E S E T V A R S L S T I 0
0021600 U E R R O R N A M E F 5
0021620 N A R G S ) \0 < 005 001 \0 002 U j 361
0021640 264 7 g \0 \0 g \0 \0 o \0 \0 \0 U 021 A 004
0021660 k \ H 363 263 034 g \0 \0 L \n \0 \0 273 J 265
0021700 \f K h 032 Z 271 L k 324 260 350 K & 272 260 370
0021720 I 022 032 032 \n \0 \0 020 \0 ( 7 1 Q A P
0021740 P L Y 3 7 Q A R G ) \r ( 3 3
0021760 Q N A R G S 1 2 Q I D L M
0022000 I N A 0 0 0 1 A 0 0 0 2 7 E
0022020 A P P L Y . C A L L E R ) \r (
0022040 1 6 Q ( 0 . . . ) ) \r I D L
0022060 M I N D 1 \r ( P 0 N A R G
0022100 S F 3 R E S E T V A R S L
0022120 S T ) \0 > 003 001 002 \0 e 021 001 \0 H l
0022140 002 360 262 , H k 021 002 002 J d I 363 232 277 i
0022160 022 262 035 @ A \n \0 \0 020 a 264 366 J d a 004
0022200 ` \0 \0 360 223 277 h 260 351 k 324 Z 260 336 o \0
0022220 \0 \0 S \n \0 \0 020 \0 ( 7 3 Q I D L
0022240 M I N A 0 0 0 1 3 5 Q M I N
0022260 . L I S P ) \r ( 5 0 Q 004 003 A R
0022300 R A Y F R A M E T Y P E # ) \r (
0022320 6 7 Q 031 ( P R O G N ( A D
0022340 D S P E L L ( Q U O T E M I
0022360 N ) 1 ) ( A D D S P E L L
0022400 ( Q U O T E M I N ) 2 ) (
0022420 Q U O T E M I N ) ) ) \r I D L
0022440 M I N U S A 0 0 0 1 A 0 0 0 2
0022460 D 1 \r ( I 0 X ) \0 \r \0 \0 \0
0022500 001 @ \t \0 \0 b \0 d 222 \t \0 \0 020 \0 ( 1
0022520 2 Q M I N U S . L I S P 3
0022540 C O N V . S C A L A R ) \r N I L
0022560 \r ( ) \r I D L M I N U S A 0 0 0
0022600 1 D 1 \r ( N A M E U E R R O
0022620 R S E T I 1 U R E S E T V
0022640 A R S L S T I 0 U E R R O
0022660 R N A M E F 0 X ) \0 \r \0
0022700 001 \0 002 g \0 \0 o \0 \0 \0 P \v \0 \0 020 \0
0022720 ( 1 2 Q E A P P L Y . C A L L
0022740 E R ) \r ( 2 I D L M I N U S A
0022760 0 0 0 1 A 0 0 0 2 ) \r ( 6 (
0023000 0 ) ) \r I D L M I N U S D 1 \r
0023020 ( I 0 X F 0 R E S E T
0023040 V A R S L S T ) \0 032 \0 001 \0 001 @
0023060 d 004 ` \0 \0 360 231 277 o \0 \0 \0 P \n \0 \0
0023100 020 264 006 @ \t \0 \0 020 \0 ( 2 7 Q M I
0023120 N U S . L I S P 2 0 Q I D L
0023140 M I N U S A 0 0 0 1 ) \r ( 5 004
0023160 003 A R R A Y F R A M E T Y P E #
0023200 ) \r ( 1 4 Q 031 ( P R O G N
0023220 ( A D D S P E L L ( Q U O T E
0023240 M I N U S ) 1 ) ( A D D S
0023260 P E L L ( Q U O T E M I N U
0023300 S ) 2 ) ( Q U O T E M I N
0023320 U S ) ) ) \r I D L M I N U S P A
0023340 0 0 0 1 A 0 0 0 2 D 1 \r ( N A
0023360 M E U E R R O R S E T I 1
0023400 U R E S E T V A R S L S T I
0023420 0 U E R R O R N A M E F
0023440 0 X ) \0 \t \0 001 \0 002 P \t \0 \0 c
0023460 \0 h 020 \0 ( 3 C O N V . S C A L
0023500 A R ) \r N I L \r ( ) \r I D L M I
0023520 N U S P A 0 0 0 1 D 1 \r ( N A
0023540 M E U E R R O R S E T I 1
0023560 U R E S E T V A R S L S T I
0023600 0 U E R R O R N A M E F
0023620 0 X F 1 R E S E T V A R
0023640 S L S T ) \0 017 \0 002 \0 002 g \0 \0 Q
0023660 \n \0 \0 P 264 005 j P 363 020 \0 ( 6 I D
0023700 L M I N U S P A 0 0 0 1 A 0 0 0
0023720 2 ) \r ( 2 U E R R O R G U A R
0023740 D ) \r ( ) \r I D L M I N U S P
0023760 D 1 \r ( I 0 X F 0 R E
0024000 S E T V A R S L S T ) \0 \n \0 001
0024020 \0 001 o \0 \0 \0 P \n \0 \0 020 \0 ( 7 I
0024040 D L M I N U S P A 0 0 0 1 ) \r N
0024060 I L \r ( 3 031 ( P R O G N (
0024100 A D D S P E L L ( Q U O T E
0024120 M I N U S P ) 1 ) ( A D D S
0024140 P E L L ( Q U O T E M I N U
0024160 S P ) 2 ) ( Q U O T E M I
0024200 N U S P ) ) ) \r I D L P L U S A
0024220 0 0 0 1 A 0 0 0 2 D 1 \r ( P
0024240 4 V P 3 I P 2 S U
0024260 M P 0 N A R G S ) \0 " 005
0024300 \0 002 \0 e 021 001 \0 H j 021 " 004 k [ d I
0024320 363 221 J 020 a \t \0 \0 \ 264 372 J L 324 272 K
0024340 k 324 260 353 \0 ( 2 4 Q C O N V . S
0024360 C A L A R ) \r N I L \r ( ) \r I D
0024400 L P L U S A 0 0 0 1 D 1 \r ( N
0024420 A M E U E R R O R S E T P
0024440 4 I I 1 U R E S E T V A
0024460 R S L S T I 0 U E R R O R
0024500 N A M E F 5 N A R G S )
0024520 \0 7 005 001 \0 002 g \0 \0 g \0 \0 o \0 \0 \0
0024540 U 021 A 004 k \ H 363 263 034 g \0 \0 L \n \0
0024560 \0 273 J 265 \f K h 032 Z 271 L k 324 260 350 K
0024600 & 272 260 370 I 022 032 032 \n \0 \0 020 \0 ( 6 4
0024620 Q A P P L Y 3 2 Q A R G )
0024640 \r ( 2 6 Q N A R G S 5 I D
0024660 L P L U S A 0 0 0 1 A 0 0 0 2
0024700 2 E A P P L Y . C A L L E R )
0024720 \r ( 1 1 Q ( 0 . . . ) ) \r
0024740 I D L P L U S D 1 \r ( P 0
0024760 N A R G S F 3 R E S E T V
0025000 A R S L S T ) \0 < 003 001 002 \0 e 021
0025020 001 \0 H l 002 360 262 * H k 021 002 002 J d I
0025040 363 230 277 i 022 262 033 @ A 324 020 a 264 370 J d
0025060 a 004 ` \0 \0 360 223 277 h 260 353 k 324 Z 260 340
0025100 o \0 \0 \0 S \n \0 \0 020 \0 ( 7 1 Q I
0025120 D L P L U S A 0 0 0 1 ) \r ( 4 6
0025140 Q 004 003 A R R A Y F R A M E T Y
0025160 P E # ) \r ( 6 5 Q 031 ( P R O
0025200 G N ( A D D S P E L L ( Q U
0025220 O T E P L U S ) 1 ) ( A D
0025240 D S P E L L ( Q U O T E P L
0025260 U S ) 2 ) ( Q U O T E P L
0025300 U S ) ) ) \r I D L Q U O T I E N
0025320 T A 0 0 0 1 A 0 0 0 2 D 1 \r (
0025340 I 1 Y I 0 X ) \0 027 \0
0025360 \0 \0 002 @ \t \0 \0 b \0 A \t \0 \0 b 002 @
0025400 264 \b d 264 005 @ A 353 020 \0 ( 1 1 Q C
0025420 O N V . S C A L A R 3 C O N
0025440 V . S C A L A R ) \r N I L \r ( )
0025460 \r I D L Q U O T I E N T A 0 0 0
0025500 1 D 1 \r ( N A M E U E R R O
0025520 R S E T I 1 U R E S E T V
0025540 A R S L S T I 0 U E R R O
0025560 R N A M E F 0 X F 1
0025600 Y ) \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0
0025620 P Q \f \0 \0 020 \0 ( 1 3 Q E A P P
0025640 L Y . C A L L E R ) \r ( 2 I D
0025660 L Q U O T I E N T A 0 0 0 1 A 0
0025700 0 0 2 ) \r ( 6 ( 0 0 ) ) \r
0025720 I D L Q U O T I E N T D 1 \r (
0025740 I 1 Y I 0 X F 0
0025760 R E S E T V A R S L S T ) \0 "
0026000 \0 001 \0 002 @ 004 ` \0 \0 360 246 A 004 ` \0 \0
0026020 360 230 o \0 \0 \0 P \n \0 \0 020 @ 264 \b A 264
0026040 005 @ A 327 020 \0 ( 2 5 Q I D L Q U
0026060 O T I E N T A 0 0 0 1 ) \r ( 1 3
0026100 Q 004 003 A R R A Y F R A M E T Y
0026120 P E # 4 004 003 A R R A Y F R A
0026140 M E T Y P E # ) \r ( 2 1 Q 031
0026160 ( P R O G N ( A D D S P E L L
0026200 ( Q U O T E Q U O T I E N T
0026220 ) 1 ) ( A D D S P E L L (
0026240 Q U O T E Q U O T I E N T )
0026260 2 ) ( Q U O T E Q U O T I E
0026300 N T ) ) ) \r I D L R A N D A 0 0
0026320 0 1 A 0 0 0 2 D 1 \r ( I 1
0026340 U P P E R I 0 L O W E R )
0026360 \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4
0026400 R A N D . L I S P ) \r N I L \r
0026420 ( ) \r I D L R A N D A 0 0 0 1
0026440 D 1 \r ( N A M E U E R R O R S
0026460 E T I 1 U R E S E T V A R
0026500 S L S T I 0 U E R R O R N
0026520 A M E F 0 L O W E R F
0026540 1 U P P E R ) \0 016 \0 002 \0 002 g
0026560 \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3
0026600 Q E A P P L Y . C A L L E R )
0026620 \r ( 2 I D L R A N D A 0 0 0 1
0026640 A 0 0 0 2 ) \r ( 6 ( 0 0 )
0026660 ) \r I D L R A N D D 1 \r ( I
0026700 1 U P P E R I 0 L O W E
0026720 R F 0 R E S E T V A R S L
0026740 S T ) \0 036 \0 001 \0 002 @ 004 ` \0 \0 360
0026760 246 A 004 ` \0 \0 360 230 o \0 \0 \0 P \n \0 \0
0027000 020 @ A \n \0 \0 020 \0 ( 3 3 Q R A N
0027020 D . L I S P 2 5 Q I D L R A
0027040 N D A 0 0 0 1 ) \r ( 1 3 Q 004 003
0027060 A R R A Y F R A M E T Y P E #
0027100 4 004 003 A R R A Y F R A M E T Y
0027120 P E # ) \r ( 2 1 Q 031 ( P R O
0027140 G N ( A D D S P E L L ( Q U
0027160 O T E R A N D ) 1 ) ( A D
0027200 D S P E L L ( Q U O T E R A
0027220 N D ) 2 ) ( Q U O T E R A
0027240 N D ) ) ) \r I D L R E M A I N D
0027260 E R A 0 0 0 1 A 0 0 0 2 D 1 \r
0027300 ( I 1 Y I 0 X ) \0 031
0027320 \0 \0 \0 002 @ \t \0 \0 b \0 A \t \0 \0 b 002
0027340 @ 264 \n d 264 \a @ A \n \0 \0 020 \0 ( 2 6
0027360 Q R E M A I N D E R . L I S P
0027400 1 1 Q C O N V . S C A L A R
0027420 3 C O N V . S C A L A R ) \r
0027440 N I L \r ( ) \r I D L R E M A I N
0027460 D E R A 0 0 0 1 D 1 \r ( N A M
0027500 E U E R R O R S E T I 1
0027520 U R E S E T V A R S L S T I
0027540 0 U E R R O R N A M E F 0
0027560 X F 1 Y ) \0 016 \0 002 \0 002
0027600 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1
0027620 3 Q E A P P L Y . C A L L E R
0027640 ) \r ( 2 I D L R E M A I N D E
0027660 R A 0 0 0 1 A 0 0 0 2 ) \r ( 6
0027700 ( 0 0 ) ) \r I D L R E M A I
0027720 N D E R D 1 \r ( I 1 Y I
0027740 0 X F 0 R E S E T V A
0027760 R S L S T ) \0 $ \0 001 \0 002 @ 004 `
0030000 \0 \0 360 246 A 004 ` \0 \0 360 230 o \0 \0 \0 P
0030020 \n \0 \0 020 @ 264 \n A 264 \a @ A \n \0 \0 020
0030040 \0 ( 4 1 Q R E M A I N D E R .
0030060 L I S P 2 5 Q I D L R E M A
0030100 I N D E R A 0 0 0 1 ) \r ( 1 3 Q
0030120 004 003 A R R A Y F R A M E T Y P
0030140 E # 4 004 003 A R R A Y F R A M
0030160 E T Y P E # ) \r ( 2 1 Q 031 (
0030200 P R O G N ( A D D S P E L L
0030220 ( Q U O T E R E M A I N D E R
0030240 ) 1 ) ( A D D S P E L L (
0030260 Q U O T E R E M A I N D E R )
0030300 2 ) ( Q U O T E R E M A I
0030320 N D E R ) ) ) \r I D L S I N A 0
0030340 0 0 1 A 0 0 0 2 D 1 \r ( I 1
0030360 R A D I A N S F L G I 0
0030400 X ) \0 020 \0 \0 \0 002 @ \t \0 \0 b \0 d
0030420 264 \a d A \n \0 \0 020 \0 ( 1 5 Q S I
0030440 N . L I S P 3 C O N V . S C
0030460 A L A R ) \r N I L \r ( ) \r I D L
0030500 S I N A 0 0 0 1 D 1 \r ( N A M
0030520 E U E R R O R S E T I 1
0030540 U R E S E T V A R S L S T I
0030560 0 U E R R O R N A M E F 0
0030600 X F 1 R A D I A N S F L
0030620 G ) \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0
0030640 P Q \f \0 \0 020 \0 ( 1 3 Q E A P P
0030660 L Y . C A L L E R ) \r ( 2 I D
0030700 L S I N A 0 0 0 1 A 0 0 0 2 ) \r
0030720 ( 6 ( 0 ) ) \r I D L S I N
0030740 D 1 \r ( I 1 R A D I A N S F
0030760 L G I 0 X F 0 R E S
0031000 E T V A R S L S T ) \0 033 \0 001 \0
0031020 002 @ d 004 ` \0 \0 360 231 277 o \0 \0 \0 P \n
0031040 \0 \0 020 264 \a @ A \n \0 \0 020 \0 ( 3 0 Q
0031060 S I N . L I S P 2 0 Q I D
0031100 L S I N A 0 0 0 1 ) \r ( 5 004 003
0031120 A R R A Y F R A M E T Y P E # )
0031140 \r ( 1 4 Q 031 ( P R O G N (
0031160 A D D S P E L L ( Q U O T E
0031200 S I N ) 1 ) ( A D D S P E L
0031220 L ( Q U O T E S I N ) 2 )
0031240 ( Q U O T E S I N ) ) ) \r I
0031260 D L S Q R T A 0 0 0 1 A 0 0 0 2
0031300 D 1 \r ( I 0 X ) \0 \r \0 \0
0031320 \0 001 @ \t \0 \0 b \0 d 222 \t \0 \0 020 \0 (
0031340 1 2 Q S Q R T . L I S P 3
0031360 C O N V . S C A L A R ) \r N I L
0031400 \r ( ) \r I D L S Q R T A 0 0 0 1
0031420 D 1 \r ( N A M E U E R R O R
0031440 S E T I 1 U R E S E T V A
0031460 R S L S T I 0 U E R R O R
0031500 N A M E F 0 X ) \0 \r \0 001
0031520 \0 002 g \0 \0 o \0 \0 \0 P \v \0 \0 020 \0 (
0031540 1 2 Q E A P P L Y . C A L L E
0031560 R ) \r ( 2 I D L S Q R T A 0 0
0031600 0 1 A 0 0 0 2 ) \r ( 6 ( 0 )
0031620 ) \r I D L S Q R T D 1 \r ( I
0031640 0 X F 0 R E S E T V A R
0031660 S L S T ) \0 032 \0 001 \0 001 @ d 004 `
0031700 \0 \0 360 231 277 o \0 \0 \0 P \n \0 \0 020 264 006
0031720 @ \t \0 \0 020 \0 ( 2 7 Q S Q R T .
0031740 L I S P 2 0 Q I D L S Q R T
0031760 A 0 0 0 1 ) \r ( 5 004 003 A R R A
0032000 Y F R A M E T Y P E # ) \r ( 1
0032020 4 Q 031 ( P R O G N ( A D D S
0032040 P E L L ( Q U O T E S Q R T
0032060 ) 1 ) ( A D D S P E L L (
0032100 Q U O T E S Q R T ) 2 ) (
0032120 Q U O T E S Q R T ) ) ) \r I D
0032140 L T A N A 0 0 0 1 A 0 0 0 2 D
0032160 1 \r ( I 1 R A D I A N S F L
0032200 G I 0 X ) \0 020 \0 \0 \0 002 @
0032220 \t \0 \0 b \0 d 264 \a d A \n \0 \0 020 \0 (
0032240 1 5 Q T A N . L I S P 3 C
0032260 O N V . S C A L A R ) \r N I L \r
0032300 ( ) \r I D L T A N A 0 0 0 1 D
0032320 1 \r ( N A M E U E R R O R S E
0032340 T I 1 U R E S E T V A R S
0032360 L S T I 0 U E R R O R N A
0032400 M E F 0 X F 1 R A D
0032420 I A N S F L G ) \0 016 \0 002 \0 002 g
0032440 \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3
0032460 Q E A P P L Y . C A L L E R )
0032500 \r ( 2 I D L T A N A 0 0 0 1 A
0032520 0 0 0 2 ) \r ( 6 ( 0 ) ) \r I
0032540 D L T A N D 1 \r ( I 1 R A
0032560 D I A N S F L G I 0 X F
0032600 0 R E S E T V A R S L S T )
0032620 \0 033 \0 001 \0 002 @ d 004 ` \0 \0 360 231 277
0032640 o \0 \0 \0 P \n \0 \0 020 264 \a @ A \n \0 \0
0032660 020 \0 ( 3 0 Q T A N . L I S P
0032700 2 0 Q I D L T A N A 0 0 0 1 )
0032720 \r ( 5 004 003 A R R A Y F R A M E
0032740 T Y P E # ) \r ( 1 4 Q 031 ( P
0032760 R O G N ( A D D S P E L L (
0033000 Q U O T E T A N ) 1 ) ( A
0033020 D D S P E L L ( Q U O T E T
0033040 A N ) 2 ) ( Q U O T E T A
0033060 N ) ) ) \r I D L T I M E S A 0 0
0033100 0 1 A 0 0 0 2 D 1 \r ( P 4
0033120 V P 3 I P 2 P R O D
0033140 P 0 N A R G S ) \0 " 005 \0
0033160 002 \0 e 021 001 \0 H k 021 " 004 k [ d I 363
0033200 221 J 020 a \t \0 \0 \ 264 372 J L 326 272 K k
0033220 324 260 353 \0 ( 2 4 Q C O N V . S C
0033240 A L A R ) \r N I L \r ( ) \r I D L
0033260 T I M E S A 0 0 0 1 D 1 \r ( N
0033300 A M E U E R R O R S E T P
0033320 4 I I 1 U R E S E T V A
0033340 R S L S T I 0 U E R R O R
0033360 N A M E F 5 N A R G S )
0033400 \0 7 005 001 \0 002 g \0 \0 g \0 \0 o \0 \0 \0
0033420 U 021 A 004 k \ H 363 263 034 g \0 \0 L \n \0
0033440 \0 273 J 265 \f K h 032 Z 271 L k 324 260 350 K
0033460 & 272 260 370 I 022 032 032 \n \0 \0 020 \0 ( 6 4
0033500 Q A P P L Y 3 2 Q A R G )
0033520 \r ( 2 6 Q N A R G S 5 I D
0033540 L T I M E S A 0 0 0 1 A 0 0 0 2
0033560 2 E A P P L Y . C A L L E R
0033600 ) \r ( 1 1 Q ( 0 . . . ) )
0033620 \r I D L T I M E S D 1 \r ( P
0033640 0 N A R G S F 3 R E S E
0033660 T V A R S L S T ) \0 < 003 001 002 \0
0033700 e 021 001 \0 H l 002 360 262 * H k 021 002 002 J
0033720 d I 363 230 277 i 022 262 033 @ A 326 020 a 264 370
0033740 J d a 004 ` \0 \0 360 223 277 h 260 353 k 324 Z
0033760 260 340 o \0 \0 \0 S \n \0 \0 020 \0 ( 7 1 Q
0034000 I D L T I M E S A 0 0 0 1 ) \r
0034020 ( 4 6 Q 004 003 A R R A Y F R A M
0034040 E T Y P E # ) \r ( 6 5 Q 031 (
0034060 P R O G N ( A D D S P E L L
0034100 ( Q U O T E T I M E S ) 1 )
0034120 ( A D D S P E L L ( Q U O T
0034140 E T I M E S ) 2 ) ( Q U O
0034160 T E T I M E S ) ) ) \r I D L \
0034200 S L O W D I F F E R E N C E A 0
0034220 0 0 1 A 0 0 0 2 D 1 \r ( I 1
0034240 Y Y I 0 X X ) \0 025 \0 \0
0034260 \0 002 @ \t \0 \0 b \0 264 \r A \t \0 \0 b 002
0034300 264 005 @ A 325 020 \0 ( 1 3 Q C O N V
0034320 . S C A L A R 3 C O N V . S
0034340 C A L A R ) \r N I L \r ( ) \r I D
0034360 L \ S L O W D I F F E R E N C E
0034400 A 0 0 0 1 D 1 \r ( N A M E U
0034420 E R R O R S E T I 1 U R E
0034440 S E T V A R S L S T I 0 U
0034460 E R R O R N A M E F 0 X
0034500 F 1 Y ) \0 016 \0 002 \0 002 g \0 \0
0034520 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q
0034540 E A P P L Y . C A L L E R ) \r (
0034560 2 I D L \ S L O W D I F F E R
0034600 E N C E A 0 0 0 1 A 0 0 0 2 ) \r
0034620 ( 6 ( 0 0 ) ) \r I D L \ S
0034640 L O W D I F F E R E N C E D 1
0034660 \r ( I 1 Y I 0 X F
0034700 0 R E S E T V A R S L S T )
0034720 \0 $ \0 001 \0 002 @ 004 ` \0 \0 360 246 A 004 `
0034740 \0 \0 360 230 o \0 \0 \0 P \n \0 \0 020 @ 264 \n
0034760 A 264 \a @ A \n \0 \0 020 \0 ( 4 1 Q \
0035000 S L O W D I F F E R E N C E . L
0035020 I S P 2 5 Q I D L \ S L O W
0035040 D I F F E R E N C E A 0 0 0 1 )
0035060 \r ( 1 3 Q 004 003 A R R A Y F R A
0035100 M E T Y P E # 4 004 003 A R R A
0035120 Y F R A M E T Y P E # ) \r ( 2
0035140 1 Q 031 ( P R O G N ( A D D S
0035160 P E L L ( Q U O T E D I F F
0035200 E R E N C E ) 1 ) ( A D D S
0035220 P E L L ( Q U O T E D I F F
0035240 E R E N C E ) 2 ) ( Q U O T
0035260 E D I F F E R E N C E ) ) ) \r
0035300 I D L \ S L O W P L U S 2 A 0 0
0035320 0 1 A 0 0 0 2 D 1 \r ( I 1
0035340 Y Y I 0 X X ) \0 025 \0 \0 \0
0035360 002 @ \t \0 \0 b \0 264 \r A \t \0 \0 b 002 264
0035400 005 @ A 324 020 \0 ( 1 3 Q C O N V .
0035420 S C A L A R 3 C O N V . S C
0035440 A L A R ) \r N I L \r ( ) \r I D L
0035460 \ S L O W P L U S 2 A 0 0 0 1
0035500 D 1 \r ( N A M E U E R R O R S
0035520 E T I 1 U R E S E T V A R
0035540 S L S T I 0 U E R R O R N
0035560 A M E F 0 X F 1 Y )
0035600 \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0 P Q
0035620 \f \0 \0 020 \0 ( 1 3 Q E A P P L Y
0035640 . C A L L E R ) \r ( 2 I D L \
0035660 S L O W P L U S 2 A 0 0 0 1 A 0
0035700 0 0 2 ) \r ( 6 ( 0 0 ) ) \r
0035720 I D L \ S L O W P L U S 2 D 1
0035740 \r ( I 1 Y I 0 X F
0035760 0 R E S E T V A R S L S T )
0036000 \0 $ \0 001 \0 002 @ 004 ` \0 \0 360 246 A 004 `
0036020 \0 \0 360 230 o \0 \0 \0 P \n \0 \0 020 @ 264 \n
0036040 A 264 \a @ A \n \0 \0 020 \0 ( 4 1 Q \
0036060 S L O W P L U S 2 . L I S P 2
0036100 5 Q I D L \ S L O W P L U S 2
0036120 A 0 0 0 1 ) \r ( 1 3 Q 004 003 A R
0036140 R A Y F R A M E T Y P E # 4
0036160 004 003 A R R A Y F R A M E T Y P E
0036200 # ) \r ( 2 1 Q 031 ( P R O G N
0036220 ( A D D S P E L L ( Q U O T
0036240 E P L U S ) 1 ) ( A D D S
0036260 P E L L ( Q U O T E P L U S
0036300 ) 2 ) ( Q U O T E P L U S
0036320 ) ) ) \r I D L \ S L O W Q U O T
0036340 I E N T A 0 0 0 1 A 0 0 0 2 D
0036360 1 \r ( I 1 Y Y I 0 X X
0036400 ) \0 025 \0 \0 \0 002 @ \t \0 \0 b \0 264 \r
0036420 A \t \0 \0 b 002 264 005 @ A 353 020 \0 ( 1 3
0036440 Q C O N V . S C A L A R 3
0036460 C O N V . S C A L A R ) \r N I L
0036500 \r ( ) \r I D L \ S L O W Q U O T
0036520 I E N T A 0 0 0 1 D 1 \r ( N A
0036540 M E U E R R O R S E T I 1
0036560 U R E S E T V A R S L S T I
0036600 0 U E R R O R N A M E F
0036620 0 X F 1 Y ) \0 016 \0 002 \0
0036640 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 (
0036660 1 3 Q E A P P L Y . C A L L E
0036700 R ) \r ( 2 I D L \ S L O W Q U
0036720 O T I E N T A 0 0 0 1 A 0 0 0 2
0036740 ) \r ( 6 ( 0 0 ) ) \r I D L
0036760 \ S L O W Q U O T I E N T D 1
0037000 \r ( I 1 Y I 0 X F
0037020 0 R E S E T V A R S L S T )
0037040 \0 $ \0 001 \0 002 @ 004 ` \0 \0 360 246 A 004 `
0037060 \0 \0 360 230 o \0 \0 \0 P \n \0 \0 020 @ 264 \n
0037100 A 264 \a @ A \n \0 \0 020 \0 ( 4 1 Q \
0037120 S L O W Q U O T I E N T . L I S
0037140 P 2 5 Q I D L \ S L O W Q U
0037160 O T I E N T A 0 0 0 1 ) \r ( 1 3
0037200 Q 004 003 A R R A Y F R A M E T Y
0037220 P E # 4 004 003 A R R A Y F R A
0037240 M E T Y P E # ) \r ( 2 1 Q 031
0037260 ( P R O G N ( A D D S P E L L
0037300 ( Q U O T E Q U O T I E N T
0037320 ) 1 ) ( A D D S P E L L (
0037340 Q U O T E Q U O T I E N T )
0037360 2 ) ( Q U O T E Q U O T I E
0037400 N T ) ) ) \r I D L \ S L O W T I
0037420 M E S 2 A 0 0 0 1 A 0 0 0 2 D
0037440 1 \r ( I 1 Y Y I 0 X X
0037460 ) \0 025 \0 \0 \0 002 @ \t \0 \0 b \0 264 \r
0037500 A \t \0 \0 b 002 264 005 @ A 326 020 \0 ( 1 3
0037520 Q C O N V . S C A L A R 3
0037540 C O N V . S C A L A R ) \r N I L
0037560 \r ( ) \r I D L \ S L O W T I M E
0037600 S 2 A 0 0 0 1 D 1 \r ( N A M E
0037620 U E R R O R S E T I 1 U
0037640 R E S E T V A R S L S T I 0
0037660 U E R R O R N A M E F 0
0037700 X F 1 Y ) \0 016 \0 002 \0 002 g
0037720 \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3
0037740 Q E A P P L Y . C A L L E R )
0037760 \r ( 2 I D L \ S L O W T I M E
0040000 S 2 A 0 0 0 1 A 0 0 0 2 ) \r (
0040020 6 ( 0 0 ) ) \r I D L \ S L O
0040040 W T I M E S 2 D 1 \r ( I 1
0040060 Y I 0 X F 0 R E S E
0040100 T V A R S L S T ) \0 $ \0 001 \0 002
0040120 @ 004 ` \0 \0 360 246 A 004 ` \0 \0 360 230 o \0
0040140 \0 \0 P \n \0 \0 020 @ 264 \n A 264 \a @ A \n
0040160 \0 \0 020 \0 ( 4 1 Q \ S L O W T I
0040200 M E S 2 . L I S P 2 5 Q I D
0040220 L \ S L O W T I M E S 2 A 0 0 0
0040240 1 ) \r ( 1 3 Q 004 003 A R R A Y F
0040260 R A M E T Y P E # 4 004 003 A R
0040300 R A Y F R A M E T Y P E # ) \r (
0040320 2 1 Q 031 ( P R O G N ( A D
0040340 D S P E L L ( Q U O T E T I
0040360 M E S ) 1 ) ( A D D S P E L
0040400 L ( Q U O T E T I M E S )
0040420 2 ) ( Q U O T E T I M E S )
0040440 ) ) \r M O V E A R I T H F N S
0040460 D 1 \r ( P 7 P R O P V A L
0040500 P 6 P R O P P 4 N E W
0040520 N A M E P 3 L I S P F N
0040540 P 2 I D L F N P 1 C O
0040560 M P P R O P S I 0 I D L F
0040600 N S ) \0 302 \b \0 \0 001 @ o \0 \0 \0 021
0040620 2 004 H 003 265 004 h 020 001 Z l 004 \n \0 \0 [
0040640 g \0 \0 \n \0 \0 274 K 004 l 004 360 262 3 K \t
0040660 \0 \0 262 - L \t \0 \0 245 K L \n \0 \0 277 I
0040700 021 ! \a M 003 265 005 023 260 A 001 276 K N 033 _
0040720 016 227 L N O 016 \v \0 \0 277 M 002 ] 260 347 o
0040740 \0 \0 \0 i \n \0 \0 277 l 002 i \n \0 \0 277 K
0040760 i \n \0 \0 277 k i \n \0 \0 277 o \0 \0 \0 i
0041000 \n \0 \0 277 i \t \0 \0 277 J 004 l 004 360 233 J
0041020 \t \0 \0 226 J K \n \0 \0 260 + o \0 \0 \0 i
0041040 \n \0 \0 277 l 002 i \n \0 \0 277 J i \n \0 \0
0041060 277 k i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277
0041100 i \t \0 \0 277 H 002 X 261 377 K \0 ( 2 7 1
0041120 Q T E R P R I 2 6 4 Q P R
0041140 I N 1 2 5 3 Q S P A C E S
0041160 2 4 5 Q P R I N 1 2 3 7 Q
0041200 S P A C E S 2 3 0 Q P R I N
0041220 1 2 1 6 Q M O V D 2 1 0 Q
0041240 \ D E F I N E D P 1 7 5 Q
0041260 T E R P R I 1 7 0 Q P R I N
0041300 1 1 5 7 Q S P A C E S 1 5
0041320 1 Q P R I N 1 1 4 3 Q S P
0041340 A C E S 1 3 4 Q P R I N 1
0041360 1 1 6 Q P U T P R O P 6 3 Q
0041400 M O V D 5 5 Q \ D E F I N
0041420 E D P 4 7 Q \ D E F I N E D
0041440 P 3 3 Q P A C K * 2 4 Q
0041460 S U B A T O M ) \r ( 3 0 Q . L
0041500 I S P ) \r ( 2 6 0 Q " w a s
0041520 n o t d e f i n e d ! " 2
0041540 2 4 Q " * * N o t e : I D L
0041560 f n " 1 6 4 Q " w a s n o
0041600 t d e f i n e d ! " 1 3 0 Q
0041620 " * * N o t e : L i s p f n
0041640 " 4 ( D O P V A L D M A C
0041660 R O B Y T E M A C R O ) ) \r (
0041700 P R E T T Y C O M P R I N T U
0041720 S E R A R I T H C O M S ) \r ( R
0041740 P A Q Q U S E R A R I T H C O
0041760 M S ( ( * l o a d i n g t
0042000 h i s f i l e w i l l r e
0042020 d e f i n e m o s t a r i t
0042040 h m e t i c f u n c t i o n s
0042060 t o a c c e p t i d l \r
0042100 o b j e c t s . p u n t f u
0042120 n c t i o n s a r e a l s o
0042140 r e d e f i n e d t o h a
0042160 n d l e t h e c o m p i l e
0042200 d c a s e . ) ( D E C L A R
0042220 E : F I R S T ( V A R S \r
0042240 U S E R A R I T H F N S ) ) (
0042260 F N S * U S E R A R I T H F
0042300 N S ) ( F N S * U T I L F
0042320 N S ) ( D E C L A R E : D O
0042340 N T E V A L @ L O A D D O C O
0042360 P Y ( P ( M O V E A R I T H
0042400 F N S \r U S E R A R I T H F N
0042420 S ) ) ) ( D E C L A R E : D
0042440 O N T E V A L @ L O A D D O E
0042460 V A L @ C O M P I L E D O N T
0042500 C O P Y C O M P I L E R V A R
0042520 S ( A D D V A R S ( N L A M
0042540 A ) ( N L A M L ) \r ( L A M
0042560 A I D L T I M E S I D L P L
0042600 U S I D L M I N I D L M A X
0042620 ) ) ) ) ) \r ( R P A Q Q U S E
0042640 R A R I T H F N S ( I D L A B
0042660 S I D L A N T I L O G I D L
0042700 A R C C O S I D L A R C S I N
0042720 I D L A R C T A N I D L A R
0042740 C T A N 2 I D L C O S I D L
0042760 D I F F E R E N C E \r I D L E
0043000 Q P I D L E X P T I D L G C
0043020 D I D L G R E A T E R P I D
0043040 L L E S S P I D L L O G I D
0043060 L M A X I D L M I N I D L M
0043100 I N U S I D L M I N U S P I
0043120 D L P L U S I D L Q U O T I E
0043140 N T \r I D L R A N D I D L R
0043160 E M A I N D E R I D L S I N
0043200 I D L S Q R T I D L T A N I
0043220 D L T I M E S I D L \ S L O W
0043240 D I F F E R E N C E I D L \ S
0043260 L O W P L U S 2 I D L \ S L O
0043300 W Q U O T I E N T \r I D L \ S
0043320 L O W T I M E S 2 ) ) \r ( R P A
0043340 Q Q U T I L F N S ( M O V E
0043360 A R I T H F N S ) ) \r ( M O V E
0043400 A R I T H F N S U S E R A R I
0043420 T H F N S ) \r ( P U T P R O P S
0043440 U S E R A R I T H C O P Y R
0043460 I G H T ( " X e r o x C o r
0043500 p o r a t i o n " 1 9 8 4 1
0043520 9 8 5 1 9 8 6 ) ) \r N I L \r
0043537