PARM FROMFILE, TOFILE

## MOVEF.XEQ - MOVE A FILE 
## EUGENE VOLOKH

IF "!FROMFILE"=" " THEN
  INPUT PROMPT="From file? "; NAME=VARFROMFILE
ELSE
  SETVAR VARFROMFILE "!FROMFILE"
ENDIF
IF "!TOFILE"=" " THEN
  INPUT PROMPT="To file? "; NAME=VARTOFILE
ELSE
  SETVAR VARTOFILE "!TOFILE"
ENDIF
SETJCW CIERROR=0
IF FINFO("!VARTOFILE",0) THEN
  # Target file already exists!
  INPUT PROMPT="OK to purge !VARTOFILE? "; NAME=PURGEFLAG
  IF UPS(STR(PURGEFLAG,1,1))="Y" THEN
    PURGE !VARTOFILE
  ENDIF
ENDIF
RENAME !VARFROMFILE, !VARTOFILE