|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
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
└─⟦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┆