
 TYPE
    pmt$end_handler = ^procedure (termination_status: ost$status;
      VAR status: ost$status);

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