(* Micro Launchpad demo program
    S?  = P1.3
    Led = P1.0
*)

: FLASH     ( -- )
    10 0 do  1 21 *bix  100 ms  loop ;

: DEMO      ( -- )
    flash
    begin
        1 21 *bis  20 ms            \ Led short on
        1 21 *bic                   \ Led off with
        s? 1+  dm 200 * ms          \ variable length 200 ms or 9 x 200 ms
    key? until ;

' demo  to app  freeze

\ End
