-- ExpertDrafting.TIP
-- Version of 26-Feb-86 14:32:35

OPTIONS DefaultKeys;

[DEF,IfShift,(SELECT ENABLE FROM
  LeftShift Down => ~1;
  RightShift Down => ~1;
  ENDCASE => ~2)]
  
SELECT TRIGGER FROM
  BS Down => SELECT ENABLE FROM
    LeftShift Down | RightShift Down => "";
    ENDCASE => "";
  COMPLETE Down => "|";
  Bullet Down => "|";
  ENTER => SELECT ENABLE FROM
    COMMAND Down => enter, keyboardDown;
    ENDCASE => enter, keyboardUp;
  EXIT => exit;
  Point Down  => 
    SELECT TRIGGER FROM
      Point Up BEFORE 200 AND Point Down BEFORE 200 => COORDS, doubleRed;
      Adjust Down BEFORE 250 => COORDS, menu;
      ENDCASE => COORDS, red;
  Adjust Down  => 
    SELECT TRIGGER FROM
      Adjust Up BEFORE 200 AND Adjust Down BEFORE 200 => COORDS, doubleBlue;
      Point Down BEFORE 250 => COORDS, menu;
      ENDCASE => COORDS, blue;
  Menu Down => COORDS, menu;
  Point Down WHILE NEXT Down => COORDS, red;
  Point Down WHILE COPY Down => COORDS, red;
  Point Down WHILE AGAIN Down => COORDS, red;
  Point Down WHILE DELETE Down => COORDS, red;
  Point Down WHILE CONTROL Down => COORDS, red;
  EXPAND Down => drawing;
  AGAIN Down => selectKey;
  FIND Down => find;
  PASTE Down => [IfShift,select,deselect];
  STUFF Down => [IfShift,prevPage,done];
  DELETE Down => delete;
  COPY Down => corner;
  MOVE Down => drag;
  CONTROL Down => cut;
  MENU Down => point;
  SCROLLBAR Down => [IfShift,box,line];
  JFIRST Down => circle;
  JSELECT Down => arc;
  RESERVED Down => [IfShift,noArea,area];
  Strikeout Down => [IfShift,noArea,area];
  CLIENT1 Down => [IfShift,stretch,transform];
  SuperSub Down => [IfShift,stretch,transform];
  CLIENT2 Down => duplicate;
  ATTENTION Down => note;
  Case Down => note;
  NEXT Down => describe;
  HELP Down => [IfShift,blankBoard,system];
  KeypadClear Down => [IfShift,blankBoard,system];
  DOIT Down => [IfShift,grid,views];
  BackSlash Down => [IfShift,illustrator,plot];
  UNDO Down => undo;
  COMMAND Down => keyboardDown;
  COMMAND Up => keyboardUp;
  ENDCASE...