DataMuseum.dk

top - metrics - download

    Length: 1846 (0x736)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

separate (Tracker.Element_Pkg)

procedure El_Initialize is
    -----------------------------------------------------------------------------
    --|
    --|  NAME:  EL_INITIALIZE
    --|
    --|  OVERVIEW:
    --|    This procedure is called only when a new TRACKER file has to
    --|    be created.  It is part of a forced user response to fill in
    --|    the necessary data to make TRACKER a complete report.  The
    --|    procedure EL_ADD is called to gather the information and put it
    --|    into a linked list.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    The user is forced to add at least one element record and then
    --|    is prompted to add another or not.
    -----------------------------------------------------------------------------
    Add_Another : Character := 'N';
    Done : Boolean := False;

begin
    while not Done loop
        -- force the user to add at least one element
        El_Add;  -- data to the record and the record to the list

        loop
            Put_Line ("Would you like to add another element? ");
            Put ("   [ Y or N, <cr>=N ]  :  ");
            New_Line;

            if End_Of_Line then
                Skip_Line;
                Done := True;
                exit;
            else
                Get (Add_Another);
                Skip_Line;

                if Add_Another = 'N' or Add_Another = 'n' then
                    Done := True;
                    exit;
                elsif Add_Another = 'Y' or Add_Another = 'y' then
                    exit;  -- add another element
                else
                    Put_Line (" Please enter y or n. ");
                end if;
            end if;
        end loop;
    end loop;
end El_Initialize;