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

⟦0a6af8820⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Emmanuel, seg_00e2b0

Derivation

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

with Text_Io;
with Ftp;
with Xlbp_Hint;
use Xlbp_Hint;
procedure Emmanuel is
begin
    if True = True then
        for I in 1 .. 10 loop
            Text_Io.Put_Line ("bonjour");
        end loop;
    end if;
    for I in 1 .. 10 loop
        Text_Io.Put_Line ("bonjour !!!");
        Ftp.Put (From_Local_File    => "<IMAGE>",
                 To_Remote_File     => "",
                 Remote_Machine     => Ftp_Profile.Remote_Machine,
                 Username           => Ftp_Profile.Username,
                 Password           => Ftp_Profile.Password,
                 Account            => Ftp_Profile.Account,
                 Remote_Directory   => Ftp_Profile.Remote_Directory,
                 Remote_Type        => Ftp_Profile.Remote_Type,
                 Append_To_File     => False,
                 Transfer_Type      => Ftp_Profile.Transfer_Type,
                 Transfer_Mode      => Ftp_Profile.Transfer_Mode,
                 Transfer_Structure => Ftp_Profile.Transfer_Structure,
                 Send_Port          => Ftp_Profile.Send_Port_Enabled,
                 Response           => Profile.Get);

    end loop;
    X_Set_Wm_Properties (Display     => [X_DISPLAY-expression],
                         Window      => [X_WINDOW-expression],
                         Window_Name => [X_TEXT_PROPERTY-expression],
                         Icon_Name   => [X_TEXT_PROPERTY-expression],
                         Arg_V       => [X_STRING_POINTER_ARRAY-expression],
                         Normal      => [X_SIZE_HINTS-expression],
                         Wm          => [X_WM_HINTS-expression],
                         Class       => [X_CLASS_HINT-expression],
                         Status      => [X_STATUS-expression]);
end Emmanuel;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1a rec1=00 rec2=01 rec3=048
        [0x01] rec0=0f rec1=00 rec2=02 rec3=000
    tail 0x2170af50e821d75d84b4d 0x42a00088462063c03