DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
e4eeec3fd93e1dc48ac82f3e67accc672fd2131c
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
TYPE
4
Rider
=
RECORD
i
:
INTEGER
END
;
5
6
PROCEDURE
X
;
7
VAR
8
r
:
Rider
;
9
BEGIN
10
r
.
i
:=
666
;
11
END
X
;
12
13
BEGIN
14
X
;
15
END
Test
.