|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Main_Player, seg_04920c, seg_049218, seg_04924f
└─⟦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 (┆