DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
c80345e560b5ed362e18a58a9a1abc772b084c44
[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
.