Obtain the value of the pop-up subwindow text box in the parent window

<Script defer>
Function browser. onclick (){
Var nW = window. open ("", "", "width = 170, height = 200 ");
NW. moveTo (300,100 );
N1_doc ument. write ("<script defer> \ r" +
"Var m = true; \ r" +
"Function insert. onclick () {\ r" +
"If (m) {\ r" +
"Opener. atext. value = btext. value; \ rm = false;" +
"} Else {\ r" +
"Opener. atext. value + = '\-' + btext. value; \ r" +
"} \ R" +
"<\/Script> \ r" +
"<Input name = btext value = 111111 size = 10 style = 'background: # ffffff; BORDER-BOTTOM: # 0a3family 1px solid; BORDER-LEFT: # 0a3family 1px solid; BORDER-RIGHT: # 0a3family 1px solid; BORDER-TOP: # 0a3family 1px solid '> \ r "+
"<Input type = button value = select name = insert style = 'background-color: # EBF5FC; border: 1px solid # 0099CC '> ");
}
</Script>
<Textarea name = "atext" cols = "60" rows = "4"> </textarea>
<Input type = button value = select parameter name = browser style = "background-color: # EBF5FC; border: 1px solid # 0099CC">