-- COGDraw.tip of August 20, 1982 12:59 am
<<-- To do: implement shift+ctrl>>

OPTIONS
  Fast;
SELECT TRIGGER FROM
  Red Down => SELECT ENABLE FROM
        LeftShift Down => LeftDown, Coords, Shift;
        Ctrl Down => LeftDown, Coords, Ctrl;
        RightShift Down => LeftDown, Coords, Shift
      ENDCASE => LeftDown, Coords;
   Blue Down => SELECT ENABLE FROM
        LeftShift Down => RightDown, Coords, Shift;
        Ctrl Down => RightDown, Coords, Ctrl;
        RightShift Down => RightDown, Coords, Shift
     ENDCASE => RightDown, Coords;
   Yellow Down => SELECT ENABLE FROM
        LeftShift Down => CenterDown, Coords, Shift;
        Ctrl Down => CenterDown, Coords, Ctrl;
        RightShift Down => CenterDown, Coords, Shift
     ENDCASE => CenterDown, Coords;
   Mouse => SELECT ENABLE FROM
        Red Down => SELECT ENABLE FROM
              LeftShift Down => LeftMove, Coords, Shift;
              Ctrl Down => LeftMove, Coords, Ctrl;
              RightShift Down => LeftMove, Coords, Shift
            ENDCASE => LeftMove, Coords;
        Blue Down => SELECT ENABLE FROM
              LeftShift Down => RightMove, Coords, Shift;
              Ctrl Down => RightMove, Coords, Ctrl;
              RightShift Down => RightMove, Coords, Shift
           ENDCASE => RightMove, Coords;
        Yellow Down => SELECT ENABLE FROM
              LeftShift Down => CenterMove, Coords, Shift;
              Ctrl Down => CenterMove, Coords, Ctrl;
              RightShift Down => CenterMove, Coords, Shift
           ENDCASE => CenterDown, Coords
     ENDCASE
   ENDCASE.