'Servo control with potentiometer
' RCTime circuit on pin 7
'servo yellow wire on pin 9

'{$STAMP BS2}

HIGH 0 ' power LED

' declare variables:
angleVar VAR Word

main:
' rotate from 0 - 180 degrees:
HIGH 7
PAUSE 1
RCTIME 7, 1, angleVar
'FOR angleVar = 0 TO 1500 STEP 10
DEBUG ?anglevar
PULSOUT 9, angleVar
PAUSE 20 ' pause needed for servo timing
'NEXT
GOTO main