home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / TOOMBS.TAS < prev    next >
Text File  |  1991-04-11  |  2KB  |  54 lines
  1. {-----------------TOOMBS.TAS-----------------------------------------------}
  2. #max_quotes 200
  3. #OUTPUT_FILE 'TOOMBS.LST'
  4. FORM_C_DUMP :=0;
  5. FORM_D_DUMP :=0;
  6. FORM_E_DUMP :=0;
  7. FORM_F_DUMP :=0;
  8. FORM_G_DUMP :=0;
  9. FORM_X_DUMP :=0;
  10. {--------------------------------------------------------------------------}
  11. FORML_A : Array;
  12. FORML_A := mov(stoch(20,1),5,'E');            {Formula #1}
  13. {--------------------------------------------------------------------------}
  14. FORML_B : Array;
  15. FORML_B := mov(mov(stoch(20,1),5,'E'),5,'E');      {Formula #2}
  16. {--------------------------------------------------------------------------}
  17. If FORML_B[0] >= 84 then                      {Formula #3}
  18.    FORM_C_DUMP := 1;
  19.    else
  20.    FORM_C_DUMP := 0;
  21. {--------------------------------------------------------------------------}
  22. FORM_X_DUMP := FORML_B[0] - FORML_A[0];
  23. {--------------------------------------------------------------------------}
  24. If FORML_B[0] < 70 and (FORM_X_DUMP >= 4) then
  25.    FORM_D_DUMP := 2;
  26.    else                                       {Formula #4}
  27.    FORM_D_DUMP := 0;
  28. {--------------------------------------------------------------------------}
  29. FORM_E_DUMP = FORM_C_DUMP + FORM_D_DUMP;      {Formula #5}
  30. {--------------------------------------------------------------------------}
  31. If FORML_B[0] > 30 and (FORM_X_DUMP <= -4) then
  32.    FORM_F_DUMP := -1;
  33.    else                                       {Formula #6}
  34.    FORM_F_DUMP := 0;
  35. {--------------------------------------------------------------------------}
  36. FORM_G_DUMP := FORM_E_DUMP + FORM_F_DUMP;     {Formula #7}
  37. {--------------------------------------------------------------------------}
  38. If first_ticker then
  39. begin
  40. Writeln('Tick    Name                  Close    Toombs       Action');
  41. Writeln(' ');
  42. end;
  43. begin
  44. Write(TICKER,FULLNAME,'\t',C,'  ',Int(FORM_G_DUMP));
  45. If (Int(FORM_G_DUMP)) = 2 then
  46. Writeln('         ***BUY***  ')
  47. else
  48. If (Int(FORM_G_DUMP)) = -1 then
  49. Writeln('         ***SELL*** ')
  50. else
  51. Writeln('                    ');
  52. end;
  53. {-------------------------END TOOMBS.TAS SCRIPT-------------------------}
  54.