SUBROUTINE CLRSCR
C Routine to set scroll region to entire screen and clear screen
	IMPLICIT REAL*8 (A-Z)
	INCLUDE 'ARRAYS.INC/NOLIST'
	PARAMETER CLEAR_BUFF_SIZE = 11
	BYTE CLEAR_BUFF(CLEAR_BUFF_SIZE)
	INTEGER*4 ISTAT,SYS$QIOW
	DATA CLEAR_BUFF / 
     1	27,'[','1',';','2','4','r',	! Define scroll region
     2	27,'[','2','J' /		! Clear screen
C
C Write CLEAR_BUFF
C
	ISTAT = SYS$QIOW(%VAL(EFN_WRITE),%VAL(ICHAN),%VAL(WRITE_FUNC),
     1		,,,CLEAR_BUFF,%VAL(CLEAR_BUFF_SIZE),,
     2		%VAL(NO_CARRIAGE_CONTROL),,)
D	WRITE(11,*) 'CLEAR_BUFF QIOW STATUS=',ISTAT
	CALL WAIT(100)
	RETURN
	END