home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / SP_M---P.05M < prev    next >
Encoding:
Text File  |  1991-10-29  |  625 b   |  22 lines
  1.  
  2.   {COMPILER DIRECTIVES FOR TURBO PASCAL 5.5}
  3.   {A+,F-,S+,R+,V+,N-,D-,L-,I+,O-} {FASTEST RUN IF 'S-,R-,V-'}
  4.                           {IF YOU HAVE A MATH COPROCESSOR USE 'N+'}
  5.  
  6. USES APROCEDU;
  7.  {THIS IS CHARTABLE SP500 TO BUILD MARKET DATA}
  8.  
  9. CONST  marketprogramname = 'SP_M---P.05M';
  10.        rawdatafilename   = 'SP_M--'; {FOR FILE SP_M--??.05R}
  11.        raw1              = 1; {FILE NUMBER, ANY NUMBER 1..6}
  12.  
  13. BEGIN
  14.  Howtochart(candlestick,LOCK,marketprogramname);
  15.  Openrawstockfile(raw1,rawdatafilename);
  16.  REPEAT
  17.   Readrawstockfile(raw1);
  18.   Writechartdatafile;
  19.   Nexttime;
  20.  UNTIL Alldone;
  21.  Done;
  22. END.