%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