int DecVal = 75 string BinString = "" openconsole print print print " Decimal value is ",DecVal print BinString = DecToBin(DecVal) 'Binary string packed to 16 digits print " Binary of decimal is ",BinString print " Decimal of binary is ",BinToDec(BinString) 'Decimal value from binary string print do:until inkey$ <> "" closeconsole sub DecToBin(int DecVal),string string x = "" x = ToBase(DecVal,2) return PackBin(x) endsub sub PackBin(string Bin),string 'Pack to 16 digits if len(Bin) < 16 int y = 16 - len(Bin) int a for a = 1 to y Bin = "0" + Bin next a endif return Bin endsub sub BinToDec(string Bin),int int Total = 0 int Multiplier = 1 for a = len(Bin) to 1 step -1 if a < 16 Multiplier = Multiplier * 2 endif if mid$(Bin,a,1) = "1" Total = Total + Multiplier endif next a return Total endsub Sub ToBase(int IntValue,int Base),String string result int i result = "" If (base >= 2) & (base <= 36) While intValue > 0 i = (intValue % base) + 1 intValue = intValue / base result = Mid$("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",i,1)+result EndWhile EndIf Return result EndSub