!  File  MOUSE:INSTALL

%begin; !Install
%option "-nons-nocheck-nodiag"
%externalroutinespec tolower(%string(*)%name s)
%externalroutinespec install(%string(255)file)
%externalroutinespec remember file(%string(255)file)
%externalroutinespec connectfile(%string(255)file,
   %integer mode,%integername start,size)
%string(255)this,rest

%routine do one
%integer a,b,c
  %on 3,9 %start
    printstring("Install ";this;" fails: ";event_message); newline
    %return
  %finish
  tolower(this); a = 0
  a = 1 %if this -> this.(".mob")
  this = this.".mob"
  remember file(this)
  connectfile(this,1,b,c) %unless a=0
  install(this)
{}%unless a=0 %start
{}  printstring(this); printstring(" preloaded"); newline
{}%finish
%end

  rest = cliparam
  %stopif rest=""
  rest = rest.","
  do one %while rest -> this.(",").rest
%end
