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

%begin; ! SETPASS user,pass
%string(255)u,p="",s
%integer x

  %on 3 %start
    printline(event_message)
    %return
  %finish
  
  defineparam("Directory",u,pamnodefault)
  defineparam("Password",p,0)
  processparameters(cliparam)
  s = p.",".u
  x = fcomm('P'<<8,s)

%endofprogram