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
Index: T

⟦c9f385ae1⟧ TextFile

    Length: 823 (0x337)
    Types: TextFile
    Names: »TRY1«

Derivation

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

TextFile

pour spirale prendre {
    avec fenetre:ecran pas:N angle:theta.
    pour MaTortue prendre tortue dupliqueToi.
    MaTortue TaFenetre:ecran.
    MaTortue LeveTaPlume.  
    MaTortue VaEnX:250 Y:250.
    MaTortue BaisseTaPlume.
    1 a:N repeter: {
        avec L.
        MaTortue Avance:L.
        MaTortue AGauche:theta
    }
}.

spirale fenetre:Fenetre pas:200 angle:88.

pour UneAutre prendre Fenetre DupliqueToi.
UneAutre TonNom:"salut" TonX:610.
UneAutre AfficheToi.

spirale fenetre:UneAutre pas:200 angle:89.

pour UneAutre prendre Fenetre DupliqueToi.
UneAutre TonNom:"salut" TonX:610 TonY:450.
UneAutre AfficheToi.

spirale fenetre:UneAutre pas:200 angle:139.

pour UneAutre prendre Fenetre DupliqueToi.
UneAutre TonNom:"salut" TonX:200 TonY:500.
UneAutre AfficheToi.

spirale fenetre:UneAutre pas:200 angle:160.