ok habe alles verändert geht aber trotzdem nicht hier der code

Code:
$regfile = "1200def.dat"
$crystal = 1000000
$tiny
$noramclear
Config Pinb.1 = Input
Ddrb = &B00001001
Portb = &B00000010
Dim X As Iram Byte
X = 0
Do

If Pinb.1 = 0 Then
X = 1
Else
X = 0
End If

If X = 1 Then
Portb.0 = 1
Else
Portb.0 = 0
End If

Loop

End