|
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: 1624 (0x658) 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« └─⟦7e976d45d⟧ └─⟦this⟧
pour polygone prendre { avec cotes:N longueur:L. pour angle prendre 360/N. Tortue baisseTaPlume. N fois: { Tortue avance:L. Tortue aGauche: angle. }. }. pour tube prendre { avec x:X y:Y taille:T profondeur:P. P<=0 SiFaux:{ Tortue tonX:X tonY:Y. polygone cotes:10 longueur:T. tube x:X-4 y:Y-3 taille:T-1 profondeur: P-1. }. }. pour etoile prendre { avec arete:longueur. Tortue aDroite:90. 8 fois: { Tortue aGauche:135. Tortue avance:longueur. Tortue aDroite:90. Tortue avance:longueur. }. }. pour ett prendre { avec x:X y:Y Angle:a profondeur:P. P<=0 SiFaux:{ Tortue tonX:X tonY:Y. etoile arete:a. ett x:X-4 y:Y-3 Angle:a-1 profondeur: P-1. }. }. tube x:500 y:400 taille:40 profondeur:60. ett x:100 y:500 Angle:30 profondeur:60. stylo tonx:20 tony:30. stylo ecris:"mon tube". pour fleche prendre { avec Longueur:L angle:A. Tortue baissetaplume. tortue tonangle:A. tortue avance:L. tortue tonepaisseur:2. Tortue adroite:60. Tortue recule:20. Tortue levetaplume. tortue avance:20. tortue baissetaplume. tortue agauche:120. Tortue recule:20. Tortue Tonepaisseur:1. }. tortue levetaplume. tortue tonx:10 tony:600. fleche Longueur:600 angle:0. Tortue tonx:10 tony:600. fleche Longueur:600 angle:270. Tortue tonx:10 tony:600. fleche Longueur:650 angle:315. stylo tonx:5 tony:700. stylo ecris:(tortue entexte). Tortue levetaplume. Tortue vaenX:300 y:100