-- SchemModesA.TIP
-- Version of 12-Nov-84 10:09:47

OPTIONS DefaultKeys;


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

SELECT TRIGGER FROM
  Point Down => [Chord,Adjust,source];
  Adjust Down => [Chord,Point,destination];
  Menu Down => COORDS, menu;
   Point Up => COORDS, sourceUp;
    DELETE Up => delete;
    AGAIN Up => again;
    MENU Down => COORDS, center;
  ENTER => enter;
  EXIT => exit;
  ENDCASE...