Retain options to create hatch

I have a lisp as follows:

 
(defun c:2c( / cla 2cCL 2cOM 2cOS 2cCC 2cCE 2cFS)
 (setq 2cCL (getvar "clayer"))
(setq 2cOM (getvar "orthomode"))
(setq 2cOS (getvar "osmode"))
(setq 2cCC (getvar "cecolor"))
(setq 2cCE (getvar "cmdecho"))
; First construct our entity list
(setq vl1 (list
 (cons 0 "LAYER")  ;Name of entity
 (cons 100 "AcDbSymbolTableRecord")     ;Open Records
 (cons 100 "AcDbLayerTableRecord")     ;Locate Layer Table
 (cons 2 "CCC_DOER_Cross_Sections_Quantities_Material_2C")  ;Name of Layer
 (cons 6 "Continuous")      ;Linetype
 (cons 62 33)       ;colour = light grey
 (cons 70 0)       ;state
 (cons 290 1)       ;1=plot, 0=Don't plot
 (cons 370 0)       ;Line weight
  )       ;End of entity list
 )
 (entmake vl1)       ;Create Layer

(setvar "clayer" "CCC_DOER_Cross_Sections_Quantities_Material_2C")
(setvar "cmdecho" 0)
(command "-hatch" (getpoint "Click internal point: ") "")
(setvar "clayer" 2cCL)
(setvar "orthomode" 2cOM)
(setvar "osmode" 2cOS)
(setvar "cecolor" 2cCC)
(setvar "cmdecho" 2cCE)
(princ)
)

How do I set it up so that when the hatch command is called the user has the option to either pick an internal point or to select a boundary??

Thanks.

try this

(command "-hatch")
(while (> (getvar 'CmdActive) 0) (command pause))

That doesn't give me the options though!!

try setting cmdecho=1 prior to the hatch command

Yeah that did the trick alright. Thanks for that Ipseifert and for the very speedy reply!!!