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