@Dodicat
I got it figured out....
Code: Select all
screen 19
do
dim as string n1 = right( "00000000" + str( bin( int(rnd*256)) ) , 8)
dim as string n2 = right( "00000000" + str( bin( int(rnd*256)) ) , 8)
dim as ulongint v1 = val("&B" + n1)
dim as ulongint v2 = val("&B" + n2)
dim as ulongint size = 16
dim as string mul_norm = right( string(size,"0") + bin(v1*v2) , size)
dim as string mul_me = right( string(size,"0") + str(val(n1) * val(n2)) , size)
dim as string val1
dim as string answer=""
for x as longint = len(mul_me) to 1 step -1
val1 = bin( val(mid(mul_me,x,1)) + val("&B"+val1) )
answer = right(val1,1) + answer
val1 = left(val1,len(val1)-1)
next
answer = right( answer , size)
print
print "n1 = " ; n1 , val("&B" + n1)
print "n2 = " ; n2 , val("&B" + n2)
print
print "mul = " ; mul_norm , val("&B" + mul_norm)
'print "me = " ; mul_me
print "me = "; answer , val("&B" + answer)
sleep
loop until inkey = chr(27)
end