[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: CADI Constuction



PureBytes Links

Trading Reference Links

<x-html><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2>
<DIV><FONT size=2><FONT size=2>How exactly does one reference another "P", a 
particular issue?</FONT></FONT></DIV>
<DIV><FONT size=2><FONT size=2>I have tried without sucees.</FONT></FONT></DIV>
<DIV>Pete</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=2><FONT face="Times New Roman"><FONT size=2>The </FONT>formula 
for MetaStock would be:</FONT></FONT></DIV>
<DIV><FONT face="Times New Roman" size=2>C/P</FONT></DIV>
<DIV><FONT face="Times New Roman"><FONT size=2>where "P" is the particular issue 
(eg&nbsp;Decline Issues) where the other "C" (or Close, </FONT><FONT 
size=2>eg</FONT></FONT></DIV>
<DIV><FONT face="Times New Roman" size=2>the&nbsp;Advance Issues) gets dropped 
upon.</FONT></DIV>
<DIV><FONT face="Times New Roman"></FONT>&nbsp;</FONT>----- Original Message 
----- </DIV></DIV>
<BLOCKQUOTE 
style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  A.J. Maas 
  </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A 
  href="mailto:metastock@xxxxxxxxxxxxx"; 
  title=metastock@xxxxxxxxxxxxx>metastock@xxxxxxxxxxxxx</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, June 13, 2000 6:53 
PM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: CADI Constuction</DIV>
  <DIV><BR></DIV>
  <DIV><FONT size=2>
  <DIV><FONT face="Times New Roman" size=2><FONT face="Times New Roman" 
  size=2><FONT face="Times New Roman"><FONT size=4>A / D - The Advance-Decline 
  Line</FONT></FONT></FONT></FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face="Times New Roman" size=2><STRONG>A/D Ratio ( = total Advancing 
  Issues divided by total Declining Issues)</STRONG></FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2>A Ratio is the&nbsp;comparison's 
  (dividing) result expressed by&nbsp;a factor, the ratio, to 
  statisticaly</FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2>show how one item is, on equal terms, 
  related&nbsp;to another item (eg by&nbsp;dividing the (2) items).</FONT></DIV>
  <DIV><FONT face="Times New Roman"></FONT>&nbsp;</DIV>
  <DIV><FONT size=2>
  <DIV><FONT face="Times New Roman" size=2>The A/D Ratio is nothing more then 
  the Advancers devided " / "&nbsp;by the Decliners. </FONT></FONT><FONT 
  face="Times New Roman"><FONT size=2>In a&nbsp;</FONT><FONT 
  size=2>common</FONT></FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2>formula this would 
  be:</FONT></DIV></DIV>
  <DIV><FONT face="Times New Roman"></FONT>&nbsp;</DIV>
  <DIV><FONT face="Times New Roman" size=2>RatioClose&nbsp; = Advance Issues / 
  Decline Issues</FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2>where RatioClose is the daily EOD 
  value of the above described A/D Ratio. &nbsp; </FONT></DIV>
  <DIV><FONT size=2><FONT face="Times New Roman" 
  size=2></FONT></FONT>&nbsp;</DIV>
  <DIV><FONT size=2><FONT face="Times New Roman"><FONT size=2>The </FONT>formula 
  for MetaStock would be:</FONT></FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2>C/P</FONT></DIV>
  <DIV><FONT face="Times New Roman"><FONT size=2>where "P" is the particular 
  issue (eg&nbsp;Decline Issues) where the other "C" (or Close, </FONT><FONT 
  size=2>eg</FONT></FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2>the&nbsp;Advance Issues) gets dropped 
  upon.</FONT></DIV>
  <DIV><FONT face="Times New Roman"></FONT>&nbsp;</DIV>
  <DIV><FONT face="Times New Roman" size=2><STRONG>A-D Issues ( = total of the 
  Advancing Issues minus&nbsp;total of the Declining 
  Issues)</STRONG></FONT></DIV>
  <DIV><FONT face="Times New Roman" size=2>see also the A to Z book or free 
  website below</FONT></DIV>
  <DIV><FONT face="Times New Roman"></FONT>&nbsp;</DIV>
  <DIV><FONT face="Times New Roman" size=2><STRONG>A-D Line ( =&nbsp;cumulative 
  total of the A-D Issues indicator )</STRONG></FONT></DIV>
  <DIV><FONT face="Times New Roman"><FONT size=2>see also the A to Z book or 
  free website below</FONT></FONT><FONT face="Times New Roman"></DIV>
  <DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2><FONT size=2><FONT size=2><U>Advance-Decline Line 
  </U></FONT></FONT></FONT></DIV>
  <DT>
  <DIV><FONT size=2><FONT size=2><FONT size=2>The advance decline line is simply 
  a cumulative total of the number of advancing issues minus the number of 
  declining issues.</FONT></FONT></FONT></DIV>
  <DT><FONT size=2>
  <DT><FONT size=2><FONT size=2><U>Advance-Decline Line - Calculation 
  method</U></FONT></FONT> 
  <DT>
  <DIV>First, a large number is chosen, e.g. 20,000. Each day thereafter, the 
  difference between the number of advancing issues and</DIV>
  <DT>
  <DIV>declining issues is added or subtracted, eg e<FONT size=2>ach day's 
  number of declining issues is subtracted from the number of 
  advancing</FONT></DIV>
  <DT>
  <DIV><FONT size=2>issues which results in the net difference. This net 
  difference is then added to a running sum if the difference is positive 
  or</FONT></DIV>
  <DT>
  <DIV><FONT size=2>subtracted from the running sum if the difference is 
  negative.&nbsp;</FONT> Usually, New York Stock Exchange data is used for the 
  calculation.</DIV>
  <DT>
  <DIV></FONT>&nbsp;</DIV>
  <DT><FONT size=2><FONT size=2><FONT size=2><FONT size=2><U>Advance-Decline 
  Line&nbsp;- Reviewed</U></FONT></FONT></FONT></FONT><FONT size=3> </FONT>
  <DT><FONT size=2>The problem with the advance decline line is that it can be 
  quite subjective in interpretation. </FONT><FONT size=2>In retrospect, large 
  divergence's can</FONT><FONT size=3> </FONT>
  <DT><FONT size=2>be seen. However, it is hard to see them developing when the 
  analyst needs the information the most. </FONT><FONT size=2>This is not a 
  forward</FONT><FONT size=3> </FONT>
  <DT><FONT size=2>looking indicator. At best it can be used as a trend 
  indicator (source <A href="http://www.e-analytics.com/techdir.htm";>Technical 
  Analysis</A>&nbsp;by <A href="http://www.e-analytics.com/index.htm";>Equity 
  Analytics, Ltd.</A>).</FONT><FONT size=3> </FONT>
  <DT><FONT size=2>For example, by plotting a 20-day CMO or 14-day 
  RSI&nbsp;based upon the&nbsp;advance decline line, a&nbsp;far better 
  indication can be </FONT><FONT size=2>made</FONT> 
  <DT><FONT size=2>visable for&nbsp;</FONT><FONT size=2>the (NYSE) 
  market(s)</FONT><FONT size=2> internals&nbsp;and&nbsp;how it 
  progresses&nbsp;in time&nbsp;and&nbsp;most important, at the 
moment.<BR></FONT>
  <DT>
  <DIV><FONT size=2></FONT>&nbsp;</DIV>
  <DT>
  <DIV><FONT size=2>The A / D Formula for MetaStock:</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2>{In the Downloader click Help to find out how to create 
  </FONT><FONT size=2>Composite Charts, then&nbsp;create a composite security 
  of</DIV></FONT>
  <DIV><FONT size=2>Advancing Issues minus Declining Issues.&nbsp;In MetaStock 
  </FONT><FONT size=2>click&nbsp;Help to find out&nbsp;how to create Custom 
  Indicators, then</DIV></FONT>
  <DIV><FONT size=2>open the chart of the created composite security and plot 
  </FONT><FONT size=2>this formula as a single custom indicator, eg 
  drag&nbsp;this</DIV></FONT>
  <DIV><FONT size=2>indicator down from the Indicator Quicklist and&nbsp;have it 
  </FONT><FONT size=2>released on the Chart to create&nbsp;its -own- inner 
  window}</DIV></FONT>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2>Cum(CLOSE)</FONT></DIV></FONT><FONT 
  face="Times New Roman"></FONT></FONT><BR><FONT size=2></FONT></DT></DIV></DIV>
  <DIV><FONT size=2></FONT>&nbsp;</DIV>
  <DIV><FONT size=2><FONT size=2><FONT face="Times New Roman"><B>Technical 
  Analysis from A to Z&nbsp;&nbsp;-&nbsp;<FONT 
  color=#ff0000>&nbsp;<STRONG><EM><FONT size=2><A 
  href="http://www.equis.com/free/taaz/";>http://www.equis.com/free/taaz/</A></FONT></EM>&nbsp;</STRONG></FONT></B> 
  </FONT></FONT></FONT></DIV>
  <DIV><STRONG><FONT color=#ff0000 face="Times New Roman" 
  size=2></FONT></STRONG>&nbsp;</DIV>
  <DIV><STRONG><FONT color=#ff0000 face="Times New Roman" size=2>C O N T E N T 
  S<BR>&nbsp;</FONT></STRONG></DIV>
  <DIV><FONT size=2></FONT>&nbsp;</DIV>
  <DIV><STRONG><FONT color=#ff0000 face="Times New Roman" 
  size=2>Preface<BR>Acknowledgments<BR>Terminology<BR>To Learn 
  More<BR>Introduction <BR>Technical Analysis <BR>Price fields <BR>Charts 
  <BR>Support and resistance <BR>Trends <BR>Moving averages <BR>Indicators 
  <BR>Market indicators <BR>Line studies <BR>Periodicity <BR>The time element 
  <BR>Conclusion <BR>Equis Home Page </FONT></STRONG></DIV>
  <DIV><FONT size=2></FONT>&nbsp;</DIV>
  <DIV><STRONG><FONT color=#ff0000 face="Times New Roman" size=2>Order the Book 
  </FONT></STRONG></DIV>
  <DIV><FONT size=2></FONT>&nbsp;</DIV>
  <DIV><STRONG><FONT color=#ff0000 face="Times New Roman" 
  size=2>Reference<BR>Absolute Breadth 
  Index<BR>Accumulation/Distribution<BR>Accumulation Swing 
  Index<BR>Advance/Decline Line<BR>Advance/Decline Ratio<BR>Advancing-Declining 
  Issues<BR>Advancing, Declining, Unchanged 
  Volume<BR>&nbsp;<BR>-----------snip-------------</FONT></STRONG></DIV>
  <DIV><STRONG><FONT color=#ff0000 face="Times New Roman" 
  size=2></FONT></STRONG>&nbsp;</DIV>
  <DIV><STRONG><FONT color=#ff0000 face="Times New Roman" 
  size=2></FONT></STRONG>&nbsp;</DIV>
  <DIV><FONT color=#ff0000 face="Times New Roman" size=2>
  <DIV><FONT color=#000000 face=Arial><STRONG><FONT color=#ff0000 
  face="Times New Roman" size=2><A 
  href="http://www.equis.com/free/taaz/advdecline.html";>http://www.equis.com/free/taaz/advdecline.html</A><BR><A 
  href="http://www.equis.com/free/taaz/advdecratio.html";>http://www.equis.com/free/taaz/advdecratio.html</A><BR><A 
  href="http://www.equis.com/free/taaz/advdecissues.html";>http://www.equis.com/free/taaz/advdecissues.html</A><BR><A 
  href="http://www.equis.com/free/taaz/advdecvol.html";>http://www.equis.com/free/taaz/advdecvol.html</A></FONT></STRONG></FONT></DIV>
  <DIV><FONT color=#000000 face=Arial></FONT>&nbsp;</DIV>
  <DIV><FONT color=#000000></FONT><FONT color=#000000></FONT><FONT 
  color=#000000><A 
  href="http://www.equis.com/customer/support/formulas";>http://www.equis.com/customer/support/formulas</A></FONT></DIV>
  <DIV><FONT color=#000000 face=Arial></FONT>&nbsp;</DIV>
  <DIV><BR><FONT color=#000000 face=Arial size=3>Regards,<BR>Ton 
  Maas<BR></FONT><A href="mailto:ms-irb@xxxxxxxxxxxxxxxx";><FONT face=Arial 
  size=3>ms-irb@xxxxxxxxxxxxxxxx</FONT></A><BR><FONT color=#000000 face=Arial 
  size=3>Dismiss the ".nospam" bit (including the dot) when 
  replying.<BR>Homepage&nbsp; </FONT><A 
  href="http://home.planet.nl/~anthmaas";><FONT face=Arial 
  size=3>http://home.planet.nl/~anthmaas</FONT></A></DIV>
  <DIV><FONT face=Arial size=3></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=3></FONT>&nbsp;</DIV>
  <DIV><FONT color=#000000 face=Arial size=3>----- Original Message ----- 
</FONT>
  <DIV><FONT color=#000000 face=Arial size=3>From: "hcong" &lt;</FONT><A 
  href="mailto:hcong@xxxxxxxxxxxxxx";><FONT face=Arial 
  size=3>hcong@xxxxxxxxxxxxxx</FONT></A><FONT color=#000000 face=Arial 
  size=3>&gt;</FONT></DIV>
  <DIV><FONT color=#000000 face=Arial size=3>To: &lt;</FONT><A 
  href="mailto:metastock@xxxxxxxxxxxxx";><FONT face=Arial 
  size=3>metastock@xxxxxxxxxxxxx</FONT></A><FONT color=#000000 face=Arial 
  size=3>&gt;</FONT></DIV>
  <DIV><FONT color=#000000 face=Arial size=3>Sent: dinsdag 13 juni 2000 
  2:15</FONT></DIV>
  <DIV><FONT color=#000000 face=Arial size=3>Subject: CADI 
  Constuction</FONT></DIV></DIV>
  <DIV><FONT color=#000000><BR><FONT face=Arial size=3></FONT></FONT></DIV><FONT 
  color=#000000 face=Arial size=3>&gt; Hi list member:<BR>&gt; <BR>&gt; I have 
  this question and hope that some kind soul can help me:<BR>&gt; <BR>&gt; I 
  want to construct a Cumulative Advance and Decline Index (CADI)for my<BR>&gt; 
  local stock exchange but do not know how.&nbsp; My data vendor had 
  supplied<BR>&gt; me a separate file each for Nos of Advance counters, Nos of 
  Falling<BR>&gt; Counters, and Nos of counter Unchanged, all in metastock 
  format.<BR>&gt; <BR>&gt; I understand that can be done when convert into excel 
  and do some<BR>&gt; manipulation there, but I find it very troublesome for 
  daily updating. <BR>&gt; Is there an easilier way that I can do that directly 
  in Metastock, like<BR>&gt; creating a CADI indicator?<BR>&gt; <BR>&gt; I am 
  using Metastock Ver 6.52, EOD.&nbsp; Thanks for help in advance.<BR>&gt; 
  <BR>&gt; -- <BR>&gt; Regards.<BR>&gt; <BR>&gt; Ong Hock Choon<BR>&gt; 
  </FONT><A href="mailto:hcong@xxxxxxxxxxxxxx";><FONT face=Arial 
  size=3>hcong@xxxxxxxxxxxxxx</FONT></A><BR></FONT></DIV></BLOCKQUOTE></BODY></HTML>
</x-html>From ???@??? Thu Jun 15 09:23:12 2000
Return-Path: <majordom@xxxxxxxxxxxxxxxxxx>
Received: from listserv.equis.com (listserv.equis.com [204.246.137.2])
	by purebytes.com (8.9.3/8.9.3) with ESMTP id HAA12255
	for <neal@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 07:26:55 -0700
Received: (from majordom@xxxxxxxxx)
	by listserv.equis.com (8.8.7/8.8.7) id GAA10275
	for metastock-outgoing; Wed, 14 Jun 2000 06:52:21 -0600
X-Authentication-Warning: listserv.equis.com: majordom set sender to owner-metastock@xxxxxxxxxxxxx using -f
Received: from freeze.metastock.com (freeze.metastock.com [204.246.137.5])
	by listserv.equis.com (8.8.7/8.8.7) with ESMTP id GAA10271
	for <metastock@xxxxxxxxxxxxxxxxxx>; Wed, 14 Jun 2000 06:52:18 -0600
Received: from mail3.brightok.net (mail3.brightok.net [206.30.106.72])
	by freeze.metastock.com (8.8.5/8.8.5) with ESMTP id HAA04865
	for <metastock@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 07:11:51 -0600 (MDT)
Received: from lurch (sulphur1p33.cld.brightok.net [206.30.100.33])
	by mail3.brightok.net (8.9.3/8.9.3) with SMTP id HAA22555
	for <metastock@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 07:54:38 -0500 (CDT)
Message-ID: <003601bfd5ff$86003300$786fa8c0@xxxxx>
From: "Adam Hefner" <vonhef@xxxxxxxxxxxx>
To: <metastock@xxxxxxxxxxxxx>
References: <005d01bfd5ac$be45cd40$786fa8c0@xxxxx> <002701bfd5ee$304f4f60$51e76ccb@xxxxxxxxxxxxxx>
Subject: Re: (Market) US bonds
Date: Wed, 14 Jun 2000 07:53:21 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_NextPart_000_0033_01BFD5D5.9BEB4260"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6600
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Sender: owner-metastock@xxxxxxxxxxxxx
Precedence: bulk
Reply-To: metastock@xxxxxxxxxxxxx
Status:   

<x-html><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.3017.1000" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Mr. Harvey,</FONT></DIV>
<DIV><FONT face=Arial size=2>&nbsp;Your observations serve you very well, one of 
the calculations</FONT></DIV>
<DIV><FONT face=Arial size=2>for the monthly high's and low are the same as one 
of the</FONT></DIV>
<DIV><FONT face=Arial size=2>support levels of the pivot point method. I have 
listed below</FONT></DIV>
<DIV><FONT face=Arial size=2>the code you requested for the "Pivot Point" 
method, the</FONT></DIV>
<DIV><FONT face=Arial size=2>first code is the classic pivot point 
calculation,</FONT></DIV>
<DIV><FONT face=Arial size=2>the second two allow the weekly and monthly levels 
to be</FONT></DIV>
<DIV><FONT face=Arial size=2>displayed on a daily bar chart. I have no system 
test for this</FONT></DIV>
<DIV><FONT face=Arial size=2>and have never used or tested these code for 
trading.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Adam</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>---------------------------------</FONT></DIV>
<DIV><FONT face=Arial size=2>name= Pivot Point</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial 
size=2>PP:=Typical();<BR>R1:=(2*PP)-L;<BR>S1:=(2*PP)-H;<BR>R2:=(PP-S1)+R1;<BR>S2:=PP-(R1-S1);<BR>R2;<BR>R1;<BR>S1;</FONT></DIV>
<DIV><FONT face=Arial size=2>---------------------</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>name= Pivot Point (weekly)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>{Weekly Pivot Point Projection 8/4/99}</FONT><FONT 
face=Arial 
size=2><BR>Dw:=If(DayOfWeek()&lt;=Ref(DayOfWeek(),-1),1,0);<BR>&nbsp;&nbsp; 
{Weekly Typical Price}<BR>PP1:=If(Dw=1,<BR>&nbsp;&nbsp;&nbsp; 
{then}(Ref(HighestSince(1,Dw=1,H),-1)+<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Ref(LowestSince(1,Dw=1,L),-1) 
+<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Ref(C,-1))/3,<BR>&nbsp;&nbsp;&nbsp; {else}0);<BR>&nbsp;&nbsp; {Weekly 
High}<BR>Wh1:=If(Dw=1,<BR>&nbsp;&nbsp;&nbsp; 
{then}Ref(HighestSince(1,Dw=1,H),-1),<BR>&nbsp;&nbsp;&nbsp; 
{else}0);<BR>&nbsp;&nbsp; {Weekly Low}<BR>Wl1:=If(Dw=1,<BR>&nbsp;&nbsp;&nbsp; 
{then}Ref(LowestSince(1,Dw=1,L),-1),<BR>&nbsp;&nbsp;&nbsp; 
{else}0);<BR>Wh:=ValueWhen(1,Wh1&gt;0,Wh1);<BR>Wl:=ValueWhen(1,Wl1&gt;0,Wl1);<BR>PP:=ValueWhen(1,PP1&gt;0,PP1);<BR>&nbsp;&nbsp; 
{Resistance 1}<BR>R1:=(2*PP)-Wl;<BR>&nbsp;&nbsp; {Support 
1}<BR>S1:=(2*PP)-Wh;<BR>&nbsp;&nbsp; {Resistance 
2}<BR>R2:=(PP-S1)+R1;<BR>&nbsp;&nbsp; {Support 
2}<BR>S2:=PP-(R1-S1);<BR>R2;<BR>R1;<BR>S1;</FONT></DIV>
<DIV><FONT face=Arial size=2>S2;</FONT></DIV>
<DIV><FONT face=Arial size=2>------------------------------------</FONT></DIV>
<DIV><FONT face=Arial size=2>name= Pivot Point (Monthly)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>{Monthly Pivot Point 8/08/99}<BR>&nbsp;&nbsp; 
{First Day Of 
Month}<BR>Fm:=If(DayOfMonth()&lt;Ref(DayOfMonth(),-1),<BR>&nbsp;&nbsp;&nbsp; 
{then}1,<BR>&nbsp;&nbsp;&nbsp; {else}0);<BR>&nbsp;&nbsp; {Monthy Pivot 
Point}<BR>PP1:=If(Fm=1,<BR>&nbsp;&nbsp;&nbsp; 
{then}(Ref(HighestSince(1,Fm=1,H),-1)+<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Ref(LowestSince(1,Fm=1,L),-1) 
+<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Ref(C,-1))/3,<BR>&nbsp;&nbsp;&nbsp; {else}0);<BR>&nbsp;&nbsp; {Monthly 
High}<BR>Mh1:=If(Fm=1,<BR>&nbsp;&nbsp;&nbsp; 
{then}Ref(HighestSince(1,Fm=1,H),-1),<BR>&nbsp;&nbsp;&nbsp; 
{else}0);<BR>&nbsp;&nbsp; {Monthly Low}<BR>Ml1:=If(Fm=1,<BR>&nbsp;&nbsp;&nbsp; 
{then}Ref(LowestSince(1,Fm=1,L),-1),<BR>&nbsp;&nbsp;&nbsp; 
{else}0);<BR>Mh:=ValueWhen(1,Mh1&gt;0,Mh1);<BR>Ml:=ValueWhen(1,Ml1&gt;0,Ml1);<BR>PP:=ValueWhen(1,PP1&gt;0,PP1);<BR>&nbsp;&nbsp; 
{Resistance 1}<BR>R1:=(2*PP)-Ml;<BR>&nbsp;&nbsp; {Support 
1}<BR>S1:=(2*PP)-Mh;<BR>&nbsp;&nbsp; {Resistance 
2}<BR>R2:=(PP-S1)+R1;<BR>&nbsp;&nbsp; {Support 
2}<BR>S2:=PP-(R1-S1);<BR>R2;<BR>R1;<BR>S1;<BR>S2;</FONT></DIV>
<DIV><FONT face=Arial size=2>--------------</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE 
style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A href="mailto:harveyif@xxxxxxxxxxxxxx"; title=harveyif@xxxxxxxxxxxxxx>Ian 
  Harvey</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A 
  href="mailto:metastock@xxxxxxxxxxxxx"; 
  title=metastock@xxxxxxxxxxxxx>metastock@xxxxxxxxxxxxx</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, June 14, 2000 5:49 
  AM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: (Market) US bonds</DIV>
  <DIV><BR></DIV>
  <DIV><FONT size=2>Hi List,</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2>I am new to the list, watching with interest over the past 
  couple of weeks.</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2>I'm apologise in advance if this has been discussed 
  previously, but I notice&nbsp;Adam's chart below&nbsp;has 'dots' attached to 
  the bar line.&nbsp; It reminds me of the Pivot Point trading method that was 
  around a few years ago, mainly down on the floor in Chicago.</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2>If it is so, does anyone have the indicator and system 
  tester for the Pivot Point?</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2>Many thanks, and my thanks to the main contributors of this 
  list ( Walter, Ton, Steve, Thomas, etc).&nbsp; You certainly give us plenty to 
  think about!</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=2>Ian.</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <BLOCKQUOTE 
  style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
    <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
    <DIV 
    style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
    <A href="mailto:vonhef@xxxxxxxxxxxx"; title=vonhef@xxxxxxxxxxxx>Adam 
    Hefner</A> </DIV>
    <DIV style="FONT: 10pt arial"><B>To:</B> <A 
    href="mailto:metastock@xxxxxxxxxxxxx"; 
    title=metastock@xxxxxxxxxxxxx>metastock@xxxxxxxxxxxxx</A> </DIV>
    <DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, 14 June 2000 
    13:00</DIV>
    <DIV style="FONT: 10pt arial"><B>Subject:</B> (Market) US bonds</DIV>
    <DIV><BR></DIV>
    <DIV><FONT face=Arial size=2>Looks like a good position to place a short in 
    the bond market.</FONT></DIV>
    <DIV><FONT face=Arial size=2>The Days action entered into congestion and we 
    are at the</FONT></DIV>
    <DIV><FONT face=Arial size=2>projected monthly high levels (yellow 
    dots).&nbsp; MIT short around</FONT></DIV>
    <DIV><FONT face=Arial size=2>97-97.1 should be a good spot. I may be 
    wrong!</FONT></DIV>
    <DIV>&nbsp;</DIV>
    <DIV><FONT face=Arial size=2>AH</FONT></DIV>
    <DIV>&nbsp;</DIV>
    <DIV>&nbsp;</DIV>
    <DIV>&nbsp;</DIV>
    <DIV>&nbsp;</DIV></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
</x-html>From ???@??? Thu Jun 15 09:23:15 2000
Return-Path: <majordom@xxxxxxxxxxxxxxxxxx>
Received: from listserv.equis.com (listserv.equis.com [204.246.137.2])
	by purebytes.com (8.9.3/8.9.3) with ESMTP id HAA12905
	for <neal@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 07:44:03 -0700
Received: (from majordom@xxxxxxxxx)
	by listserv.equis.com (8.8.7/8.8.7) id HAA10469
	for metastock-outgoing; Wed, 14 Jun 2000 07:05:55 -0600
X-Authentication-Warning: listserv.equis.com: majordom set sender to owner-metastock@xxxxxxxxxxxxx using -f
Received: from freeze.metastock.com (freeze.metastock.com [204.246.137.5])
	by listserv.equis.com (8.8.7/8.8.7) with ESMTP id HAA10466
	for <metastock@xxxxxxxxxxxxxxxxxx>; Wed, 14 Jun 2000 07:05:52 -0600
Received: from pimout7-int.prodigy.net (pimout7-ext.prodigy.net [207.115.63.106])
	by freeze.metastock.com (8.8.5/8.8.5) with ESMTP id HAA04874
	for <metastock@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 07:25:25 -0600 (MDT)
Received: from p180 (VLPRB103-27.splitrock.net [209.253.170.75])
	by pimout7-int.prodigy.net (8.8.5/8.8.5) with ESMTP id JAA54626
	for <metastock@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 09:08:11 -0400
Message-Id: <4.2.2.20000614080232.00bd8d40@xxxxxxxxxxxxxxx>
X-Sender: rphodge@xxxxxxxxxxxxxxx
X-Mailer: QUALCOMM Windows Eudora Pro Version 4.2.2 
Date: Wed, 14 Jun 2000 08:07:22 -0500
To: metastock@xxxxxxxxxxxxx
From: Raymond Hodge <rphodge@xxxxxxxxxxx>
Subject: Re: CADI Constuction
In-Reply-To: <001201bfd5f4$8055b3e0$59c3fd3f@xxxxxxxx>
References: <04b801bfd592$d21b28c0$3eda79c3@xxxxx>
Mime-Version: 1.0
Content-Type: multipart/alternative;
	boundary="=====================_4194484==_.ALT"
Sender: owner-metastock@xxxxxxxxxxxxx
Precedence: bulk
Reply-To: metastock@xxxxxxxxxxxxx
Status:   

<x-html><html>
Which version are you using? <br>
<br>
I don't know about 6.52, but I found out too late that the p variable
doesn;t function in 7.01.<br>
<br>
Just one of the zillion bugs in 7.01 EOD.<br>
<br>
Does anyone know where 7.02 is? I was told it was about 2 weeks
away.<br>
That was about 2 months ago.<br>
<br>
Patience is wearing thin.<br>
<br>
<br>
<br>
At 06:34 AM 6/14/2000 , you wrote:<br>
<font size=2><blockquote type=cite cite>How exactly does one reference
another &quot;P&quot;, a particular issue?<br>
I have tried without sucees.<br>
Pete<br>
&nbsp;<br>
</font><font face="Times New Roman, Times" size=2>The formula for
MetaStock would be:</font><br>
C/P<br>
where &quot;P&quot; is the particular issue (eg Decline Issues) where the
other &quot;C&quot; (or Close, eg<br>
the Advance Issues) gets dropped upon.<br>
&nbsp;----- Original Message ----- <br>
<b><blockquote type=cite cite>From:</b>
A.J. Maas <br>
<b>To:</b> metastock@xxxxxxxxxxxxx <br>
<b>Sent:</b> Tuesday, June 13, 2000 6:53 PM<br>
<b>Subject:</b> Re: CADI Constuction<br>
<br>
<font face="Times New Roman, Times" size=4>A / D - The Advance-Decline Line</font><br>
<font size=2>&nbsp;<br>
</font><font face="Times New Roman, Times" size=2><b>A/D Ratio ( = total Advancing Issues divided by total Declining Issues)</font></b><br>
</b>A Ratio is the comparison's (dividing) result expressed by a factor, the ratio, to statisticaly<br>
show how one item is, on equal terms, related to another item (eg by dividing the (2) items).<br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2>The A/D Ratio is nothing more then the Advancers devided &quot; / &quot; by the Decliners. In a common</font><br>
formula this would be:<br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2>RatioClose&nbsp; = Advance Issues / Decline Issues</font><br>
where RatioClose is the daily EOD value of the above described A/D Ratio.&nbsp;&nbsp; <br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2>The formula for MetaStock would be:</font><br>
C/P<br>
where &quot;P&quot; is the particular issue (eg Decline Issues) where the other &quot;C&quot; (or Close, eg<br>
the Advance Issues) gets dropped upon.<br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2><b>A-D Issues ( = total of the Advancing Issues minus total of the Declining Issues)</font></b><br>
</b>see also the A to Z book or free website below<br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2><b>A-D Line ( = cumulative total of the A-D Issues indicator )</font></b><br>
</b>see also the A to Z book or free website below<br>
&nbsp;<br>
<u>Advance-Decline Line </u><br>
</u>The advance decline line is simply a cumulative total of the number of advancing issues minus the number of declining issues.<br>
<u>Advance-Decline Line - Calculation method</u> <br>
First, a large number is chosen, e.g. 20,000. Each day thereafter, the difference between the number of advancing issues and<br>
declining issues is added or subtracted, eg each day's number of declining issues is subtracted from the number of advancing<br>
issues which results in the net difference. This net difference is then added to a running sum if the difference is positive or<br>
subtracted from the running sum if the difference is negative.&nbsp; Usually, New York Stock Exchange data is used for the calculation.<br>
&nbsp;<br>
<u>Advance-Decline Line - Reviewed</u><font face="Times New Roman, Times"> <br>
</font><font face="Times New Roman, Times" size=2>The problem with the advance decline line is that it can be quite subjective in interpretation. In retrospect, large divergence's can</font><font face="Times New Roman, Times"> <br>
</font><font face="Times New Roman, Times" size=2>be seen. However, it is hard to see them developing when the analyst needs the information the most. This is not a forward</font><font face="Times New Roman, Times"> <br>
</font><font face="Times New Roman, Times" size=2>looking indicator. At best it can be used as a trend indicator (source Equity Analytics, Ltd.).</font><font face="Times New Roman, Times"> <br>
</font><font face="Times New Roman, Times" size=2>For example, by plotting a 20-day CMO or 14-day RSI based upon the advance decline line, a far better indication can be made <br>
visable for the (NYSE) market(s) internals and how it progresses in time and most important, at the moment.<br>
&nbsp;<br>
The A / D Formula for MetaStock:<br>
&nbsp;<br>
{In the Downloader click Help to find out how to create Composite Charts, then create a composite security of<br>
Advancing Issues minus Declining Issues. In MetaStock click Help to find out how to create Custom Indicators, then<br>
open the chart of the created composite security and plot this formula as a single custom indicator, eg drag this<br>
indicator down from the Indicator Quicklist and have it released on the Chart to create its -own- inner window}<br>
&nbsp;<br>
Cum(CLOSE)<br>
</font><br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2><b>Technical Analysis from A to Z&nbsp; - </font><font face="Times New Roman, Times" size=2 color="#FF0000"> <i>http://www.equis.com/free/taaz/</i> </font></b><font face="Times New Roman, Times" size=2> </font><br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2 color="#FF0000"><b>C O N T E N T S<br>
&nbsp;</font></b><br>
</b>&nbsp;<br>
<font face="Times New Roman, Times" size=2 color="#FF0000"><b>Preface<br>
Acknowledgments<br>
Terminology<br>
To Learn More<br>
Introduction <br>
Technical Analysis <br>
Price fields <br>
Charts <br>
Support and resistance <br>
Trends <br>
Moving averages <br>
Indicators <br>
Market indicators <br>
Line studies <br>
Periodicity <br>
The time element <br>
Conclusion <br>
Equis Home Page </font></b><br>
</b>&nbsp;<br>
<font face="Times New Roman, Times" size=2 color="#FF0000"><b>Order the Book </font></b><br>
</b>&nbsp;<br>
<font face="Times New Roman, Times" size=2 color="#FF0000"><b>Reference<br>
Absolute Breadth Index<br>
Accumulation/Distribution<br>
Accumulation Swing Index<br>
Advance/Decline Line<br>
Advance/Decline Ratio<br>
Advancing-Declining Issues<br>
Advancing, Declining, Unchanged Volume<br>
&nbsp;<br>
-----------snip-------------</font></b><br>
</b>&nbsp;<br>
&nbsp;<br>
<font face="Times New Roman, Times" size=2 color="#FF0000"><b>http://www.equis.com/free/taaz/advdecline.html<br>
http://www.equis.com/free/taaz/advdecratio.html<br>
http://www.equis.com/free/taaz/advdecissues.html<br>
http://www.equis.com/free/taaz/advdecvol.html</b><br>
</b>&nbsp;<br>
</font><font face="Times New Roman, Times" size=2>http://www.equis.com/customer/support/formulas</font><br>
<font face="Times New Roman, Times" size=2 color="#FF0000">&nbsp;<br>
<br>
</font><font face="arial">Regards,<br>
Ton Maas<br>
</font><font face="arial" color="#FF0000">ms-irb@xxxxxxxxxxxxxxxx</font><br>
<font face="arial">Dismiss the &quot;.nospam&quot; bit (including the dot) when replying.<br>
Homepage&nbsp; </font>http://home.planet.nl/~anthmaas</font><br>
<font face="Times New Roman, Times" size=2 color="#FF0000">&nbsp;<br>
&nbsp;<br>
</font><font face="arial">----- Original Message ----- </font><br>
From: &quot;hcong&quot; &lt;hcong@xxxxxxxxxxxxxx</font><font face="arial">&gt;</font><br>
To: &lt;metastock@xxxxxxxxxxxxx</font><font face="arial">&gt;</font><br>
Sent: dinsdag 13 juni 2000 2:15<br>
Subject: CADI Constuction<br>
<br>
&gt; Hi list member:<br>
&gt; <br>
&gt; I have this question and hope that some kind soul can help me:<br>
&gt; <br>
&gt; I want to construct a Cumulative Advance and Decline Index (CADI)for my<br>
&gt; local stock exchange but do not know how.&nbsp; My data vendor had supplied<br>
&gt; me a separate file each for Nos of Advance counters, Nos of Falling<br>
&gt; Counters, and Nos of counter Unchanged, all in metastock format.<br>
&gt; <br>
&gt; I understand that can be done when convert into excel and do some<br>
&gt; manipulation there, but I find it very troublesome for daily updating. <br>
&gt; Is there an easilier way that I can do that directly in Metastock, like<br>
&gt; creating a CADI indicator?<br>
&gt; <br>
&gt; I am using Metastock Ver 6.52, EOD.&nbsp; Thanks for help in advance.<br>
&gt; <br>
&gt; -- <br>
&gt; Regards.<br>
&gt; <br>
&gt; Ong Hock Choon<br>
&gt; hcong@xxxxxxxxxxxxxx</font></blockquote></blockquote></html>
</x-html>From ???@??? Thu Jun 15 09:24:03 2000
Return-Path: <majordom@xxxxxxxxxxxxxxxxxx>
Received: from listserv.equis.com (listserv.equis.com [204.246.137.2])
	by purebytes.com (8.9.3/8.9.3) with ESMTP id IAA16894
	for <neal@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 08:34:16 -0700
Received: (from majordom@xxxxxxxxx)
	by listserv.equis.com (8.8.7/8.8.7) id HAA10672
	for metastock-outgoing; Wed, 14 Jun 2000 07:50:29 -0600
X-Authentication-Warning: listserv.equis.com: majordom set sender to owner-metastock@xxxxxxxxxxxxx using -f
Received: from freeze.metastock.com (freeze.metastock.com [204.246.137.5])
	by listserv.equis.com (8.8.7/8.8.7) with ESMTP id HAA10664
	for <metastock@xxxxxxxxxxxxxxxxxx>; Wed, 14 Jun 2000 07:50:24 -0600
Received: from alijku04.edvz.uni-linz.ac.at (alijku04.edvz.uni-linz.ac.at [140.78.182.1])
	by freeze.metastock.com (8.8.5/8.8.5) with ESMTP id IAA04896
	for <metastock@xxxxxxxxxxxxx>; Wed, 14 Jun 2000 08:09:51 -0600 (MDT)
Received: from black (Async231.EDVZ.Uni-Linz.AC.AT [140.78.5.231])
	by alijku04.edvz.uni-linz.ac.at (8.8.8/8.8.8) with SMTP id PAA115704;
	Wed, 14 Jun 2000 15:52:15 +0200
Message-Id: <4.1.20000614143345.042161f0@xxxxxxxxxxxxxxxxxx>
Message-Id: <4.1.20000614143345.042161f0@xxxxxxxxxxxxxxxxxx>
X-Sender: k2032e8@xxxxxxxxxxxxxxxxxx
X-Mailer: QUALCOMM Windows Eudora Pro Version 4.1
Date: Wed, 14 Jun 2000 15:13:53 +0200
To: Humphrey Geiseb <hum@xxxxxxxxxx>
From: Thomas Pfluegl <thomas.pfluegl@xxxxxxxxxxxxxxxxx>
Subject: Re: DLWIN directory
Cc: metastock@xxxxxxxxxxxxx, anthmaas@xxxxxxxxx, wlake@xxxxxxxxx,
        trbowen@xxxxxxxxxxxxxx
In-Reply-To: <9888.000613@xxxxxxxxxx>
References: <4.1.20000612190916.02676e80@xxxxxxxxxxxxxxxxxx>
 <4.1.20000612190916.02676e80@xxxxxxxxxxxxxxxxxx>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Sender: owner-metastock@xxxxxxxxxxxxx
Precedence: bulk
Reply-To: metastock@xxxxxxxxxxxxx
Status:   

Minute = val(right(format(range("a1"),"hh:mm"),2))
    If Val(Application.Version) < 8 Then m = 16384 Else m = 65536


Hi Humphrey, Ton, Walter et al:

>How can I specify the downloader directory DLWIN.  I am running a
>script to populatemetastock directory wit new prices but the script
>fails to find the DLWIN directory.
What exactly do you mean by 'script'?

Here is a method detecting the path of The DownLoader using VBA. It should
work at least in Excel 97.
I hope there are no problems as I use the German version of Excel
(especially the different comma: US: ".", here: "," had to be addressed in
some extra lines of code).

I can't test this so use it with care.
Not only a trader should have regular backups anyway.


Beware:
Due to a bug in the MetaStock setup sometimes the Windows Registry entry
does not correspond with the version actually installed.
You may have MetaStock Version "6.52" with "6.51" being the (incorrect)
Windows Registry entry.
At least the MetaStock Version I owned had this bug.

I start at MetaStock version number 5.00 and loop (increment 0.01) through
all version numbers up to V. 9.0	 [=Y3k?	:-)]


