To give you an idea of what I want to do here is a example of what I would do when programming the pascal automation controller which connects to the CBus network :
{ Lighting control timer and clock }
once (Time = "5:30:00 PM") then
begin
SetLightingState("lights", ON);
end;
once (Time = "10:00:00 PM") then
begin
SetLightingState("lights", OFF);
end;