|
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 - metrics - downloadIndex: B T
Length: 1837 (0x72d)
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⟧
separate (Tracker.Activity_Pkg)
procedure Ac_Initialize is
------------------------------------------------------------------------------
--|
--| NAME: AC_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 AC_ADD is called to gather the information and put it
--| into a linked list.
--|
--| EXCEPTIONS HANDLED:
--| none
--|
--| HISTORY:
--| written by May Lee March 1985
--|
------------------------------------------------------------------------------
Add_Another : Character := 'N';
Done : Boolean := False;
begin
-- get the data for the record and add to linked list
while not Done loop
-- force the user to add at least one activity
Ac_Add; -- data to the record and the record to the list
loop
Put_Line ("Would you like to add another activity? ");
Put (" [ Y or N, <cr>=N ] : ");
if End_Of_Line then
-- pressed return, default to no
Skip_Line;
New_Line (2);
Done := True;
exit;
else
Get (Add_Another);
Skip_Line;
New_Line (2);
if Add_Another = 'N' or Add_Another = 'n' then
Done := True;
exit;
elsif Add_Another = 'Y' or Add_Another = 'y' then
exit;
else
Put_Line (" Please enter y or n. ");
end if;
end if;
end loop;
end loop;
end Ac_Initialize;