implicit integer (a-z)
	call sysmsg('SYSMSG test.......',1,2,3)
	end