new file mode 100644
--- /dev/null
+++ b/scripts/plot/plot_border.m
@@ -0,0 +1,98 @@
+# Copyright (C) 1995 John W. Eaton
+# 
+# This file is part of Octave.
+# 
+# Octave is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the
+# Free Software Foundation; either version 2, or (at your option) any
+# later version.
+# 
+# Octave 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 General Public License
+# for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with Octave; see the file COPYING.  If not, write to the Free
+# Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA. 
+
+function plot_border (...)
+
+# usage: plot_border (...)
+#
+# NOTE: this will work only with gnuplot installed with
+#       multiplot patch
+#
+# Multiple arguments allowed to specify the sides on which the border
+# is shown. allowed strings: 
+#
+# allowed input strings:
+#
+#  "blank", "BLANK", "b", "B",   --->  No borders displayed
+#    "all",   "ALL", "a", "A",   ---> All borders displayed
+#  "north", "NORTH", "n", "N",   ---> North Border
+#  "south", "SOUTH", "s", "S",   ---> South Border
+#   "east",  "EAST", "e", "E",   --->  East Border
+#   "west",  "WEST", "w", "W",   --->  West Border
+#
+# Without any arguments, turns borders off.
+
+# Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU  3 Jul 95 
+
+  south = 0;
+  west = 0;
+  north = 0;
+  east = 0;
+  all = 0;
+  none = 1;
+
+  va_start ();
+
+  while (nargin--)
+
+    arg = va_arg ();
+
+    if (! isstr (arg))
+      error ("plot_border: input not a string");
+    endif
+
+# The effect of the arguments in cumulative.  If something is found
+# after "b", do that and ignore "b".
+
+    if (strcmp (arg, "blank") || strcmp (arg, "BLANK")
+        || strcmp (arg, "b") || strcmp (arg, "B"))
+      none = 1;
+    else
+      none = 0;
+      if (strcmp (arg, "south") || strcmp (arg, "SOUTH")
+	  || strcmp (arg, "s") || strcmp (arg, "S"))
+	south = 1;
+      elseif (strcmp (arg, "west") || strcmp (arg, "WEST")
+	      || strcmp (arg, "w") || strcmp (arg, "W"))
+	west = 2;
+      elseif (strcmp (arg, "north") || strcmp (arg, "NORTH")
+	      || strcmp (arg, "n") || strcmp (arg, "N"))
+	north = 4;
+      elseif (strcmp (arg, "east") || strcmp (arg, "EAST")
+	      || strcmp (arg, "e") || strcmp (arg, "E"))
+	east = 8;
+      elseif (strcmp (arg, "all") || strcmp (arg, "ALL")
+	      || strcmp (arg, "a") || strcmp (arg, "A"))
+	all = 1;
+      endif
+    endif
+  endwhile
+
+  if (none)
+    set noborder
+  else
+    if (all)
+      border = 15;
+    else
+      border = south + west + north + east;
+    endif
+    eval (sprintf ("set border %d", border));
+  endif
+
+endfunction