opening a .dwg OR .dwt file AND saveas with a lisp routine

[mmccollum661679]

Does anyone have a lisp routine to open a template or drawing file in one folder, and save it as another name in another folder? This would help in setting up a new project. The routine I've pasted below stops working immediately after:
(command "open" "S:/Drawing Template/Sheet Template.dwg"

It seems the lisp routine needs something between: (Sheet Template.dwg" and "saveas" "2010")

(defun c:project setup () 
(command "SDI" 1)
(command "FILEDIA" 0)
(command "open" "S:/Drawing Template/Sheet Template.dwg"
"saveas" "2010" "S:/Project/B-1.dwg")
(command "tilemode" "0" "layer" "s" "0" ""
"xref" "a" "xtblk30x42=x-tblk 30x42.dwg" "0,0,0" "1" "" "0" 
"INSERT" "SHEETNO=S:/Drawing Template/Sheet No" "0,0,0" "1" "" "0" "zoom" "e")
(command "explode" "L")
(command "filedia" 1)
(PRINC))

Thanks for your help!