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

⟦b95881db8⟧ TextFile

    Length: 2580 (0xa14)
    Types: TextFile
    Names: »TESTPROJET«

Derivation

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

TextFile

MATERIEL
    UnProjecteurdeLumiere SAIT FAIRE {  connexion BINAIRE
                                        mode BINAIRE
                                        int1 DISCRET
                                        transition1 DISCRET
                                        maintien1 DISCRET
                                        int2 DISCRET
                                        transition2 DISCRET
                                        maintien2 DISCRET
                                     } 

    UnProjecteurdeDiapos SAIT FAIRE  {  connexion BINAIRE
                                        intensite  DISCRET
                                        secteur BINAIRE 
                                        lampe BINAIRE
                                        avance FUGITIF
                                        recul FUGITIF
                                     }

THEATRE
    LampeDeBureau EST UnProjecteurdeLumiere EN 4 
    LeProjecteurdeDiapos EST UnProjecteurdeDiapos EN 21

SPECTACLE

clignoter qui utilise I1 M1 I2 M2 est {
        pour LampeDeBureau faire { fixer transition1 A 0
                                   fixer transition2 A 0
                                   fixer maintien1 A M1 
                                   fixer maintien2 A M2  
                                   fixer int2 A I2
                                   fixer int1 A I1
                                   activer mode 
                                 }              
        }            

{   
    executer clignoter avec (80 0.5s 10 0.5s) 
    attendre 3s
    pour LeProjecteurdeDiapos faire { activer secteur
                                      fixer intensite a 40
                                    
                                    }
    attendre 5s                     
    pour LeProjecteurdeDiapos activer lampe
    pour LeProjecteurdeDiapos fixer intensite a 90
    diapo := 0
    tant que diapo<7 faire 
       pour LeProjecteurdeDiapos activer avance
       attendre 5s 
       diapo:=diapo+1
    fin tant que    
    
    tant que diapo>0 faire
       pour LeProjecteurdeDiapos activer recul
       attendre 5s
       diapo:=diapo-1
    fin tant que
    
    AU TEMPS 1m10s FAIRE { pour LeProjecteurdeDiapos activer avance 
                        pour LeProjecteurdeDiapos activer recul }
                        
    

    pour LeProjecteurdeDiapos faire { desactiver lampe
                                      desactiver secteur}
    attendre 15s
    pour LampeDeBureau desactiver mode
    pour LampeDeBureau fixer int1 A 0
    
                  
}