procedure TForth.Step;
begin
   cmd := Code[pc];
   Proc := TProcedure(cmd);
   pc := pc + 1;
   Proc;
end;

procedure TForth.Execute;
var RDepthOnEntry : integer;
begin
   RDepthOnEntry := RDepth;
   while ((RDepthOnEntry <= RDepth) and (Error = 0)) do
     begin
       Step;
     end;
   if (RDepth < 0) then RDepth := 0;
end;   

void Step()
{
    void(*fword)();
    fword = (void(*)())ReadCode(pc);
    pc += sizeof(CELL);
    fword();
}

void Execute()
{
    CELL RdepthOnEntry = Rdepth;
    do
    {
        Step();
    }
    while ((RdepthOnEntry <= Rdepth) && (AbortFlag == 0));
}