Package Blkio Is
    ----------------------------------------------------------------
    ---- This library implements random access sector I/O via	----
    ---- the procedures read_blk and write_blk.			----
    ---- This is the specification.				----
    ---- Last Modified  6/29/82					----
    ----------------------------------------------------------------

    -- Copyright 1982  RR Software, P.O. Box 1512, Madison WI 53701
    -- Permission is hereby given to distribute Object Code produced from
    -- these libraries.


    Type Sector Is Array(0..127) Of Byte;
			-- Generally used in a variant record

    Procedure write_blk(Fyle : In File; sec : In Sector; blk : In
	Integer);
	-- Write the block number blk into the file fyle
    Procedure read_blk(Fyle : In File; sec : Out Sector; blk : In
	Integer);
	-- Read the block number blk from the file fyle
    Procedure rclose(Fyle : In Out File);
	-- Close a random access file

End Blkio;