!  File  MOUSE:SET

%begin; !Set default directory, and perhaps quote password

%externalroutinespec set directory(%string(255)s)
%externalroutinespec quote(%string(255)s)
%externalroutinespec define logical name(%string(255)s,t)

%string (255) param,pass

%on 3 %start
  printstring("SET fails: ".event_message);  newline
  %stop
%finish

param = cli param
pass="" %unless param->param.(" ").pass %or param->param.(",").pass
set directory(param)
quote(pass) %unless pass=""

%endofprogram