|
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: 658 (0x292)
Types: TextFile
Names: »V«
└─⟦bfaa708f6⟧ Bits:30000531 8mm tape, Rational 1000, INSIGHT 1_3_0
└─ ⟦c51948655⟧ »DATA«
└─⟦266b31e86⟧
└─⟦this⟧
with Passenger_Screen;
with Client;
package Weather is
-- Process passwnger weather report requests. We fetch data from the
-- ground and format and display it for the passenger.
type Report is private; -- Raw weather information
type Report_String is array (Natural range <>) of Report;
-- A series of reports.
function Image (City : Weather.Report) return String;
-- format the report data.
procedure Request (City_List : String; For_Client : Client.Id);
-- Fetch the data from the database and display it on the passenger
-- terminal
private
type Report is new Integer; -- to fill in later
end Weather;