Symbol ERROR1

			1199	*
			1200	* THIS ROUTINE USES $PRINT,OUTPUT,BCDOUT AND OBLANK
			1201	*
			1202	*
			1203	ERROR1 USER BY APPLY HAS ONE ARGUMENT AND PRINTS IT USING
			1204	PRINT
	02071	−0634 00 4 01562	1205	ERROR1	SXD	$ERROR,4