%begin; !Set default directory
!JHB mod 28/8/86 - now takes password as optional second parameter
!GDNR 16/12/86   - don't split at ':', merely strip trailing one

%include "inc:fs.imp"
%include "inc:fsutil.imp"

%string (255) param,pass
%integer dummy

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

param = cli param
pass="" %unless param->param.(" ").pass %or param->param.(",").pass
!%if param -> param.(":") %start; %finish
length(param) = length(param) - 1 %if param # "" %and charno(param, length(param)) = ':'
set directory (param)

dummy = fcomm('q'<<8,pass) %if pass#""

%endofprogram
