written by Foxy

                       ON ENTER {
                       1 ME  SETALARM
                       }
                       ON ALARM {
                       { spt =
                       spt 0 GET GETSPOTSTATE cs  =
                       MOUSEPOS spt 1 GET > SWAP spt 2 GET > AND
                       MOUSEPOS spt 3 GET <  SWAP spt 4 GET < AND AND ds =
                       { ds spt 0 GET SETSPOTSTATELOCAL } ds cs ==  NOT IF
                       } [ [ 1 358 432 376 504 ] ] FOREACH
                       30 ME  SETALARM
                       }