blob: 7c048e863e852a105f646ba948a0ed2dcafeb556 (
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
28
|
TYPE Point
DECLARE X : INTEGER
DECLARE Name : STRING
ENDTYPE
TYPE PointPtr = ^Point
TYPE Season = (Spring, Summer, Autumn, Winter)
CLASS Box
PUBLIC Value : INTEGER
PRIVATE Hidden : INTEGER
ENDCLASS
DECLARE A : Point
DECLARE B : Point
DECLARE P : PointPtr
DECLARE S : Season
DECLARE First : Box
DECLARE Second : Box
A.X <- 7
A.Name <- "first"
B <- A
P <- ^A
P^.X <- 9
S <- Spring
S <- S + 2
First.Value <- 4
Second <- First
Second.Value <- 8
OUTPUT A.X, ":", B.X, ":", B.Name, ":", S = Autumn
OUTPUT First.Value, ":", Second.Value
|
