|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 886 (0x376)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
----------------------------------------------------------------
--
-- Abstract : This package body contains one procedure that
-- : allows the clearing of the screen on a terminal
-- : being used.
--
----------------------------------------------------------------
with Machine_Dependencies;
package body Terminal_Interface is
----------------------------------------------------------------
--
-- Abstract : The screen is cleared by a call to TEXT_IO.
-- : NEW_LINE with a parameter of the screen length.
--
----------------------------------------------------------------
procedure New_Page is
begin
--Text_Io.New_Line (Machine_Dependencies.Screen_Length);
--deleted because it creates disturbing paging on Rational screen
null;
end New_Page;
end Terminal_Interface;