DEFINITION MODULE Term; (* TVI950 Terminal Emulation For Kermit *) EXPORT QUALIFIED WM_TERM, WM_TERMQUIT, Dir, TermThrProc, InitTerm, PutKbdChar, PutPortChar; CONST WM_TERM = 4000H; WM_TERMQUIT = 4001H; PROCEDURE Dir (path : ARRAY OF CHAR); (* Displays a directory *) PROCEDURE TermThrProc; (* Thread to get characters from port, put into buffer, send message *) PROCEDURE InitTerm; (* Clear Screen, Home Cursor, Get Ready For Terminal Emulation *) PROCEDURE PutKbdChar (ch1, ch2 : CHAR); (* Process a character received from the keyboard *) PROCEDURE PutPortChar (ch : CHAR); (* Process a character received from the port *) END Term.