eforth.f from 2007
doc
dtc * um*