
  TYPE
    pmt$user_program = ^procedure (parameters: pmt$program_parameters;
      VAR status: ost$status);

*copyc PMT$PROGRAM_PARAMETERS
*copyc OST$STATUS
