; Doug's Programming Language  -- DPL, Version 2.22
; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
;--------------------------------
; C L R S C R  --  CLEAR THE SCREEN 
;
; Entry conditions:
;	None
; Exit conditions:
;	AX,BX,CX,DX modified
;
SUBPGM	CLRSCR
BEGIN	CLRSCR
	MOV	AH,0FH		; GET THE VIDEO MODE
	INT	10H
	CMP	AL,02		; CGA TEXT?
	JZ	CLR05		; YES, GO CLEAR IT
	CMP	AL,03		; ...WITH COLOR?
	JZ	CLR05		; YES, GO CLEAR IT
	CMP	AL,07		; OR JUST MONO?
	JZ	CLR05		; YES, GO CLEAR IT
	MOV	AH,00		; CLEAR THE SCREEN BY SETTING THE VIDEO MODE
	INT	10H
	RETURN
;
CLR05:
	CURSOR	0,0		; PLACE THE CURSOR IN THE HOME POSITION
	MOV	CX,2000		; CLEAR THE SCREEN BY FILLING WITH SPACES
	MOV	BH,[VIDPAGE]	; GET THE VIDEO PAGE NUMBER
	MOV	BL,07		; ENDING ROW, COLUMN
	MOV	AX,0920H	; WRITE SPACES
	INT	10H
	RETURN
;
ENDPGM	CLRSCR
;