         SYSTEM   BPM
         SYSTEM   SIG5
         REF      ERREXIT
         REF      SCAN:C
F:XOLD   DSECT    2
F:XNEW   DSECT    2
         CSECT
         DEF      RENAME
RENAME   EQU      %
         LI,8     VLP
         BAL,14   SCAN:C
         BCS,14   EHH               ERR OR ACCN OR PASS
         BCR,1    EHH               NO FILE
         M:PT     0
,,VLP    M:OPEN   F:XOLD,INOUT,SAVE,FILE,(ERR,ERREXIT),(ABN,ERREXIT)
         LI,8     X'1FFFF'
         AND,8    CLOSE             GET ADDRESS OF FPT
         AI,8     3                 BUMP TO VLPS
         LW,7     8                 SAVE VLP START ADDRESS
         AI,7     -1                MINUS ONE FOR BDR LOOP
         BAL,14   SCAN:C
         BCS,14   EHH               ERR OR ACCN OR PASS
         BCR,1    EHH               NO FILE
         LI,2     9                 # VLP WORDS IN FILE
         LW,14    *7,2              GET IT
         STW,14   VLP2-1,2          MOVE TO OPEN VLP
         BDR,2    %-2               MOVE ENTIRE FNAME
,,VLP2   M:OPEN   F:XNEW,FILE,REL,INOUT,(ERR,GOGO),(ABN,GOGO)
         M:CLOSE  F:XNEW,REL        DELETE NEW NAME IF EXISTS
GOGO     EQU      %
CLOSE    M:CLOSE  F:XOLD,SAVE,FILE
         M:EXIT
EHH      M:PRINT  (MESS,EHMSG)
         M:EXIT
EHMSG    TEXTC    'Eh?'
F:XOLD   M:DCB    FILE
F:XNEW   M:DCB    FILE
         END      RENAME
