procedure Drei_D is

  type String_PT is access string ;

  subtype Pixel_T is natural range 0..63 ;

  type Bild_AT is array (positive range <>, positive range <>) of Pixel_T ;

  type Bild_PT is access Bild_AT ;

  type SIRDS_RT is
    record
      Name  : String_PT ;
      Titel : String_PT ;
      Bild  : Bild_PT ;
    end record ;

  SIRDS : SIRDS_RT ;

  procedure Lies_Tiefeninfo (SIRDS : in out SIRDS_RT) is separate ;

  procedure Berechne_SIRDS (SIRDS : in out SIRDS_RT) is separate ;

  procedure Gib_SIRDS_aus (SIRDS : in SIRDS_RT) is separate ;

begin

  Lies_Tiefeninfo (SIRDS) ;

  Berechne_SIRDS (SIRDS) ;

  Gib_SIRDS_aus (SIRDS) ;

end Drei_D ;