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