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 - download

⟦a1a070fee⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Display, seg_042dfe

Derivation

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

with Window_Io;

package body Display is


    Window_Player_In : Window_Io.File_Type;
    Window_Player_Out : Window_Io.File_Type;
    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_2", "The Joyeux Lurons");
    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_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_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;

    function Eol_Player return Boolean is
    begin
        return Window_Io.End_Of_Line (Window_Player_In);
    end Eol_Player;

--    procedure Player_Skip_Line is
--    begin
--        Text_Io.Skip_Line;
--Move_Cursor (Window_Player_In, Line, Column0);
--    end Player_Skip_Line;

    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 Character) 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 + 3);
        Window_Io.Get_Line (Input, "", Item);
    end Query;


    procedure Read_Player (A_String : out Character) is

    begin
        Window_Io.Report_Cursor (Window_Player_In, Line, Column);
        Query (Window_Player_In, Window_Player_Out,
               Prompt => "/:> ",
               Line => Line,
               Column => 1,
               Item => A_String);
    end Read_Player;


end Display;

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=1f rec1=00 rec2=01 rec3=04e
        [0x01] rec0=1e rec1=00 rec2=02 rec3=056
        [0x02] rec0=13 rec1=00 rec2=03 rec3=000
        [0x03] rec0=0d rec1=00 rec2=04 rec3=000
    tail 0x2153dfb2486306bd64433 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 01 52 80 1d 28 41 5f 53 74 72 69 6e 67 20  ┆   R  (A_String ┆