// Hi Lo by Sean Smith
exchange = nyse, amex, nasdaq;
output = "hilo.lst";
// input="vol250.lst";
// ProcessMS = "f:\invest\metadata\hilo\",VMS;
daystoload = 2200;
daysrequired =1;
Integer numdays,i,minDate, maxDate;
float maxHi, minLo;
numdays:=((DaysLoaded-1)*-1);
maxHi:= max(0, numdays, cl);
minLo:= min(0, numdays, cl);
maxDate := 0;
minDate := 0;
for i=numdays to 0 step 1 do
if close(i) >= maxHi then
maxHi := close(i);
maxDate := i;
i:=0;
endif;
next i;
for i=numdays to 0 step 1 do
if close(i) <= minLo then
minLo := close(i);
minDate := i;
i:=0;
endif;
next i;
Print Symbol:-5,",","cl:0",",",close(0):6:2,",","Max",",",close(maxDate),",MaxDate,",Date(maxDate);
PrintLn "Min",",",close(MinDate),",MinDate,",Date(MinDate); |
