Преобразование short (2байта), засейвенного в 4-байтовом блитцевском int-е, в адекватный 4-байтовый блитцевский же инт.
Function Short2Int%(a%)
Local M1%=%00000000000000001000000000000000
Local M2%=%11111111111111110000000000000000
Local D%=a And M1
If D
a = a Xor M2
EndIf
Return a
End Function
Например вы получили от DLL банку с шортами, и делаете что-то типа:
в инт. И на выходе - дурь, а надо делать особую магию:
И тогда, наверняка, вдруг запашет прога та