TiogaDisplay.TIP
Last Edited by: Spreitzer, June 18, 1985 3:09:08 pm PDT
Pavel, December 29, 1985 9:36:16 pm PST
OPTIONS Fast;
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[DEF,CTRL,(Ctrl Down | Stop Down)]
[DEF,META,(COMMAND Down | MOVE Down)]
[
DEF,Shiftly,(~1 Down =>
SELECT
ENABLE
FROM
[
META] =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => TDInput, ~3, Shift, Ctl, Meta;
ENDCASE => TDInput, ~2, Ctl, Meta;
ENDCASE =>
SELECT
ENABLE
FROM
[SHIFT] => TDInput, ~3, Shift, Meta;
ENDCASE => TDInput, ~2, Meta;
ENDCASE =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => TDInput, ~3, Shift, Ctl;
ENDCASE => TDInput, ~2, Ctl;
ENDCASE =>
SELECT
ENABLE
FROM
[SHIFT] => TDInput, ~3, Shift;
ENDCASE => TDInput, ~2)]
[DEF,MyKey,([Shiftly,~1,~2,~2])]
SELECT TRIGGER FROM
[MyKey,ESC,"\033"];
[Shiftly,One,"1","!"];
[Shiftly,Two,"2","@"];
[Shiftly,Three,"3","#"];
[Shiftly,Four,"4","$"];
[Shiftly,Five,"5","%"];
[Shiftly,Six,"6","~"];
[Shiftly,Seven,"7","&"];
[Shiftly,Eight,"8","*"];
[Shiftly,Nine,"9","("];
[Shiftly,Zero,"0",")"];
[Shiftly,Dash,"-","\140"];
[Shiftly,Equal,"=","+"];
[Shiftly,BackSlash,"\\","|"];
[MyKey,LF,"\012"];
[MyKey,DEL,"\177"];
[MyKey,TAB,"\t"];
[MyKey,Q,"Q"];
[MyKey,W,"W"];
[MyKey,E,"E"];
[MyKey,R,"R"];
[MyKey,T,"T"];
[MyKey,Y,"Y"];
[MyKey,U,"U"];
[MyKey,I,"I"];
[MyKey,O,"O"];
[MyKey,P,"P"];
[Shiftly,LeftBracket,"[","{"];
[Shiftly,RightBracket,"]","}"];
[Shiftly,Arrow,"←","^"];
[MyKey,BS,"\010"];
[MyKey,A,"A"];
[MyKey,S,"S"];
[MyKey,D,"D"];
[MyKey,F,"F"];
[MyKey,G,"G"];
[MyKey,H,"H"];
[MyKey,J,"J"];
[MyKey,K,"K"];
[MyKey,L,"L"];
[Shiftly,SemiColon,";",":"];
[Shiftly,Quote,"'","\""];
[MyKey,Return,"\015"];
[MyKey,Z,"Z"];
[MyKey,X,"X"];
[MyKey,C,"C"];
[MyKey,V,"V"];
[MyKey,B,"B"];
[MyKey,N,"N"];
[MyKey,M,"M"];
[Shiftly,Comma,",","<"];
[Shiftly,Period,".",">"];
[Shiftly,Slash,"/","?"];
[MyKey,Space," "];
[MyKey,RightArrow,"\033"]; -- DLion key
ENDCASE.