|
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: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Poubelle_Interpreteur, seg_040336
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
package Poubelle_Interpreteur is --Table (1) := 'a'; --Table (2) := 'l'; --Table (3) := 'l'; --Table (4) := 'e'; --Table (5) := 'r'; --Table (6 .. 80) := (others => ' '); --Mot_Lu, Mot_In_Table : Mots.Mot; --Mots.Creer (Mot_In_Table, Table (1 .. 5)); --Mots.Creer (Mot_In_Table, Un_Tableau (1).all); --Text_Io.Put_Line (Un_Tableaux (1).all); --if Mots.Valeur (Mot_Lu) = Mots.Valeur (Mot_In_Table) then -- Text_Io.Put_Line ("Ok !"); --else -- Text_Io.Put_Line ("Ko !"); --end if; --function "=" (Chaine1, Chaine2 : String) return Boolean -- renames Standard."="; end Poubelle_Interpreteur;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=1a rec1=00 rec2=01 rec3=000 tail 0x2153a9bb4860e3f71f591 0x42a00088462060003