So jetzt hab ich das ganze noch mal neu geschieben und die halbe nacht getestet und es ist dies hier herausgekommen .

Code:
$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 8
$framesize = 24
Config Portb.2 = Input
Config Portb.1 = Output
Config Portb.0 = Output
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Do


Do
Dim W As Integer
Pulsein W , Pinb , 2 , 1
If W <= 150 Then
Portb.1 = 0
End If
If W > 150 And W <= 200 Then
Portb.1 = 1
End If

Waitms 1450
Portb.1 = 0

Loop Until W > 150               '  Wiederhole do loop, bis Bedingung W>150 wahr ist.



Enable Interrupts               'Servoschleife
Dim I As Byte
For I = 100 To 200
 Servo(1) = I
Next I
For I = 200 To 100 Step -1
  Servo(1) = I
  Waitms 12
Next I
Disable Interrupts


Portb.1 = 1
Waitms 8
Waitms 1700
Portb.1 = 0
Loop

End
Wie ihr seht hab ich die Anregungen mit berücksichtigt.

Aber wie es immer so ist , erst geht alles und dann nichts mehr , ich war kurz vorm Kollaps . Dann alles noch mal Messen und hol es der Teufel das Relais fällt nicht mehr ab . Gut messen wir doch mal den Anlaufstrom ,3,25A das Relais verträgt aber nur max. 1A , da hatte ich den Grund nun muss ich das ganze Platinenlayout umarbeiten weil der Motor nun mit einem BUZ11 angetrieben wird.

herzlichen Dank für eure Hilfe
Henry