-- Emulator.TIP, created by System
-- Version of 28-Mar-83 11:47:18

[DEF,ChordTime,(100)]

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

[DEF,TC,(TIME COORDS)]
      
SELECT TRIGGER FROM
  BS Down => SELECT ENABLE FROM
    LeftShift Down | RightShift Down => "\027";
    ENDCASE => BackArrow;
    
  DELETE Down => "\177";
  
  COMPLETE Down => "\033";
  NEXT Down => LeftArrow;
  HELP Down => UpArrow;
  UNDO Down => RightArrow;
  DOIT Down => DownArrow;

  MENU Down => PF1;
  SCROLLBAR Down => PF2;
  JFIRST Down => PF3;
  JSELECT Down => PF4;

  Point Down => [Chord,Adjust,
    SELECT ENABLE FROM
      CONTROL Down => { [TC] MoveInsertion };
      [CopyMove] => { [TC] PointDown };
      ENDCASE => { [TC] Video InsertToSel PointDown }];
  
  Adjust Down => [Chord,Point,
    SELECT ENABLE FROM
      [CopyMove] => { [TC] AdjustDown };
      ENDCASE => { [TC] InsertToSel AdjustDown }];
  
  One Down WHILE COMMAND Down => KP1;
  Two Down WHILE COMMAND Down => KP2;
  Three Down WHILE COMMAND Down => KP3;
  Four Down WHILE COMMAND Down => KP4;
  Five Down WHILE COMMAND Down => KP5;
  Six Down WHILE COMMAND Down => KP6;
  Seven Down WHILE COMMAND Down => KP7;
  Eight Down WHILE COMMAND Down => KP8;
  Nine Down WHILE COMMAND Down => KP9;
  Zero Down WHILE COMMAND Down => KP0;
  Comma Down WHILE COMMAND Down => KComma;
  Period Down WHILE COMMAND Down => KPeriod;
  Return Down WHILE COMMAND Down => KEnter;
  Dash Down WHILE COMMAND Down => KMinus;
  
  Return Down => Return;
  ENDCASE...