EditTypeScript.tip; Last Edited by Paxton, November 8, 1982 10:30 am
Copyright Ó 1986, 1987 by Xerox Corporation. All rights reserved.
Michael Plass, February 26, 1987 10:43:17 am PST
OPTIONS
Fast;
[DEF,CTRL,(Ctrl Down | Spare3 Down)]
[DEF,IfCaretAtEnd,(~1 Down WHILE CaretAtEndOfTypescript => Char)]
[DEF,IfCtrlAndCaretAtEnd,(~1 Down WHILE [CTRL] WHILE CaretAtEndOfTypescript => Char)]
[DEF,CtrlAndCaretAtEnd,(Down WHILE [CTRL] WHILE CaretAtEndOfTypescript)]
SELECT TRIGGER FROM
[IfCaretAtEnd,ESC];
[IfCaretAtEnd,LF];
[IfCaretAtEnd,Return];
[IfCtrlAndCaretAtEnd,C];
[IfCtrlAndCaretAtEnd,H];
[IfCtrlAndCaretAtEnd,Q];
[IfCtrlAndCaretAtEnd,O];
[IfCtrlAndCaretAtEnd,R];
[IfCtrlAndCaretAtEnd,T];
[IfCtrlAndCaretAtEnd,W];
[IfCtrlAndCaretAtEnd,X];
[IfCtrlAndCaretAtEnd,Z];
A [CtrlAndCaretAtEnd] => BackSpace;
ENDCASE.