Ich glaube ich habe es gefunden.

Code:
Ledon:
Print "S"
Do
If Sekunden < 10 Then
   Set Led3                                                 'Led zeigt 10 Sek.an
'   Print "  " ; Sekunden
    Else
     Reset Led3
     Sekunden = 0
   Goto Ende
End If

'Print Pind.5 ; "  "
P5 = Pind.5
  If P5 = 1 Then
     Print "0"
     Portd.7 = 0                                            ' Summer an Port7 aus
   Else
   Print "1"
     Portd.7 = 1
  End If                                                    ' Summer an Port7 ein

Waitms 50


Loop
mfg

Enterprise