ja, da war ein Do zuviel:
Code:$regfile = "m16def.dat"
$crystal = 16000000
Config Porta.0 = Output
Config Portd.7 = Output
Config Pina.2 = Input
Dim Zeit As Byte
Dim A As Byte
Dim Main2 As Long
Dim Main1 As Long
Dim Main3 As Long
Main1:
Zeit=0
Portd.7 = 1
Waitms 300
Portd.7 = 0
Waitms 300
Portd.7 = 1
Waitms 300
Portd.7 = 0
Goto Main2
Main2:
Do
If Pina.2 = 0 Then
Goto Main3
Else
Zeit=0
End if
Loop
Main3:
Waitms 100
Zeit = Zeit + 1
If Zeit = 5 Then
Porta.0 = 1
Waitms 3000
Porta.0 = 0
End If
Waitms 3000
Goto Main2
