home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / TRADING.TAS < prev    next >
Text File  |  1991-06-05  |  1KB  |  33 lines
  1. { Written by Jim Camenos, May 29, 1991, Prodigy code VNGH10A
  2.   looks at current trading range over past 50 days + volume for break-outs
  3. }
  4. #max_quotes 51
  5. #OUTPUT_FILE 'TRADING.LST'
  6. if QUOTE_COUNT < 51 then RETURN;  { Skip short stocks MM 6/5}
  7. tx: array;
  8. tx=TR();
  9. gosub true_range;
  10. if first_ticker then
  11.  begin
  12.  writeln('This module looks at todays volume to be >= 2 times past 50 days');
  13.  writeln('Also looks for todays trading range to be >= 2 times past 50 days\n');
  14.  writeln('Read your charts before making any investment decisions\n\n');
  15.  writeln('                            Trading Range  Closing Prices      VOLUME');
  16.  writeln('                             Avg    Today Yesterday Today  Average    Today');
  17.  end;
  18. if int(tr_sum)<>0 then
  19.  writeln(ticker,' ',fullname,avg_tr,tx[0],c[-1],c,' ',vo,' ',(v[0]
  20. ));
  21. return;
  22. :true_range
  23.  
  24. avg_tr = sum(tx,50)/50;
  25. if tx[0] >= avg_tr*2    then
  26.  begin
  27.  vo = sum(v,50)/50;
  28.  if v[0] > vo*2 then tr_sum=1 else tr_sum=0;
  29.  end;
  30.  else
  31.  tr_sum = 0;
  32. return;
  33.