home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol080 / conact.psp < prev    next >
Encoding:
Text File  |  1984-04-29  |  910 b   |  25 lines
  1. PROCEDURE Conact (Action : Integer) ;
  2.  
  3.   { Procedure to clear screen, erase line, move cursor, etc., for Micro-Term
  4.     ACT-IV terminal; duplicates functions of "Conact" in Pascal/M & UCSD.
  5.     Change codes as necessary for your terminal functions.             }
  6.  
  7. BEGIN
  8.  
  9.   CASE Action OF
  10.     0 : BEGIN            { Clear screen and go to "home" position }
  11.       Write (Chr (12)) ;
  12.       Write (Chr (0)) ;
  13.       Write (Chr (0)) ;
  14.     END ;
  15.     1 : Write (Chr (30)) ;  { Erase to end of current line }
  16.     2 : Write (Chr (26)) ;  { Move cursor up one line }
  17.     3 : Write (Chr (11)) ;  { Move cursor down one line }
  18.     4 : Write (Chr (25)) ;  { Move cursor left one character }
  19.     5 : Write (Chr (24)) ;  { Move cursor right one character }
  20.     6 : Write (Chr (127)) ; { Delete character at cursor position }
  21.     7 : Write (Chr (0)) ;   { Insert character -- N/A on ACT-IV }
  22.   END { CASE } ;
  23.  
  24. END { Conact } ;
  25.