BOB-Jízda rovně

Program pro jízdu rovně neomezeně dlouho.

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

counter  VAR  Word
FREQOUT 4, 2000, 3000

DO
     PULSOUT 13,850
     PULSOUT 12,650

PAUSE 20
LOOP

Soubor:BOB-poradrovne.mp4

Program pro jízdu rovně po dobu t.

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

counter    VAR    Word
FREQOUT 4, 2000, 3000

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

Soubor:BOB-urcitycas.mp4