|
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, package Definitions, seg_059c16
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Definitions is
Max_Energie : constant := 100;
Max_Asteroide : constant := 20;
Max_Vaisseau : constant := 8;
Max_Tir : constant := 100;
Max_Vitesse : constant := 10;
Max_Seuil : constant := 50;
Max_Colonnes : constant := 10; --80
Max_Lignes : constant := 10; --24
Max_L : constant := Definitions.Max_Lignes - 1;
subtype Energie is Natural range 0 .. Max_Energie;
subtype Num_Asteroide is Natural range 0 .. Max_Asteroide;
subtype Num_Vaisseau is Natural range 0 .. Max_Vaisseau;
subtype Num_Tir is Natural range 0 .. Max_Tir;
subtype Vitesse is Natural range 0 .. Max_Vitesse;
subtype Seuil_De_Clignotement is Natural range 0 .. Max_Seuil;
type Position is
record
Colonne : Natural range 1 .. Max_Colonnes;
Ligne : Natural range 1 .. Max_Lignes;
end record;
type Acteur is (Ast, Base, Tir, Vais, Rien);
type Cellule is
record
Nature : Acteur;
Numero : Natural;
end record;
type Cap is (Nord, Sud, Est, Ouest, Nord_Est,
Nord_Ouest, Sud_Est, Sud_Ouest);
type Espace is array
(1 .. Definitions.Max_Colonnes, 1 .. Definitions.Max_L) of
Definitions.Cellule;
end Definitions;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=21 rec1=00 rec2=01 rec3=026
[0x01] rec0=14 rec1=00 rec2=02 rec3=001
tail 0x21768fb0089148f1b2d10 0x42a00088462060003