Post by xcoder on Nov 28, 2020 18:37:18 GMT -5
print "#################################"
'32 bit address (4 bytes) provides 2^32 or 256^4 addresses (4 294 967 296).
dim Bcd(4)
data 204,79,197,212 'IPv4 hotmail.com
for i = 3 to 0 step -1
read alpha
Bcd(i) = alpha
next
print "hotmail.com IPv4"
print "Binary Coded Decimal"
print ""
for i = 0 to 3
print Bcd(i)
next
print ""
a = Bcd(3) * 256^3
b = Bcd(2) * 256^2
c = Bcd(1) * 256^1
d = Bcd(0) * 256^0
sum = a + b + c + d
print sum;space$(5);"decimal"
print ""
hex$ = decHex$(sum)
print hex$;space$(5);"hexidecimal"
print ""
print dec2bin$(sum);space$(5);"Binary"
print:print
print "End of Code"
End
function dec2bin$(num)
if num = 0 then dec2bin$ = "0"
while num > 0
dec2bin$ = str$(num mod 2)+ dec2bin$
num = int(num/2)
wend
end function
