Thank you irneb for your advices.
There must be something that I still do wrong. I have changed the first line, and done the acad load instructions from Lee MAC website. But when I try to use the command TestPutValue but I get error message Unknown command "TESTPUTVALUE". I also tried to type the name of the LISP file. Didint work. What I finally try to do is to get this kind of LISP code inside of a script file so that when I use the scrpit file it would also do the LISP routine. We have managed to do that kind of thing where a script contained a LISP code which turned snap on then a script inserted some blocks and after that LISP put snap back on. I have understood that there are LISP code that can be wrote to the command column so it could be used like script. I hope you understood what I wrote.
Thank you
Best regards
Veli From Finland