Need Help with an Old Routine

I have an old Lisp Routine that was originally written by David Harrington (1999) and later modified by Bob Abernethy. It is pretty simple and does a very elegant job of making the break on the end of a pipe or rod. I'm trying to use it in AutoCAD Mechanical 2012, but it stops at the first error. I'm not a Lisp Programmer, so I'm attaching it to see if someone can tell me why it won't run or help me fix it. Any help would be greatly appreciated.

PCUT.LSP

PCUT.dcl

Could you post also the error message that was issued?

Command: pcut

Error: quit / exit abort

Resetting Variables.

Command: pcut

Error: quit / exit abort

Resetting Variables.

Your DCL file may not be recognized. Make sure it is in a support search folder... When I removed the DCL file and started the PCUT command, I generated the same error..

Good observation JPlanera. This may be fixed by adding the folder that currently store the said DCL file into Support File Search Path list in Options.

I apologize... that is precisely the problem. The dcl file was not in the search path, so the first error encountered was not finding the dcl. Thanks for your help.