Hallo, habe auch einen conrad servo (5€) damit dreht er hin und her...

Code:
$regfile = "2313DEF.dat"
$crystal = 8000000

$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

'
Config Servos = 1 , Servo1 = Portd.6 , Reload = 10
'
Config Portd = Output

Enable Interrupts
Dim I As Byte

Do

For I = 32 To 135
   Servo(1) = I
   'Waitms 10
Next

waitms 500
For I = 135 To 32 Step -1
   Servo(1) = I
   'Waitms 10
Next
Waitms 500
Loop
End