🚀 go-pugleaf

I want to read a file by binary mode. I combined the function
"readchar" of xtras object "fileio" and the system function "Code".The
principle is to get single char and then to change the char into byte
using "code" function, but it seems that the function "code" would
return 0 when it meet the unusual char such as 0x8B.

I wrote the code like this:
------------------------------------------------------------------
object:=NewObject("fileio")
CallObject(object, "openFile", "c:\\test.bin", 1)
Filelength:=CallObject(object, "getLength")
repeat with Counter := 0 to Filelength-1
    SingleChar:=Code(CallObject(object, "readChar"))
    MessageBox(WindowHandle, "Counter is"^Counter^" SingleChar
is"^SingleChar, "Warning", 48)
    PokeByte(inbuffer, Counter, SingleChar)
end repeat
CallObject(object, "closeFile")
DeleteObject(object)
----------------------------------------------------------------------
after I run the code, the MessageBox will show" Counter is x
SingleChar is 0", but current char is 0x8B.

Any help is appreciated! How to get the binary context of a file?
E-mail:huangjiansword@yahoo.com.cn