ADMIN опередил немного меня.
Code
Dim dwrd As Dword
Dim wrd1 As Word
Dim wrd2 As Word
Dim bte1 As Byte
Dim bte2 As Byte
Dim bte3 As Byte
Dim bte4 As Byte
Dim pb1 As Byte
Dim pb2 As Byte
Dim pb3 As Byte
Dim pb4 As Byte
Dim pb5 As Byte
Dim pb6 As Byte
Dim pb7 As Byte
Dim pb8 As Byte
begin:
dwrd = $7DBEEDF7
wrd1 = dwrd.LowWord
wrd2 = dwrd.HighWord
bte1 = wrd1.LowByte
bte2 = wrd1.HighByte
bte3 = wrd2.LowByte
bte4 = wrd2.HighByte
pb1 = bte1 >> 4
pb2 = bte1 & $F
pb3 = bte2 >>4
pb4 = bte2 & $F
pb5 = bte3 >> 4
pb6 = bte3 & $F
pb7 = bte4 >>4
pb8 = bte4 & $F
GoTo begin