|
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: 1667 (0x683)
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«
└─⟦05a47773b⟧
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦3c3376586⟧
└─⟦this⟧
-- This file was created by Tiny_Talk Unparse
-- Copyright G.BRENET / S.FLON
POUR Premiere_Tortue PRENDRE Tortue Copietoi .
POUR Seconde_Tortue PRENDRE Tortue Copietoi .
POUR Axes PRENDRE {
AVEC Origine_X:X Origine_Y:Y Pas:P Nb_Pas_X:Nbx Nb_Pas_Y:Nby .
Premiere_Tortue Vaenx:X Y:Y .
Seconde_Tortue Vaenx:X Y:Y .
Seconde_Tortue Tonangle:90 .
Stylo Vaenx:100 Y:100 .
POUR Nb PRENDRE ( Nbx > Nby ) Sivrai:{
RENVOYER Nbx } Sifaux:{
RENVOYER Nby } .
1 A:Nb * 2 Repeter:{
AVEC I .
( I / 2 * 2 = I ) Sivrai:{
( Nb <= Nbx ) Sivrai:{
Premiere_Tortue Levetaplume .
Premiere_Tortue Vaenx:Premiere_Tortue Tonx Y:Premiere_Tortue Tony .
Premiere_Tortue Baissetaplume .
Premiere_Tortue Avance:P .
} .
} Sifaux:{
( Nb <= Nby ) Sivrai:{
Seconde_Tortue Levetaplume .
Seconde_Tortue Vaenx:Seconde_Tortue Tonx Y:Seconde_Tortue Tony .
Seconde_Tortue Baissetaplume .
Seconde_Tortue Avance:P .
} .
} .
} .
} .
POUR Volute 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 200 Auhasard .
Tortue Vaenx:X + ( I * P ) Y:Y - ( H / 2 ) - ( Random / 2 ) .
Tortue Baissetaplume .
Tortue Avance:Random .
} .
} .
Axes Origine_X:10 Origine_Y:400 Pas:20 Nb_Pas_X:20 Nb_Pas_Y:20 .
Volute Origine_X:10 Origine_Y:400 Hauteur:200 Pas:2 Largeur:200