procedure FlowPoint(SourceLine: Scalar);
  extern;

procedure FileAType(TheType: TypEntry);
  extern;

procedure FileId(Id, NextId: IdEntry);
  extern;

procedure InitDiagnostics;
  extern;

procedure EndDiagnostics;
  extern;