here  hex \ Bit niveau versie: LED1 (364 bytes)
\ De LED zit op GPIO25, dat is masker 200,0000

: >LED      ( mask -- )
    200,0000  D000,0010 bit** xor \ Toestand gewijzigd?
    if  200,0000  D000,0010 **bix  then ; \ Ja, neem over

: LED1      ( -- )
    5 19 gpio!  200,0000 D000,0020 **bis
    false                   \ LED knippert niet
    begin
        dup if              \ LED knippert?
            dup 200,0000 and >led \ Ja, toggle LED
            200,0000 xor  80 ms   \ Toggle bitpatroon en wacht
        then
        key? dup if
            drop  key >r   \ Lees toets
            r@ ch a = if  dup -  200,0000 >led  then \ LED aan
            r@ ch u = if  dup -  0 >led         then \ LED uit
            r@ ch i = if  0=                    then \ Knipperen aan/uit
            r> ch x =                                \ Klaar
        then
    until  drop ;

here swap - dm .

    (  a = aan, u = uit, i = knipper, x = klaar )