*======================================================== * 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