'''''''''''''''''''''''''''''''''''''''''''''''''''''
'            SD20 example in PicBasic PRO           '
'         Running servo pins from 1ms to 2ms        ' 
'              By James Henderson 2009              '
'''''''''''''''''''''''''''''''''''''''''''''''''''''

DEFINE OSC 8                                        ' 8mhz oscillator
DEFINE I2C_SLOW 1                                   ' Set i2c to the standard speed
DEFINE I2C_HOLD 1                                   ' Enable the recieving i2c device to be able to pause communication
DEFINE CHAR_PACING 102                              ' 1 stop bit time to make 2 for LCD03 

i var byte
    
loop:
    for i = 1 to 20
        I2CWRITE PORTC.4,PORTC.3,$C2,i,[1]          ' Set servo pin i to 1
    next i
    PAUSE 1000
    for i = 1 to 20
        I2CWRITE PORTC.4,PORTC.3,$C2,i,[254]        ' Set servo pin i to 254
    next i
    pause 1000
goto loop