IMPLEMENTATION MODULE Space;

  ONCE CLASS Space;      -- Little to comment, I guess.
    INHERITS StringSpace;

    CONST
      SpaceSize = 8192;

    REDEFINE METHOD CREATE;
      BEGIN
      BASE (SpaceSize);
      END CREATE;
  END Space;

END Space;
