$ od -c -N 50000 [qv]<IDL>koto>IDLARRAYITERATORS.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - J u n - 8 6 1 1 : 4 6 : 3 7
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > I D L A R R A Y I T E
0000120 R A T O R S . ; 4 ) \r " 1 2 -
0000140 N o v - 8 5 1 4 : 5 9 : 2 3 "
0000160 r e c o m p i l e d c h a n
0000200 g e s : G E N E R A T O R - N
0000220 E X T E L T G E N E R A T O R
0000240 - S E T N E X T E L T G E N E
0000260 R A T O R - S E T U P i n \r
0000300 " I N T E R L I S P - D 1 1 -
0000320 M a y - 8 6 . . . " d a t e
0000340 d " 1 1 - M a y - 8 6 1 5 :
0000360 1 9 : 0 8 " ) \r ( F I L E C R E
0000400 A T E D " 6 - J u n - 8 6
0000420 1 1 : 4 6 : 0 3 " { Q V } < P
0000440 E D E R S E N > L I S P > I D L
0000460 A R R A Y I T E R A T O R S . ;
0000500 4 1 0 8 7 1 c h a n g e s
0000520 t o : ( V A R S \r I D L A R
0000540 R A Y I T E R A T O R S C O M S
0000560 ) ( R E C O R D S G E N E R
0000600 A T O R ) ( F N S G E N E R
0000620 A T O R - S E T U P G E N E R
0000640 A T O R - N E X T E L T G E N
0000660 E R A T O R - S E T N E X T E L
0000700 T \r ) p r e v i o u s d a t
0000720 e : " 1 3 - M a y - 8 6 1 8
0000740 : 0 1 : 2 4 " { Q V } < P E D
0000760 E R S E N > L I S P > I D L A R
0001000 R A Y I T E R A T O R S . ; 3 )
0001020 \r G E N E R A T O R - N E X T E
0001040 L T D 1 \r ( P 1 I N D E X
0001060 P 0 I T E R A T O R I
0001100 0 G E N E R A T O R ) \0 0 002
0001120 \0 \0 001 @ d 004 ` \0 \0 360 262 ' 006 \0 \0 311
0001140 002 021 001 \0 H \t \0 \0 021 001 001 I 251 H \t \0
0001160 \0 277 H \t \0 \0 271 @ 006 \0 \0 311 \0 I \n \0
0001200 \0 020 \0 ( 5 5 Q I D L A R R A Y
0001220 - R E F 4 2 Q I T E R A T O
0001240 R - N E X T I N D E X 3 5 Q
0001260 I T E R A T O R - R E S E T 2
0001300 4 Q I T E R A T O R - N E X T
0001320 I N D E X ) \r ( 4 7 Q G E N E
0001340 R A T O R 1 3 Q G E N E R A
0001360 T O R 5 004 003 G E N E R A T O
0001400 R T Y P E # ) \r ( ) \r G E N E R
0001420 A T O R - S E T N E X T E L T
0001440 D 1 \r ( P 1 I N D E X P
0001460 0 I T E R A T O R I 1 G
0001500 E N E R A T O R I 0 N E W
0001520 V A L U E ) \0 : 002 \0 \0 002 A 004 `
0001540 \0 \0 360 262 * A 006 \0 \0 311 002 021 001 \0 H \t
0001560 \0 \0 021 001 001 I 251 H \t \0 \0 277 H \t \0 \0
0001600 271 @ A 006 \0 \0 311 \0 I \v \0 \0 020 o \0 \0
0001620 \0 A \n \0 \0 020 \0 ( 6 7 Q H E L P
0001640 5 6 Q I D L A R R A Y - S E
0001660 T 4 2 Q I T E R A T O R - N
0001700 E X T I N D E X 3 5 Q I T E
0001720 R A T O R - R E S E T 2 4 Q
0001740 I T E R A T O R - N E X T I N D
0001760 E X ) \r ( 5 0 Q G E N E R A T
0002000 O R 1 3 Q G E N E R A T O R
0002020 4 004 003 G E N E R A T O R T Y
0002040 P E # ) \r ( 6 3 Q " N o t
0002060 a g e n e r a t o r " ) \r G E
0002100 N E R A T O R - S E T U P D 1
0002120 \r ( I 1 I T E R A T O R I
0002140 0 I D L A R R A Y ) \0 + 002
0002160 \0 \0 002 @ \t \0 \0 221 @ 020 ` \0 \0 037 @ \t
0002200 \0 \0 021 002 001 H d I 024 \0 277 022 A 265 006 @
0002220 \t \0 \0 021 002 001 H d I 024 002 277 020 \0 ( 3
0002240 7 Q I T E R A T O R - S E T U
0002260 P 1 6 Q I D L A R R A Y - L
0002300 I N E A R I Z E 3 I D L A R
0002320 R A Y - S C A L A R P ) \r ( 1 1
0002340 Q 004 003 G E N E R A T O R T Y P
0002360 E # ) \r ( ) \r I T E R A T O R -
0002400 N E X T I N D E X D 1 \r ( P
0002420 1 4 Q I N D E X P 1 3 Q
0002440 I P 5 R E S U L T P 4
0002460 E N D I T E R A T I O N P
0002500 3 O F F S E T P 2 M U L
0002520 T I P L I E R S P 1 L I M
0002540 I T S P 0 I N D I C E S
0002560 I 0 I T E R A T O R ) \0 304
0002600 \r \0 \0 001 @ 006 \0 \0 311 004 @ 006 \0 \0 311 006
0002620 @ 006 \0 \0 311 002 @ 006 \0 \0 311 \0 @ 006 \0 \0
0002640 311 \b 021 025 005 L 222 261 \0 236 K J H j 021 #
0002660 \n O 016 003 265 003 207 001 _ 022 277 N 003 265 ' O
0002700 020 022 330 275 H \t \0 \0 021 021 \f O 026 j 361 262
0002720 Y H O 026 \n \0 \0 _ 030 d 001 003 262 & 001 002
0002740 h 360 260 + 001 _ 024 277 O 020 O 024 O 022 d 003
0002760 220 001 332 324 _ 020 277 O 016 002 _ 016 277 N 002 276
0003000 260 261 001 k 330 I O 026 \n \0 \0 001 : 262 033 O
0003020 030 d 001 003 227 I O 026 \n \0 \0 001 200 j 030 277
0003040 O 026 k 331 _ 026 260 247 O 026 j : 227 @ 006 \0
0003060 \0 i 024 \b 217 O 030 d d 001 003 224 277 d 001 002
0003100 202 001 k 330 030 M 020 \0 ( 2 2 6 Q F N
0003120 T H 2 0 6 Q F N T H 1 2 2
0003140 Q F N T H 1 0 3 Q L E N G
0003160 T H ) \r ( 2 5 4 Q I T E R A T
0003200 O R 3 3 Q I T E R A T O R
0003220 2 5 Q I T E R A T O R 1 7 Q
0003240 I T E R A T O R 1 1 Q I T
0003260 E R A T O R 3 I T E R A T O
0003300 R ) \r ( ) \r I T E R A T O R - R
0003320 E S E T D 1 \r ( P 6 L I M
0003340 I T P 1 L I M I T S P
0003360 0 I N D I C E S I 0 I T
0003400 E R A T O R ) \0 d \a \0 \0 001 @ 006
0003420 \0 \0 311 004 @ 006 \0 \0 311 006 021 002 001 I H 021
0003440 " 005 K 274 J 003 265 003 205 001 275 L 003 265 025 023
0003460 @ 006 \0 \0 I 021 021 006 M 003 265 032 h 022 024 \b
0003500 @ 020 001 003 222 L M 201 L j 030 277 L 002 274 J
0003520 002 Z 260 323 001 ^ 003 250 N d j 360 256 005 003 265
0003540 \a M 002 ] 260 325 \t \0 \0 262 370 N 265 321 i 260
0003560 316 \0 ( 1 3 2 Q \ F Z E R O P )
0003600 \r ( 4 5 Q I T E R A T O R 1
0003620 1 Q I T E R A T O R 3 I T
0003640 E R A T O R ) \r ( ) \r I T E R A
0003660 T O R - S E T U P D 1 \r ( P
0003700 3 3 Q E N D I T E R A T I O N
0003720 P 3 2 Q L I M I T P 1
0003740 2 Q L I M I T S P 1 1 Q
0003760 I N D I C E S P 1 0 Q M U
0004000 L T I P L I E R S P 7 O F
0004020 F S E T P 6 B A S E S C A
0004040 N D I M S P 5 B A S E D I
0004060 M S I 2 D I M M A P I
0004100 1 L E V E L M A P S I 0
0004120 B A S E A R R A Y ) 001 247 034 \0 \0
0004140 003 A 263 + @ \t \0 \0 k 021 2 004 I H 363 263
0004160 031 g \0 \0 274 K 265 \r L h 032 [ 272 I k 324
0004200 Y 260 354 L & 273 260 367 J 022 b 002 277 @ \t \0
0004220 \0 021 001 005 @ \t \0 \0 021 A \n N A j 021 #
0004240 004 I 003 265 003 205 001 273 H 003 265 023 J 022 _ 016
0004260 277 N A 021 R 021 O 030 003 265 030 260 037 001 274 K
0004300 3 225 J L K 332 324 272 I 002 271 H 002 270 260
0004320 322 001 _ 277 O 026 003 265 ! O 032 022 _ 020 277
0004340 A 021 1 003 H 003 265 E I 022 _ 022 277 M A 021
0004360 R 030 O & 003 265 S 260 Z 001 _ " 277 O 3
0004400 263 024 O " _ 036 277 O 034 265 031 O 036 h 032
0004420 _ 034 _ 032 277 O 030 002 _ 030 277 O 026 002 _ 026
0004440 277 260 225 O 036 & _ 034 277 260 354 001 d 3 254
0004460 003 265 003 j 273 J 265 \r K h 032 Z Y 277 H 002
0004500 X 260 244 K & Z 260 367 001 _ . 277 O $ 003 265
0004520 U O ( 022 _ 024 021 021 032 O 2 003 265 ~ h 022
0004540 021 001 033 B 262 035 O 020 B \n \0 \0 _ 020 277 O
0004560 022 B \n \0 \0 _ 022 277 O 024 B \n \0 \0 _ 024
0004600 277 ` \0 \0 037 d O 016 024 \0 277 d O 020 024 002
0004620 277 d O 022 024 004 277 d O 024 024 006 277 d O 6
0004640 024 \b 277 020 001 _ 0 277 O . d 3 263 026 003
0004660 265 004 O 0 _ , 277 O * 265 032 O , h 032 _
0004700 * _ ( 277 O & 002 _ & 277 O $ 002 _ $ 277
0004720 261 377 " O , & _ * 260 353 001 _ 4 3 265
0004740 \n O 2 002 _ 2 261 377 u d j 360 257 277 O 4
0004760 005 003 262 357 O 4 \t \0 \0 262 350 O 4 265 003 202
0005000 261 377 _ i 261 377 [ \0 ( 6 2 7 Q \ F
0005020 Z E R O P 4 3 4 Q P E R M U
0005040 T E L I S T 4 2 3 Q P E R M
0005060 U T E L I S T 4 1 2 Q P E R
0005100 M U T E L I S T 6 6 Q I D L
0005120 A R R A Y - S C A N D I M S 5
0005140 7 Q I D L A R R A Y - D I M S
0005160 6 I D L A R R A Y - R A N K
0005200 ) \r ( 4 4 2 Q 004 003 I T E R A T
0005220 O R T Y P E # 2 2 Q A L L )
0005240 \r ( ) \r M E T A - I T E R A T O
0005260 R - N E X T I T E R A T O R D
0005300 1 \r ( P 5 I N D E X P 4
0005320 I P 3 I T E R A T O R
0005340 P 2 L E V E L L I M I T S
0005360 P 1 L E V E L S P 0 B
0005400 A S E A R R A Y I 0 M E T
0005420 A - I T E R A T O R ) \0 p 006 \0
0005440 \0 001 @ 006 \0 \0 311 \0 @ 006 \0 \0 311 002 @ 006
0005460 \0 \0 311 004 021 023 003 @ 006 \0 \0 311 006 263 R H
0005500 I \n \0 \0 273 I \t \0 \0 021 021 005 L j 361 262
0005520 033 I L \n \0 \0 ] d 001 g \0 \0 360 263 034 001
0005540 k 330 J L \n \0 \0 001 : 255 L j : 262 034 K
0005560 006 \0 \0 i 024 006 260 031 M 001 g \0 \0 360 243 M
0005600 j 030 277 L k 331 \ 260 306 M d 001 k 330 030 K
0005620 020 \0 ( 1 0 4 Q F N T H 6 3 Q
0005640 F N T H 4 6 Q L E N G T H
0005660 4 1 Q I T E R A T O R - S E
0005700 T U P ) \r ( 1 3 2 Q A L L 1
0005720 2 0 Q M E T A - I T E R A T O
0005740 R 7 1 Q A L L 3 0 Q M E
0005760 T A - I T E R A T O R 1 7 Q
0006000 M E T A - I T E R A T O R 1 1
0006020 Q M E T A - I T E R A T O R
0006040 3 M E T A - I T E R A T O R )
0006060 \r ( ) \r M E T A - I T E R A T O
0006100 R - R E S E T D 1 \r ( P 6
0006120 L E V E L P 5 L I M I T
0006140 P 1 L E V E L L I M I T S
0006160 P 0 L E V E L S I 0 M
0006200 E T A - I T E R A T O R ) \0 b
0006220 \a \0 \0 001 @ 006 \0 \0 311 002 @ 006 \0 \0 311 004
0006240 021 022 002 H Z 003 265 021 @ 006 \0 \0 H I 021 "
0006260 006 L 003 265 022 260 026 001 g \0 \0 360 243 J j 030
0006300 277 J 002 260 341 001 275 K 003 265 \b h 022 024 006 @
0006320 020 001 ^ g \0 \0 360 251 M d j 360 263 024 005 003
0006340 265 \n L 002 274 K 002 273 260 311 \t \0 \0 262 365 M
0006360 265 334 i 260 331 \0 ( 1 3 0 Q \ F Z E
0006400 R O P ) \r ( 1 0 1 Q A L L 4
0006420 6 Q A L L 2 7 Q M E T A -
0006440 I T E R A T O R 1 1 Q M E T
0006460 A - I T E R A T O R 3 M E T
0006500 A - I T E R A T O R ) \r ( ) \r M
0006520 E T A - I T E R A T O R - S E T
0006540 U P D 1 \r ( P 1 2 Q L I M
0006560 I T P 1 1 Q I P 6 L
0006600 E V E L L I M I T S P 5 L
0006620 E V E L S I 1 H E L D D I
0006640 M E N S I O N S I 0 B A S
0006660 E A R R A Y ) \0 237 \v \0 \0 002 A d
0006700 003 243 d 221 h 032 b 002 @ \t \0 \0 k 331 j 021
0006720 2 004 I d H 363 262 5 277 J 022 @ \t \0 \0 021
0006740 022 \a ` \0 \0 037 d @ 024 \0 277 d M 024 002 277
0006760 d N 024 004 277 N j 021 022 \n O 020 003 265 , h
0007000 022 _ 016 277 d O 016 024 006 277 020 A \n \0 \0 223
0007020 g \0 \0 200 j 274 K 265 \r L h 032 [ 272 I k
0007040 324 Y 260 261 L & 273 260 367 001 _ 024 277 O 022 d
0007060 A \n \0 \0 256 277 O 024 j 360 263 033 O 024 005 003
0007100 265 020 O 022 k 324 _ 022 277 O 020 002 _ 020 260 256
0007120 \t \0 \0 262 357 O 022 265 251 i 260 246 \0 ( 2 2
0007140 4 Q \ F Z E R O P 1 6 5 Q
0007160 M E M B 1 2 0 Q M E M B 4
0007200 0 Q I D L A R R A Y - D I M S
0007220 1 5 Q I D L A R R A Y - R A
0007240 N K ) \r ( 1 2 4 Q A L L 4 6
0007260 Q 004 003 M E T A - I T E R A T O
0007300 R T Y P E # ) \r ( ) \r ( P R E T
0007320 T Y C O M P R I N T I D L A R
0007340 R A Y I T E R A T O R S C O M S
0007360 ) \r ( R P A Q Q I D L A R R A
0007400 Y I T E R A T O R S C O M S (
0007420 ( R E C O R D S G E N E R A T
0007440 O R I T E R A T O R M E T A
0007460 - I T E R A T O R ) ( F N S
0007500 G E N E R A T O R - N E X T E L
0007520 T \r G E N E R A T O R - S E T
0007540 N E X T E L T G E N E R A T O
0007560 R - S E T U P I T E R A T O R
0007600 - N E X T I N D E X I T E R A
0007620 T O R - R E S E T I T E R A T
0007640 O R - S E T U P \r M E T A - I
0007660 T E R A T O R - N E X T I T E R
0007700 A T O R M E T A - I T E R A T
0007720 O R - R E S E T M E T A - I T
0007740 E R A T O R - S E T U P ) ) ) \r
0007760 ( D A T A T Y P E G E N E R A
0010000 T O R ( V E C T O R I T E R
0010020 A T O R ) ) \r ( D A T A T Y P E
0010040 I T E R A T O R ( O F F S E
0010060 T M U L T I P L I E R S I N
0010100 D I C E S L I M I T S E N D
0010120 I T E R A T I O N ) ) \r ( D A T
0010140 A T Y P E M E T A - I T E R A
0010160 T O R ( B A S E A R R A Y L
0010200 E V E L S L E V E L L I M I T
0010220 S E N D I T E R A T I O N ) )
0010240 \r ( / D E C L A R E D A T A T Y
0010260 P E ( Q U O T E G E N E R A
0010300 T O R ) ( Q U O T E ( P O I
0010320 N T E R P O I N T E R ) ) (
0010340 Q U O T E ( ( G E N E R A T O
0010360 R 0 P O I N T E R ) ( G E
0010400 N E R A T O R \r 2 P O I N T
0010420 E R ) ) ) ( Q U O T E 4 ) )
0010440 \r ( / D E C L A R E D A T A T Y
0010460 P E ( Q U O T E I T E R A T
0010500 O R ) ( Q U O T E ( P O I N
0010520 T E R P O I N T E R P O I N
*
0010560 T E R ) ) ( Q U O T E ( ( I
0010600 T E R A T O R \r 0 P O I N T
0010620 E R ) ( I T E R A T O R 2
0010640 P O I N T E R ) ( I T E R A T
0010660 O R 4 P O I N T E R ) ( I
0010700 T E R A T O R 6 P O I N T E
0010720 R ) ( I T E R A T O R 8 P
0010740 O I N T E R ) ) ) ( \r Q U O T
0010760 E 1 0 ) ) \r ( / D E C L A R E
0011000 D A T A T Y P E ( Q U O T E
0011020 M E T A - I T E R A T O R ) (
0011040 Q U O T E ( P O I N T E R P
0011060 O I N T E R P O I N T E R P
0011100 O I N T E R ) ) ( Q U O T E
0011120 ( ( \r M E T A - I T E R A T O R
0011140 0 P O I N T E R ) ( M E T
0011160 A - I T E R A T O R 2 P O I
0011200 N T E R ) ( M E T A - I T E R
0011220 A T O R 4 P O I N T E R )
0011240 ( M E T A - I T E R A T O R 6
0011260 P O I N T E R ) \r ) ) ( Q U
0011300 O T E 8 ) ) \r ( P U T P R O P
0011320 S I D L A R R A Y I T E R A T
0011340 O R S C O P Y R I G H T ( "
0011360 X e r o x C o r p o r a t i o
0011400 n " 1 9 8 6 ) ) \r N I L \r
0011416