DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Исправлены VAR-параметры, добавлены модули Files и Strings
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
IMPORT
Files
,
Out
;
4
5
VAR
6
f
:
Files
.
File
;
7
r
:
Files
.
Rider
;
8
i
,
len
:
LONGINT
;
9
g
:
SHORTINT
;
10
x
:
POINTER
TO ARRAY OF
CHAR
;
11
12
BEGIN
13
f
:=
Files
.
Old
(
"Test.obn"
);
14
ASSERT
(
f
#
NIL
);
15
Files
.
Set
(
r
,
f
,
0
);
16
len
:=
Files
.
Length
(
f
);
17
NEW
(
x
,
len
+
1
);
18
FOR
i
:=
0
TO
len
-
1
DO
Files
.
Read
(
r
,
g
);
x
[
i
] :=
CHR
(
g
)
END
;
19
Out
.
String
(
x^
);
Out
.
Ln
;
20
END
Test
.