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