|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2421 (0x975)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦b9f3027f1⟧
└─⟦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
}