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

⟦ae06c10e3⟧ Ada Source

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

Derivation

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

with Window_Io;
use Window_Io;
package body Screen is

    Win_Play_In, Win_Play_Out, Win_Wld_Out : Window_Io.File_Type;
    Line : Line_Number := 1;
    Column : Column_Number := 1;

    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 (Item : out String; Last : out Natural) is

    begin
        Report_Cursor (Win_Play_In, Line, Column);
        Query (Win_Play_In, Win_Play_Out,
               Prompt => ">",
               Line => Line,
               Column => 1,
               Item => Item,
               Last => Last);
    end Read_Player;

    procedure Write_Player (Item : in String) is

    begin
        Overwrite (Win_Play_Out, Item);
        New_Line (Win_Play_Out);
    end Write_Player;

    procedure Write_World (Item : in String) is

    begin
        Overwrite (Win_Wld_Out, Item);
        New_Line (Win_Wld_Out);
    end Write_World;

    procedure Open_All_Win is
    begin
        Open (Win_Play_In, In_File, "Fenetre Joueur");
        Open (Win_Play_Out, Out_File, "Fenetre Joueur");
        Set_Banner (Win_Play_In, "Field_3", "Fred Ged Xav LSIs 95");

        Open (Win_Wld_Out, Out_File, "Fenetre Monde");
        Set_Banner (Win_Wld_Out, "Field_3", "Fred Ged Xav LSIs 95");
    end Open_All_Win;

    procedure Close_All_Win is
    begin
        Delete (Win_Play_In);
        Delete (Win_Wld_Out);
    end Close_All_Win;


end Screen;

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=20 rec1=00 rec2=01 rec3=012
        [0x01] rec0=25 rec1=00 rec2=02 rec3=016
        [0x02] rec0=01 rec1=00 rec2=03 rec3=000
        [0x03] rec0=03 rec1=d9 rec2=f5 rec3=642
    tail 0x21740b8aa86115ae59a0f 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 00 27 80 18 20 20 20 20 20 20 20 20 20 20  ┆   '            ┆