MsgBox "The Path of the DownLoader (MetaStock V." & VersionMetaStock & ")
is " & Chr(13) & Chr(13) & reqEntry, vbInformation + vbOKOnly, "Path-Info":
        Range("F5") = reqEntry
        Range("F6") = reqEntry & "\"


'''''''''''''''''''''''''''' BEGIN of VBA Code '''''''''''''''''''''''''''' 

Private Declare Function RegOpenKeyA Lib "ADVAPI32.DLL" _
    (ByVal hKey As Long, ByVal sSubKey As String, _
    ByRef hkeyResult As Long) As Long

Private Declare Function RegCreateKeyA Lib "ADVAPI32.DLL" _
    (ByVal hKey As Long, ByVal sSubKey As String, _
    ByRef hkeyResult As Long) As Long

Private Declare Function RegCloseKey Lib "ADVAPI32.DLL" _
    (ByVal hKey As Long) As Long

Private Declare Function RegQueryValueExA Lib "ADVAPI32.DLL" _
    (ByVal hKey As Long, ByVal sValueName As String, _
    ByVal dwReserved As Long, ByRef lValueType As Long, _
    ByVal sValue As String, ByRef lResultLen As Long) As Long
    
Private Declare Function RegSetValueExA Lib "ADVAPI32.DLL" _
    (ByVal hKey As Long, ByVal sValueName As String, _
    ByVal dwReserved As Long, ByVal dwType As Long, _
    ByVal sValue As String, ByVal dwSize As Long) As Long



