engines/director/lingo/tests/global.lingo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

on initPattern
    global MaxPattern
    set MaxPattern = 65
	put "first: " & MaxPattern
	set a = 5
end initPattern

on increase
	global MaxPattern
	set MaxPattern = MaxPattern + 1
	put MaxPattern
	set a = 10
end increase

set a = 8
set MaxPattern = 3

initPattern

increase
increase

put MaxPattern

put a