34 lines
783 B
Plaintext
34 lines
783 B
Plaintext
var1$ = "Global1"
|
|
var2$ = "Global2"
|
|
|
|
PRINT "Before function call:"
|
|
PRINT "var1$ = """ var1$ """"
|
|
PRINT "var2$ = """ var2$ """"
|
|
|
|
PROCtestscope(var1$)
|
|
PROCtestscope(var1$)
|
|
|
|
PRINT "After function call:"
|
|
PRINT "var1$ = """ var1$ """"
|
|
PRINT "var2$ = """ var2$ """"
|
|
END
|
|
|
|
DEF PROCtestscope(var2$)
|
|
PRINT "On entry to function:"
|
|
PRINT "var1$ = """ var1$ """"
|
|
PRINT "var2$ = """ var2$ """"
|
|
|
|
LOCAL var1$
|
|
PRIVATE var2$
|
|
PRINT "After LOCAL/PRIVATE:"
|
|
PRINT "var1$ = """ var1$ """"
|
|
PRINT "var2$ = """ var2$ """"
|
|
|
|
var1$ = "Local"
|
|
var2$ = "Private"
|
|
PRINT "After assignments:"
|
|
PRINT "var1$ = """ var1$ """"
|
|
PRINT "var2$ = """ var2$ """"
|
|
|
|
ENDPROC
|