DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦2f4981b1f⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Display, seg_046d6a

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

package body Display is



    procedure Open_Window
                 (Name : in String; The_Window : in out Window; Mode : Ways) is  
        In_Window, Out_Window : Window_Io.File_Type;
    begin
        if not (The_Window.Already_Opened) then
            case Mode is
                when Input_Window =>
                    Window_Io.Open (In_Window, Window_Io.In_File, Name);  
                    The_Window := (Input_Window, True, In_Window);
                when Output_Window =>
                    Window_Io.Open (Out_Window, Window_Io.Out_File, Name);  
                    The_Window := (Output_Window, True, Out_Window);
                when Input_Output_Window =>  
                    Window_Io.Open (In_Window, Window_Io.In_File, Name);
                    Window_Io.Open (Out_Window, Window_Io.Out_File, Name);
                    The_Window := (Input_Output_Window, True,
                                   In_Window, Out_Window);
            end case;  
        end if;
    end Open_Window;


    procedure Close_Window (The_Window : in out Window) is
    begin  
        if (The_Window.Already_Opened) then
            case The_Window.Kind is
                when Input_Window =>
                    Window_Io.Close (The_Window.Handle_On_Input_Window);
                when Output_Window =>
                    Window_Io.Close (The_Window.Handle_On_Output_Window);  
                when Input_Output_Window =>
                    Window_Io.Close (The_Window.Handle_On_Window_For_Input);
                    Window_Io.Close (The_Window.Handle_On_Window_For_Output);  
            end case;
            The_Window.Already_Opened := False;
        end if;  
    end Close_Window;


    procedure Display_Window is
    begin
        null;
    end Display_Window;

end Display;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=17 rec1=00 rec2=01 rec3=02e
        [0x01] rec0=1c rec1=00 rec2=02 rec3=001
    tail 0x21543c04c86524c944f22 0x42a00088462060003