#    This is the module register CUST_SIZE 0x8020


     variable CustSize 0

proc GetCustSize {} {
     variable CustSize 

     set CustSize [ReadRegister CustomSize]
}

proc SetCustSize {} {
     variable CustSize 

     WriteRegister CustomSize $CustSize
}


proc DrawCustSize {} {

   set html ""

   append html  "<p align=center>"
   append html  "<table cellpadding=0 cellspacing=0 border=1>"

   append html  "<tr>"
   append html  "<td  align=center width=50%>Acquisition Window Size (samples/Ch)</td>"
   append html "<td align=center width=50%>"

   append html "<select name=CustSize size=1 \
       onChange=\"click_MSETTING(document.V1742, 'CustSize', document.MSETTINGS.CustSize.value)\">"

   set j 0
   foreach item {1024 520 256 136}  {
     if {$j == [set ::V1742::CustSize]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html "</td>"

   append html  "</tr>"

   append html  "</table>"
   append html  "</p>"

     return $html
}