Hallo Beta,
oder etwa so, aber ungetestet, das Prinzip sollte aber erkennbar sein
Code:
define E1 Port[1] (eingabe) 
define A1 Port[2] (ausgabe) 
define SaveSecond as byte
define TimeSecond as byte

#Loop
 if SaveSecond<>second then        ' jede Sekunde 1x abarbeiten
  SaveSecond=second
  if TimeSecond>0 then dec TimeSecond      ' Timeout runterzählen
  if TimeSecond=1 then A1=off       ' ausschalten wenn Zeit abgelaufen 
 end if
 If E1=on then             ' Taste gedrückt
  if A1=off Then           ' wenn aus dann einschalten
   A1=On
   TimeSecond=61        ' Timeout 60 Sekunden
  else                          ' wenn an dann ausschalten
   A1=off
   TimeSecond=0
  end if
  wait E1=off                ' warte bis Taste losgelassen
 end if
goto Loop
Gruß Jörg