AutoCAD - Copy to another layer

I have downloaded a short lisp program written by Jerry Berns - It's
function is to automate the copying of any AutoCAD entities selected to
another layer but in the same location - I notice this is a question that
has been asked and several different answers have been given - It's handy
for CNC programming and we use it all the time - Instructions are in the
file and the LISP file is source code
Roland Friestad