DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
e0445949bf94c9233425839d2dfd602e22e70243
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
IMPORT
Out
;
4
5
TYPE
6
P1
=
POINTER
TO
R1
;
7
P2
=
POINTER
TO
R2
;
8
P3
=
POINTER
TO
R3
;
9
10
R1
=
RECORD END
;
11
R2
=
RECORD
(
R1
)
END
;
12
R3
=
RECORD
(
R2
)
END
;
13
14
VAR
15
r
:
P1
;
16
17
BEGIN
18
NEW
(
r
);
19
Out
.
Open
;
20
WITH
r
:
P1
DO
21
Out
.
String
(
"R1"
);
Out
.
Ln
;
22
END
;
23
END
Test
.