|
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: 1880 (0x758)
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«
└─⟦e4210a96c⟧
└─⟦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:470.
Stylo TonX:5 TonY:20.
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 Image.
Stylo TonY:512.
Stylo Ecris: (t Image)&" s.".
Stylo TonX:20+(p*100) TonY:530.
Stylo Ecris: c.
}.
axes valeur.
fleche X:770 Y:500 Direction:"Est".
fleche X:20 Y:30 Direction:"Nord"