[DEF,SHIFT,(LeftShift Down | RightShift Down)] SELECT TRIGGER FROM [DEF,ClickTime,(200)] [DEF,CTRL,(Ctrl Down | Spare3 Down)] [DEF,DownClick,(~1 Down BEFORE [ClickTime])] [DEF,UpClick,(~1 Up BEFORE [ClickTime])] [DEF,Click,([UpClick,~1] AND [DownClick,~1])] [DEF,IfShift,(SELECT ENABLE FROM [SHIFT] => ~1; ENDCASE => ~2)] [DEF,Letter,( ~1 Down => SELECT ENABLE FROM BW Down => SELECT TRIGGER FROM [Click,~1] => [IfShift,{ ~2 RemoveCaretLook },{ ~2 ApplyCaretLook }]; ENDCASE => [IfShift,{ ~2 RemoveLook },{ ~2 ApplyLook }]; ~3 ENDCASE)] [Letter,L,11, [CTRL] => [IfShift,{ 1 GoToNextChar }, { 1 GoToPreviousChar }]]; [Letter,L,11, [CTRL] => [IfShift,{ 1 GoToNextChar }, { 1 GoToPreviousChar }]]; ENDCASE... r/Ivy/Atkinson/5.2/Atkinson.tip Russ Atkinson, May 10, 1984 11:52:41 am PDT Sweet, August 30, 1985 10:11:43 am PDT Keyset1 Down => SELECT ENABLE FROM (Keyset5 Down) => {SelBranch UnNest Join " " 1 GoToNextChar Break Nest SetMesaLooks}; ENDCASE => {UnNest Join " " 1 GoToNextChar Break Nest SetMesaLooks}; Keyset2 Down => SELECT ENABLE FROM (Keyset5 Down) => {1 GoToPreviousChar}; ENDCASE => {1 GoToNextChar}; Keyset3 Down => SELECT ENABLE FROM (Keyset5 Down) => {1 GoToPreviousWord}; ENDCASE => {1 GoToNextWord}; Keyset4 Down => SELECT ENABLE FROM (Keyset5 Down) => {1 GoToPreviousNode}; ENDCASE => {1 GoToNextNode}; Ê˜šœ™Jšœ+™+Icode™&—J˜šœÏkœœ$˜.J˜—šœœœ˜šœ™šœœ™J™UJšœ=™D—J™—™šœœ™J™'Jšœ™—J™—™šœœ™J™'Jšœ™—J™—™šœœ™J™'Jšœ™——J˜Jšœœ˜J˜Jšœœœ˜$J˜Jšœœœ˜,J˜Jšœœœ˜(J˜Jšœœœ˜-J˜šœœ œœ˜ Jšœœ˜Jšœ˜J˜—šœœ ˜ šœœœ˜šœ œœ˜JšœE˜EJšœ1˜8—Jšœ˜—Jšœ˜ J˜—šœœ˜ Jšœœ;˜@J˜—šœœ˜ Jšœœ;˜@—J˜Jšœ˜ J˜J˜——…—ÒH