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