home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / TPROF--P.05P < prev    next >
Encoding:
Text File  |  1991-10-30  |  1.1 KB  |  40 lines
  1. USES APROCEDU;
  2. CONST profitprogramname='TPROF--P.05P';
  3. VAR MKT,OLDMKT,CHG,PROFIT:REAL;
  4.     dcolor,ICOLOR,MAC,VOC,MOC,STC:BYTE;
  5.  
  6. BEGIN
  7.  Howtochart(line,LOCK,profitprogramname);
  8.  OLDMKT:=MARKETDATA.LAST;PROFIT:=0;
  9.  Openindicatorfile(1,'MACD--');
  10.  openindicatorfile(2,'VOLITL');
  11.  OPENINDICATORFILE(3,'MOVEAV');
  12.  OPENINDICATORFILE(4,'STOCAS');
  13.  CHG:=0;
  14.  REPEAT
  15.   Readmarketfile;MKT:=marketdata.last;
  16.   CHG:=(MKT-OLDMKT);OLDMKT:=MKT;
  17.   Readindicatorfile(1);MAC:=indicatordata.color;
  18.   READINDICATORFILE(2);VOC:=INDICATORDATA.COLOR;
  19.   READINDICATORFILE(3);MOC:=INDICATORDATA.COLOR;
  20.   READINDICATORFILE(4);STC:=INDICATORDATA.COLOR;
  21.   IF ((MAC=GREEN) OR (MAC=LIGHTGREEN)) {AND ((VOC=GREEN) OR (VOC=LIGHTGREEN))} AND
  22.      ((MOC=GREEN) OR (MOC=LIGHTGREEN)) AND ((STC=GREEN) OR (STC=LIGHTGREEN)) THEN
  23.     ICOLOR:=GREEN ELSE ICOLOR:=RED;
  24.   IF (ICOLOR=GREEN) OR (ICOLOR=LIGHTGREEN) THEN
  25.     BEGIN
  26.      PROFIT:=PROFIT+CHG;
  27.      DCOLOR:=GREEN;
  28.     END ELSE
  29.     BEGIN
  30.      PROFIT:=PROFIT-CHG;
  31.      DCOLOR:=RED;
  32.     END;
  33.   INDICATORDATA.DATA:=PROFIT*500;
  34.   indicatordata.color:=dcolor;
  35.   Writechartdatafile;
  36.   Nexttime;
  37.  UNTIL Alldone;
  38.  Done;
  39. END.
  40.