/downeventinterest {/DownTransition ClientCanvas eventmgrinterest} def

/startinput { % - => - (Wait for input)
    /ButtonMgr [
        BLACK_EVENT {BLACK_TAG placestone} downeventinterest
        WHITE_EVENT {WHITE_TAG placestone} downeventinterest
    ] forkeventmgr store
} def