|
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: 7772 (0x1e5c)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦b25eb82b2⟧
└─⟦this⟧
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
}
Un_Lecteur_CD SAIT FAIRE { connexion BINAIRE
secteur BINAIRE
volume DISCRET
lecture BINAIRE
morceau DISCRET
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_1 EST Un_Projecteur_de_Diapos EN 21
Le_Projecteur_de_Diapos_2 EST Un_Projecteur_de_Diapos EN 20
Le_Lecteur_de_CD EST Un_Lecteur_CD EN 52
SPECTACLE
jouer_musique EST
{
Pour Le_Lecteur_de_CD fixer morceau a 6
Pour Le_Lecteur_de_CD activer lecture
attendre 37.5s
Pour Le_Lecteur_de_CD fixer morceau a 2
attendre 1m2.5s
Pour Le_Lecteur_de_CD fixer morceau a 7
attendre 40s
Pour Le_Lecteur_de_CD fixer morceau a 13
attendre 58s
Pour Le_Lecteur_de_CD fixer morceau a 5
attendre 12s
Pour Le_Lecteur_de_CD fixer morceau a 17
attendre 1m12s
Pour Le_Lecteur_de_CD fixer morceau a 11
attendre 32s
Pour Le_Lecteur_de_CD fixer morceau a 15
}
Jouer_P_Bleu EST
{ I:=100
pour Le_Projecteur_Bleu desactiver mode
pour Le_Projecteur_Bleu fixer int1 a 0
attendre 12.3s
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.5s
TANT QUE I>1 FAIRE
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.1s
I:=I-5
FIN TANT QUE
pour Le_Projecteur_Bleu fixer int1 a 0
I:=100
attendre 1.7s
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.5s
TANT QUE I>1 FAIRE
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.1s
I:=I-5
FIN TANT QUE
pour Le_Projecteur_Bleu fixer int1 a 0
attendre 0.2s
I:=0
TANT QUE I<100 FAIRE
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.1s
I:=I+7
FIN TANT QUE
pour Le_Projecteur_Bleu fixer int1 a 100
attendre 0.1s
pour Le_Projecteur_Bleu fixer int1 a 0
attendre 0.5s
I:=100
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.5s
TANT QUE I>1 FAIRE
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.1s
I:=I-5
FIN TANT QUE
pour Le_Projecteur_Bleu fixer int1 a 0
I:=100
attendre 1.7s
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.5s
TANT QUE I>1 FAIRE
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.1s
I:=I-5
FIN TANT QUE
pour Le_Projecteur_Bleu fixer int1 a 0
attendre 0.2s
I:=0
TANT QUE I<100 FAIRE
pour Le_Projecteur_Bleu fixer int1 a I
attendre 0.1s
I:=I+7
FIN TANT QUE
pour Le_Projecteur_Bleu fixer int1 a 100
attendre 0.1s
pour Le_Projecteur_Bleu fixer int1 a 0
}
Jouer_P_Blanc EST
{ I:=70
pour Le_Projecteur_Blanc desactiver mode
pour Le_Projecteur_Blanc fixer int1 a 0
attendre 14.3s
pour Le_Projecteur_Blanc fixer int1 a I
attendre 0.5s
TANT QUE I>1 FAIRE
pour Le_Projecteur_Blanc fixer int1 a I
attendre 0.1s
I:=I-3
FIN TANT QUE
pour Le_Projecteur_Blanc fixer int1 a 0
attendre 3.0s
I:=0
TANT QUE I<100 FAIRE
pour Le_Projecteur_Blanc fixer int1 a I
attendre 0.1s
I:=I+5
FIN TANT QUE
pour Le_Projecteur_Blanc fixer int1 a 70
attendre 0.1s
pour Le_Projecteur_Blanc fixer int1 a 0
attendre 2s
I:=70
pour Le_Projecteur_Blanc fixer int1 a I
attendre 0.5s
TANT QUE I>1 FAIRE
pour Le_Projecteur_Blanc fixer int1 a I
attendre 0.1s
I:=I-3
FIN TANT QUE
attendre 2.2s
I:=0
TANT QUE I<70 FAIRE
pour Le_Projecteur_Blanc fixer int1 a I
attendre 0.1s
I:=I+5
FIN TANT QUE
pour Le_Projecteur_Blanc fixer int1 a 70
attendre 0.1s
pour Le_Projecteur_Blanc fixer int1 a 0
}
jouer_diapos EST
{
pour Le_Projecteur_de_Diapos_1 activer secteur
pour Le_Projecteur_de_Diapos_1 fixer intensite a 0
pour Le_Projecteur_de_Diapos_1 activer lampe
pour Le_Projecteur_de_Diapos_2 activer secteur
pour Le_Projecteur_de_Diapos_2 fixer intensite a 0
pour Le_Projecteur_de_Diapos_2 activer lampe
attendre 30s
pour Le_Projecteur_de_Diapos_1 fixer intensite a 100
pour Le_Projecteur_de_Diapos_1 activer avance
pour Le_Projecteur_de_Diapos_2 activer avance
}
sequence_diapos EST
{
nb_diapos_max:=34
nb_diapos:=0
tant que nb_diapos < nb_diapos_max faire
pour Le_Projecteur_de_Diapos_1 fixer intensite a 0
pour Le_Projecteur_de_Diapos_1 activer avance
pour Le_Projecteur_de_Diapos_2 fixer intensite a 100
attendre 4s
pour Le_Projecteur_de_Diapos_2 fixer intensite a 0
pour Le_Projecteur_de_Diapos_2 activer avance
pour Le_Projecteur_de_Diapos_1 fixer intensite a 100
attendre 4s
nb_diapos:=nb_diapos+1
fin tant que
pour Le_Projecteur_Blanc fixer int1 a 100
attendre 1m
pour Le_Projecteur_de_Diapos_1 fixer intensite a 0
nb_diapos:=0
tant que nb_diapos <= nb_diapos_max faire
pour Le_Projecteur_de_Diapos_2 activer recul
pour Le_Projecteur_de_Diapos_1 activer recul
attendre 1s
nb_diapos:=nb_diapos+1
fin tant que
pour Le_Projecteur_de_Diapos_2 desactiver secteur
pour Le_Projecteur_de_Diapos_1 desactiver secteur
attendre 2m35s
pour Le_Projecteur_Blanc fixer int1 a 0
Pour Le_Lecteur_de_CD desactiver lecture
}
clignoter EST
{pour Le_Projecteur_Bleu desactiver mode
pour Le_Projecteur_Blanc desactiver mode
count_max:=15
count:=0
TANT QUE count<count_max FAIRE
pour Le_Projecteur_Bleu fixer int1 a 100
pour Le_Projecteur_Blanc fixer int1 a 0
attendre 8s
pour Le_Projecteur_Bleu fixer int1 a 0
pour Le_Projecteur_Blanc fixer int1 a 100
attendre 8s
count:=count+1
FIN TANT QUE
pour Le_Projecteur_Blanc fixer int1 a 0
}
{
au temps 0 faire {executer jouer_P_Bleu}
au temps 0 faire {executer jouer_P_Blanc}
au temps 0 faire {executer jouer_musique}
au temps 0 faire {executer jouer_diapos}
au temps 47.5s faire {executer sequence_diapos}
au temps 50s faire {executer clignoter}