page

; Library:	RCPCLS for Z34RCP
; Author:	Carson Wilson
; Version:	1.0
; Date:		June 15, 1988
;
; Command:	CLS
; Function:	To clear the CRT screen
; Comments:	The setting of the CLSTCAP equate determines whether this
;		command uses the TCAP information or not.  If not, it uses the
;		clear-screen string passed in macro CLSSTR.  That string should
;		end with the high bit set.

cls:
	 if	clstcap		; If using TCAP for clear screen string
	ld	a,(z3tcap)	; TCAP address from Z34CMN.LIB
	cp	' '+1		; See if blank
	jr	nc,cls1		; If not, go to clear screen code
	jp	crlf		; If blank, just do CRLF
cls1:
	ld	hl,clrscr	; Address from Z34CMN.LIB
	jp	printhl		; Display it

	 else			; Not using tcap

	call	print
	clsstr			; String from Z34RCP.LIB
	ret

	 endif	;clstcap

; End RCPCLS.LIB