-- FormSW.TIP; Created by System
-- Version of 23-Nov-82 17:39:19
      
[DEF,ChordTime,(200)]

[DEF,Chord,(SELECT TRIGGER FROM
  ~1 Down BEFORE [ChordTime] => { [TC] Menu };
  ENDCASE => ~2)]
  
[DEF,CopyMove,(COPY Down | MOVE Down)]
      
[DEF,TC,(TIME COORDS)]
      
-- Top-Level trigger select
      
SELECT TRIGGER FROM

  Menu Down => { [TC] Menu };
  MENU Down => { [TC] Menu };
  
  Point Down => [Chord,Adjust,
    SELECT ENABLE FROM
      CONTROL Down => { [TC] MoveInsertion };
      [CopyMove] => { [TC] DoMoveCopy DoPrimary };
      ENDCASE => { [TC] InsertToSel DoPrimary }];
  
  Adjust Down => [Chord,Point,
    SELECT ENABLE FROM
      [CopyMove] => { [TC] DoMoveCopy ExtendPrimary };
      ENDCASE => { [TC] InsertToSel ExtendPrimary }];
  
  ENDCASE...