home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / MARKET-P.05P < prev    next >
Encoding:
Text File  |  1991-10-30  |  441 b   |  20 lines
  1. USES APROCEDU;
  2. CONST profitprogramname='PROFIT-P.05P';
  3. VAR tempdata:REAL;
  4.     dcolor :BYTE;
  5.  
  6. BEGIN
  7.  Howtochart(line,LOCK,profitprogramname);
  8.  tempdata:=0;
  9.  REPEAT
  10.   Readmarketfile;
  11.   indicatordata.data:=marketdata.last;
  12.    IF indicatordata.data<tempdata THEN dcolor:=red ELSE dcolor:=green;
  13.    tempdata:=indicatordata.data;
  14.    indicatordata.color:=dcolor;
  15.   Writechartdatafile;
  16.   Nexttime;
  17.  UNTIL Alldone;
  18.  Done;
  19. END.
  20.