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