$ I=F$VERIFY(0)
$ !
$ !		INDEXCOPY.COM
$ ! P1 if specified is the source of the copy operation
$ ! P2 if specified is the destination of the copy operation
$ ! arguments not specified are prompted for.
$ ! if both are the same- no action is taken
$ !
$ F := 'P1'
$ T := 'P2'
$ IF F .EQS. "" THEN INQUIRE F "WHERE IS THE INDEX BUILD PACKAGE"
$ IF T .EQS. "" THEN INQUIRE T "WHERE DO YOU WANT THE BUILD PACKAGE TO GO"
$ IF F .EQS. "" THEN F := SYS$DISK:
$ IF T .EQS. "" THEN T := SYS$DISK:
$ IF F .EQS. T THEN EXIT
$ SET VERIFY
$ ASSIGN 'F' FROM
$ ASSIGN 'T' TO
$ COPY FROM:INDEXCOPY.COM TO:INDEXCOPY.COM
$ COPY FROM:ARGUMENT.MAR  TO:ARGUMENT.MAR
$ COPY FROM:CHART.MAR     TO:CHART.MAR
$ COPY FROM:EVAL.MAR      TO:EVAL.MAR
$ COPY FROM:FLOW.MAR      TO:FLOW.MAR
$ COPY FROM:HEAP.MAR      TO:HEAP.MAR
$ COPY FROM:INDEX.MAR     TO:INDEX.MAR
$ COPY FROM:IOLINE.MAR    TO:IOLINE.MAR
$ COPY FROM:LINETYPE.MAR  TO:LINETYPE.MAR
$ COPY FROM:OPENCLOSE.MAR TO:OPENCLOSE.MAR
$ COPY FROM:OUTPUT.MAR    TO:OUTPUT.MAR
$ COPY FROM:STAT.MAR      TO:STAT.MAR
$ COPY FROM:STORE.MAR     TO:STORE.MAR
$ COPY FROM:SUPER.MAR     TO:SUPER.MAR
$ COPY FROM:TABLE.MAR     TO:TABLE.MAR
$ COPY FROM:INDEX.HLP     TO:INDEX.HLP
$ COPY FROM:INDEX.RNO     TO:INDEX.RNO
$ COPY FROM:BUILDIDX.COM  TO:BUILDIDX.COM
$ COPY FROM:LINK.COM      TO:LINK.COM
$ COPY FROM:IDXLST.COM    TO:IDXLST.COM
$ COPY FROM:DOCUMENT.COM  TO:DOCUMENT.COM
$ COPY FROM:GENERATE.COM  TO:GENERATE.COM
$ COPY FROM:SAMPLE.FOR    TO:SAMPLE.FOR
$ DEASSIGN FROM
$ DEASSIGN TO
$ J=F$VERIFY(I)