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 - metrics - download

⟦299f2ea60⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Main_Player, seg_04920c, seg_049218, seg_04924f

Derivation

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

with Interpreteur, Display, Nos_Chaines, Text_Io;

package body Main_Player is

    New_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 : dico_verbes");
        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");  
    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=6
    nid=6
    hdr6=8
        [0x00] rec0=1a rec1=00 rec2=01 rec3=012
        [0x01] rec0=1b rec1=00 rec2=02 rec3=00e
        [0x02] rec0=1c rec1=00 rec2=05 rec3=05e
        [0x03] rec0=13 rec1=00 rec2=03 rec3=000
        [0x04] rec0=06 rec1=00 rec2=04 rec3=000
        [0x05] rec0=43 rec1=2a rec2=22 rec3=374
    tail 0x215467a3c865b4cc2cdd1 0x42a00088462060003
Free Block Chain:
  0x6: 0000  00 04 00 05 80 02 70 6c 02 00 00 00 00 20 00 00  ┆      pl        ┆
  0x4: 0000  00 00 01 0c 80 2c 6e 65 73 2e 43 6f 70 79 20 28  ┆     ,nes.Copy (┆