Internet IPv6 Adresses

[xcoder]

print "###################################"
dim Arr$(8)
dim Dec(8)
dim Cal(8)

'each of these hexidecimal groups
'can be max value of 65536 decimal(2 bytes/16 bits)
'Internet IPv6 address for <google.com>
data "2607","f8b0","4000","0812","0000","0000","0000","200e"
for i = 0 to 7
read alpha$
Arr$(i) = alpha$
next
for i = 0 to 7
print Arr$(i);" hexidecimal"
next
print:print
x = 7
for i = 0 to 7
Dec(x) = hexDec(Arr$(i))
print Dec(x),"raise to power of ";x
x = x - 1
next
print ""
for i = 7 to 0 step -1
Cal(i) = Dec(i) * 65536^i
print Cal(i)
sum = sum + Cal(i)
next
print ""
print "the sum is:"

print sum
print "the address is 50 Quatrillion-Quatrillion plus"
print "or over 50,000 trillion-Quatrillion"
print ""
print "over 340 Quatrillion-Quatrillion addresses are available"
print "or over 340,000 trillion-Quatrillion"
print "That is:"
print 2^128
print 65536^8

print:print
print "End of Code"
End