Zobrazení zdroje stránky BOB-Jízda ve čtverci

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

<source lang="basic4gl">

' {$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 
</source>

== Robot jezdí ve čtverci. Otáčení vlevo. ==
 
<source lang="basic4gl">

' {$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
</source>