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