-- COGDraw.tip of August 20, 1982 12:59 am

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.