home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / VPROF--P.05P < prev    next >
Encoding:
Text File  |  1991-10-30  |  1.2 KB  |  51 lines
  1. USES APROCEDU;
  2. CONST profitprogramname='VPROF--P.05P';
  3.       BUY=1;SELL=2;OUT=3;PRICEPERTICK=500;COMMISSIONS=0.12;
  4. VAR tempdata,OLDMKT,TOTALMKT,MKT,MV,VOLIT:REAL;
  5.     dcolor,OCOLOR,VCOLOR,BUYSELL:BYTE;
  6.  
  7. PROCEDURE DOBUY;
  8.      BEGIN
  9.       TOTALMKT:=MV-COMMISSIONS;
  10.       OLDMKT:=MKT;
  11.       BUYSELL:=BUY;
  12.       DCOLOR:=GREEN;
  13.      END;
  14.  
  15. PROCEDURE DOSELL;
  16.      BEGIN
  17.       TOTALMKT:=MV-COMMISSIONS;
  18.       OLDMKT:=MKT;
  19.       BUYSELL:=SELL;
  20.       DCOLOR:=RED;
  21.      END;
  22.  
  23. PROCEDURE DOOUT;
  24.      BEGIN
  25.       TOTALMKT:=MV-COMMISSIONS;
  26.       BUYSELL:=OUT;
  27.       DCOLOR:=YELLOW;
  28.      END;
  29.  
  30. BEGIN
  31.  Howtochart(line,LOCK,profitprogramname);
  32.  OPENINDICATORFILE(1,'VOLITL');
  33.  BUYSELL:=OUT;MV:=0;DCOLOR:=YELLOW;
  34.  REPEAT
  35.   Readmarketfile;MKT:=MARKETDATA.LAST;
  36.   READINDICATORFILE(1);VOLIT:=INDICATORDATA.DATA;VCOLOR:=INDICATORDATA.COLOR;
  37.   CASE BUYSELL OF
  38.    BUY:MV:=TOTALMKT+MKT-OLDMKT;
  39.    SELL:MV:=TOTALMKT+OLDMKT-MKT;
  40.   END;
  41.   OCOLOR:=DCOLOR;
  42.   IF ((VCOLOR=GREEN) OR (VCOLOR=LIGHTGREEN)) AND (BUYSELL<>BUY) THEN DOBUY;
  43.   IF ((VCOLOR=RED) OR (VCOLOR=LIGHTRED)) AND (BUYSELL<>SELL) THEN DOSELL;
  44.   indicatordata.data:=MV*PRICEPERTICK;
  45.   indicatordata.color:=OColor;
  46.   Writechartdatafile;
  47.   Nexttime;
  48.  UNTIL Alldone;
  49.  Done;
  50. END.
  51.