OPTIONS Fast;[DEF,SHIFT,(LeftShift Down | RightShift Down)][DEF,CTRL,(Ctrl Down)][DEF,KbdDown,(Next Down => SELECT ENABLE FROMNEXT Up => ~1;ENDCASE;NEXT Down => SELECT ENABLE FROMNext Up => ~1;ENDCASE)][DEF,KbdUp,(Next Up WHILE NEXT Up ~1;NEXT Up WHILE Next Up ~1)][DEF,WhileKbd,(~1 => SELECT ENABLE FROM(Next Down | NEXT Down) ~2ENDCASE)][DEF,Zork,WHILE (Next Down | NEXT Down)][DEF,IfShift,(SELECT ENABLE FROM[SHIFT] => ~1;ENDCASE => ~2)][DEF,WhileCtrl,(WHILE Ctrl Down)][DEF,IfCtrl,(SELECT ENABLE FROM[CTRL] => ~1;ENDCASE => ~2)]SELECT TRIGGER FROM -- top level trigger select[KbdDown,KbdNull];[DEF,FreeKey,([WhileKbd,~1 Down,=> KbdIgnore])][FreeKey,BS];[FreeKey,Space];[DEF,Nextisms,([IfCtrl,[IfShift,{ ~1 IntermediateUser CtrlPrevPlaceholder },{ ~1 IntermediateUser CtrlNextPlaceholder }],[IfShift,{ ~1 IntermediateUser PreviousPlaceholder },{ ~1 IntermediateUser NextPlaceholder }]])][WhileKbd,N Down,=> [Nextisms,KbdNotNull]];[KbdUp, WHILE EmptyKbdNext WHILE NullKbd => [Nextisms,]];[DEF,SelStuff,(SELECT ENABLE FROMBS Down => {KbdBegin ~1 KbdSelect};Space Down => {KbdAll ~1 KbdSelect};ENDCASE => {KbdEnd ~1 KbdSelect})][WhileKbd,E Down,=> [SelStuff,KbdBranch]];D Down [Zork] => [SelStuff,KbdNode];[WhileKbd,C Down,=> [SelStuff,KbdLine]];[WhileKbd,V Down,=> [SelStuff,KbdCompound]];[WhileKbd,W Down,=> [SelStuff,KbdWord]];[WhileKbd,S Down,=> [SelStuff,KbdSubWord]];[WhileKbd,X Down,=> [SelStuff,KbdChar]];[WhileKbd,DEL Down,=> KbdNotNull];[WhileKbd,A Down,=> {KbdNotNull CaretBefore}];[WhileKbd,Z Down,=> {KbdNotNull CaretAfter}];[WhileKbd,Period Down,=> {KbdNotNull MakePointSelection}];[WhileKbd,I Down,=> {KbdNotNull KbdInvertPendingDelete}];[WhileKbd,J Down,=> {KbdNotNull NormalizeToStart}];[WhileKbd,M Down,=> {KbdNotNull MakePointSelection SetMesaLooks}];[WhileKbd,P Down,=> {KbdNotNull PrevPlace}];[WhileKbd,G Down,=> [IfCtrl,{MakePointSelection CaretAfter KbdAll KbdCompound KbdSelect FindAnyDefCtl},{MakePointSelection CaretAfter KbdAll KbdCompound KbdSelect FindAnyDef}]];[DEF,FindCase,([IfShift,{KbdNotNull ~1},{KbdNotNull ~2}])][DEF,FindStuff,([WhileKbd,~1 Down,=> SELECT ENABLE FROMBS Down => [FindCase,FindPrev~2Caseless,FindPrev~2];Space Down => [FindCase,FindAny~2Caseless,FindAny~2];ENDCASE => [FindCase,FindNext~2Caseless,FindNext~2]])][FindStuff,F,];ENDCASE...   T  KeyboardTioga.TIPLast Edited by: Spreitzer, June 4, 1986 4:35:34 pm PDTLast tweaked by Mike Spreitzer on May 9, 1988 12:35:06 pm PDT[DEF,WhileKbd,(~1 WHILE Next Down ~2;~1 WHILE NEXT Down ~2)]Free up shift keysRecode `next'ismsSelections[WhileKbd,D Down,=> [SelStuff,KbdNode]];Ops[FindStuff,W,Word];[FindStuff,D,Def]; Êz  ˜ šœÏk™Jšœ3™6Icodešœ=™=—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˜ šœœœÏc˜/J˜ ™J˜ Jšœ˜J˜ Jšœœ+˜/J˜ Jšœ	œ˜Jšœ˜J˜ —™J™ šœœ˜Jšœb˜bJšœ`˜`—J˜ Jšœ+˜+Jšœœœ˜9J™ —™
J˜ šœœœœ˜!Jšœ!˜#Jšœ$˜$Jšœ˜"—J˜ Jšœ*˜*Jšœ$˜$Jšœ(™(Jšœ(˜(Jšœ,˜,Jšœ(˜(Jšœ+˜+Jšœ(˜(—J˜ ™J˜ Jšœ"˜"J˜ J˜.J˜-J˜ Jšœ:˜:Jšœ9˜9Jšœ3˜3JšœB˜BJšœ,˜,J˜ šœ˜JšœK˜KJšœJ˜J—J˜ Jšœœ6˜:J˜ šœœ!œœ˜7Jšœ2˜4Jšœ5˜5Jšœ/˜6—J˜ Jšœ˜J˜ J™J™ J™J˜ —Jšœ˜
J˜ —— …—    	P    