1 REM Binary To Decimal 10 LET number = 111001 20 PRINT "The decimal value of the binary number "; number; " is "; 30 LET base = 10 40 LET index = 0 50 IF number <= 0 THEN 100 60 LET remainder = number MOD base 70 LET sum = sum + remainder * 2 ^ index 80 LET number = INT(number / base) 90 LET index = index + 1 100 IF number > 0 THEN 50 110 PRINT sum
Return to Example Index