From b0351d50980465f9c756b4d85c2630de9d6ff3fc Mon Sep 17 00:00:00 2001
From: memson <memson@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Sat, 27 Apr 2002 08:49:25 +0000
Subject: [PATCH] added the pascal debugging unit

---
 begui/begui/imports/pascal/fdblib.pas | 28 +++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 begui/begui/imports/pascal/fdblib.pas

diff --git a/begui/begui/imports/pascal/fdblib.pas b/begui/begui/imports/pascal/fdblib.pas
new file mode 100644
index 0000000..301e5ef
--- /dev/null
+++ b/begui/begui/imports/pascal/fdblib.pas
@@ -0,0 +1,28 @@
+unit fdblib;
+
+interface
+
+{$linklib 'fdb'}
+
+uses
+  begui;
+
+procedure SendText(text: pchar);cdecl; external;
+
+procedure force;
+
+implementation
+
+procedure force;
+begin
+  writeln('force');
+end;
+
+initialization
+  SendText('----------------------');
+  SendText('App start');
+
+finalization
+  SendText('App end');
+
+end.
\ No newline at end of file