Plumber.tip
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Peter B. Kessler, May 15, 1990 3:22 pm PDT
This tip table lets you type any of the characters from \000 to \377 from the keyboard.
The intent is that this be layered on top of Typescript.tip.
OPTIONS Fast;
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[DEF,CTRL,(LeftControl Down | RightControl Down)]
[DEF,META,(LeftMeta Down | RightMeta Down)]
[
DEF,PlainShiftCtrlMeta,(
Your basic complete selector.
~1 Down
WHILE CaretAtEndOfTypescript =>
SELECT
ENABLE
FROM
[
META] =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => ~9;
ENDCASE => ~8;
ENDCASE =>
SELECT
ENABLE
FROM
[SHIFT] => ~7;
ENDCASE => ~6;
ENDCASE =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => ~5;
ENDCASE => ~4;
ENDCASE =>
SELECT
ENABLE
FROM
[SHIFT] => ~3;
ENDCASE => ~2)]
DEL Down
WHILE CaretAtEndOfTypescript =>
SELECT
ENABLE
FROM
DEL still wants to be abort, unless nothing else is happening.
[SHIFT] => EditAbort;
[CTRL] => EditAbort;
Red Down => EditAbort;
Yellow Down => EditAbort;
Blue Down => EditAbort;
ENDCASE =>
SELECT
ENABLE
FROM
[META] => "\377"
ENDCASE => "\177";
[PlainShiftCtrlMeta,BackSlash, "\134", "|", "\034", "|", "\334", "\374", "\234", "\374"];
[PlainShiftCtrlMeta,ESC, "\033", "\033", "\033", "\033", "\233", "\233", "\233", "\233"];
[PlainShiftCtrlMeta,One, "1", "!", "1", "!", "\261", "\241", "\261", "\241"];
[PlainShiftCtrlMeta,Two, "2", "@", "2", "\000", "\262", "\300", "\262", "\200"];
[PlainShiftCtrlMeta,Three, "3", "#", "3", "#", "\263", "\243", "\263", "\243"];
[PlainShiftCtrlMeta,Four, "4", "$", "4", "$", "\264", "\244", "\264", "\244"];
[PlainShiftCtrlMeta,Five, "5", "%", "5", "%", "\265", "\245", "\265", "\245"];
[PlainShiftCtrlMeta,Six, "6", "^", "6", "\036", "\266", "\336", "\266", "\236"];
[PlainShiftCtrlMeta,Seven, "7", "&", "7", "&", "\267", "\246", "\267", "\246"];
[PlainShiftCtrlMeta,Eight, "8", "*", "8", "*", "\270", "\252", "\270", "\252"];
[PlainShiftCtrlMeta,Nine, "9", "(", "9", "(", "\271", "\250", "\271", "\250"];
[PlainShiftCtrlMeta,Zero, "0", ")", "0", ")", "\260", "\251", "\260", "\251"];
[PlainShiftCtrlMeta,Hyphen, "-", "←", "-", "\037", "\255", "\337", "\255", "\237"];
[PlainShiftCtrlMeta,Equal, "=", "+", "=", "+", "\275", "\253", "\275", "\253"];
[PlainShiftCtrlMeta,BS, "\010", "\010", "\010", "\010", "\210", "\210", "\210", "\210"];
[PlainShiftCtrlMeta,TAB, "\011", "\011", "\011", "\011", "\211", "\211", "\211", "\211"];
[PlainShiftCtrlMeta,Q, "q", "Q", "\021", "\021", "\361", "\321", "\221", "\221"];
[PlainShiftCtrlMeta,W, "w", "W", "\027", "\027", "\367", "\327", "\227", "\227"];
[PlainShiftCtrlMeta,E, "e", "E", "\005", "\005", "\345", "\305", "\205", "\205"];
[PlainShiftCtrlMeta,R, "r", "R", "\022", "\022", "\362", "\322", "\222", "\222"];
[PlainShiftCtrlMeta,T, "t", "T", "\024", "\024", "\364", "\324", "\224", "\224"];
[PlainShiftCtrlMeta,Y, "y", "Y", "\031", "\031", "\371", "\331", "\231", "\231"];
[PlainShiftCtrlMeta,U, "u", "U", "\025", "\025", "\365", "\325", "\225", "\225"];
[PlainShiftCtrlMeta,I, "i", "I", "\011", "\011", "\351", "\311", "\211", "\211"];
[PlainShiftCtrlMeta,O, "o", "O", "\017", "\017", "\357", "\317", "\217", "\217"];
[PlainShiftCtrlMeta,P, "p", "P", "\020", "\020", "\360", "\320", "\220", "\220"];
[PlainShiftCtrlMeta,LeftBracket, "[", "{", "\033", "{", "\333", "\373", "\233", "\373"];
[PlainShiftCtrlMeta,RightBracket, "]", "}", "\035", "}", "\335", "\375", "\235", "\375"];
[PlainShiftCtrlMeta,Return, "\015", "\015", "\015", "\015", "\215", "\215", "\215", "\215"];
[PlainShiftCtrlMeta,A, "a", "A", "\001", "\001", "\341", "\301", "\201", "\201"];
[PlainShiftCtrlMeta,S, "s", "S", "\023", "\023", "\363", "\323", "\223", "\223"];
[PlainShiftCtrlMeta,D, "d", "D", "\004", "\004", "\344", "\304", "\204", "\204"];
[PlainShiftCtrlMeta,F, "f", "F", "\006", "\006", "\346", "\306", "\206", "\206"];
[PlainShiftCtrlMeta,G, "g", "G", "\007", "\007", "\347", "\307", "\207", "\207"];
[PlainShiftCtrlMeta,H, "h", "H", "\010", "\010", "\350", "\310", "\210", "\210"];
[PlainShiftCtrlMeta,J, "j", "J", "\012", "\012", "\352", "\312", "\212", "\212"];
[PlainShiftCtrlMeta,K, "k", "K", "\013", "\013", "\353", "\313", "\213", "\213"];
[PlainShiftCtrlMeta,L, "l", "L", "\014", "\014", "\354", "\314", "\214", "\214"];
[PlainShiftCtrlMeta,SemiColon, ";", ":", ";", ":", "\273", "\272", "\273", "\272"];
[PlainShiftCtrlMeta,Quote, "'", "\042", "'", "\042", "\247", "\242", "\247", "\242"];
[PlainShiftCtrlMeta,GraveAccent, "`", "~", "`", "~", "\340", "\376", "\340", "\376"];
[PlainShiftCtrlMeta,Z, "z", "Z", "\032", "\032", "\372", "\332", "\232", "\232"];
[PlainShiftCtrlMeta,X, "x", "X", "\030", "\030", "\370", "\330", "\230", "\230"];
[PlainShiftCtrlMeta,C, "c", "C", "\003", "\003", "\343", "\303", "\203", "\203"];
[PlainShiftCtrlMeta,V, "v", "V", "\026", "\026", "\366", "\326", "\226", "\226"];
[PlainShiftCtrlMeta,B, "b", "B", "\002", "\002", "\342", "\302", "\202", "\202"];
[PlainShiftCtrlMeta,N, "n", "N", "\016", "\016", "\356", "\316", "\216", "\216"];
[PlainShiftCtrlMeta,M, "m", "M", "\015", "\015", "\355", "\315", "\215", "\215"];
[PlainShiftCtrlMeta,Comma, ",", "<", ",", "<", "\254", "\274", "\254", "\274"];
[PlainShiftCtrlMeta,Period, ".", ">", ".", ">", "\256", "\276", "\256", "\276"];
[PlainShiftCtrlMeta,Slash, "/", "?", "/", "?", "\257", "\277", "\257", "\277"];
[PlainShiftCtrlMeta,LineFeed, "\012", "\012", "\012", "\012", "\212", "\212", "\212", "\212"];
[PlainShiftCtrlMeta,Space, " ", " ", " ", " ", "\240", "\240", "\240", "\240"];
ENDCASE.