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

⟦f9836abe0⟧ TextFile

    Length: 739 (0x2e3)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Square;

procedure Magic_Square is

    package Mysquare is new Square (Size => 15);

    Counter : Mysquare.Token := 1;

begin  
    Mysquare.Go_To_Center;
    Mysquare.Move (Mysquare.North);  
    Mysquare.Deposit (Counter);
    while Counter < Mysquare.Token'Last loop  
        Counter := Mysquare.Token'Succ (Counter);
        loop
            Mysquare.Move (Mysquare.North);
            Mysquare.Move (Mysquare.East);
            if Mysquare.Cell_Busy then
                Mysquare.Move (Mysquare.North);
                Mysquare.Move (Mysquare.West);
            end if;  
            exit when not Mysquare.Cell_Busy;
        end loop;
        Mysquare.Deposit (Counter);
    end loop;
    Mysquare.Display;
end Magic_Square;