1 files changed, 16 insertions, 0 deletions

diff --git a/v4.0/src/CMD/FC/ERROR.C b/v4.0/src/CMD/FC/ERROR.C
new file mode 100644
index 0000000..47bc02d
--- /dev/null
+++ b/v4.0/src/CMD/FC/ERROR.C
@@ -0,0 +1,16 @@
+/* error.c - return text of error corresponding to the most recent DOS error */
+
+#include "tools.h"
+
+extern int errno;
+extern sys_nerr;
+extern char *sys_errlist[];
+extern char UnKnown[];
+
+char *error ()
+{
+    if (errno < 0 || errno >= sys_nerr)
+        return UnKnown;
+    else
+        return sys_errlist[errno];
+}