Initial commit

88 files changed, 5698 insertions, 0 deletions

diff --git a/pkg/utilities/nttools/tedit/display/curses.h b/pkg/utilities/nttools/tedit/display/curses.h
new file mode 100644
index 00000000..ea12d7f5
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses.h
@@ -0,0 +1,86 @@
+# CURSES.H -- Macros used by the curses subroutines
+
+# Window which covers terminal screen
+
+define	STDSCR		1
+
+# The following string defines the set of commands read from the edcap file
+
+define	CMDSTR "|MOVE_UP|MOVE_DOWN|MOVE_RIGHT|MOVE_LEFT|NEXT_WORD|PREV_WORD\
+|NEXT_PAGE|PREV_PAGE|MOVE_START|MOVE_END|MOVE_BOL|MOVE_EOL|DEL_CHAR|DEL_LEFT\
+|DEL_WORD|DEL_LINE|UNDEL_CHAR|UNDEL_WORD|UNDEL_LINE|GET_HELP|REPAINT\
+|EXIT_UPDATE|"
+
+# The following values are returned when 
+# the corresponding escape sequence is entered
+
+define	K_BASE		256		# Smallest value
+
+define	K_UP		256		# Move up one row
+define	K_DOWN		257		# Move down one row
+define	K_RIGHT		258		# Move right one column
+define	K_LEFT		259		# Move left one column
+define	K_NEXTW		260		# Move forwards one word
+define	K_PREVW		261		# Move backwards one word
+define	K_NEXTP		262		# Move forwards one window
+define	K_PREVP		263		# Move backwards one window
+define	K_HOME		264		# Move to first row
+define	K_END		265		# Move to last row
+define	K_BOL		266		# Move to first column in row
+define	K_EOL		267		# Move to last column in row
+define	K_DEL		268		# Delete character underneath cursor
+define	K_BS		269		# Delete character to left of cursor
+define	K_DWORD		270		# Delete previous word
+define	K_DLINE		271		# Delete entire line
+define	K_UNDCHR	272		# Undelete character
+define	K_UNDWRD	273		# Undelete word
+define	K_UNDLIN	274		# Undelete line
+define	K_HELP		275		# Display help window
+define	K_PAINT		276		# Force window redraw
+define	K_EXIT		277		# Exit procedure
+
+# Codes used by winstat to retrieve window fields
+
+define	W_TOP		1		# Window's top row                  
+define	W_LEFT		2		# Window's leftmost column          
+define	W_BOT		3		# Window's bottom row               
+define	W_RIGHT		4		# Window's rightmost column         
+define	W_CURROW	5		# Cursor row relative to window     
+define	W_CURCOL	6		# Cursor column relative to window  
+define	W_CLEAR		7		# Redraw window when refreshed      
+define	W_LEAVE		8		# Leave cursor after redraw         
+define	W_SCROLL	9		# Window will scroll                
+define	W_HIDDEN	10		# Window is hidden                  
+define	W_BOXED		11		# Window is boxed                   
+define	W_ATRIB		12		# Character attribute of window
+
+# Direction to move rectangle used by ps_slide and wslide
+
+define	DIR_UP		0
+define	DIR_DOWN	1
+define	DIR_LEFT	2
+define	DIR_RIGHT	3
+
+# Character attributes 
+
+define	A_NORM		0
+define	A_STANDOUT	128
+
+# Definition of rectangle
+
+define	RSIZE		4
+define	RTOP		$1[1]
+define	RLEFT		$1[2]
+define	RBOT		$1[3]
+define	RRIGHT		$1[4]
+
+# Macros used to manipulate rectangles
+
+define	RWIDTH		($1[4] - $1[2] + 1)
+define	RHEIGHT		($1[3] - $1[1] + 1)
+define	RASG		{$1[1] = $2; $1[2] = $3; $1[3] = $4; $1[4] = $5}
+define	RCPY		{$1[1]=$2[1]; $1[2]=$2[2]; $1[3]=$2[3]; $1[4]=$2[4]}
+
+# Constant used to create a rectangle much greater than screen size
+
+define	GIANT		9999
diff --git a/pkg/utilities/nttools/tedit/display/curses/README b/pkg/utilities/nttools/tedit/display/curses/README
new file mode 100644
index 00000000..67220c91
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/README
@@ -0,0 +1,387 @@
+The procedures in this directory are an implementation of the Unix
+curses library, with a few deletions and extensions. The procedures
+have been modified to work in an SPP environment instead of a C
+environment. Unlike the C routines, they do not return an error status
+as a function value. In fact, very few of the procedures call error,
+instead they try to do the most reasonable thing. The mv macros are
+not implemented, instead the program should call move() followed by
+the appropriate procedure. Formatted reads and writes to windows are
+not supported, all reading and writing is done using strings.
+Subwindows are also not supported. The user program does not have
+direct access to the window structure, the function winstat() is
+provided to read fields from the structure. In order to make
+customization of windows easier, each window can have an input
+function and data structure bound to it. The functions bindstruct()
+and getstruct() are provided for this purpose. The forms directory
+gives several examples of binding functions and data structures to a
+window. Two other procedures hidewin() and showwin() are provided to
+hide a window which is currently displayed on the terminal and to
+redisplay it.
+
+The procedure initscr() should be called before using any of the
+procedures in the curses directory. It initializes the terminal and
+creates the first window (referred to as STDSCR), which covers the
+terminal scrren. The procedure endwin() should be called at the end of
+the user program. It closes any windows which are still open and
+resets the terminal. Windows are created by calling newwin() and
+destroyed by calling delwin(). The terminal cursor is moved by the
+procedure move(). Text is written into a window by the procedures
+addch() and addstr(). Text is read from the keyboard and displayed in
+the window by the procedures getch() and getstr(). Changes to the
+window are not displayed until refresh() is called. Fuller
+explanations of these and the other curses procedures is given below.
+
+Many procedures in this directory exist in two forms. The first form
+uses the default window, STDSCR. This window is created when initscr()
+is called and covers the entire screen. The second form uses any
+window and has an extra argument to specify which window to use. The
+names of the two forms are the same, except that the second has the
+letter "w" as the first character. For example, addch() adds a
+character to STDSCR, while waddch() adds a character to any window.
+The macro STDSCR is defined in <curses.h>, so it can be used by your
+program. Many of the procedures in this library operate relative to
+the current cursor position in that window. To set the cursor
+position, the program should call move() or wmove() first. Window
+coordinates are passed row first, column second. The upper left corner
+of a window is (1,1).
+
+procedure addch (ch)
+procedure waddch (win, ch)
+
+pointer	win		# i: Window descriptor
+char	ch		# i: Character to add
+
+This procedure adds a single character at the current cursor position.
+The character currently at that position is overwritten. A linefeed
+character clears the rest of the line and moves the cursor to the next
+row. A tab character inserts the apropriate number of spaces at the
+current position. A carriage return moves the cursor to the first
+character on the current line. A backspace moves the cursor one column
+left unless the cursor is in the first column of the window.
+
+procedure addstr (str)
+procedure waddstr (win, str)
+
+int	win		# i: Window descriptor
+char	str[ARB]	# i: String to add to window
+
+This procedure adds a string at the current cursor position. If part
+of the string extends beyond the right edge of the window, it will be
+truncated. Special characters have the same meaning as those in addch().
+The window will scroll if scrolling is enabled.
+
+procedure bindstruct (func, structure)
+procedure wbindstruct (win, func, structure)
+
+int	win		# i: Window descriptor
+extern	func		# i: Input function
+pointer	structure	# i: Data structure
+
+This procedure binds an input function and a data structure to a
+window. The data structure is used by the input function to maintain
+the window's state. The input function is called by getch() and
+getstr() to process keyboard input instead of the default procedure,
+editfn(). The input function should have the following calling sequence.
+
+procedure func (win, str, maxch)
+
+int	win		#  i: Window descriptor
+char	str[ARB]	# io: String containing line
+int	maxch		#  i: Maximum line length
+
+When writing this procedure, the default procedure, editfn() should be
+used as a guide. The procedure should update the terminal screen,
+string, and data structure appropriately. When the procedure gets a
+character indicating input is complete, the character should be pushed
+back on the input stream with the procedure k_pushbk(). Then the
+procedure should return the string to the calling program. The calling
+program can also call getstruct() to retrieve the contents of the data
+structure.
+
+procedure box (win, vert, hor)
+
+int	win		# i: Window descriptor
+char	vert		# i: Character used for vertical side of window
+char	hor		# i: Character used for horizontal side of window
+
+This procedure draws a box around a window. The box is inside the
+original area of the window, which is then reduced so that subsequent
+writes to the window will not overwrite the box.
+
+procedure clear ()
+procedure wclear (win)
+
+int	win		# i: Window descriptor
+
+This procedure clears a window. It is equivalent to calling clearok()
+with flag set to true, followed by calling erase().
+
+procedure clearok (win, flag)
+
+int	win		# i: Window descriptor
+bool	flag		# i: Flag value
+
+This procedure sets the clear flag for a window. If the clear flag is
+true, the entire window will be redrawn when refresh is called.
+
+procedure clrtobot ()
+procedure wclrtobot (win)
+
+int	win		# i: Window descriptor
+
+This procedure clears a window from the current cursor position to the
+end of the window.
+
+procedure clrtoeol ()
+procedure wclrtoeol (win)
+
+int	win		# i: Window descriptor
+
+This procedure clears a window from the current cursor position to the
+end of the line.
+
+procedure delch ()
+procedure wdelch (win)
+
+pointer	win		# i: Window descriptor
+
+This procedure deletes the character at the current cursor poisition
+in the window. Subsequent characters on the line are moved to the left
+by one.
+
+procedure deleteln ()
+procedure wdeleteln (win)
+
+pointer	win		# i: Window descriptor
+
+This procedure deletes the current line in the window. Subsequent
+lines in the window slide up by one and the last line is left blank.
+
+procedure delwin (win)
+
+This procedure deletes a window created by newwin(). The terminal area
+that was under the window before it was created is redisplayed. The
+data structure associated with the window is freed, including the data
+structure bound by bindstruct(). STDSCR cannot be deleted by this
+procedure, it is deleted by endwin().
+
+procedure echo ()
+procedure noecho ()
+
+These procedures turn character echoing on and off. Character echoing
+is on when the terminal is initialized. If character ecoing is off,
+procedures addch() and addstr() will return immediately after being
+called. 
+
+procedure endwin ()
+
+This procedure should be called at the end of a program which uses the
+curses library. It deletes all windows that are still open (including
+STDSCR) and resets the terminal.
+
+procedure erase ()
+procedure werase (win)
+
+int	win		# i: Window descriptor
+
+This procedure erases a window, filling it with blanks.
+
+int procedure getch ()
+int procedure wgetch (win)
+
+This procedure reads a single character from the keyboard and adds it
+to the window at the current cursor position. If an input function
+has been bound to the window by bindstruct(), the input procedure is
+called to process the character. The procedure returns after calling
+the input function once, regardless of the value of done. The returned
+character is the first character in the string output by the input
+function. 
+
+procedure getstr (str, maxch)
+procedure wgetstr (win, str, maxch)
+
+pointer	win		# i: Window descriptor
+char	str[ARB]	# o: String that was read from the keyboard
+int	maxch		# i: Maximum string length
+
+This procedure reads a string from the keyboard and displays it in the
+window at the current cursor position. Editing keys are recognized;
+however, editing is limited to a single line and keys which change the
+current line cause the procedure to exit. The default behaviour of
+this procedure can be modified by binding an input function to the
+window with bindstruct().
+
+procedure getstruct (structure)
+procedure wgetstruct (win, structure)
+
+int	win		# i: Window descriptor
+pointer	structure	# o: Data structure
+
+This procedure returns a pointer to the data structure that was bound 
+to the window by bindstruct().
+
+procedure getyx (win, row, col)
+
+int	win		# i: Window descriptor
+int	row		# o: Cursor row
+int	col		# o: Cursor column
+
+This procedure returns the location of the cursor in a window. The
+top left corner of a window is (1,1).
+
+procedure hidewin (win)
+
+int	win		# i: Window descriptor
+
+This procedure hides a window that is currently displayed on the
+screen. The terminal area under the window is displayed after the
+window is hidden. The window can be redisplayed by calling showwin().
+
+char procedure inch ()
+char procedure winch (win)
+
+pointer	win		# i: Window descriptor
+
+This procedure returns the character at the current cursor location in
+the window.
+
+procedure initscr ()
+
+This procedure initializes the terminal and creates the default
+window, STDSCR. It should be called before any other procedure in the
+curses library is called.
+
+procedure insch (ch)
+procedure winsch (win, ch)
+
+pointer	win		# i: Window descriptor
+char	ch		# i: Character to insert
+
+This procedure inserts a character at the current cursor position.
+
+procedure insertln ()
+procedure winsertln (win)
+
+pointer	win		# i: Window descriptor
+
+This procedure inserts a blank line on the current row. The current
+line and subsequent lines move down by one and the last line in the
+window is deleted.
+
+procedure leaveok (win, flag)
+
+int	win		# i: Window descriptor
+bool	flag		# i: Flag value
+
+This procedure sets the leave flag for a window. If the leave flag
+is true, procedures that modify the screen will not move the terminal
+cursor to the window's current cursor position when the window is
+modified. If it is false, the terminal cursor position will be moved
+when the window is updated. When a window is created, the leave flag
+is set to false.
+
+procedure move (row, col)
+procedure wmove (win, row, col)
+
+int	win		# i: Window descriptor
+int	row		# i: Cursor row
+int	col		# i: Cursor column
+
+This procedure moves the cursor position in a window. Coordinates are
+relative to those of the window, and the top left corner of a window
+has the coordinates (1,1)
+
+procedure mvwin (win, row, col)
+
+int	win		# i: Window descriptor
+int	row		# i: New top row of window
+int	col		# i: New left column of window
+
+This position moves the position of a window on the screen. The
+position of a window is the position of the top left corner on the
+terminal screen. If the new corrdinates would place part of the window
+off the screen, the coordinates are modified so that the window stays
+on the screen.
+
+int procedure newwin (nrows, ncols, row, col)
+
+int	nrows		# i: Window height
+int	ncols		# i: Window width
+int	row		# i: Top row of window
+int	col		# i: Leftmost column of window
+
+This procedure creates a new window. The returned value is the window
+descriptor, which is used as an argument to the other window
+functions. The window position is relative to the top left corner of
+the terminal, which has the coordinates (1,1). If part of the window
+is off the terminal screen, it will be placed and sized so that the
+entire window fits on the screen.
+
+procedure refresh ()
+procedure wrefresh (win)
+
+int	win		# i: Window descriptor
+
+This procedure causes all changes to a window that have been made by
+other calls in this library to be displayed on the terminal screen. If
+the clear flag has been set to yes by clearok(), the window will be
+cleared and redrawn.
+
+procedure savewin ()
+procedure nosavewin ()
+
+These procedures set and unset the save flag. If the save flag is set,
+whenever a window is created, the area on the terminal screen under is
+saved in a buffer so it can be restored when the window is hidden or
+deleted. If a window will exist throughout the life of a program, the
+save flag can be unset by calling nosavewin() before creating the
+window so that the memory used to hold the buffer will not be wasted.
+The save flag is initially set to yes so that all windows have
+associated screen buffers by default.
+
+procedure scrollok (win, flag)
+
+int	win		# i: Window descriptor
+bool	flag		# i: Flag value
+
+If the scroll flag is set to true, a window will scroll when an
+attempt is made to write beyond the last line of a window. If the
+scroll flag is false, the last line of the window will be overwritten.
+When a new window is created, the scroll flag is set to false.
+
+procedure showwin (win)
+
+int	win		# i: Window descriptor
+
+This procedure shows a window that was previously hidden by a call to
+hidewin(). If the window is not hidden, this procedure has no effect.
+
+procedure standout ()
+procedure standend ()
+procedure wstandout (win)
+procedure wstandend (win)
+
+int	win		# i: Window descriptor
+
+These procedures modify the character attribute of a window. Calling
+standout() causes all characters written to the window after the call
+to be written in standout mode. Calling standend() causes all
+characacters to be written in normal mode. When a window is created,
+the character attribute of the window is normal.
+
+procedure wdimen (win, nrows, ncols)
+
+int	win		# i: Window descriptor
+int	nrows		# o: Window height
+int	ncols		# o: Window width
+
+This procedure returns the height and width of a window.
+
+int procedure winstat (win, what)
+
+int	win		# i: Window descriptor
+int	what		# i: Field to retrieve
+
+This procedure returns a field from the window descriptor. The field
+to retrieve is given by a symbolic constant. These constants are
+listed in the include file <curses.h>.
diff --git a/pkg/utilities/nttools/tedit/display/curses/addch.x b/pkg/utilities/nttools/tedit/display/curses/addch.x
new file mode 100644
index 00000000..f08085e4
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/addch.x
@@ -0,0 +1,30 @@
+include "../curses.h"
+
+# ADDCH -- Add a character to the standard screen
+#
+# B.Simon	01-Oct-90	Original
+
+procedure addch (ch)
+
+char	ch		# i: Character to add
+#--
+char	str[1]
+
+begin
+	str[1] = ch
+	str[2] = EOS
+	call waddstr (STDSCR, str)
+end
+
+procedure waddch (win, ch)
+
+int	win		# i: Window descriptor
+char	ch		# i: Character to add
+#--
+char	str[1]
+
+begin
+	str[1] = ch
+	str[2] = EOS
+	call waddstr (win, str)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/addstr.x b/pkg/utilities/nttools/tedit/display/curses/addstr.x
new file mode 100644
index 00000000..f675d151
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/addstr.x
@@ -0,0 +1,157 @@
+include <ctype.h>
+include "../curses.h"
+include "window.h"
+
+define	TABSTOP		8
+
+# ADDSTR -- Add a string to a window
+#
+# B.Simon	02-Oct-90	Original
+
+procedure addstr (str)
+
+char	str[ARB]	# i: String to add to window
+#--
+
+begin
+	call waddstr (STDSCR, str)
+end
+
+procedure waddstr (win, str)
+
+int	win		# i: Window descriptor
+char	str[ARB]	# i: String to add to window
+#--
+include "window.com"
+
+bool	moved
+int	row, col, nrows, ncols, ic, jc, mxchar, itab
+pointer	sp, line, pwin
+
+begin
+	pwin = warray[win]
+
+	# Don't print anything if echoing is turned off
+
+	if (echoed == NO)
+	    return
+
+	# Allocate an array to hold the string to print
+
+	call smark (sp)
+	call salloc (line, SZ_LINE, TY_CHAR)
+
+	# Get the current cursor position and window size
+
+	row = WIN_CURROW(pwin)
+	col = WIN_CURCOL(pwin)
+	ncols = WIN_WIDTH(pwin)
+	nrows = WIN_HEIGHT(pwin)
+
+	ic = 0
+	jc = 0
+	moved = false
+
+	repeat {
+	    ic = ic + 1
+
+	    # If the character is printable, just copy it to the array
+	    # The array will be printed when the EOS is read
+
+	    if (IS_PRINT(str[ic])) {
+		col = col + 1
+		Memc[line+jc] = str[ic]
+		jc = jc + 1
+
+	    } else {
+		# Print any characters in the array before handling
+		# the non-printing character
+
+		Memc[line+jc] = EOS
+		if (jc > 0) {
+		    jc = 0
+
+		    mxchar = ncols - WIN_CURCOL(pwin) + 1
+		    call ps_write (WIN_TOP(pwin)+WIN_CURROW(pwin)-1, 
+				   WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1, 
+				   mxchar, Memc[line], WIN_ATRIB(pwin))
+
+		    WIN_CURCOL(pwin) = col
+		    WIN_CURROW(pwin) = row
+
+		    # Check for writing past the edge of the window
+		    # and scrolling
+
+		    if (col > ncols) {
+			col = 1
+			row = row + 1
+			moved = true
+
+			if (row > nrows) {
+			    row = nrows
+			    if (WIN_SCROLL(pwin) == YES) 
+				call wslide (WIN_RECT(pwin), DIR_UP, 1)
+			}
+		    }
+		}
+
+		# Some non-printing characters require special action
+		# Others are mapped to printing characters and written
+		# to the array
+
+		switch (str[ic]) {
+		case EOS:
+		    ;
+
+		case '\n':
+		    call wclrtoeol (win)
+		    col = 1
+		    row = row + 1
+		    moved = true
+
+		    # Scroll window if we've hit the last row
+		   
+		    if (row > nrows) {
+			row = nrows
+			if (WIN_SCROLL(pwin) == YES)
+			    call wslide (WIN_RECT(pwin), DIR_UP, 1)
+		    }
+
+		case '\t':
+		    do itab = 1, TABSTOP - mod (col, TABSTOP) {
+			Memc[line+jc] = ' '
+			jc = jc + 1
+			col = col + 1
+		    }
+
+		case '\r':
+		    if (col > 1) {
+			col = 1
+			moved = true
+		    }
+
+		case '\010':
+		    if (col > 1) {
+			col = col - 1
+			moved = true
+		    }
+
+		default:
+		    Memc[line+jc] = ' '
+		    col = col + 1
+		    jc = jc + 1
+		}
+	    }
+
+	    # Move cursor, as required
+
+	    if (moved) {
+		moved = false
+		call wmove (win, row, col)
+	    }
+
+	} until (str[ic] == EOS)
+
+	call sfree (sp)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/bindstruct.x b/pkg/utilities/nttools/tedit/display/curses/bindstruct.x
new file mode 100644
index 00000000..f9502c3d
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/bindstruct.x
@@ -0,0 +1,35 @@
+include "../curses.h"
+include "window.h"
+
+# BINDSTRUCT -- Bind a data structure and function to a window
+
+procedure bindstruct (func, structure)
+
+extern	func		# i: Input function
+pointer	structure	# i: Data structure
+#--
+
+begin
+	call wbindstruct (STDSCR, func, structure)
+end
+
+procedure wbindstruct (win, func, structure)
+
+int	win		# i: Window descriptor
+extern	func		# i: Input function
+pointer	structure	# i: Data structure
+#--
+include "window.com"
+
+pointer	pwin
+pointer	locpr()
+
+begin
+	pwin = warray[win]
+	if (WIN_DATA(pwin) != NULL)
+	    call mfree (WIN_DATA(pwin), TY_STRUCT)
+
+	WIN_FUNC(pwin) = locpr (func)
+	WIN_DATA(pwin) = structure
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/box.x b/pkg/utilities/nttools/tedit/display/curses/box.x
new file mode 100644
index 00000000..06eadbcd
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/box.x
@@ -0,0 +1,56 @@
+include "../curses.h"
+include "window.h"
+
+# BOX -- Draw a box around a window
+#
+# B.Simon	01-Oct-90	Original
+
+procedure box (win, vert, hor)
+
+int	win		# i: Window descriptor
+char	vert		# i: Character used for vertical side of window
+char	hor		# i: Character used for horizontal side of window
+#--
+include "window.com"
+
+int	vcode, hcode, rect[RSIZE]
+pointer	pwin
+
+begin
+	# Don't box window if either dimension < 3 or window is already boxed
+
+	pwin = warray[win]
+	if (WIN_HEIGHT(pwin) < 3 || WIN_WIDTH(pwin) < 3 || 
+	    WIN_BOXED(pwin) == YES)
+	    return
+
+	# Draw box
+
+	vcode = vert
+	hcode = hor
+
+	RASG(rect, WIN_TOP(pwin), WIN_LEFT(pwin), 
+	     WIN_TOP(pwin), WIN_RIGHT(pwin))
+	call ps_fill (rect, hcode, WIN_ATRIB(pwin))
+
+	RASG(rect, WIN_BOT(pwin), WIN_LEFT(pwin), 
+	     WIN_BOT(pwin), WIN_RIGHT(pwin))
+	call ps_fill (rect, hcode, WIN_ATRIB(pwin))
+
+	RASG(rect, WIN_TOP(pwin), WIN_LEFT(pwin), 
+	     WIN_BOT(pwin), WIN_LEFT(pwin))
+	call ps_fill (rect, vcode, WIN_ATRIB(pwin))
+
+	RASG(rect, WIN_TOP(pwin), WIN_RIGHT(pwin), 
+	     WIN_BOT(pwin), WIN_RIGHT(pwin))
+	call ps_fill (rect, vcode, WIN_ATRIB(pwin))
+
+	# Reduce size of window's rectangle and mark as boxed
+
+	WIN_TOP(pwin) = WIN_TOP(pwin) + 1
+	WIN_LEFT(pwin) = WIN_LEFT(pwin) + 1
+	WIN_BOT(pwin) = WIN_BOT(pwin) - 1
+	WIN_RIGHT(pwin) = WIN_RIGHT(pwin) - 1
+	WIN_BOXED(pwin) = YES
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/clear.x b/pkg/utilities/nttools/tedit/display/curses/clear.x
new file mode 100644
index 00000000..7b69f63d
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/clear.x
@@ -0,0 +1,35 @@
+include "../curses.h"
+include "window.h"
+
+# CLEAR -- Clear window and force a redraw of the screen
+#
+# B.Simon	01-Oct-90	Original
+
+procedure clear ()
+
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[STDSCR]
+	WIN_CLEAR(pwin) = YES
+
+	call werase (STDSCR)
+end
+
+procedure wclear (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[win]
+	WIN_CLEAR(pwin) = YES
+
+	call werase (win)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/clearok.x b/pkg/utilities/nttools/tedit/display/curses/clearok.x
new file mode 100644
index 00000000..9d3372a9
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/clearok.x
@@ -0,0 +1,21 @@
+include "window.h"
+
+# CLEAROK -- Set the clear flag for a window
+#
+# B.Simon	01-Oct-90	Original
+
+procedure clearok (win, flag)
+
+int	win		# i: Window descriptor
+bool	flag		# i: Flag value
+#--
+include "window.com"
+
+pointer	pwin
+int	btoi()
+
+begin
+	pwin = warray[win]
+	WIN_CLEAR(pwin) = btoi (flag)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/clrtobot.x b/pkg/utilities/nttools/tedit/display/curses/clrtobot.x
new file mode 100644
index 00000000..da60b805
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/clrtobot.x
@@ -0,0 +1,56 @@
+include "../curses.h"
+include "window.h"
+
+# CLRTOBOT -- Clear window to bottom
+#
+# B.Simon	28-Sep-90	Original
+
+procedure clrtobot ()
+
+#--
+
+begin
+	call wclrtobot (STDSCR)
+end
+
+procedure wclrtobot (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	blank, rect[RSIZE]
+pointer	pwin
+
+data	blank	/ ' ' /
+
+begin
+	pwin = warray[win]
+
+	# First line may be partial, so it must be handled separately
+
+	if (WIN_CURCOL(pwin) == 1) {
+	    RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	} else {
+	    RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	    RLEFT(rect) = WIN_LEFT(pwin) + WIN_CURCOL(pwin) - 1
+	    RBOT(rect) = RTOP(rect)
+	    RRIGHT(rect) = WIN_RIGHT(pwin)
+	    call ps_fill (rect, blank, WIN_ATRIB(pwin))
+
+	    RTOP(rect) = min (RBOT(rect), RTOP(rect)+1)
+	}
+
+	# Remaining lines form a rectangle
+
+	RLEFT(rect) = WIN_LEFT(pwin)
+	RBOT(rect) = WIN_BOT(pwin)
+	RRIGHT(rect) =  WIN_RIGHT(pwin)
+
+	call ps_fill (rect, blank, WIN_ATRIB(pwin))
+	if (WIN_LEAVE(pwin) == NO) {
+	    call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+			    WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/clrtoeol.x b/pkg/utilities/nttools/tedit/display/curses/clrtoeol.x
new file mode 100644
index 00000000..2c42a64e
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/clrtoeol.x
@@ -0,0 +1,45 @@
+include "../curses.h"
+include "window.h"
+
+# CLRTOEOL -- Clear window to end of current line
+#
+# B.Simon	01-Oct-90	Original
+
+procedure clrtoeol ()
+
+#--
+
+begin
+	call wclrtoeol (STDSCR)
+end
+
+procedure wclrtoeol (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	blank, rect[RSIZE]
+pointer	pwin
+
+data	blank	/ ' ' /
+
+begin
+	pwin = warray[win]
+
+	# Construct the rectangle consisting of the remainder of the
+	# current line and fill with blanks
+
+	RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	RLEFT(rect) = WIN_LEFT(pwin) + WIN_CURCOL(pwin) - 1
+	RBOT(rect) = RTOP(rect)
+	RRIGHT(rect) = WIN_RIGHT(pwin)
+	call ps_fill (rect, blank, WIN_ATRIB(pwin))
+
+	# Move the cursor to the new end of the line
+
+	if (WIN_LEAVE(pwin) == NO)
+	    call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+			    WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/delch.x b/pkg/utilities/nttools/tedit/display/curses/delch.x
new file mode 100644
index 00000000..a58ed17d
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/delch.x
@@ -0,0 +1,41 @@
+include "../curses.h"
+include "window.h"
+
+# DELCH -- Delete a character from the window
+
+procedure delch ()
+
+# B.Simon	01-Oct-90	Original
+
+#--
+
+begin
+	call wdelch (STDSCR)
+end
+
+procedure wdelch (win)
+
+pointer	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	rect[RSIZE]
+pointer pwin
+
+begin
+	pwin = warray[win]
+
+	# Construct rectangle to slide
+
+	RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	RLEFT(rect) = WIN_LEFT(pwin) + WIN_CURCOL(pwin)
+	RBOT(rect) = RTOP(rect)
+	RRIGHT(rect) = WIN_RIGHT(pwin)
+
+	call wslide (rect, DIR_LEFT, 1)
+
+	if (WIN_LEAVE(pwin) == NO)
+	    call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+			    WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/deleteln.x b/pkg/utilities/nttools/tedit/display/curses/deleteln.x
new file mode 100644
index 00000000..f5afa1dd
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/deleteln.x
@@ -0,0 +1,41 @@
+include "../curses.h"
+include "window.h"
+
+# DELETELN -- Delete a line from the window
+#
+# B.Simon	01-Oct-90	Original
+
+procedure deleteln ()
+
+#--
+
+begin
+	call wdeleteln (STDSCR)
+end
+
+procedure wdeleteln (win)
+
+pointer	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	rect[RSIZE]
+pointer pwin
+
+begin
+	pwin = warray[win]
+
+	# Construct rectangle to slide
+
+	RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	RLEFT(rect) = WIN_LEFT(pwin)
+	RBOT(rect) = WIN_BOT(pwin)
+	RRIGHT(rect) = WIN_RIGHT(pwin)
+
+	call wslide (rect, DIR_UP, 1)
+
+	if (WIN_LEAVE(pwin) == NO)
+	    call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+			    WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/delwin.x b/pkg/utilities/nttools/tedit/display/curses/delwin.x
new file mode 100644
index 00000000..5b0db192
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/delwin.x
@@ -0,0 +1,42 @@
+include "../curses.h"
+include "window.h"
+
+# DELWIN --Delete a window
+#
+# B.Simon	28-Sep-90	Original
+
+procedure delwin (win)
+
+int	win		# i: Window descriptor
+#--
+include	"window.com"
+
+int	rect[RSIZE]
+pointer pwin
+
+begin
+	# Can't free the standard screen
+
+	if (win == STDSCR)
+	    return
+
+	pwin = warray[win]
+
+	# Copy the screen under the window back to the terminal
+	# and then free the buffer which held it
+
+	if (WIN_BUFFER(pwin) != NULL) {
+	    call wrect (win, YES, rect)
+	    call putscreen (rect, WIN_BUFFER(pwin))
+	    call freescreen (WIN_BUFFER(pwin))
+	}
+
+	# Free any data structure associated with the window
+
+	if (WIN_DATA(pwin) != NULL)
+	    call mfree (WIN_DATA(pwin), TY_STRUCT)
+
+	call mfree (pwin, TY_STRUCT)
+	warray[win] = NULL
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/echo.x b/pkg/utilities/nttools/tedit/display/curses/echo.x
new file mode 100644
index 00000000..8152aff6
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/echo.x
@@ -0,0 +1,23 @@
+include "window.h"
+
+# ECHO -- Turn character echoing on
+#
+# B.Simon	02-Oct-90	Original
+
+procedure echo ()
+
+#--
+include "window.com"
+
+begin
+	echoed = YES
+end
+
+procedure noecho ()
+
+#--
+include "window.com"
+
+begin
+	echoed = NO
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/endwin.x b/pkg/utilities/nttools/tedit/display/curses/endwin.x
new file mode 100644
index 00000000..87a6c826
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/endwin.x
@@ -0,0 +1,34 @@
+include	"window.h"
+
+# ENDWIN -- Finish up window routines
+#
+# B.Simon	28-Sep-90	Original
+
+procedure endwin ()
+
+#--
+include "window.com"
+
+int	win
+pointer	pwin
+
+begin
+	# Release windows that are still active
+
+	do win = 1, MAXWIN {
+	    pwin = warray[win]
+	    if (pwin != NULL) {
+		if (WIN_BUFFER(pwin) != NULL)
+		    call freescreen (WIN_BUFFER(pwin))
+		if (WIN_DATA(pwin) != NULL)
+		    call mfree (WIN_DATA(pwin), TY_STRUCT)
+		call mfree (pwin, TY_STRUCT)
+	    }
+	}
+
+	# Reset terminal
+
+	call k_end
+	call ps_end
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/erase.x b/pkg/utilities/nttools/tedit/display/curses/erase.x
new file mode 100644
index 00000000..86b529a8
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/erase.x
@@ -0,0 +1,37 @@
+include "../curses.h"
+include "window.h"
+
+# ERASE -- Erase window
+#
+# B.Simon	28-Sep-90	Original
+
+procedure erase ()
+
+#--
+
+begin
+	call werase (STDSCR)
+end
+
+procedure werase (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	blank
+pointer	pwin
+
+data	blank	/ ' ' /
+
+begin
+	pwin = warray[win]
+	call ps_fill (WIN_RECT(pwin), blank, WIN_ATRIB(pwin))
+
+	if (WIN_LEAVE(pwin) == NO) {
+	    call ps_setcur (WIN_TOP(pwin), WIN_LEFT(pwin))
+	    WIN_CURROW(pwin) = 1
+	    WIN_CURCOL(pwin) = 1
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/freescreen.x b/pkg/utilities/nttools/tedit/display/curses/freescreen.x
new file mode 100644
index 00000000..66321451
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/freescreen.x
@@ -0,0 +1,13 @@
+# FREESCREEN -- Free a window's buffer
+#
+# B.Simon	26-Sep-90	Original
+
+procedure freescreen (buffer)
+
+pointer	buffer		# i: Buffer allocated by wgetscr
+#--
+
+begin
+	if (buffer != NULL)
+	    call mfree (buffer, TY_CHAR)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/getch.x b/pkg/utilities/nttools/tedit/display/curses/getch.x
new file mode 100644
index 00000000..9d69c11f
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/getch.x
@@ -0,0 +1,53 @@
+include "../curses.h"
+include "window.h"
+
+# GETCH -- Get a character and display it in the window
+
+int procedure getch ()
+
+# B.Simon	01-Oct-90	Original
+
+#--
+int	wgetch()
+
+begin
+	return (wgetch (STDSCR))
+end
+
+int procedure wgetch (win)
+
+pointer	win		# i: Window descriptor
+#--
+include "window.com"
+
+char	str[1]
+int	ch
+pointer pwin
+
+int	k_get()
+
+begin
+	str[1] = EOS
+	str[2] = EOS
+	pwin = warray[win]
+
+	if (WIN_FUNC(pwin) == NULL) {
+	    call ps_synch
+	    ch = k_get ()
+
+	    if (ch < K_BASE) {
+		str[1] = ch
+		call waddstr (win, str)
+	    }
+
+	} else {
+	    call zcall3 (WIN_FUNC(pwin), win, str, 1)
+	    if (str[1] == EOS) {
+		ch = k_get ()  # get pushed back character
+	    } else {
+	        ch = str[1]
+	    }
+	}
+
+	return (ch)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/getscreen.x b/pkg/utilities/nttools/tedit/display/curses/getscreen.x
new file mode 100644
index 00000000..58020c3f
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/getscreen.x
@@ -0,0 +1,48 @@
+include	"../curses.h"
+
+# GETSCREEN -- Retrieve screen contents into a window's buffer
+#
+# B.Simon	26-Sep-90	Original
+
+procedure getscreen (source, buffer)
+
+int	source[RSIZE]	# i: Rectangle to be retrieved
+pointer	buffer		# o: Buffer (allocated by this routine)
+#--
+
+int	dest[RSIZE]
+int	maxcol, maxrow, ncols, nrows, irow
+pointer	buf, scr
+
+bool	ps_intersect()
+int	ps_width(), ps_height()
+pointer	ps_screen()
+
+begin
+	# Clip the rectangle to the screen boundary
+	# If the rectangle is entirely off the screen, return
+
+	buffer = NULL
+	maxcol = ps_width ()
+	maxrow = ps_height ()
+	if (! ps_intersect (source, maxrow, maxcol, dest))
+	    return
+
+	# Allocate buffer to hold screen contents
+
+	ncols = RWIDTH(dest)
+	nrows = RHEIGHT(dest)
+	call malloc (buffer, ncols*nrows, TY_CHAR)
+
+	# Copy screen contents to buffer
+
+	buf = buffer
+	scr = ps_screen (RTOP(dest), RLEFT(dest))
+
+	do irow = RTOP(dest), RBOT(dest) {
+	    call amovc (Memc[scr], Memc[buf], ncols)
+	    scr = scr + maxcol
+	    buf = buf + ncols
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/getstr.x b/pkg/utilities/nttools/tedit/display/curses/getstr.x
new file mode 100644
index 00000000..6c1d38e6
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/getstr.x
@@ -0,0 +1,317 @@
+include <ctype.h>
+include "../curses.h"
+include "window.h"
+
+# GETSTR -- Get a string from the keyboard and display it in the window
+#
+# B.Simon	12-Dec-90	Original
+# B.Simon	21-Mar-91	Add several new commands
+
+procedure getstr (str, maxch)
+
+char	str[ARB]	# o: String that was read from the keyboard
+int	maxch		# i: Maximum string length
+#--
+int	ch
+
+int	k_get()
+
+begin
+	str[1] = EOS
+	call weditstr (STDSCR, str, maxch)
+
+	ch = k_get ()	# discard pushed back character
+end
+
+procedure wgetstr (win, str, maxch)
+
+pointer	win		# i: Window descriptor
+char	str[ARB]	# o: String that was read from the keyboard
+int	maxch		# i: Maximum string length
+#--
+int	ch
+
+int	k_get()
+
+begin
+	str[1] = EOS
+	call weditstr (win, str, maxch)
+
+	ch = k_get ()	# discard pushed back character
+end
+
+# EDITSTR -- Edit a string while displaying it in the window
+
+procedure editstr (str, maxch)
+
+char	str[ARB]	# u: String to edit
+int	maxch		# i: Maximum string length
+#--
+
+begin
+	call weditstr (STDSCR, str, maxch)
+end
+
+procedure weditstr (win, str, maxch)
+
+pointer	win		# i: Window descriptor
+char	str[ARB]	# u: String to edit
+int	maxch		# i: Maximum string length
+#--
+include "window.com"
+
+pointer pwin
+
+begin
+	# NOTE: It is the reponsibility of the calling program
+	# to make sure that the current window contents and the
+	# string passed to this procedure are in agreement before
+	# this procedure is called.
+
+	pwin = warray[win]
+
+	if (WIN_FUNC(pwin) == NULL) {
+	    call editfn (win, str, maxch)
+	} else {
+	    call zcall3 (WIN_FUNC(pwin), win, str, maxch)
+	}
+
+end
+
+# EDITFN -- Default function to process window input
+
+procedure editfn (win, str, maxch)
+
+int	win		# i: Window descriptor
+char	str[ARB]	# u: String containing line
+int	maxch		# i: Maximum line length
+#--
+int	row, col, ch, ic, jc, mc, nc
+pointer	sp, buffer
+
+int	strlen(), k_get(), winstat()
+
+begin
+	ic = 0
+	nc = strlen (str)
+
+	row = winstat (win, W_CURROW)
+	col = winstat (win, W_CURCOL)
+
+	call smark (sp)
+	call salloc (buffer, SZ_LINE, TY_CHAR)
+	Memc[buffer] = EOS
+
+	while (nc < maxch) {
+
+	    # Read character from keyboard
+
+	    call ps_synch
+	    ch = k_get ()
+
+	    # Check for carriage return
+
+	    if (ch == '\r')
+		break
+
+	    if (IS_PRINT(ch)) {
+		ic = ic + 1
+		nc = nc + 1
+
+		if (ic == nc) {
+		    str[ic] = ch
+		    str[ic+1] = EOS
+		    call waddstr (win, str[ic])
+
+		} else {
+		    call amovc (str[ic], str[ic+1], nc-ic+1)
+
+		    str[ic] = ch
+		    call winsch (win, str[ic])
+		}
+
+	    } else {
+		switch (ch) {
+		case K_UP:  # Move up one field
+		    break
+
+		case K_DOWN:  # Move down one field
+		    break
+
+		case K_RIGHT:  # Move right one column
+		    if (ic < nc) {
+			ic = ic + 1
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_LEFT:  # Move left one column
+		    if (ic > 0) {
+			ic = ic - 1
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_NEXTW:  # Move forwards one word
+		    call mvword_next (str, ic, jc)
+
+		    if (jc > ic) {
+			ic = jc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_PREVW:  # Move backwards one word
+		    call mvword_prev (str, ic, jc)
+
+		    if (jc < ic) {
+			ic = jc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_NEXTP:  # Move forwards one screen
+		    break
+
+		case K_PREVP:  # Move backwards one screen
+		    break
+
+		case K_HOME:  # Move to first field
+		    break
+
+		case K_END:  # Move to last field
+		    break
+
+		case K_BOL:  # Move to first column in line
+		    if (ic > 0) {
+			ic = 0
+			call wmove (win, row, col)
+		    }
+
+		case K_EOL:  # Move to last column in line
+		    if (ic < nc) {
+			ic = nc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_DEL:  # Delete character underneath cursor
+		    if (ic < nc) {
+			mc = strlen (Memc[buffer])
+
+			Memc[buffer+mc] = str[ic+1]
+			Memc[buffer+mc+1] = EOS
+
+			call amovc (str[ic+2], str[ic+1], nc-ic)
+
+			call wdelch (win)
+			nc = nc - 1
+		    }
+
+		case K_BS:  # Delete character to left of cursor
+		    if (ic > 0) {
+			mc = strlen (Memc[buffer])
+
+			call amovc (Memc[buffer], Memc[buffer+1], mc+1)
+			Memc[buffer] = str[ic]
+
+			ic = ic - 1
+			call amovc (str[ic+2], str[ic+1], nc-ic)
+
+			call wmove (win, row, col+ic)
+			call wdelch (win)
+			nc = nc - 1
+		    }
+
+		case K_DWORD:  # Delete next word
+		    call mvword_next (str, ic, jc)
+
+		    if (jc > ic) {
+			mc = strlen (Memc[buffer])
+			call strcpy (str[ic+1], Memc[buffer+mc], jc-ic)
+			call amovc (str[jc+1], str[ic+1], nc-jc+1)
+
+			call wclrtoeol (win)
+			call waddstr (win, str[ic+1])
+			call wmove (win, row, col+ic)
+			nc = nc - (jc - ic)
+		    }
+
+		case K_DLINE:  # Delete entire line
+		    if (nc > 0) {
+			call strcpy (str[ic+1], Memc[buffer], nc-ic)
+			str[ic+1] = EOS
+
+			call wclrtoeol (win)
+			nc = ic
+		    }
+
+		case K_UNDCHR: # Undelete a character
+		    mc = strlen (Memc[buffer])
+		    if (mc > 0) {
+			call amovc (str[ic+1], str[ic+2], nc-ic+1)
+			str[ic+1] = Memc[buffer+mc-1]
+
+			Memc[buffer+mc-1] = EOS
+			call winsch (win, str[ic+1])
+
+			ic = ic + 1
+			nc = nc + 1
+		    }
+
+		case K_UNDWRD: # Undelete a word
+		    mc = strlen (Memc[buffer])
+		    call mvword_prev (Memc[buffer], mc, jc)
+
+		    mc = mc - jc
+		    if (mc > 0) {
+			call amovc (str[ic+1], str[ic+mc+1], nc-ic+1)
+			call amovc (Memc[buffer+jc], str[ic+1], mc)
+
+			Memc[buffer+jc] = EOS
+			call wclrtoeol (win)
+			call waddstr (win, str[ic+1])
+
+			ic = ic + mc
+			nc = nc + mc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_UNDLIN: # Undelete a line
+		    mc = strlen (Memc[buffer])
+		    if (mc > 0) {
+			call amovc (str[ic+1], str[ic+mc+1], nc-ic+1)
+			call amovc (Memc[buffer], str[ic+1], mc)
+
+			Memc[buffer] = EOS
+			call wclrtoeol (win)
+			call waddstr (win, str[ic+1])
+
+			ic = ic + mc
+			nc = nc + mc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_HELP:  # Display help screen
+		    break
+
+		case K_PAINT:  # Redraw the screen
+		    call clearok (STDSCR, true)
+		    call wrefresh (STDSCR)
+		    call wmove (win, row, col+ic)
+
+		case K_EXIT:  # Exit procedure
+		    break
+
+		default: # Any other character
+		    break
+		}
+	    }
+	}
+
+	# Terminate string with EOS and push back character 
+	# that terminated input
+
+	if (nc >= maxch)
+	    ch = EOS
+
+	str[nc+1] = EOS
+	call k_pushbk (ch)
+
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/getstruct.x b/pkg/utilities/nttools/tedit/display/curses/getstruct.x
new file mode 100644
index 00000000..9fbce77e
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/getstruct.x
@@ -0,0 +1,27 @@
+include "../curses.h"
+include "window.h"
+
+# GETSTRUCT -- Get the data structure associated with a window
+
+procedure getstruct (structure)
+
+pointer	structure	# o: Data structure
+#--
+
+begin
+	call wgetstruct (STDSCR, structure)
+end
+
+procedure wgetstruct (win, structure)
+
+int	win		# i: Window descriptor
+pointer	structure	# o: Data structure
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[win]
+	structure = WIN_DATA(pwin)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/getyx.x b/pkg/utilities/nttools/tedit/display/curses/getyx.x
new file mode 100644
index 00000000..d25b9b46
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/getyx.x
@@ -0,0 +1,22 @@
+include "window.h"
+
+# GETYX -- Get the current cursor position
+#
+# B.Simon	02-Oct-90	Original
+
+procedure getyx (win, row, col)
+
+int	win		# i: Window descriptor
+int	row		# o: Cursor row
+int	col		# o: Cursor column
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[win]
+
+	row = WIN_CURROW(pwin)
+	col = WIN_CURCOL(pwin)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/hidewin.x b/pkg/utilities/nttools/tedit/display/curses/hidewin.x
new file mode 100644
index 00000000..f116cffd
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/hidewin.x
@@ -0,0 +1,40 @@
+include	"../curses.h"
+include "window.h"
+
+# HIDEWIN -- Hide a window
+#
+# B.Simon	28-Sep-90	Original
+
+procedure hidewin (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	rect[RSIZE]
+pointer	pwin, buffer
+
+begin
+	pwin = warray[win]
+
+	# Don't do anything if the screen under the window wasn't
+	# saved or the window is already hidden
+
+	if (WIN_BUFFER(pwin) == NULL || WIN_HIDDEN(pwin) == YES)
+	    return
+
+	# Save the current window contents in a buffer,
+	# and restore the screen under the window
+
+	call wrect (win, YES, rect)
+	call getscreen (rect, buffer)
+	call putscreen (rect, WIN_BUFFER(pwin))
+
+	# Place the window contents in its own buffer and
+	# mark the window as hidden
+
+	call freescreen (WIN_BUFFER(pwin))
+	WIN_BUFFER(pwin) = buffer
+	WIN_HIDDEN(pwin) = YES
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/inch.x b/pkg/utilities/nttools/tedit/display/curses/inch.x
new file mode 100644
index 00000000..9d80df3b
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/inch.x
@@ -0,0 +1,49 @@
+include "../curses.h"
+include "window.h"
+
+# INCH -- Get character at current cursor position
+#
+# B.Simon	02-Oct-90	Original
+
+char procedure inch ()
+
+#--
+char	winch()
+
+begin
+	return (winch (STDSCR))
+end
+
+char procedure winch (win)
+
+pointer	win		# i: Window descriptor
+#--
+include "window.com"
+
+char	ch
+int	rect[RSIZE]
+pointer	pwin, buf
+
+begin
+	pwin = warray[win]
+
+	# Create a box containing the character
+
+	if (WIN_BOXED(pwin) == NO) {
+	    RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	    RLEFT(rect) = WIN_LEFT(pwin) + WIN_CURCOL(pwin) - 1
+	} else {
+	    RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin)
+	    RLEFT(rect) = WIN_LEFT(pwin) + WIN_CURCOL(pwin)
+	}
+	RBOT(rect) = RTOP(rect)
+	RRIGHT(rect) = RLEFT(rect)
+
+	# Get the character under the cursor
+
+	call getscreen (rect, buf)
+	ch = Memc[buf]
+	call freescreen (buf)
+
+	return (ch)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/initscr.x b/pkg/utilities/nttools/tedit/display/curses/initscr.x
new file mode 100644
index 00000000..caa6b9fb
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/initscr.x
@@ -0,0 +1,33 @@
+include	"../curses.h"
+include	"window.h"
+
+# INITSCR -- Initialize curses routines
+
+procedure initscr ()
+
+#--
+include "window.com"
+
+int	stdscr
+string	cmdlist	 CMDSTR
+
+int	newwin()
+
+begin
+	# Initialize global variables
+
+	saved = NO
+	echoed = YES
+	call aclri (warray, MAXWIN)
+
+	# Initialize terminal
+
+	call ps_begin
+	call k_begin (cmdlist)
+
+	# Create standard screen (STDSCR)
+
+	stdscr = newwin (GIANT, GIANT, 1, 1)
+	saved = YES
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/insch.x b/pkg/utilities/nttools/tedit/display/curses/insch.x
new file mode 100644
index 00000000..67dc9a7b
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/insch.x
@@ -0,0 +1,51 @@
+include "../curses.h"
+include "window.h"
+
+# INSCH -- Insert a character in the window
+#
+# B.Simon	02-Oct-90	Original
+
+procedure insch (ch)
+
+char	ch		# i: Character to insert
+#--
+
+begin
+	call winsch (STDSCR, ch)
+end
+
+procedure winsch (win, ch)
+
+pointer	win		# i: Window descriptor
+char	ch		# i: Character to insert
+#--
+include "window.com"
+
+char	str[1]
+int	rect[RSIZE]
+pointer	pwin
+
+begin
+
+	pwin = warray[win]
+
+	# Construct rectangle to slide
+
+	RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	RLEFT(rect) = WIN_LEFT(pwin) + WIN_CURCOL(pwin) - 1
+	RBOT(rect) = RTOP(rect)
+	RRIGHT(rect) = WIN_RIGHT(pwin)
+
+	# Slide rectangle
+
+	call wslide (rect, DIR_RIGHT, 1)
+	call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+			WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+
+	# Write new character
+
+	str[1] = ch
+	str[2] = EOS
+	call waddstr (win, str)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/insertln.x b/pkg/utilities/nttools/tedit/display/curses/insertln.x
new file mode 100644
index 00000000..604d860d
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/insertln.x
@@ -0,0 +1,41 @@
+include "../curses.h"
+include "window.h"
+
+# INSERTLN -- Insert a blank line in the window
+#
+# B.Simon	02-Oct-90	Original
+
+procedure insertln ()
+
+#--
+
+begin
+	call winsertln (STDSCR)
+end
+
+procedure winsertln (win)
+
+pointer	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	rect[RSIZE]
+pointer pwin
+
+begin
+	pwin = warray[win]
+
+	# Construct rectangle to slide
+
+	RTOP(rect) = WIN_TOP(pwin) + WIN_CURROW(pwin) - 1
+	RLEFT(rect) = WIN_LEFT(pwin)
+	RBOT(rect) = WIN_BOT(pwin)
+	RRIGHT(rect) = WIN_RIGHT(pwin)
+
+	call wslide (rect, DIR_DOWN, 1)
+
+	if (WIN_LEAVE(pwin) == NO)
+	    call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+			    WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/leaveok.x b/pkg/utilities/nttools/tedit/display/curses/leaveok.x
new file mode 100644
index 00000000..3ce0f208
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/leaveok.x
@@ -0,0 +1,21 @@
+include "window.h"
+
+# LEAVEOK -- Set the leave flag for a window
+#
+# B.Simon	02-Oct-90	Original
+
+procedure leaveok (win, flag)
+
+int	win		# i: Window descriptor
+bool	flag		# i: Flag value
+#--
+include "window.com"
+
+pointer	pwin
+int	btoi()
+
+begin
+	pwin = warray[win]
+	WIN_LEAVE(pwin) = btoi (flag)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/mkpkg b/pkg/utilities/nttools/tedit/display/curses/mkpkg
new file mode 100644
index 00000000..7708de04
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/mkpkg
@@ -0,0 +1,49 @@
+# Update the display library.
+# Author: B.Simon 01-APR-91
+
+$checkout libpkg.a ../../
+$update   libpkg.a
+$checkin  libpkg.a ../../
+$exit
+
+libpkg.a:
+	addch.x		"../curses.h"
+	addstr.x	<ctype.h>  "../curses.h"  "window.h"  "window.com"
+	bindstruct.x	"../curses.h"  "window.h"  "window.com"
+	box.x		"../curses.h"  "window.h"  "window.com"
+	clear.x		"../curses.h"  "window.h"  "window.com"
+	clearok.x	"window.h"  "window.com"
+	clrtobot.x	"../curses.h"  "window.h"  "window.com"
+	clrtoeol.x	"../curses.h"  "window.h"  "window.com"
+	delch.x		"../curses.h"  "window.h"  "window.com"
+	deleteln.x	"../curses.h"  "window.h"  "window.com"
+	delwin.x	"../curses.h"  "window.h"  "window.com"
+	echo.x		"window.h"  "window.com"
+	endwin.x	"window.h"  "window.com"
+	erase.x		"../curses.h"  "window.h"  "window.com"
+	freescreen.x
+	getch.x		"../curses.h"  "window.h"  "window.com"
+	getscreen.x	"../curses.h"
+	getstr.x	"../curses.h"  "window.h"  "window.com"
+	getstruct.x	"../curses.h"  "window.h"  "window.com"
+	getyx.x		"window.h"  "window.com"
+	hidewin.x	"../curses.h"  "window.h"  "window.com"
+	inch.x		"../curses.h"  "window.h"  "window.com"
+	initscr.x	"../curses.h"  "window.h"  "window.com"
+	insch.x		"../curses.h"  "window.h"  "window.com"
+	insertln.x	"../curses.h"  "window.h"  "window.com"
+	leaveok.x	"window.h"  "window.com"
+	move.x		"../curses.h"  "window.h"  "window.com"
+	mvwin.x		"../curses.h"  "window.h"  "window.com"
+	mvword.x
+	newwin.x	"../curses.h"  "window.h"  "window.com"
+	putscreen.x	"../curses.h"
+	refresh.x	"../curses.h"  "window.h"  "window.com"
+	savewin.x	"window.h"  "window.com"
+	scrollok.x	"window.h"  "window.com"
+	showwin.x	"../curses.h"  "window.h"  "window.com"
+	standout.x	"../curses.h"  "window.h"  "window.com"
+	wdimen.x	"../curses.h"  "window.h"  "window.com"
+	winstat.x	"../curses.h"  "window.h"  "window.com"
+	wslide.x	"../curses.h"  
+	;
diff --git a/pkg/utilities/nttools/tedit/display/curses/move.x b/pkg/utilities/nttools/tedit/display/curses/move.x
new file mode 100644
index 00000000..ba3725f7
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/move.x
@@ -0,0 +1,39 @@
+include "../curses.h"
+include "window.h"
+
+# MOVE -- Move the cursor coordinates
+#
+# B.Simon	02-Oct-90	Original
+
+procedure move (row, col)
+
+int	row		# i: Cursor row
+int	col		# i: Cursor column
+#--
+
+begin
+	call wmove (STDSCR, row, col)
+end
+
+procedure wmove (win, row, col)
+
+int	win		# i: Window descriptor
+int	row		# i: Cursor row
+int	col		# i: Cursor column
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[win]
+
+	WIN_CURROW(pwin) = max (1, row)
+	WIN_CURROW(pwin) = min (WIN_CURROW(pwin), WIN_HEIGHT(pwin))
+
+	WIN_CURCOL(pwin) = max (1, col)
+	WIN_CURCOL(pwin) = min (WIN_CURCOL(pwin), WIN_WIDTH(pwin))
+
+	call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+			WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/mvwin.x b/pkg/utilities/nttools/tedit/display/curses/mvwin.x
new file mode 100644
index 00000000..dd7b9d73
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/mvwin.x
@@ -0,0 +1,63 @@
+include	"../curses.h"
+include	"window.h"
+
+# MVWIN -- Move home position of a window
+#
+# B.Simon	28-Sep-90	Original
+
+procedure mvwin (win, row, col)
+
+int	win		# i: Window descriptor
+int	row		# i: New top row of window
+int	col		# i: New left column of window
+#--
+include	"window.com"
+
+bool	shown
+int	rect[RSIZE]
+int	maxrow, maxcol, drow, dcol
+pointer	pwin
+
+int	ps_width(), ps_height()
+
+begin
+	pwin = warray[win]
+
+	# Compute new rectangle containing window
+	# Make sure it is confined to the current screen
+
+	maxrow = ps_height ()
+	maxcol = ps_width ()
+
+	drow = WIN_HEIGHT(pwin) - 1
+	dcol = WIN_WIDTH(pwin) - 1
+
+	RTOP(rect) = max (1, row)
+	if (RTOP(rect) + drow > maxrow)
+	    RTOP(rect) = maxrow - drow
+
+	RLEFT(rect) = max (1, col)
+	if (RLEFT(rect) + dcol > maxcol)
+	    RLEFT(rect) = maxcol - dcol
+
+	RBOT(rect) = RTOP(rect) + drow
+	RRIGHT(rect) = RLEFT(rect) + dcol
+
+	# Move the window by hiding it at its old location
+	# and showing it at the new location
+
+	if (RTOP(rect) != WIN_TOP(pwin) || RLEFT(rect) != WIN_LEFT(pwin)) {
+	    shown = WIN_HIDDEN(pwin) == NO
+	    if (shown)
+		call hidewin (win)
+
+	    WIN_TOP(pwin) = RTOP(rect)
+	    WIN_LEFT(pwin) = RLEFT(rect)
+	    WIN_BOT(pwin) = RBOT(rect)
+	    WIN_RIGHT(pwin) = RRIGHT(rect)
+
+	    if (shown)
+		call showwin (win)
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/mvword.x b/pkg/utilities/nttools/tedit/display/curses/mvword.x
new file mode 100644
index 00000000..6a606e0d
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/mvword.x
@@ -0,0 +1,56 @@
+# MVWORD -- Move one word over in a string
+#
+# B.Simon	20-Mar-91	Original
+
+procedure mvword_next (str, ic, jc)
+
+char	str[ARB]	# i: String containing words
+int	ic		# i: Starting character (0 to strlen(str))
+int	jc		# o: Character before start of next word
+#--
+int	nc
+int	strlen()
+
+begin
+	# Find next blank
+
+	nc = strlen (str)
+	for (jc = min (ic+1, nc); jc < nc; jc = jc + 1) {
+	    if (str[jc] <= ' ')
+		break
+	}
+
+	# Find first non-blank character after blank
+
+	for ( ; jc < nc; jc = jc + 1) {
+	    if (str[jc] > ' ') {
+		jc = jc - 1	# back up to previous blank
+		break
+	    }
+	}
+
+end
+
+procedure mvword_prev (str, ic, jc)
+
+char	str[ARB]	# i: String containing words
+int	ic		# i: Starting character (0 to strlen(str))
+int	jc		# o: Character before start of next word
+#--
+
+begin
+	# Find previous nonblank character
+
+	for (jc = max (ic-1, 0); jc > 0; jc = jc - 1) {
+	    if (str[jc] > ' ')
+		break
+	}
+
+	# Find blank preceding non-blank character
+
+	for ( ; jc > 0; jc = jc - 1) {
+	    if (str[jc] <= ' ')
+		break
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/newwin.x b/pkg/utilities/nttools/tedit/display/curses/newwin.x
new file mode 100644
index 00000000..f2195309
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/newwin.x
@@ -0,0 +1,83 @@
+include "../curses.h"
+include "window.h"
+
+# NEWWIN -- Create a new window
+#
+# B.Simon	28-Sep-90	Original
+
+int procedure newwin (nrows, ncols, row, col)
+
+int	nrows		# i: Window height
+int	ncols		# i: Window width
+int	row		# i: Top row of window
+int	col		# i: Leftmost column of window
+#--
+include "window.com"
+
+int	win, maxrow, maxcol
+pointer	pwin
+
+int	ps_height(), ps_width()
+
+begin
+	# Find an empty slot in the window array and allocate a window
+
+	for (win = 1; win <= MAXWIN; win = win + 1) {
+	   if (warray[win] == NULL)
+		break
+	}
+
+	if (win > MAXWIN)
+	    call error (1, "Cannot create window")
+
+	call malloc (pwin, LEN_WINSTRUCT, TY_STRUCT)
+	warray[win] = pwin
+
+	# Compute the window's rectangle, making sure it is on the screen
+
+	maxrow = ps_height ()
+	maxcol = ps_width ()
+
+	if (row + nrows - 1 > maxrow)
+	    WIN_TOP(pwin) = maxrow - nrows + 1
+	else
+	    WIN_TOP(pwin) = row
+	WIN_TOP(pwin) = max (1, WIN_TOP(pwin))
+
+	if (col + ncols - 1 > maxcol)
+	    WIN_LEFT(pwin) = maxcol - ncols + 1
+	else
+	    WIN_LEFT(pwin) = col
+	WIN_LEFT(pwin) = max (1, WIN_LEFT(pwin))
+
+	WIN_BOT(pwin) = min (maxrow, WIN_TOP(pwin) + nrows - 1)
+	WIN_RIGHT(pwin) = min (maxcol, WIN_LEFT(pwin) + ncols - 1)
+
+	# Set the remaining fields of the window
+
+	WIN_CURROW(pwin) = 1
+	WIN_CURCOL(pwin) = 1
+	WIN_CLEAR(pwin) = NO
+	WIN_LEAVE(pwin) = NO
+	WIN_SCROLL(pwin) = NO
+	WIN_HIDDEN(pwin) = NO
+	WIN_BOXED(pwin) = NO
+	WIN_ATRIB(pwin) = A_NORM
+
+	if (saved == NO) {
+	    WIN_BUFFER(pwin) = NULL
+	} else {
+	    call getscreen (WIN_RECT(pwin), WIN_BUFFER(pwin))
+	}
+
+	WIN_FUNC(pwin) = NULL
+	WIN_DATA(pwin) = NULL
+
+	# Erase the window
+
+	call werase (win)
+
+	# Return window number
+
+	return (win)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/omkpkg b/pkg/utilities/nttools/tedit/display/curses/omkpkg
new file mode 100644
index 00000000..21c3c249
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/omkpkg
@@ -0,0 +1,65 @@
+
+# Update the newdisp library.
+# Author: B.Simon 26-SEP-90
+
+$set XFLAGS = "-fgq $(XFLAGS)"
+$call default
+$exit
+
+debug:
+	$set XFLAGS = "-fgq $(XFLAGS)"
+	$call default
+	;
+
+strip:
+	$delete newdisp.a
+	$call default
+	;
+
+update:
+default:
+	$checkout newdisp.a ../../
+	$update   newdisp.a
+	$checkin  newdisp.a ../../
+	;
+
+newdisp.a:
+	addch.x		<curses.h>
+	addstr.x	<ctype.h>  <curses.h>  "window.h"  "window.com"
+	bindstruct.x	<curses.h>  "window.h"  "window.com"
+	box.x		<curses.h>  "window.h"  "window.com"
+	clear.x		<curses.h>  "window.h"  "window.com"
+	clearok.x	"window.h"  "window.com"
+	clrtobot.x	<curses.h>  "window.h"  "window.com"
+	clrtoeol.x	<curses.h>  "window.h"  "window.com"
+	delch.x		<curses.h>  "window.h"  "window.com"
+	deleteln.x	<curses.h>  "window.h"  "window.com"
+	delwin.x	<curses.h>  "window.h"  "window.com"
+	echo.x		"window.h"  "window.com"
+	endwin.x	"window.h"  "window.com"
+	erase.x		<curses.h>  "window.h"  "window.com"
+	freescreen.x
+	getch.x		<curses.h>  "window.h"  "window.com"
+	getscreen.x	<curses.h>
+	getstr.x	<curses.h>  "window.h"  "window.com"
+	getstruct.x	<curses.h>  "window.h"  "window.com"
+	getyx.x		"window.h"  "window.com"
+	hidewin.x	<curses.h>  "window.h"  "window.com"
+	inch.x		<curses.h>  "window.h"  "window.com"
+	initscr.x	<curses.h>  "window.h"  "window.com"
+	insch.x		<curses.h>  "window.h"  "window.com"
+	insertln.x	<curses.h>  "window.h"  "window.com"
+	leaveok.x	"window.h"  "window.com"
+	move.x		<curses.h>  "window.h"  "window.com"
+	mvwin.x		<curses.h>  "window.h"  "window.com"
+	newwin.x	<curses.h>  "window.h"  "window.com"
+	putscreen.x	<curses.h>
+	refresh.x	<curses.h>  "window.h"  "window.com"
+	savewin.x	"window.h"  "window.com"
+	scrollok.x	"window.h"  "window.com"
+	showwin.x	<curses.h>  "window.h"  "window.com"
+	standout.x	<curses.h>  "window.h"  "window.com"
+	wdimen.x	<curses.h>  "window.h"  "window.com"
+	winstat.x	<curses.h>  "window.h"  "window.com"
+	wslide.x	<curses.h>  
+	;
diff --git a/pkg/utilities/nttools/tedit/display/curses/putscreen.x b/pkg/utilities/nttools/tedit/display/curses/putscreen.x
new file mode 100644
index 00000000..83bb4966
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/putscreen.x
@@ -0,0 +1,84 @@
+include	"../curses.h"
+
+# PUTSCREEN -- Copy buffer back onto screen
+#
+# B.Simon	27-Sep-90	Original
+
+procedure putscreen (source, buffer)
+
+int	source[RSIZE]	# i: Rectangle to be restored
+pointer	buffer		# i: Buffer 
+#--
+
+bool	clear
+int	blank, dest[RSIZE]
+int	maxcol, maxrow, ncols, nrows, icol, jcol, irow
+pointer	sp, buf, ptr, scr
+
+data	blank	/ ' ' /
+
+bool	ps_intersect()
+int	ps_width(), ps_height()
+pointer	ps_screen()
+
+begin
+	# Clip rectangle at screen boundary
+
+	maxcol = ps_width ()
+	maxrow = ps_height ()
+	if (! ps_intersect (source, maxrow, maxcol, dest))
+	    return
+
+	call smark (sp)
+	ncols = RWIDTH(dest)
+	nrows = RHEIGHT(dest)
+
+	# If the buffer pointer is null, 
+	# copy the current screen contents instead
+
+	if (buffer != NULL) {
+	    buf = buffer
+	} else {
+	    call salloc (buf, nrows*ncols, TY_CHAR)
+
+	    ptr = buf
+	    scr = ps_screen (RTOP(dest), RLEFT(dest))
+	    do irow = 1, nrows {
+		call amovc (Memc[scr], Memc[ptr], ncols)
+		scr = scr + maxcol
+		ptr = ptr + ncols
+	    }
+	}
+
+	# See if clearing the screen first would be faster 
+	# if so, do it
+
+	clear = ncols == maxcol
+	if (clear)
+	    call ps_fill (dest, blank, A_NORM)
+
+	# Copy buffer to screen using ps_wrtcells
+
+	do irow = RTOP(dest), RBOT(dest) {
+	    icol = 1
+	    jcol = ncols
+
+	    # If the screen has been cleared, don't write blanks
+
+	    if (clear) {
+		while (icol <= ncols && Memc[buf+icol-1] == blank)
+		    icol = icol + 1
+		while (jcol >= icol && Memc[buf+jcol-1] == blank)
+		     jcol = jcol - 1
+	    }
+
+	    if (jcol >= icol) {
+		call ps_wrtcells (irow, RLEFT(dest)+icol-1, 
+				  Memc[buf+icol-1], jcol-icol+1)
+	    }
+
+	    buf = buf + ncols
+	}
+
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/refresh.x b/pkg/utilities/nttools/tedit/display/curses/refresh.x
new file mode 100644
index 00000000..b65885d8
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/refresh.x
@@ -0,0 +1,42 @@
+include "../curses.h"
+include "window.h"
+
+# REFRESH -- Bring the terminal screen up to date
+#
+# B.Simon	02-Oct-90	Original
+
+procedure refresh ()
+
+#--
+
+begin
+	call wrefresh (STDSCR)
+end
+
+procedure wrefresh (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	rect[RSIZE]
+pointer	pwin
+
+begin
+	pwin = warray[win]
+
+	# If the clear flag is set, redraw the contents of the window
+
+	if (WIN_CLEAR(pwin) == YES) {
+	    WIN_CLEAR(pwin) = NO
+	    call wrect (win, YES, rect)
+	    call putscreen (rect, NULL)
+
+	    if (WIN_LEAVE(pwin) == NO) {
+		call ps_setcur (WIN_TOP(pwin)+WIN_CURROW(pwin)-1,
+				WIN_LEFT(pwin)+WIN_CURCOL(pwin)-1)
+	    }
+	}
+
+	call ps_synch
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/savewin.x b/pkg/utilities/nttools/tedit/display/curses/savewin.x
new file mode 100644
index 00000000..6be4bc72
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/savewin.x
@@ -0,0 +1,23 @@
+include "window.h"
+
+# SAVEWIN -- Save characters under window when a window is created
+#
+# B.Simon	18-Oct-90	Original
+
+procedure savewin ()
+
+#--
+include "window.com"
+
+begin
+	saved = YES
+end
+
+procedure nosavewin ()
+
+#--
+include "window.com"
+
+begin
+	saved = NO
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/scrollok.x b/pkg/utilities/nttools/tedit/display/curses/scrollok.x
new file mode 100644
index 00000000..dfbb3317
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/scrollok.x
@@ -0,0 +1,21 @@
+include "window.h"
+
+# SCROLLOK -- Set the scroll flag for a window
+#
+# B.Simon	02-Oct-90	Original
+
+procedure scrollok (win, flag)
+
+int	win		# i: Window descriptor
+bool	flag		# i: Flag value
+#--
+include "window.com"
+
+pointer	pwin
+int	btoi()
+
+begin
+	pwin = warray[win]
+	WIN_SCROLL(pwin) = btoi (flag)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/showwin.x b/pkg/utilities/nttools/tedit/display/curses/showwin.x
new file mode 100644
index 00000000..66d4c866
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/showwin.x
@@ -0,0 +1,39 @@
+include "../curses.h"
+include "window.h"
+
+# SHOWWIN -- Show a previously hidden window
+#
+# B.Simon	28-Sep-90	Original
+
+procedure showwin (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+int	rect[RSIZE]
+pointer	pwin, buffer
+
+begin
+	pwin = warray[win]
+
+	# Don't do anything if the window is already visible
+
+	if (WIN_HIDDEN(pwin) == NO)
+	    return
+
+	# Save the screen under the window in a buffer
+	# and display the window's contents
+
+	call wrect (win, YES, rect)
+	call getscreen (rect, buffer)
+	call putscreen (rect, WIN_BUFFER(pwin))
+
+	# Copy the screen buffer into the window's buffer and
+	# mark the window as visible
+
+	call freescreen (WIN_BUFFER(pwin))
+	WIN_BUFFER(pwin) = buffer
+	WIN_HIDDEN(pwin) = NO
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/standout.x b/pkg/utilities/nttools/tedit/display/curses/standout.x
new file mode 100644
index 00000000..855dab58
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/standout.x
@@ -0,0 +1,48 @@
+include "../curses.h"
+include "window.h"
+
+# STANDOUT -- Put the window in standout mode
+#
+# B.Simon	02-Oct-90	Original
+
+procedure standout ()
+
+#--
+
+begin
+	call wstandout (STDSCR)
+end
+
+procedure wstandout (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[win]
+	WIN_ATRIB(pwin) = A_STANDOUT
+end
+
+procedure standend ()
+
+#--
+
+begin
+	call wstandend (STDSCR)
+end
+
+procedure wstandend (win)
+
+int	win		# i: Window descriptor
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[win]
+	WIN_ATRIB(pwin) = A_NORM
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/wdimen.x b/pkg/utilities/nttools/tedit/display/curses/wdimen.x
new file mode 100644
index 00000000..55d5a6cf
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/wdimen.x
@@ -0,0 +1,45 @@
+include "../curses.h"
+include "window.h"
+
+# WDIMEN -- Return dimensions of a window
+#
+# B.Simon	11-Oct-90	Original
+
+procedure wdimen (win, nrows, ncols)
+
+int	win		# i: Window descriptor
+int	nrows		# o: Window height
+int	ncols		# o: Window width
+#--
+int	rect[RSIZE]
+
+begin
+	call wrect (win, NO, rect)
+
+	nrows = RHEIGHT(rect)
+	ncols = RWIDTH(rect)
+end
+
+# WRECT -- Get the rectangle containing the window
+
+procedure wrect (win, border, rect)
+
+int	win		# i: Window descriptor
+int	border		# i: Include border in dimensions?
+int	rect[RSIZE]	# o: Rectangle containing window dimensions
+#--
+include "window.com"
+
+pointer	pwin
+
+begin
+	pwin = warray[win]
+	if (border == NO || WIN_BOXED(pwin) == NO) {
+	    RASG(rect, WIN_TOP(pwin), WIN_LEFT(pwin), 
+		 WIN_BOT(pwin), WIN_RIGHT(pwin))
+
+	} else {
+	    RASG(rect, WIN_TOP(pwin)-1, WIN_LEFT(pwin)-1, 
+		 WIN_BOT(pwin)+1, WIN_RIGHT(pwin)+1)
+	}
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/window.com b/pkg/utilities/nttools/tedit/display/curses/window.com
new file mode 100644
index 00000000..74b0a38c
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/window.com
@@ -0,0 +1,7 @@
+# WINDOW.COM -- Global variables used by the curses subroutines
+
+int	saved		# Save rectangle under window when creating
+int	echoed		# Echo characters
+pointer	warray[MAXWIN]	# Array holding window descriptors
+
+common	/window/	saved, echoed, warray
diff --git a/pkg/utilities/nttools/tedit/display/curses/window.h b/pkg/utilities/nttools/tedit/display/curses/window.h
new file mode 100644
index 00000000..41141580
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/window.h
@@ -0,0 +1,28 @@
+# WINDOW.H -- Window structure definitions and macros
+
+define	MAXWIN		50		# Maximum number of windows
+define	LEN_WINSTRUCT	15		# Length of window structure
+
+# definition of window structure
+
+define	WIN_TOP		Memi[$1]	# Window's top row                  
+define	WIN_LEFT	Memi[$1+1]	# Window's leftmost column          
+define	WIN_BOT		Memi[$1+2]	# Window's bottom row               
+define	WIN_RIGHT	Memi[$1+3]	# Window's rightmost column         
+define	WIN_CURROW	Memi[$1+4]	# Cursor row relative to window     
+define	WIN_CURCOL	Memi[$1+5]	# Cursor column relative to window  
+define	WIN_CLEAR	Memi[$1+6]	# Redraw window when refreshed      
+define	WIN_LEAVE	Memi[$1+7]	# Leave cursor after redraw         
+define	WIN_SCROLL	Memi[$1+8]	# Window will scroll                
+define	WIN_HIDDEN	Memi[$1+9]	# Window is hidden                  
+define	WIN_BOXED	Memi[$1+10]	# Window is boxed                   
+define	WIN_ATRIB	Memi[$1+11]	# Character attribute of window     
+define	WIN_BUFFER	Memi[$1+12]	# Holds characters under the window
+define	WIN_FUNC	Memi[$1+13]	# Function bound to window
+define	WIN_DATA	Memi[$1+14]	# Data structure bound to window
+
+# Macros used to manipulate rectangle
+
+define	WIN_RECT	Memi[$1]
+define	WIN_WIDTH	(WIN_RIGHT($1) - WIN_LEFT($1) + 1)
+define	WIN_HEIGHT	(WIN_BOT($1) - WIN_TOP($1) + 1)
diff --git a/pkg/utilities/nttools/tedit/display/curses/winstat.x b/pkg/utilities/nttools/tedit/display/curses/winstat.x
new file mode 100644
index 00000000..e89e3ca6
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/winstat.x
@@ -0,0 +1,51 @@
+include	"../curses.h"
+include "window.h"
+
+# WINSTAT -- Retrieve a field from a window structure
+
+int procedure winstat (win, what)
+
+int	win		# i: Window descriptor
+int	what		# i: Field to retrieve
+#--
+include "window.com"
+
+int	value
+pointer	pwin
+
+string	badcode  "Unrecognized argument to winstat"
+
+begin
+	pwin = warray[win]
+
+	switch (what) {
+	case W_TOP:
+	    value = WIN_TOP(pwin)
+	case W_LEFT:
+	    value = WIN_LEFT(pwin)
+	case W_BOT:
+	    value = WIN_BOT(pwin)
+	case W_RIGHT:
+	    value = WIN_RIGHT(pwin)
+	case W_CURROW:
+	    value = WIN_CURROW(pwin)
+	case W_CURCOL:
+	    value = WIN_CURCOL(pwin)
+	case W_CLEAR:
+	    value = WIN_CLEAR(pwin)
+	case W_LEAVE:
+	    value = WIN_LEAVE(pwin)
+	case W_SCROLL:
+	    value = WIN_SCROLL(pwin)
+	case W_HIDDEN:
+	    value = WIN_HIDDEN(pwin)
+	case W_BOXED:
+	    value = WIN_BOXED(pwin)
+	case W_ATRIB:
+	    value = WIN_ATRIB(pwin)
+	default:
+	    call error (1, badcode)
+	}
+
+	return (value)
+end
diff --git a/pkg/utilities/nttools/tedit/display/curses/wslide.x b/pkg/utilities/nttools/tedit/display/curses/wslide.x
new file mode 100644
index 00000000..b57f68da
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/curses/wslide.x
@@ -0,0 +1,91 @@
+include "../curses.h"
+
+# WSLIDE -- Slide a window's rectangle on the screen
+#
+# B.Simon	25-Sep-90	Original
+
+procedure wslide (source, dir, dist)
+
+int	source[RSIZE]	# i: Rectangle
+int	dir		# i: Direction (from display.h)
+int	dist		# i: Distance (> 0)
+#--
+int	blank, dest[RSIZE], rect[RSIZE]
+int	maxcol, maxrow, ncols, irow, icol
+pointer	sp, buffer, oldscr
+
+data	blank	/ ' ' /
+
+bool	ps_slide(), ps_intersect()
+int	ps_width(), ps_height()
+pointer	ps_screen()
+
+begin
+	# First try to slide the rectangle with ps_slide
+	# (move by using insert and delete control sequences)
+
+	if (ps_slide (source, dir, dist))
+	    return
+
+	# If this doesn't work, redraw the rectangle from
+	# the screen buffer using ps_wrtcells and ps_fill
+
+	# The left and write scrolls must first be written
+	# to a buffer to avoid the problem with array overlap
+	# when updating the screen buffer
+
+	maxcol = ps_width ()
+	maxrow = ps_height ()
+	if (! ps_intersect (source, maxrow, maxcol, dest))
+	    return
+
+	call smark(sp)
+	ncols = RWIDTH(dest)
+	call salloc (buffer, ncols+dist, TY_CHAR)
+
+	switch (dir) {
+	case DIR_UP:
+	    oldscr = ps_screen (RTOP(dest), RLEFT(dest))
+	    do irow = RTOP(dest), RBOT(dest)-dist {
+		call ps_wrtcells (irow-dist, RLEFT(dest), Memc[oldscr], ncols)
+		oldscr = oldscr + maxcol
+	    }
+
+	    RASG (rect, max(RTOP(dest), RBOT(dest)-dist+1), RLEFT(dest),
+		  RBOT(dest), RRIGHT(dest))
+	    call ps_fill (rect, blank, A_NORM)
+
+	case DIR_DOWN:
+	    oldscr = ps_screen (RBOT(dest), RLEFT(dest))
+	    do irow = RBOT(dest), RTOP(dest)+dist, -1 {
+		call ps_wrtcells (irow+dist, RLEFT(dest), Memc[oldscr], ncols)
+		oldscr = oldscr - maxcol
+	    }
+
+	    RASG (rect, RTOP(dest), RLEFT(dest),
+		  min(RBOT(dest), RTOP(dest)+dist-1), RRIGHT(dest))
+	    call ps_fill (rect, blank, A_NORM)
+
+	case DIR_LEFT:
+	    icol = RLEFT(dest) - dist
+	    oldscr = ps_screen (RTOP(dest), RLEFT(dest))
+	    do irow = RTOP(dest), RBOT(dest) {
+		call amovc (Memc[oldscr], Memc[buffer], ncols)
+		call amovkc (blank, Memc[buffer+ncols], ncols-dist)
+
+		call ps_wrtcells (irow, icol, Memc[buffer], ncols)
+		oldscr = oldscr + maxcol
+	    }
+	case DIR_RIGHT:
+	    icol = RLEFT(dest) + dist
+	    oldscr = ps_screen (RTOP(dest), RLEFT(dest))
+	    do irow = RTOP(dest), RBOT(dest) {
+		call amovc (Memc[oldscr], Memc[buffer], ncols)
+
+		call ps_wrtcells (irow, icol, Memc[buffer], ncols)
+		oldscr = oldscr + maxcol
+	    }
+	}
+
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/README b/pkg/utilities/nttools/tedit/display/forms/README
new file mode 100644
index 00000000..cd5feeca
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/README
@@ -0,0 +1,115 @@
+The forms procedures give an example of a display handling library
+built on top of the curses routines.  The forms procedures divide the
+terminal screen into two windows, the form and prompt window.  The
+form window contains the form fields.  Each field in the form occupies
+one line on the screen with the field name on the left side of the
+line and the field value on the right side separated by an equals
+sign. If the number of fields in the form exceed the number of lines
+in the form window, a portion of the fields will be displayed, which
+the user can scroll through. The prompt window is used to read user
+input and display messages.  The first line contains a message,
+typically used to list the possible commands, and the second line
+contains the user input. 
+
+The following two procedures are used to initialize and terminate the
+form handling.  The first procedure, fm_begin, calls the keyboard and
+screen initialization routines, and initializes some global variables.
+The second procedure, fm_end, calls the keyboard and screen
+termination routines.
+
+procedure fm_begin ()
+procedure fm_end ()
+
+The next three procedures handle the form window of the screen. The
+first procedure, fm_mkform(), associates a form with a window.  The
+second procedure, fm_getform(), gets user input from the form. The
+third procedure, fm_endform(), frees the data structure associated
+with the form. 
+
+The first procedure has the following calling sequence:
+
+procedure fm_mkform (win, nfield, lenname, lenvalue, title, ftype, fname)
+
+int	win			# i: Window descriptor
+int	nfield			# i: Number of fields in form
+int	lenname			# i: Declared length of field name
+int	lenvalue		# i: Declared length of field value
+char	title[ARB]		# i: Form title
+int	ftype[ARB]		# i: Data types of fields
+char	fname[lenname,ARB]	# i: Names of fields
+
+The first argument, win, is the window descriptor. It is created by
+calling newwin(), the curses procedure which creates windows. The next
+three arguments are used to compute the size of the structure which
+holds the form. The number of fields can be greater than the height of
+the window, as the window will scroll up and down. But the combined
+length of the field name and value must be less than the width of the
+window, as it will not scroll side to side. The title is a string that
+is printed on the title bar, which is the bottom row of the form. The
+title bar also contains the help key escape sequence.  Three items of
+information are associated with each field: a type, a name, and a
+value. The type is an integer with the same meaning used by the table
+interface: a negative number if the field is a string whose magnitude
+is equal to the maximum string length or a positive integer equal to
+the spp type code if the field is not a string. The type is used to
+check the field value, the procedure will not let the user enter a
+value of a different type. Each field name is printed on a separate
+line of the form followed by an equals sign.
+
+The second procedure, fm_getform, is used to read or display the
+values associated with the fields of the form. It has the following
+calling sequence:
+
+procedure fm_getform (win, redraw, lenvalue, fvalue)
+
+int	win			# i: Window descriptor
+bool	redraw			# i: Redraw screen?
+int	lenvalue		# i: Declared length of field value
+char	fvalue[lenvalue,ARB]	# u: Values in fields
+
+The first argument is the window descriptor of the window associated
+with the form. If the second argument, redraw is set to true, the
+window is redrawn when the procedure begins, otherwise the window is
+unchanged. Redraw should set to true the first time this procedure is
+called. The last argument, fvalue, contains the values that are
+displayed on the form. The user updates these values by editing the
+form on the screen. When the user has finished updating the values,
+the modified values are returned to the calling procedure.
+
+The third procedure frees the form data structure. After freeing the
+data structure, the window should be closed by calling delwin. This
+procedure has the following calling sequence:
+
+procedure fm_clsform (win)
+
+int	win			# i: Window descriptor
+
+
+The next procedure, fm_prompt, handles the prompt window on the screen.
+It has the following calling sequence:
+
+int procedure fm_prompt (commands, message)
+
+char	commands[ARB]	# i: List of commands
+char	message[ARB]	# i: Message to print in prompt area
+
+The list of commands is a string containing the possible commands.  This
+string is formatted like the dictionary in strdic: the first character
+in the string is a command separator which appears between the commands
+in the string.  The message is displayed on the top line of the prompt
+area.  If the message is a null string, the command string is displayed
+instead.  The user enters one of the commands and presses carriage
+return.  The procedure returns the number of the command that the user
+entered if the command is legal, or beeps and displays the list of
+commands if it is not. If the list of commands is a null string, the
+procedure displays the message in the prompt area and returns a value
+of zero without looking for user input.
+
+The last procedure displays the help window. This window covers the
+entire screen. Its argument is the currently active window. It is
+passed so that the cursor can be restored to its previous position
+when the procedure is finished.
+
+procedure fm_help (win)
+
+int	win		# i: Window which currently is active
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmbegin.x b/pkg/utilities/nttools/tedit/display/forms/fmbegin.x
new file mode 100644
index 00000000..8cf78aba
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmbegin.x
@@ -0,0 +1,20 @@
+# FM_BEGIN -- Initialize form handler
+#
+# B.Simon	25-Jan-88	Original
+# B.Simon	11-Oct-90	Rewritten to use curses
+
+procedure fm_begin ()
+
+#--
+include	"forms.com"
+
+begin
+	# Initialize curses
+
+	call initscr	
+
+	# Initialize global variables
+
+	helpwin = 0
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmcheck.x b/pkg/utilities/nttools/tedit/display/forms/fmcheck.x
new file mode 100644
index 00000000..d7fa95d4
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmcheck.x
@@ -0,0 +1,98 @@
+include	<lexnum.h>
+include	<ctype.h>
+include	<mach.h>
+
+# FM_CHECK -- Check a string against a data type
+#
+# B.Simon	28-Mar-91	Modified to check INDEF correctly
+
+bool procedure fm_check (datatype, str)
+
+int	datatype	# i: Datatype to check
+char	str[ARB]	# i: String to be checked
+#--
+bool	match
+double	strval
+int	ic, nc, lextype, strtype
+pointer	sp, temp
+
+string	yorn  "|yes|no|"
+
+bool	streq()
+int	strlen(), lexnum(), ctod(), strdic()
+
+begin
+	# Don't check null strings
+
+	if (str[1] == EOS)
+	    return (true)
+
+	call smark (sp)
+	call salloc (temp, SZ_LINE, TY_CHAR)
+
+	if (datatype < 0)
+
+	    # The only check on string types is that they not exceed their
+	    # maximum length
+
+	    match = strlen (str) <= -(datatype)
+
+	else {
+
+	    # Get the data type of the string
+	    # Reduce this to character, integer or real
+	    # Get the value of the string if it is not character
+
+	    if (streq (str, "INDEF")) {
+		strtype = datatype
+		strval = 0.0
+
+	    } else {
+		ic = 1
+		lextype = lexnum (str, ic, nc)
+
+		for (ic = ic + nc; IS_WHITE(str[ic]); ic = ic + 1)
+		    ;
+		if (str[ic] != EOS)
+		    lextype = LEX_NONNUM
+
+		if (lextype == LEX_HEX || lextype == LEX_NONNUM) {
+		    strtype = TY_CHAR
+		    strval = 0.0
+		} else {
+		    if (lextype == LEX_REAL)
+			strtype = TY_REAL
+		    else
+			strtype = TY_INT
+
+		    ic = 1
+		    nc = ctod (str, ic, strval)
+		    strval = abs (strval)
+		}
+	    }
+
+	    # See if the string matches the expected datatype
+
+	    switch (datatype) {
+	    case TY_BOOL:
+		match = strdic (str, Memc[temp], SZ_LINE, yorn) > 0
+	    case TY_CHAR:
+		match = strlen (str) <= 1
+	    case TY_SHORT:
+		match = strtype == TY_INT && strval <= MAX_SHORT
+	    case TY_INT:
+		match = strtype == TY_INT && strval <= MAX_INT
+	    case TY_LONG:
+		match = strtype == TY_INT && strval <= MAX_LONG
+	    case TY_REAL:
+		match = strtype != TY_CHAR && strval <= MAX_REAL
+	    case TY_DOUBLE:
+		match = strtype != TY_CHAR && strval <= MAX_DOUBLE
+	    default:
+		match = true
+	    }
+	}
+
+	call sfree (sp)
+	return (match)
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmend.x b/pkg/utilities/nttools/tedit/display/forms/fmend.x
new file mode 100644
index 00000000..353ebfe0
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmend.x
@@ -0,0 +1,12 @@
+# FM_END -- Terminate form handler
+#
+# B.Simon	25-Jan-89	Original
+# B.Simon	11-Oct-90	Rewritten to use curses
+
+procedure fm_end ()
+
+#--
+
+begin
+	call endwin
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmgetform.x b/pkg/utilities/nttools/tedit/display/forms/fmgetform.x
new file mode 100644
index 00000000..ebc6d143
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmgetform.x
@@ -0,0 +1,89 @@
+include "../curses.h"
+include	"formfn.h"
+
+# FM_GETFORM -- Get user input from a form
+#
+# B.Simon	27-Jan-89	Original
+# B.Simon	12-Dec-90	Rewritten to use curses
+
+procedure fm_getform (win, redraw, lenvalue, fvalue)
+
+int	win			# i: Window descriptor
+bool	redraw			# i: Redraw screen?
+int	lenvalue		# i: Declared length of field value
+char	fvalue[lenvalue,ARB]	# u: Values in fields
+#--
+bool	draw
+int	ifield, curfield, topfield, botfield, ch
+pointer	data, value
+
+bool	fm_check()
+int	k_get()
+
+begin
+	# Get pointer to form data structure
+
+	call wgetstruct (win, data)
+
+	# Initialize data structure
+
+	FM_FIELD(data) = 1
+	FM_CHANGE(data) = NO
+
+	# Copy values to data structure
+
+	value = FM_VALARY(data)
+	do ifield = 1, FM_NFIELD(data) {
+	    call strcpy (fvalue[1,ifield], Memc[value], lenvalue)
+	    value = value + FM_LENVAL(data) + 1
+	}
+
+	# Let user update form
+
+	draw = redraw
+
+	curfield = 1
+	topfield = 1
+	botfield = min (FM_NFIELD(data), topfield + FM_NPAGE(data) - 1)
+
+	repeat {
+
+	    # Redraw form and move cursor
+
+	    if (draw) {
+		topfield = max (1, curfield - FM_NPAGE(data) / 2)
+		botfield = min (FM_NFIELD(data), topfield + FM_NPAGE(data) - 1)
+		call fm_redraw (win, topfield)
+	    }
+
+	    call wmove (win, curfield-topfield+1, FM_LENNAM(data)+4)
+
+	    value = FM_VALPTR(data,curfield)
+	    call weditstr (win, Memc[value], FM_LENVAL(data))
+
+	    ch = k_get ()
+
+	    if (FM_CHANGE(data) == YES) {
+		if (! fm_check (FM_TYPE(data,curfield), 
+				Memc[FM_VALPTR(data,curfield)])) {
+		    call ps_beep
+		    ch = EOS
+		    next
+		}
+	    }
+
+	    curfield = FM_FIELD(data)
+	    FM_CHANGE(data) = NO
+	    draw = curfield < topfield || curfield > botfield
+
+	} until (ch == K_EXIT)
+
+	# Copy form values to output array
+
+	value = FM_VALARY(data)
+	do ifield = 1, FM_NFIELD(data) {
+	    call strcpy (Memc[value], fvalue[1,ifield], lenvalue)
+	    value = value + FM_LENVAL(data) + 1
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmhelp.x b/pkg/utilities/nttools/tedit/display/forms/fmhelp.x
new file mode 100644
index 00000000..8615c031
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmhelp.x
@@ -0,0 +1,132 @@
+include "../curses.h"
+
+define	COLWIDTH	40
+define	LABEL_FLAG	1
+define	NAME_FLAG	2
+
+# FM_HELP -- Display help window for function key sequences
+
+procedure fm_help (win)
+
+int	win		# i: Window which currently is active
+#--
+include	"forms.com"
+
+int	key, row, col
+int	k_get(), winstat()
+
+begin
+	# If the help screen was created on a previous call, 
+	# display it, otherwise make a new help screen
+
+	if (helpwin != 0) {
+	    call showwin (helpwin)
+	} else {
+	    call fm_hmake (helpwin)
+	}
+
+	# Display help screen and wait for keystroke to hide window
+
+	call refresh
+	key = k_get ()
+
+	# Hide the help window and restore cursor to current window
+
+	call hidewin (helpwin)
+
+	row = winstat (win, W_CURROW)
+	col = winstat (win, W_CURCOL)
+	call wmove (win, row, col)
+
+end
+
+procedure fm_hmake (hwin)
+
+pointer	hwin		# o: help window 
+#--
+int	ic, nrows, ncols, irow, icol, flag
+pointer	sp, label, name, hline, text, ch
+
+string	htitle     "Editing Commands"
+string	hfooter	   "(Press any key to continue)"
+string	hformat    "%4w%-12.12s = %-12.12s"
+
+int	newwin(), strlen()
+
+begin
+	# Allocate dynamic memory for strings
+
+	call smark (sp)
+	call salloc (label, COLWIDTH, TY_CHAR)
+	call salloc (name, COLWIDTH, TY_CHAR)
+	call salloc (hline, COLWIDTH, TY_CHAR)
+
+	# Create help message
+
+	hwin = newwin (GIANT, GIANT, 1, 1)
+
+	# Write help screen title
+
+	call wdimen (hwin, nrows, ncols)
+	icol = (ncols - strlen(htitle)) / 2
+	call wmove (hwin, 1, icol)
+	call wstandout (hwin)
+	call waddstr (hwin, htitle)
+	call wstandend (hwin)
+
+	ic = 0
+	icol = 0
+	irow = 3
+	flag = LABEL_FLAG
+	call k_help (text)
+
+	# Write each (label=name) pair to the help screen
+
+	for (ch = text; Memc[ch] != EOS; ch = ch + 1) {
+	    switch (flag) {	
+	    case LABEL_FLAG:
+		if (Memc[ch] != '=') {
+		    Memc[label+ic] = Memc[ch]
+		    ic = ic + 1
+		} else {
+		    Memc[label+ic] = EOS
+		    flag = NAME_FLAG
+		    ic = 0
+		}
+	    case NAME_FLAG:
+		if (Memc[ch] != '\n') {
+		    Memc[name+ic] = Memc[ch]
+		    ic = ic + 1
+		} else {
+		    Memc[name+ic] = EOS
+		    flag = LABEL_FLAG
+		    ic = 0
+
+		    # Reformat label/name pair for window
+
+		    call sprintf (Memc[hline], COLWIDTH, hformat)
+		    call pargstr (Memc[label])
+		    call pargstr (Memc[name])
+
+		    # Write string to window
+
+		    call wmove (hwin, irow, icol * COLWIDTH + 1)
+		    call waddstr (hwin, Memc[hline])
+
+		    # Calculate next string position
+
+		    icol = icol + 1
+		    if (icol == 2) {
+			icol = 0
+			irow = irow + 1
+		    }
+		}
+	    }
+	}
+
+	# Write help screen footer
+
+	call wmove (hwin, nrows, 1)
+	call waddstr (hwin, hfooter)
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmmkform.x b/pkg/utilities/nttools/tedit/display/forms/fmmkform.x
new file mode 100644
index 00000000..00bc8106
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmmkform.x
@@ -0,0 +1,82 @@
+include	"formfn.h"
+
+# FM_MKFORM -- Create a form and bind it to a window
+#
+# B.Simon	27-Jan-89	Original
+# B.Simon	15-Oct-90	Rewritten to use curses
+
+procedure fm_mkform (win, nfield, lenname, lenvalue, title, ftype, fname)
+
+int	win			# i: Window descriptor
+int	nfield			# i: Number of fields in form
+int	lenname			# i: Declared length of field name
+int	lenvalue		# i: Declared length of field value
+char	title[ARB]		# i: Form title
+int	ftype[ARB]		# i: Data types of fields
+char	fname[lenname,ARB]	# i: Names of fields
+#--
+extern	formfn
+int	nrows, ncols, ifield
+pointer	data, name, value, type
+
+begin
+	# Get the dimensions of the form
+
+	call wdimen (win, nrows, ncols)
+
+	# Allocate data structure
+
+	call malloc (data, LEN_FMSTRUCT, TY_STRUCT)
+	call malloc (FM_NAMARY(data), (lenname+1)*nfield, TY_CHAR)
+	call malloc (FM_VALARY(data), (lenvalue+1)*nfield, TY_CHAR)
+	call malloc (FM_TTLPTR(data), SZ_LINE, TY_CHAR)
+	call malloc (FM_TYPARY(data), nfield, TY_INT)
+
+	# Initialize data structure
+
+	FM_FIELD(data) = 1
+	FM_NFIELD(data) = nfield
+	FM_NPAGE(data) = nrows - 1
+	FM_CHANGE(data) = NO
+	FM_LENNAM(data) = lenname
+	FM_LENVAL(data) = lenvalue
+	call strcpy (title, FM_TITLE(data), SZ_LINE)
+
+	name = FM_NAMARY(data)
+	value = FM_VALARY(data)
+	type = FM_TYPARY(data)
+
+	do ifield = 1, nfield {
+	    call strcpy(fname[1,ifield], Memc[name], lenname)
+	    name = name + lenname + 1
+	    Memc[value] = EOS
+	    value = value + lenvalue + 1
+	    Memi[type] = ftype[ifield]
+	    type = type + 1
+	}
+
+	# Bind data structure and function to window
+
+	call wbindstruct (win, formfn, data)
+
+end
+
+procedure fm_clsform (win)
+
+int	win			# i: Window descriptor
+#--
+pointer	data
+
+begin
+	# Get the structure pointer
+
+	call wgetstruct (win, data)
+
+	# Free the substructures hanging off the main structure
+
+	call mfree (FM_NAMARY(data), TY_CHAR)
+	call mfree (FM_VALARY(data), TY_CHAR)
+	call mfree (FM_TTLPTR(data), TY_CHAR)
+	call mfree (FM_TYPARY(data), TY_INT)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmprompt.x b/pkg/utilities/nttools/tedit/display/forms/fmprompt.x
new file mode 100644
index 00000000..b93ef450
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmprompt.x
@@ -0,0 +1,70 @@
+# FM_PROMPT -- Get user input from a prompt window
+#
+# B.Simon	30-Jan-89	Original
+# B.Simon	12-Dec-90	Rewritten to use curses
+
+int procedure fm_prompt (win, commands, message)
+
+int	win		# i: Prompt window
+char	commands[ARB]	# i: List of commands
+char	message[ARB]	# i: Message to print in prompt area
+#--
+char	newline
+int	option
+pointer	sp, response, temp
+
+data	newline / '\n' /
+
+int	strdic()
+
+begin
+	# Print the message in the window
+
+	call werase (win)
+	call wmove (win, 1, 1)
+	if (message[1] == EOS) {
+	    call waddstr (win, commands)
+	    call waddch (win, newline)
+	} else {
+	    call waddstr (win, message)
+	    call waddch (win, newline)
+	}
+
+	# Return if no user response is needed
+
+	if (commands[1] == EOS) {
+	    call wrefresh (win)
+	    return (0)
+	}
+
+	# Allocate dynamic memory for strings
+
+	call smark (sp)
+	call salloc (response, SZ_LINE, TY_CHAR)
+	call salloc (temp, SZ_LINE, TY_CHAR)
+
+	# Get the user response
+
+	repeat {
+	    call wgetstr (win, Memc[response], SZ_LINE)
+
+	    # Check response against list of commands
+
+	    option = strdic (Memc[response], Memc[temp], SZ_LINE, commands)
+	    if (option > 0)
+		break
+
+	    # Try again if response was not valid
+
+	    call werase (win)
+	    call wmove (win, 1, 1)
+	    call waddstr (win , commands)
+	    call waddch (win, newline)
+	    call ps_beep
+	}
+
+	# Return the option number
+
+	call sfree (sp)
+	return (option)
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/fmredraw.x b/pkg/utilities/nttools/tedit/display/forms/fmredraw.x
new file mode 100644
index 00000000..71e5b781
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/fmredraw.x
@@ -0,0 +1,69 @@
+include	"formfn.h"
+define	SZ_ESCSEQ	20
+
+# FM_REDRAW -- Redraw the form
+
+procedure fm_redraw (win, topfield)
+
+int	win			# i: Window descriptor
+int	topfield		# i: Top field on the form to draw
+#--
+int	nrows, ncols, botfield, ifield
+pointer	sp, field, footer, escseq, data, name, value
+
+begin
+	# Allocate dynamic memory for strings
+
+	call smark (sp)
+	call salloc (field, SZ_LINE, TY_CHAR)
+	call salloc (footer, SZ_LINE, TY_CHAR)
+	call salloc (escseq, SZ_ESCSEQ, TY_CHAR)
+
+	# Get form data structure
+
+	call wgetstruct (win, data)
+
+	# Get the dimensions of the form
+
+	call wdimen (win, nrows, ncols)
+
+	# Clear screen
+
+	call werase (win)
+
+	# Write the form
+
+	name = FM_NAMPTR(data,topfield)
+	value = FM_VALPTR(data,topfield)
+	botfield = min (FM_NFIELD(data), topfield + FM_NPAGE(data) - 1)
+
+	call wmove (win, 1, 1)
+	do ifield = topfield, botfield {
+	    call sprintf (Memc[field], SZ_LINE, "%*s = %s\n")
+		call pargi (FM_LENNAM(data))
+		call pargstr (Memc[name])
+		call pargstr (Memc[value])
+
+	    call waddstr (win, Memc[field])
+
+	    name = name + FM_LENNAM(data) + 1
+	    value = value + FM_LENVAL(data) + 1
+	}
+
+	# Write the footer line
+
+	call k_eseq ("GET_HELP", Memc[escseq], SZ_ESCSEQ)
+
+	call sprintf (Memc[footer], ncols, "%4w%s%*tHelp: %s%*t")
+	call pargstr (FM_TITLE(data))
+	call pargi (ncols-SZ_ESCSEQ)
+	call pargstr (Memc[escseq])
+	call pargi (ncols+1)
+
+	call wmove (win, nrows, 1)
+	call wstandout (win)
+	call waddstr (win, Memc[footer])
+	call wstandend (win)
+
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/formfn.h b/pkg/utilities/nttools/tedit/display/forms/formfn.h
new file mode 100644
index 00000000..b3afbc75
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/formfn.h
@@ -0,0 +1,20 @@
+# FORMFN.H -- Data structure used by formfn()
+
+define	LEN_FMSTRUCT	10
+
+define	FM_FIELD	Memi[$1]	# Current field
+define	FM_NFIELD	Memi[$1+1]	# Number of fields on form
+define	FM_NPAGE	Memi[$1+2]	# Number of fields in window
+define	FM_CHANGE	Memi[$1+3]	# Has field been changed ?
+define	FM_LENNAM	Memi[$1+4]	# Length of name field
+define	FM_LENVAL	Memi[$1+5]	# Length of value field
+define	FM_NAMARY	Memi[$1+6]	# Array of field names
+define	FM_VALARY	Memi[$1+7]	# Array of field values
+define	FM_TTLPTR	Memi[$1+8]	# Title array
+define	FM_TYPARY	Memi[$1+9]	# Array of field types
+
+define	FM_NAMPTR	FM_NAMARY($1)+(($2)-1)*(FM_LENNAM($1)+1)
+define	FM_VALPTR	FM_VALARY($1)+(($2)-1)*(FM_LENVAL($1)+1)
+
+define	FM_TITLE	Memc[FM_TTLPTR($1)]
+define	FM_TYPE		Memi[FM_TYPARY($1)+($2)-1]
diff --git a/pkg/utilities/nttools/tedit/display/forms/formfn.x b/pkg/utilities/nttools/tedit/display/forms/formfn.x
new file mode 100644
index 00000000..b060a87c
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/formfn.x
@@ -0,0 +1,278 @@
+include <ctype.h>
+include "../curses.h"
+include	"formfn.h"
+
+# FORMFN -- Function that processes form input
+#
+# B.Simon	12-Dec-90	Original
+
+procedure formfn (win, str, maxch)
+
+int	win		# i: Window descriptor
+char	str[ARB]	# u: String containing line
+int	maxch		# i: Maximum line length
+#--
+int	row, col, ch, ic, jc, mc, nc
+pointer	sp, data, buffer
+
+int	strlen(), k_get(), winstat()
+
+begin
+	ic = 0
+	nc = strlen (str)
+
+	call wgetstruct (win, data)
+	row = winstat (win, W_CURROW)
+	col = winstat (win, W_CURCOL)
+
+	call smark (sp)
+	call salloc (buffer, SZ_LINE, TY_CHAR)
+	Memc[buffer] = EOS
+
+	while (nc < maxch) {
+
+	    # Read character from keyboard
+
+	    call ps_synch
+	    ch = k_get ()
+
+	    # Check for carriage return
+
+	    if (ch == '\r') {
+		if (FM_FIELD(data) < FM_NFIELD(data)) {
+		    FM_FIELD(data) = FM_FIELD(data) + 1
+		    break
+		}
+	    }
+
+	    if (IS_PRINT(ch)) {
+		ic = ic + 1
+		nc = nc + 1
+		FM_CHANGE(data) = YES
+
+		if (ic == nc) {
+		    str[ic] = ch
+		    str[ic+1] = EOS
+		    call waddstr (win, str[ic])
+
+		} else {
+		    do jc = nc-1, ic, -1
+			str[jc+1] = str[jc]
+
+		    str[ic] = ch
+		    call winsch (win, str[ic])
+		}
+
+	    } else {
+		switch (ch) {
+		case K_UP:  # Move up one field
+		    if (FM_FIELD(data) > 1) {
+			FM_FIELD(data) = FM_FIELD(data) - 1
+			break
+		    }
+
+		case K_DOWN:  # Move down one field
+		    if (FM_FIELD(data) < FM_NFIELD(data)) {
+			FM_FIELD(data) = FM_FIELD(data) + 1
+			break
+		    }
+
+		case K_RIGHT:  # Move right one column
+		    if (ic < nc) {
+			ic = ic + 1
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_LEFT:  # Move left one column
+		    if (ic > 0) {
+			ic = ic - 1
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_NEXTW:  # Move forwards one word
+		    call mvword_next (str, ic, jc)
+
+		    if (jc > ic) {
+			ic = jc
+			call wmove (win, row, col+ic)
+		    }
+
+
+		case K_PREVW:  # Move backwards one word
+		    call mvword_prev (str, ic, jc)
+
+		    if (jc < ic) {
+			ic = jc
+			call wmove (win, row, col+ic)
+		    }
+
+
+		case K_NEXTP:  # Move forwards one screen
+		    if (FM_FIELD(data) < FM_NFIELD(data)) {
+			FM_FIELD(data) = min (FM_FIELD(data) + FM_NPAGE(data),
+					      FM_NFIELD(data))
+			break
+		    }
+
+		case K_PREVP:  # Move backwards one screen
+		    if (FM_FIELD(data) > 1) {
+			FM_FIELD(data) = max (FM_FIELD(data) - FM_NPAGE(data),
+					      1)
+			break
+		    }
+
+		case K_HOME:  # Move to first field
+		    if (FM_FIELD(data) > 1) {
+			FM_FIELD(data) = 1
+			break
+		    }
+
+		case K_END:  # Move to last field
+		    if (FM_FIELD(data) < FM_NFIELD(data)) {
+			FM_FIELD(data) = FM_NFIELD(data)
+			break
+		    }
+
+		case K_BOL:  # Move to first column in line
+		    if (ic > 0) {
+			ic = 0
+			call wmove (win, row, col)
+		    }
+
+		case K_EOL:  # Move to last column in line
+		    if (ic < nc) {
+			ic = nc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_DEL:  # Delete character underneath cursor
+		    if (ic < nc) {
+			FM_CHANGE(data) = YES
+			mc = strlen (Memc[buffer])
+
+			Memc[buffer+mc] = str[ic+1]
+			Memc[buffer+mc+1] = EOS
+
+			call amovc (str[ic+2], str[ic+1], nc-ic)
+
+			call wdelch (win)
+			nc = nc - 1
+		    }
+
+		case K_BS:  # Delete character to left of cursor
+		    if (ic > 0) {
+			FM_CHANGE(data) = YES
+			mc = strlen (Memc[buffer])
+
+			call amovc (Memc[buffer], Memc[buffer+1], mc+1)
+			Memc[buffer] = str[ic]
+
+			ic = ic - 1
+			call amovc (str[ic+2], str[ic+1], nc-ic)
+
+			call wmove (win, row, col+ic)
+			call wdelch (win)
+			nc = nc - 1
+		    }
+
+		case K_DWORD:  # Delete one word
+		    call mvword_next (str, ic, jc)
+
+		    if (jc > ic) {
+			FM_CHANGE(data) = YES
+			mc = strlen (Memc[buffer])
+
+			call strcpy (str[ic+1], Memc[buffer+mc], jc-ic)
+			call amovc (str[jc+1], str[ic+1], nc-jc+1)
+
+			call wclrtoeol (win)
+			call waddstr (win, str[ic+1])
+			call wmove (win, row, col+ic)
+			nc = nc - (jc - ic)
+		    }
+
+		case K_DLINE:  # Delete entire line
+		    if (nc > 0) {
+			FM_CHANGE(data) = YES
+
+			call strcpy (str[ic+1], Memc[buffer], nc-ic)
+			str[ic+1] = EOS
+
+			call wclrtoeol (win)
+			nc = ic
+		    }
+
+		case K_UNDCHR:  # Undelete a character
+		    mc = strlen (Memc[buffer])
+		    if (mc > 0) {
+			call amovc (str[ic+1], str[ic+2], nc-ic+1)
+			str[ic+1] = Memc[buffer+mc-1]
+
+			Memc[buffer+mc-1] = EOS
+			call winsch (win, str[ic+1])
+
+			ic = ic + 1
+			nc = nc + 1
+		    }
+
+		case K_UNDWRD:  # Undelete a word
+		    mc = strlen (Memc[buffer])
+		    call mvword_prev (Memc[buffer], mc, jc)
+
+		    mc = mc - jc
+		    if (mc > 0) {
+			call amovc (str[ic+1], str[ic+mc+1], nc-ic+1)
+			call amovc (Memc[buffer+jc], str[ic+1], mc)
+
+			Memc[buffer+jc] = EOS
+			call wclrtoeol (win)
+			call waddstr (win, str[ic+1])
+
+			ic = ic + mc
+			nc = nc + mc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_UNDLIN:  # Undelete a line
+		    mc = strlen (Memc[buffer])
+		    if (mc > 0) {
+			call amovc (str[ic+1], str[ic+mc+1], nc-ic+1)
+			call amovc (Memc[buffer], str[ic+1], mc)
+
+			Memc[buffer] = EOS
+			call wclrtoeol (win)
+			call waddstr (win, str[ic+1])
+
+			ic = ic + mc
+			nc = nc + mc
+			call wmove (win, row, col+ic)
+		    }
+
+		case K_HELP:  # Display help screen
+		    call fm_help (win)
+
+		case K_PAINT:  # Redraw the screen
+		    call clearok (STDSCR, true)
+		    call wrefresh (STDSCR)
+		    call wmove (win, row, col+ic)
+
+		case K_EXIT:  # Exit procedure
+		    break
+
+		default: # Any other character
+		    call ps_beep
+		}
+	    }
+	}
+
+	# Terminate string with EOS and push back character 
+	# that terminated input
+
+	if (nc >= maxch)
+	    ch = EOS
+
+	str[nc+1] = EOS
+	call k_pushbk (ch)
+
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/forms.com b/pkg/utilities/nttools/tedit/display/forms/forms.com
new file mode 100644
index 00000000..2e948a0c
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/forms.com
@@ -0,0 +1,5 @@
+# FORMS.COM -- Global variables used by forms procedures
+
+int	helpwin		# Function key help window
+
+common	/form/	helpwin
diff --git a/pkg/utilities/nttools/tedit/display/forms/linefn.h b/pkg/utilities/nttools/tedit/display/forms/linefn.h
new file mode 100644
index 00000000..c263dfce
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/linefn.h
@@ -0,0 +1,8 @@
+# LINEFN.H -- Data structure associated with linefn()
+
+define	LEN_LINSTRUCT	4
+
+define	LIN_ROW		Memi[$1]	# Cursor row
+define	LIN_COL		Memi[$1+1]	# Cursor column
+define	LIN_ICHAR	Memi[$1+2]	# Index to current character
+define	LIN_LAST	Memi[$1+3]	# Character which caused return
diff --git a/pkg/utilities/nttools/tedit/display/forms/linefn.x b/pkg/utilities/nttools/tedit/display/forms/linefn.x
new file mode 100644
index 00000000..c122795a
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/linefn.x
@@ -0,0 +1,134 @@
+include "../curses.h"
+include "linefn.h"
+
+# LINEFN -- Function that processes a line of input in a window
+
+procedure linefn (win, ch, maxch, str, data, done)
+
+int	win		#  i: Window descriptor
+int	ch		#  i: Keyboard character
+int	maxch		#  i: Maximum line length
+char	str[ARB]	# io: String containing line
+pointer	data		# io: Line data structure
+bool	done		#  o: Flag indicating line is done
+#--
+int	ic, jc, nc
+int	strlen()
+
+begin
+	done = false
+	if (LIN_ROW(data) == 0 || LIN_COL(data) == 0)
+	    call getyx (win, LIN_ROW(data), LIN_COL(data))
+
+	if (ch < K_BASE) {
+	    LIN_ICHAR(data) = LIN_ICHAR(data) + 1
+	    LIN_COL(data) = LIN_COL(data) + 1
+	    ic = LIN_ICHAR(data)
+
+	    if (str[ic] == EOS) {
+		if (ic > maxch) {
+		    done = true
+		    LIN_LAST(data) = EOS
+		} else {
+		    str[ic] = ch
+		    str[ic+1] = EOS
+		    call waddstr (win, str[ic])
+		}
+	    } else {
+		nc = strlen (str)
+		if (nc >= maxch) {
+		    done = true
+		    LIN_LAST(data) = EOS
+		} else {
+		    do jc = nc+1, ic, -1
+			str[jc+1] = str[jc]
+
+		    str[ic] = ch
+		    call winsch (win, str[ic])
+		}
+	    }
+
+	    if (ch == '\r') {
+		done = true
+		LIN_LAST(data) = '\n'
+	    }
+
+	} else {
+	    ic = LIN_ICHAR(data)
+	    switch (ch) {
+	    case K_RIGHT:  # Move right one column
+		if (str[ic] == EOS) {
+		    done = true
+		    LIN_LAST(data) = EOS
+		} else {
+		    LIN_ICHAR(data) = LIN_ICHAR(data) + 1
+		    LIN_COL(data) = LIN_COL(data) + 1
+		    call wmove (win, LIN_ROW(data), LIN_COL(data))
+		}
+
+	    case K_LEFT:  # Move left one column
+		if (ic == 1) {
+		    done = true
+		    LIN_LAST(data) = EOS
+		} else {
+		    LIN_ICHAR(data) = LIN_ICHAR(data) - 1
+		    LIN_COL(data) = LIN_COL(data) - 1
+		    call wmove (win, LIN_ROW(data), LIN_COL(data))
+		}
+
+	    case K_BOL:  # Move to first column in line
+		if (ic > 1) {
+		    LIN_ICHAR(data) = 1
+		    LIN_COL(data) = LIN_COL(data) - ic + 1
+		    call wmove (win, LIN_ROW(data), LIN_COL(data))
+		}
+
+	    case K_EOL:  # Move to last column in line
+		if (str[ic] != EOS) {
+		    LIN_ICHAR(data) = strlen (str) + 1
+		    LIN_COL(data) = LIN_COL(data) + LIN_ICHAR(data) - ic
+		    call wmove (win, LIN_ROW(data), LIN_COL(data))
+		}
+
+	    case K_DEL:  # Delete character underneath cursor
+		if (str[ic] != EOS) {
+		    while (str[ic] != EOS) {
+			str[ic] = str[ic+1]
+			ic = ic + 1
+		    }
+
+		    call wdelch (win)
+		}
+
+	    case K_BS:  # Delete character to left of cursor
+		if (ic > 1) {
+		    LIN_ICHAR(data) = LIN_ICHAR(data) - 1
+		    LIN_COL(data) = LIN_COL(data) - 1
+
+		    ic = ic - 1
+		    while (str[ic] != EOS) {
+			str[ic] = str[ic+1]
+			ic = ic + 1
+		    }
+
+		    call wmove (win, LIN_ROW(data), LIN_COL(data))
+		    call wdelch (win)
+		}
+
+	    case K_DWORD:  # Delete entire line
+		if (str[1] != EOS) {
+		    LIN_ICHAR(data) = 1
+		    LIN_COL(data) = LIN_COL(data) - ic + 1
+
+		    for (ic = 1; str[ic] != EOS; ic = ic + 1)
+			str[ic] = ' '
+		    call addstr (win, str)
+		    str[1] = EOS
+		}
+
+	    default:
+		done = true
+		LIN_LAST(data) = ch
+	    }
+	}
+end
diff --git a/pkg/utilities/nttools/tedit/display/forms/mkpkg b/pkg/utilities/nttools/tedit/display/forms/mkpkg
new file mode 100644
index 00000000..e23071d5
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/mkpkg
@@ -0,0 +1,19 @@
+# Update the display library.
+# Author: B.Simon 01-APR-91
+
+$checkout libpkg.a ../../
+$update   libpkg.a
+$checkin  libpkg.a ../../
+$exit
+
+libpkg.a:
+	fmbegin.x	"forms.com"
+	fmcheck.x	<lexnum.h>  <ctype.h>  <mach.h>
+	fmend.x
+	fmhelp.x	"../curses.h"  "forms.com"
+	fmgetform.x	"formfn.h"
+	fmmkform.x	"formfn.h"
+	fmprompt.x
+	fmredraw.x	"formfn.h"
+	formfn.x	"../curses.h"  "formfn.h"
+	;
diff --git a/pkg/utilities/nttools/tedit/display/forms/promptfn.h b/pkg/utilities/nttools/tedit/display/forms/promptfn.h
new file mode 100644
index 00000000..48aba6b4
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/promptfn.h
@@ -0,0 +1,7 @@
+# PROMPTFN.H -- Data structure associated with promptfn()
+
+define	LEN_PRSTRUCT	3
+
+define	PR_START	Memi[$1]	# Start flag
+define	PR_ROW		Memi[$1+1]	# Cursor row
+define	PR_COL		Memi[$1+2]	# Cursor column
diff --git a/pkg/utilities/nttools/tedit/display/forms/promptfn.x b/pkg/utilities/nttools/tedit/display/forms/promptfn.x
new file mode 100644
index 00000000..c270aabb
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/forms/promptfn.x
@@ -0,0 +1,134 @@
+include "../curses.h"
+include "promptfn.h"
+
+# PROMPTFN -- Function that processes the prompt input
+
+procedure promptfn (win, ch, maxch, str, data, done)
+
+int	win		#  i: Window descriptor
+int	ch		#  i: Keyboard character
+int	maxch		#  i: Maximum line length
+char	str[ARB]	# io: String containing line
+pointer	data		# io: Line data structure
+bool	done		#  o: Flag indicating line is done
+#--
+int	nrows, ncols, ic, jc, nc
+int	strlen()
+
+begin
+	# Check for carriage return
+
+	if (ch == '\r') {
+	    done = true
+	    return
+	} else {
+	    done = false
+	}
+
+	# Initialize data structure on first pass through
+
+	if (PR_START(data) == YES) {
+	    call wdimen (win, nrows, ncols)
+	    if (nrows == 1)
+		call werase (win)
+
+	    PR_START(data) = NO
+	    PR_ROW(data) = min (2, nrows)
+	    PR_COL(data) = 1
+	}
+
+	if (ch < K_BASE) {
+	    ic = PR_COL(data)
+
+	    if (str[ic] == EOS) {
+		if (ic <= maxch) {
+		    str[ic] = ch
+		    str[ic+1] = EOS
+		    call waddstr (win, str[ic])
+		}
+	    } else {
+		nc = strlen (str)
+		if (nc < maxch) {
+		    do jc = nc+1, ic, -1
+			str[jc+1] = str[jc]
+
+		    str[ic] = ch
+		    call winsch (win, str[ic])
+		}
+	    }
+	    PR_COL(data) = PR_COL(data) + 1
+
+	} else {
+	    ic = PR_COL(data)
+	    switch (ch) {
+	    case K_RIGHT:  # Move right one column
+		if (str[ic] != EOS) {
+		    PR_COL(data) = PR_COL(data) + 1
+		    call wmove (win, PR_ROW(data), PR_COL(data))
+		}
+
+	    case K_LEFT:  # Move left one column
+		if (ic != 1) {
+		    PR_COL(data) = PR_COL(data) - 1
+		    call wmove (win, PR_ROW(data), PR_COL(data))
+		}
+
+	    case K_BOL:  # Move to first column in line
+		if (ic > 1) {
+		    PR_COL(data) = 1
+		    call wmove (win, PR_ROW(data), PR_COL(data))
+		}
+
+	    case K_EOL:  # Move to last column in line
+		if (str[ic] != EOS) {
+		    PR_COL(data) = strlen (str) + 1
+		    call wmove (win, PR_ROW(data), PR_COL(data))
+		}
+
+	    case K_DEL:  # Delete character underneath cursor
+		if (str[ic] != EOS) {
+		    while (str[ic] != EOS) {
+			str[ic] = str[ic+1]
+			ic = ic + 1
+		    }
+
+		    call wdelch (win)
+		}
+
+	    case K_BS:  # Delete character to left of cursor
+		if (ic > 1) {
+		    PR_COL(data) = PR_COL(data) - 1
+
+		    ic = ic - 1
+		    while (str[ic] != EOS) {
+			str[ic] = str[ic+1]
+			ic = ic + 1
+		    }
+
+		    call wmove (win, PR_ROW(data), PR_COL(data))
+		    call wdelch (win)
+		}
+
+	    case K_DWORD:  # Delete entire line
+		if (str[1] != EOS) {
+		    PR_COL(data) = 1
+
+		    for (ic = 1; str[ic] != EOS; ic = ic + 1)
+			str[ic] = ' '
+		    call addstr (win, str)
+		    str[1] = EOS
+		}
+
+	    case K_HELP:  # Display help screen
+		call fm_help
+
+	    case K_PAINT:  # Redraw the screen
+		call clearok (STDSCR, true)
+		call wrefresh (STDSCR)
+		call wmove (win, PR_ROW(data), PR_COL(data))
+
+	    default:
+		call ps_beep
+	    }
+	}
+end
diff --git a/pkg/utilities/nttools/tedit/display/mkpkg b/pkg/utilities/nttools/tedit/display/mkpkg
new file mode 100644
index 00000000..322177b4
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/mkpkg
@@ -0,0 +1,14 @@
+
+# Update the display library.
+# Author: B.Simon 01-APR-91
+
+$checkout libpkg.a ../
+$update   libpkg.a
+$checkin  libpkg.a ../
+$exit
+
+libpkg.a:
+	@curses
+	@forms
+	@screen
+	;
diff --git a/pkg/utilities/nttools/tedit/display/screen/README b/pkg/utilities/nttools/tedit/display/screen/README
new file mode 100644
index 00000000..6a29f82f
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/README
@@ -0,0 +1,211 @@
+The procedures in this directory implement the lowest level of the
+screen handling routines in the display library. Procedures not
+described in this file are not part of the public interface and should
+not be called by user programs.  All the capabilities of the curses
+procedures are layered on top of the procedures in this directory.
+These procedures provide less functionality than the curses routines,
+but can be faster, at the expense of more complications in the user
+program. The procedures in this directory are portable. They are
+written in SPP and they do all their I/O through the IRAF VOS. They
+use the termcap and edcap files so that this library can be used with
+a variety of terminals and the editing commands can be tailored to the
+user's preferences.  There are two sets of subroutines in this
+directory.  The first set is the keyboard subroutines, prefixed by the
+letter "k", which read the keyboard and translate control key
+sequences to a single character.  The second set is the screen
+sunroutines, prefixed by the letters "ps", which write to the
+terminal.
+
+The keyboard subroutines read input from the keyboard, translating
+command key sequences into a single number.  The command key sequences
+are read from the edcap file.  This is a file located either in the
+user's home directory or the dev$ directory whose name is the value of
+the editor environment variable with an extension of ".ed".  See the
+files in the dev$ directory for an example of the file format.  The
+keyboard subroutines are initialized by a call to the following
+subroutine:
+
+procedure k_begin (cmdlist)
+
+char	cmdlist[ARB]	# i: List of editing commands
+
+This subroutine puts the terminal in raw mode, reads the edcap file,
+and sends the keyboard initialization sequence to the terminal. Its
+argument is a list of command names taken from the edcap file that you
+want your program to recognize. The first character in the string is a
+command separator, used to separate the commands in the string. The
+macro CMDSTR in <curses.h> defines the list of commands used by the
+curses routines. The screen initialization routine, ps_begin, must be
+called before k_begin is called. To terminate the keyboard interface,
+call the following subroutine:
+
+procedure k_end ()
+
+This procedure ends raw mode and sends the keyboard termination sequence
+to the terminal.  The screen termination routine, ps_end, should be
+called after this routine is called.  The following subroutine reads a
+single character from the terminal:
+
+int procedure k_get ()
+
+Command key sequences that were named in the command list passed to
+k_begin are returned as a single number.  The value returned by the
+first command key sequence in the command list is K_BASE, the value
+returned by the second sequence is K_BASE+1, and so on.  The macro
+K_BASE is defined in <curses.h>.  
+
+The next keyboard subroutine returns a pointer to a character string
+containing the help text for the keyboard commands:
+
+procedure k_help (text)
+
+pointer	text		# o: Help text
+
+The help text string is formatted as a series of command descriptions.
+Each description starts with the name of the edcap command , followed
+by an equals sign, followed by the ascii representation of the key
+sequence which executes the command, and terminated by a newline
+character.The string is formatted as a series of command descriptions.
+Each description starts with the name of the edcap command , followed
+by an equals sign, followed by the ascii representation of the key
+sequence which executes the command, and terminated by a newline
+character.
+
+The following routine copies one of the command descriptions from the
+help text to an output string:
+
+procedure k_eseq (name, eseq, maxch)
+
+char	name[ARB]	# i: Name bound to command sequence
+char	eseq[ARB]	# o: String representation of command sequence
+int	maxch		# i: Maximum length of command sequence
+
+The input parameters are the name of the command sequence and the
+length of the output string. The name of the sequence should be
+the name passed as part of the command string to k_begin(). The output
+is the ascii represntation of the escape sequence of that command.
+
+The screen subroutines are used to send output to the terminal.  They
+are based on the subroutines in Marc Rochkind's book, "Advanced C
+Programs for Displays".  Several conventions are followed by these
+subroutines.  The first is that while strings are passed as arrays of
+characters, individual characters are passed as integers.  The second is
+that screen coordinates are passed row first, column second and that the
+coordinates of the upper left corner of the screen are (1, 1).  The
+third is that areas on the screen are passed as rectangles, which are
+represented as arrays of four elements, where the four elements are the
+(top, left, bottom, right) corners of the rectangle.  The initialization
+and termination routines for the screen subroutines are:
+
+procedure ps_begin ()
+procedure ps_end ()
+
+The first subroutine opens the terminal for I/O and reads the termcap
+file, the second closes the terminal. The calling program get the size
+of the screen by calling the subroutines:
+
+int procedure ps_height ()
+int procedure ps_width ()
+
+These subroutines return the number of screen rows and columns,
+respectively. The following subroutine flushes the output buffer:
+
+procedure ps_synch ()
+
+The user will not see any output sent by these subroutine to the
+terminal until this subroutine is called. To ring the terminal's bell,
+call the following subroutine:
+
+procedure ps_beep ()
+
+To move the cursor on the screen call the following subroutine:
+
+procedure ps_setcur (row, col)
+
+int	row		# i: Cursor row
+int	col		# i: Cursor column
+
+To write a string to the screen call the following subroutine:
+
+procedure ps_write (row, col, ncols, str, att)
+
+int	row		# i: Starting row
+int	col		# i: Starting column
+int	ncols		# i: Number of columns to write
+char	str[ARB]	# i: String to write
+int	att		# i: Attribute
+
+The number of columns is an upper limit on the number of characters to
+write, if the string is shorter than this, the actual number of
+characters on the screen will be displayed. If the string does not lie
+entirely on the screen, the string will be clipped at the screen boundary.
+The attribute determines whether the string is printed normally or in
+standout mode. The value should be set to either A_NORM or A_STANDOUT,
+which is defined in display.h. To write a string where the screen
+attribute may change from character to characater call the following
+subroutine: 
+
+procedure ps_wrtcells (row, col, vector, ncols)
+
+int	row		# i: Starting row
+int	col		# i: Starting column
+char	vector[ARB]	# i: Vector to write
+int	ncols		# i: Number of columns to write
+
+The string to be written must be at least ncols long and each character
+to be displayed in standout mode should have A_STANDOUT added to its
+ascii code. This subroutine is used when the calling program keeps an
+array whose contents corresponds to the current screen display. To fill
+an area on the screen with a single character call the following
+subroutine: 
+
+procedure ps_fill (source, ch, att)
+
+int	source[RSIZE]	# i: Rectangle
+int	ch		# i: Fill character
+int	att		# i: Fill attribute
+
+This subroutine can be used to clear part or all of the screen by
+setting the fill character to blank and the fill attribute to A_NORM.
+The macro RSIZE is equal to 4 and is defined in display.h. To move an
+area of the screen in any of the four directions call the following
+subroutine: 
+
+bool procedure ps_slide (source, dir, dist)
+
+int	source[RSIZE]	# i: Rectangle
+int	dir		# i: Direction (from display.h)
+int	dist		# i: Distance (> 0)
+
+This subroutine can be used to scroll the screen up or down, delete one
+or more characters from a line, or move a line over so that a new
+character can be inserted. The direction is given as one of the four
+macros DIR_UP, DIR_DOWN, DIR_LEFT, and DIR_RIGHT, defined in <curses.h>.
+This subroutine may or may not be able to move the screen, depending on
+the capabilities defined in the terminal's termcap file. If the
+subroutine can move the area, it returns true and if it cannot, it
+returns false. In the latter case, it is the responsibility of the
+calling program to redraw the affected area of the screen in order to
+move the area.
+
+The include file display.h contains several macros the can be used to
+manipulate the rectangles passed to the screen subroutines. In order to
+access the elements of a rectangle the following macros can be used:
+
+RTOP(rect)	# Top row of a rectangle
+RLEFT(rect)	# Left column of a rectangle
+RBOT(rect)	# Bottom row of a rectangle
+RRIGHT(rect)	# Right column of a rectangle
+
+The dimensions of a rectangle can be computed by the following macros:
+
+RWIDTH(rect)	# Number of columns in a rectangle
+RHEIGHT(rect)	# Number of rows in a rectangle
+
+A program can set the elements in a rectangle with the following macros:
+
+RASG(newrect, top, left, bottom, right)
+RCPY(newrect, oldrect)
+
+The first macro assigns four scalars to the elements of a rectangle and
+the second macro copies the elements of one rectangle to another.
diff --git a/pkg/utilities/nttools/tedit/display/screen/kbegin.x b/pkg/utilities/nttools/tedit/display/screen/kbegin.x
new file mode 100644
index 00000000..0be12ab6
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/kbegin.x
@@ -0,0 +1,40 @@
+include	<fset.h>
+include	"../curses.h"
+
+# K_BEGIN -- Initialize keyboard
+#
+# B.Simon	23-Jan-89	Original
+
+procedure k_begin (cmdlist)
+
+char	cmdlist[ARB]	# i: List of editing commands
+#--
+include	"screen.com"
+
+int	klen
+int	strlen()
+
+extern	k_error
+
+begin
+	# NOTE: ps_begin must be called before calling this procedure
+
+	# Put terminal in raw mode
+
+	call fseti (ttyin, F_RAW, YES)
+
+	# Set up error exit routine
+
+	call onerror (k_error)
+
+	# Set up function key table and help screen
+
+	call k_compile (cmdlist)
+
+	# Send initialize keypad sequence to terminal
+
+	klen = strlen (ks)
+	if (klen > 0)
+	    call ttywrite (ttyout, term, ks, klen, 1)
+	
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/kcompile.x b/pkg/utilities/nttools/tedit/display/screen/kcompile.x
new file mode 100644
index 00000000..9ad162ec
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/kcompile.x
@@ -0,0 +1,148 @@
+include	<ctype.h>
+include	"../curses.h"
+
+define	SYNTAX		1
+define	K_CMDLEN	7
+
+# K_COMPILE -- Compile a file of editing key definitions (edcap)
+#
+# B.Simon	23-Jan-89	Original
+
+procedure k_compile (cmdlist)
+
+char	cmdlist[ARB]	# i: List of commands
+#--
+include	"screen.com"
+
+char	sep
+int	ic, maxcmd, nkey, maxkey
+int	hlength, hwidth, hstart, hleft, fd, tag
+pointer	sp, label, escape, name
+
+bool	streq()
+int	k_capfile(), ps_width(), fscan(), nscan(), strdic(), gstrcpy()
+
+begin
+	# Allocate dynamic memory for strings
+
+	call smark (sp)
+	call salloc (label, SZ_FNAME, TY_CHAR)
+	call salloc (escape, SZ_FNAME, TY_CHAR)
+	call salloc (name, SZ_FNAME, TY_CHAR)
+
+	# Count the number of editing commands
+
+	maxcmd = 0
+	sep = cmdlist[1]
+	for (ic = 1; cmdlist[ic] != EOS; ic = ic + 1) {
+	    if (cmdlist[ic] == sep && cmdlist[ic+1] != EOS)
+		maxcmd = maxcmd + 1
+	}
+
+	# Allocate dynamic memory for the function key table
+
+	nkey = 0
+	maxkey = K_CMDLEN * maxcmd
+	call calloc (keytab, 4*maxkey, TY_INT)
+
+	# Set up help text
+
+	hwidth = ps_width() / 2
+	hlength = maxcmd * hwidth
+	call calloc (htext, hlength+1, TY_CHAR)
+	hstart = htext
+	hleft = hlength
+
+	# Add each line from the edcap file to the table of function
+	# key sequences and the help screen
+
+	fd = k_capfile ()
+	while (fscan (fd) != EOF) {
+	    call gargwrd (Memc[label], SZ_FNAME)
+	    call gargwrd (Memc[escape], SZ_FNAME)
+	    call gargwrd (Memc[name], SZ_FNAME)
+
+	    # Proceess line only if all three elements of command are present
+	    # and command is found in command list
+
+	    if (nscan () == 3) {
+
+		if (streq (Memc[label], "EDIT_INIT"))
+		    call k_convert (Memc[escape], ks, K_CMDLEN)
+		else if (streq (Memc[label], "EDIT_TERM"))
+		    call k_convert (Memc[escape], ke, K_CMDLEN)
+
+		tag = strdic (Memc[label], Memc[label], SZ_FNAME, cmdlist)
+		if (tag > 0) {
+		    tag = tag + K_BASE - 1
+
+		    # Add escape sequence to function key table
+
+		    call k_doline (Memc[escape], tag, maxkey, 
+				   nkey, Memi[keytab])
+
+		    # Add label and name to help text
+
+		    if (hleft > hwidth) {
+			hstart = gstrcpy (Memc[label], Memc[hstart], hleft) +
+				 hstart
+
+			Memc[hstart] = '='
+			hstart = hstart + 1			
+
+			hstart = gstrcpy (Memc[name], Memc[hstart], hleft) +
+				 hstart
+
+			Memc[hstart] = '\n'
+			hstart = hstart + 1
+			hleft = hlength - (hstart - htext)
+		    }
+		}
+	    }
+	}
+
+	Memc[hstart] = EOS
+	call close (fd)
+	call sfree (sp)
+end
+
+# K_CAPFILE -- Open the editing capabilities file (edcap)
+
+int procedure k_capfile ()
+
+#--
+int	fd
+pointer	sp, editor, edcap
+
+int    	envgets(), access(), open()
+
+begin
+	# Allocate dynamic memory for strings
+
+	call smark (sp)
+	call salloc (editor, SZ_FNAME, TY_CHAR)
+	call salloc (edcap, SZ_FNAME, TY_CHAR)
+
+	# Get the name of the edcap file and open it
+
+	if (envgets ("editor", Memc[editor], SZ_FNAME) <= 0)
+	    call error (SYNTAX, "Editor not found")
+
+	call sprintf (Memc[edcap], SZ_FNAME, "home$%s.ed")
+	    call pargstr (Memc[editor])
+
+	if (access (Memc[edcap], READ_ONLY, 0) == NO) {
+
+	    call sprintf (Memc[edcap], SZ_FNAME, "dev$%s.ed")
+		call pargstr (Memc[editor])
+
+	    if (access (Memc[edcap], READ_ONLY, 0) == NO)
+		call error (SYNTAX, "Edcap file not found")
+
+	}
+
+	fd = open (Memc[edcap], READ_ONLY, TEXT_FILE)
+	call sfree (sp)
+
+	return (fd)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/kconvert.x b/pkg/utilities/nttools/tedit/display/screen/kconvert.x
new file mode 100644
index 00000000..11e283fa
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/kconvert.x
@@ -0,0 +1,61 @@
+include	<ctype.h>
+
+# K_CONVERT -- Convert a string with coded escape sequences to the real thing
+#
+# B.Simon	23-Jan-89	Original
+
+procedure k_convert (escstr, escseq, maxch)
+
+char	escstr[ARB]	# i: Escape sequence string
+char	escseq[ARB]	# o: Escape key sequence
+int	maxch		# i: Declared length of key sequence
+#--
+int	ic, jc, index, num
+
+string	echars  "befnrt"
+string	ecodes  "\010\033\f\n\r\t"
+
+int	stridx()
+
+begin
+	ic = 1
+	for (jc = 1; jc <= maxch; jc = jc + 1) {
+
+	    # Exit when all characters in escape string have been processed
+
+	    if (escstr[ic] == EOS)
+		break
+
+	    # Convert escape sequence
+
+	    if (escstr[ic] == '\\') {
+		ic = ic + 1
+		index = stridx (escstr[ic], echars)
+		if (index > 0) {
+		    escseq[jc] = ecodes[index]
+		} else if (IS_DIGIT(escstr[ic])) {
+		    for (num = 0; IS_DIGIT(escstr[ic]); ic = ic + 1)
+			num = 8 * num + TO_DIGIT(escstr[ic])
+		    ic = ic - 1
+		    escseq[jc] = num
+		} else {
+		    escseq[jc] = escstr[ic]
+		}
+
+	    # Convert control sequence
+
+	    } else if (escstr[ic] == '^') {
+		ic = ic + 1
+		escseq[jc] = mod (int(escstr[ic]), 32)
+
+	    # Copy ordinary character
+
+	    } else {
+		escseq[jc] = escstr[ic]
+	    }
+
+	    ic = ic + 1
+	}
+
+	escseq[jc] = EOS
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/kdoline.x b/pkg/utilities/nttools/tedit/display/screen/kdoline.x
new file mode 100644
index 00000000..bcdf4a72
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/kdoline.x
@@ -0,0 +1,96 @@
+include	<ctype.h>
+
+define	SYNTAX		1
+define	BOUNDS		2
+
+# K_DOLINE -- Add a line containing an escape sequence to the key table
+#
+# B.Simon	23-Jan-89	Original
+
+procedure k_doline (escstr, tag, maxtab, ntab, table) 
+
+char	escstr[ARB]	#  i: Key sequence
+int	tag		#  i: Key tag
+int	maxtab		#  i: Maximum number of entries
+int	ntab		# io: Current number of entries
+int	table[4,ARB]	# io: Key sequence table
+#--
+int	ic, link, new, old
+pointer	sp, escseq
+
+int	strlen()
+
+string	notctrl  "Key sequence must begin with a control character"
+string	isambig  "Ambiguous key sequence"
+string	toomany  "Too many key definitions"
+
+begin
+	# Convert escape sequence
+
+	call smark (sp)
+	call salloc (escseq, SZ_FNAME, TY_CHAR)
+	call k_convert (escstr, Memc[escseq], SZ_FNAME)
+
+	# Don't process null sequences
+
+	if (Memc[escseq] == EOS)
+	    return
+
+	# Check to see if escape sequence is valid
+
+	if (IS_PRINT(Memc[escseq]))
+	    call error (SYNTAX, notctrl)
+
+	# Find first character in key sequence that is new
+
+	ic = 0
+	link = 0
+	for (new = 1; new != 0; new = table[link,old]) {
+	    old = new
+	    if (link == 1)
+		ic = ic + 1
+	    if (Memc[escseq+ic] == table[3,old])
+		link = 1
+	    else
+		link = 2
+	}
+
+	if (link == 1) {
+
+	    # Redefinition of existing sequence
+
+	    if (Memc[escseq+ic] != EOS)
+		call error (SYNTAX, isambig)
+	    table[4,old] = tag
+
+	} else {
+
+	    # New sequence
+
+	    if (Memc[escseq+ic] == EOS)
+		call error (SYNTAX, isambig)
+
+	    # Check for table overflow
+
+	    if (strlen (Memc[escseq+ic]) + ntab > maxtab)
+		call error (BOUNDS, toomany)
+
+	    # Insert remainder of key sequence in table
+
+	    table[2,old] = ntab + 1
+	    while (Memc[escseq+ic] != EOS) {
+		ntab = ntab + 1
+		table[1,ntab] = ntab + 1
+		table[2,ntab] = 0
+		table[3,ntab] = Memc[escseq+ic]
+		table[4,ntab] = 0
+		ic = ic + 1
+	    }
+	    table[1,ntab] = 0
+	    table[4,ntab] = tag
+
+	}
+
+	call sfree (sp)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/kend.x b/pkg/utilities/nttools/tedit/display/screen/kend.x
new file mode 100644
index 00000000..57130052
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/kend.x
@@ -0,0 +1,49 @@
+include	<fset.h>
+
+# K_END -- Terminate keyboard
+#
+# B.Simon	23-Jan-89	Original
+
+procedure k_end ()
+
+#--
+include	"screen.com"
+
+int	klen
+int	strlen()
+
+begin
+	# Restore keyboard to original state and end raw mode
+
+	if (ttyin != NULL) {
+	    if (term != NULL) {
+		klen = strlen (ke)
+		if (klen > 0)
+		    call ttywrite (ttyout, term, ke, klen, 1)
+	    }
+	    call fseti (ttyin, F_RAW, NO)
+	}
+
+	# Release dynamic memory
+
+	if (keytab != NULL)
+	    call mfree (keytab, TY_INT)
+
+	if (htext != NULL)
+	    call mfree (htext, TY_CHAR)
+	
+end
+
+# K_ERROR -- Procedure called on error exit
+
+procedure k_error (status)
+
+int	status		# i: Error status
+#--
+
+begin
+	if (status != OK) {
+	    call k_end
+	    call ps_end
+	}
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/kget.x b/pkg/utilities/nttools/tedit/display/screen/kget.x
new file mode 100644
index 00000000..61364f9e
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/kget.x
@@ -0,0 +1,96 @@
+include	<ctype.h>
+
+define	CAN_ABORT	NO
+define	ABORT		'\003'
+
+# K_GET -- Read a character, translating function keys
+
+int procedure k_get ()
+
+#--
+include	"screen.com"
+
+int	ch
+
+int	first
+int	k_cget(), k_lookup()
+
+string	abortmsg  "Task aborted by ^C"
+
+begin
+	if (keych != EOF) {
+	    # Check for a pushed back character, returning it if found
+
+	    ch = keych
+	    keych = EOF
+
+	} else {
+	    # Check character to see if it is the start of a control sequence
+	    # If not, return the character without searching the table
+
+	    first = k_cget ()
+
+	    if (IS_PRINT(first))
+		ch = first
+	    else if ((CAN_ABORT == YES) && (first == ABORT))
+		call error (1, abortmsg)
+	    else
+		ch = k_lookup (first, Memi[keytab]) 
+	}
+
+	return (ch)
+
+end
+
+# K_LOOKUP -- Look up a function key sequence in a table
+
+int procedure k_lookup (first, table)
+
+int	first		# i: First character in the sequence
+int	table[4,ARB]	# i: Table of function key sequences
+#--
+include	"screen.com"
+
+int	key, new, old, link
+int	k_cget()
+
+begin
+	# Search the table for the control sequence
+
+	link = 0
+	key = first
+
+	for (new = 1; new != 0; new = table[link,old]) {
+	    old = new
+	    if (link == 1)
+		key = k_cget ()
+	    if (key == table[3,old])
+		link = 1
+	    else
+		link = 2
+	}
+
+	# Return the control sequence tag if the sequence was found,
+	# otherwise return the first unrecognized key
+
+	if (link == 1)
+	    key = table[4,old]
+
+	return (key)
+
+end
+
+# K_CGET -- Read a single character from the terminal
+
+int procedure k_cget ()
+
+#--
+include	"screen.com"
+
+int	ch
+int	and(), getci()
+
+begin
+	ch = getci (ttyin, ch)
+	return (and (ch, 177B))
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/khelp.x b/pkg/utilities/nttools/tedit/display/screen/khelp.x
new file mode 100644
index 00000000..4b075f8a
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/khelp.x
@@ -0,0 +1,61 @@
+include	<fset.h>
+
+# K_HELP -- Retrieve help text for function key sequences
+
+procedure k_help (text)
+
+pointer	text		# o: Help text
+#--
+include	"screen.com"
+
+begin
+	text = htext
+end
+
+procedure k_eseq (name, eseq, maxch)
+
+char	name[ARB]	# i: Name bound to escape sequence
+char	eseq[ARB]	# o: String representation of escape sequence
+int	maxch		# i: Maximum length of escape sequence
+#--
+include "screen.com"
+
+bool	match, in_name
+int	ic
+pointer	ch
+
+begin
+	ic = 1
+	match = true
+	in_name = true
+
+	for (ch = htext; Memc[ch] != EOS; ch = ch + 1) {
+	    if (in_name) {
+		if (Memc[ch] == '=') {
+		    match = match && name[ic] == EOS
+		    in_name = false
+		    ic = 1
+		} else if (match) {
+		    if (Memc[ch] == name[ic]) {	
+			ic = ic + 1
+		    } else {
+			match = false
+		    }
+		}
+
+	    } else {
+		if (Memc[ch] == '\n') {
+		    if (match) 
+			break
+		    ic = 1
+		    match = true
+		    in_name = true
+		} else if (match && ic <= maxch) {
+		    eseq[ic] = Memc[ch]
+		    ic = ic + 1
+		}
+	    }
+	}
+	eseq[ic] = EOS
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/kpushbk.x b/pkg/utilities/nttools/tedit/display/screen/kpushbk.x
new file mode 100644
index 00000000..6e9c05c2
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/kpushbk.x
@@ -0,0 +1,11 @@
+# K_PUSHBK -- Push back a single character read from the keyboard
+
+procedure k_pushbk (ch)
+
+int	ch		# i: character to be pushed back
+#--
+include "screen.com"
+
+begin
+	keych = ch
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/mkpkg b/pkg/utilities/nttools/tedit/display/screen/mkpkg
new file mode 100644
index 00000000..dc062ae4
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/mkpkg
@@ -0,0 +1,32 @@
+# Update the display library.
+# Author: B.Simon 01-APR-91
+
+$checkout libpkg.a ../../
+$update   libpkg.a
+$checkin  libpkg.a ../../
+$exit
+
+libpkg.a:
+	kbegin.x	<fset.h>  "../curses.h"  "screen.com"
+	kcompile.x	<ctype.h>  "../curses.h"  "screen.com"
+	kconvert.x	<ctype.h>
+	kdoline.x	<ctype.h>
+	kend.x		<fset.h>  "screen.com"
+	kget.x		<ctype.h>  "screen.com"
+	khelp.x		"screen.com"
+	kpushbk.x	"screen.com"
+	psbegin.x	<ttyset.h>  "screen.com"
+	psbeep.x
+	psend.x		"screen.com"
+	psfill.x	<ctype.h>  "../curses.h"  "screen.com"
+	psheight.x	"screen.com"
+	psintersect.x	"../curses.h"
+	psscreen.x	"screen.com"
+	pssendcap.x	"screen.com"
+	pssetcur.x	"screen.com"
+	psslide.x	"../curses.h"  "screen.com"
+	pssynch.x	"screen.com"
+	pswidth.x	"screen.com"
+	pswrite.x	<ctype.h>  "../curses.h"  "screen.com"
+	pswrtcells.x	<ctype.h>  "../curses.h"  "screen.com"
+	;
diff --git a/pkg/utilities/nttools/tedit/display/screen/psbeep.x b/pkg/utilities/nttools/tedit/display/screen/psbeep.x
new file mode 100644
index 00000000..252991ba
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psbeep.x
@@ -0,0 +1,9 @@
+# PS_BEEP -- Sound the bell
+#
+# B.Simon	19-Jan-89	Original
+
+procedure ps_beep ()
+
+begin
+	call ps_sendcap ("bl", 1)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/psbegin.x b/pkg/utilities/nttools/tedit/display/screen/psbegin.x
new file mode 100644
index 00000000..2bf702cf
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psbegin.x
@@ -0,0 +1,59 @@
+include	<ttyset.h>
+include "../curses.h"
+
+# PS_BEGIN -- Initialize physical screen display
+#
+# B.Simon	18-Jan-89	Original
+# B.Simon	26-Sep-90	Updated to use screen buffer
+
+procedure ps_begin ()
+
+#--
+include	"screen.com"
+
+char	ch
+data	ch	/ EOS /
+
+string	nomove  "Terminal does not support cursor movement (cm)"
+
+bool	ttygetb()
+int	ttopen(), ttystati()
+pointer	ttyodes()
+
+begin
+	# Initialize global variables
+
+	ks[1] = EOS
+	ke[1] = EOS
+	keych = EOF
+
+	currow = GIANT
+	curcol = GIANT
+
+	keytab = NULL
+	termscr = NULL
+	htext = NULL
+
+	term = ttyodes ("terminal")
+	lines = ttystati (term, TTY_NLINES)
+	cols = ttystati (term, TTY_NCOLS)
+
+	if (! ttygetb (term, "cm")) {
+	    call ttyclose (term)
+	    call error (1, nomove)
+	}
+
+	ttyin = ttopen ("dev$tty", READ_ONLY)
+	ttyout = ttopen ("dev$tty", APPEND)
+
+	# Allocate memory for screen and fill with EOS
+
+	call malloc (termscr, lines*cols, TY_CHAR)
+	call amovkc (ch, Memc[termscr], lines*cols)
+
+	# Initialize display
+
+	call ps_sendcap ("ti", 1)
+	call ps_sendcap ("vs", 1)
+	
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/psend.x b/pkg/utilities/nttools/tedit/display/screen/psend.x
new file mode 100644
index 00000000..1d86e6df
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psend.x
@@ -0,0 +1,48 @@
+# PS_END -- Terminate physical display package
+#
+# B.Simon	18-Jan-89	Original
+# B.Simon	26-Sep-90	Updated to use screen buffer
+
+procedure ps_end()
+
+#--
+include	"screen.com"
+
+char	newline
+data	newline	/ '\n' /
+
+begin
+	# Restore terminal to original state and release termcap structure
+
+	if (term != NULL) {
+	    call ps_sendcap ("ve", 1)
+	    call ps_sendcap ("te", 1)
+
+	    if (ttyout != NULL) {
+		call ttygoto (ttyout, term, 1, lines)
+		call putc (ttyout, newline)
+	    }
+	    call ttyclose (term)
+	    term = NULL
+	}
+
+	# Release screen memory
+
+	if (termscr != NULL) {
+	    call mfree (termscr, TY_CHAR)
+	    termscr = NULL
+	}
+
+	# Close terminal descriptor
+
+	if (ttyin != NULL) {
+	    call close (ttyin)
+	    ttyin = NULL
+	}
+
+	if (ttyout != NULL) {
+	    call close (ttyout)
+	    ttyout = NULL
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/psfill.x b/pkg/utilities/nttools/tedit/display/screen/psfill.x
new file mode 100644
index 00000000..2ceee221
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psfill.x
@@ -0,0 +1,135 @@
+include	<ctype.h>
+include	"../curses.h"
+
+# PS_FILL -- Fill a rectangle with a single character and attribute
+#
+# B.Simon	19-Jan-89	Original
+# B.Simon	26-Sep-90	Updated to use screen buffer
+# B.Simon	31-Oct-90	Changed to skip correct lines
+
+procedure ps_fill (source, ch, att)
+
+int	source[RSIZE]	# i: Rectangle
+int	ch		# i: Fill character
+int	att		# i: Fill attribute
+#--
+include	"screen.com"
+
+bool	canclear, bufflag
+char	blank, fill, cell
+int	dest[RSIZE]
+int	ncols, nrows, irow, icol
+pointer	sp, buf, scr
+
+data	blank	/ ' ' /
+
+bool	ps_intersect(), ttygetb()
+pointer	ps_screen()
+
+begin
+	# Clip the rectangle to the screen boundary
+	# If the rectangle is entirely off the screen, return
+
+	if (! ps_intersect (source, lines, cols, dest))
+	    return
+
+
+	# Check for the special cases:
+	# Clear entire screen (cl) and clear to end of screen (cd)
+
+	canclear = (ch == ' ' && att == A_NORM)
+	ncols = RWIDTH(dest)
+	nrows = RHEIGHT(dest)
+
+	if (canclear && ncols == cols && nrows == lines) {
+	    if (ttygetb (term, "cl")) {
+		call ps_updcur (1, 1)
+		call ps_sendcap ("cl", nrows)
+		call amovkc (blank, Memc[termscr], lines*cols) 
+		return
+	    }
+	}
+		
+	if (canclear && ncols == cols && RBOT(dest) == lines) {
+	    if (ttygetb (term, "cd")) {
+		call ps_setcur (RTOP(dest), 1)
+		call ps_sendcap ("cd", nrows)
+		scr = ps_screen (RTOP(dest), 1)
+		call amovkc (blank, Memc[scr], nrows*cols)
+		return
+	    }
+	}
+
+	# Write the rectangle a line at a time
+
+	call smark (sp)
+	call salloc (buf, cols, TY_CHAR)
+
+	if (IS_PRINT(ch))
+	    fill = ch
+	else
+	    fill = blank
+
+	cell = fill + att
+	bufflag = false
+
+	canclear = canclear && ttygetb (term, "ce")
+
+	do irow = RTOP(dest), RBOT(dest) {
+
+	    # Check to see if line is already correct
+	    # If so, skip to the next line
+
+	    scr = ps_screen (irow, RLEFT(dest))
+
+	    for (icol = 1; icol <= ncols; icol = icol + 1) {
+		if (Memc[scr+icol-1] != cell)
+		    break
+	    }
+
+	    if (icol > ncols)
+		next
+
+	    # Move cursor to beginning of line and set attribute
+
+	    call ps_setcur (irow, RLEFT(dest))
+
+	    if (att != A_NORM)
+		call ps_sendcap ("so", 1)
+
+	    # Special case: clear to end of line
+
+	    if (canclear && RRIGHT(dest) == cols) {
+		call ps_sendcap ("ce", 1)
+		call amovkc (blank, Memc[scr], ncols)
+
+	    } else {
+
+		# Fill buffer with character and write to terminal
+
+		if (! bufflag) {
+		    bufflag = true
+		    call amovkc (fill, Memc[buf], ncols)
+		}
+
+		# Don't write to lower right corner if screen will scroll
+
+		if (irow == lines && RRIGHT(dest) == cols) {
+		    if (ttygetb (term, "am"))
+			ncols = ncols - 1
+		}
+
+		call write (ttyout, Memc[buf], ncols)
+		call amovkc (cell, Memc[scr], ncols)
+		call ps_updcur (irow, RRIGHT(dest) + 1)
+	    }
+
+	    # Set attribute back to normal
+
+	    if (att != A_NORM)
+		call ps_sendcap ("se", 1)
+
+	}
+
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/psheight.x b/pkg/utilities/nttools/tedit/display/screen/psheight.x
new file mode 100644
index 00000000..8350e773
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psheight.x
@@ -0,0 +1,12 @@
+# PS_HEIGHT -- Get height of physical screen
+#
+# B.Simon	18-Jan-89	Original
+
+int procedure ps_height ()
+
+#--
+include	"screen.com"
+
+begin
+	return (lines)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/psintersect.x b/pkg/utilities/nttools/tedit/display/screen/psintersect.x
new file mode 100644
index 00000000..93c11f0f
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psintersect.x
@@ -0,0 +1,27 @@
+include	"../curses.h"
+
+# PS_INTERSECT -- Intersection between two rectangles
+#
+# B.Simon	18-Jan-89	Original
+
+bool procedure ps_intersect (source, maxrow, maxcol, dest)
+
+int	source[RSIZE]	# i: Source rectangle
+int	maxrow		# i: Max row of clipping rectangle
+int	maxcol		# i: Max column of clipping rectangle
+int	dest[RSIZE]	# o: Destination rectangle
+#--
+
+begin
+	# Clip source rectangle to (1,1) and (maxrow,maxcol)
+
+	RTOP(dest) = max (1, RTOP(source))
+	RLEFT(dest) = max (1, RLEFT(source))
+	RBOT(dest) = min (maxrow, RBOT(source))
+	RRIGHT(dest) = min (maxcol, RRIGHT(source))
+
+	# Return true if intersection is non-empty
+
+	return (RTOP(dest) <= RBOT(dest) && RLEFT(dest) <= RRIGHT(dest))
+end
+	
diff --git a/pkg/utilities/nttools/tedit/display/screen/psscreen.x b/pkg/utilities/nttools/tedit/display/screen/psscreen.x
new file mode 100644
index 00000000..afdd7b8d
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psscreen.x
@@ -0,0 +1,14 @@
+# PS_SCREEN -- Return a pointer to a given character on the screen
+#
+# B.Simon	28-Sep-90	Original
+
+pointer procedure ps_screen (row, col)
+
+int	row		# i: Screen line
+int	col		# i: Screen column
+#--
+include	"screen.com"
+
+begin
+	return (termscr+cols*(row-1)+(col-1))
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/pssendcap.x b/pkg/utilities/nttools/tedit/display/screen/pssendcap.x
new file mode 100644
index 00000000..295a6cff
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/pssendcap.x
@@ -0,0 +1,74 @@
+# PS_SENDCAP -- Send a termcap command to the terminal
+#
+# B.Simon	18-Jan-89	Original
+
+procedure ps_sendcap (cap, affcnt)
+
+char	cap[ARB]	# i: Termcap capability name
+int	affcnt		# i: Number of lines affected by the command
+#--
+include	"screen.com"
+
+int	nchar
+pointer	sp, capstr
+
+int	ttygets()
+
+begin
+	call smark (sp)
+	call salloc (capstr, SZ_FNAME, TY_CHAR)
+
+	# Retrieve the termcap capability string given its name
+	# If it is found, write it to the terminal
+
+	nchar = ttygets (term, cap, Memc[capstr], SZ_FNAME)
+	if (nchar > 0) {
+	    call ttywrite (ttyout, term, Memc[capstr], nchar, affcnt)
+	    ##  call ps_debugcap (cap, Memc[capstr], nchar)
+	}
+
+	call sfree (sp)
+end
+
+# PS_DEBUGCAP -- Print a termcap string for debugging purposes
+
+procedure ps_debugcap (capname, capstr, nchar)
+
+char	capname[ARB]	# i: Termcap capability name
+char	capstr[ARB]	# i: Termcap capability string
+int	nchar		# i: Number of characters in string
+#--
+include	"screen.com"
+
+char	ch
+int	ic, jc
+pointer	sp, out
+
+begin
+	# Allocate memory for strings
+
+	call smark (sp)
+	call salloc (out, SZ_LINE, TY_CHAR)
+
+	jc = 0
+	do ic = 1, nchar {
+	    ch = capstr[ic]
+	    if (ch < ' ') {
+		Memc[out+jc] = '^'
+		jc = jc + 1
+		ch = ch + '@'
+	    }
+	    Memc[out+jc] = ch
+	    jc = jc + 1
+	}
+	Memc[out+jc] = EOS
+	
+	# Write string to STDOUT and flush
+
+	call fprintf (ttyout, "%s = %s\n")
+	    call pargstr (capname)
+	    call pargstr (Memc[out])
+	call flush (ttyout)
+
+	call sfree (sp)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/pssetcur.x b/pkg/utilities/nttools/tedit/display/screen/pssetcur.x
new file mode 100644
index 00000000..a6954da3
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/pssetcur.x
@@ -0,0 +1,117 @@
+define	ABSOLUTE	YES	# disable relative cursor motion if YES
+
+# PS_SETCUR -- Set the cursor position
+#
+# B.Simon	19-Jan-89	Original
+# B.Simon	19-Dec-90	Rewritten to speed cursor motion
+# B.Simon	10-Apr-91	Add switch to disable relative motion
+
+procedure ps_setcur (row, col)
+
+int	row		# i: Cursor row
+int	col		# i: Cursor column
+#--
+include "screen.com"
+
+bool	moved
+int	newrow, newcol, dr, dc
+
+bool	ttygetb()
+
+begin
+	newrow = min (lines, max (1, row))
+	newcol = min (cols, max (1, col))
+
+	moved = true
+	dr = newrow - currow
+	dc = newcol - curcol
+
+	if (ABSOLUTE == YES) {
+	    if (dr != 0 || dc != 0)
+		moved = false
+
+	} else if (dr == 0) {
+	    if (dc == 0) { # no move
+		return
+
+	    } else if (dc == 1) { # move right by one
+		if (ttygetb (term, "nd"))
+		    call ps_sendcap ("nd", 1)
+		else
+		    moved = false
+
+	    } else if (dc == -1) { # move left by one
+		if (ttygetb (term, "le"))
+		    call ps_sendcap ("le", 1)
+		else
+		    moved = false
+
+	    } else {
+		moved = false
+	    }
+
+	} else if (dr == 1) {
+	    if (dc == 0) { # move down by one
+		if (ttygetb (term, "do"))
+		    call ps_sendcap ("do", 1)
+		else
+		    moved = false
+
+	    } else {
+		moved = false
+	    }
+
+	} else if (dr == -1) {
+	    if (dc == 0) { # move up by one
+		if (ttygetb (term, "up"))
+		    call ps_sendcap ("up", 1)
+		else
+		    moved = false
+	    } else {
+		moved = false
+	    }
+
+	} else {
+	    moved = false
+	}
+
+	if (! moved) # must use absolute move
+	    call ttygoto (ttyout, term, newcol, newrow)
+
+	# Update current cursor position
+
+	currow = newrow
+	curcol = newcol
+end
+
+# PS_UPDCUR -- Update the cursor position
+
+procedure ps_updcur (row, col)
+
+int	row		# i: New cursor row
+int	col		# i: New cursor column
+#--
+include "screen.com"
+
+bool	ttygetb()
+
+begin
+	if (row >= lines) {
+	    currow = lines 
+	} else {
+	    currow = row
+	}
+
+	if (col >= cols) {
+	    if (ttygetb (term, "am")) {
+		currow = min (row + 1, lines)
+		curcol = 1
+	    } else {
+		curcol = cols
+	    }
+
+	} else {
+	   curcol = col
+	}
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/psslide.x b/pkg/utilities/nttools/tedit/display/screen/psslide.x
new file mode 100644
index 00000000..5ad0bc5d
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/psslide.x
@@ -0,0 +1,182 @@
+include	"../curses.h"
+
+# PS_SLIDE -- Slide a rectangle on the screen
+#
+# B.Simon	19-Jan-89	Original
+# B.Simon	26-Sep-90	Updated to use screen buffer
+# B.Simon	22-Mar-91	Fix error in left & right slides
+
+bool procedure ps_slide (source, dir, dist)
+
+int	source[RSIZE]	# i: Rectangle
+int	dir		# i: Direction (from curses.h)
+int	dist		# i: Distance (> 0)
+#--
+include	"screen.com"
+
+char	blank
+int	dest[RSIZE]
+int	nrows, ncols, irow, icol
+pointer	oldscr, newscr, linscr
+
+data	blank	/ ' ' /
+
+bool	ps_intersect(), ttygetb()
+pointer	ps_screen()
+
+begin
+	if (! ps_intersect (source, lines, cols, dest))
+	    return (true)
+
+	ncols = RWIDTH(dest)
+	nrows = RHEIGHT(dest)
+
+	switch (dir) {
+	case DIR_UP:
+	    if (RLEFT(dest) != 1 || RRIGHT(dest) != cols)
+		return (false)	    
+	    if ( !(ttygetb (term, "al") && ttygetb (term, "dl")))
+		return (false)
+
+	    call ps_setcur (max (1, RTOP(dest)-dist), 1)
+	    do irow = 1, dist
+		call ps_sendcap ("dl", lines - RTOP(dest) + dist)
+
+	    if (RBOT(dest) < lines) {
+		call ps_setcur (RBOT(dest) + 1, 1)
+		do irow = 1, dist
+		    call ps_sendcap ("al", lines - RBOT(dest))
+	    }
+
+	    oldscr = ps_screen (RTOP(dest), 1)
+	    newscr = ps_screen (RTOP(dest)-dist, 1)
+	    do irow = 1, nrows-dist {
+		if (newscr >= termscr)
+		    call amovc (Memc[oldscr], Memc[newscr], ncols)
+		oldscr = oldscr + cols
+		newscr = newscr + cols
+	    }
+	    do irow = 1, dist {
+		if (newscr < (termscr + lines * cols))
+		    call amovkc (blank, Memc[newscr], ncols)
+		newscr = newscr + cols
+	    }
+
+	case DIR_DOWN:
+	    if (RLEFT(dest) != 1 || RRIGHT(dest) != cols)
+		return (false)	    
+	    if ( !(ttygetb (term, "al") && ttygetb (term, "dl")))
+		return (false)
+
+	    call ps_setcur (min (lines, RBOT(dest)+1), 1)
+	    do irow = 1, dist
+		call ps_sendcap ("dl", lines - RBOT(dest))
+
+	    call ps_setcur (RTOP(dest), 1)
+	    do irow = 1, dist
+		call ps_sendcap ("al", lines - RTOP(dest))
+
+	    oldscr = ps_screen (RBOT(dest), 1)
+	    newscr = ps_screen (RBOT(dest)+dist, 1)
+	    do irow = 1, nrows-dist {
+		if (newscr < (termscr + lines * cols))
+		    call amovc (Memc[oldscr], Memc[newscr], ncols)
+		oldscr = oldscr - cols
+		newscr = newscr - cols
+	    }
+	    do irow = 1, dist {
+		if (newscr >= termscr)
+		    call amovkc (blank, Memc[newscr], ncols)
+		newscr = newscr - cols
+	    }
+
+	case DIR_LEFT:
+	    if (! ((ttygetb (term, "ic") || ttygetb (term, "im")) &&
+		    ttygetb (term, "dc")))
+		return (false)
+
+	    do irow = RTOP(dest), RBOT(dest) {
+
+		call ps_setcur (irow, max (1, RLEFT(dest)-dist))
+		call ps_sendcap ("dm", 1)
+		do icol = 1, dist
+		    call ps_sendcap ("dc", 1)
+		call ps_sendcap ("ed", 1)
+
+		if (RRIGHT(dest) < cols) {
+		    call ps_setcur (irow, RRIGHT(dest) - dist + 1)
+		    call ps_sendcap ("im", 1)
+		    do icol = 1, dist {
+			call ps_sendcap ("ic", 1)
+			call ps_sendcap ("ip", 1)
+			call putc (ttyout, blank)
+		    }
+		    call ps_sendcap ("ei", 1)
+		    call ps_updcur (irow, RRIGHT(dest) + 1)
+		}
+
+		linscr = ps_screen (irow,1)
+		oldscr = ps_screen (irow,RLEFT(dest))
+		newscr = oldscr - dist
+
+		do icol = 1, ncols-dist+1 {
+		    if (newscr >= linscr)
+			Memc[newscr] = Memc[oldscr]
+		    oldscr = oldscr + 1
+		    newscr = newscr + 1
+		}
+
+		do icol = 1, dist {
+		    if (newscr < linscr + cols)
+			Memc[newscr] = blank
+		    newscr = newscr + 1
+		}
+	    }
+	case DIR_RIGHT:
+	    if (! ((ttygetb (term, "ic") || ttygetb (term, "im")) &&
+		    ttygetb (term, "dc")))
+		return (false)
+
+	    do irow = RTOP(dest), RBOT(dest) {
+
+		if (RRIGHT(dest) < cols - 1) {
+		    call ps_setcur (irow, RRIGHT(dest) + 1)
+		    call ps_sendcap ("dm", 1)
+		    do icol = 1, dist
+			call ps_sendcap ("dc", 1)
+		    call ps_sendcap ("ed", 1)
+		}
+
+		call ps_setcur (irow, RLEFT(dest))
+		call ps_sendcap ("im", 1)
+		do icol = 1, dist {
+		    call ps_sendcap ("ic", 1)
+		    call ps_sendcap ("ip", 1)
+		    call putc (ttyout, blank)
+		}
+		call ps_sendcap ("ei", 1)
+		call ps_updcur (irow, RLEFT(dest) + dist)
+
+		linscr = ps_screen (irow,1)
+		oldscr = ps_screen (irow,RRIGHT(dest))
+		newscr = oldscr + dist
+
+		do icol = 1, ncols-dist+1 {
+		    if (newscr < linscr + cols)
+			    Memc[newscr] = Memc[oldscr]
+		    oldscr = oldscr - 1
+		    newscr = newscr - 1
+		}
+
+		do icol = 1, dist {
+		    if (newscr >= linscr)
+			Memc[newscr] = blank
+		    newscr = newscr - 1
+		}
+	    }
+	default:
+	    return (false)
+	}
+
+	return (true)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/pssynch.x b/pkg/utilities/nttools/tedit/display/screen/pssynch.x
new file mode 100644
index 00000000..a91474c8
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/pssynch.x
@@ -0,0 +1,12 @@
+# PS_SYNCH -- Bring screen up to date
+#
+# B.Simon	18-Jan-89	Original
+
+procedure ps_synch ()
+
+#--
+include	"screen.com"
+
+begin
+	call flush (ttyout)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/pswidth.x b/pkg/utilities/nttools/tedit/display/screen/pswidth.x
new file mode 100644
index 00000000..d06a190c
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/pswidth.x
@@ -0,0 +1,12 @@
+# PS_WIDTH -- Get width of physical screen
+#
+# B.Simon	18-Jan-89	Original
+
+int procedure ps_width ()
+
+#--
+include	"screen.com"
+
+begin
+	return (cols)
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/pswrite.x b/pkg/utilities/nttools/tedit/display/screen/pswrite.x
new file mode 100644
index 00000000..ea8de0af
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/pswrite.x
@@ -0,0 +1,79 @@
+include	<ctype.h>
+include	"../curses.h"
+
+# PS_WRITE -- Write a string on the physical screen
+#
+# B.Simon	18-Jan-89	Original
+# B.Simon	26-Sep-90	Updated to use screen buffer
+
+procedure ps_write (row, col, ncols, str, att)
+
+int	row		# i: Starting row
+int	col		# i: Starting column
+int	ncols		# i: Number of columns to write
+char	str[ARB]	# i: String to write
+int	att		# i: Attribute
+#--
+include	"screen.com"
+
+char	blank
+int	colstart, colend, idxstart, idxend, idx
+pointer	scr
+
+data	blank	/ ' ' /
+
+bool	ttygetb()
+int	strlen()
+pointer	ps_screen()
+
+begin
+	# Don't try to print if string is entirely off the screen
+
+	if (row < 1 || row > lines || col > cols)
+	    return
+
+	# Compute the portion of the string that is on the screen
+
+	colstart = max (col, 1)
+	colend = min (ncols, strlen(str)) + col - 1
+	colend = min (colend, cols)
+
+	if (colend == cols && row == lines) {
+	    if (ttygetb (term, "am"))
+		colend = colend - 1
+	}
+
+	if (colend < colstart)
+	    return
+
+	idxstart = colstart - col + 1
+	idxend = colend - col + 1
+
+	# Move the cursor to the position of the first printed character
+
+	call ps_setcur (row, colstart)
+
+	# Print the string with the proper attribute
+	# All non-printing characters are printed as blanks
+
+	if (att != A_NORM)
+	    call ps_sendcap ("so", 1)
+
+	scr = ps_screen (row, colstart)
+	do idx = idxstart, idxend {
+	    if (IS_PRINT(str[idx])) {
+		call putc (ttyout, str[idx])
+		Memc[scr] = str[idx] + att
+	    } else {
+		call putc (ttyout, blank)
+		Memc[scr] = blank + att
+	    }
+	    scr = scr + 1
+	}
+
+	if (att != A_NORM)
+	    call ps_sendcap ("se", 1)
+
+	call ps_updcur (row, colend + 1)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/pswrtcells.x b/pkg/utilities/nttools/tedit/display/screen/pswrtcells.x
new file mode 100644
index 00000000..0e080121
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/pswrtcells.x
@@ -0,0 +1,114 @@
+include	<ctype.h>
+include	"../curses.h"
+
+# PS_WRTCELLS -- Write a vector of cells
+#
+# B.Simon	19-Jan-89	Original
+# B.Simon	26-Sep-90	Updated to use screen buffer
+
+procedure ps_wrtcells (row, col, vector, ncols)
+
+int	row		# i: Starting row
+int	col		# i: Starting column
+char	vector[ARB]	# i: Vector to write
+int	ncols		# i: Number of columns to write
+#--
+include	"screen.com"
+
+char	blank, att, ch
+int	colstart, colend, idxstart, idxend, idx
+pointer	scr
+
+data	blank	/ ' ' /
+
+bool	ttygetb()
+pointer	ps_screen()
+
+begin
+	# Don't try to print if vector is entirely off the screen
+
+	if (row < 1 || row > lines || col > cols)
+	    return
+
+	# Compute the portion of the vector that is on the screen
+
+	colstart = max (col, 1)
+	colend = min (ncols + col - 1, cols)
+
+	if (colend == cols && row == lines) {
+	    if (ttygetb (term, "am"))
+		colend = colend - 1
+	}
+
+	idxstart = colstart - col + 1
+	idxend = colend - col + 1
+
+	# Adjust string start and end so that portions that
+	# duplicate the current screen contents are not printed
+
+	scr = ps_screen (row, colend)
+	while (idxend >= idxstart) {
+	    if (vector[idxend] != Memc[scr])
+		break
+
+	    colend = colend - 1
+	    idxend = idxend - 1
+	    scr = scr - 1
+	}
+
+	scr = ps_screen (row, colstart)
+	while (idxstart <= idxend) {
+	    if (vector[idxstart] != Memc[scr])
+		break
+
+	    colstart = colstart + 1
+	    idxstart = idxstart + 1
+	    scr = scr + 1
+	}
+
+	if (colend < colstart)
+	    return
+
+	# Move the cursor to the position of the first printed character
+
+	call ps_setcur (row, colstart)
+
+	# Print the vector
+
+	att = 0
+	do idx = idxstart, idxend {
+
+	    # Set the proper attribute
+
+	    if (vector[idx] < A_STANDOUT) {
+		ch = vector[idx]
+		if (att != 0) {
+		    att = 0
+		    call ps_sendcap ("se", 1)
+		}
+	    } else {
+		ch = vector[idx] - A_STANDOUT
+		if (att == 0) {
+		    att = vector[idx] - ch
+		    call ps_sendcap ("so", 1)
+		}
+	    }
+
+	    # Print non-printing character as blank
+
+	    if (IS_PRINT(ch)) {
+		call putc (ttyout, ch)
+		Memc[scr] = ch + att
+	    } else {
+		call putc (ttyout, blank)
+		Memc[scr] = blank + att
+	    }
+	    scr = scr + 1
+	}
+
+	if (att != 0)
+	    call ps_sendcap ("se", 1)
+
+	call ps_updcur (row, colend + 1)
+
+end
diff --git a/pkg/utilities/nttools/tedit/display/screen/screen.com b/pkg/utilities/nttools/tedit/display/screen/screen.com
new file mode 100644
index 00000000..5a13cd02
--- /dev/null
+++ b/pkg/utilities/nttools/tedit/display/screen/screen.com
@@ -0,0 +1,18 @@
+# SCREEN.COM -- Global variables used by the screen routines
+
+pointer	keytab		# Table of function key sequences
+pointer	termscr		# Copy of terminal screen contents
+pointer	htext		# Function key help text
+pointer	term		# The termcap data structure
+int	ttyin		# Input file descriptor for the terminal
+int	ttyout		# Output file descriptor for the terminal
+int	lines		# The number of lines on the screen
+int	cols		# The number of columns on the screen
+int	currow		# Cursor row
+int	curcol		# Cursor column
+int	keych		# Pushed back keyboard character
+char	ks[7]		# Initialize keypad sequence
+char	ke[7]		# Terminate keypad sequence
+
+common /screen/  keytab, termscr, htext, ttyin, ttyout, term, 
+		 lines, cols, currow, curcol, keych, ks, ke