DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
0bad0ad763fe3b298b127518a3af3fbc2e878678
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
IMPORT
SYSTEM
;
4
5
VAR
6
ptr
:
SYSTEM
.
PTR
;
7
arr
:
POINTER
TO ARRAY OF
INTEGER
;
8
9
BEGIN
10
NEW
(
arr
,
20
);
11
ptr
:=
arr
;
12
END
Test
.