' {$STAMP BS2}
' {$PBASIC 2.5}

counter VAR Word

FOR counter = 1 TO 120 '120 = 3s/((1.7 + 1.7 + 20 + 1.6)0.001s)

    PULSOUT 13,850 ' linka 13, délka impulsu 850 x 2 us = 1,7 ms - otáčí se jedním směrem
    PULSOUT 12,650 ' linka 12, délka impulsu 650 x 2 us = 1,3 ms - otáčí se opačným směrem
    PAUSE 20

NEXT