home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / MS.TAS < prev    next >
Text File  |  1992-09-27  |  767b  |  22 lines
  1. #MAX_QUOTES 1195
  2.  #OUTPUT_FILE QUOTES.LST n
  3.  if Open[1-Quote_Count] = 0 then
  4.    Open[1-Quote_Count] = Close[1-Quote_Count];
  5.  for i := (1 - Quote_Count); i <= 0; i := i + 1; begin
  6.    if Close[i] <> 0 then begin
  7.       if Open[i] = 0 then begin
  8.          Open[i] := Close[i-1];
  9.          if Open[i] < Low[i]  then Open[i] := Low[i];
  10.          if Open[i] > High[i] then Open[i] := High[i];
  11.          end;
  12.       writeln(trim(Ticker),',',format(dates[i],'%6.0f'),',',
  13.               trim(format(Open[i],'%8.3f')),',',
  14.               trim(format(High[i],'%8.3f')),',',
  15.               trim(format(Low[i],'%8.3f')),',',
  16.               trim(format(Close[i],'%8.3f')),',',
  17.               trim(format(Volume[i],'%8.0f')),',0,');
  18.       end;
  19.    end;
  20.  
  21.  
  22.