blob: 0d09ad54fc41949f4d06cac0dd385a50dfd67ba5 (
plain)
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
26
27
|
CONSTANT Offset = 2
FUNCTION Add(a : INTEGER, b : INTEGER) RETURNS INTEGER
RETURN a + b
ENDFUNCTION
PROCEDURE Increment()
Counter <- Counter + Offset
ENDPROCEDURE
PROCEDURE Shadow()
DECLARE Counter : INTEGER
Counter <- 40
OUTPUT Counter
ENDPROCEDURE
FUNCTION ReadCounter RETURNS INTEGER
RETURN Counter
ENDFUNCTION
GLOBAL
DECLARE Counter : INTEGER
Counter <- 3
DECLARE Label : STRING
Label <- "shared"
DECLARE Enabled : BOOLEAN
Enabled <- TRUE
DECLARE Initial : CHAR
Initial <- 'Q'
DECLARE Ratio : REAL
Ratio <- -1.5
ENDGLOBAL
|
