|
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: 1600 (0x640)
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«
└─⟦51bb259ac⟧
└─⟦this⟧
aide need
lien normal : ouvert, ferme
verbes aller ouvrir fermer
mots nord , sud, porte ,plus ,moins
structure lieu : place
attributs
vie en entier = 4
cree place : salle1 , salle2
lie salle1 nord a salle2 sud par porte ouvert
groupe direction : nord, sud
introduction
change lieu en salle1
scenario
efface
quand ordre vaut
-plus :
global
change vie de salle1 en vie de salle1 + 1
affiche "plus"
-moins :
global
change vie de salle1 en vie de salle1 - 1
affiche"moins"
- aller direction :
global
si direction de lieu existe
alors
si direction de lieu = ouvert alors
va vers direction
sinon
affiche "La porte de " & nom de lieu & " est fermee.."
fin si
sinon
affiche "Il n'y a pas de sortie dans cette direction"
fin si
- fermer direction :
global change direction de lieu en ferme
affiche "ok"
- ouvrir direction :
global change direction de lieu en ouvert
affiche "ok"
fin quand
ligne suivante
affiche vie de salle1
ligne suivante
change vie de salle1 en ouvert
si vie de salle1 > 0 alors
affiche "salle1 ouverte :::"
sinon
affiche "salle1 fermee::: "
fin si
ligne suivante
affiche nom de lieu & " " & nord de salle1 & " " & sud de salle2
ligne suivante
SI 3 actions passees alors
affiche "mod 3"
sinon
affiche "pas mod 3"
fin si