/PROGRAM TO CLEAR SCREEN ON VT52.
/08-JUN-84, THE OCCASION OF THE PURCHASE OF K12.
/VIDEO TO THE MAX!
*0
	CLA
	TAD STRING	/POINT AT STRING
	SAS		/PRINT IT
	JMP .-2		/LOOP UNTIL DONE
	HLT		/EXIT
STRING,	.+1
	-4	/4 CHAR'S
	.	/START AT NEXT WORD
	233	/ESCAPE
	"H	/$H - HOME CURSOR
	233
	"J	/$J - CLEAR FROM CURSOR TO END
$