DECLARE SUB bytew (fi&, d&, addr&) DECLARE SUB byter (fi&, addr&, d&) DEFLNG A-Z DIM SHARED byte AS STRING * 1 SUB byter (fi, addr, d) SEEK #1, addr + 1 GET fi, , byte d = ASC(byte) END SUB SUB bytew (fi, d, addr) SEEK #1, addr + 1 byte = CHR$(d) PUT #1, , byte END SUB SUB dwordr (fi, a, f) byter fi, a, b byter fi, a + 1, c byter fi, a + 2, d byter fi, a + 3, e f = e * 16777216 f = f + d * 65536 + c * 256 + b END SUB SUB dwordw (fi, b, a) c = b d = c \ 16777216 c = c - (d * 16777216) e = c \ 65536 c = c - (e * 65536) f = c \ 256 c = c - (f * 256) bytew fi, c, a bytew fi, f, a + 1 bytew fi, e, a + 2 bytew fi, d, a + 3 END SUB