<> <> <> OPTIONS PrintKeys; SELECT TRIGGER FROM Red Down => MouseDown, Red, Coords; Blue Down => MouseDown, Blue, Coords; Yellow Down => MouseDown, Yellow, Coords; Red Up => MouseUp, Red, Coords; Blue Up => MouseUp, Blue, Coords; Yellow Up => MouseUp, Yellow, Coords; << Roll events should be preceded by the atom $Roll, but that is omitted for efficiency reasons. >> Mouse => SELECT ENABLE FROM Red Down => Coords; Yellow Down => Coords; Blue Down => Coords ENDCASE; ESC Down => End, Escape; DEL Down => End, Delete; TAB Down => End, Tab; Return Down => End, Return; BS Down => BackSpace ENDCASE.