%include "CONSTS"
%include "FORMS"
%include "SEG7"
%include "PROCS"

%external %predicate  EXISTS (%string(*)%name file, %integer n)
   ! Note the string param frigg as usual..
   %record(sdfm)  t
   %if parse (file, t) %start
      %if t_type = file type %start;   ! Look for file
         t_block = 0;                  ! Want first block no
         dir fn (t, examine)
         %false %if t_block = 0
      %finish
      %true
   %finish
   %false
%end

%end %of %file