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