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

⟦45b04cdb0⟧ TextFile

    Length: 4970 (0x136a)
    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

-- CHECK THAT BLOCKS CAN BE EMBEDDED UP TO AN ARBITRARY LEVEL (65).

with Instrument;
use Instrument;

procedure Blema2 is
    X : Integer := 0;
begin
    Start ("BLEMA2", " 65 EMBEDDED BLOCKS");
    for I in 1 .. 100000 loop
        begin
            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                [statement]
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
            end;
        end;
        if X /= 1 then
            X := 0;
        end if;
        X := 1;
    end loop;
    Stop;
end Blema2;