procedure NewCodeLabel(var L: CodeLabel);
extern;

procedure FutureCodeLabel(var L: CodeLabel);
extern;

procedure NxIsCodeLabel(var L: CodeLabel);
extern;

procedure JumpOnFalse(var Destination: CodeLabel);
extern;

procedure Jump(var Destination: CodeLabel);
extern;

procedure OpenCase;
extern;

procedure NxIsCase(CaseConst: ObjectValue);
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;