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

⟦69c0a34af⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Display, seg_041738

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;
use Window_Io;

package body Display is

    Window_Player_In : File_Type;
    Window_Player_Out : File_Type;
    Window_World : File_Type;

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

    procedure Create_Window_S is
    begin
        Open (Window_World, Out_File, "Window World");  
        Open (Window_Player_In, In_File, "Window Player");
        Open (Window_Player_Out, Out_File, "Window Player");
        Set_Banner (Window_Player_In, "filed_3", "The Joyeux Lurons");
    end Create_Window_S;

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

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

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

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

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


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

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


end Display;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=24 rec1=00 rec2=01 rec3=052
        [0x01] rec0=1e rec1=00 rec2=02 rec3=016
        [0x02] rec0=05 rec1=00 rec2=03 rec3=000
    tail 0x2153c4b7086226e8c291a 0x42a00088462060003