Das geht net. Ich habe hier mal das Programm

$regfile = "m8535.dat"
$crystal = 1024000
$baud = 9600

Ddrd = &B01100000

Dim I As Byte

Do

Input I

If I = "00001" Then
Portd.5 = 1
Else
Portd.5 = 0
End If

Loop

End