TEXT 40100-0
   DIR 40100-h
   DIR old