DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦c238707a9⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Display, seg_048c15, seg_048c7d, seg_048d92, seg_048dc1

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Window_Io;

package body Display is

-- Definition de la fenetre d'entrees/sorties du " Player " :
    Window_Player_In : Window_Io.File_Type;
    Window_Player_Out : Window_Io.File_Type;
-- Definition de la fenetre de sortie du " World " :
    Window_World : Window_Io.File_Type;

    Line : Window_Io.Line_Number := 1;
    Column : Window_Io.Column_Number := 1;

--------------------------------------------------------------------

    procedure Create_Window_S is
    begin
        Window_Io.Open (Window_World, Window_Io.Out_File, "Window World");  
        Window_Io.Open (Window_Player_In, Window_Io.In_File, "Window Player");
        Window_Io.Open (Window_Player_Out, Window_Io.Out_File, "Window Player");
        Window_Io.Set_Banner (Window_Player_In, "field_3",
                              "Eh oui, il y a ecrit qqch !");
    end Create_Window_S;

--------------------------------------------------------------------

    procedure Delete_Window_S is
    begin
        Window_Io.Delete (Window_Player_In);
        Window_Io.Delete (Window_World);
    end Delete_Window_S;

--------------------------------------------------------------------

    procedure Write_In_Continue (A_String : in String) is
    begin
        Window_Io.Overwrite (Window_World, A_String);
    end Write_In_Continue;

    procedure Write_In_Continue
                 (A_Unbound_String : in Nos_Chaines.String_Text) is
    begin
        Window_Io.Overwrite (Window_World,
                             Nos_Chaines.String_Value (A_Unbound_String));
    end Write_In_Continue;

--------------------------------------------------------------------

    procedure New_Line_On_World is
    begin
        Window_Io.New_Line (Window_World);
    end New_Line_On_World;

--------------------------------------------------------------------

    procedure Write_On_World (A_String : in String) is
    begin
        Window_Io.Overwrite (Window_World, A_String);
        Window_Io.New_Line (Window_World);
    end Write_On_World;

    procedure Write_On_World (A_Unbound_String : in Nos_Chaines.String_Text) is
    begin
        Window_Io.Overwrite (Window_World,
                             Nos_Chaines.String_Value (A_Unbound_String));
        Window_Io.New_Line (Window_World);
    end Write_On_World;

--------------------------------------------------------------------

    procedure Write_On_Player (A_String : in String) is
    begin
        Window_Io.Overwrite (Window_Player_Out, A_String);
        Window_Io.New_Line (Window_Player_Out);
    end Write_On_Player;

--------------------------------------------------------------------

    procedure Query (Input : Window_Io.File_Type;
                     Output : Window_Io.File_Type;
                     Prompt : String;
                     Line : Window_Io.Line_Number;
                     Column : Window_Io.Column_Number;
                     Item : out String;
                     Last : out Natural) is

    begin
        Window_Io.Position_Cursor (Output, Line, Column);
        Window_Io.Delete_Lines (Output);
        Window_Io.Overwrite (Output, Item => Prompt, Kind => Window_Io.Prompt);
        Window_Io.Position_Cursor (Input, Line, Column + 1);
        Window_Io.Get_Line (Input, "", Item, Last);
    end Query;

    procedure Read_Player (A_String : out String; Last : out Natural) is

    begin
        Window_Io.Report_Cursor (Window_Player_In, Line, Column);
        Query (Window_Player_In, Window_Player_Out,
               Prompt => "$ ",
               Line => Line,
               Column => 2,
               Item => A_String,
               Last => Last);
    end Read_Player;

--------------------------------------------------------------------

    procedure Clear_Player is
    begin
        Window_Io.Delete_Lines (Window_Player_In);
    end Clear_Player;

    procedure Clear_World is
    begin
        Window_Io.Delete_Lines (Window_World);
    end Clear_World;

--------------------------------------------------------------------

end Display;

    nblk1=6
    nid=3
    hdr6=a
        [0x00] rec0=1c rec1=00 rec2=01 rec3=032
        [0x01] rec0=1f rec1=00 rec2=02 rec3=038
        [0x02] rec0=13 rec1=00 rec2=06 rec3=088
        [0x03] rec0=1a rec1=00 rec2=05 rec3=038
        [0x04] rec0=13 rec1=00 rec2=04 rec3=000
        [0x05] rec0=43 rec1=11 rec2=32 rec3=71d
    tail 0x215461c94865a88c2fd42 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 02 ba 80 14 4c 69 6e 65 20 28 57 69 6e 64  ┆      Line (Wind┆