say 'Enter the pathname of the destination directory:'
pull pathname
'mkdir'(pathname)
'cmd /c copy rexx.exe' pathname

hk = w32regopenkey('HKEY_CURRENT_USER', "Environment")
curpath = w32regqueryvalue(hk, "path")
w32regsetvalue(hk, "path", "REG_SZ", pathname||";"||curpath)
w32regclosekey(hk)
