From 8e026766ce41de8ab4b991d35fecd2f09515c5b9 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 07:50:02 +0900
Subject: [PATCH] Add "B"

---
 core.fs | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/core.fs b/core.fs
index e5afbfd..8d8b11e 100644
--- a/core.fs
+++ b/core.fs
@@ -190,12 +190,9 @@ c~ i,
     'e,
 l!
 
+\ 'B' ( c -- ) C-COMMA
+\ Store byte 'c' to here and increment it
+cB i, 'h, '@, '$, 'h, 'L, k1k0-, '+, 'h, '!, 'e, l!
 
-kA kB ~ t t \ AB
-k
-t
-
-kA kB o t t t
-k
-t
+kA kB B t
 Q