|
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: 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⟧
! 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.