Critical current and flux pinning by crystal defects in melt-textured YBa sub 2 Cu sub 3 O sub x