IMPLEMENTATION MODULE RS423;
FROM Strings IMPORT String;

PROCEDURE AllocateBlock(Size: INTEGER; VAR Data: String);
BEGIN
   
END AllocateBlock;

PROCEDURE DisposeBlock(VAR Data: String);
BEGIN
  (* Dispose of blocks allocated by GetBlock *)
END DisposeBlock;


PROCEDURE PutByte(Byte: INTEGER);
BEGIN
   
END PutByte;

PROCEDURE PutWord(Word: INTEGER);
BEGIN
   
END PutWord;

PROCEDURE PutBlock(Count: INTEGER; Data: String); (* Normally followed *)
BEGIN                                                (* by Delete block   *)
   
END PutBlock;

PROCEDURE GetByte(VAR Byte: INTEGER);
BEGIN
   
END GetByte;

PROCEDURE GetWord(VAR Word: INTEGER);
BEGIN
   
END GetWord;

PROCEDURE GetBlock(VAR Count: INTEGER; VAR Data: String);
BEGIN
   
END GetBlock;

END RS423.