Function GetRegistry(Key, Path, ByVal ValueName As String) As String
'\  Reads a value from the Windows Registry

    Dim hKey As Long
    Dim lValueType As Long
    Dim sResult As String
    Dim lResultLen As Long
    Dim ResultLen As Long
    Dim x, TheKey As Long

    TheKey = -99
    Select Case UCase(Key)
 '       Case "HKEY_CLASSES_ROOT": TheKey = &H80000000
        Case "HKEY_CURRENT_USER": TheKey = &H80000001
 '       Case "HKEY_LOCAL_MACHINE": TheKey = &H80000002
 '       Case "HKEY_USERS": TheKey = &H80000003
 '       Case "HKEY_CURRENT_CONFIG": TheKey = &H80000004
 '       Case "HKEY_DYN_DATA": TheKey = &H80000005
    End Select

'   Exit if key is not found
    If TheKey = -99 Then
        GetRegistry = "Not Found"
        Exit Function
    End If

    If RegOpenKeyA(TheKey, Path, hKey) <> 0 Then _
        x = RegCreateKeyA(TheKey, Path, hKey)

    sResult = Space(100)
    lResultLen = 100

    x = RegQueryValueExA(hKey, ValueName, 0, lValueType, _
    sResult, lResultLen)

    Select Case x
        Case 0: GetRegistry = left(sResult, lResultLen - 1)
        Case Else: GetRegistry = "Not Found"
    End Select

    RegCloseKey hKey

