BOB-Jízda rovně

Program pro jízdu rovně neomezeně dlouho.

download

Program pro jízdu rovně po dobu t.

download

původně fungující syntaxe na wiki:

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

source code