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

⟦6bc9bbf99⟧ TextFile

    Length: 1298 (0x512)
    Types: TextFile
    Names: »FICH_LEX«

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

materiel est
cd avec connexion:binaire
          secteur:binaire
          volume:discret
          lecture:discret
          aller: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

spot rouge station 10
spot vert station 20
cd cd1 station 30

grp1=[vert,rouge,cd1]

experience flash( un_spot) est
    un_spot.int1=100
    un_spot.mode=activer
    attendre 10h555m3.0            
    au temps 5h3.2
    un_spot.int1=0
fin experience flash

scene un est             
    t57= 10.5;
  rouge.connexion=activer
  vert.secteur=activer      { ------- commentaires --------- }
  rouge.avance      
  puis flash(rouge)            
  t=12 * 5 +34 -1/2  
  si t>= 10 alors t= 0
fin scene un
                         
scene deux est
  au temps t vert.int=100
             puis
                repeter 5 fois
                   flash(vert)
                fin repeter
             puis faire
                    vert.int=20
                    rouge.connexion=desactiver
             fin faire
   t= 10
fin scene deux

spectacle est
  un
  deux
fin spectacle