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

⟦9a57494bb⟧ TextFile

    Length: 1244 (0x4dc)
    Types: TextFile
    Names: »FICHE_LEX«

Derivation

└─⟦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   : cd12 station 30


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

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

spectacle est
  un
  deux
fin spectacle