-- Chords.TIP; Created by System
-- Version of 16-Dec-82 18:49:31

[DEF,ChordTime,(200)]

[DEF,Chord,(SELECT TRIGGER FROM
  ~1 Down BEFORE [ChordTime] => COORDS;
  ENDCASE)]
  
-- Top-level trigger case

SELECT TRIGGER FROM
  
  MENU Down => COORDS;

  Menu Down => COORDS;
  
  Point Down => [Chord,Adjust];
  
  Adjust Down => [Chord,Point];
  
  ENDCASE...