Nevermind figured it out:
On convertToBinary thisNumber
outBinary = ""
repeat while thisNumber > 0
digit = thisNumber mod 2
outBinary = outBinary & digit
thisNumber = thisNumber/2
end repeat
return value(outBinary)
End
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/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!]
