This came from Andrew Morton on a similar thread that grew very large.

on ceiling ( aNumber )
  return bitOr(aNumber,0) + (aNumber>0) - (aNumber<0)
end

on floor ( aNumber )
  return bitOr(aNumber,0)
end

/Christoffer

[To remove yourself from this list, or to change to digest mode, go to 
http://www.penworks.com/lingo-l.cgi  To post messages to the list, email [EMAIL 
PROTECTED]  (Problems, email [EMAIL PROTECTED]). Lingo-L is for learning and helping 
with programming Lingo.  Thanks!]

Reply via email to