|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T ┃
Length: 1848 (0x738)
Types: TextFile
Names: »TEST_A_REPETER«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
-- pour bidon prendre {
-- pour bidone prendre {
-- renvoyer vide
-- }.
-- renvoyer vide
-- }.
--
-- {1 a: 3 repeter:{
-- avec i.
-- bidon valeur.
-- pour i prendre i*2.
-- }.
-- } valeur.
-- pour Etoile prendre {
-- avec arete:longueur tortue:t.
--
-- tortue adroite:90.
-- 8 fois: {
-- t agauche:135.
-- t avance:longueur.
-- t adroite:90.
-- t avance:longueur.
-- }.
-- }.
--
-- pour tortue_deux prendre tortue copietoi.
--
-- tortue_deux vaenx:50 y:50.
--
-- 1 a: 3 repeter: {
-- avec i.
--
-- i=2 sivrai:{
-- stylo ecrire: "C'est la tortue qui dessine".
-- tortue vaenx:100+(150*i) y:100+(150*i).
-- tortue tataille:i.
-- stylo ecrire: tortue tataille entexte.
-- stylo vaenx: stylo tonx+20 y: stylo tony+20.
-- stylo ecrire:tortue tonx entexte ecrire:tortue tony entexte.
-- stylo ecrire:tortue tonangle entexte.
-- tortue baissetaplume.
-- etoile arete:15 tortue:tortue.
-- tortue levetaplume.
-- tortue_deux DetruitToi.
-- }
--
-- sifaux:{
-- stylo ecrire: "C'est la tortue_deux qui dessine".
-- tortue_deux vaenx:100+(150*i) y:100+(150*i).
-- tortue_deux tataille:i.
-- stylo ecrire: tortue_deux tataille entexte.
-- stylo vaenx: stylo tonx+20 y: stylo tony+20.
-- stylo ecrire:tortue_deux tonx entexte ecrire:tortue_deux tony entexte.
-- stylo ecrire:tortue_deux tonangle entexte.
-- tortue_deux baissetaplume.
-- etoile arete:15 tortue:tortue_deux.
-- tortue_deux levetaplume.
-- }.
--
-- }.