diff --git a/goldlib/gall/gall.all b/goldlib/gall/gall.all
index 3ab3d1f..129c47f 100644
--- a/goldlib/gall/gall.all
+++ b/goldlib/gall/gall.all
@@ -140,7 +140,8 @@ gutlos2  cpp     all         bco         wco         emx
 gutlos2m cpp     all         bco         wco         emx
 gutlwin  cpp     all             bcx                             cyg
 gutlwinm cpp     all             bcx                             cyg
-gutlunix cpp     all                             lnx                 be
+gutlunix cpp     all                             lnx
+gutlbeos cpp     all                                                 be
 be_lock  c       all                                                 be
 
 ## Low-level text video
diff --git a/goldlib/gall/gutlbeos.cpp b/goldlib/gall/gutlbeos.cpp
new file mode 100644
index 0000000..eb6c71f
--- /dev/null
+++ b/goldlib/gall/gutlbeos.cpp
@@ -0,0 +1,194 @@
+//  This may look like C code, but it is really -*- C++ -*-
+
+//  ------------------------------------------------------------------
+//  The Goldware Library
+//  Copyright (C) 1999 Alexander S. Aganichev
+//  ------------------------------------------------------------------
+//  This library is free software; you can redistribute it and/or
+//  modify it under the terms of the GNU Library General Public
+//  License as published by the Free Software Foundation; either
+//  version 2 of the License, or (at your option) any later version.
+//
+//  This library is distributed in the hope that it will be useful,
+//  but WITHOUT ANY WARRANTY; without even the implied warranty of
+//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+//  Library General Public License for more details.
+//
+//  You should have received a copy of the GNU Library General Public
+//  License along with this program; if not, write to the Free
+//  Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+//  MA 02111-1307, USA
+//  ------------------------------------------------------------------
+//  $Id$
+//  ------------------------------------------------------------------
+//  Midnight Commander compatible clipboard.
+//  ------------------------------------------------------------------
+
+#include <cstdlib>
+#include <cstdio>
+#include <gstrall.h>
+#include <gmemdbg.h>
+#include <gutlos.h>
+#include <gmemi86.h>
+#include <gfilutil.h>
+
+#include <Clipboard.h>
+#include <UTF8.h>
+
+//  ------------------------------------------------------------------
+
+char          ge_beos_title[GMAXTITLE] = "";
+int           ge_beos_ext_title;
+
+static BClipboard g_clipboard("system", true);
+
+//  ------------------------------------------------------------------
+
+int g_init_os(int flags) {
+
+  NW(flags);
+  return 0;
+}
+
+
+//  ------------------------------------------------------------------
+
+void g_deinit_os(void) {
+
+  // do nothing
+}
+
+
+//  ------------------------------------------------------------------
+
+void g_init_title(char *tasktitle, int titlestatus) {
+
+  strncpy(ge_beos_title, tasktitle, GMAXTITLE);
+  ge_beos_title[GMAXTITLE-1] = '\0';
+  ge_beos_ext_title = titlestatus;
+}
+
+
+//  ------------------------------------------------------------------
+
+void g_increase_priority(void) {
+
+  // Do nothing
+}
+
+
+//  ------------------------------------------------------------------
+
+void g_set_ostitle(char* title) {
+
+  printf("\x1b\x5d\x32\x3b%s\x07", title);
+  fflush(stdout);
+}
+
+//  ------------------------------------------------------------------
+
+void g_set_osicon(void) {
+
+  // do nothing
+}
+
+
+//  ------------------------------------------------------------------
+
+bool g_is_clip_available(void) {
+
+  return true;
+}
+
+//  ------------------------------------------------------------------
+
+char* g_get_clip_text(void) {
+
+  char *clip_text = NUL;
+  const char *text = NUL;
+  int32 textLen; 
+  BMessage *clip = (BMessage *)NUL; 
+
+  if(g_clipboard.Lock()){ 
+    if((clip = g_clipboard.Data()) != NUL){
+      if(B_OK == clip->FindData("text/plain", B_MIME_TYPE, 
+                            (const void **)&text, &textLen)){
+        clip_text = (char *)throw_malloc(textLen * 2 + 1);
+        *clip_text = NUL;
+        int32 state = 0, destLen = textLen * 2;
+        convert_from_utf8(B_ISO5_CONVERSION, text, &textLen,
+                          clip_text, &destLen, &state);
+        clip_text[destLen] = NUL;
+      }
+    }
+    g_clipboard.Unlock(); 
+  } 
+  return clip_text;
+}
+
+//  ------------------------------------------------------------------
+
+int g_put_clip_text(const char* buf) {
+
+  int ret = -1;
+  BMessage *clip = (BMessage *)NULL; 
+  if(g_clipboard.Lock()){
+    g_clipboard.Clear();
+    if((clip = g_clipboard.Data()) != NUL){
+      int32 textLen = strlen(buf);
+      int32 destLen = textLen * 3;
+      char *clip_text = (char *)throw_malloc(destLen);
+      *clip_text = NUL;
+      int32 state = 0;
+      convert_to_utf8(B_ISO5_CONVERSION, buf, &textLen, clip_text, &destLen, &state);
+      clip->AddData("text/plain", B_MIME_TYPE, clip_text, destLen);
+      g_clipboard.Commit();
+      ret = 0;
+    }
+    g_clipboard.Unlock();
+  } 
+  return -1;
+}
+
+
+//  ------------------------------------------------------------------
+
+void g_get_ostitle_name(char* title) {
+
+  *title = NUL;
+}
+
+
+//  ------------------------------------------------------------------
+
+void g_set_ostitle_name(char* title, int mode) {
+
+  if(mode == 0) {
+    char fulltitle[GMAXTITLE];
+    strcpy(fulltitle, ge_beos_title);
+    if(ge_beos_ext_title) {
+      int len = strlen(fulltitle);
+      if(len < GMAXTITLE-4) {
+        if(len)
+          strcat(fulltitle, " - ");
+        strncpy(fulltitle+len+3, title, GMAXTITLE-len-3);
+        fulltitle[GMAXTITLE-1] = '\0';
+      }
+    }
+    g_set_ostitle(fulltitle);
+  }
+  else
+    g_set_ostitle(title);
+}
+
+
+//  ------------------------------------------------------------------
+
+int g_send_mci_string(char* str, char* his_buffer) {
+
+  NW(str); NW(his_buffer);
+  return 1;
+}
+
+
+//  ------------------------------------------------------------------
diff --git a/goldlib/gall/gutlclip.h b/goldlib/gall/gutlclip.h
index 1c6341e..e3ab45a 100644
--- a/goldlib/gall/gutlclip.h
+++ b/goldlib/gall/gutlclip.h
@@ -40,6 +40,8 @@
 #define CLIP_NAME "OS/2 Clipboard"
 #elif defined(__WIN32__) || defined(__MSDOS__)
 #define CLIP_NAME "Windows Clipboard"
+#elif defined(__BEOS__)
+#define CLIP_NAME "BeOS Clipboard"
 #else
 #define CLIP_NAME "Fake Clipboard"
 #endif