dim i
i=0
di until i=0
BEFEHLE
loop
if zeit = zeitabfrage then
BEFEHLE
end if
if Hour(NOW) = "15"then
if Minute(NOW) = "0"then
BEFEHL RUNTERFAHREN USW USW
end if
end if