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

⟦5a66d5b50⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Fake_Main, seg_004f36

Derivation

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

E3 Source Code



with Xlib;  
with Xlbmp_Debugger;  
with Xlbmp_Environment;  
with Xlbmp_Error_Log;  
with Xlbmp_Generic_Converters;  
with Xlbmp_Get;  
with Xlbmp_Internal;  
with Xlbmp_Network_Interface;  
with Xlbmp_Put;  
with Xlbmt_Network_Types;  
with Xlbmt_Numeric_Types;  
with Xlbmt_Parameters;  
with Xlbmt_Transport_Defs;  
with Xlbip_Base_Converters;  
with Xlbip_Default_Proc_Vars;  
with Xlbip_Error_Converters;  
with Xlbip_Event_Converters;  
with Xlbip_Get_Reply;  
with Xlbip_Graphic_Converters;  
with Xlbip_Image_Internal;  
with Xlbip_Internal;  
with Xlbip_Put_Request;  
with Xlbip_Reply_Converters;  
with Xlbip_Request_Converters;  
with Xlbip_Wire_Converters;  
with Xlbit_Hint2;  
with Xlbit_Hint3;  
with Xlbit_Library2;  
with Xlbit_Library3;  
with Xlbit_Unused;  
with Xlbp_Proc_Var;  
with Xlbp_U_Char_Converters;  
with Xlbp_U_Char_Generics;  
with Xlbt_Proc_Var;  
with Xlbt_Univ_Ptr;  
with Xlbp_Atom;  
with Xlbp_Bitmap;  
with Xlbp_Color;  
with Xlbp_Context_Manager;  
with Xlbp_Cursor;  
with Xlbp_Cut_Buffer;  
with Xlbp_Display;  
with Xlbp_Error;  
with Xlbp_Event;  
with Xlbp_Extension;  
with Xlbp_Font;  
with Xlbp_Font_Names;  
with Xlbp_Gc;  
with Xlbp_Geometry;  
with Xlbp_Grab;  
with Xlbp_Graphics;  
with Xlbp_Hint;  
with Xlbp_Host;  
with Xlbp_Image;  
with Xlbp_Input_Focus;  
with Xlbp_Key;  
with Xlbp_Keyboard_Control;  
with Xlbp_Keyboard_Encoding;  
with Xlbp_Pixmap;  
with Xlbp_Pointer_Control;  
with Xlbp_Pointer_Motion;  
with Xlbp_Region;  
with Xlbp_Rm;  
with Xlbp_Rm_Name;  
with Xlbp_Rm_Quark;  
with Xlbp_Screen_Saver;  
with Xlbp_Selection;  
with Xlbp_Sync;  
with Xlbp_Text16;  
with Xlbp_Text;  
with Xlbp_Visual;  
with Xlbp_Window;  
with Xlbp_Window_Information;  
with Xlbp_Window_Property;  
with Xlbt_Arithmetic;  
with Xlbt_Atom_Defs;  
with Xlbt_Basic;  
with Xlbt_Basic2;  
with Xlbt_Basic3;  
with Xlbt_Bitmap;  
with Xlbt_Color;  
with Xlbt_Context_Manager;  
with Xlbt_Context_Manager2;  
with Xlbt_Context_Manager3;  
with Xlbt_Cursor_Font;  
with Xlbt_Cut_Buffer;  
with Xlbt_Display2;  
with Xlbt_Display3;  
with Xlbt_Error;  
with Xlbt_Error3;  
with Xlbt_Event;  
with Xlbt_Event2;  
with Xlbt_Event3;  
with Xlbt_Exceptions;  
with Xlbt_Extension;  
with Xlbt_Extension2;  
with Xlbt_Extension3;  
with Xlbt_Extension4;  
with Xlbt_Font;  
with Xlbt_Font2;  
with Xlbt_Font3;  
with Xlbt_Gc;  
with Xlbt_Gc2;  
with Xlbt_Gc3;  
with Xlbt_Geometry;  
with Xlbt_Grab;  
with Xlbt_Graphics;  
with Xlbt_Graphics3;  
with Xlbt_Hint;  
with Xlbt_Hint3;  
with Xlbt_Host;  
with Xlbt_Host3;  
with Xlbt_Image;  
with Xlbt_Image2;  
with Xlbt_Image3;  
with Xlbt_Input_Focus;  
with Xlbt_Key;  
with Xlbt_Key2;  
with Xlbt_Key3;  
with Xlbt_Keyboard;  
with Xlbt_Keyboard3;  
with Xlbt_Key_Defs;  
with Xlbt_Key_Defs_Apl;  
with Xlbt_Key_Defs_Arabic;  
with Xlbt_Key_Defs_Cyrillic;  
with Xlbt_Key_Defs_Greek;  
with Xlbt_Key_Defs_Hebrew;  
with Xlbt_Key_Defs_Katakana;  
with Xlbt_Key_Defs_Latin1;  
with Xlbt_Key_Defs_Latin2;  
with Xlbt_Key_Defs_Latin3;  
with Xlbt_Key_Defs_Latin4;  
with Xlbt_Key_Defs_Misc;  
with Xlbt_Key_Defs_Publishing;  
with Xlbt_Key_Defs_Special;  
with Xlbt_Key_Defs_Technical;  
with Xlbt_Misc;  
with Xlbt_Pointer;  
with Xlbt_Region;  
with Xlbt_Region2;  
with Xlbt_Region3;  
with Xlbt_Reply;  
with Xlbt_Reply3;  
with Xlbt_Request;  
with Xlbt_Request3;  
with Xlbt_Rm;  
with Xlbt_Rm2;  
with Xlbt_Rm3;  
with Xlbt_Screen_Saver;  
with Xlbt_String7;  
with Xlbt_String16;  
with Xlbt_String;  
with Xlbt_Text;  
with Xlbt_Text3;  
with Xlbt_Visual;  
with Xlbt_Visual2;  
with Xlbt_Visual3;  
with Xlbt_Window;  
with Xlbt_Window3;  
with Xlbt_Window4;

with Text_Io;

procedure Fake_Main is  
begin

    Text_Io.Put_Line ("Fake_Main has elaborated.");

end Fake_Main;
--/ if Cdf_Hpux then
--// pragma Main;
--/ end if;

E3 Meta Data

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=26 rec1=00 rec2=01 rec3=024
        [0x01] rec0=2b rec1=00 rec2=02 rec3=012
        [0x02] rec0=2c rec1=00 rec2=03 rec3=00a
        [0x03] rec0=2b rec1=00 rec2=04 rec3=02a
        [0x04] rec0=06 rec1=00 rec2=05 rec3=000
    tail 0x2150095a8819781049ef0 0x42a00088462063203