DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦9e487f7b3⟧ TextFile

    Length: 590 (0x24e)
    Types: TextFile
    Names: »V«

Derivation

└─⟦bfaa708f6⟧ Bits:30000531 8mm tape, Rational 1000, INSIGHT 1_3_0
    └─ ⟦c51948655⟧ »DATA« 
        └─⟦266b31e86⟧ 
            └─⟦this⟧

TextFile

with Lights;
package Light_Controls is

    subtype Light_Id is Lights.Light_Id;

    function Light_Of (Seat : String) return Light_Id renames Lights.Light_Of;


    procedure On (Light : Light_Id);
    -- Turn on the indicated light.  A message will be sent to the
    -- controller node that has the switch for the specified light.

    procedure Off (Light : Light_Id);
    procedure Toggle (Light : Light_Id);

    subtype Cabin_Light_Id is Lights.Cabin_Light_Id;


    procedure Cabin_On (Light : Cabin_Light_Id);
    procedure Cabin_Off (Light : Cabin_Light_Id);

end Light_Controls;