external fentrybox()

public EnterWidth() ptstr width

function EnterWidth()
  smartpoke $_ins 0
  fentrybox(" Enter width sold ",5,"",4.00)
  width = val(ptstr)
  smartpoke $_ins 1
  return width
end function