blob: d1b684bf67720d6eb9215c2edc32fbe409572d9e (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
TYPE Node
DECLARE Value : INTEGER
ENDTYPE
TYPE Link = ^Node
TYPE Season = (Spring, Summer)
TYPE Signed = C_TYPE("int")
CLASS Box
Value : INTEGER
PUBLIC Other : INTEGER
PRIVATE Hidden : INTEGER
ENDCLASS
CONSTANT Limit = 3
DECLARE Item : nODE
DECLARE Ptr : lINK
DECLARE Mode : sEASON
DECLARE Crate : bOX
DECLARE Items : ARRAY[1:2] OF INTEGER
DECLARE Index : INTEGER
item.value <- limit
pTR <- ^ITEM
ptr^.vALUE <- 7
mode <- sUMMER
crate.value <- 8
CRATE.other <- 9
CALL cHANGE(iTEMS)
FOR Index <- 1 TO 2
OUTPUT items[index]
NEXT iNDEX
OUTPUT rEADnODE(ITEM), ":", MODE = summer
OUTPUT crate.VALUE, ":", crate.OTHER
OUTPUT length("MiXeD"), ":", (sIGNED)3
IF TRUE THEN
CONSTANT lIMIT = 5
OUTPUT LIMIT
ENDIF
OUTPUT Limit
PROCEDURE Change(BYREF Values : ARRAY OF INTEGER)
vALUES[1] <- 4
VALUES[2] <- 6
ENDPROCEDURE
FUNCTION ReadNode(Value : NODE) RETURNS INTEGER
RETURN vALUE.Value
ENDFUNCTION
|
