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