CDSatellites.TIP
Copyright © 1985 by Xerox Corporation. All rights reserved.
Created by: Pradeep Sindhu, December 23, 1985 4:30:58 pm PST
Pradeep Sindhu, January 31, 1986 1:38:52 pm PST
[DEF,CTRL,(Spare3 Down | Ctrl Down)]
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[DEF,LeftDown,(Red Down)]
[DEF,LeftUp,(Red Up)]
[DEF,MiddleDown,(Yellow Down)]
[DEF,MiddleUp,(Yellow Up)]
[DEF,RightDown,(Blue Down)]
[DEF,RightUp,(Blue Up)]
[DEF,Menu,
(~1 Down WHILE Space Down
WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => Coords, ~2;
Space Down WHILE ~1 Down
WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => Coords, ~2)]
~1 represent's key; ~2 represent's Menu atom to call
SELECT TRIGGER FROM
[LeftUp] WHILE L Down => Coords, SelectGroup;
[MiddleDown] WHILE L Down => Coords, AddSatellite;
[RightUp] WHILE L Down => Coords, SetSatellites;
[Menu, L, SatellitesMenu];
ENDCASE...