DataMuseum.dk

top - download

    Length: 1385 (0x569)
    Types: TextFile
    Names: »FICH_LEX«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦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

experience toto(titi,t,g) est
si t=4  alors
repeter 3 fois
 au temps  t
  repeter 4 fois
    activer titi.connexion
    faire
      attendre 5
      puis desactiver titi.connexion
    fin faire
  fin repeter
 puis
  si d>5 alors
    faire
      d = 3
      activer lampe.connexion
    fin faire
    attendre 2
    puis desactiver lampe.connexion
  fin si
fin repeter
fin si

fin experience

experience flash( un_spot) est
   activer titi.connexion
   un_spot.mode
   un_spot.int1=4.0
   un_spot.int1=10 en  8.0
   attendre 10h555m3.0
   f= j*5+4
   r= [titi,toto,x]
   desactiver titi.connexion
   titi (x,y*2,z)
fin experience


experience chenillard  est
 faire
   b=j+5
   puis a = 10
 fin faire
fin experience

scene un est
si titi=5 alors
 toto fin si
fin scene

scene deux est

fin scene

spectacle
   un
   deux
   au temps 5.5 un
   puis attendre 5.8 deux
   puis un
   attendre 1m2.8 deux
   trois
fin spectacle