Code:
$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output

Dim Wartenl As Byte
Dim Wartenr As Byte


If Pind.2 = 1 Then

Do
   Portb = &B10000000
   Waitus 15
   Portb = &B00000000
   Waitus 5
      Loop Until Pinb.2 = 0

 End If
Geht nicht... er zuckt nur vor sich hin...

Links rum geht mit z.b. waitus (1)

rechts herum nicht -.- z.b. bei waitus (0.4) zuckt er nur...

ideen ? -.-