v:\> type 32or64.btm
setlocal
set hFile=%@fileopen[%1,read,b]
set ptr=%@fileseek[%hFile,60,0]
set data=%@filereadb[%hFile,2]
set peoffset=%@eval[%@word[0,%data] + 16 * %@word[1,%data] + 4]
set prt=%@fileseek[%hFile,%peoffset,0]
set data=%@filereadb[%hFile,2]
set hFile=%@fileclose[%hFile]
echo 0x%@format[02,%@convert[10,16,%@word[0,%data]]]%@format[02,%@convert[10,16,
%@word[1,%data]]]
v:\> 32or64.btm p:\4Utils\release\4utils.dll
0x4C01
v:\> 32or64.btm p:\4Utils\x64\Release\4Utils64.dll
0x6486