Techniques :
• Liste de variables. SUIV utilise VARS pour donner une liste des
variables et sous-répertoires du répertoire en cours .
• Détection d'erreur. Pour vérifier si un nom de la liste VARS est un
sous-répertoire, surv utilise le nom comme argument de RCL ; du
fait que les répertoires ne peuvent pas être rappelés dans la pile,
une erreur apparaît si le nom est celui d'un répertoire et ce nom est
ajouté à la liste des sous-répertoires.
Programme
' . } A
l':::;
v
:::;IZE
FOI':
.j
'..'
.j
GET
IFERR Rel DF.:OP
THn~
+
t·~E::<T
t1Et·~U
1
ENTER
1
~ SUIV
ISTOI
Commentaires
Commence le programme.
Place dans la pile une liste des noms de
toutes les variables et sous-répertoires.
Stocke la liste VARS dans une variable lo-
cale
v.
Commence le programme de définition.
Place la liste des noms de sous-répertoires
dans la pile (vide au début).
Place 1 et la taille de v dans la pile.
Pour chaque nom dans
v, fait:
Appel le nom.
Essaie de rappeler le contenu de la variable
; si réussi, élimine le contenu.
Si RCL provoque une erreur, le nom est ce-
lui d'un sous-répertoire, le programme
ajoute donc ce cnom à la liste des noms de
sous-répertoire.
Fin de la clause THEN et de la structure de
programme.
Répétition pour le nom suivant dans
v.
Crée un menu personnalisé des noms de
répertoire.
Termine le programme de définition.
Termine le programme.
Place le programme dans la pile.
Stocke le programme sous le nom SUry.
278
28 : Exemples de programme