-- TetonMenu.TIP
-- Version of 16-Jun-83 16:52:33


[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;
  ENDCASE...