procedure NewCodeLabel(var L: CodeLabel);
  extern;

procedure FutureCodeLabel(var L: CodeLabel);
  extern;

procedure NxIsCodeLabel(var L: CodeLabel);
  extern;

procedure InitPlabels;
  extern;

procedure JumpOnFalse(var Destination: CodeLabel);
  extern;

procedure JumpAbs(var Destination: CodeLabel);
  extern;

procedure OpenCase;
  extern;

procedure NxIsCase(CaseConst: ObjectValue);
  extern;

procedure NextIsRange(CaseConst1, CaseConst2: ObjectValue);
  extern;

procedure OtherCases;
  extern;

procedure CloseCase;
  extern;

procedure InitCase;
  extern;

procedure OpenFor(Increasing: Boolean;
                  ControlMin, ControlMax: ObjectValue);
  extern;

procedure CloseFor;
  extern;

procedure InitFor;
  extern;

procedure FutureStatementLabel(var L: StatementLabel);
  extern;

procedure NextIsStatementLabel(var L: StatementLabel);
  extern;

procedure LabelJump(var Destination: StatementLabel;
                    LabelLevel: DispRange);
  extern;