1 DECLARE SUB bytew (fi&, d&, addr&)
\r
2 DECLARE SUB byter (fi&, addr&, d&)
\r
4 DIM SHARED byte AS STRING * 1
\r
6 SUB byter (fi, addr, d)
\r
12 SUB bytew (fi, d, addr)
\r
18 SUB dwordr (fi, a, f)
\r
24 f = f + d * 65536 + c * 256 + b
\r
27 SUB dwordw (fi, b, a)
\r
30 c = c - (d * 16777216)
\r