End Function ' GetRegistry


''''''''''''''''''''''''''''' 
Sub DownLoader_Get_Path()
    Dim RootKey As String, RegEntry As String, Path As String
    Dim reqEntry As String
    Dim WriteResult As Boolean
    
    Dim VersionMetaStock As String

    VersionMetaStock = Application.InputBox("Enter the Version Number of
MetaStock:" & Chr(13) _
        & "(if you don't know choose ''About MetaStock'' from the MetaStock
Help menu)." _
        , "Info required", "6.51")
    If VersionMetaStock = False Then Exit Sub    				   ' trigger Cancel button


    RootKey = "hkey_current_user"
    Path = "Software\EQUIS\MetaStock " & VersionMetaStock & "\File Paths"
    RegEntry = "DownLoader"
        
    reqEntry = UCase(GetRegistry(RootKey, Path, RegEntry))


    If reqEntry = "NOT FOUND" Then
        MsgBox "An error occured reading from the registry..." & Chr(13) &
Chr(13) _
                 & "Root Key = " & RootKey & Chr(13) _
                 & "    Path = " & Path & Chr(13) _
                 & "   Entry = " & RegEntry & Chr(13) & Chr(13) _
                 & "Beware: " & Chr(13) & "Due to a bug sometimes the
Registry entry does not" & Chr(13) & "correspond with the version actually
installed." & Chr(13) & _
                 "You may try Version Number ''6.51'' instead of ''6.52''",
vbInformation + vbOKOnly, "Error: Registry entry " & VersionMetaStock & "
not found!"
        Else
        MsgBox "The Path of the DownLoader (MetaStock V." &
VersionMetaStock & ") is " & Chr(13) & Chr(13) & reqEntry, vbInformation +
vbOKOnly, "Path-Info":
        Range("F5") = reqEntry
        Range("F6") = reqEntry & "\"
    End If
    
End Sub

''''''''''''''''''''''''''''

