Procedures

PARAM
fonction : renvoyer un paramètre depuis une procédure
Param
Param#
Param$

La fonction PARAM prend le résultat d'une expression dans une instruction END PROC, et le renvoie à la variable PARAM. Si la variable concernée est une chaîne de caractères, le caractère $ est utilisé. Notez aussi comment les paires de crochets sont utilisées dans les deux exemples suivants :

E> JOIN_STRINGS["one","two","three"]
   Print Param$
   Procedure JOIN_STRINGS[A$,B$,C$]
    Print A$,B$,C$
   End Proc[A$+B$+C$]

Pour les variables numériques réelles, le caractère # doit être utilisé comme dans l'exemple suivant :

E> JOIN_NUMBERS[1.5,2.25]
   Print Param#
   Procedure JOIN_NUMBERS[A#,B#]
    Print A#,B#
   End Proc[A#+B#]

Instructions de données locales
Toute instruction DATA définie dans vos procédures est stockée complètement séparément de celles du programme principal. Cela signifie que chaque procédure peut avoir ses propres zones de données. Terminons ce chapitre par un exemple modeste qui appelle la même procédure avec des paramètres différents, puis configure des données supplémentaires dans des variables.

E> Curs Off : Paper 0
   RECORD["Francois","Lionet",29,"Genius"]
   RECORD["Mel","Croucher",44,"Unemployed"]
   A$="Richard" : B$="Vanner" : AGE=25 : OCC$="Slave Driver"
   RECORD[A$,B$,AGE,OCC$]
   Procedure RECORD[NAME$,SURNAME$,AGE,OCC$]
    Cls 0: Locate 0,3
    A$=NAME$+" "+SURNAME$
    Centre A$: Locate 0,6
    A$="Age: "+Str$(AGE)
    Centre A$: Locate 0,9
    A$="Occupation: "+OCC$
    Centre A$: Locate 0,16
    Centre "Press a key" : Wait Key
   End Proc