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

⟦9b83db670⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Main2, seg_048ad4

Derivation

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

E3 Source Code



with Text_Io, Pnjs, Parse, Error, Actions, Objets, Directions, String_Table,
     Motor, Bounded_String, Int_Lib, Token_Pkg, Struct_Component;

use Token_Pkg;

procedure Main2 is
    Ok : Boolean := True;
    Astring : String_Table.I_String;
begin
    Text_Io.Put_Line
       (" ************************************************************************************************");
    Text_Io.Put_Line
       (" *                                                                                              *");
    Text_Io.Put_Line
       (" *                                   W E L C O M E   T O                                        *");
    Text_Io.Put_Line
       (" *                                                                                              *");
    Text_Io.Put_Line
       (" *                    A D V E N T U R E   I N T E R P R E T O R   V.0.1                         *");
    Text_Io.Put_Line
       (" *                                                                                              *");
    Text_Io.Put_Line
       (" ************************************************************************************************");
    Text_Io.New_Line;
    Text_Io.Put ("Please wait - Parsing your world ...");
    Parse.Start (Ok);
    if not Ok then
        Text_Io.New_Line;
        Error.Image;
    else
        Text_Io.Put_Line (" Ok !");
        Text_Io.New_Line;
        --Text_Io.Put_Line
        --   ("**************************** Execution des instructions de PRESENTATION");
        Motor.Execute_Liste (Motor.Liste_Presentation, Motor.Mode_All, Ok);  
        loop  
            Int_Lib.Interpretor (Actions.Table, Objets.Table, Directions.Table,
                                 Int_Lib.Interpretor_Result);
            if Int_Lib.Interpretor_Result (2).Token = T_Objet then  
                Bounded_String.Copy
                   (Astring, String_Table.Int_List.Firstvalue
                                (Objets.Table
                                    (Int_Lib.Interpretor_Result (2).Index)));
                Struct_Component.Is_Inside
                   (Bounded_String.Image (Astring),
                    Objets.Liste, Objets.Objet_Courant, Ok);
            end if;
            Motor.Go;
        end loop;
    end if;

end Main2;

E3 Meta Data

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=16 rec1=00 rec2=01 rec3=064
        [0x01] rec0=15 rec1=00 rec2=03 rec3=034
        [0x02] rec0=0c rec1=00 rec2=02 rec3=000
        [0x03] rec0=04 rec1=be rec2=84 rec3=042
    tail 0x2174cfcac865a67c23c5c 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 00 04 80 01 20 01 84 38 b7 98 05 42 80 00  ┆         8   B  ┆