Sub DownLoader_Get_Path_Loop()
    Dim RootKey As String, RegEntry As String, Path As String
    Dim reqEntry As String
    Dim WriteResult As Boolean
    
    Dim VersionMetaStock As String

VersionMetaStock = 5
While reqEntry = "NOT FOUND" Or reqEntry = ""

If VersionMetaStock = False Then Exit Sub


    RootKey = "hkey_current_user"
    Path = "Software\EQUIS\MetaStock " & VersionMetaStock & "\File Paths"
    RegEntry = "DownLoader"
        
    reqEntry = UCase(GetRegistry(RootKey, Path, RegEntry))


Pos1 = InStr(1, VersionMetaStock, ".", 1)
If Pos1 <> 0 Then VersionMetaStock = Application.Replace(VersionMetaStock,
Pos1, 1, ",")
VersionMetaStock = VersionMetaStock + 0.01

Pos1 = InStr(1, VersionMetaStock, ",", 1)
If Pos1 <> 0 Then VersionMetaStock = Application.Replace(VersionMetaStock,
Pos1, 1, ".")
If Val(VersionMetaStock) > 9 Then GoTo nF
Wend

nF:
    If reqEntry = "NOT FOUND" Then
        MsgBox "An error occured reading from the registry..." & Chr(13) &
