Possible or not to highlight text in UI?

Hello All,

A little background about my question.

A co-worker has helped with creating a special MV script which has a UI that allows me to enter (x,y) coordinates to move the selected object by whatever I input. The only thing I don't like about it is that when I execute the command I have to first delete the default value (0,0) in the UI. For now I have created a macro on my gaming mouse that does a Ctrl+A then executes the special MV command, but I would like anyone to be able to use this. 

The question:

I don't know if this would be simple or not, but is there a way to have the value highlighted as soon as the UI pops up so that I can immediately type the coordinates?

Here is the script:

moveToXYValue = list(0 0)
procedure(moveToXY()
let(()

pointsField = hiCreatePointField(
                ?name 'pointsField
                ?prompt "Enter Point"
                ?value moveToXYValue
                )
form=hiCreateAppForm(
        ?name 'form
        ?fields list( list(pointsField 0:0 200:20 100))
        ?callback 'moveCallback
        )
hiDisplayForm(form)
)
)

procedure(moveCallback(one)
let(()
        xy = one->pointsField->value
        moveToXYValue=xy
        ;leZoomToPoint(geGetEditCellViewWindow(geGetEditCellView()) xy )
        mv(car(xy) nth(1 xy))
)
)
hiSetBindKey("Layout" "<key>m" "moveToXY()")

procedure(mv(@optional dx dy)
let((fig cv)
        if((dx== nil || dy == nil) then
                println("mv : Moves the selected element by x and y")
                println("USAGE: mv(x_move y_move)")
        else
                foreach(fig geGetSelectedSet()
                        if(fig~>objType != "textDisplay" &&  fig~>objType != "label"  then
                                println(fig~>objType)
                                cv =fig~>cellView
                                if(geIsFigPartiallySelected(fig) then
                                        leStretchShape(fig dx:dy geGetSelSetFigPoint(fig))
                                else
                                        dbMoveFig(fig cv list(dx:dy "R0"))
                                );if
                        );if
                );foreach
        );if
        nil
);let
);provedure mv

Thanks,

Keith