on readBinaryFile type
  global gMyFile
  binaryFile read,gMyFile,type
  checkError the result
end readBinaryFile