|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Game, seg_049a0d, seg_049a10
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Afficher_Structure;
with Interpreteur;
with Interface_Structure;
with Lex;
with Jeu;
with Text_Io;
with Moteur;
with Main_Player;
with Error;
procedure Game is
Syntaxe, Semantic_Structure : Boolean := True;
S : String (1 .. 80);
L : Natural;
B_File_Open : Boolean := False;
begin
Main_Player.Windows_Initialise;
Main_Player.Get_File_Name (S, L);
Lex.Open (S (1 .. L));
Jeu.Parse (Syntaxe, Semantic_Structure);
if Syntaxe and Semantic_Structure and not Error.Scenario_Is_Not_Build then
Text_Io.Put_Line ("ANALYSE CORRECTE");
Moteur.Init;
Interface_Structure.Print_Verbes;
loop
Moteur.Evalue_The_Data_Base;
exit when Moteur.End_Of_Game;
Main_Player.Get_New_Commande;
Text_Io.Put_Line (" ");
Text_Io.Put_Line ("Liste des communications rencontrees :");
Text_Io.Put_Line (" ");
end loop;
Main_Player.Windows_Delete;
else
Text_Io.Put_Line ("ANALYSE INCORRECTE");
Main_Player.Windows_Delete;
end if;
exception
when Interpreteur.End_Of_Play =>
Main_Player.Windows_Delete;
when Text_Io.Name_Error =>
Text_Io.Put_Line ("Le fichier correspondant n'existe pas !");
Text_Io.Put_Line
("Il faut donc relancer le jeu avec le BON fichier source !");
Main_Player.Windows_Delete;
when others =>
Text_Io.Put_Line ("Il y a un probleme ?!?!");
Text_Io.Put_Line ("#@*!!?+&% !");
Main_Player.Windows_Delete;
end Game;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=22 rec1=00 rec2=01 rec3=00c
[0x01] rec0=15 rec1=00 rec2=02 rec3=001
tail 0x2154715c486606f90c0c9 0x42a00088462060003