Chr(13) _
                 & "Root Key = " & RootKey & Chr(13) _
                 & "    Path = " & Path & Chr(13) _
                 & "   Entry = " & RegEntry & Chr(13) & Chr(13) _
                 & "Beware: " & Chr(13) & "Due to a bug sometimes the
Registry entry does not" & Chr(13) & "correspond with the version actually
installed." & Chr(13) & _
                 "You may try Version Number ''6.51'' instead of ''6.52''",
vbInformation + vbOKOnly, "Error: Registry entry " & VersionMetaStock & "
not found!"
        Else
        MsgBox "The Path of the DownLoader (MetaStock V." &
VersionMetaStock & ") is " & Chr(13) & Chr(13) & reqEntry, vbInformation +
vbOKOnly, "Path-Info":
        Range("F5") = reqEntry
        Range("F6") = reqEntry & "\"
    End If
    
Stop

End Sub

'''''''''''''''''''''''''''' END of VBA Code ''''''''''''''''''''''''''''


At 21:19 2000-06-13 +0400, you wrote:
>How can I specify the downloader directory DLWIN.  I am running a
>script to populatemetastock directory wit new prices but the script
>fails to find the DLWIN directory.
>
>
>Humphrey
----------------------------------------------------------------------------
Thomas Pfluegl,  Rudersdorf 8,  A - 4212 Neumarkt
Austria               Tel.  ++ 43 - (0) 7941 - 8106
http://keplerweb.oeh.uni-linz.ac.at/trading/index.html
----------------------------------------------------------------------------
Austria/Europe --> high mountains --> Mozart --> no kangaroos
----------------------------------------------------------------------------