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

⟦69a12e0dd⟧ TextFile

    Length: 1048 (0x418)
    Types: TextFile
    Names: »LAMPE«

Derivation

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

TextFile

spectacle est
  materiel est
    categorie PROJO est
      connex   binaire
      mode     binaire
      int1     temporel
      trans1   discret
      maint1   discret
      int2     temporel
      trans2   discret
      maint2   discret
    fin categorie 
  fin materiel

  implantation est
     Pr1 est PROJO en #4
  fin implantation        
  
  experience est 
    effet initialisation (p) est
      modifier P.Int1 avec 100
      modifier P.int2 avec 10
      modifier P.Maint1 avec 3
      modifier P.Maint2 avec 3
      modifier P.Trans1 avec 0s3
      modifier P.Trans2 avec 0s3
    fin effet   

    effet eteinds (p) est
      modifier P.int1 avec 0
      modifier P.int2 avec 0 
      desactiver Pr1.mode
    fin effet
  

    scene clignote (p) est       
      faire initialisation (p)
      attendre t+2s
      activer p.mode
      attendre 59s10
      faire eteinds (p)
    fin scene
  fin experience

  debut
     activer pr1.connex
     t := 5s
     autemps t faire
       faire clignote (Pr1)
     fin autemps
  fin
fin spectacle