|
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: 1783 (0x6f7) 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« └─⟦64996eba3⟧ └─⟦this⟧
-- This file was created by Tiny_Talk Unparse -- Copyright G.BRENET / S.FLON POUR Axes PRENDRE { AVEC Origine_X:X Origine_Y:Y Pas:P Nb_Pas_X:Nbx Nb_Pas_Y:Nby . POUR Premiere_Tortue PRENDRE Tortue Copietoi . POUR Seconde_Tortue PRENDRE Tortue Copietoi . Premiere_Tortue Vaenx:X Y:Y . Seconde_Tortue Vaenx:X Y:Y . Premiere_Tortue Tataille:2 . Seconde_Tortue Tataille:2 . Seconde_Tortue Tonangle:90 . POUR Nb PRENDRE ( Nbx > Nby ) Sivrai:{ RENVOYER Nbx } Sifaux:{ RENVOYER Nby } . 1 A:Nb * 2 Repeter:{ AVEC I . ( I / 2 * 2 = I ) Sivrai:{ ( I / 2 <= Nbx ) Sivrai:{ Premiere_Tortue Levetaplume . Premiere_Tortue Vaenx:Premiere_Tortue Tonx Y:Premiere_Tortue Tony . Premiere_Tortue Baissetaplume . Premiere_Tortue Avance:P . } . } Sifaux:{ ( I / 2 <= Nby ) Sivrai:{ Seconde_Tortue Levetaplume . Seconde_Tortue Vaenx:Seconde_Tortue Tonx Y:Seconde_Tortue Tony . Seconde_Tortue Baissetaplume . Seconde_Tortue Avance:P . } . } . } . Premiere_Tortue Tataille:1 . Seconde_Tortue Tataille:1 . } . POUR Spectre PRENDRE { AVEC Origine_X:X Origine_Y:Y Hauteur:H Pas:P Largeur:L . Tortue Tonangle:270 . 0 A:L Repeter:{ AVEC I . Tortue Levetaplume . POUR Random PRENDRE H Auhasard . Tortue Vaenx:X + ( I * P ) Y:Y - ( H / 2 ) - ( Random / 2 ) . Tortue Baissetaplume . Tortue Avance:Random . } . } . Axes Origine_X:10 Origine_Y:790 Pas:20 Nb_Pas_X:39 Nb_Pas_Y:39 . Spectre Origine_X:10 Origine_Y:790 Hauteur:790 Pas:2 Largeur:395