Ver such es mal damit:

Code:
 $regfile = "m32def.dat" 'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
 $framesize = 32         'Stackanweisungen, die eigentlich nur bei größeren Programmen 
 $swstack = 32           'wirklich nötig werden
 $hwstack = 32
 $crystal = 16000000     'Die Frequenz des verwendeten Quarzes

 $baud = 9600            'Die Baudrate für RS232 Ausgabe. 



Config Servos = 1 , Servo1 = Portd.4 , Reload = 10 
Config Portd = Output 


Wait 2 


Dim X As Integer 


Do 
       'Darauf warten dass irgendwas gesendet wird 
      Input  , "" , X Noecho 

      If X > 29 Then 
         If X < 161 Then 
                 Servo(1) = X 
                 X = 0 
         End If 
      End If     
Loop