|
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 Print, seg_006350
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
procedure Print (Object_Or_Image : String := "<CURSOR>";
From_First_Page : Positive := 1;
To_Last_Page : Positive := 3000;
Display_As_Twoup : Boolean := True;
Display_Border : Boolean := True;
Display_Filename : Boolean := True;
Display_Date : Boolean := True;
Ignore_Display_Parameters_For_Postscript : Boolean := True;
Highlight_Reserved_Words_For_Ada : Boolean := True;
Other_Options : String := "";
Number_Of_Copies : Positive := 1;
Printer : String := "<Default>";
Effort_Only : Boolean := False);
-- Prints one or more objects.
-- Additional parameters specify how the object(s) should be printed.
-- The printer used is based on the user via a map set up by the system manager.
--
-- The parameters have the following effects:
-- Object_Or_Image Specifies the object(s) to be printed. Can
-- designate (via value "<cursor>") mail messages,
-- I/O windows, etc.
-- If more than one object is specified, then the print
-- style is based on the first object in the list.
--
-- The following options only apply to printing on laser printers:
--
-- From_First_Page Have the first printed page be as specified, if
-- possible.
-- To_Last_Page Have the last printed page be as specified, if
-- possible.
--
-- Disply_As_Twoup Causes printing in 2-up format if possible
--
-- Display_Border Show a border around each page, if possible.
--
-- Display_Filename Show the filename being printed on each page, if
-- possible.
-- Display_Date Show the file date on each page, if possible.
--
--
-- Ignore_Display_Parameters_For_Postscript
-- If the object being printed is a PostScript file,
-- causes Display_Two_Up, Display_Date, Display_Filename,
-- and Display_Page_Border to be ignored.
--
-- Highlight_Reserved_Words_For_Ada
-- If the object being printed is Ada, use Ada format
-- which highlights keywords, italicizes comments, etc.
--
--
-- The following options apply to all files:
--
-- Other_Options Standard Queue.Print options can be
-- specified here. The options specified here
-- override any other option specifications.
-- The options from above will be combined with these
-- options, if they are still applicable.
--
-- Number_Of_Copies Prints the specified number of copies.
--
-- Printer Use the specified printer. By default, determine
-- the printer based on the user name. (each user
-- has a default printer).
-- Effort_Only If true, don't print anything, but check
-- parameter values and construct the command
-- that would be sent to the Queue.Print command.
--
-- To print a wide listing, in landscape mode on a laser printer, the
-- following options should be used:
--
-- Twoup = False
-- Other_Options = "Postscript => (Wide,Spacing=10,Size=10)"
--
--
nblk1=4
nid=0
hdr6=8
[0x00] rec0=1a rec1=00 rec2=01 rec3=02c
[0x01] rec0=14 rec1=00 rec2=02 rec3=004
[0x02] rec0=16 rec1=00 rec2=03 rec3=012
[0x03] rec0=0f rec1=00 rec2=04 rec3=001
tail 0x215013cbe81bf7fc35fee 0x42a00088462065003