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