From 8afd7e4a72c9e981bb215689e9bfc70e4a36be3c Mon Sep 17 00:00:00 2001
From: William Barnes <wfbarnes84@gmail.com>
Date: Sun, 24 Apr 2022 22:47:38 -0400
Subject: [PATCH] Added support for base-2 numbers: enabled Val("&B"...)

---
 qb.js           | 2 ++
 tools/qb2js.bas | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/qb.js b/qb.js
index c9bcfe6..a1b63ff 100644
--- a/qb.js
+++ b/qb.js
@@ -1108,6 +1108,8 @@ var QB = new function() {
             ret = parseInt(value.slice(2), 16);
         } else if (value.substring(0, 2) == "&O") {
             ret = parseInt(value.slice(2), 8);
+        } else if (value.substring(0, 2) == "&B") {
+            ret = parseInt(value.slice(2), 2);
         } else {
             ret = Number(value);
         }
diff --git a/tools/qb2js.bas b/tools/qb2js.bas
index 0b1e186..c79945a 100644
--- a/tools/qb2js.bas
+++ b/tools/qb2js.bas
@@ -2673,7 +2673,7 @@ Sub InitQBMethods
     AddQBMethod "FUNCTION", "Mid$", False
     AddQBMethod "FUNCTION", "Mki$", False
     AddQBMethod "FUNCTION", "Mkl$", False
-     AddQBMethod "FUNCTION", "Oct$", False
+    AddQBMethod "FUNCTION", "Oct$", False
     AddQBMethod "FUNCTION", "Point", False
     AddQBMethod "SUB", "Print", True
     AddQBMethod "SUB", "PSet", False