external  integer  fn  spec  dfstatus(string  (31) file index, file, integer  fsys, act, value)
external  string  fn  spec  uinfs(integer  i)
external  string  fn  spec  derrs(integer  i)


external  routine  zero cct(string  (255) file)
integer  j
string  (63) uu, ff
   if  file->uu.(".").ff start 
   finish  else  start 
      uu=uinfs(1)
      ff=file
   finish 
   j=dfstatus(uu, ff, -1, 9, 0)
   printstring(derrs(j))
   newline
end  {zero cct}
end  of  file