DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
f4deaccac3d5c739ec23505c314e13b8d333e776
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
IMPORT
4
Out
,
5
System
;
6
7
TYPE
8
RBase
=
RECORD END
;
9
R
=
RECORD
(
RBase
)
END
;
10
11
BEGIN
12
Out
.
Open
;
13
IF
FALSE
THEN
14
Out
.
String
(
"Hello World!"
);
Out
.
Ln
;
15
END
;
16
System
.
Halt
(
1
);
17
END
Test
.