' {$STAMP BS1}
' {$PBASIC 1.0}


'------------------------------------------------------
' Servo Excercise (one way)
' By Vern Graner April 25th, 2005
' Any questions to vern@graner.com
' R-04.28f
'------------------------------------------------------
' -First attempt for Prop-1 controller
'------------------------------------------------------
' Hardware setup:
' Servo connected to P0

SYMBOL i = B2 ' value can be 0 to 255
SYMBOL x = B3 ' value can be 0 to 255

MOVE:

FOR X = 50 TO 200
  DEBUG "X=", x, CR
  FOR I=0 TO 30
  PULSOUT 0,x    ' Send servo pulse.
  PAUSE 20       ' Wait 1/50th second.
  NEXT I
NEXT X


DEBUG "Done!"
END