// GetRegistrationDetails
// Blank script procedure Get ResistrationDetails;
procedure Get ResistrationDetails;
var
S:string
if GetGlobalVar(“hepubregistered”, “0”) = “1” then
begin
S := GetGlobalVar(“hepubuserdata1”, “”);
if S <> “” then S := " (" + S + “)”;
S := GetGlobalVar(“hepubusername”, “”) + S;
SetGlobalVar(“RegisteredUser”, "Licensed to " + S), false);
end
else
begin
SetGlobalVar(“RegisteredUser”, “Not licensed”, false);
end;
end;