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 - download
Index: ┃ T V

⟦1166be555⟧ TextFile

    Length: 681 (0x2a9)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

package Lex is
    type Token is (A, Activer, Alors, Attendre, Au, Avec, Based, Binaire,
                   Comment, Desactiver, Discret, En, Eof, Eq, Est, Evoluer,
                   Executer, Faire, Fin, Fixer, Fugitif, Great, Geq, Hour, Id,
                   Int, Leq, Less, Let, Materiel, Neq, Pour, Puis, Qui, Que,
                   Sait, Selon, Si, Sinon, Spectacle, Tant, Temporel, Temps,
                   Theatre, Unk, Utilise, '{', '}', '+', '*', '-', '(', ')');

    function Get_Value return String;
    function Get_Token return Token;
    function At_End return Boolean;
    procedure Open (Thename : String);
    procedure Close;
    procedure Next;


end Lex;