DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦b0b29127c⟧ TextFile

    Length: 1305 (0x519)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with String_Utilities;  
use String_Utilities;
package body Trame is
    package Int_Io is new Text_Io.Integer_Io (Integer);
    Debut_Trame : constant Character := 'D';
    Fin_Trame : constant Character := 'F';

    procedure Execute_Role (A : Acteur; Ac : Action) is
        Valeur : String (1 .. 10);
        Inter : Integer;  
        String_2 : String (1 .. 2) := "00";
        String_4 : String (1 .. 4) := "0000";
        String_4_Inter : String (1 .. 4);
    begin

        Valeur (1) := Debut_Trame;
        Valeur (10) := Fin_Trame;
        for I in 2 .. 9 loop
            Valeur (I) := '0';
        end loop;  
        Inter := A.Num_Station;
        String_2 := Number_To_String (Inter, 10, 2);
        Valeur (2 .. 3) := String_2;
        Inter := A.Num_Acteur;
        String_2 := Number_To_String (Inter, 10, 2);
        Valeur (4 .. 5) := String_2;
        Inter := Ac;


        String_4_Inter := Number_To_String (Inter, 10, 4);
        Int_Io.Put (String_4_Inter'Length);
        Text_Io.Put_Line ("");
        Valeur ((6 + 4 - String_4_Inter'Length) .. 9) := String_4_Inter;
        for I in 1 .. 10 loop
            if Valeur (I) = ' ' then
                Valeur (I) := '0';
            end if;
        end loop;
        Text_Io.Put_Line (Valeur);
    end Execute_Role;

end Trame;