procedure ExportBlocks() begin BlockExport("SysFormatBlock"); BlockExport("BaseCurBlock"); return; end;