1 files changed, 21 insertions, 0 deletions
diff --git a/contrib/bal b/contrib/bal
new file mode 100755
index 00000000..423e3e41
--- /dev/null
+++ b/contrib/bal
@@ -0,0 +1,21 @@
+#!/bin/sh
+
+switch="-c"
+limit="-t (/Liabilities/?a<0:Ua>100)&a"
+
+if [ "$1" = "-C" -o "$1" = "-U" ]; then
+  switch="$1"
+  shift
+elif [ "$1" = "-b" -o "$1" = "-e" -o "$1" = "-p" ]; then
+  switch="$1 $2"
+  shift 2
+fi
+
+accts="$@"
+if [ -z "$accts" ]; then
+  accts="-Equity -Income -Expenses"
+else
+  limit=""
+fi
+
+ledger -VQ $switch $limit -s -S "-UT" balance $accts