OPTIONS Small; [DEF,Button,( ~1 Down => SELECT ENABLE FROM Ctrl Down => SELECT ENABLE FROM LeftShift Down => { Coords Ctrl Shift ~1 Down }; ENDCASE => { Coords Ctrl ~1 Down }; LeftShift Down => { Coords Shift ~1 Down }; ENDCASE => { Coords ~1 Down }; ~1 Up => SELECT ENABLE FROM Ctrl Down => SELECT ENABLE FROM LeftShift Down => { Coords Ctrl Shift ~1 Up }; ENDCASE => { Coords Ctrl ~1 Up }; LeftShift Down => { Coords Shift ~1 Up }; ENDCASE => { Coords ~1 Up })] [DEF,Track,( SELECT ENABLE FROM Ctrl Down => SELECT ENABLE FROM LeftShift Down => { Coords Ctrl Shift Track }; ENDCASE => { Coords Ctrl Track }; LeftShift Down => { Coords Shift Track }; ENDCASE => { Coords Track })] SELECT TRIGGER FROM [Button,Red]; [Button,Yellow]; [Button,Blue]; Mouse => SELECT ENABLE FROM Red Down => [Track]; Yellow Down => [Track]; Blue Down => [Track]; ENDCASE; ENDCASE. . Scheme.tip Copyright Σ 1988, 1991 by Xerox Corporation. All rights reserved. Michael Plass, March 11, 1988 9:46:11 am PST sends the coordinates, the state of the Ctrl and LeftShift keys, the button, and the transition sends the coordinates, the state of the Ctrl and LeftShift keys, and Track Κ–•NewlineDelimiter –(cedarcode) style™šœ ™ Icodešœ Οeœ7™BJšœ,™,—J˜šΟkœ˜J˜—šœžœ ˜ Jšœ_™_šœ žœžœž˜šœ žœžœž˜J˜0Jšžœ˜#—J˜+Jšžœ˜—šœ žœžœž˜šœ žœžœž˜J˜.Jšžœ˜!—J˜)Jšžœ˜—J˜—šœžœ˜ JšœJ™Jšžœžœž˜šœ žœžœž˜J˜.Jšžœ˜!—J˜)Jšžœ˜J˜——šžœžœž˜J˜ J˜J˜šœ žœžœž˜J˜J˜J˜Jšžœ˜—Jšžœ˜——…—`$