-- Chat.tip; Last Edited by Stewart, January 24, 1983 4:57 pm

OPTIONS
  Fast;

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

[DEF,ConnectionAndCtrlAndCaretAtEnd,(Down WHILE [CTRL] WHILE ConnectionOpen WHILE CaretAtEndOfTypescript )]

[DEF,IfConnectionAndCtrlAndCaretAtEnd,(~1 Down WHILE [CTRL] WHILE ConnectionOpen WHILE CaretAtEndOfTypescript => Char)]

SELECT TRIGGER FROM

  BS Down WHILE LeftShift Up WHILE RightShift Up WHILE ConnectionOpen WHILE CaretAtEndOfTypescript => "\010";
  [IfConnectionAndCtrlAndCaretAtEnd,A];
  [IfConnectionAndCtrlAndCaretAtEnd,B];
  [IfConnectionAndCtrlAndCaretAtEnd,C];
  [IfConnectionAndCtrlAndCaretAtEnd,D];
  [IfConnectionAndCtrlAndCaretAtEnd,E];
  [IfConnectionAndCtrlAndCaretAtEnd,F];
  [IfConnectionAndCtrlAndCaretAtEnd,G];
  [IfConnectionAndCtrlAndCaretAtEnd,H];
  [IfConnectionAndCtrlAndCaretAtEnd,I];
  [IfConnectionAndCtrlAndCaretAtEnd,J];
  [IfConnectionAndCtrlAndCaretAtEnd,K];
  [IfConnectionAndCtrlAndCaretAtEnd,L];
  [IfConnectionAndCtrlAndCaretAtEnd,M];
  [IfConnectionAndCtrlAndCaretAtEnd,N];
  [IfConnectionAndCtrlAndCaretAtEnd,O];
  [IfConnectionAndCtrlAndCaretAtEnd,P];
  [IfConnectionAndCtrlAndCaretAtEnd,Q];
  [IfConnectionAndCtrlAndCaretAtEnd,R];
  [IfConnectionAndCtrlAndCaretAtEnd,S];
  [IfConnectionAndCtrlAndCaretAtEnd,T];
  [IfConnectionAndCtrlAndCaretAtEnd,U];
  [IfConnectionAndCtrlAndCaretAtEnd,V];
  [IfConnectionAndCtrlAndCaretAtEnd,W];
  [IfConnectionAndCtrlAndCaretAtEnd,X];
  [IfConnectionAndCtrlAndCaretAtEnd,Y];
  [IfConnectionAndCtrlAndCaretAtEnd,Z];


	LF Down => (SELECT ENABLE FROM
	   ConnectionOpen WHILE CaretAtEndOfTypescript => Char;
      LeftShift Down WHILE CaretAtEndOfTypescript => "\223";
      RightShift Down WHILE CaretAtEndOfTypescript => "\223";
      CaretAtEndOfTypescript => "\222";
	   ENDCASE => Char);
  Arrow [ConnectionAndCtrlAndCaretAtEnd] => "\037";
  Space [ConnectionAndCtrlAndCaretAtEnd] => "\000";
  DEL [ConnectionAndCtrlAndCaretAtEnd] => "\221";
  
  ENDCASE....