-- TextSW.TIP; created by System
-- Version of 25-Jan-83 15:30:21
      
[DEF,ChordTime,(100)]

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

  Point Down => [Chord,Adjust,
    SELECT ENABLE FROM
      CONTROL Down => { [TC] MoveInsertion };
      [CopyMove] => { [TC] Video DoPrimary };
      ENDCASE => { [TC] Video InsertToSel DoPrimary }];
  
  Adjust Down => [Chord,Point,
    SELECT ENABLE FROM
      [CopyMove] => { [TC] ExtendPrimary };
      ENDCASE => { [TC] InsertToSel ExtendPrimary }];
  
  -- Auto Indenting
  
  Return Down => [IfShifted,CHAR,SELECT ENABLE FROM
    CONTROL Down => UnIndentLineBreak;
    ENDCASE => AutoIndentLineBreak];
  
  BS Down => [IfShifted,DeletePreviousWord,SELECT ENABLE FROM
    CONTROL Down => DeletePreviousCharacter;
    ENDCASE => BackSpaceTAB];
    
  ENDCASE...