If you look on Amazon under BMX Quill Stem there are four listed. Two note that they are for 7/8" bars but the other two may be for 1" bars. Ugly but they look strong and are a lot cheaper than a new fork to get a bike back on the road while looking for a more appropriate stem.

These are all modern design removable faceplate stems and look like there is enough meat in them so they could be reamed out for larger diameter bars.

Also a Amazon search for .833" Stem shows a number of more traditional looking steel stems available, most made by Wald.

A search for 21.1mm stem shows some more available items, mostly Pyramid brand.