4lex1v

for i:=1 to 15 do
	begin
		if data[i, 7] <> '*' then
			begin
				count:= 1;
				for j:=i+1 to 15 do
					begin
						equals:= true;
						for h:=8 to 20 do
							if data[i,h] <> data[j,h] then