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

⟦b7ad669d1⟧ TextFile

    Length: 1002 (0x3ea)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Easy_X;
use Easy_X;

procedure X_Test (Display : String := "arum:0") is
    use Arithmetic;
    X, Y : Coordinate := 400;  
    I, N : Dimension := 2;
begin  
    Open (Display);
    Set_Font (To => Easy_X.Large_Font);
    -- loop
    --     case Next_Event is
    --         when Update =>
    --             Move_To (X, Y);
    --             Draw_String ("Essai");
    --         when Button_Down =>
    --             exit;
    --         when Button_Up =>
    --             null;
    --     end case;
    --     Set_Font (To => Small_Font);
    --     X := X + 50;
    --     Y := Y + 50;
    -- end loop;
    Move_To (X, Y);
    for J in 1 .. 150 loop  
        X := X + I;
        I := I + N;
        Line_To (X, Y);
        Y := Y + I;
        I := I + N;
        Line_To (X, Y);
        X := X - I;
        I := I + N;
        Line_To (X, Y);
        Y := Y - I;
        I := I + N;
        Line_To (X, Y);
    end loop;
    Close;
exception
    when others =>
        Close;
end X_Test;