\ Bip, sources domaine public pour SMALL/32 Linux version 99.8.3
\ compilateur Forth professionnel par Alexandr Larionov
\ CE PROGRAMME VOUS EST OFFERT SANS GARANTIE D'AUCUNE SORTE !

: .hlp ( -- )
       ." Bip pour Linux" cr
       ." Freeware par almasty@bigfoot.com" cr
       ." Syntaxe : Bip n (n entre 1 et 9)" cr ;

: bip ( n -- ) 0 do beep 100000 0 do i drop loop loop ;

: main ( -- )
       parsecommandline tib count drop
       c@ 48 -
       dup 0 > if dup 9 > invert if bip else .hlp then else .hlp then ;