home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / GRAPH.TAS < prev    next >
Text File  |  1991-05-14  |  512b  |  26 lines
  1. #max_quotes 30
  2. co_unt : number;
  3. if quote_count < 30 then
  4. goto skipticker;
  5. if first_ticker then
  6. writeln('Hey Martin Look at this I have programmed charts into TAS');
  7. co_unt = 20;
  8. writeln(' ');
  9. writeln(ticker,' ',c);
  10. :loop
  11. cdwn = c[-co_unt];
  12. if c[-co_unt] > 100 then
  13. cdwn = c[-co_unt]/10;
  14. writeln(' ');
  15. :loop1
  16. write(' ');
  17. cdwn = cdwn - 1;
  18. if cdwn > 0 then
  19. goto loop1
  20. write('.',' ',c[-co_unt]);
  21. co_unt = co_unt - 1;
  22. if co_unt > 0
  23. goto loop;
  24. :skipticker
  25. end;
  26.