DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦b5620e9c7⟧ TextFile

    Length: 737 (0x2e1)
    Types: TextFile
    Names: »B«

Derivation

└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
    └─⟦0c20f784e⟧ »DATA« 
        └─⟦1abbe589f⟧ 
            └─⟦ada0be243⟧ 
                └─⟦this⟧

TextFile

with Xev_Main;

with Xlbt_Arithmetic;  
use Xlbt_Arithmetic;  
with Xlbt_String;  
use Xlbt_String;  
with Xlbt_Window;  
use Xlbt_Window;

procedure Xev (Display       : String  := "";  
               Geometry      : String  := "";  
               Backing_Store : String  := "Not_Useful";  
               Save_Under    : Boolean := False;  
               Border_Width  : Natural := 2;  
               Sync          : Boolean := False) is  
begin

    Xev_Main.Main (To_X_String (Display),  
                   To_X_String (Geometry),  
                   X_Backing_Store_Hint'Value (Backing_Store),  
                   Save_Under,  
                   U_Short (Border_Width),  
                   Sync);

end Xev;  
pragma Main;