DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦0ffc2c028⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Game, seg_048171

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Text_Io, Erreur;
with Verbs_Dictionary, Comps_Dictionary;
with Models, Symbols;
with Set_Of_Links, Set_Of_Connections;
with Liste_D_Instructions;
with Compiler, Moteur;
use Text_Io;

-- =================================================================
procedure Game is
-- =================================================================

    Dict : Verbs_Dictionary.Object;
    Comp : Comps_Dictionary.Object;
    Models_Table : Models.Object;
    Symbols_Table : Symbols.Object;
    Links : Set_Of_Links.Object;
    Connect : Set_Of_Connections.Object;
    Liste_Introduction : Liste_D_Instructions.Object;
    Liste_Generale : Liste_D_Instructions.Object;
    Liste_Globale : Liste_D_Instructions.Object;
    Liste_Locale : Liste_D_Instructions.Object;
    Parsed : Boolean;


begin

-- =================================================================
--           CREATION DES STRUCTURES DE DONNEES
-- =================================================================

    Verbs_Dictionary.Create (Dict);
    Comps_Dictionary.Create (Comp);
    Models.Create (Models_Table);
    Symbols.Create (Symbols_Table);
    Set_Of_Links.Create (Links);
    Set_Of_Connections.Create (Connect);
    Liste_Introduction := Liste_D_Instructions.Creation;
    Liste_Generale := Liste_D_Instructions.Creation;
    Liste_Globale := Liste_D_Instructions.Creation;
    Liste_Locale := Liste_D_Instructions.Creation;

-- =================================================================
--                       COMPILATION
-- =================================================================

    Compile_The_Game (Dict, Comp, Models_Table, Symbols_Table, Links,
                      Connect, Liste_Introduction, Liste_Generale,
                      Liste_Globale, Liste_Locale, Parsed);

    if (not Erreur.Probleme_De_Compilation) and Parsed then
        Text_Io.Put_Line ("Source Ok.");

-- =================================================================
--                       EXECUTION
-- =================================================================

        Execute_The_Game (Dict, Comp, Models_Table, Symbols_Table,
                          Links, Connect, Liste_Introduction,
                          Liste_Generale, Liste_Globale, Liste_Locale);
-- =================================================================
--                       FIN DU JEU
-- =================================================================
    else
        Put_Line ("Erreurs de compilation !!!");
    end if;
    Text_Io.Put_Line ("See you ...");

-- =================================================================
--           DESTRUCTION DES STRUCTURES DE DONNEES
-- =================================================================
    Liste_D_Instructions.Detruire (Liste_Introduction);
    Liste_D_Instructions.Detruire (Liste_Generale);
    Liste_D_Instructions.Detruire (Liste_Globale);
    Liste_D_Instructions.Detruire (Liste_Locale);
    Verbs_Dictionary.Destroy (Dict);
    Comps_Dictionary.Destroy (Comp);
    Models.Dispose_Object (Models_Table);
    Symbols.Dispose_Object (Symbols_Table);
    Set_Of_Links.Destroy (Links);
    Set_Of_Connections.Destroy (Connect);

-- =================================================================
--           TRAITEMENT DES DISFONCTIONNEMENTS
-- =================================================================

exception
    when Erreur.Erreur_Syntaxe =>
        Text_Io.Put_Line (" -- Erreur Fatale");
        Text_Io.Put_Line ("Bye, bye...");
        Verbs_Dictionary.Destroy (Dict);
    when Verbs_Dictionary.Duplicate_Value =>
        Text_Io.Put ("Lg:");
        Text_Io.Put (Natural'Image (Lexical.Get_Line));
        Text_Io.Put (" Cl:");
        Text_Io.Put (Natural'Image (Lexical.Get_Column));
--      when others => Text_Io.Put_Line ("Erreur inconnue");

end Game;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1f rec1=00 rec2=01 rec3=05c
        [0x01] rec0=18 rec1=00 rec2=02 rec3=04e
        [0x02] rec0=15 rec1=00 rec2=03 rec3=010
        [0x03] rec0=1a rec1=00 rec2=04 rec3=000
    tail 0x2174c205086585ba016ad 0x42a00088462060003