MODULE PUTREC;
(*
 * [PASLIB] PUT - Pascal PUT operation.
 * Revisions:
 *
 *
 *)

(*$I fibdef.lib*)

VAR
  @LFB:		EXTERNAL ^FIB;

EXTERNAL PROCEDURE @WNB;

PROCEDURE PUT(VAR F:FIB; SZ:INTEGER);
BEGIN
  @LFB := ADDR(F);
  @WNB				(* GO WRITE BUFFER OUT *)
END;

MODEND.