with Subtypes;
use Subtypes;
procedure Make_Tape (For_Catalog : in Simple_Name := "<DEFAULT>";
                     This_Version : in Simple_Name := "<DEFAULT>";
                     Response : in String := "<PROFILE>");