$ od -c -N 50000 [qv]<IDL>RELEASE0.1>GENERATORS.FDCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - A p r - 8 6 0 0 : 1 3 : 5 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 > G E N E R A T O R S . ; 1
0000120 7 ) \r " 1 2 - N o v - 8 5 1
0000140 4 : 5 9 : 2 3 " t c o m p l '
0000160 d i n " I N T E R L I S P -
0000200 D 7 - F e b - 8 6 . . . "
0000220 d a t e d " 7 - F e b - 8
0000240 6 1 1 : 4 3 : 0 5 " ) \r ( F I
0000260 L E C R E A T E D " 1 6 - F e
0000300 b - 8 6 1 3 : 4 6 : 2 2 " {
0000320 Q V } < I D L > S O U R C E S >
0000340 G E N E R A T O R S . ; 1 7 1
0000360 5 8 5 3 c h a n g e s t o :
0000400 ( V A R S \r G E N E R A T O
0000420 R S C O M S ) p r e v i o u s
0000440 d a t e : " 1 6 - F e b - 8
0000460 6 1 3 : 0 6 : 1 7 " { Q V }
0000500 < I D L > S O U R C E S > G E N
0000520 E R A T O R S . ; 1 6 ) \r G E N
0000540 T O A R Y D 1 \r ( L ( 2 N
0000560 D I M 1 O R D R 0 G D I
0000600 M ) ) \0 017 \0 \0 \0 003 A g \0 \0 360 225
0000620 B k 324 @ 325 020 @ 020 \0 N I L \r ( 3
0000640 R O W M A J O R ) \r ( ) \r S E T
0000660 U P D 1 \r ( I 2 G S B I
0000700 1 O R D I 0 A R Y )
0000720 001 i 001 \0 \0 003 B 265 \b ` \0 \0 037 b 004 006
0000740 \0 \0 @ 024 004 B 006 \0 \0 j 315 001 B 006 \0 \0
0000760 A g \0 \0 360 237 @ 006 \0 \0 311 002 @ 006 \0 \0
0001000 311 004 \n \0 \0 210 @ 006 \0 \0 311 002 \t \0 \0 315
0001020 \0 B 006 \0 \0 A d g \0 \0 360 223 277 g \0 \0
0001040 024 002 @ 006 \0 \0 311 \0 d g \0 \0 360 262 r 277
0001060 @ 006 \0 \0 311 004 d g \0 \0 360 234 277 B 006 \0
0001100 \0 311 002 g \0 \0 360 260 025 g \0 \0 360 232 B 006
0001120 \0 \0 311 002 g \0 \0 360 202 \b \0 \0 262 033 B 006
0001140 \0 \0 g \0 \0 024 006 277 B 006 \0 \0 @ 006 \0 \0
0001160 311 \b 024 \b 261 \0 310 B 006 \0 \0 g \0 \0 024 006
0001200 277 B 006 \0 \0 i h @ 006 \0 \0 311 002 006 \0 \0
0001220 310 005 g \0 \0 k \r 005 \0 \0 024 \b 261 \0 240 g
0001240 \0 \0 360 242 261 \0 225 @ 006 \0 \0 311 004 d g \0
0001260 \0 360 262 m 277 B 006 \0 \0 g \0 \0 024 006 277 B
0001300 006 \0 \0 i h @ 006 \0 \0 311 \b 006 \0 \0 311 002
0001320 006 \0 \0 310 005 g \0 \0 k \r 005 \0 \0 021 001 \0
0001340 H 006 \0 \0 H 006 \0 \0 310 006 k 330 315 006 277 H
0001360 022 i h @ 006 \0 \0 311 002 006 \0 \0 310 005 g \0
0001400 \0 k \r 005 \0 \0 021 001 \0 H 006 \0 \0 H 006 \0
0001420 \0 310 006 k 330 315 006 277 H 022 032 024 \b 260 037 g
0001440 \0 \0 360 262 026 B 006 \0 \0 g \0 \0 024 006 277 B
0001460 006 \0 \0 k d 032 024 \b 202 \b \0 \0 B 020 \0 (
0001500 5 4 5 Q S H O U L D N T 4 5
0001520 7 Q D R O W C R E A T E 4 0
0001540 6 Q D R O W C R E A T E 3 0
0001560 3 Q D R O W C R E A T E 2 0
0001600 5 Q S H O U L D N T 7 0 Q
0001620 N L O G I C A L E L T S 5 6 Q
0001640 N P H Y S I C A L E L T S ) \r
0001660 ( 5 3 4 Q G E N S T A T E B L
0001700 O C K 5 2 5 Q S Y M S E L E
0001720 C T . N E X T F N 5 2 2 Q G
0001740 E N S T A T E B L O C K 5 1 3
0001760 Q S Y M M E T R I C 4 7 2 Q
0002000 R O W H E A D E R 4 6 6 Q
0002020 R O W H E A D E R 4 5 2 Q I
0002040 N T E G E R 4 4 5 Q R O W H
0002060 E A D E R 4 4 0 Q A R R A Y
0002100 F R A M E 4 2 1 Q R O W H E
0002120 A D E R 4 1 5 Q R O W H E A
0002140 D E R 4 0 1 Q I N T E G E R
0002160 3 7 4 Q R O W H E A D E R
0002200 3 6 7 Q A R R A Y F R A M E
0002220 3 6 2 Q A R R A Y F R A M E
0002240 3 5 4 Q G E N S T A T E B L O
0002260 C K 3 4 5 Q S E L E C T I O
0002300 N . N E X T F N 3 4 2 Q G E
0002320 N S T A T E B L O C K 3 3 2 Q
0002340 F U L L 3 2 4 Q A R R A Y
0002360 F R A M E 3 1 3 Q S E L E C
0002400 T I O N 2 7 6 Q I N T E G E
0002420 R 2 7 1 Q R O W H E A D E R
0002440 2 6 4 Q A R R A Y F R A M E
0002460 2 5 6 Q G E N S T A T E B L
0002500 O C K 2 4 7 Q S I M P L E .
0002520 N E X T F N 2 4 4 Q G E N S
0002540 T A T E B L O C K 2 3 1 Q A
0002560 R R A Y F R A M E 2 2 5 Q G
0002600 E N S T A T E B L O C K 2 1 6
0002620 Q P H Y S I C A L . N E X T F
0002640 N 2 1 3 Q G E N S T A T E B
0002660 L O C K 2 0 0 Q S Y M M E T
0002700 R I C 1 7 3 Q G E N S T A T
0002720 E B L O C K 1 6 5 Q S Y M M
0002740 E T R I C 1 5 7 Q R O W M A
0002760 J O R 1 5 2 Q G E N S T A T
0003000 E B L O C K 1 4 3 Q F U L L
0003020 1 3 5 Q A R R A Y F R A M E
0003040 1 2 5 Q S I M P L E 1 1 7
0003060 Q A R R A Y F R A M E 1 1 1
0003100 Q R O W M A J O R 1 0 3 Q
0003120 D O N T C A R E 7 6 Q G E N
0003140 S T A T E B L O C K 6 3 Q A
0003160 R R A Y F R A M E 5 1 Q A R
0003200 R A Y F R A M E 4 3 Q A R R
0003220 A Y F R A M E 3 5 Q S Y M M
0003240 E T R I C 3 1 Q G E N S T A
0003260 T E B L O C K 2 2 Q G E N S
0003300 T A T E B L O C K 1 3 Q G E
0003320 N S T A T E B L O C K 5 004 003
0003340 G E N S T A T E B L O C K T Y P
0003360 E # ) \r ( ) \r R E S E T U P D
0003400 1 \r ( I 0 G S B ) \0 216 \0 \0
0003420 \0 001 @ 006 \0 \0 j 315 001 @ 006 \0 \0 @ 006 \0
0003440 \0 311 004 006 \0 \0 311 002 \t \0 \0 315 \0 @ 006 \0
0003460 \0 311 006 d g \0 \0 360 262 026 277 @ 006 \0 \0 @
0003500 006 \0 \0 311 \b 006 \0 \0 310 005 315 \0 260 Q d g
0003520 \0 \0 360 234 277 @ 006 \0 \0 311 \b k \n \0 \0 260
0003540 > d g \0 \0 360 262 034 277 @ 006 \0 \0 311 \b 001
0003560 k \n \0 \0 277 @ 006 \0 \0 311 \b 002 k \n \0 \0
0003600 260 035 g \0 \0 360 262 024 @ 006 \0 \0 311 \b k 030
0003620 277 @ 006 \0 \0 311 \b k 031 202 \b \0 \0 @ 020 \0
0003640 ( 2 1 2 Q S H O U L D N T 1
0003660 5 5 Q R O W B L T 1 4 1 Q
0003700 R O W B L T 1 1 4 Q R O W B
0003720 L T 3 0 Q N L O G I C A L E
0003740 L T S ) \r ( 2 0 2 Q G E N S T
0003760 A T E B L O C K 1 7 1 Q G E
0004000 N S T A T E B L O C K 1 6 2 Q
0004020 S Y M S E L E C T . N E X T F
0004040 N 1 4 6 Q G E N S T A T E B
0004060 L O C K 1 3 2 Q G E N S T A
0004100 T E B L O C K 1 2 2 Q S E L
0004120 E C T I O N . N E X T F N 1 0
0004140 6 Q G E N S T A T E B L O C K
0004160 7 7 Q S I M P L E . N E X T
0004200 F N 6 5 Q R O W H E A D E R
0004220 6 0 Q G E N S T A T E B L O
0004240 C K 5 4 Q G E N S T A T E B
0004260 L O C K 4 4 Q P H Y S I C A
0004300 L . N E X T F N 3 6 Q G E N
0004320 S T A T E B L O C K 2 3 Q A
0004340 R R A Y F R A M E 1 6 Q G E
0004360 N S T A T E B L O C K 1 2 Q
0004400 G E N S T A T E B L O C K 3
0004420 G E N S T A T E B L O C K ) \r (
0004440 ) \r S K I P D 1 \r ( I 1 N
0004460 I 0 G S B ) \0 T 001 \0 \0 002
0004500 A @ 006 \0 \0 310 \0 375 363 246 @ 006 \0 \0 j 260
0004520 , @ 006 \0 \0 311 006 g \0 \0 360 262 $ @ 006 \0
0004540 \0 @ 006 \0 \0 310 001 A 324 315 001 277 @ 006 \0 \0
0004560 @ 006 \0 \0 310 \0 A \t \0 \0 324 315 \0 @ 020 A
0004600 021 001 \0 H j 361 262 367 @ \t \0 \0 277 H k 331
0004620 X 260 363 \0 ( 1 1 3 Q N E X T 7
0004640 1 Q M I N U S ) \r ( 6 3 Q G
0004660 E N S T A T E B L O C K 5 7 Q
0004700 G E N S T A T E B L O C K 4
0004720 4 Q G E N S T A T E B L O C K
0004740 4 0 Q G E N S T A T E B L O
0004760 C K 3 1 Q P H Y S I C A L .
0005000 N E X T F N 2 4 Q G E N S T
0005020 A T E B L O C K 1 5 Q G E N
0005040 S T A T E B L O C K 4 G E N
0005060 S T A T E B L O C K ) \r ( ) \r N
0005100 E X T D 1 \r ( I 0 G S B )
0005120 \0 z 002 \0 \0 001 @ 006 \0 \0 @ 006 \0 \0 310
0005140 \0 m 377 324 315 \0 @ 006 \0 \0 311 004 @ 006 \0 \0
0005160 311 006 d g \0 \0 360 262 $ 277 @ 006 \0 \0 311 \b
0005200 @ 006 \0 \0 @ 006 \0 \0 310 001 k 324 021 002 001 H
0005220 I 315 001 277 I 022 \n \0 \0 260 5 d g \0 \0 360
0005240 226 277 @ \t \0 \0 260 ( d g \0 \0 360 226 277 @
0005260 \t \0 \0 260 033 g \0 \0 360 224 @ \t \0 \0 216 @
0005300 006 \0 \0 311 006 021 001 \0 @ k H 017 016 022 032 020
0005320 \0 ( 1 4 6 Q S Y M S E L E C T
0005340 . N E X T F N 1 3 3 Q S E L
0005360 E C T I O N . N E X T F N 1 1
0005400 6 Q S I M P L E . N E X T F N
0005420 1 0 1 Q R E L T P T R ) \r (
0005440 1 5 3 Q G E N S T A T E B L O
0005460 C K 1 4 0 Q S Y M S E L E C
0005500 T . N E X T F N 1 2 4 Q S E
0005520 L E C T I O N . N E X T F N 1
0005540 0 7 Q S I M P L E . N E X T F
0005560 N 6 0 Q G E N S T A T E B L
0005600 O C K 5 4 Q G E N S T A T E
0005620 B L O C K 4 6 Q G E N S T A
0005640 T E B L O C K 3 6 Q P H Y S
0005660 I C A L . N E X T F N 3 0 Q
0005700 G E N S T A T E B L O C K 2 2
0005720 Q G E N S T A T E B L O C K
0005740 7 G E N S T A T E B L O C K
0005760 3 G E N S T A T E B L O C K )
0006000 \r ( ) \r S I M P L E . N E X T F
0006020 N D 1 \r ( P 5 D E L T A
0006040 P 4 C A D P 3 S U B
0006060 P 2 L L P 1 C G D P
0006100 0 S O U R C E I 0 G S
0006120 B ) \0 216 \b \0 \0 001 @ 006 \0 \0 311 004 j
0006140 @ 006 \0 \0 310 001 @ 006 \0 \0 311 \b 021 D \a J
0006160 j 330 j 360 262 C k 272 H @ 006 \0 \0 J 315 001
0006200 277 J _ 016 277 ^ 006 \0 \0 311 \b N O 016 \n \0
0006220 \0 \n \0 \0 020 k K L \n \0 \0 331 275 K L K
0006240 L \n \0 \0 M 324 \v \0 \0 277 H J L M \f \0
0006260 \0 272 M j 361 263 303 I k 324 Y @ 006 \0 \0 311
0006300 002 H 006 \0 \0 311 002 006 \0 \0 310 005 \v \0 \0 274
0006320 K L \n \0 \0 H 006 \0 \0 311 002 L \n \0 \0 375
0006340 361 262 264 k 260 270 \0 ( 2 0 5 Q G E T
0006360 R E L T 1 7 3 Q G E T R E L
0006400 T 1 6 5 Q G E N T O A R Y
0006420 1 2 7 Q A D J U S T . L I N L
0006440 O C 1 1 7 Q S E T R E L T
0006460 1 1 2 Q G E T R E L T 1 0 1
0006500 Q G E T R E L T 7 2 Q R E
0006520 L T P T R 6 7 Q L T O P L O
0006540 C ) \r ( 1 7 7 Q A R R A Y F R
0006560 A M E 1 6 0 Q R O W H E A D
0006600 E R 1 5 3 Q A R R A Y F R A
0006620 M E 1 4 5 Q G E N S T A T E
0006640 B L O C K 5 7 Q A R R A Y F
0006660 R A M E 4 3 Q G E N S T A T
0006700 E B L O C K 2 0 Q G E N S T
0006720 A T E B L O C K 1 2 Q G E N
0006740 S T A T E B L O C K 3 G E N
0006760 S T A T E B L O C K ) \r ( ) \r S
0007000 Y M S E L E C T . N E X T F N
0007020 D 1 \r ( P 1 E P 0 A
0007040 I 0 G S B ) \0 276 003 \0 \0 001 @
0007060 006 \0 \0 311 004 @ 006 \0 \0 311 \b 021 022 002 @ 006
0007100 \0 \0 310 001 j 330 j 360 263 2 I 001 @ 006 \0 \0
0007120 311 002 g \0 \0 360 222 I 002 212 H 006 \0 \0 311 002
0007140 l 002 \n \0 \0 375 363 226 I d 001 k 324 030 211 I
0007160 k 030 277 I d 002 k 324 031 277 H 006 \0 \0 311 \b
0007200 006 \0 \0 311 \b @ 006 \0 \0 H 006 \0 \0 311 \b 006
0007220 \0 \0 311 004 d g \0 \0 360 262 036 277 H 006 \0 \0
0007240 311 006 k \n \0 \0 006 \0 \0 311 \b I 002 I 001 \n
0007260 \0 \0 \n \0 \0 260 . g \0 \0 360 262 % H 006 \0
0007300 \0 311 006 k \n \0 \0 I 002 \n \0 \0 H 006 \0 \0
0007320 311 006 l 002 \n \0 \0 I 001 \n \0 \0 \n \0 \0 202
0007340 \b \0 \0 Z 315 001 277 J \n \0 \0 020 \0 ( 2 7
0007360 3 Q R E L T P T R 2 6 3 Q
0007400 S H O U L D N T 2 5 7 Q S Y
0007420 M E L T L O C 2 5 4 Q T T G
0007440 E T E L T 2 4 7 Q G E T R E
0007460 L T 2 3 4 Q T T G E T E L T
0007500 2 2 7 Q G E T R E L T 2 0
0007520 5 Q G E T R E L T 2 0 2 Q
0007540 S Y M E L T L O C 1 6 6 Q G
0007560 E T R E L T 6 5 Q G E T R E
0007600 L T ) \r ( 2 4 0 Q A R R A Y F
0007620 R A M E 2 2 1 Q A R R A Y F
0007640 R A M E 2 1 2 Q S Y M M E T
0007660 R I C 1 7 1 Q A R R A Y F R
0007700 A M E 1 6 0 Q A R R A Y F R
0007720 A M E 1 5 0 Q F U L L 1 4
0007740 2 Q A R R A Y F R A M E 1 3
0007760 5 Q A R R A Y F R A M E 1 3
0010000 1 Q G E N S T A T E B L O C K
0010020 1 2 3 Q A R R A Y F R A M E
0010040 1 1 6 Q A R R A Y F R A M E
0010060 5 6 Q A R R A Y F R A M E
0010100 4 5 Q S Y M M E T R I C 4 0
0010120 Q G E N S T A T E B L O C K
0010140 2 2 Q G E N S T A T E B L O C
0010160 K 1 1 Q G E N S T A T E B L
0010200 O C K 3 G E N S T A T E B L
0010220 O C K ) \r ( ) \r S E L E C T I O
0010240 N . N E X T F N D 1 \r ( P 2
0010260 1 Q O L L P 2 0 Q D E L
0010300 T A P 1 7 Q C B D P 1
0010320 6 Q C V D P 1 5 Q C G D
0010340 P 1 4 Q V S U B P 1 3
0010360 Q T T A B L L P 1 2 Q I
0010400 P 1 0 Q T T P 7 B L
0010420 L P 6 T T A B P 5 B
0010440 A S E P 0 S O U R C E I
0010460 0 G S B ) 001 231 022 \0 \0 001 @ 006
0010500 \0 \0 311 004 021 A 004 H 006 \0 \0 311 \b H 006 \0
0010520 \0 311 006 @ 006 \0 \0 310 001 021 023 \b O 016 j 330
0010540 j 360 262 e k _ 016 277 M 006 \0 \0 311 002 006 \0
0010560 \0 310 005 021 021 \n k _ 024 O 022 363 263 G N O
0010600 024 \n \0 \0 _ 020 g \0 \0 360 263 3 M O 016 O
0010620 024 O 020 \t \0 \0 d g \0 \0 360 224 277 O 020 260
0010640 026 g \0 \0 360 233 O 020 006 \0 \0 311 \b k \n \0
0010660 \0 202 \b \0 \0 k 331 \f \0 \0 _ 016 277 O 024 k
0010700 324 260 266 023 261 \0 366 @ 006 \0 \0 311 \b 001 @ 006
0010720 \0 \0 311 \b 002 j 021 C 021 O 032 k 324 _ 032 @
0010740 006 \0 \0 311 002 H 006 \0 \0 311 002 006 \0 \0 310 005
0010760 \v \0 \0 _ 034 277 H 006 \0 \0 311 \n O 034 \n \0
0011000 \0 _ 036 277 N O 036 \n \0 \0 _ 020 277 O 030 O
0011020 034 \n \0 \0 H 006 \0 \0 311 002 O 034 \n \0 \0 375
0011040 361 221 k 210 k O 030 O 034 \n \0 \0 331 _ 277
0011060 O 030 O 034 O 030 O 034 \n \0 \0 O 324 \v \0
0011100 \0 277 M O 016 O 036 O 020 \t \0 \0 d g \0 \0
0011120 360 224 277 O 260 T g \0 \0 360 262 K O 026 O
0011140 036 \n \0 \0 _ " 277 O 020 O 026 O 036 O 020 O
0011160 " H 006 \0 \0 311 \n O 034 \n \0 \0 O \f \0
0011200 \0 \v \0 \0 272 Y 006 \0 \0 311 \b I J \n \0 \0
0011220 \n \0 \0 O 020 006 \0 \0 311 \b O 020 O " \n \0
0011240 \0 \n \0 \0 331 202 \b \0 \0 \f \0 \0 _ 016 277 O
0011260 k 331 j 360 242 261 377 # 023 M @ 006 \0 \0 O
0011300 016 315 001 277 O 016 274 [ 006 \0 \0 311 \b K L \n
0011320 \0 \0 \n \0 \0 020 \0 ( 6 2 6 Q R E L
0011340 T P T R 6 2 3 Q L T O P L O
0011360 C 5 5 5 Q A D J U S T . L I
0011400 N L O C 5 5 2 Q S H O U L D
0011420 N T 5 4 5 Q G E T R E L T
0011440 5 4 2 Q L T O P L O C 5 2 4
0011460 Q G E T R E L T 5 2 1 Q L
0011500 T O P L O C 5 0 5 Q S E T R
0011520 E L T 5 0 2 Q A D J U S T .
0011540 L I N L O C 4 7 5 Q G E T R
0011560 E L T D 4 4 5 Q G E T R E L
0011600 T 4 1 5 Q T T E L T T Y P E
0011620 4 0 2 Q S E T R E L T 3 7
0011640 4 Q G E T R E L T 3 5 5 Q
0011660 G E T R E L T 3 4 0 Q G E T
0011700 R E L T 3 2 5 Q G E T R E L
0011720 T 3 1 3 Q G E T R E L T 3
0011740 0 2 Q G E T R E L T 2 6 4 Q
0011760 G E N T O A R Y 1 7 3 Q A
0012000 D J U S T . L I N L O C 1 6 6
0012020 Q S H O U L D N T 1 6 2 Q
0012040 G E T R E L T 1 2 7 Q T T E
0012060 L T T Y P E 1 0 5 Q G E T R
0012100 E L T ) \r ( 6 1 4 Q A R R A Y
0012120 F R A M E 6 0 0 Q G E N S T
0012140 A T E B L O C K 5 3 1 Q A R
0012160 R A Y F R A M E 5 1 2 Q A R
0012200 R A Y F R A M E 4 6 6 Q A R
0012220 R A Y F R A M E 4 3 3 Q A R
0012240 R A Y 4 2 1 Q A L L 3 3 1
0012260 Q A R R A Y F R A M E 2 7 3
0012300 Q A R R A Y F R A M E 2 5 7
0012320 Q R O W H E A D E R 2 5 2 Q
0012340 A R R A Y F R A M E 2 4 4 Q
0012360 G E N S T A T E B L O C K 2
0012400 2 3 Q G E N S T A T E B L O C
0012420 K 2 1 4 Q G E N S T A T E B
0012440 L O C K 1 5 4 Q A R R A Y F
0012460 R A M E 1 4 5 Q A R R A Y
0012500 1 3 3 Q I N T E G E R 1 1 2
0012520 Q A L L 6 2 Q R O W H E A
0012540 D E R 5 5 Q A R R A Y F R A
0012560 M E 3 0 Q G E N S T A T E B
0012600 L O C K 2 2 Q A R R A Y F R
0012620 A M E 1 4 Q A R R A Y F R A
0012640 M E 3 G E N S T A T E B L O
0012660 C K ) \r ( ) \r ( P R E T T Y C O
0012700 M P R I N T G E N E R A T O R
0012720 S C O M S ) \r ( R P A Q Q G E
0012740 N E R A T O R S C O M S ( ( *
0012760 G e n e r a t o r p a c k a
0013000 g e . T h i s f i l e c o
0013020 n t a i n s t h e g e n e r
0013040 a t i o n f u n c t i o n s
0013060 u s e d f o r \r s i m p l e
0013100 a n d s e l e c t e d a r
0013120 r a y s , p l u s d a t a
0013140 d e f i n i t i o n s a n d
0013160 u t i l i t y r o u t i n e s
0013200 u s e d i n t h e g e n
0013220 e r a t i o n o f \r f u n c
0013240 t i o n a l a r r a y s . )
0013260 ( F N S G E N T O A R Y S E
0013300 T U P R E S E T U P S K I P
0013320 N E X T S I M P L E . N E X
0013340 T F N S Y M S E L E C T . N E
0013360 X T F N \r S E L E C T I O N .
0013400 N E X T F N ) ( I N I T R E C
0013420 O R D S G E N S T A T E B L O
0013440 C K ) ( I F : T E S T S Y S
0013460 ( R E C O R D S G E N S T A
0013500 T E B L O C K S E L E C T I O
0013520 N E T C ) ( \r D E C L T Y P E
0013540 S G O R D E R ) ( I . S . O
0013560 P R S r o w m a j o r ) ) ) )
0013600 \r ( / D E C L A R E D A T A T Y
0013620 P E ( Q U O T E G E N S T A
0013640 T E B L O C K ) ( Q U O T E
0013660 ( W O R D W O R D P O I N T
0013700 E R P O I N T E R P O I N T
0013720 E R P O I N T E R ) ) ( Q U
0013740 O T E ( ( \r G E N S T A T E B
0013760 L O C K 0 ( B I T S . 1
0014000 5 ) ) ( G E N S T A T E B L O
0014020 C K 1 ( B I T S . 1 5 )
0014040 ) ( G E N S T A T E B L O C K
0014060 2 P O I N T E R ) ( G E N
0014100 S T A T E B L O C K 4 \r P O
0014120 I N T E R ) ( G E N S T A T E
0014140 B L O C K 6 P O I N T E R )
0014160 ( G E N S T A T E B L O C K
0014200 8 P O I N T E R ) ) ) ( Q U
0014220 O T E 1 0 ) ) \r ( D E C L A R
0014240 E : E V A L @ L O A D W H E N
0014260 T E S T S Y S ( D E C L A R
0014300 E : E V A L @ C O M P I L E
0014320 ( D A T A T Y P E G E N S T A
0014340 T E B L O C K ( ( E L T C N T
0014360 W O R D ) ( L I N L O C \r
0014400 W O R D ) O R D E R S O U R
0014420 C E A R R A Y N E X T F N E
0014440 T C ) ( A C C E S S F N S G
0014460 E N S T A T E B L O C K ( ( D
0014500 O N E ( Z E R O P ( f e t c
0014520 h E L T C N T o f D A T U
0014540 M ) ) ) ) ) \r ) ( A C C E S S
0014560 F N S S E L E C T I O N E T C
0014600 ( ( T T A B L I N L O C ( C
0014620 A R ( t h e L I S T P D A
0014640 T U M ) ) ) ( V I R T S U B S
0014660 C R I P T ( C D R ( t h e
0014700 L I S T P D A T U M ) ) \r ) )
0014720 ( C R E A T E ( C O N S (
0014740 B U M P R E F C N T ( t h e
0014760 R O W I N T T T A B L I N L O
0015000 C ) ) ( B U M P R E F C N T
0015020 ( t h e R O W I N T V I R T
0015040 S U B S C R I P T ) ) ) ) ( T
0015060 Y P E ? \r L I S T P ) ) ) (
0015100 / D E C L A R E D A T A T Y P E
0015120 ( Q U O T E G E N S T A T E
0015140 B L O C K ) ( Q U O T E ( W
0015160 O R D W O R D P O I N T E R
0015200 P O I N T E R P O I N T E R
0015220 P O I N T E R ) ) \r ( Q U O
0015240 T E ( ( G E N S T A T E B L O
0015260 C K 0 ( B I T S . 1 5 )
0015300 ) ( G E N S T A T E B L O C K
0015320 1 ( B I T S . 1 5 ) )
0015340 ( G E N S T A T E B L O C K 2
0015360 P O I N T E R ) ( \r G E N S
0015400 T A T E B L O C K 4 P O I N
0015420 T E R ) ( G E N S T A T E B L
0015440 O C K 6 P O I N T E R ) (
0015460 G E N S T A T E B L O C K 8
0015500 P O I N T E R ) ) ) ( Q U O T
0015520 E 1 0 ) ) ( D E C L A R E :
0015540 \r E V A L @ C O M P I L E (
0015560 D E C L T Y P E G O R D E R
0015600 ( M E M Q R O W M A J O R C
0015620 O L M A J O R S Y M M E T R I
0015640 C D O N T C A R E ) ) ) ( D
0015660 E C L A R E : E V A L @ C O M
0015700 P I L E ( \r I . S . O P R (
0015720 Q U O T E r o w m a j o r )
0015740 N I L ( Q U O T E ( B I N D
0015760 $ $ G S B _ ( S E T U P
0016000 B O D Y ( Q U O T E R O W M
0016020 A J O R ) ) D E C L A R E (
0016040 $ $ G S B \r G E N S T A T E B
0016060 L O C K ) E A C H T I M E (
0016100 C O N D ( ( F E T C H D O N
0016120 E O F $ $ G S B ) ( G O
0016140 $ $ O U T ) ) ( T ( S E T Q
0016160 I . V . ( N E X T $ $ G S
0016200 B ) ) ) ) ) ) ) ) ) \r ( P U T P
0016220 R O P S G E N E R A T O R S
0016240 C O P Y R I G H T ( " X e r o
0016260 x C o r p o r a t i o n " 1
0016300 9 8 3 1 9 8 4 1 9 8 5 1 9
0016320 8 6 ) ) \r N I L \r
0016331