DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T

⟦aee3ea137⟧ TextFile

    Length: 919 (0x397)
    Types: TextFile
    Names: »TINYTEST«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

#spirale.
#tube.
#europe.
#puissance.
#factorielle.
spirale pas:150 angle:91.
Stylo TonX:130 TonY:270.
Stylo Ecris: "Spirale".
tube x:400 y:230 taille:20 profondeur:20.
Stylo TonX:450 TonY:270.
Stylo Ecris: "Tube".
Europe X:140 Y:350.
Stylo TonX:135 TonY:555.
Stylo Ecris: "Europe".
Stylo TonX:400 TonY:380.
1 a:8 repeter:{
    avec i.
    Stylo TonX:400 TonY:Stylo TonY+15.
    Stylo ecris:"eleve 2 a la puissance"&(i Image)&" = "&(eleve laValeur:2 aLaPuissance:i) Image .
}.
Stylo TonX:400 TonY:550.
Stylo ecris:"factorielle de 7 = "&(factorielle de: 7) Image.
Stylo TonX:400 TonY:600.
Stylo ecris:"Nous sommes le "&((Date TonJour)Image)&(Date TonMois)&((Date TonAnnee)Image).
Stylo TonX:400 TonY:615.
pour X prendre ((Date TonHeure)Image)&":"&((Date TesMinutes)Image)&":"&((Date TesSecondes)Image)&" ".
Stylo ecris:"Il est "&X.
Stylo TonX:120 TonY:750.
Stylo large.
Stylo Ecris:"Cliquer dans la fenetre pour sortir".