(Under construction.)
procedure BlockWrite (var F: File; const Buffer; Blocks: Integer);or
procedure BlockWrite (var F: File; const Buffer; Blocks: Integer;
var BlocksWritten: Integer);
BlockWrite is a UCSD Pascal extension.