TEXT 30-0
   DIR 30-h
   DIR old