BOB-Jízda ve čtverci
Z MediaWiki SPŠ a VOŠ Písek
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