--- gforth/vt100key.fs	1995/11/07 18:07:04	1.2
+++ gforth/vt100key.fs	2007/09/30 20:21:44	1.12
@@ -1,6 +1,6 @@
-\ MS-DOS key interpreter                               17oct94py
+\ vt100 key interpreter                                17oct94py
 
-\ Copyright (C) 1995 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1998,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -16,20 +16,33 @@
 
 \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software
-\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 
 Create translate $100 allot
 translate $100 erase
+Create transcode $100 allot
+transcode $100 erase
 
-: trans:  char translate + c! ;
+: trans: ( char 'index' -- ) char translate + c! ;
+: tcode  ( char index -- ) transcode + c! ;
 
 : vt100-decode ( max span addr pos1 -- max span addr pos2 flag )
-  key '[ = IF    key translate + c@ dup IF  decode  THEN
-           ELSE  0  THEN ;
+    key '[ = IF  0  base @ >r  &10 base !
+	BEGIN  key dup digit?  WHILE  nip swap &10 * +  REPEAT
+	r> base !
+	dup '~ =  IF  drop transcode  ELSE  nip translate  THEN
+	+ c@ dup  IF  decode  THEN
+    ELSE  0  THEN ;
 
 ctrl B trans: D
 ctrl F trans: C
 ctrl P trans: A
 ctrl N trans: B
+ctrl A trans: H
+ctrl E trans: F
+
+ctrl A 1 tcode
+ctrl X 3 tcode
+ctrl E 4 tcode
 
 ' vt100-decode  ctrlkeys $1B cells + !