|
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: T V
Length: 883 (0x373)
Types: TextFile
Names: »V«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦12c68c704⟧
└─⟦this⟧
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦220843204⟧
└─⟦this⟧
package Text is
type Image_Kind is (File, Input_Output);
procedure Create (Image_Name : String := ">>IMAGE_NAME<<";
Kind : Image_Kind := Text.File);
-- Create a text image.
-- Image_Kind = File a text file with the given name
-- Image_Kind = Input_Output creates an input_output image of that name
-- Commands run from an input_output image will have that image as the
-- default destination for Current_Output
procedure Block (All_Windows : Boolean := False);
procedure Continue (Page_Mode : Boolean := False;
All_Windows : Boolean := False);
procedure End_Of_Input;
procedure Redirect (To : String := ">>File Name<<");
-- Redirect the output associated with the current output
-- window to the named file.
pragma Subsystem (Command);
pragma Module_Name (4, 2210);
end Text;