; Lesson-020-Standard-Servo-Motor.bas #picaxe 20M2 ; Define the µProcessor IC Type ; Declare Constants & Variables symbol srvPIN = B.0 init: servo srvPIN,150 ; start servo centered on B.4 = Pin 10 ; BEGIN Standard Servo Main Body * * * * * * * * * * * * * * * * * * * * * * * do gosub srvoC ; Move Standard Servo to Center pause 1000 gosub srvoR ; Move Standard Servo to Right pause 1000 gosub srvoC ; Move Standard Servo to center pause 1000 gosub srvoL ; Move Standard Servo to Left pause 1000 loop ; END Standard Servo Main Body * * * * * * * * * * * * * * * * * * * * * * ** end ; BEGIN Standard Servo Subroutines * * * * * * * * * * * * * * * * * * * * * * srvoL: servopos srvPIN,250 ; Move Servo to Left Position return srvoC: servopos srvPIN,150 ; Move Servo to Center Position return srvoR: servopos srvPIN,50 ; Move Servo to Right Position return ; END Standard Servo Subroutines * * * * * * * * * * * * * * * * * * * * * ** end