|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Jeu, seg_0599ae
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io;
--with Serveur;
--with T;
--with Asteroide;
with Base;
with Definitions;
with Configuration;
with Coordonnees;
with Mon_Terminal;
with Serveur;
procedure Jeu is
Mabase : Base.Objet;
Nrj : Definitions.Energie;
Seuil : Definitions.Energie;
Base_Pos : Definitions.Position;
-- Max_Term : constant Integer := 8;
-- Terms : array (1 .. Max_Term) of Mon_Terminal.Handle;
-- last_term : integer := 2;
begin
--
Nrj := 40;
Seuil := 5;
Base_Pos.Colonne := 1;
Base_Pos.Ligne := 1;
Base.Creer (Mabase, Nrj, Seuil, Base_Pos);
Mon_Terminal.Init_Configuration;
for I in 1 .. Configuration.Last_Term loop
Configuration.Terms (I) := Mon_Terminal.Creer (No => I);
end loop;
delay 2.0;
Base.Afficher_Base (Mabase);
--for I in 1 .. Configuration.Last_Term loop
-- Mon_Terminal.Ecrire (Terminal => Configuration.Terms (I),
-- C => 'B',
-- X => Base_Pos.Colonne,
-- Y => Base_Pos.Ligne,
-- Blink => False);
-- end loop;
Text_Io.Put_Line ("*** Fin Main");
Serveur.Serveur.Go;
end Jeu;
pragma Main;
nblk1=3
nid=2
hdr6=4
[0x00] rec0=25 rec1=00 rec2=01 rec3=040
[0x01] rec0=0d rec1=00 rec2=03 rec3=000
[0x02] rec0=07 rec1=00 rec2=03 rec3=000
tail 0x217688742890e8ea70e53 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 03 fc 80 1e 20 3d 3e 20 34 20 2b 20 49 2c ┆ => 4 + I,┆