package Ada_Store.Station

package Ada_Store.Station is

  type Identifier	is new Positive;

  function  This_Station return Identifier;

end Ada_Store.Station;

package body Ada_Store.Station is

  function  This_Station return Identifier is
  begin
    return 1;
  end This_Station;

end Ada_Store.Station;

Contents Page

Copyright © 1996 Simon Johnston &
Addison Wesley Longman