'
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 
 dim string main_a, Main_b, Main_out_str(20)
 dim integer main_idx, main_f_nbr, main_c
 
 print "---- on MAIN 1 -----"
 list variables
 
 call "sub_1", main_a, main_out_str(), main_f_nbr
 
 print "---- on MAIN 2 -----"
 list variables

end
 
sub sub_1 (formal_in_str as string, formal_out_str() as string, formal_fld_nbr as integer)

 static integer sub_static_1, sub_static_2
 local integer sub_local
 print "---- in SUB --------"
 list variables
end sub

COLOUR(RED)

Option explicit
Do
Test
Loop

Sub Test
 Static int L
 'Static L As integer             <-- that would work
 L=1
 Print L
End Sub

> run
[9] L=1
Error : L is not declared
>