wie jetzt hab des so eingegeben:

$regfile = "m8def.dat"
$crystal = 1000000
Ddrd = &B0110000
'PORTD = &B0000100

Do
If Pind.2 = 0 Then
Portd.4 = 1
Else
Portd.4 = 0
End If
Loop
End