SUBROUTINE CLEAR
C*****************************************************************************
C
C Description  : Clears screen and puts pointer in upper left corner
C
C Arguments    : none
C
C Author       : H.A.M. Fikke
C                AKZO PHARMA, Oss Holland
C                dept. SDA
C
C Version      : V1.0      Date : 28-jan-83
C
C Module name  : CLEAR.FTN
C
C Package      : RSX- LIBRARY
C
C Compilation/Linking : FOR/F4P/TR:NONE CLEAR
C
C Updates      : name                 version
C
C  description : 
C
C*****************************************************************************

C
C
	BYTE CLRSCR(8)
	DATA CLRSCR/155,'[','H',155,'[','J',0,0/
C
	CALL SWRITE(,'+$',CLRSCR)
	RETURN
	END