|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T ┃
Length: 2580 (0xa14)
Types: TextFile
Names: »TESTPROJET«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
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
}