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

⟦84150799c⟧ TextFile

    Length: 3146 (0xc4a)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦fdc296ed2⟧ 
            └─⟦this⟧ 

TextFile


          Tests.Beginner;
    while not Tests.At_End loop
        Text_Io.Put_Line ("");
        Text_Io.Put_Line ("Les tests ....................");
        Tests.First_Test;
        while not Tests.At_End_Sup loop
            Text_Io.Put_Line ("");
            Un_Test := Tests.Get_Test;
            case Un_Test.Kind is
                when Tests.Is_A_Verb =>
                    Text_Io.Put_Line ("Kind: Is_A_Verb");
                when Tests.Is_A_Complement =>
                    Text_Io.Put_Line ("Kind: Is_A_Complement");
                when Tests.Is_In_State =>
                    Text_Io.Put_Line ("Kind: Is_In_State");
                when Tests.Is_Equal =>
                    Text_Io.Put_Line ("Kind: Is_Equal");
                when Tests.Is_Greater =>
                    Text_Io.Put_Line ("Kind: Is_Greater");
                when Tests.Is_Less =>
                    Text_Io.Put_Line ("Kind: Is_Less");
                when Tests.Is_In_Position =>
                    Text_Io.Put_Line ("Kind: Is_In_Position");
                when Tests.Always =>
                    Text_Io.Put_Line ("Kind: Always");
            end case;
            Text_Io.Put_Line ("Name: " & Tests.Identifier.Image (Un_Test.Name));
            Text_Io.Put_Line ("State: " &
                              Tests.Identifier.Image (Un_Test.State));
            Text_Io.Put_Line ("Value: " & Integer'Image (Un_Test.Value));
            Tests.Test_Sup;
             end loop;

        Tests.First_Effect;
        Text_Io.Put_Line ("");
        Text_Io.Put_Line ("Les effets ....................");
        while not Tests.At_End_Effect loop
            Text_Io.Put_Line ("");
            Un_Effet := Tests.Get_Effect;
            case Un_Effet.Kind is
                when Tests.Increase =>
                    Text_Io.Put_Line ("Kind: Increase");
                when Tests.Decrease =>
                    Text_Io.Put_Line ("Kind: Decrease");
                when Tests.Value =>
                    Text_Io.Put_Line ("Kind: Value");
                when Tests.Print =>
                    Text_Io.Put_Line ("Kind: Print");
                when Tests.Comment =>
                    Text_Io.Put_Line ("Kind: Comment");
                when Tests.Game_Over =>
                    Text_Io.Put_Line ("Kind: Game_Over");
                when Tests.Change =>
                    Text_Io.Put_Line ("Kind: Change");
                when Tests.Position =>
                    Text_Io.Put_Line ("Kind: Position");
            end case;
              Text_Io.Put_Line ("Name: " &
                              Tests.Identifier.Image (Un_Effet.Name));
            Text_Io.Put_Line ("State: " &
                              Tests.Identifier.Image (Un_Effet.State));
            Text_Io.Put_Line ("Other_State: " &
                              Tests.Identifier.Image (Un_Effet.Other_State));
            Text_Io.Put_Line ("Position: " &
                              Tests.Identifier.Image (Un_Effet.Position));
            Text_Io.Put_Line ("Value: " & Integer'Image (Un_Effet.Value));
            Tests.Next_Effect;
        end loop;
        Tests.Next;
    end loop;