Also ich habs jetzt so gemacht und es funzt!!! juhu!!!

Code:
$regfile = "m8def.dat"
$crystal = 3686400

Config Portb = Output
Config Portd = Input

Do
A:
If Pind.2 = 0 Then
Goto B
Else
Goto A
End If

Loop
End


B:
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms 50
Portb.1 = 0
Waitms 400
Goto A

werd mich dann mal an die geschwindigkeit machen......
Nur kann mir vielleicht jemand nen denkanstoß geben, wie ich die stellung vom poti in ne zahl umwandle???

MFG

Nrg