Time for an 2014 update…
This commit is contained in:
parent
372c577f83
commit
09687c4926
2520 changed files with 34227 additions and 7318 deletions
5
Task/Scope-modifiers/BASIC/scope-modifiers-1.basic
Normal file
5
Task/Scope-modifiers/BASIC/scope-modifiers-1.basic
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
10 X = 1
|
||||
20 DEF FN F(X) = X
|
||||
30 DEF FN G(N) = X
|
||||
40 PRINT FN F(2)
|
||||
50 PRINT FN G(3)
|
||||
33
Task/Scope-modifiers/BASIC/scope-modifiers-2.basic
Normal file
33
Task/Scope-modifiers/BASIC/scope-modifiers-2.basic
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
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
|
||||
7
Task/Scope-modifiers/Deja-Vu/scope-modifiers.djv
Normal file
7
Task/Scope-modifiers/Deja-Vu/scope-modifiers.djv
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
set :a "global"
|
||||
if true:
|
||||
!print a
|
||||
local :a "local"
|
||||
!print a
|
||||
!print getglobal :a
|
||||
!print a
|
||||
Loading…
Add table
Add a link
Reference in a new issue