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: ┃ F T ┃

⟦5f652eb08⟧ TextFile

    Length: 931 (0x3a3)
    Types: TextFile
    Names: »FICHE1«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

materiel est
cd avec            
   connexion : binaire
   secteur : binaire
   volume : discret
   lecture : binaire
   aller_morceau : discret
   avance : fugitif
   recul : fugitif
fin cd   

spot avec
    connexion : binaire
    mode : binaire
    int1 : discret
    trans1 : discret
    maint1 : discret
    int2 : discret
    trans2 : discret
    maint2 : discret
fin spot


fin materiel

cd1  : cd   station 30 
rouge : spot station 10
vert : spot station 20
cd2 : cd station 40

experience toto (titi,t) est
si t=4.0  alors
    faire
        activer cd1.connexion
        desactiver cd1.recul
    fin faire
fin si
vert.int1 = 10 en 3.0
rouge.int1 = 100        
activer cd2.connexion
cd2.avance
fin experience 


scene deux est
i = 8                

toto
au temps 10.0 y = 45+y  
    activer cd1.connexion 
attendre 1.0
    desactiver cd1.connexion
    
fin scene

spectacle
   deux
   au temps 5.5 deux 
fin spectacle