$ od -c -N 50000 [qv]<IDL>RELEASE0.1>ASSIGN.FDCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - A p r - 8 6 0 0 : 0 6 : 3 2
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 S S I G N . ; 1 2 ) "
0000120 1 2 - N o v - 8 5 1 4 : 5 9 :
0000140 2 3 " \r t c o m p l ' d i n
0000160 " I N T E R L I S P - D 7
0000200 - F e b - 8 6 . . . " d a t
0000220 e d " 7 - F e b - 8 6 1 1
0000240 : 4 3 : 0 5 " ) \r ( F I L E C R
0000260 E A T E D " 1 1 - F e b - 8 6
0000300 2 3 : 0 1 : 3 4 " { Q V } <
0000320 I D L > S O U R C E S > A S S I
0000340 G N . ; 1 2 1 3 5 5 1 c h a
0000360 n g e s t o : ( F N S C O
0000400 P Y \r C L I S P I F Y U S E R
0000420 F N C O P Y H A C K ) ( V A
0000440 R S A S S I G N C O M S ) p
0000460 r e v i o u s d a t e : "
0000500 7 - O c t - 8 5 2 2 : 0 3 : 1
0000520 8 " \r { Q V } < I D L > S O U
0000540 R C E S > A S S I G N . ; 1 1 )
0000560 \r A S S I G N D 1 \r ( I 0
0000600 A S S I G N A R G S ) \0 027 \0 \0
0000620 003 001 g \0 \0 g \0 \0 g \0 \0 @ 032 h g \0
0000640 \0 \f \0 \0 \n \0 \0 020 \0 ( 2 4 Q A P
0000660 P L Y 2 1 Q S T K E V A L )
0000700 \r ( 1 6 Q I N T E R N A L 1
0000720 0 Q L I S T 5 A S S I G N
0000740 2 A S S I G N ! ) \r ( ) \r A
0000760 S S I G N ! A 0 0 0 1 D 1 \r (
0001000 N A M E U E R R O R S E T P
0001020 1 S L T R P 0 A I
0001040 1 U R E S E T V A R S L S T
0001060 I 0 U E R R O R N A M E F
0001100 2 S O U R C E F 3 T A
0001120 R G E T F 4 A S S I G N A
0001140 R G S ) \0 356 002 003 \0 002 S g \0 \0 \n
0001160 \0 \0 230 S R \t \0 \0 \n \0 \0 020 T 001 003 001
0001200 g \0 \0 360 242 261 \0 266 g \0 \0 T 001 002 001 \n
0001220 \0 \0 \t \0 \0 g \0 \0 T 001 002 002 001 \n \0 \0
0001240 021 002 001 I 003 001 d g \0 \0 360 231 277 H I R
0001260 \v \0 \0 261 \0 206 d g \0 \0 360 230 277 H I R
0001300 \v \0 \0 260 v g \0 \0 360 262 T H R d 262 J
0001320 005 \a 222 R 260 D R d 226 l \b \n \0 \0 225 R
0001340 \t \0 \0 260 5 R 003 262 025 g \0 \0 R 001 221 R
0001360 205 g \0 \0 R 002 032 \n \0 \0 260 036 \b \0 \0 262
0001400 026 o \0 \0 \0 i \n \0 \0 277 R i \n \0 \0 277
0001420 i \t \0 \0 277 \b \0 \0 \n \0 \0 260 036 \b \0 \0
0001440 262 026 o \0 \0 \0 i \n \0 \0 277 S i \n \0 \0
0001460 277 i \t \0 \0 277 \b \0 \0 h 020 \b \0 \0 262 026
0001500 o \0 \0 \0 i \n \0 \0 277 S i \n \0 \0 277 i
0001520 \t \0 \0 277 \b \0 \0 020 \0 ( 3 5 3 Q U
0001540 E R R O R ! 3 4 7 Q T E R P
0001560 R I 3 4 2 Q P R I N 2 3 3
0001600 4 Q P R I N 1 3 2 2 Q U E
0001620 R R O R P R I N T ? 3 1 5 Q
0001640 U E R R O R ! 3 1 1 Q T E R
0001660 P R I 3 0 4 Q P R I N 2 2
0001700 7 6 Q P R I N 1 2 6 4 Q U
0001720 E R R O R P R I N T ? 2 5 7 Q
0001740 S E T T I T L E 2 5 4 Q U
0001760 E R R O R ! 2 5 0 Q T E R P
0002000 R I 2 4 3 Q P R I N 2 2 3
0002020 5 Q P R I N 1 2 2 3 Q U E
0002040 R R O R P R I N T ? 2 1 6 Q
0002060 A P P L Y 1 6 7 Q M K S T R
0002100 I N G 1 6 2 Q \ T Y P E M A
0002120 S K . U F N 1 2 7 Q A S S I
0002140 G N . C O D E 1 0 7 Q A S S
0002160 I G N . L A B E L 6 4 Q S T
0002200 K E V A L 5 1 Q C O N V . A
0002220 R R A Y 4 6 Q S T K E V A L
0002240 1 7 Q A S S I G N . S E L A
0002260 R R A Y 1 4 Q C O N V . A R
0002300 R A Y 6 A R R A Y T Y P E P
0002320 ) \r ( 2 1 0 Q U S E R % F O
0002340 R M 2 0 0 Q M A K E T I T L
0002360 E 1 3 4 Q * T I T L E * 1
0002400 1 6 Q * C O D E * 7 6 Q *
0002420 L A B E L * 5 4 Q A S S I G
0002440 N 3 7 Q A S S I G N 2 7 Q
0002460 A T 3 S E L E C T I O N )
0002500 \r ( 3 3 0 Q " T A R G E T
0002520 n o t a s e l e c t i o n :
0002540 " 2 7 2 Q " T A R G E T
0002560 n o t a s e l e c t i o n
0002600 : " 2 3 1 Q " I n v a l
0002620 i d t i t l e : " ) \r A S S
0002640 I G N ! D 1 \r ( I 1 S O U
0002660 R C E I 0 T A R G E T F
0002700 0 R E S E T V A R S L S T )
0002720 \0 \v \0 001 \0 002 o \0 \0 \0 P \n \0 \0 A
0002740 020 \0 ( 7 A S S I G N ! A 0 0 0
0002760 1 ) \r N I L \r ( 3 031 ( P R O
0003000 G N ( A D D S P E L L ( Q U
0003020 O T E A S S I G N ) 1 ) (
0003040 A D D S P E L L ( Q U O T E
0003060 A S S I G N ) 2 ) ( Q U O T
0003100 E A S S I G N ) ) ) \r A S S I
0003120 G N . C O D E A 0 0 0 1 D 1 \r
0003140 ( N A M E U E R R O R S E T
0003160 I 1 U R E S E T V A R S L S
0003200 T I 0 U E R R O R N A M E
0003220 F 0 U A R G F 1 V A
0003240 L U E ) \0 \t \0 002 \0 002 P \t \0 \0 c
0003260 002 h 020 \0 ( 3 C O N V . A R I T
0003300 H ) \r N I L \r ( ) \r A S S I G N
0003320 . C O D E A 0 0 0 2 A 0 0 0 3
0003340 D 1 \r ( N A M E U E R R O R S
0003360 E T I 1 U R E S E T V A R
0003400 S L S T I 0 U E R R O R N
0003420 A M E F 0 U A R G F 1
0003440 S O U R C E ) \0 016 \0 002 \0 002 P
0003460 \t \0 \0 c 002 264 006 \b \0 \0 h 020 \0 ( 1 2
0003500 Q U E R R O R ! 3 C O N V
0003520 . S C A L A R ) \r N I L \r ( ) \r
0003540 A S S I G N . C O D E A 0 0 0 2
0003560 D 1 \r ( N A M E U E R R O R
0003600 S E T I 1 U R E S E T V A
0003620 R S L S T I 0 U E R R O R
0003640 N A M E F 0 S O U R C E
0003660 F 1 R E S E T V A R S L S T
0003700 ) \0 027 \0 002 \0 002 P d 262 023 003 001 003 253
0003720 g \0 \0 Q \n \0 \0 264 006 \b \0 \0 h 020 \0 (
0003740 2 3 Q U E R R O R ! 1 6 Q
0003760 A S S I G N . C O D E A 0 0 0 2
0004000 A 0 0 0 3 ) \r ( 1 2 Q U E R R
0004020 O R G U A R D ) \r ( ) \r A S S I
0004040 G N . C O D E A 0 0 0 4 D 1 \r
0004060 ( N A M E U E R R O R S E T
0004100 I 1 U R E S E T V A R S L S
0004120 T I 0 U E R R O R N A M E
0004140 F 0 U A R G F 1 V A
0004160 L U E ) \0 \t \0 002 \0 002 P \t \0 \0 c
0004200 002 h 020 \0 ( 3 C O N V . A R I T
0004220 H ) \r N I L \r ( ) \r A S S I G N
0004240 . C O D E A 0 0 0 5 D 1 \r ( N
0004260 A M E U E R R O R S E T I
0004300 1 U R E S E T V A R S L S T
0004320 I 0 U E R R O R N A M E F
0004340 0 U A R G F 1 V A L U
0004360 E ) \0 016 \0 002 \0 002 P c 002 004 l 004 360
0004400 242 \b \0 \0 h 020 \0 ( 1 2 Q U E R R
0004420 O R ! ) \r N I L \r ( ) \r A S S I
0004440 G N . C O D E D 1 \r ( P 1 3
0004460 Q C P 1 2 Q P A I R P
0004500 6 A T Y P E P 4 U A R
0004520 G P 3 S O U R C E P 2
0004540 V A L U E P 1 U A R G
0004560 P 0 V A L D I M I 2 S
0004600 O U R C E I 1 C O D E S P
0004620 E C I 0 A F 1 4 Q R
0004640 E S E T V A R S L S T ) 001 250 \f
0004660 001 \0 003 A 002 001 251 @ d B \n \0 \0 \n \0 \0
0004700 020 @ \t \0 \0 021 001 \0 H 263 037 \b \0 \0 262 026
0004720 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0 277 i
0004740 \t \0 \0 277 \b \0 \0 277 A 002 002 001 262 g @ d
0004760 A 002 001 H \v \0 \0 A 002 002 001 021 021 002 g \0
0005000 \0 W 030 \n \0 \0 262 037 \b \0 \0 262 026 o \0 \0
0005020 \0 i \n \0 \0 277 I i \n \0 \0 277 i \t \0 \0
0005040 277 \b \0 \0 277 J 022 B d 004 l 004 360 263 ! 277
0005060 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277 B i
0005100 \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 B \f \0
0005120 \0 260 J @ d A 002 001 H \v \0 \0 B d 021 002
0005140 004 g \0 \0 W 030 \n \0 \0 262 037 \b \0 \0 262 026
0005160 o \0 \0 \0 i \n \0 \0 277 L i \n \0 \0 277 i
0005200 \t \0 \0 277 \b \0 \0 277 K 022 @ \t \0 \0 021 R
0005220 \v M 003 265 \n O 016 022 \v \0 \0 h 020 001 _ 024
0005240 003 001 021 021 002 g \0 \0 W 030 \n \0 \0 262 037 \b
0005260 \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277 I i \n
0005300 \0 \0 277 i \t \0 \0 277 \b \0 \0 277 J 022 _ 026
0005320 277 N g \0 \0 360 225 O 026 \t \0 \0 204 O 026 006
0005340 \0 \0 _ 026 O 016 \n \0 \0 262 \b \0 \0 262 027
0005360 o \0 \0 \0 i \n \0 \0 277 O 026 i \n \0 \0 277
0005400 i \t \0 \0 277 \b \0 \0 277 O 026 O 024 002 001 021
0005420 021 002 g \0 \0 W 030 \n \0 \0 262 037 \b \0 \0 262
0005440 026 o \0 \0 \0 i \n \0 \0 277 I i \n \0 \0 277
0005460 i \t \0 \0 277 \b \0 \0 277 J 022 032 _ 022 277 O
0005500 020 265 021 O 022 h 032 _ 020 _ 016 277 M 002 ] 261
0005520 377 C O 022 & _ 020 277 260 364 \0 ( 6 0 4 Q
0005540 U E R R O R ! 6 0 0 Q T E
0005560 R P R I 5 7 3 Q P R I N 2
0005600 5 6 5 Q P R I N 1 5 5 3 Q
0005620 U E R R O R P R I N T ? 5 4 6
0005640 Q A S S I G N . C O D E A 0 0
0005660 0 5 5 2 4 Q U E R R O R !
0005700 5 2 0 Q T E R P R I 5 1 3 Q
0005720 P R I N 2 5 0 4 Q P R I N
0005740 1 4 7 2 Q U E R R O R P R I
0005760 N T ? 4 6 5 Q S A S S O C
0006000 4 5 0 Q F I X R 4 2 7 Q U
0006020 E R R O R ! 4 2 3 Q T E R P
0006040 R I 4 1 6 Q P R I N 2 4 1
0006060 0 Q P R I N 1 3 7 6 Q U E
0006100 R R O R P R I N T ? 3 7 1 Q
0006120 A S S I G N . C O D E A 0 0 0 4
0006140 3 4 7 Q S E T C O D E S 3
0006160 3 2 Q A E L T T Y P E 3 2 3
0006200 Q U E R R O R ! 3 1 7 Q T
0006220 E R P R I 3 1 2 Q P R I N 2
0006240 3 0 4 Q P R I N 1 2 7 2 Q
0006260 U E R R O R P R I N T ? 2 6
0006300 5 Q A S S I G N . C O D E A 0
0006320 0 0 2 2 5 0 Q M A K E 1 S L
0006340 T R 2 3 5 Q S E T C O D E L
0006360 A B 2 3 0 Q U E R R O R !
0006400 2 2 4 Q T E R P R I 2 1 7 Q
0006420 P R I N 2 2 1 1 Q P R I N
0006440 1 1 7 7 Q U E R R O R P R I
0006460 N T ? 1 6 0 Q U E R R O R !
0006500 1 5 4 Q T E R P R I 1 4 7
0006520 Q P R I N 2 1 4 1 Q P R I
0006540 N 1 1 2 7 Q U E R R O R P R
0006560 I N T ? 1 2 2 Q A S S I G N
0006600 . C O D E A 0 0 0 1 1 0 3 Q
0006620 M A K E 1 S L T R 6 3 Q U E
0006640 R R O R ! 5 7 Q T E R P R I
0006660 5 2 Q P R I N 1 4 4 Q P
0006700 R I N 1 3 2 Q U E R R O R P
0006720 R I N T ? 2 1 Q G E T V A L
0006740 D I M 1 4 Q S E T V A L D I
0006760 M 1 1 Q M A K E 1 D I M S P
0007000 E C ) \r ( 5 4 1 Q U E R R O R
0007020 G U A R D 4 5 6 Q F L O A T
0007040 P 4 4 1 Q I N T E G E R 3
0007060 6 4 Q U E R R O R G U A R D
0007100 2 6 0 Q U E R R O R G U A R D
0007120 1 1 5 Q U E R R O R G U A R
0007140 D ) \r ( 5 6 1 Q " I n v a l
0007160 i d c o d e l a b e l :
0007200 " 5 0 0 Q " D u p l i c a t
0007220 e c o d e s p e c i f i c a
0007240 t i o n : " 4 0 4 Q " I
0007260 l l e g a l c o d e v a l u
0007300 e : " 3 0 0 Q " I l l e
0007320 g a l c o d e b o o k s p e
0007340 c i f i c a t i o n : " 2
0007360 0 5 Q " I n v a l i d c o d
0007400 e l a b e l : " 1 3 5 Q
0007420 " I n v a l i d c o d e v
0007440 a l u e : " 4 0 Q " V a
0007460 l u e - l a b e l e d d i m e
0007500 n s i o n n o t d e f i n e
0007520 d f o r " ) \r A S S I G N .
0007540 L A B E L A 0 0 0 1 D 1 \r ( N
0007560 A M E U E R R O R S E T I
0007600 1 U R E S E T V A R S L S T
0007620 I 0 U E R R O R N A M E F
0007640 0 U A R G F 1 V A L U
0007660 E ) \0 016 \0 002 \0 002 P c 002 004 l 004 360
0007700 242 \b \0 \0 h 020 \0 ( 1 2 Q U E R R
0007720 O R ! ) \r N I L \r ( ) \r A S S I
0007740 G N . L A B E L A 0 0 0 2 D 1
0007760 \r ( N A M E U E R R O R S E T
0010000 I 1 U R E S E T V A R S L
0010020 S T I 0 U E R R O R N A M
0010040 E F 0 U A R G F 1 V
0010060 A L U E ) \0 016 \0 002 \0 002 P c 002 004
0010100 l 004 360 242 \b \0 \0 h 020 \0 ( 1 2 Q U
0010120 E R R O R ! ) \r N I L \r ( ) \r A
0010140 S S I G N . L A B E L A 0 0 0 4
0010160 D 1 \r ( N A M E U E R R O R
0010200 S E T I 1 U R E S E T V A
0010220 R S L S T I 0 U E R R O R
0010240 N A M E F 0 U A R G F
0010260 1 V A L U E ) \0 016 \0 002 \0 002 P
0010300 c 002 004 l 004 360 242 \b \0 \0 h 020 \0 ( 1 2
0010320 Q U E R R O R ! ) \r N I L \r (
0010340 ) \r A S S I G N . L A B E L A 0
0010360 0 0 5 D 1 \r ( N A M E U E R
0010400 R O R S E T I 1 U R E S E
0010420 T V A R S L S T I 0 U E R
0010440 R O R N A M E F 0 U A R G
0010460 F 1 V A L U E ) \0 016 \0 002
0010500 \0 002 P c 002 004 l 004 360 242 \b \0 \0 h 020 \0
0010520 ( 1 2 Q U E R R O R ! ) \r N I
0010540 L \r ( ) \r A S S I G N . L A B E
0010560 L A 0 0 0 6 D 1 \r ( N A M E
0010600 U E R R O R S E T I 1 U R
0010620 E S E T V A R S L S T I 0
0010640 U E R R O R N A M E F 0 U
0010660 A R G F 1 V A L U E ) \0
0010700 016 \0 002 \0 002 P c 002 004 l 004 360 242 \b \0 \0
0010720 h 020 \0 ( 1 2 Q U E R R O R ! )
0010740 \r N I L \r ( ) \r A S S I G N . L
0010760 A B E L A 0 0 0 7 D 1 \r ( N A
0011000 M E U E R R O R S E T I 1
0011020 U R E S E T V A R S L S T I
0011040 0 U E R R O R N A M E F
0011060 0 U A R G F 1 V A L U E
0011100 ) \0 016 \0 002 \0 002 P c 002 004 l 004 360 242
0011120 \b \0 \0 h 020 \0 ( 1 2 Q U E R R O
0011140 R ! ) \r N I L \r ( ) \r A S S I G
0011160 N . L A B E L D 1 \r ( P 2 4
0011200 Q S P 2 3 Q I P 2 1
0011220 Q S P 2 0 Q D P 1 6
0011240 Q $ $ T M P P 1 5 Q V A
0011260 L U E P 1 4 Q U A R G P
0011300 1 3 Q G S B S P 1 2 Q
0011320 S P 1 1 Q V A L U E P
0011340 1 0 Q U A R G P 7 S P
0011360 6 L P 4 V A L U E P
0011400 3 U A R G P 2 S L T R
0011420 P 0 D I M N U M I 2
0011440 S O U R C E I 1 L A B S P
0011460 E C I 0 A F 2 5 Q R
0011500 E S E T V A R S L S T ) 002 235 025
0011520 001 \0 003 B 003 245 B h 032 b 004 277 A d 002 002
0011540 001 242 261 001 a 277 @ A 002 001 \n \0 \0 021 021 001
0011560 @ A 002 002 001 H \v \0 \0 021 001 002 J d 3
0011600 262 : 277 @ H J B 001 021 021 004 g \0 \0 W *
0011620 \n \0 \0 262 037 \b \0 \0 262 026 o \0 \0 \0 i \n
0011640 \0 \0 277 K i \n \0 \0 277 i \t \0 \0 277 \b \0
0011660 \0 277 L 022 \f \0 \0 261 001 \n g \0 \0 360 262 f
0011700 @ 006 \0 \0 311 002 H \n \0 \0 k B 021 003 \a N
0011720 M 363 263 N @ H N O 016 001 O 016 002 _ 016 277
0011740 021 021 \t g \0 \0 W * \n \0 \0 262 \b \0 \0
0011760 262 027 o \0 \0 \0 i \n \0 \0 277 O 020 i \n \0
0012000 \0 277 i \t \0 \0 277 \b \0 \0 277 O 022 022 \f \0
0012020 \0 277 O 016 003 243 B _ 016 277 N k 324 ^ 260 262
0012040 023 261 \0 240 J g \0 \0 \n \0 \0 262 w B J g
0012060 \0 \0 \n \0 \0 021 002 \v O 026 006 \0 \0 310 \0 Y
0012100 j 360 263 ] I 005 003 225 I \t \0 \0 263 S @ H
0012120 J O 026 \t \0 \0 \n \0 \0 O 024 001 O 024 002 _
0012140 024 277 021 021 \r g \0 \0 W * \n \0 \0 262 \b
0012160 \0 \0 262 027 o \0 \0 \0 i \n \0 \0 277 O 030 i
0012200 \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 O 032 022
0012220 \f \0 \0 277 O 024 003 263 241 B _ 024 277 260 233 023
0012240 260 ! \b \0 \0 262 031 o \0 \0 \0 i \n \0 \0 277
0012260 A 002 002 001 i \n \0 \0 277 i \t \0 \0 277 \b \0
0012300 \0 h 020 002 001 021 001 016 O 034 d g \0 \0 360 262
0012320 f 277 @ 006 \0 \0 311 002 006 \0 \0 310 005 k B 021
0012340 003 021 O O 036 363 263 332 @ O O " 001 O
0012360 " 002 _ " 277 021 021 004 g \0 \0 W * \n \0 \0
0012400 262 037 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277
0012420 K i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 L
0012440 022 \v \0 \0 277 O " 003 243 B _ " 277 O k
0012460 324 _ 260 261 003 257 O 034 004 ` \0 \0 360 262 w
0012500 O 034 \t \0 \0 263 p @ A 002 001 \n \0 \0 021 001
0012520 002 J 006 \0 \0 310 005 k B 021 003 024 O & O $
0012540 363 222 261 377 _ @ J O & \n \0 \0 O ( 001 O
0012560 ( 002 _ ( 277 021 021 004 g \0 \0 W * \n \0 \0
0012600 262 037 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277
0012620 K i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 L
0012640 022 \v \0 \0 277 O ( 003 243 B _ ( 277 O & k
0012660 324 _ & 260 253 @ d A 002 001 \n \0 \0 B 001 021
0012700 021 004 g \0 \0 W * \n \0 \0 262 037 \b \0 \0 262
0012720 026 o \0 \0 \0 i \n \0 \0 277 K i \n \0 \0 277
0012740 i \t \0 \0 277 \b \0 \0 277 L 022 \v \0 \0 020 \0
0012760 ( 1 2 3 2 Q S E T D I M L A B
0013000 1 2 2 4 Q U E R R O R ! 1
0013020 2 2 0 Q T E R P R I 1 2 1 3
0013040 Q P R I N 2 1 2 0 5 Q P R
0013060 I N 1 1 1 7 3 Q U E R R O R
0013100 P R I N T ? 1 1 6 6 Q A S S
0013120 I G N . L A B E L A 0 0 0 7 1
0013140 1 5 1 Q M A K E 1 D I M S P E
0013160 C 1 1 2 0 Q S E T D I M L A
0013200 B 1 1 1 2 Q U E R R O R !
0013220 1 1 0 6 Q T E R P R I 1 1 0
0013240 1 Q P R I N 2 1 0 7 3 Q P
0013260 R I N 1 1 0 6 1 Q U E R R O
0013300 R P R I N T ? 1 0 5 4 Q A S
0013320 S I G N . L A B E L A 0 0 0 6
0013340 1 0 3 0 Q G E T R E L T 7 7
0013360 2 Q M A K E D I M S P E C 7
0013400 6 1 Q V S C A L A R P 7 2 0
0013420 Q S E T D I M L A B 7 1 2 Q
0013440 U E R R O R ! 7 0 6 Q T E
0013460 R P R I 7 0 1 Q P R I N 2
0013500 6 7 3 Q P R I N 1 6 6 1 Q
0013520 U E R R O R P R I N T ? 6 5 4
0013540 Q A S S I G N . L A B E L A 0
0013560 0 0 5 5 5 5 Q U E R R O R !
0013600 5 5 1 Q T E R P R I 5 4 4
0013620 Q P R I N 2 5 3 3 Q P R I
0013640 N 1 5 2 1 Q U E R R O R P R
0013660 I N T ? 4 7 7 Q S E T L E V
0013700 L A B 4 7 0 Q U E R R O R !
0013720 4 6 4 Q T E R P R I 4 5 7
0013740 Q P R I N 2 4 5 0 Q P R I
0013760 N 1 4 3 6 Q U E R R O R P R
0014000 I N T ? 4 3 1 Q A S S I G N
0014020 . L A B E L A 0 0 0 4 4 0 5 Q
0014040 G E T A E L T 4 0 2 Q N E
0014060 X T 3 7 0 Q \ F Z E R O P
0014100 3 4 1 Q S E T U P 3 2 7 Q
0014120 A R R A Y T Y P E P 2 7 5 Q
0014140 S E T L E V L A B 2 6 6 Q U
0014160 E R R O R ! 2 6 2 Q T E R P
0014200 R I 2 5 5 Q P R I N 2 2 4
0014220 6 Q P R I N 1 2 3 4 Q U E
0014240 R R O R P R I N T ? 2 2 7 Q
0014260 A S S I G N . L A B E L A 0 0 0
0014300 2 1 6 6 Q G E T R E L T 1
0014320 4 3 Q S E T L E V L A B 1 3
0014340 5 Q U E R R O R ! 1 3 1 Q
0014360 T E R P R I 1 2 4 Q P R I N
0014400 2 1 1 6 Q P R I N 1 1 0 4
0014420 Q U E R R O R P R I N T ? 7
0014440 7 Q A S S I G N . L A B E L A
0014460 0 0 0 1 4 5 Q M A K E S L T
0014500 R 3 1 Q M A K E 1 D I M S P
0014520 E C ) \r ( 1 1 6 1 Q U E R R O
0014540 R G U A R D 1 0 4 7 Q U E R
0014560 R O R G U A R D 1 0 0 1 Q R
0014600 O W H E A D E R 7 5 1 Q 004 003
0014620 A R R A Y F R A M E T Y P E #
0014640 6 4 7 Q U E R R O R G U A R D
0014660 6 0 7 Q R O W H E A D E R
0014700 6 0 2 Q A R R A Y F R A M E
0014720 5 7 2 Q A L L 4 2 4 Q U E
0014740 R R O R G U A R D 3 5 1 Q G
0014760 E N S T A T E B L O C K 3 3 6
0015000 Q R O W M A J O R 3 2 4 Q
0015020 V E C T O R 2 2 2 Q U E R R
0015040 O R G U A R D 1 6 0 Q A R R
0015060 A Y F R A M E 1 5 1 Q A L L
0015100 7 2 Q U E R R O R G U A R D
0015120 ) \r ( 1 2 0 1 Q " I n v a l
0015140 i d l a b e l : " 1 0 6
0015160 7 Q " I n v a l i d l a b e
0015200 l : " 6 6 7 Q " I n v a
0015220 l i d l a b e l : " 5 2
0015240 7 Q " I n v a l i d l a b e
0015260 l s e l e c t o r : " 4
0015300 4 4 Q " I n v a l i d l a b
0015320 e l : " 2 4 2 Q " I n v
0015340 a l i d l a b e l : " 1
0015360 1 2 Q " I n v a l i d l a b
0015400 e l : " ) \r A S S I G N . S
0015420 E L A R R A Y A 0 0 0 3 A 0 0 0
0015440 4 D 1 \r ( N A M E U E R R O
0015460 R S E T I 1 U R E S E T V
0015500 A R S L S T I 0 U E R R O
0015520 R N A M E F 0 U A R G F
0015540 1 S O U R C E ) \0 \t \0 002 \0
0015560 002 P \t \0 \0 c 002 h 020 \0 ( 3 C O N
0015600 V . S C A L A R ) \r N I L \r ( )
0015620 \r A S S I G N . S E L A R R A Y
0015640 A 0 0 0 3 A 0 0 0 5 D 1 \r ( N
0015660 A M E U E R R O R S E T I
0015700 1 U R E S E T V A R S L S T
0015720 I 0 U E R R O R N A M E F
0015740 0 U A R G F 1 S O U R
0015760 C E ) \0 \t \0 002 \0 002 P \t \0 \0 c 002
0016000 h 020 \0 ( 3 C O N V . A R R A Y
0016020 ) \r N I L \r ( ) \r A S S I G N .
0016040 S E L A R R A Y A 0 0 0 3 D 1
0016060 \r ( N A M E U E R R O R S E T
0016100 I 1 U R E S E T V A R S L
0016120 S T I 0 U E R R O R N A M
0016140 E F 0 S O U R C E F 1
0016160 R E S E T V A R S L S T ) \0
0016200 ( \0 002 \0 002 P 3 020 263 " P d 262 037 004 `
0016220 \0 \0 360 263 027 g \0 \0 Q \n \0 \0 264 017 g \0
0016240 \0 Q \n \0 \0 264 006 \b \0 \0 h 020 \0 ( 4 4
0016260 Q U E R R O R ! 3 7 Q A S
0016300 S I G N . S E L A R R A Y A 0 0
0016320 0 3 A 0 0 0 5 2 6 Q A S S I
0016340 G N . S E L A R R A Y A 0 0 0 3
0016360 A 0 0 0 4 ) \r ( 3 3 Q U E R R
0016400 O R G U A R D 2 2 Q U E R R
0016420 O R G U A R D 1 4 Q 004 003 A R
0016440 R A Y F R A M E T Y P E # ) \r (
0016460 ) \r A S S I G N . S E L A R R A
0016500 Y A 0 0 0 6 D 1 \r ( N A M E
0016520 U E R R O R S E T I 1 U R
0016540 E S E T V A R S L S T I 0
0016560 U E R R O R N A M E F 0 U
0016600 A R G F 1 S O U R C E )
0016620 \0 \t \0 002 \0 002 P \t \0 \0 c 002 h 020 \0 (
0016640 3 C O N V . A R R A Y ) \r N I
0016660 L \r ( ) \r A S S I G N . S E L A
0016700 R R A Y D 1 \r ( P 1 0 Q F
0016720 I X F L G P 7 G S B S P
0016740 6 G S B T P 5 V A L
0016760 P 4 U A R G P 3 S O U
0017000 R C E P 2 E B P 0 B
0017020 A I 1 S O U R C E I 0
0017040 T A R G F 1 3 Q R E S E
0017060 T V A R S L S T ) 001 [ \v 001 \0 002
0017100 @ 006 \0 \0 311 \b 021 ! 002 H 006 \0 \0 311 \b Z
0017120 006 \0 \0 310 006 k 363 262 & J 006 \0 \0 J 006 \0
0017140 \0 310 006 m 377 324 315 006 277 H 006 \0 \0 J \t \0
0017160 \0 Y 024 \b 277 I 006 \0 \0 k 315 006 277 023 @ \t
0017200 \0 \0 262 i @ d \t \0 \0 A d 021 002 004 g \0
0017220 \0 W 026 \n \0 \0 262 037 \b \0 \0 262 026 o \0 \0
0017240 \0 i \n \0 \0 277 L i \n \0 \0 277 i \t \0 \0
0017260 277 \b \0 \0 277 K 022 b 002 d 3 020 241 h 360 221
0017300 A 215 A d g \0 \0 \n \0 \0 \t \0 \0 \n \0 \0
0017320 021 001 005 @ \t \0 \0 g \0 \0 360 230 M d 005 003
0017340 224 \t \0 \0 200 M 022 \v \0 \0 020 A d 021 002 004
0017360 g \0 \0 W 026 \n \0 \0 262 037 \b \0 \0 262 026 o
0017400 \0 \0 \0 i \n \0 \0 277 L i \n \0 \0 277 i \t
0017420 \0 \0 277 \b \0 \0 277 K 022 b 002 @ g \0 \0 \n
0017440 \0 \0 A g \0 \0 \n \0 \0 @ \t \0 \0 g \0 \0
0017460 360 264 \n A \t \0 \0 g \0 \0 360 021 # \n 021 020
0017500 005 N 006 \0 \0 310 \0 _ 022 j 360 263 M O 022 005
0017520 003 226 O 022 \t \0 \0 263 A @ N \t \0 \0 A O
0017540 016 \t \0 \0 \n \0 \0 ] 264 \v O 020 224 M \t \0
0017560 \0 200 M \v \0 \0 277 O 016 006 \0 \0 310 \0 _ 024
0017600 j 360 254 O 024 005 003 262 272 O 024 \t \0 \0 262 263
0017620 O 016 \t \0 \0 277 260 253 h 020 \0 ( 5 2 4 Q
0017640 R E S E T U P 5 1 5 Q \ F
0017660 Z E R O P 4 6 5 Q S E T A E
0017700 L T 4 6 0 Q F I X R 4 4 6
0017720 Q G E T A E L T 4 4 3 Q N
0017740 E X T 4 3 5 Q N E X T 4 2
0017760 6 Q \ F Z E R O P 3 6 6 Q
0020000 A E L T T Y P E 3 5 4 Q A E
0020020 L T T Y P E 3 5 0 Q S E T U
0020040 P 3 4 1 Q S E T U P 3 2 5
0020060 Q U E R R O R ! 3 2 1 Q T
0020100 E R P R I 3 1 4 Q P R I N 1
0020120 3 0 6 Q P R I N 1 2 7 4 Q
0020140 U E R R O R P R I N T ? 2 6
0020160 7 Q A S S I G N . S E L A R R
0020200 A Y A 0 0 0 6 2 5 1 Q S E T
0020220 A E L T 2 4 3 Q F I X R 2
0020240 2 6 Q A E L T T Y P E 2 1 7
0020260 Q G E T A E L T 2 1 4 Q N
0020300 E X T 2 1 1 Q S E T U P 1
0020320 6 3 Q U E R R O R ! 1 5 7 Q
0020340 T E R P R I 1 5 2 Q P R I
0020360 N 1 1 4 4 Q P R I N 1 1 3
0020400 2 Q U E R R O R P R I N T ?
0020420 1 2 5 Q A S S I G N . S E L A
0020440 R R A Y A 0 0 0 3 1 1 0 Q V
0020460 S C A L A R P T R 1 0 1 Q V
0020500 S C A L A R P 6 0 Q C O P Y
0020520 R O W ) \r ( 4 7 3 Q G E N S T
0020540 A T E B L O C K 4 0 4 Q G E
0020560 N S T A T E B L O C K 3 7 1 Q
0020600 F L O A T I N G 3 5 7 Q I
0020620 N T E G E R 3 4 5 Q R O W M
0020640 A J O R 3 3 6 Q R O W M A J
0020660 O R 2 6 2 Q U E R R O R G U
0020700 A R D 2 3 1 Q I N T E G E R
0020720 2 0 6 Q D O N T C A R E 1
0020740 2 0 Q U E R R O R G U A R D
0020760 7 0 Q R O W H E A D E R 5 4
0021000 Q A R R A Y F R A M E 4 0 Q
0021020 R O W H E A D E R 3 4 Q R
0021040 O W H E A D E R 2 2 Q R O W
0021060 H E A D E R 1 4 Q A R R A Y
0021100 F R A M E 3 A R R A Y F R A
0021120 M E ) \r ( 3 0 2 Q " S o u r
0021140 c e n o t a n a r r a y :
0021160 " 1 4 0 Q " I n v a l i
0021200 d s o u r c e : " ) \r A S
0021220 S I G N M A C D 1 \r ( L ( 1
0021240 S R C E 0 T A R G ) ) \0
0021260 3 \0 \0 \0 002 A g \0 \0 360 223 g \0 \0 020 @
0021300 003 265 \r o \0 \0 \0 @ A h 032 032 032 020 001 g
0021320 \0 \0 360 262 360 o \0 \0 \0 @ 002 001 @ 002 002 001
0021340 A h 032 032 032 032 020 \0 N I L \r ( 3 4 Q
0021360 A T 1 0 Q I G N O R E M A
0021400 C R O 3 $ $ S ) \r ( 4 3 Q
0021420 ( L A M B D A ( $ $ T 1 $
0021440 $ T 2 $ $ S ) ( D E C L A R
0021460 E ( S P E C V A R S $ $ T 1
0021500 $ $ T 2 $ $ S ) ) ( A S S
0021520 I G N ( A T $ $ T 1 $ $ T
0021540 2 ) $ $ S ) ) 2 1 Q ( L A
0021560 M B D A ( $ $ T 1 $ $ S )
0021600 ( D E C L A R E ( S P E C V A
0021620 R S $ $ T 1 $ $ S ) ) ( A
0021640 S S I G N $ $ T 1 $ $ S ) )
0021660 ) \r C O P Y H A C K D 1 \r ( P
0021700 2 C P 1 Z P 0 Y
0021720 I 0 X ) \0 K 003 \0 \0 001 @ d
0021740 003 262 * 277 021 001 @ 001 \t \0 \0 h 032 Y 270
0021760 @ 002 b \0 003 247 I @ \t \0 \0 031 H 020 I d
0022000 @ 001 \t \0 \0 & 277 002 271 260 347 004 ` \0 \0 360
0022020 262 026 @ \t \0 \0 021 001 002 J g \0 \0 @ \n \0
0022040 \0 \n \0 \0 J 020 @ 020 \0 ( 1 0 5 Q S
0022060 E T T I T L E 1 0 2 Q M A K
0022100 E T I T L E 6 7 Q P R E S E
0022120 R V E 4 6 Q C O P Y H A C K
0022140 3 4 Q C O P Y H A C K 1 5
0022160 Q C O P Y H A C K ) \r ( 7 6 Q
0022200 C O P Y H A C K 6 0 Q 004 003
0022220 A R R A Y F R A M E T Y P E # )
0022240 \r ( ) \r A T . A S S I G N T R A
0022260 N D 1 \r ( L ( 0 F O R M )
0022300 F 0 C L I S P C H A N G E
0022320 ) \0 037 \0 001 \0 001 i c \0 @ g \0 \0 @
0022340 002 001 @ 002 002 001 h 032 032 032 @ 002 002 002 032 031
0022360 @ g \0 \0 030 020 \0 N I L \r ( 3 3 Q
0022400 A S S I G N 6 A T ) \r ( ) \r
0022420 C L I S P I F Y U S E R F N D
0022440 1 \r ( I 0 F O R M ) \0 2 \0
0022460 \0 \0 001 @ 001 g \0 \0 360 264 * @ 002 001 003 001
0022500 g \0 \0 360 264 037 @ 002 001 \t \0 \0 g \0 \0 h
0022520 032 @ 002 002 003 264 \b @ 002 002 \t \0 \0 \n \0 \0
0022540 \n \0 \0 020 \0 ( 5 7 Q \ N C O N C
0022560 2 5 4 Q \ N C O N C 2 5 1
0022600 Q C L I S P I F Y 3 0 Q C
0022620 L I S P I F Y ) \r ( 3 3 Q _
0022640 1 7 Q A T 4 A S S I G N )
0022660 \r ( ) \r ( P R E T T Y C O M P R
0022700 I N T A S S I G N C O M S ) \r
0022720 ( R P A Q Q A S S I G N C O M
0022740 S ( ( * I m p l e m e n t a
0022760 t i o n o f t h e I D L
0023000 a s s i g n m e n t o p e r a
0023020 t o r ) ( F N S A S S I G N
0023040 A S S I G N ! A S S I G N .
0023060 C O D E \r A S S I G N . L A B
0023100 E L A S S I G N . S E L A R R
0023120 A Y A S S I G N M A C C O P
0023140 Y H A C K ) ( M A C R O S A
0023160 S S I G N ) ( * K l u d g e
0023200 t o g e t A S S I G N t
0023220 o c l i s p i f y \r a n d
0023240 d w i m i f y p r o p e r l y
0023260 ) ( F N S A T . A S S I G N
0023300 T R A N C L I S P I F Y U S E
0023320 R F N ) ( V A R S ( C L I S
0023340 P I F Y U S E R F N T ) ) (
0023360 P R O P ( A R G N A M E S \r
0023400 I N F O ) A S S I G N ) ( P
0023420 R O P C L I S P W O R D A T
0023440 . A S S I G N ) ( D E C L A R
0023460 E : D O N T E V A L @ L O A D
0023500 D O E V A L @ C O M P I L E
0023520 D O N T C O P Y C O M P I L E
0023540 R V A R S \r ( A D D V A R S
0023560 ( N L A M A A S S I G N ) (
0023600 N L A M L ) ( L A M A ) ) ) )
0023620 ) \r ( P U T P R O P S A S S I
0023640 G N M A C R O ( A R G S (
0023660 A S S I G N M A C ( C A R A
0023700 R G S ) ( C A D R A R G S )
0023720 ) ) ) \r ( R P A Q Q C L I S P
0023740 I F Y U S E R F N T ) \r ( P U
0023760 T P R O P S A S S I G N A R
0024000 G N A M E S ( N I L ( T A R
0024020 G E T S O U R C E ) . A S
0024040 S I G N A R G S ) ) \r ( P U T P
0024060 R O P S A S S I G N I N F O
0024100 E V A L ) \r ( P U T P R O P S
0024120 A T . A S S I G N C L I S P
0024140 W O R D ( A T . A S S I G N T
0024160 R A N . A S S I G N ) ) \r (
0024200 P U T P R O P S A S S I G N
0024220 C O P Y R I G H T ( " X e r o
0024240 x C o r p o r a t i o n " 1
0024260 9 8 4 1 9 8 5 1 9 8 6 ) ) \r
0024300 N I L \r
0024304