procs.
user(plato,plato)
settl(*)
setasl(*)
setjsl(*)
attach,procfil/m=w,na.
if(.not.file(procfil,as))define,procfil.
copycf,input,procfil.
~