SunKeyboard.TIP
Unkown origin
Norman Adams, March 2, 1990 12:17 pm PST
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[DEF,CTRL,(Ctrl Down)]
[DEF,Spare3,(Spare3 Down)]
[DEF,TAB,(TAB Down)]
[DEF,Spare1,(Spare1 Down)]
[DEF,IfFunction,(~1 Down => SELECT ENABLE FROM
[Spare3] => ~4;
[TAB]  => ~5;
[Spare1] => ~6;
[CTRL] => SELECT ENABLE FROM
[SHIFT] => TDInput, ~3, Shift, Ctl;
ENDCASE => TDInput, ~2, Ctl;
ENDCASE => SELECT ENABLE FROM
[SHIFT] => TDInput, ~3, Shift;
ENDCASE => TDInput, ~2)
]
SELECT TRIGGER FROM
left and top functions
[IfFunction, One, "1", "!", "\033\133224z", NIL, "\033\133192z"];
[IfFunction, Two, "2", "@", "\033\133225z", NIL, "\033\133193z"];
top functions
[IfFunction, Three, "3", "#", "\033\133226z", NIL, NIL];
[IfFunction, Four, "4", "$", "\033\133227z", NIL, NIL];
[IfFunction, Five, "5", "%", "\033\133228z", NIL, NIL];
[IfFunction, Six,  "6", "~", "\033\133229z", NIL, NIL];
[IfFunction, Seven, "7", "&", "\033\133230z", NIL, NIL];
[IfFunction, Eight, "8", "*", "\033\133231z", NIL, NIL];
[IfFunction, Nine, "9", "(", "\033\133232z", NIL, NIL];
right functions
[IfFunction, Dash,   "-", "\140", NIL, "\033\133208z", NIL];
[IfFunction, Equal,   "=", "+",  NIL, "\033\133209z", NIL];
[IfFunction, BackSlash,  "\\", "|",  NIL, "\033\133210z", NIL];
[IfFunction, LeftBracket, "[", "{",  NIL, "\033\133211z", NIL];
[IfFunction, RightBracket, "]", "}",  NIL, "\033\133212z", NIL];
[IfFunction, Arrow,   "←", "^",  NIL, "\033\133213z", NIL];
[IfFunction, I,    "I", "I",  NIL, "\033\133214z", NIL];
[IfFunction, O,    "O", "O",  NIL, "\033\133A", NIL];
[IfFunction, P,    "P", "P",  NIL, "\033\133216z", NIL];
[IfFunction, K,    "K", "K",  NIL, "\033\133D", NIL];
[IfFunction, L,    "L", "L",  NIL, "\033\133218z", NIL];
[IfFunction, SemiColon, ";", ":",  NIL, "\033\133C", NIL];
[IfFunction, Comma,  ",", "<",  NIL, "\033\133220z", NIL];
[IfFunction, Period,   ".", ">",  NIL, "\033\133B", NIL];
[IfFunction, Slash,   "/", "?",  NIL, "\033\133222z", NIL];
left functions
[IfFunction, Q,   "Q", "Q", NIL, NIL, "\033\133194z"];
[IfFunction, W,   "W", "W", NIL, NIL, "\033\133195z"];
[IfFunction, A,   "A", "A", NIL, NIL, "\033\133196z"];
[IfFunction, S,   "S", "S",  NIL, NIL, "\033\133197z"];
[IfFunction, Z,   "Z", "Z",  NIL, NIL, "\033\133198z"];
[IfFunction, X,   "X", "X",  NIL, NIL, "\033\133199z"];
[IfFunction, C,   "C", "C",  NIL, NIL, "\033\133200z"];
[IfFunction, V,   "V", "V", NIL, NIL, "\033\133201z"];
ENDCASE.