ref: 80d1d7baa6c85b767dc343c15e2949b02a16cad3
dir: /sys/src/cmd/gs/src/copy_one.com/
$ Verif = F$Verify(0) $ ! OpenVMS command file to emulate behavior of: $ ! $ ! Define the command for copying one file to another $ ! $ COPY="COPY/LOG" $ FILE = F$SEARCH(P1) $ IF P2 .EQS. "." THEN P2 = "[]" $ IF FILE .NES. "" $ THEN $ FFILE = F$ELEMENT(0, ";", FILE) $ COPY 'FFILE' 'P2' $ ENDIF $ xxx = F$Verify(Verif)