DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
69389899cad06413cb1824a0829eef066767864d
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
TYPE
4
File
* =
POINTER
TO
Handle
;
5
6
Handle
=
RECORD END
;
7
8
Rider
* =
RECORD
9
eof
* :
BOOLEAN
;
10
res
* :
LONGINT
;
11
END
;
12
13
PROCEDURE
Old
*(
name
:
ARRAY OF
CHAR
) :
File
;
14
BEGIN
15
RETURN NIL
16
END
Old
;
17
18
PROCEDURE
New
*(
name
:
ARRAY OF
CHAR
) :
File
;
19
BEGIN
20
RETURN NIL
21
END
New
;
22
23
END
Test
.