|
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 - metrics - downloadIndex: T
Length: 573 (0x23d)
Types: TextFile
Names: »TEST_BOOLEAN«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
-- test boolean_class
--(3<4) Entexte.
--(4 AuCarre>4 AuCube) Non ENTEXTE.
--
-- pour test prendre {
-- avec n.
--
-- n<10 sifaux:{renvoyer 456} sivrai:{renvoyer 123}.
-- }.
--
-- test valeur:15.
--
stylo vaenx:200 y:200.
stylo ecrire:((3<3) | (1<2)) Entexte.
-- stylo vaenx:100.
-- stylo petiteplume.
-- stylo ecrire:tortue etatplume.
--
-- stylo vaenx:100 y:300.
-- stylo largeplume.
-- stylo ecrire: stylo taplume.
-- 1 a: 10 repeter:{
-- avec i.
--
-- pour stylo_deux prendre tortue copietoi.
-- stylo ecrire: u entexte.
-- }