home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / drdobbs / 1990 / 09 / term.asc < prev   
Text File  |  1990-04-01  |  756b  |  28 lines
  1. DEFINITION MODULE Term;   (* TVI950 Terminal Emulation For Kermit *)
  2.  
  3.    EXPORT QUALIFIED
  4.       WM_TERM, WM_TERMQUIT, 
  5.       Dir, TermThrProc, InitTerm, PutKbdChar, PutPortChar;
  6.  
  7.    CONST
  8.       WM_TERM = 4000H;
  9.       WM_TERMQUIT = 4001H;
  10.    
  11.       
  12.    PROCEDURE Dir (path : ARRAY OF CHAR);
  13.    (* Displays a directory *)
  14.    
  15.    PROCEDURE TermThrProc;
  16.    (* Thread to get characters from port, put into buffer, send message *)
  17.    
  18.    PROCEDURE InitTerm;
  19.    (* Clear Screen, Home Cursor, Get Ready For Terminal Emulation *)
  20.    
  21.    PROCEDURE PutKbdChar (ch1, ch2 : CHAR);
  22.    (* Process a character received from the keyboard *)
  23.  
  24.    PROCEDURE PutPortChar (ch : CHAR);
  25.    (* Process a character received from the port *)
  26.    
  27. END Term.
  28.