variable:cc=0;
if kd1 and holding=0 and cc=0 then begin
buy(holding=0,1,market);
cc:=1;
end
if kd2 and holding=0 and cc=0 then begin
buy(holding=0,1,market);
cc:=2;
end
if kd3 and holding=0 and cc=0 then begin
buy(holding=0,1,market);
cc:=3;
end
if pd1 and holding>0 and cc=1 then begin
sell(1,0,market);
cc:=0;
end
if pd2 and holding>0 and cc=2 then begin
sell(1,0,market);
cc:=0;
end
if pd3 and holding>0 and cc=3 then begin
sell(1,0,market);
cc:=0;
end