My UserCode area ported from CVS