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!]
