Griffin.TIP
last written by Stone, February 9, 1983 4:04 pm
Pier, November 5, 1985 1:52:37 pm PST
OPTIONS
Small,
PrintKeys;
SELECT
TRIGGER
FROM
Red Down =>
SELECT
ENABLE
FROM
LeftShift Down | RightShift Down =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CSRedDown;
ENDCASE => Coords, SRedDown;
ENDCASE =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CRedDown;
ENDCASE => Coords, RedDown;
Red Up =>
SELECT
ENABLE
FROM
LeftShift Down | RightShift Down =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CSRedUp;
ENDCASE => Coords, SRedUp;
ENDCASE =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CRedUp;
ENDCASE => Coords, RedUp;
Yellow Down =>
SELECT
ENABLE
FROM
LeftShift Down | RightShift Down =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CSYellowDown;
ENDCASE => Coords, SYellowDown;
ENDCASE =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CYellowDown;
ENDCASE => Coords, YellowDown;
Yellow Up =>
SELECT
ENABLE
FROM
LeftShift Down | RightShift Down =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CSYellowUp;
ENDCASE => Coords, SYellowUp;
ENDCASE =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CYellowUp;
ENDCASE => Coords, YellowUp;
Blue Down =>
SELECT
ENABLE
FROM
LeftShift Down | RightShift Down =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CSBlueDown;
ENDCASE => Coords, SBlueDown;
ENDCASE =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CBlueDown;
ENDCASE => Coords, BlueDown;
Blue Up =>
SELECT
ENABLE
FROM
LeftShift Down | RightShift Down =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CSBlueUp;
ENDCASE => Coords, SBlueUp;
ENDCASE =>
SELECT
ENABLE
FROM
Ctrl Down => Coords, CBlueUp;
ENDCASE => Coords, BlueUp;
DEL Down =>
SELECT
ENABLE
FROM
Red Down => Abort;
Yellow Down => Abort;
Blue Down => Abort;
ENDCASE;
ENDCASE.