|
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: 1847 (0x737)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦e4e738a54⟧
└─⟦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.
-- }.
--
-- }.