ref: 4f264cedfbb6a10a9a471c8a11b2a80489e4287f
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)