DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦f224918ec⟧ TextFile

    Length: 1293 (0x50d)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦38ac6b01c⟧ 
            └─⟦this⟧ 

TextFile

materiel est
cd avec connexion:binaire
          secteur:binaire
          volume:discret
          lecture:discret
          aller:discret
          avance:fugitif
          recul:fugitif
fin cd               

spot avec connexion:binaire
          mode:binaire
          int1:discret
          trans1:discret
          maint1:discret
          int2:discret
          trans2:discret
          maint2:discret
fin spot

fin materiel

spot rouge station 10
spot vert station 20
cd cd1 station 30

grp1=[vert,rouge,cd1]

experience flash( un_spot) est
    un_spot.int1=100
    un_spot.mode=activer
    attendre 10h555m3.0            
    au temps 5h3.2
    un_spot.int1=0
fin experience flash

scene un est 
    10m
    t57= 10.5;
  rouge.connexion=activer
  vert.secteur=activer      { ------- commentaires --------- }
  rouge.avance      
  puis flash(rouge)            
  t=12 * 5 +34 -1/2  
  si t>= 10 alors t= 0
fin scene un
                         
scene deux est
  au temps t vert.int=100
             puis
                repeter 5 fois
                   flash(vert)
                fin repeter
             puis faire
                    vert.int=20
                    rouge.connexion=desactiver
             fin faire
   t= 10
fin scene deux

spectacle EST
  UN
  deux
fin SPECtacle