home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / STPROF-P.05P < prev    next >
Encoding:
Text File  |  1991-10-30  |  1.1 KB  |  44 lines
  1. USES APROCEDU;
  2. CONST profitprogramname='STPROF-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. BEGIN
  24.  Howtochart(line,LOCK,profitprogramname);
  25.  OPENINDICATORFILE(1,'STOCAS');
  26.  BUYSELL:=OUT;MV:=0;DCOLOR:=YELLOW;
  27.  REPEAT
  28.   Readmarketfile;MKT:=MARKETDATA.LAST;
  29.   READINDICATORFILE(1);VOLIT:=INDICATORDATA.DATA;VCOLOR:=INDICATORDATA.COLOR;
  30.   CASE BUYSELL OF
  31.    BUY:MV:=TOTALMKT+MKT-OLDMKT;
  32.    SELL:MV:=TOTALMKT+OLDMKT-MKT;
  33.   END;
  34.   OCOLOR:=DCOLOR;
  35.   IF ((VCOLOR=GREEN) OR (VCOLOR=LIGHTGREEN)) AND (BUYSELL<>BUY) THEN DOBUY;
  36.   IF ((VCOLOR=RED) OR (VCOLOR=LIGHTRED)) AND (BUYSELL<>SELL) THEN DOSELL;
  37.   indicatordata.data:=MV*PRICEPERTICK;
  38.   indicatordata.color:=OColor;
  39.   Writechartdatafile;
  40.   Nexttime;
  41.  UNTIL Alldone;
  42.  Done;
  43. END.
  44.