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 - metrics - download

⟦a01db9e52⟧ TextFile

    Length: 350 (0x15e)
    Types: TextFile
    Names: »TINYTEST2«

Derivation

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

TextFile

pour ecrire prendre {avec x y.
    Stylo TonX:x TonY:y .
    2 fois: {
    Stylo Ecris: "Tiny talk...."[&(Stylo TonX EnTexte)].    
        Stylo TonY: Stylo TonY + 20.
    }.
}.               
ecrire valeur:100 valeur:100.
Stylo large.
pour MonStylo prendre Stylo Clone.
MonStylo TonY: (MonStylo TonY + 200) .
MonStylo Ecris: "mon stylo ecrit bien".