??? ohne pullup???

ok, vlt liegts an den goto- befehlen, mit denen kenn ich mich noch nicht so gut aus.

Code:
$regfile = "m16def.dat" 
$crystal = 16000000 

Config Porta.0 = Output 
Config Portd.7 = Output 
Config Pina.2 = Input 
Porta.2 = 1   
Dim Zeit As Byte 



Portd.7 = 1 
Waitms 300 
Portd.7 = 0 
Waitms 300 
Portd.7 = 1 
Waitms 300 
Portd.7 = 0 


Do
Zeit=0

Porta.0 = 1 

If Pina.2 = 0 Then 
 Porta.0 = 0       ' könnte man auch noch in die While-Schleife schieben, dann braucht man die if-schleife nicht mehr

 While Pina.2=0  
   Zeit = Zeit + 1 
   If Zeit = 10 Then 
     Porta.0 = 1 
     Portd.7 = 1 
   End If 

   If Zeit = 15 Then 
     Porta.0 = 1 
     Portd.7 = 1 
     Zeit = 0          
   End If 

   Waitms 3000  
   Porta.0 = 0  
   Portd.7 = 0  

 Wend 

End If 

Loop