DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦ea847f892⟧ TextFile

    Length: 2177 (0x881)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦af4e516d4⟧ 
            └─⟦this⟧

TextFile

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

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

THEATRE
    Le_Projecteur_Bleu EST Un_Projecteur_de_Lumiere EN 9
    Le_Projecteur_Blanc EST Un_Projecteur_de_Lumiere EN 4
    Le_Projecteur_de_Diapos EST Un_Projecteur_de_Diapos EN 21

SPECTACLE


 Demo_diapo EST
{
 pour Le_Projecteur_de_Diapos faire
 {
  activer secteur
  fixer intensite a 40
 }
 attendre 5s
 pour Le_Projecteur_de_Diapos activer lampe
 attendre 5s
 pour Le_Projecteur_de_Diapos fixer intensite a 90
 diapo := 0
 tant que diapo<7 faire
   pour Le_Projecteur_de_Diapos activer avance
   si diapo=3 alors
     Nb:=3
     tant que Nb>0 faire
       pour Le_Projecteur_de_Diapos desactiver lampe
       attendre 1s
       pour Le_Projecteur_de_Diapos activer lampe
       attendre 1s
       Nb:=Nb-1
     fin tant que
   sinon
     Nb:=1
     tant que Nb>0 faire
       pour Le_Projecteur_de_Diapos desactiver lampe
       attendre 1s
       pour Le_Projecteur_de_Diapos activer lampe
       attendre 1s
       Nb:=Nb-1
     fin tant que
   fin si
   attendre 5s
   diapo:=diapo+1
 fin tant que
}


{
 EXECUTER clignoter_longtemps avec (0.5s 99)
 EXECUTER Demo_diapo
 puis
 {
  pour Le_Projecteur_Blanc fixer int1 a 0
  pour Le_Projecteur_Bleu fixer int1 a 0
  pour Le_Projecteur_de_Diapos desactiver lampe
  attendre 1s
  pour Le_Projecteur_de_Diapos desactiver secteur
 }

}