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