Path: utzoo!utgpu!utstat!jarvis.csri.toronto.edu!mailrus!shadooby!samsung!brutus.cs.uiuc.edu!wuarchive!decwrl!amdcad!pepsi!ching
From: ching@pepsi.amd.com (Mike Ching)
Newsgroups: comp.os.minix
Subject: Adding clear screen to console
Message-ID: <28030@amdcad.AMD.COM>
Date: 12 Nov 89 19:54:50 GMT
References: <241@fwi.uva.nl>
Sender: news@amdcad.AMD.COM
Reply-To: ching@pepsi.AMD.COM (Mike Ching)
Organization: Advanced Micro Devices, Inc. Sunnyvale CA
Lines: 43

I find it inconvenient to use kermit in terminal mode without the ability
to emulate the vt100 clear screen so I added the following patch to
console.c.

mike ching

------ cut here ------

*** console.c	Sat Nov 11 18:22:32 1989
--- console.c.old	Sat Nov 11 20:00:26 1989
***************
*** 419,427 ****
   *   ESC [nB moves down n lines
   *   ESC [nC moves right n spaces
   *   ESC [nD moves left n spaces
!  *   ESC [m;nH moves cursor to (m,n)
!  *   ESC [J clears screen from cursor
!  *   ESC [2J clears screen
   *   ESC [K clears line from cursor
   *   ESC [nL inserts n lines ar cursor
   *   ESC [nM deletes n lines at cursor
--- 419,426 ----
   *   ESC [nB moves down n lines
   *   ESC [nC moves right n spaces
   *   ESC [nD moves left n spaces
!  *   ESC [m;nH" moves cursor to (m,n)
!  *   ESC [J clears screen from cursor
   *   ESC [K clears line from cursor
   *   ESC [nL inserts n lines ar cursor
   *   ESC [nM deletes n lines at cursor
***************
*** 532,541 ****
  			break;
  
  		    case 'J':		/* ESC [J clears screen from cursor */
- 			if (value == 2) {
- 				move_to(tp, 0, 0);
- 				value = 0;
- 			}
  			if (value == 0) {
  				n=2*((SCR_LINES-(tp->tty_row+1))*LINE_WIDTH
  					      + LINE_WIDTH - (tp->tty_column));
--- 531,536 ----