|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure More_Display, seg_0046f9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with New_Keys;
with Window_Io;
with Io_Exceptions;
with Window_Utilities;
with Fonts;
with Editor;
procedure More_Display (Output_Window : Window_Io.File_Type;
Input_Window : Window_Io.File_Type;
The_Lines : Lines) is
Window_Length : Window_Io.Line_Number;
Window_Width : Window_Io.Column_Number;
Last_Line : Window_Io.Line_Number;
Current_Line : Window_Io.Line_Number := 1;
Cursor_Line : Window_Io.Line_Number;
Cursor_Column : Window_Io.Column_Number;
My_Iter : Lines_Iterator := Initialize (The_Lines);
begin
Window_Io.Report_Size (Output_Window, Window_Length, Window_Width);
Last_Line := Window_Length;
Window_Length := Window_Length - 1;
Editor.Window.Beginning_Of;
while not Done (My_Iter) loop
if Current_Line <= Window_Length then
Window_Io.Insert (Output_Window, Value (My_Iter));
Window_Io.New_Line (Output_Window, 1);
Current_Line := Current_Line + 1;
Next (My_Iter);
else
declare
Ans : constant String :=
Window_Utilities.Prompt_Query
(Input_Window => Input_Window,
Output_Window => Output_Window,
Prompt => "HIT 'ENTER' TO CONTINUE",
Line => Last_Line,
Column => 1);
begin
if Ans = "" then
Editor.Window.Beginning_Of;
Last_Line := Last_Line + Window_Length;
Current_Line := 1;
else
return;
end if;
end;
end if;
end loop;
Window_Utilities.Continue (Input_Window => Input_Window,
Output_Window => Output_Window,
Prompt => "HIT 'ENTER' TO CONTINUE",
Line => Last_Line,
Column => 1);
end More_Display;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=22 rec1=00 rec2=01 rec3=02a
[0x01] rec0=00 rec1=00 rec2=04 rec3=014
[0x02] rec0=1c rec1=00 rec2=02 rec3=030
[0x03] rec0=07 rec1=00 rec2=03 rec3=001
tail 0x215004e70815c676d4c4a 0x42a00088462061e03