Assurez-vous que le curseur d'édition est placé sur l'instruction de procédure, sélectionnez l'option [Procédures] dans le menu [Editeur] et activez l'option [Ouvrir/Fermer], ou appuyez sur [F9] comme raccourci. La définition de la procédure est alors soigneusement masquée, et en pratique, vous serez libre de vous concentrer sur votre programme principal sans être distrait par des blocs de procédures. En d'autres termes, vous pouvez obtenir une meilleure clarté dans vos listings en fermant les procédures à la vue. Le dernier exemple devrait maintenant ressembler à ceci :
X> MAIN TITLE Procedure MAIN_TITLE
Pour réafficher la procédure à tout moment, il suffit de replacer le curseur sur la ligne de la procédure et de révéler sa définition avec [F9] ou [Ouvrir/Fermer].
Les procédures fermées peuvent être exécutées normalement, et sauvegardées ou chargées avec un listing de programme AMOS Professional. Mais une procédure fermée ne peut pas être supprimée en utilisant le curseur du programme ; une suppression ne peut être effectuée que si la procédure est réouverte ou par le biais de l'option [Couper].
Pour ouvrir et fermer toutes les procédures du programme courant, les options [Tout Ouvrir] et [Tout Fermer] sont fournies. Vous pouvez également utiliser les raccourcis clavier [Amiga]+[Shift] +[0] et [Amiga]+[Shift]+[C], comme expliqué dans la liste complète des options de l'Editeur dans Chapitre 4.1.
Sauter dans une procédure et en sortir
Vous devriez être familier avec l'utilisation de ON pour sauter vers une routine GOSUB. Il est tout aussi
simple d'utiliser cette structure avec des procédures.
ON ... PROC
structure : déclencher un saut vers une procédure
On valeur de variable Proc NOM
Dans ce cas, si une variable contient une valeur particulière, un système est automatiquement déclenché qui force un saut vers une procédure nommée. Évidemment, vous pouvez avoir autant de valeurs provoquant autant de sauts vers différentes procédures que vous le souhaitez. Par exemple :
X> On X Proc PROCEDURE1,PROCEDURE2
Ce qui est exactement équivalent à :
X> If X=1 Then PROCEDURE1 X> If X=2 Then PROCEDURE2
Normalement, les procédures ne retournent au programme principal que lorsque l'instruction END PROC est atteinte. Mais supposons que vous deviez sortir d'une procédure immédiatement.
POP PROC
structure : quitter une procédure immédiatement
Pop Proc