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