|
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: 3265 (0xcc1)
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«
└─⟦e942c81eb⟧
└─⟦this⟧
pour fleche prendre { avec X:x Y:y Direction:d. [Est-Ouest-Nord-Sud]
Tortue TonX:x TonY:y.
Tortue baisseTaPlume.
Tortue moyen.
d="Est"SiVrai:{
Tortue tonAngle:210.
Tortue avance:10.
Tortue TonX:x TonY:y.
Tortue tonAngle:150.
Tortue avance:10.}.
d="Ouest"SiVrai:{
Tortue tonAngle:30.
Tortue avance:10.
Tortue TonX:x TonY:y.
Tortue tonAngle:330.
Tortue avance:10. }.
d="Nord" SiVrai:{
Tortue tonAngle:60.
Tortue avance:10.
Tortue TonX:x TonY:y.
Tortue tonAngle:120.
Tortue avance:10. }.
d="Sud"SiVrai:{
Tortue tonAngle:240.
Tortue avance:10.
Tortue TonX:x TonY:y.
Tortue tonAngle:300.
Tortue avance:10. }.
Tortue leveTaPlume.
Tortue petit. }.
pour axes prendre {
Tortue TonY:500 TonX:20.
Tortue baisseTaPlume.
Tortue avance:750.
Tortue leveTaPlume.
Tortue TonY:500 TonX:20.
Tortue aGauche:90.
Tortue baisseTaPlume.
Tortue avance:450.
Stylo TonX:5 TonY:40.
Stylo Ecris:"Messages".
Stylo TonX:730 TonY:515.
Stylo Ecris:"Secondes". }.
pour barre prendre {
avec position:p hauteur:h hauteurMax:hm temps:t classe:c.
pour p prendre p-1.
pour s prendre (450*h)/hm.
Tortue TonX:20+(p*100) TonY:500.
Tortue baisseTaPlume.
Tortue moyen.
Tortue TonAngle:270.
Tortue Avance:s.
Tortue TonAngle:0.
Tortue Avance:100.
Tortue TonAngle:90.
Tortue Avance:s.
Tortue leveTaPlume.
Tortue petit.
Stylo TonX:30+(p*100) TonY:500-s-10.
Stylo Ecris: h EnTexte.
Stylo TonY:512.
Stylo Ecris: (t EnTexte)&" s.".
Stylo TonX:20+(p*100) TonY:530.
Stylo Ecris: c. }.
axes valeur.
fleche X:770 Y:500 Direction:"Est".
fleche X:20 Y:50 Direction:"Nord".
barre position: 1 hauteur: 6 hauteurMax: 9 temps: 1 classe: "ENTIER".
barre position: 2 hauteur: 2 hauteurMax: 9 temps: 1 classe: "BOOLEEN".
barre position: 3 hauteur: 0 hauteurMax: 9 temps: 1 classe: "CHAINE".
barre position: 4 hauteur: 0 hauteurMax: 9 temps: 1 classe: "TORTUE".
barre position: 5 hauteur: 9 hauteurMax: 9 temps: 1 classe: "STYLO".
barre position: 6 hauteur: 4 hauteurMax: 9 temps: 1 classe: "BLOC".
pour duree prendre 1.
pour nbMessages prendre 21.
Stylo TonY:600 TonX:20.
pour txt prendre duree EnTexte.
Stylo Ecris: "Duree reelle d'execution: "&(txt)&" Secondes.".
Stylo TonY:630.
pour txt prendre nbMessages EnTexte.
Stylo Ecris: "Nombre total de messages:"&txt.
Stylo TonY: 660.
pour moyenne prendre (nbMessages/duree).
pour txt prendre moyenne EnTexte.
Stylo Ecris:"Moyenne messages/secondes:"&txt