Thanks Lee
Here is my complete routine hacked together. It creates rectangles with a Reactor text link.
See enclosed file. Yes, it's a crude routine!
Just remark out these functions:
(ARCH:F_S-VAR) ;;save vars
(ARCH:F_F-VAR) ;;reset vars
(ARCH:LYR "AREA") ;;create layer