@verb #144:"greater_than*_eq" this none this rxdo #55
@program #144:"greater_than*_eq" this none this
{a, b} = args
da = decode_binary(a, 1)
db = decode_binary(b, 1)
if (length(da) > length(db))
  return 1
elseif (length(da) < length(db))
  return 0
else
  for x in [1..length(da)]
    if (da[x] > db[x])
      return 1
    elseif (da[x] < db[x])
      return 0
    endif
  endfor
  return verb == "greater_than_eq"
endif
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.