language-Modula2-0.1: examples/Modula-2_Libraries/andrea-m2/lib/eth-hamburg/binaryino.mod

IMPLEMENTATION MODULE BinaryInOut;

FROM SYSTEM IMPORT BYTE;
FROM FileSystem IMPORT File, ReadRecord, WriteRecord;

(* V1.0, Jaa, Sept.4/92 *)

VAR
  how_many_bytes :CARDINAL;

   (* --------------------------------------- *)
   PROCEDURE ReadBlock( in :File; VAR rec :ARRAY OF BYTE );
   BEGIN
      how_many_bytes := HIGH( rec ) + 1;
      ReadRecord( in, rec, how_many_bytes );
   END ReadBlock;

   (* --------------------------------------- *)
   PROCEDURE WriteBlock( out :File; rec :ARRAY OF BYTE );
   BEGIN
      how_many_bytes := HIGH( rec ) + 1;
      WriteRecord( out, rec, how_many_bytes );
   END WriteBlock;

BEGIN
END BinaryInOut.