|
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: T V
Length: 573 (0x23d)
Types: TextFile
Names: »V«
└─⟦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⟧
generic
Large : Integer := 5;
package Square is
subtype Token is Natural range 0 .. (Large * Large);
type Direction is (North, South, East, West);
procedure Move (D : Direction);
procedure Go_To_Center;
procedure Deposit (T : Token);
function Get_Token return Token;
procedure Wrap_If_Edge;
procedure Clear_My_Square;
procedure Display_Square;
private
subtype Square_Large is Positive range 1 .. Large;
type My_Square is array (Square_Large, Square_Large) of Token;
Magic : My_Square;
X, Y : Integer;
end Square;