blob: d51011122a60223ed087fd8c99daf9b986aa6aee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
OVERLOAD FUNCTION Mixed(x : INTEGER) RETURNS INTEGER
RETURN x
ENDFUNCTION
FUNCTION Mixed(x : REAL) RETURNS REAL
RETURN x
ENDFUNCTION
OVERLOAD FUNCTION Ret(x : INTEGER) RETURNS INTEGER
RETURN x
ENDFUNCTION
OVERLOAD FUNCTION Ret(x : INTEGER) RETURNS REAL
RETURN x
ENDFUNCTION
OVERLOAD PROCEDURE Mode(BYREF x : INTEGER)
ENDPROCEDURE
OVERLOAD PROCEDURE Mode(BYVAL x : INTEGER)
ENDPROCEDURE
OVERLOAD FUNCTION Exact(x : REAL) RETURNS REAL
RETURN x
ENDFUNCTION
OUTPUT Exact(1)
OVERLOAD PROCEDURE Bounds(a : ARRAY[1:2] OF INTEGER)
ENDPROCEDURE
OVERLOAD PROCEDURE Bounds(a : ARRAY[3:4] OF INTEGER)
ENDPROCEDURE
OVERLOAD FUNCTION EOF(x : INTEGER) RETURNS INTEGER
RETURN x
ENDFUNCTION
OUTPUT Exact("text")
OUTPUT Exact()
|
