>*======================================================== >* Converts a number into a binary string >*======================================================== >Function ToInt >LParameter tnValue, tnBytes > Local lcString, lnByte > lcString = "" > For m.lnByte = 1 to m.tnBytes > lcString = m.lcString + Chr(m.tnValue%256) > tnValue = Int(m.tnValue/256) > Endfor >Return m.lcString >