'Slow Moves
'With the use of FOR loops and short delays, a slow move command can be
'implemented.

DIM I as byte : DIM Pos as byte	'Pos is the new 
Const slowDelay = 5                                             'position

Main:
        POS = 50
        CALL SLOW1
        POS = 225
        CALL SLOW1
GOTO Main

SUB SLOW1
        IF Servo1 < Pos then
                FOR I = Servo1 to Pos           'Slowly increase
                        Servo1 = I                                                                                      'to Pos
                        Delay slowDelay
                Next
        ELSE
                FOR I = Servo1 to Pos Step -1   'Slowly decrease
                        Servo1 = I                                                                                      'to Pos
                        Delay slowDelay
                Next
        END IF
END SUB