home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / BASE8.TAS < prev    next >
Text File  |  1991-11-24  |  897b  |  26 lines

  1. {BASE8.TAS}    {Written by Domenic Bianco  Prodigy # CXGV38A  11/16/91}
  2. {This script tries to identify an 8 week base where pricing is stable.}
  3. {Simple moving averages and 200 day high are compared with closing prices.
  4. }
  5. {Output is sorted and printed.}
  6. #OUTPUT_FILE 'base8.lst'
  7. IF first_ticker
  8. begin
  9. writeln('         200 Day   Last    50Day   Avg $     Last    50Day');
  10. writeln('TICKER      High   Close  MovAvg  -8 wks   Volume    MovVL'
  11. );
  12. writeln('----------------------------------------------------------');
  13. end
  14. PMOV50:=MOV(C,50,'S');
  15. hi:=hhv(h,200);
  16. VMOV50:=MOV(V,50,'S');
  17. P200:=(C[-40]+C[-39]+C[-38]+C[-37]+C[-36])/5;
  18. if c>.9*hi and c[0] <=1.10*PMOV50 and C[0]>.85*P200 and C[0]<=1.10*P200
  19. sortout(TICKER,hi,C[0],PMOV50,P200,V[0],VMOV50);
  20. if last_ticker
  21. BEGIN
  22. sorton(1,'a')
  23. sortget(V1,V2,V3,V4,V5,V6,v7);
  24. sortprint('%s %7.2f %7.2f %7.2f %7.2f %8.0f %8.0f\n');
  25. END
  26.