PROCEDURE [XREF] qcp$copy (old_ol: ^SEQ (*);
   VAR new_ol: ^SEQ( *);
   VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
?? POP ??

