Obsluha událostí v četně reakcí na jednotlivá stalčená tlačítka.

: btnClr ( → ) ( → )
        0. SET display ;

: btnDrop ( → ) ( n. → )
        ;

: ctlSelect ( ekey → ekey )
        event >abs ItemID
        on: btnOffID    ddo: (bye)
        on: btnClrID    ddo: btnClr
        on: btnDropID   ddo: btnDrop

Přidělování události je v našem případě velmi jednoduché, protože nás zajímají jen události stisku tlačítek.

: dispatch-event ( ekey → ekey )
        on: ctlSelectEvent      do: ctlSelect

Obsluha událostí je nekonečná smyčka jenž vybírá (ekey) události a provádí jejich přidělení (dispatch-event)

: handle-events ( → )
        begin
                ekey dispatch-event drop
        again ;