End lisp in plot menu

I have a lisp for setting up the plots for our office. I have been asked to make it so that when the guys click on it they are left with the plot menu open ready to just press ok. How to I open the plot menu and leave it open at the end of the lisp??

 
;Based on PageSetups from Alan J. Thompson
(defun c:A3 ()
 (if (findfile "T:/Drawing Tools/Templates/CCC2009.dwt")
   (progn
     (command "_.psetupin" (findfile "T:/Drawing Tools/Templates/CCC2009.dwt") "*")
     (while (wcmatch (getvar "cmdnames") "*PSETUPIN*")
       (command "_yes")
     ) ;_ while
     T
   ) ;_ progn
 ) ;_ if
(command "-plot" "n" "" "A3" "" "n" "y" "n")
(command "_-purge" "a" "*" "N")
(command "regenall")
(command "_zoom" "e")
(princ)
)

I found what I was looking for here

http://www.jtbworld.com/lisp/plotdialog.htm