Also das ist der aktuelle Stand der Funzt. zur abwechslung auch mal *g*

Code:
$regfile = "m168def.dat"
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

Dim Center As Integer
Dim Pos1 As Integer
Dim Pos2 As Integer
Dim Pos3 As Integer
Center = 105
Pos1 = 30
Pos2 = 180
Pos3 = 140


'Servo config
Config Servos = 1 , Servo1 = Portd.2 , Reload = 10


Config Portd = Output




'finally we must turn on the global interrupt

Enable Interrupts

'ende Servo config

Do
      Servo(1) = Center
      Waitms 1000

      Servo(1) = Pos1
      Waitms 1000

      Servo(1) = Center
      Waitms 1000

      Servo(1) = Pos3
      Waitms 1000

      Servo(1) = Center
      Waitms 1000

      Servo(1) = Pos2
      Waitms 1000

   Loop