REM sole8
REM uso di funzione e LOCAL SHARED parametri multipli cfr.TBAS5
CLS
DEF FNY1 (X1, X2)
    FNY1 = X1 * X2
END DEF

DEF FNY2 (X1, X2)
    H = X1: K = X2
    FNY2 = H * K
END DEF

DEF FNY3 (G1, G2)
    H = G1: K = G2
    FNY3 = H * K
END DEF


H$ = "-------------------------------------------------------------"
A = 8: B = 6: C = 10: d = 20
K$ = "...."
PRINT "variabili globali a,b,c,d "; A; K$; B; K$; C; K$; d
PRINT FNY1(A, B), "prodotto a*b "
PRINT FNY2(C, d), "prodotto c*d"
PRINT "variabili dopo chiamata a,b,c,d "; A; K$; B; K$; C; K$; d
PRINT "variabili locali h,k ", H, K
PRINT H$
PRINT FNY3(A, C), "prodotto a,c "
PRINT "variabili globali dopo chiamata a,b,c,d "; A; K$; B; K$, C; K$; d
PRINT "variabile globale K ", K
PRINT "variabile locale H ", H
PRINT H$
END



variabili globali a,b,c,d  8 .... 6 .... 10 .... 20
 48           prodotto a*b
 200          prodotto c*d
variabili dopo chiamata a,b,c,d  8 .... 6 .... 10 .... 20
variabili locali h,k         10            20
-------------------------------------------------------------
 80           prodotto a,c
variabili globali dopo chiamata a,b,c,d  8 .... 6 ....   10 .... 20
variabile globale K          10
variabile locale H           8
-------------------------------------------------------------


inizio