OPTIONS Fast; [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,CTRL,(Ctrl Down | Stop Down)] [DEF,META,(LeftMeta Down | RightMeta 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,Hyphen,"-","_"]; [Shiftly,Equal,"=","+"]; [Shiftly,BackSlash,"\\","|"]; [Shiftly,GraveAccent,"\140","~"]; [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 Red Down => {Coords}; Yellow Down => {Coords}; Blue Down => {Coords}; ENDCASE. € SimpleDisplays.tip Copyright Ķ 1990 by Xerox Corporation. All rights reserved. Norman Adams, March 6, 1990 12:50 pm PST Ęŗ•NewlineDelimiter ™™J™