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

%external %string(12) %function  EXPAND (%string(127) s)
   ! Returns the full file-name from a (possibly) partial form,
   ! inserting unit and fsys number for files, etc
   %record(sdfm) t
   %if parse (s, t) %start
      %result = construct (t)
   %finish
   %signal 9, 3, bad file
%end

%end %of %file