OPTIONS Fast; [DEF,CTRL,(Ctrl Down | Spare3 Down)] [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,IfShift,(SELECT ENABLE FROM [SHIFT] => ~1; ENDCASE => ~2)] [DEF,IfCtrl,(SELECT ENABLE FROM [CTRL] => ~1; ENDCASE => ~2)] [DEF,WhileKbd,(WHILE Ctrl Down | Spare3 Down WHILE Spare2 Down)] SELECT TRIGGER FROM -- top level trigger select Spare2 Down => SELECT ENABLE FROM BW Down => [IfCtrl, [IfShift,{ IntermediateUser CtrlPrevPlaceholder },{ IntermediateUser CtrlNextPlaceholder }], [IfShift,{ IntermediateUser PreviousPlaceholder },{ IntermediateUser NextPlaceholder }]]; ENDCASE => KbdNull; [DEF,FreeKey,(~1 Down [WhileKbd] => KbdNull)] [FreeKey,A]; [FreeKey,Z]; [FreeKey,E]; [FreeKey,D]; [FreeKey,C]; [FreeKey,W]; [FreeKey,S]; [FreeKey,X]; [DEF,WhoStuff,(SELECT ENABLE FROM E Down => ~1, KbdBranch, ~2; D Down => ~1, KbdNode, ~2; C Down => ~1, KbdLine, ~2; W Down => ~1, KbdWord, ~2; S Down => ~1, KbdSubWord, ~2; X Down => ~1, KbdChar, ~2; ENDCASE => ~1, KbdCurSel, ~2)] [DEF,SelStuff,( A Down => [WhoStuff,KbdBegin,~1]; Z Down => [WhoStuff,KbdEnd,~1]; ENDCASE => [WhoStuff,KbdAll,~1])] [DEF,SelOnly,( ~1 Down [WhileKbd] => SELECT ENABLE FROM [SelStuff,~2])] [SelOnly,P,KbdToPoint]; [SelOnly,LeftBracket,KbdSelect]; [SelOnly,RightBracket,KbdSelectPendingDelete]; [SelOnly,Arrow,KbdDelete]; ENDCASE... jKeyboardTioga.TIP Last Edited by: Spreitzer, April 26, 1985 7:31:29 pm PST Free up keys Select & op Ęa˜J™J™8J˜JšĪkœ˜ J˜J˜Jšœœœ˜$J˜Jšœœœ$˜.J˜šœœ œœ˜ Jšœœ˜Jšœ˜—J˜šœœ œœ˜Jšœœ˜ Jšœ˜—J˜Jšœœ œœ˜@J˜šœœœĪc˜/J˜J™ J˜šœœœ˜!šœ˜Jšœ\˜\JšœY˜Y—Jšœ ˜—J˜Jšœœ)˜-J˜Jšœ œ˜ Jšœ œ˜ J˜Jšœ œ˜ Jšœ œ˜ Jšœ œ˜ Jšœ œ˜ Jšœ œ˜ Jšœ œ˜ J˜J™ J˜šœœ œœ˜!Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜—J˜šœœ ˜Jšœ ˜!Jšœ˜Jšœ˜!—J˜šœœ ˜šœœœ˜(J˜—J˜—Jšœ œ ˜Jšœ ˜ Jšœ.˜.Jšœ˜J˜Jšœ˜ J˜——…—0û