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

⟦43627fbdd⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Main_Player, seg_048dc3

Derivation

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

with Interpreteur, Display, Nos_Chaines, Text_Io;

package body Main_Player is

    New_T_Command : T_Commande;
    Current_T_Command : T_Commande;

------------------------------------------------------------------------------

    procedure Windows_Initialise is
    begin
        Display.Create_Window_S;
        Display.Write_On_Player ("                      BIENVENU !");
        Display.Write_On_Player
           ("       VENEZ VOUS CONFRONTER A CE JEU DIABOLIQUE !!!");
        Display.Write_On_Player (" ");
        Display.Write_On_Player ("    Vous pouvez entrer vos commandes ici");
        Display.Write_On_Player (" ");
        Display.Write_On_Player
           ("    Pour obtenir la liste des verbes, tapez : info_user");
        Display.Write_On_World (" ");
        Display.Write_On_World (" ");
        Display.Write_On_World ("      Cette fenetre est une ouverture");
        Display.Write_On_World ("               sur le monde");
        Display.Write_On_World (" ");
        Display.Write_On_World ("               VOTRE MONDE !!");
        Display.Write_On_World (" ");
        Display.Write_On_World (" ");
    end Windows_Initialise;

------------------------------------------------------------------------------

    procedure Windows_Delete is
    begin  
        Display.Clear_World;
        Display.Write_On_World (" ");
        Display.Write_On_World ("     BYE BYE !!");
        delay (3.0);
        Display.Delete_Window_S;
    end Windows_Delete;

------------------------------------------------------------------------------

    procedure Get_File_Name (File_Name : out String; Len : out Natural) is  
    begin
        Display.Write_On_Player (" ");
        Display.Write_On_Player
           ("Entrer le nom du fichier source de votre jeu : ");
        Display.Write_On_Player (" ");
        Display.Read_Player (File_Name, Len);
        Display.Write_On_Player (" ");
        Display.Write_On_Player ("MERCI   ");
        Display.Write_On_Player (" ");
    end Get_File_Name;

------------------------------------------------------------------------------

    procedure Get_New_Commande is
    begin
        Interpreteur.Interprete (New_T_Command);
    exception
        when Interpreteur.End_Of_Play =>
            raise Interpreteur.End_Of_Play;
        when others =>
            Text_Io.Put_Line ("erreur get_new_commande");
            --Copy_Commande (Current_T_Command, New_T_Command);
    end Get_New_Commande;

------------------------------------------------------------------------------


    function Get_Commande return T_Commande is
    begin
        return New_T_Command;
    end Get_Commande;

------------------------------------------------------------------------------

    procedure Affiche (Current_Commande : T_Commande) is
    begin
        Text_Io.Put_Line (Integer'Image (Current_Commande.Size_Of_Commande));
        for I in 1 .. Current_Commande.Size_Of_Commande loop
            Nos_Chaines.Print_Line (Current_Commande.Tab_Commande (I));
        end loop;
    end Affiche;

------------------------------------------------------------------------------

    procedure Copy_Commande (Modified_Command : in out T_Commande;
                             Source_Commande : in T_Commande) is
    begin
        Modified_Command.Size_Of_Commande := Source_Commande.Size_Of_Commande;
        for I in Modified_Command.Tab_Commande'Range loop
            Nos_Chaines.Copy (Modified_Command.Tab_Commande (I),
                              Source_Commande.Tab_Commande (I));
        end loop;
    end Copy_Commande;

end Main_Player;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1a rec1=00 rec2=01 rec3=01a
        [0x01] rec0=1b rec1=00 rec2=02 rec3=026
        [0x02] rec0=0f rec1=00 rec2=05 rec3=032
        [0x03] rec0=1b rec1=00 rec2=03 rec3=028
        [0x04] rec0=06 rec1=00 rec2=04 rec3=000
    tail 0x21546249e865a8ed73ba1 0x42a00088462060003