3a7
@verb #80:"has_frames" this none this rxdo #789
@program #80:"has_frames" this none this
"Can the webber's browser display frames?"
"Note that the frame specification also has a <noframes> section that should be used in any case."
{?webber = player} = args
if (!webber.user_agent)
  "The GET request may arrive before the User_Agent info."
  suspend(1)
endif
if (index(player.user_agent, "Lynx"))
  return 0
else
  return (x = index(player.user_agent, "Mozilla/")) && !(player.user_agent[x + 8] in {"1", "0", "."})
endif
"Known frame browsers:"
"  Mozilla/2.01E (Win95; I) [Netscape 2.0]"
"  Mozilla/2.0 (compatible; MSIE 3.0; Windows 95)"
"Known non-frame browsers:"
"  Mozilla/1.2N (Windows; I; 16bit) [Netscape 1.2]"
"  Mozilla/1.22 (compatible; MSIE 2.0d; Windows NT)"
"  NCSA Mosaic/3.0.0 (Windows x86)"
"  Lynx/2-4-2 libwww/2.14"
"  Lynx/2.7.1 libwww-FM/2.14 [claims frame support but it's just links]"
.

0