************************************************************************** * getbyte : get a single byte at position specified by pos from a file opened * with low level functions (handle comes from that function) * getword : * get a word size integer in hex format * parameters : handle - file handle got by fopen() or alike * pos - file position to get word * lr - (Logical) if .T. left-to-right format used * if .F. or not passed right-to-left format used * (more likely to be used with low level) * EXAMPLE : * getword(handle,12) - returns 62313 if bytes at offset 11 are ( 69 F3 ) * getword(handle,12,.T.) - returns 62313 if bytes at offset 11 are ( F3 69 ) * * getlong : same as getword except gets 4 bytes ************************************************************************** function getbyte parameters handle,pos =fseek(handle,POS,0) return asc(fread(handle,1)) function getword parameters handle,pos,lr if parameters()<3 lr=.f. endif =fseek(handle,POS,0) return asc(fread(handle,1))*iif(lr,256,1)+asc(fread(handle,1))*iif(lr,1,256) function getlong parameters handle,pos,lr if parameters()<3 lr=.f. endif lowword=getword(handle,iif(lr,pos+2,pos),lr) highword=getword(handle,iif(lr,pos,pos+2),lr) return highword*65536+lowwordCetin