
{* ZCYTNPP  cyt$new_page_procedure *}

  TYPE
    cyt$new_page_procedure = record
      case kind: cyt$page_procedure_kind of
      = cyc$user_specified_procedure =
        user_procedure: cyt$user_page_procedure,
      = cyc$standard_procedure =
        title: string (cyc$title_size),
      = cyc$omit_page_procedure =
        ,
      casend,
    recend,

    cyt$page_procedure_kind = (cyc$user_specified_procedure,
      cyc$standard_procedure, cyc$omit_page_procedure),

    cyt$user_page_procedure = ^procedure (display_file: cyt$file;
      next_page_number: integer;
      VAR status: ost$status);

  CONST
    cyc$title_size = 45;

*copyc ost$status
*copyc cyt$file
