add pcopy.pas