procedure InitWords;
  extern;

procedure InitAlfa(var AlfaSpelling: Alfa);
  extern;

function RankedTails(Tail1, Tail2: AlfaEntry): Boolean;
  extern;

function SameAlfa(Name1, Name2: Alfa): Boolean;
  extern;

procedure DispAlfa(LongIdent: Alfa);
  extern;

procedure CopySpelling(var Copy: Alfa);
  extern;

procedure RestoreSpelling(Copy: Alfa);
  extern;

procedure MakeSpelling(Header: AlfaHead);
  extern;

procedure NextSymbol;
  extern;

procedure InitSymbol;
  extern;