output="htflag.lst";
integer length;
length := -11;
exchange=nyse, nasdaq, amex;
if close(length+1) > max(length,-256,hi) and
close (length+1) > close(length) * 1.10 and
max(0,length+2,hi) \< high(length+1) and
min(0,length+2,lo) > max(length,-256,hi)
then
println symbol;
endif;