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

⟦f0ea80bd2⟧ TextFile

    Length: 1362 (0x552)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

procedure Sample_Input is
    X : Integer;
begin
    -- case 1:
    if X = 0 then
        null;
    elsif X = 1 then
        null;
    end if;

    -- case 2:
    if X = 0 then
        null;
    elsif X = 0 then
        null;
    end if;

    -- case 3:
    if X = 0 then
        if X = 0 then
            null;
        elsif X = 1 then
            if X = 2 then
                null;
            elsif X = 7 then
                null;
            end if;
        end if;
    elsif X = 1 then
        null;
    end if;

    -- case 4:
    if X = 0

       -- if this works then

        then
        if X = 0  -- if this works then
            then
            null;
        end if;

    end if;

    -- case 5:
    if Then_Position = 0 then
        If_Position := Position_Then;
    elsif Position_Then = 0 then
        Position_Then := If_Position;
    end if;

    -- case 6:
    if Check (" then ") then
        Call (" if ");
        Call (" then ");
    elsif Check (" -- ") then
        Call (" elsif ");
        Call (" then ");
    elsif Check (" -- ")  -- then
        then
        Call (" elsif ");
        Call (" then ");
    end if;

    -- case 7:
    if X = 0 and then X = 1 then
        if X = 0 and then X = 1 then
            if X = 0 and then X = 1 then
                null;
            end if;
        end if;
    end if;

end Sample_Input;