modules/fileread.bas

   1 DECLARE SUB bytew (fi&, d&, addr&)\r
   2 DECLARE SUB byter (fi&, addr&, d&)\r
   3 DEFLNG A-Z\r
   4 DIM SHARED byte AS STRING * 1\r
   5 \r
   6 SUB byter (fi, addr, d)\r
   7 SEEK #1, addr + 1\r
   8 GET fi, , byte\r
   9 d = ASC(byte)\r
  10 END SUB\r
  11 \r
  12 SUB bytew (fi, d, addr)\r
  13 SEEK #1, addr + 1\r
  14 byte = CHR$(d)\r
  15 PUT #1, , byte\r
  16 END SUB\r
  17 \r
  18 SUB dwordr (fi, a, f)\r
  19 byter fi, a, b\r
  20 byter fi, a + 1, c\r
  21 byter fi, a + 2, d\r
  22 byter fi, a + 3, e\r
  23 f = e * 16777216\r
  24 f = f + d * 65536 + c * 256 + b\r
  25 END SUB\r
  26 \r
  27 SUB dwordw (fi, b, a)\r
  28 c = b\r
  29 d = c \ 16777216\r
  30 c = c - (d * 16777216)\r
  31 \r
  32 e = c \ 65536\r
  33 c = c - (e * 65536)\r
  34 \r
  35 f = c \ 256\r
  36 c = c - (f * 256)\r
  37 \r
  38 bytew fi, c, a\r
  39 bytew fi, f, a + 1\r
  40 bytew fi, e, a + 2\r
  41 bytew fi, d, a + 3\r
  42 END SUB\r
  43 \r