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