|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 718 (0x2ce)
Types: TextFile
Names: »B«
└─⟦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⟧
with Square;
procedure Magic_Square is
procedure Do_A_Magic_Square (Size : in Positive) is
package This_Square is new Square (Size);
use This_Square;
Token : Positive := 1;
begin
Go_To_Center;
Go (North);
loop
Deposit (Token);
exit when Token = Size ** 2;
Token := Token + 1;
Go (North_East);
while Is_Already_Occupied loop
Go (North_West);
end loop;
end loop;
Display;
end Do_A_Magic_Square;
begin
for Size in 3 .. 13 loop
if Size mod 2 /= 0 then
Do_A_Magic_Square (Size);
end if;
end loop;
end Magic_Square;