math function to change a value 1- 8 to a bit representation

[HenrikOlsson]

Hi,

X = 8
Gosub Decode
Answer will contain the requested value
End

Decode:
Answer = 0
For i = 1 to X 
Answer = answer < 1
Next i
Return

Hmmm....Answer = answer < 1
If the above is meant to be a shift left operation then what you want is Answer = Answer << 1
However, since Answer is set to 0 at the entry point of the routine shifting it left any number of times will still result in it being 0 when returning.

/Henrik.