florian
22 years ago
|
@@ -0,0 +1,5 @@
|
|
|
|
+uses
|
|
|
|
+ ub0437c;
|
|
|
|
+
|
|
|
|
+begin
|
|
|
|
+end.
|
|
@@ -0,0 +1,13 @@
|
|
|
|
+{ %version=1.1}
|
|
|
|
+unit ub0437a;
|
|
|
|
+
|
|
|
|
+ interface
|
|
|
|
+
|
|
|
|
+ type
|
|
|
|
+ prec = ^trec;
|
|
|
|
+ trec = record
|
|
|
|
+ end;
|
|
|
|
+
|
|
|
|
+ implementation
|
|
|
|
+
|
|
|
|
+end.
|
|
@@ -0,0 +1,14 @@
|
|
|
|
+{ %version=1.1}
|
|
|
|
+unit ub0437b;
|
|
|
|
+
|
|
|
|
+ interface
|
|
|
|
+
|
|
|
|
+ uses
|
|
|
|
+ ub0437a;
|
|
|
|
+
|
|
|
|
+ type
|
|
|
|
+ prec = ub0437a.prec;
|
|
|
|
+
|
|
|
|
+ implementation
|
|
|
|
+
|
|
|
|
+end.
|
|
@@ -0,0 +1,20 @@
|
|
|
|
+{ %version=1.1}
|
|
|
|
+unit ub0437c;
|
|
|
|
+
|
|
|
|
+ interface
|
|
|
|
+
|
|
|
|
+ uses
|
|
|
|
+ ub0437b;
|
|
|
|
+
|
|
|
|
+ type
|
|
|
|
+ prec = ub0437b.prec;
|
|
|
|
+
|
|
|
|
+ function f : prec;
|
|
|
|
+
|
|
|
|
+ implementation
|
|
|
|
+
|
|
|
|
+ function f : prec;
|
|
|
|
+ begin
|
|
|
|
+ end;
|
|
|
|
+
|
|
|
|
+end.
|