begin ; !Preload
include  "inc:util.imp"
include  "inc:dict.imp"
string (255)p,f

routine  preload(string (255)s)
integer  st,le,p
bytename  ch
  on  3,4,9 start 
    printline(event_message); return 
  finish 
  to upper(s)
  p = refname(s,fildict)<<1>>1
  if  p#0 and  membot<integer(p)<integer(p+4) start 
    printline(s." was loaded"); return 
  finish 
  connectfile(s,0,st,le)
  p = defname(s,fildict,8)<<1>>1
  integer(p) = st; integer(p+4) = st+le
  freebot = (st+le+3)&¬3
  printline(s." now loaded")
end 

p = cliparam
p = p.","
preload(f) while  p -> f.(",").p

endofprogram