Wait 5 ist ganz schlecht. Das hält das Programm 5 Sekunden lang an.

Ich rufe in meinen Programmen im sectic solche Aufgaben. sectic wird bei Bascom sekündlich angesprungen, wenn in der config dcf77 oder config clock angegeben.

Code:
dim Lichtzeit as byte
Licht alias portb.5
.
.
.
do
if messung >300 then
   lichtzeit=5
   set licht
end if


loop
end

sectic:
   if lichtzeit>0 then
      decr lichtzeit
   end if
   if lichtzeit=0 then reset licht
return

...
Die Sekunden bekommst du weg, indem du hinter dem lcd date$ noch ein

Code:
lcd "   "
einsetzt