Hi,
etwas ausführlicher:

Code:
'**************************************
' Port mit einer Taste Ein/Aus,
' Max 60 sek Ein.
' FriLu 03.05.09
'**************************************
define Taste   Port[1]
define Relais  Port[2]
define merker byte  '  Bit reicht,
' def je Bas-Dialekt unterschiedlich
'**************************************
#Loop
  if Taste then gosub Tastendruck
  if min > 0 then gosub Zeit
goto Loop
'**************************************
'***   UPs   ******
#Tastendruck
  merker= not merker
  Relais= merker
  min= 0
  second= 0
  wait not Taste ' Warten bis
'      Taste losgelassen !
return
'******************
#Zeit
  merker= off
  Relais= off
return
'******************
'   Bemerkungen:
' zur HW:
' Taste an Ub und Eingang,
' zwischen Eingang und Masse Widerstand (Pulldown)
'
' Zum Programm:
' Ungetestet!
lange nicht mehr C-Control programmiert,
hoffe, das stimmt so...
MfG Lutz