In der Schleife direkt nach der Abfrage If a=1 die Variable zurücksetzen

Do
'mein Programm
'wait 1
dahin;
'dein programm
If a=1 then
a=0 'variable zurück setzen
goto
dahin
loop
end



(ob die syntax stimmt kann ich Dir leider nicht sagen, aber das Prinzip sollte so funktionieren)