DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦785f3e358⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Essai_Global, seg_059b22

Derivation

└─⟦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 Int_Io;
with Terminal;
with Terminal_Essai;
with Coordonnees;
use Coordonnees;
with Traiter_Caractere;
procedure Essai_Global is
    Blink : Boolean := False;
    Mon_Terminal : Terminal_Essai.Handle;
    C : Character;
    X, Y : Tcoordonnees;
    No : Integer;
    B_Reponse : String (1 .. 3);
begin
    Text_Io.Put_Line ("essai_global - entrer le caractere a ecrire : ");
    Text_Io.Get (C);
    Text_Io.Put_Line ("essai_global - entrer la coordonnee en x : ");
    Int_Io.Get (X);
    Text_Io.Put_Line ("essai_global - entrer la coordonnee en y : ");
    Int_Io.Get (Y);
    Text_Io.Put_Line ("essai_global - entrer le No du terminal : ");
    Int_Io.Get (No);
    Text_Io.Put_Line ("essai_global - clignotement?(oui/non) : ");
    Text_Io.Get (B_Reponse);
    if B_Reponse = "oui" then
        Blink := True;
    else
        Blink := False;
    end if;

    Mon_Terminal := Terminal_Essai.Creer (X, Y, No);
    delay 2.0;
    Terminal_Essai.Ecrire (Mon_Terminal, C, X, Y, Blink);
    delay 5.0;  
    Terminal_Essai.Recoit.Nouveau_Caractere (No, C);
    Terminal_Essai.Fermer (Mon_Terminal);
end Essai_Global;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=22 rec1=00 rec2=01 rec3=01c
        [0x01] rec0=06 rec1=00 rec2=02 rec3=001
    tail 0x21768db9889135f76f29e 0x42a00088462060003