Sorry your browser is not supported!

dim bit_pattern[32]
bit_pattern[1] = 0

bit_pattern[2] = 1
bit_pattern[3] = 1
bit_pattern[4] = 1
bit_pattern[5] = 1 
bit_pattern[6] = 1
bit_pattern[7] = 1
bit_pattern[8] = 1
bit_pattern[9] = 0

bit_pattern[10] = 0
bit_pattern[11] = 1
bit_pattern[12] = 1
bit_pattern[13] = 0
bit_pattern[14] = 0
bit_pattern[15] = 0
bit_pattern[16] = 0
bit_pattern[17] = 0
bit_pattern[18] = 0
bit_pattern[19] = 0
bit_pattern[20] = 0
bit_pattern[21] = 0
bit_pattern[22] = 0
bit_pattern[23] = 0
bit_pattern[24] = 0
bit_pattern[25] = 0
bit_pattern[26] = 0
bit_pattern[27] = 0
bit_pattern[28] = 0
bit_pattern[29] = 0
bit_pattern[30] = 0
bit_pattern[31] = 0
bit_pattern[32] = 0

do
	exponent = GetMessageUnsignedIntegerBigEndian( 2 , 9 ) - 127
	exponent# = pow( 2 , exponent )
	print( exponent# )
	sync()
loop

function GetMessageUnsignedIntegerBigEndian( startBit , endBit )
	returnValue = 0
	length = endBit - startBit
	bitValue = pow(2,length)
	for t = startBit to endBit
		if bit_pattern[t]
			inc returnValue, bitValue
		endif
		bitValue = bitValue / 2
	next t
endfunction returnValue