XBCLS	; IHS/ADC/GTH - CLEAR SCREEN ; [ 02/07/97   3:02 PM ]
	;;4.0;XB;;Jul 20, 2009;Build 2
	;
	D EN^XBVIDEO("IOF")
	U IO(0)
	Q
	;