OPTIONS Fast; [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,IfShift,(SELECT ENABLE FROM [SHIFT] => ~1; ENDCASE => ~2)] [DEF,CTRL,(Ctrl Down)] [DEF,WhileCtrl,(WHILE Ctrl Down)] [DEF,IfCtrl,(SELECT ENABLE FROM [CTRL] => ~1; ENDCASE => ~2)] [DEF,WhileKbd,(WHILE Spare2 Down)] SELECT TRIGGER FROM -- top level trigger select Spare2 Down => KbdNull; [DEF,FreeKey,(~1 Down [WhileKbd] => KbdNull)] [FreeKey,BS]; [FreeKey,Space]; N Down [WhileKbd] => [IfCtrl, [IfShift,{ IntermediateUser CtrlPrevPlaceholder },{ IntermediateUser CtrlNextPlaceholder }], [IfShift,{ IntermediateUser PreviousPlaceholder },{ IntermediateUser NextPlaceholder }]]; [DEF,SelStuff,(SELECT ENABLE FROM BS Down => KbdBegin, ~1, KbdSelect; Space Down => KbdAll, ~1, KbdSelect; ENDCASE => KbdEnd, ~1, KbdSelect)] E Down [WhileKbd] => [SelStuff,KbdBranch]; D Down [WhileKbd] => [SelStuff,KbdNode]; C Down [WhileKbd] => [SelStuff,KbdLine]; W Down [WhileKbd] => [SelStuff,KbdWord]; S Down [WhileKbd] => [SelStuff,KbdSubWord]; X Down [WhileKbd] => [SelStuff,KbdChar]; A Down [WhileKbd] => CaretBefore; Z Down [WhileKbd] => CaretAfter; Period Down [WhileKbd] => MakePointSelection; P Down [WhileKbd] => KbdInvertPendingDelete; J Down [WhileKbd] => NormalizeToStart; [DEF,FindStuff,(~1 Down [WhileKbd] => SELECT ENABLE FROM BS Down => [IfShift,FindPrev~2Caseless,FindPrev~2]; Space Down => [IfShift,FindAny~2Caseless,FindAny~2]; ENDCASE => [IfShift,FindNext~2Caseless,FindNext~2])] [FindStuff,F,]; ENDCASE... fKeyboardTioga.TIP Last Edited by: Spreitzer, June 4, 1986 4:35:34 pm PDT Free up shift keys Recode `next'isms Selections Ops [FindStuff,W,Word]; [FindStuff,D,Def]; F Down [WhileKbd] => SELECT ENABLE FROM BS Down => [IfShift,FindPrevCaseless,FindPrev]; Space Down => [IfShift,FindAnyCaseless,FindAny]; ENDCASE => [IfShift,FindNextCaseless,FindNext]; ĘN˜™J™6—J˜JšĪkœ˜ J˜Jšœœœ$˜.J˜šœœ œœ˜ Jšœœ˜Jšœ˜—J˜Jšœœœ ˜J˜Jšœœ œ ˜!J˜šœœ œœ˜Jšœœ˜ Jšœ˜—J˜Jšœœ œ˜"J˜šœœœĪc˜/J˜™J˜Jšœ˜J˜Jšœœ)˜-J˜Jšœ œ˜ 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˜šœœ"œœ˜8Jšœ1˜3Jšœ4˜4Jšœ-˜4—J˜Jšœ˜J˜J™J™J™J˜šœœœ™'Jšœ-™/Jšœ0™0Jšœ(™/—J˜—Jšœ˜ J˜——…—Ú Ž