ref: 16aaa24c7604b5f9d492796b20179427adb0a91b
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)