$ od -c -N 50000 [qv]<IDL>SOURCES>IDLDEMO.DCOM!2
0000000 ( F I L E C R E A T E D " 1 2
0000020 - F e b - 8 6 1 2 : 0 7 : 5 8
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 > I D L D E M O . ; 7 ) "
0000120 1 2 - N o v - 8 5 1 4 : 5 9 :
0000140 2 3 " \r r e c o m p i l e d
0000160 c h a n g e s : I D L D E M O
0000200 i n " I N T E R L I S P - D
0000220 7 - F e b - 8 6 . . . "
0000240 d a t e d " 7 - F e b - 8 6
0000260 1 1 : 4 3 : 0 5 " ) \r ( F I L
0000300 E C R E A T E D " 1 2 - F e b
0000320 - 8 6 1 2 : 0 7 : 2 0 " { Q
0000340 V } < I D L > S O U R C E S > I
0000360 D L D E M O . ; 7 7 5 6 1 c
0000400 h a n g e s t o : ( F N S
0000420 I D L D E M O ) p r e v i o u
0000440 s \r d a t e : " 4 - S e p
0000460 - 8 5 1 7 : 1 6 : 4 6 " { Q
0000500 V } < I D L > S O U R C E S > I
0000520 D L D E M O . ; 6 ) \r I D L D E
0000540 M O D 1 \r ( P 4 I D L D E
0000560 M O . M E N U P 3 T E D I
0000600 T W I N D O W P 2 T T Y W
0000620 I N D O W F 5 T t y D i s
0000640 p l a y S t r e a m F 6 L
0000660 O T T E R Y F 7 L O T T E
0000700 R Y 2 F 1 0 Q S H A D E 1
0000720 F 1 1 Q L O T T E R Y 3
0000740 F 1 2 Q I D L D E M O . T T
0000760 Y W I N D O W F 1 3 Q I D
0001000 L D E M O . S H A D E D I T E M
0001020 ) \0 272 005 \a \0 \0 U \t \0 \0 n 002 : l
0001040 036 n 001 302 n 002 274 \f \0 \0 o \0 \0 \0 h i
0001060 \f \0 \0 ` \0 \0 037 d o \0 \0 \0 024 004 277 d
0001100 g \0 \0 024 026 277 d o \0 \0 \0 024 022 277 d g
0001120 \0 \0 024 277 d g \0 \0 024 034 277 j d n 177
0001140 377 d h 032 032 032 032 021 002 001 H d I 024 \n 277
0001160 022 021 003 004 g \0 \0 \t \0 \0 \t \0 \0 c \f g
0001200 \0 \0 \t \0 \0 \t \0 \0 c 016 g \0 \0 \t \0 \0
0001220 \t \0 \0 c 022 J c 024 d l 005 n 002 : n 001
0001240 , l 226 \f \0 \0 \n \0 \0 L J g \0 \0 g \0
0001260 \0 \f \0 \0 L 006 \0 \0 311 004 001 c 026 d L W
0001300 020 \v \0 \0 g \0 \0 K \n \0 \0 J \t \0 \0 h
0001320 020 \0 ( 2 6 6 Q G I V E . T T Y
0001340 . P R O C E S S 2 6 2 Q T E
0001360 D I T 2 5 3 Q I D L D E M O
0001400 . S H A D E D O U B L E I T E M
0001420 2 3 3 Q A T T A C H M E N U
0001440 2 2 0 Q S H A P E W 2 1 5
0001460 Q C R E A T E R E G I O N 1
0001500 7 2 Q I D L M A T R I X 1 6
0001520 7 Q R E A D F I L E 1 5 7 Q
0001540 I D L M A T R I X 1 5 4 Q
0001560 R E A D F I L E 1 4 4 Q I D
0001600 L M A T R I X 1 4 1 Q R E A
0001620 D F I L E 3 2 Q C R E A T E
0001640 W 2 1 Q C R E A T E R E G I
0001660 O N 3 W F R O M D S ) \r ( 2
0001700 5 6 Q { Q V } < I D L > D E M
0001720 O > D E M O S C R I P T . T E D
0001740 I T 2 3 7 Q M E N U 2 3 0
0001760 Q T O P 2 2 5 Q R I G H T
0002000 1 6 4 Q { Q V } < I D L > D
0002020 A T A > L O T T E R Y 3 . D A T
0002040 A 1 5 1 Q { Q V } < I D L >
0002060 D A T A > L O T T E R Y 2 . D A
0002100 T A 1 3 6 Q { Q V } < I D L
0002120 > D A T A > L O T T E R Y 1 . D
0002140 A T A 1 0 0 Q D E F A U L T
0002160 M E N U H E L D F N 7 1 Q C
0002200 L R P R O M P T 5 2 Q I D L
0002220 D E M O . W H E N S E L E C T E
0002240 D F N 3 5 Q 004 003 M E N U T Y
0002260 P E # ) \r ( 6 2 Q " T y p e
0002300 s c r i p t M e n u f o r
0002320 I D L d e m o " 4 3 Q ( (
0002340 " I n s p e c t L o t t e r y
0002360 d a t a " ( I N S P E C T
0002400 L O T T E R Y ) ) ( ( I N S P
0002420 E C T L O T T E R Y ) ( I N
0002440 S P E C T L O T T E R Y ) )
0002460 ( " S e l e c t w i n n i n g
0002500 n u m b e r s " ( S E T Q
0002520 N U M B E R S I T ) ) ( ( S
0002540 E T Q N U M B E R S I T )
0002560 ( S E T Q N U M B E R S I T
0002600 ) ) ( " H i s t o g r a m o
0002620 f w i n n i n g n u m b e r
0002640 s " ( H I S T O G R A M N U
0002660 M B E R S ) ) ( ( H I S T O G
0002700 R A M N U M B E R S ) ( H I
0002720 S T O G R A M N U M B E R S )
0002740 ) ( " S e l e c t p a y o f
0002760 f s " ( S E T Q P A Y O F F
0003000 I T ) ) ( ( S E T Q P A Y
0003020 O F F I T ) ( S E T Q P A
0003040 Y O F F I T ) ) ( " H i s t
0003060 o g r a m o f p a y o f f s
0003100 " ( S E T Q H I S T ( H I
0003120 S T O G R A M P A Y O F F ) )
0003140 ) ( ( H I S T O G R A M P A
0003160 Y O F F ) ( S E T Q H I S T
0003200 ( H I S T O G R A M P A Y O
0003220 F F ) ) ) ( " A d d $ 5 0 0
0003240 l i n e t o H i s t o g r
0003260 a m " ( P L O T L I N E H I
0003300 S T N I L 7 6 4 Q ( Q U O
0003320 T E $ 5 0 0 ) 2 ) ) ( ( P
0003340 L O T L I N E H I S T N I L
0003360 7 6 4 Q ) ( P L O T L I N E
0003400 H I S T N I L 7 6 4 Q (
0003420 Q U O T E $ 5 0 0 ) 2 ) )
0003440 ( " R e l a t e P a y o f f
0003460 t o w i n n i n g n u m b e
0003500 r " ( S E T Q S C A T ( S
0003520 C A T T E R P L O T P A Y O F
0003540 F N U M B E R S ) ) ) ( ( S
0003560 C A T T E R P L O T P A Y O F
0003600 F N U M B E R S ) ( S E T Q
0003620 S C A T ( S C A T T E R P L
0003640 O T P A Y O F F N U M B E R
0003660 S ) ) ) ( " R e g r e s s p
0003700 a y o f f o n n u m b e r "
0003720 ( P R O G N ( S E T Q C V
0003740 ( C O V A R L O T T E R Y )
0003760 ) ( S E T Q S W E P T ( S
0004000 W E E P C V ( Q U O T E N
0004020 u m b e r ) ) ) ( S E T Q R
0004040 E S U L T ( A T ( R E G R E
0004060 S S C V S W E P T ) ( Q U
0004100 O T E ( P a y o f f A L L
0004120 A L L ) ) ) ) ( S H O W ) ) )
0004140 ( ( ( C O V A R L O T T E R
0004160 Y ) e t c . ) ( P R O G N
0004200 ( S E T Q C V ( C O V A R
0004220 L O T T E R Y ) ) ( S E T Q
0004240 S W E P T ( S W E E P C V
0004260 ( Q U O T E N u m b e r ) ) )
0004300 ( S E T Q R E S U L T ( A
0004320 T ( R E G R E S S C V S W
0004340 E P T ) ( Q U O T E ( P a y
0004360 o f f A L L A L L ) ) ) )
0004400 ( S H O W ) ) ) ( " I n s p e
0004420 c t r e s u l t " ( I N S P
0004440 E C T R E S U L T ) ) ( ( I
0004460 N S P E C T R E S U L T ) (
0004500 I N S P E C T R E S U L T ) )
0004520 ( " E x t r a c t C o e f f
0004540 i c i e n t s " ( S E T Q C
0004560 O E F ( A T I T ( Q U O T
0004600 E ( ( N u m b e r C o n s t
0004620 a n t ) ) ) ) ) ) ( ( S E T Q
0004640 C O E F I T ) ( S E T Q
0004660 C O E F ( A T I T ( Q U O
0004700 T E ( ( N u m b e r C o n s
0004720 t a n t ) ) ) ) ) ) ( " A d d
0004740 t h e r e g r e s s i o n
0004760 l i n e " ( A D D L I N E S T
0005000 O P L O T S C A T C O E F
0005020 ( Q U O T E $ 5 0 0 ) 2 ) )
0005040 ( ( A D D L I N E S T O P L O
0005060 T S C A T C O E F ) ( A D
0005100 D L I N E S T O P L O T S C A
0005120 T C O E F ( Q U O T E $ 5
0005140 0 0 ) 2 ) ) ( " A d d s m
0005160 o o t h e r t o m e n u "
0005200 ( P L O T A D D M E N U I T E M
0005220 S S C A T ( Q U O T E R I
0005240 G H T ) ( Q U O T E ( ( S m
0005260 o o t h S C A T T E R P L O T
0005300 . R U N N I N G R E G R E S S )
0005320 ) ) ) ) ( ( P L O T A D D M E
0005340 N U I T E M S S C A T . . .
0005360 ) ( P L O T A D D M E N U I T
0005400 E M S S C A T ( Q U O T E
0005420 R I G H T ) ( Q U O T E ( (
0005440 S m o o t h S C A T T E R P L
0005460 O T . R U N N I N G R E G R E S
0005500 S ) ) ) ) ) ( " S e l e c t
0005520 P a y o f f ' s f o r S e c
0005540 o n d Y e a r " ( S E T Q
0005560 P A Y O F F 2 ( A T L O T T
0005600 E R Y 2 ( Q U O T E ( P a y
0005620 o f f 2 ) ) ) ) ) ( ( A T L
0005640 O T T E R Y 2 ( Q U O T E (
0005660 P a y o f f 2 ) ) ) ( S E T Q
0005700 P A Y O F F 2 ( A T L O T
0005720 T E R Y 2 ( Q U O T E ( P a
0005740 y o f f 2 ) ) ) ) ) ( " S e l
0005760 e c t P a y o f f ' s f o r
0006000 T h i r d Y e a r " ( S E
0006020 T Q P A Y O F F 3 ( A T L
0006040 O T T E R Y 3 ( Q U O T E (
0006060 P a y o f f 3 ) ) ) ) ) ( ( A
0006100 T L O T T E R Y 3 ( Q U O T
0006120 E ( P a y o f f 3 ) ) ) ( S
0006140 E T Q P A Y O F F 3 ( A T
0006160 L O T T E R Y 3 ( Q U O T E
0006200 ( P a y o f f 3 ) ) ) ) ) ( "
0006220 C o m p a r e p a y o f f ' s
0006240 f o r t h r e e y e a r s
0006260 " ( S E T Q B O X P L O T
0006300 ( B O X P L O T S P A Y O F F
0006320 P A Y O F F 2 P A Y O F F 3
0006340 ) ) ) ( ( B O X P L O T S P
0006360 A Y O F F . . . ) ( S E T Q
0006400 B O X P L O T ( B O X P L O
0006420 T S P A Y O F F P A Y O F F
0006440 2 P A Y O F F 3 ) ) ) ( " A
0006460 d d $ 5 0 0 m a r k t o
0006500 B o x p l o t s " ( P L O T L
0006520 I N E B O X P L O T 0 7 6
0006540 4 Q ( Q U O T E $ 5 0 0 )
0006560 2 ) ) ( ( P L O T L I N E B
0006600 O X P L O T 0 7 6 4 Q ) (
0006620 P L O T L I N E B O X P L O T
0006640 0 7 6 4 Q ( Q U O T E $
0006660 5 0 0 ) 2 ) ) ) 2 5 Q " N
0006700 . J . P i c k - I t L o t t
0006720 e r y D a t a " ) \r I D L D E
0006740 M O . C L E A N U P D 1 \r ( P
0006760 0 T T Y W I N D O W F 1
0007000 T t y D i s p l a y S t r e a
0007020 m ) \0 025 001 001 \0 \0 Q \t \0 \0 021 001 \0
0007040 H \t \0 \0 H g \0 \0 \n \0 \0 h 020 \0 ( 2
0007060 1 Q P U T W I N D O W P R O P
0007100 1 2 Q D E T A C H A L L W I
0007120 N D O W S 3 W F R O M D S )
0007140 \r ( 1 6 Q M I N S I Z E ) \r (
0007160 ) \r I D L D E M O . S H A D E D
0007200 O U B L E I T E M D 1 \r ( P
0007220 3 R E G I O N 2 P 2 R E
0007240 G I O N 1 P 1 I T E M 2
0007260 P 0 M E N U W I 2 S H
0007300 A D E I 1 M E N U I 0
0007320 I T E M 1 ) \0 \ 004 \0 \0 003 A \t
0007340 \0 \0 @ A 006 \0 \0 311 004 \n \0 \0 002 001 021 "
0007360 003 @ A \n \0 \0 Z I A \n \0 \0 [ h d d
0007400 H J 001 J 002 001 J 002 002 001 J 002 002 002 001 g
0007420 \0 \0 g \0 \0 B \r \v \0 \0 h d d H K 001
0007440 K 002 001 K 002 002 001 K 002 002 002 001 g \0 \0 g
0007460 \0 \0 B \r \v \0 \0 h 020 \0 ( 1 3 0 Q
0007500 B I T B L T 7 3 Q B I T B L
0007520 T 3 5 Q M E N U I T E M R E
0007540 G I O N 2 7 Q M E N U I T E
0007560 M R E G I O N 1 5 Q M E M B
0007600 3 W F R O M M E N U ) \r ( 1
0007620 2 3 Q I N V E R T 1 2 0 Q
0007640 T E X T U R E 6 6 Q I N V E
0007660 R T 6 3 Q T E X T U R E 1
0007700 0 Q M E N U ) \r ( ) \r I D L D
0007720 E M O . W H E N S E L E C T E D
0007740 F N D 1 \r ( P 1 T A I L
0007760 P 0 F O R M I 2 B U T
0010000 T O N I 1 M E N U I 0
0010020 I T E M F 2 I D L D E M
0010040 O . S H A D E D I T E M F 3
0010060 S H A D E 1 F 4 I D L D
0010100 E M O . T T Y W I N D O W ) \0
0010120 [ 002 003 \0 003 @ 002 001 021 001 \0 R A S \v \0
0010140 \0 T \t \0 \0 H d 001 g \0 \0 360 233 205 d 001
0010160 \t \0 \0 277 002 003 265 370 203 \t \0 \0 277 @ A 006
0010200 \0 \0 311 004 \n \0 \0 021 001 001 I \t \0 \0 k 345
0010220 j 360 222 I 002 200 I 022 002 001 c 004 d 265 \v A
0010240 006 \0 \0 311 004 001 c 004 A S \v \0 \0 h 020 \0
0010260 ( 1 2 7 Q I D L D E M O . S H
0010300 A D E D O U B L E I T E M 7 0
0010320 Q L E N G T H 6 1 Q M E M
0010340 B 4 6 Q B K S Y S B U F 3
0010360 5 Q B K S Y S B U F 1 7 Q
0010400 G I V E . T T Y . P R O C E S S
0010420 1 3 Q I D L D E M O . S H A
0010440 D E D O U B L E I T E M ) \r ( 1
0010460 1 5 Q M E N U 5 4 Q M E N
0010500 U 2 5 Q P R O G N ) \r ( ) \r
0010520 ( P R E T T Y C O M P R I N T
0010540 I D L D E M O C O M S ) \r ( R P
0010560 A Q Q I D L D E M O C O M S
0010600 ( ( F N S I D L D E M O I D
0010620 L D E M O . C L E A N U P I D
0010640 L D E M O . S H A D E D O U B L
0010660 E I T E M I D L D E M O . W H
0010700 E N S E L E C T E D F N ) ) ) \r
0010720 ( P U T P R O P S I D L D E M
0010740 O C O P Y R I G H T ( " X e
0010760 r o x C o r p o r a t i o n "
0011000 1 9 8 5 1 9 8 6 ) ) \r N I L
0011020 \r
0011021