%begin;  !REMEMBER: Mark files in FILDICT for store-residency
!Parameter(s): sequence of file-names (MOB extension assumed)
%include "inc:util.imp"
%include "inc:dict.imp"
%string(255)parm
%string(255)file,fore,aft
%integer i,d
%bytename k
  parm = cliparam.","
  %while parm -> file.(",").parm %cycle
    to upper(file)
    file = file.".MOB" %unless file -> (".")
    d = defname(file,fildict,8)
    printstring("File dict full") %and %stop %if d = 0
    %unless d<0 %start
      integer(d) = -1; integer(d+4) = -1
    %finish
  %repeat
%endofprogram