.TITLE CLRSCR
;
;
	.GLOBL CLRSCR
	.MCALL QIOW$S,EXIT$S
;
;
BUF:	.BYTE 27.,72.,27.,74.
;
CLRSCR:	QIOW$S #IO.WVB,#5,#1,,,,<#BUF,#4,#0>
	EXIT$S
	.END CLRSCR