home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
finance
/
tas515dm.zip
/
EXAMPLES.ZIP
/
GRAPH.TAS
< prev
next >
Wrap
Text File
|
1991-05-14
|
512b
|
26 lines
#max_quotes 30
co_unt : number;
if quote_count < 30 then
goto skipticker;
if first_ticker then
writeln('Hey Martin Look at this I have programmed charts into TAS');
co_unt = 20;
writeln(' ');
writeln(ticker,' ',c);
:loop
cdwn = c[-co_unt];
if c[-co_unt] > 100 then
cdwn = c[-co_unt]/10;
writeln(' ');
:loop1
write(' ');
cdwn = cdwn - 1;
if cdwn > 0 then
goto loop1
write('.',' ',c[-co_unt]);
co_unt = co_unt - 1;
if co_unt > 0
goto loop;
:skipticker
end;