-- SymbolsA.TIP
-- Version of 16-Jun-83 17:30:44

OPTIONS DefaultKeys;


[DEF,IfShift,(SELECT ENABLE FROM
  LeftShift Down | RightShift Down => ~1;
  ENDCASE => ~2)]


[DEF,Chord,(SELECT TRIGGER FROM
  ~1 Down BEFORE 250 => { COORDS menu };
  ENDCASE => { COORDS ~2 })]

SELECT TRIGGER FROM
  Point Down => [IfShift,[Chord,Adjust,sourceAndShift],[Chord,Adjust,source]];
  Adjust Down => [Chord,Point,destination];
  Menu Down => COORDS, menu;
  BS Down => COORDS;  -- prevent attempted translation as Char
  BS Up => backSpace;
  CONTROL Up => properties;
  COPY Up => copy;
  DELETE Up => delete;
  MENU Down => COORDS, center;
  MOVE Up => move;
  PASTE Up => paste;
  ENDCASE...