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
28
29
30
31
32
33
34
35
36
37
38
39
40
|
GLOBAL
DECLARE Label : STRING
Label <- "global"
ENDGLOBAL
CONSTANT Greeting = "constant"
TYPE Item
DECLARE Text : STRING
ENDTYPE
FUNCTION ReadConstant() RETURNS STRING
CONSTANT Local = "local"
RETURN Local
ENDFUNCTION
FUNCTION Echo(Value : Item) RETURNS Item
RETURN Value
ENDFUNCTION
PROCEDURE Change(Values : ARRAY OF STRING)
Values[1] <- "changed"
OUTPUT Values[1], ":", Values[2]
ENDPROCEDURE
DECLARE A : Item
DECLARE B : Item
A.Text <- Greeting
B <- Echo(A)
B.Text <- "independent"
B <- B
OUTPUT A.Text, ":", B.Text, ":", Label, ":", ReadConstant()
DECLARE Values : ARRAY[1:2] OF STRING
Values[1] <- "one"
Values[2] <- "two"
CALL Change(Values)
OUTPUT Values
OUTPUT "A" < "B", ":", "B" > "A", ":", "A" <= "A", ":", "B" >= "A", ":", "a" <> "A"
OUTPUT LENGTH("a\0b"), ":", LENGTH(CHR(0))
DECLARE Selected : STRING
Selected <- "B"
CASE OF Selected
"A" : OUTPUT "wrong"
"B" : OUTPUT "matched"
ENDCASE
OUTPUT Selected
|
