DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
f76917867cb0d1bcb880b7e0cf655f116919947f
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
VAR
4
i
:
SHORTINT
;
5
s
:
SET
;
6
7
PROCEDURE
X
;
8
END
X
;
9
10
BEGIN
11
i
:=
SHORT
(
12345
);
12
END
Test
.