|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 918 (0x396)
Types: TextFile
Names: »V«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦12c68c704⟧
└─⟦this⟧
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─ ⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦220843204⟧
└─⟦this⟧
package Product_Authorization is
procedure Register (Product_Name : String := ">>Product Name<<";
Authorization_Code : String := "";
Expiration_Date : String := "");
-- Register a product as being available on this machine.
-- Appropriate settings for the parameters will be provided
-- by Rational customer personnel. The default value for
-- Expiration_Date is never.
function Is_Registered
(Product_Name : String := ">>Product Name<<") return Boolean;
-- Returns True iff the product has been correctly registered and has
-- not expired.
-- Moderately expensive. Should be cached if frequently referenced.
procedure Show_Registration;
-- Prints a summary of the authorized products for this machine.
pragma Subsystem (Tools);
pragma Module_Name (4, 3565);
end Product_Authorization;