home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / CHECKMY.TAS < prev    next >
Text File  |  1991-12-31  |  4KB  |  123 lines
  1. {
  2.    SCRIPT : CHECKMY.TAS
  3.    Screen for various conditions and create a report with
  4.    BUY/SELL Signals
  5.       x day adx breakout
  6.       y day volume breakout
  7.       oscp buy/sell
  8.       roc buy/sell
  9.       RSI breakout
  10.    Author : Clay "grasshopper" Jones
  11.    Date   : 12/31/91
  12. }
  13. #MAX_QUOTES 100
  14. #OUTPUT_FILE CHECKMY.LST
  15. MOV_PERIOD          = 21;       { MOV period}
  16. ADX_DAYS            = 10;       { ADX breakout lookback period}
  17. VOL_BREAKOUT_PERIOD = 30;       { Volume breakout lookback period}
  18. ROC_PERIOD          = 14;       { ROC period}
  19. RSI_PERIOD          = 14;       { RSI period}
  20. VOL_PERCENT         = 300;      { Percentage for VOLUME BREAKOUT}
  21.  
  22. { Declare various arrays to hold the results of indicators  }
  23. MOV_A : ARRAY;    { Place to save MOV}
  24. ADX_A : ARRAY;    { Place to save ADX}
  25. VOL_A : ARRAY;    { Place to save Volume Moving average}
  26. ROC_A : ARRAY;    { Place to save ROC}
  27. RSI_A : ARRAY;    { Place to save RSI        }
  28. MOV_A = MOV(C,MOV_BREAKOUT_PERIOD,'S');
  29. VOL_A = MOV(V,VOL_BREAKOUT_PERIOD,'S');
  30. { Use ROC_PERIOD day as a percentage}
  31. ROC_A = ROC(ROC,21,'%')
  32. { RSI_PERIOD Day RSI}
  33. RSI_A = RSI(RSI_PERIOD);
  34. MOV_BREAKOUT = 0;
  35. ADX_BREAKOUT = 0;
  36. VOL_BREAKOUT   = 0;
  37. ROC_BUY      = 0;
  38. ROC_SELL     = 0;
  39. RSI_BUY        = 0;
  40. RSI_SELL       = 0;
  41. if  CLOSE OF TODAY IS GREATER THAN MOV_A OF YESTERDAY THEN
  42.     begin
  43.       MOV_BREAKOUT = 1;
  44.     end;
  45. if  ADX10 > 18
  46.     begin
  47.       ADX_BREAKOUT = 1;
  48.     end;
  49. if VOLUME OF TODAY IS GREATER THAN
  50.    VOL_PERCENT/100 * VOL_A OF YESTERDAY THEN
  51.     begin
  52.       VOL_BREAKOUT = (VOLUME OF TODAY/VOL_A OF YESTERDAY) * 100;
  53.     end;
  54. if  ROC_A OF YESTERDAY IS LESS THAN OR EQUAL TO 0 AND
  55.     ROC_A OF YESTERDAY IS LESS THAN ROC_A OF YESTERDAY AND
  56.     ROC_A OF TODAY IS GREATER THAN ROC_A OF TODAY THEN
  57.     begin
  58.        ROC_BUY = 1;
  59.     end;
  60. if  ROC_A OF YESTERDAY IS GREATER THAN OR EQUAL TO 0 AND
  61.     ROC_A OF YESTERDAY IS GREATER THAN ROC_A OF YESTERDAY AND
  62.     ROC_A OF TODAY IS LESS THAN ROC_A OF TODAY THEN
  63.     begin
  64.        ROC_SELL = 1;
  65.     end;
  66. if  RSI_A of YESTERDAY IS LESS THAN OR EQUAL TO 30 AND
  67.     RSI_A OF TODAY IS GREATER THAN 30 THEN
  68.     begin
  69.        RSI_BUY    = 1;
  70.     end;
  71. if  RSI_A of YESTERDAY IS GREATER THAN 70 and RSI_A of TODAY
  72.     IS LESS THAN 70 THEN
  73.     begin
  74.        RSI_SELL   = 1;
  75.     end;
  76. IF FIRST_TICKER THEN
  77. begin
  78. WRITELN(
  79. '                           CURR     PREV   CURR         ROC'
  80. );
  81. WRITELN(
  82. 'TICKER  NAME              CLOSE    CLOSE    ADX    VOL%    ROC      RSI'
  83. );
  84. WRITELN(
  85. '------------------------ ------- ------- ------- ------- ------- -------'
  86. );
  87. end;
  88. IF MOV_BREAKOUT OR VOL_BREAKOUT OR ROC_BUY OR ROC_SELL OR
  89.    RSI_BUY OR RSI_SELL THEN
  90. BEGIN
  91.    WRITELN(ticker,fullname,close, close of yesterday,
  92.          ((volume/VOL_A[-1]))*100,'%%',roc_a,
  93.          RSI_A);
  94.    IF MOV_BREAKOUT THEN
  95.         WRITELN('\t\t* MOV BREAKOUT ABOVE ',
  96.         INT(MOV_BREAKOUT_PERIOD), ' DAY HIGH OF CLOSE');
  97.    IF VOL_BREAKOUT THEN
  98.         WRITELN('\t\t* VOLUME BREAKOUT ',VOL_BREAKOUT,
  99.         ' PERCENT OVER LAST',
  100.         INT(VOL_BREAKOUT_PERIOD), ' DAYS');
  101.    IF ROC_BUY THEN
  102.         WRITELN('\t\t* ROC BUY');
  103.    IF ROC_SELL THEN
  104.         WRITELN('\t\t* ROC SELL');
  105.    IF RSI_BUY THEN
  106.         WRITELN('\t\t* RSI BUY');
  107.    IF RSI_SELL THEN
  108.         WRITELN('\t\t* RSI SELL');
  109. END
  110.  
  111. {Martin,
  112.   While using your scan1.tas file as a prototype, I've attempted to create
  113.   a script.  The buy conditions are as follows:
  114.     MOV>21MAVG
  115.     ADX>10PERIOD [unsure where to place value; I'd like ADX > 18.
  116.     VOL breakout over the past 30 days (300%)
  117.     ROC>0
  118.     RSI>30
  119.  
  120.  
  121.  
  122. D [unsure where to place value; I'd like ADX > 18.
  123.