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

⟦f623e122d⟧ TextFile

    Length: 2422 (0x976)
    Types: TextFile
    Names: »SOURCE_CODE«

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


}