DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Добавлено экспортирование объектов в модулях
[dsw-obn.git]
/
test
/
Test.Mod
1
MODULE Test;
2
3
IMPORT Out;
4
5
TYPE
6
PVector = POINTER TO Vector;
7
Vector = ARRAY 3 OF INTEGER;
8
9
VAR
10
a : PVector;
11
b : Vector;
12
13
BEGIN
14
Out.Open;
15
16
NEW(a);
17
a^ := b;
18
19
Out.Flush;
20
END Test.