BOB-Jízda ve čtverci

Robot jezdí ve čtverci. Otáčení vpravo.

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

counter VAR Word 
FREQOUT 4, 2000, 3000

DO 
FOR counter = 1 TO 122 
    PULSOUT 13,850 
    PULSOUT 12,650 
    PAUSE 20 
NEXT 

FOR counter = 1 TO 31 
    PULSOUT 13,850 
    PULSOUT 12,850 
    PAUSE 20 
NEXT  

LOOP

Robot jezdí ve čtverci. Otáčení vlevo.

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

counter VAR Word 
FREQOUT 4, 2000, 3000

DO 
FOR counter = 1 TO 122 
    PULSOUT 13,850 
    PULSOUT 12,650 
    PAUSE 20 
NEXT 

FOR counter = 1 TO 31 
    PULSOUT 13,650 
    PULSOUT 12,650 
    PAUSE 20 
NEXT 

LOOP