@verb #4980:"input_box" any any any rxd #9223
@program #4980:"input_box" any any any
"iframe-bound input box."
{label, paramlist} = args
r = {}
r = {@r, "<input "}
for param in (paramlist)
  r = {@r, " " + param[1] + "=\"" + param[2] + "\""}
endfor
r = {@r, ">"}
if (label)
  if (index(args[1], "-") == 1)
    label = label[2..length(label)]
    r = {label, @r}
  elseif (index(args[1], "+") == 1)
    label = label[2..length(label)]
    r = {@r, label}
  else
    r = {label, @r}
  endif
endif
return r
"Last modified by Wingy (#9223) on Tue Jan 28 07:51:52 2003 MST."
.