|
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}