-- Griffin.TIP
-- last written by Stone, February 9, 1983 4:04 pm

OPTIONS
  Small,
  PrintKeys;

[DEF,Button,(
  ~1 Down => SELECT ENABLE FROM
 	  LeftShift Down => { Coords Shifted~1Down };
 	  RightShift Down => { Coords Shifted~1Down };
	  ENDCASE => { Coords ~1Down };
  ~1 Up => SELECT ENABLE FROM
	  LeftShift Down => { Coords Shifted~1Up };
	  RightShift Down => { Coords Shifted~1Up };
	  ENDCASE => { Coords ~1Up })]

SELECT TRIGGER FROM
  [Button,Red];
  [Button,Yellow];
  [Button,Blue];
  DEL Down => SELECT ENABLE FROM
		Red Down => {Abort};
		Yellow Down => { Abort };
 		Blue Down =>{Abort};
		ENDCASE;
  Mouse => SELECT ENABLE FROM
		Red Down => { Coords NewPosition };
		Yellow Down => { Coords NewPosition };
 		Blue Down =>{ Coords NewPosition };
		ENDCASE;
	BS Down => Char;
	DEL Down => Char;
	BW Down => Char;
	
	ENDCASE.