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 ┃

⟦9ae4f5144⟧ TextFile

    Length: 659 (0x293)
    Types: TextFile
    Names: »TOTO«

Derivation

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

TextFile



pour X prendre tortue clone.
X baissetaplume.
pour triangle prendre { avec x:a y:b base:base stylo:styl.
  styl tonX:a Y:b.
  styl vaEnX:styl Tonx + base .
  styl vaEnX:styl Tonx - base Y:styl tony - base.
  styl vaEnX:a Y:b .
  }.

pour carre prendre { avec x:a y:b largeur:largeur stylo:styl.
  styl tonX:a Y:b.
  styl vaEnX:styl Tonx + largeur .
  styl vaEnY:styl Tony + largeur .
  styl vaEnX:styl Tonx - largeur .
  styl vaEnX:a Y:b .
  }.
pour waterman prendre X clone . 


carre x:400 y:400 largeur:100 stylo:X.     
triangle  x:300 y:300 base:100 stylo:waterman.