DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
d232953a80d3259d11c1a1987e2bd14d3a4c415c
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
IMPORT
SYSTEM
,
Out
;
4
5
TYPE
6
R
=
RECORD END
;
7
8
VAR
9
i
:
INTEGER
;
10
l
:
LONGINT
;
11
12
BEGIN
13
i
:=
SYSTEM
.
VAL
(
INTEGER
,
l
);
14
END
Test
.