|
DEF FNtest(a%,mystring$) LOCAL new%, old%
PROCone(Mystring$) END DEF PROCone(a$) LOCAL I% PROCtwo(a$) ... ENDPROC DEF PROCtwo(b$) LOCAL I% ... ENDPROC
DEF PROCtwo : REM a$ is global. a$=MID$(a$,2) ... ENDPROC
A1%=1 B1%=12 C1%=5 PRINT FNmean(A1%,B1%,C1%) END DEF FNmean(a%,b%,c%) LOCAL sum, mean sum=a%+b%+c% mean=sum/3 =mean