DECLARE SUB s1 (a!()) DECLARE SUB s2 (x!) OPTION BASE 1 DIM a(10) CLS FOR i = 1 TO 10: a(i) = i: NEXT CALL s1(a()) 'Per un singolo elemento ... a(1) = 25 CALL s2((a(1))) 'togliere una parentesi per avere 0 PRINT "3", a(1) '25 'Matrici non dimensionate z(2, 2) = 5 PRINT "4", z(2, 2) CALL s2(z(5, 5)) END SUB s1 (a()) FOR i = 1 TO 10 PRINT a(i) NEXT END SUB SUB s2 (x) STATIC PRINT "1", x x = 0 PRINT "2", x END SUB