
  TYPE
    clt$internal_input_procedure = ^procedure
          (VAR parse: clt$parse_state;
           VAR end_of_input: boolean;
           VAR status: ost$status);

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