DataMuseum.dk

top - metrics - download

    Length: 2122 (0x84a)
    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« 
        └─⟦396ce1da1⟧ 
            └─⟦this⟧ 

TextFile

! exemple simple de scenario
! no 1

! le point d'exclamation "!" debute une ligne de commentaire

   

!declaration des verbes et des complements
  VERBES SONT
      prendre    lire  abandonner  .
!11   
  COMPLEMENTS SONT
      message   traducteur    jeu  vase 
      poubelle table chaise .
      
    

!declaration des familles
  FAMILLES SONT
      identification AVEC nom(CHAINE) ET Prenom(CHAINE) .
      personne       AVEC HERITAGE DE identite(identification)  ET Nbr_vie(ENTIER).
      e              avec ensemble de attributs 
                     et nom(entier).  
    ! e avec entier.
    !  e avec nom(entier).

  VARIABLES SONT
      identite_joueur  COMME identification ("Minet" "gros").
      super_heros      COMME personne (("moi" "toi")    3 ).
      nbr_de_commandes COMME entier(34) .       
      the_ensemble     comme e(['jeu'  'jeu' ] 45 ).
     ! the_ensemble comme e.
!27   
!definition des initialisations simples
  initialisations sont
     ecrire "debut".
      nbr_vie de super_heros DEVIENT 7.
      ecrire "j'ajoute dans l'ensemble".
      ajouter 'taBle' a attributs de the_ensemble.                                                           
      ecrire "ajout fini".

!definition de la vie 

  VIE EST
  ecrire attributs de the_ensemble.                    
  retirer 'jeu' a  attributs de the_ensemble.
  ecrire " l'ensemble vide est" attributs de the_ensemble.

  nbr_vie de super_heros DEVIENT 9.

  si  non((nbr_vie  de super_heros *2<> 14) ou  non('table' dans attributs de the_ensemble)) alors
       
        ECRIRE " Bravo vous avez gagne le droit de rejouer".  
        ecrire nbr_vie  de super_heros.

  sinon        
               ECRIRE " _._  _..  _.... _ _..___ __..__ ".
               ECRIRE " il s'agit d'un message en morse !".
               ECRIRE " ce serait bien si vous le dechiffreriez". 
               si 56=56 alors ecrire  nbr_de_commandes " " nbr_vie  de super_heros.
               fsi.
  fsi.
       
  si ('message' dans attributs de the_ensemble) alors
    ecrire "j'ai le message".
    
 sinon
    ecrire "je ne sais pas lire".
 fsi.