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