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