OPTIONS
Fast;

[DEF,CTRL,(Ctrl Down | Spare3 Down)]

[DEF,IfCaretAtEnd,(~1 Down WHILE CaretAtEndOfTypescript => Char)]

[DEF,CtrlChar,(~1 Down WHILE Ctrl Down WHILE CaretAtEndOfTypescript => Char)]

SELECT TRIGGER FROM

[IfCaretAtEnd,ESC];
[IfCaretAtEnd,LF];
Return Down WHILE CaretAtEndOfTypescript => "\012";
[CtrlChar,A];
[CtrlChar,B];
[CtrlChar,C];
[CtrlChar,D];
[CtrlChar,F];
[CtrlChar,G];
[CtrlChar,H];
[CtrlChar,I];
[CtrlChar,J];
[CtrlChar,K];
[CtrlChar,L];
[CtrlChar,M];
[CtrlChar,N];
[CtrlChar,O];
[CtrlChar,Q];
[CtrlChar,R];
[CtrlChar,S];
[CtrlChar,T];
[CtrlChar,U];
[CtrlChar,V];
[CtrlChar,W];
[CtrlChar,X];
[CtrlChar,Y];
[CtrlChar,Z];

Help Down => "\277"; -- Meta-?, invokes completion querying in the Commander
ENDCASE.

   *  
EditTypeScript.tip
Copyright Ó 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Last Edited by Paxton, November 8, 1982 10:30 am
Michael Plass, May 25, 1989 2:53:43 pm PDT
Tim Diebert: April 29, 1988 9:38:11 am PDT
Doug Wyatt, March 4, 1992 10:50 am PST

Note that Spare3 does not work as a CTRL key in this context.
[CtrlChar,E]; -- want expand to work at end of typescript
[CtrlChar,P]; -- want paste to work at end of typescript
A Down WHILE Ctrl WHILE CaretAtEndOfTypescript => BackSpace; -- see who gripes
Êh  –(cedarcode) style•NewlineDelimiter
™ šœ™Jšœ
ÏeœU™`Jšœ0™0Icode™*K™*K™&J™ —šÏk˜J˜—J˜ Jšœžœžœ˜$J˜ Jšœžœžœ!˜AJ˜ šœžœžœžœ!˜MJšœ=™=—J˜ Jšžœžœž˜˜ Jšœžœ˜Jšœžœ˜Jšœžœ"˜3J˜J˜J˜J˜J™9J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J™8J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜ Jšœžœžœ7™NJšœÏc7˜LJšžœ˜—J˜ — …—    à  r  